image of READY prompt

Wang2200.org

Listing of file='22' on disk='vmedia/glbr_22.wvd.zip'

# Sector 50, program filename = '22'
0001 SELECT R
0005 PRINT
0010 PRINT "A,B? (TO END PROGRAM INPUT 0,0)"
0015 INPUT A,B
0016 PRINT
0020 IF A^2+B^2=0 THEN 999
0025 DEFFNS(W)=(EXP(W)-EXP(-W))/2
0030 DEFFNC(W)=(EXP(W)+EXP(-W))/2
0035 X=SIN(A)*FNC(B)
0040 Y=COS(A)*FNS(B)
0045 PRINT "SIN(A+BI)=";X;"+";Y;"I"
0050 X=COS(A)*FNC(B)
0055 Y=-SIN(A)*FNS(B)
0060 PRINT "COS(A+BI)=";X;"+";Y;"I"
0065 D=COS(2*A)+FNC(2*B)
0070 X=SIN(2*A)/D
0075 Y=FNS(2*B)/D
0080 PRINT "TAN(A+BI)=";X;"+";Y;"I"
0085 X=FNS(A)*COS(B)
0090 Y=FNC(A)*SIN(B)
0095 PRINT "SINH(A+BI)=";X;"+";Y;"I"
0100 X=FNC(A)*COS(B)
0110 Y=FNS(A)*SIN(B)
0120 PRINT "COSH(A+BI)=";X;"+";Y;"I"
0130 D=FNC(2*A)+COS(2*B)
0140 X=FNS(2*A)/D
0150 Y=SIN(2*B)/D
0160 PRINT "TANH(A+BI)=";X;"+";Y;"I"
0170 PRINT
0180 PRINT
0190 PRINT "A,B?"
0200 GOTO 15
0999 SELECT D
   : END