%%HP: T(3)A(D)F(.);
@ NYQUIST, by Raymond Wong
DIR
  G
    \<< \-> S '10/(S*(S         @ edit this transfer function, leave \-> S
+1)*(S+2))'                     @ in tact
    \>>
  PPAR { (-5,-10)               @ Real/Imaginary range of plot
(.1,20) W 0 (0,0)
FUNCTION C }
  NYQUIST                       @ Nyquist point plot
    \<< ERASE .001              @ Adjust .001 100 to appropriate start,
100                             @ stop frequency range
      FOR W i W * G
\->NUM PIXON PICT RCL
\->LCD .1                       @ Adjust .1 to appropriate freq. step rate
      STEP
    \>>
  NYQL                          @ Nyquist line plot
    \<< ERASE .001 i
* G \->NUM .001 100             @ Adjust .001 100 to appropriate start,
      FOR W i W * G             @ stop frequency range
\->NUM DUP 3 ROLLD
LINE PICT RCL \->LCD
.5                              @ Adjust .5 to appropriate freq. step rate
      STEP
    \>>
END