home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB28.ZIP / COMPLEXF.FOR < prev    next >
Encoding:
Text File  |  1984-10-21  |  3.0 KB  |  126 lines
  1.       PROGRAM COMPLX
  2.  
  3.       REAL*4 W(2),X(2),Y(2),Z(2)
  4.       CHARACTER*20 A
  5.  
  6. 900   FORMAT(1X,' ')
  7. 901   FORMAT(1X,'What is the complex X value? ')
  8. 902   FORMAT(1X,1X,F8.5,2X,F8.5)
  9. 903   FORMAT(1X,'What is the complex Y value? ')
  10. 904   FORMAT(1X,'What is the integer value?   ')
  11. 905   FORMAT(1X,1X,I5)
  12. 910   FORMAT(1X,20X,'COMPLEX FUNCTIONS TEST')
  13. 911   FORMAT(1X,'    X REAL',5X,'X COMPLEX',6X,'Y REAL',5X,'Y COMPLEX',
  14.      16X,'N')
  15. 912   FORMAT(1X,2X,4(F9.5,4X),I3)
  16. 913   FORMAT(1X,A22,2(2X,F10.5))
  17. 914   FORMAT(1X,A22,2(2(2X,F10.5),3X))
  18.  
  19.       WRITE(*,900)
  20.       WRITE(*,901)
  21.       READ(*,902) X(1),X(2)
  22.       WRITE(*,903)
  23.       READ(*,902) Y(1),Y(2)
  24.       WRITE(*,904)
  25.       READ(*,905) N
  26.       M = -N
  27.       WRITE(*,900)
  28.       WRITE(*,900)
  29.       WRITE(*,900)
  30.       WRITE(*,910)
  31.       WRITE(*,900)
  32.       WRITE(*,911)
  33.       WRITE(*,912) X(1),X(2),Y(1),Y(2),N
  34.       WRITE(*,900)
  35.  
  36.       A = 'X + Y =             '
  37.       CALL FCADD(X,Y,Z)
  38.       WRITE(*,913) A,Z(1),Z(2)
  39.  
  40.       A = 'X - Y =             '
  41.       CALL FCSUB(X,Y,Z)
  42.       WRITE(*,913) A,Z(1),Z(2)
  43.  
  44.       A = 'X * Y =             '
  45.       CALL FCMUL(X,Y,Z)
  46.       WRITE(*,913) A,Z(1),Z(2)
  47.  
  48.       A = 'X / Y =             '
  49.       CALL FCDIV(X,Y,Z)
  50.       WRITE(*,913) A,Z(1),Z(2)
  51.  
  52.       A = 'X TO THE N POWER =  '
  53.       CALL FCNPR(N,X,Z)
  54.       CALL FCNPR(M,X,W)
  55.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  56.  
  57.       A = 'N ROOT OF X =       '
  58.       CALL FCNRT(N,Z,Z)
  59.       CALL FCNRT(M,W,W)
  60.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  61.  
  62.       A = 'SQUARE ROOT OF X    '
  63.       CALL FCSQR(X,Z)
  64.       M = 2
  65.       CALL FCNPR(M,Z,W)
  66.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  67.  
  68.       A = 'E TO THE X POWER =  '
  69.       CALL FCEXP(X,Z)
  70.       CALL FCLN(Z,W)
  71.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  72.  
  73.       A = 'E TO THE -X POWER = '
  74.       W(1) = -X(1)
  75.       W(2) = -X(2)
  76.       CALL FCEXP(W,Z)
  77.       CALL FCLN(Z,W)
  78.       WRITE(*,914) A,Z(1),Z(2),-W(1),-W(2)
  79.  
  80.       A = 'COMPLEX LN(X) =     '
  81.       CALL FCLN(X,Z)
  82.       CALL FCEXP(Z,W)
  83.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  84.  
  85.       A = 'LOG OF X BASE Y =   '
  86.       CALL FCLGY(X,Y,Z)
  87.       CALL FCYX(Z,Y,W)
  88.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  89.  
  90.       A = 'Y TO THE X POWER =  '
  91.       CALL FCYX(X,Y,Z)
  92.       CALL FCLGY(Z,Y,W)
  93.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  94.  
  95.       A = 'COMPLEX SIN(X) =    '
  96.       CALL FCSIN(X,Z)
  97.       CALL FCASN(Z,W)
  98.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  99.  
  100.       A = 'COMPLEX COS(X) =    '
  101.       CALL FCCOS(X,Z)
  102.       CALL FCACS(Z,W)
  103.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  104.  
  105.       A = 'COMPLEX TAN(X) =    '
  106.       CALL FCTAN(X,Z)
  107.       CALL FCATN(Z,W)
  108.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  109.  
  110.       A = 'COMPLEX ARCSIN(X) = '
  111.       CALL FCASN(X,Z)
  112.       CALL FCSIN(Z,W)
  113.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  114.  
  115.       A = 'COMPLEX ARCCOS(X) = '
  116.       CALL FCACS(X,Z)
  117.       CALL FCCOS(Z,W)
  118.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  119.  
  120.       A = 'COMPLEX ARCTAN(X) = '
  121.       CALL FCATN(X,Z)
  122.       CALL FCTAN(Z,W)
  123.       WRITE(*,914) A,Z(1),Z(2),W(1),W(2)
  124.  
  125.       END
  126.