restart;readlib (unassign):read (`data.map`):
read (`procs.map`):
tstart := 0:
tfinal := 0.050:
i := rectify_solve (array(1..2,[0,0]), tstart..tfinal):ig := unapply(i[1](t)+i[2](t),t):
ug := unapply(R3*ig(t) + L3*diff(ig(t),t),t):plot (i[1], tstart..tfinal, title=`Plot 1: i1(t)`);
plot (i[2], tstart..tfinal, title=`Plot 2: i2(t)`);
plot (ig, tstart..tfinal, title=`Plot 3: ig(t)`);
plot (ug, tstart..tfinal, title=`Plot 4: ug(t)`);