TITLE=”Circuit Resistance”, DIM=[450,400], MARGIN=0.2)

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))