TITLE="Circuit Resistance", DIM=[450,400], MARGIN=0.2)
p = PLOT(theory, "r4D-", YTITLE='Resistance ($\Omega$)', $
theory = SIN(2.0*FINDGEN(200)*!PI/25.0)*EXP(-0.02*FINDGEN(200))
; Create data representing the sine wave
