% Quad
% This program takes the coefficients of a quadratic
% factor in a Laplace transfer function (ax^2 + bx + c),
% and shows you the two "roots" (poles or zeros). If the
% roots are complex conjugate values, press [WHITE SHIFT]
% CONT to get just the real and imaginary parts on the
% stack and ready to run PLXBode.
%
% By L.Linares 2011
%
% VERY IMPORTANT: To type this program on a regular
%   text file, I had to replace some HP50 keys by
%   certain strings. So ...
%   Where I wrote        you type
%        *               [multiply key]
%        ACOS            [WHITE SHIFT] COS
%        ^               [y to the x key]
%        SQRT            press square root key (*)
%        ->TAG           [WHITE SHIFT] PRG/TYPE/->TAG
%        ->              [RED SHIFT] [zero key]
%        ALOG()          press the [WHITE SHIFT] 10 to x key
%        C->R            [WHITE SHIFT] MTH NXT CMPLX C->R 
%   (*) Do NOT type the letters SQRT ... it won't work!

% This program is provided on a "as is" basis, for
% reference ONLY, and no warranty of its accuracy or
% correctness is made. If you use it, you use it at your
% own risk.

<< 
  "Coef a.X^2+b.X+c" PROMPT
  -> a b c
  <<
    a b c 3 ->ARRY
    PROOT HALT
    OBJ->  DROP DROP 
    C->R 
  >> 
>>