**TI92**mainProgram: 11\01\1998 12:02:38 PMRvoltage´¥ZZ() Prgm FnOff setGraph("axes","off") ClrIO 120n Disp "How many probes? (Enter 1 or 2)?" Input p Disp "Time between measurements?" Input t ­0.5ymin 6.5ymax 1xmin nxmax seq(i,i,1,n)voltlist voltlistvoltlis2 Send {1,0} Send {1,1,1} If (p=2) Then Send {1,2,1} Endif Send {3,t,n,2,1,5} ClrDraw ClrGraph Line xmin,0,xmax,0 ClrIO Disp "Connect leads." Disp "Then charge capacitor." Disp "" Disp "Trigger on channel 1." Get voltlist If (p=2) Then Get voltlis2 EndIf For i,1,n-1,1 Line i,voltlist[i],i+1,voltlist[i+1] If (p=2) Then Line i,voltlis2[i],i+1,voltlis2[i+1] EndIf EndFor EndPrgm äåÜK½