.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Org:Here # Multiplier carrier=6; line -> from Org-(0,1.25*dim) to Org+(0,1.25*dim) line -> from Org to Org+(3.5*dim, 0); "t" below_ # Signal move to Org maxaxis = 2*dim*twopi_ onedegree = twopi_/360; for theta = 0 to 3*pi_ by onedegree do { line to Org+(theta/maxaxis, 1.5*dim*sin(theta)*exp(-0.1*theta)) } Org:Org + (4.5*dim,0) line -> from Org-(0,1.25*dim) to Org+(0,1.25*dim) line -> from Org to Org+(2.5*dim, 0); "t" below_ # Carrier move to Org maxaxis = 2*dim*carrier*twopi_ onedegree = twopi_/360; for theta = 0 to carrier*twopi_ by onedegree do { line to Org+(theta/maxaxis, dim*sin(theta)) } Org:Org + (3.5*dim,0) line -> from Org-(0,1.25*dim) to Org+(0,1.25*dim) line -> from Org to Org+(3.5*dim, 0); "t" below_ # AM with full 1x added carrier move to Org maxaxis = 2*dim*carrier*twopi_ onedegree = twopi_/360; for theta = 0 to carrier*3*pi_ by onedegree do { line to Org+(theta/maxaxis, 1.0*dim*sin(theta) + \ 1.5*dim*sin(theta)*sin(theta/carrier)*exp(-0.1*theta/carrier)) } # rectified to show envelope of original signal, offset! move to Org maxaxis = 2*dim*carrier*twopi_ onedegree = twopi_/360; setrgb(1,0,0) for theta = 0 to carrier*3*pi_ by onedegree do { line to Org+(theta/maxaxis, abs(1.0*dim*sin(theta) + \ 1.5*dim*sin(theta)*sin(theta/carrier)*exp(-0.1*theta/carrier))) } resetrgb "{\Huge $\times$}" at (4*dim,-0.1*dim) "{\Huge $=$}" at (7.5*dim,-0.1*dim) "Signal" at (1.5*dim,1.5*dim) "Carrier" at (5.5*dim, 1.5*dim) "Modulation" at 9.5*dim, 1.5*dim "\tiny DSB-LC" at (9*dim,-1.5*dim) .PE