.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Orig:Here line -> up_ 2.5*dim right_; "S/N " rjust_ line -> from Orig right_ 4* dim "BER" at Here+(0,-3mm__) move to Orig + (0,1.5*dim) for ber = 0 to 3*dim by 3*dim/50 do { line to (ber,1.5*dim*exp(-0.3*ber)) } " FSK" ljust_ move to Orig + (0,2*dim) for ber = 0 to 3*dim by 3*dim/50 do { line to (ber,2*dim*exp(-0.25*ber)) } " MFSK" ljust_ "\tiny SnrBer" at (3*dim,-0.5*dim) .PE