%%HP: T(3)A(D)F(.);
DIR
  KEY12.1
    \<< { Mag Phase
Polar { "L\<-\->L"
LOG\<-\->LIN } TF
 } TMENU
    \>>
  LOG\<-\->LIN
    \<< xlabels
      IF 1 FS?
      THEN 1 CF 2 '
i*X'
      ELSE 1 SF 1 '
i*ALOG(X)'
      END 'S' STO
GET 'X.AXIS' STO
    \>>
  X.AXIS "j\Gw"
  xlabels {
"LOG(j\Gw)" "j\Gw" }
  Polar
    \<< 'PPAR' PURGE
TF 'EQ' STO S \->
OLDS
      \<< 'i*ALOG(X)'
'S' STO PARAMETRIC
DUP2 2 \->LIST 'X'
SWAP + INDEP {
(0,\<)0) "RE{G}" "IM{G}" }
AXES SWAP - 100 /
RES ERASE AUTO DRAX
DRAW OLDS 'S' STO
      \>>
    \>>
  Phase
    \<< 'PPAR' PURGE
TF EVAL ARG 'EQ'
STO XRNG (0,\<)0)
X.AXIS "\<)F" 3 \->LIST
AXES ERASE AUTO
DRAX LABEL DRAW
    \>>
  Mag
    \<< 'PPAR' PURGE
TF EVAL ABS 'EQ'
STO XRNG (0,\<)0)
X.AXIS "|F|" 3
\->LIST AXES ERASE
AUTO DRAX LABEL
DRAW
    \>>
  S 'i*X'
END