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