Capacitor Charge Discharge Plot

---

Capacitor Charge Discharge Plot Program

Use a 100K Resistor with a 10uF capacitor.

Use A1 to monitor the capacitor voltage.

A2 charges the capacitor.

---

prog_vars =

d/count 0

prog_vars.

prog_start =

pclear

d1000

ptl 10 5 ^ts=24^ "Capacitor Program"

gvr a1 0 100

a2 0

ptl 10 50 "Wait for Disacharge"

dly 3000

ptl 10 50 ^tc=lime^ "Charge"

a2 1

plot 10 100 ^xp=/count ^n=A1 Volts^v1= /a1 ^

prog_start.

prog_loop =

plot 10 100 ^xp=/count ^v1= /a1 ^

inc /count

any /count >= 100 -> exitprog

dly 25

-- Discharge

any /a1 >= 95 ->

/a2 0

ptl 10 50 ^tc=red^ "Discharge"

enda.

prog_loop.

prog_stop =

ptl 10 50 ^tc=red^ "Finished"

a2 0

prog_stop.