.PS cct_init Org:Here # Multiplier carrier=7; line -> from Org+(0,-1.25*dimen_) to Org+(0,1.25*dimen_) line -> from Org to Org+(3.5*dimen_, 0); "t" below_ # Signal, a decaying sinusoid. move to Org maxaxis = 2*dimen_*twopi_ twodegree = 2*twopi_/360; for theta = 0 to 3*pi_ by twodegree do { line to Org+(theta/maxaxis, 1.5*dimen_*sin(theta)*exp(-0.1*theta)) } # Carrier Org:Org + (4.5*dimen_,0) line -> from Org+(0,-1.25*dimen_) to Org+(0,1.25*dimen_) line -> from Org to Org+(2.5*dimen_, 0); "t" below_ move to Org maxaxis = 2*dimen_*carrier*twopi_ twodegree = 2*twopi_/360; for theta = 0 to carrier*twopi_ by twodegree do { line to Org+(theta/maxaxis, dimen_*sin(theta)) } Org:Org + (3.5*dimen_,0) line -> from Org+(0,-1.25*dimen_) to Org+(0,1.25*dimen_) line -> from Org to Org+(3.5*dimen_, 0); "t" below_ # FM attempt... Worked! Where else can you draw like this??? move to Org maxaxis = 2*dimen_*carrier*twopi_ twodegree = 2*twopi_/360; for theta = 0 to carrier*3*pi_ by twodegree do { signal=1.5*dimen_*sin(theta/carrier)*exp(-0.1*theta/carrier) signal=signal+0.75*dimen_; # Rid of -ve vals signal = dimen_*sin(theta+(10*signal)) line to Org+(theta/maxaxis, signal) } "Signal" at (1.5*dimen_,1.5*dimen_) "Carrier" at (5.5*dimen_, 1.5*dimen_) "Modulation" at 9.5*dimen_, 1.5*dimen_ "\tiny FMModulation" at (9*dimen_,-1.5*dimen_) .PE