PROGRAM 5


      PROGRAM LINEAR
C.....THIS PROGRAM CALCULATES THE VALUES OF A, B, AND C IN THE LINEAR
C.....EQUATION (A X + B Y + C = 0).
C.....F012     ANTHONY F. ORTIZ     **P32**
C.....DECLARE THE VARIABLES FOR K, D1, D2, D3, D4, A, B, C, X, AND Y.
      INTEGER K
      REAL D1, D2, D3, D4, A, B, C
C.....OPEN THE DATA FILE 'F012P32.DAT' AND THE OUT FILE 'F012P32.OUT'.
      OPEN (1, FILE = 'F012P32.DAT')
      OPEN (2, FILE = 'F012P32.OUT')
C.....PUT THE HEADER, TITLE AND COLUMN HEADINGS IN THE OUT FILE.
      WRITE (2, *) 'F012     ANTHONY F. ORTIZ     **P32**'
      WRITE (2, *)
      WRITE (2, *)'   K            LINEAR EQUATIONS'
      WRITE (2, *)
C.....GET THE VALUES OF THE VARIABLES K, D1, D2, D3, AND D4 FROM THE DATA FILE.
   10 READ (1, *, END = 20) K, D1, D2, D3, D4
C.....DECIDE WHICH EQUATION TO GOTO DEPENDING ON THE VALUE OF K.
      IF (K.EQ.1) THEN
          A = D2 - D4
          B = D3 - D1
          C = D1 * D4 - D2 * D3
      ELSE
          IF (K.EQ.2) THEN
              A = D3
              B = -1
              C = D2 - D3 * D1
          ELSE
              IF (K.EQ.3) THEN
                  A = D2 - D4
                  B = -D1
                  C = D1 * D4
              ELSE
                  A = D3
                  B = -1
                  C = D4
              ENDIF
          ENDIF
      ENDIF
C.....PUT THE LINEAR EQUATION (WITH VALUES A, B, AND C) IN THE OUT FILE.
      WRITE (2, 100) K, A, 'X + ', B, 'Y + ', C, ' = 0'
  100 FORMAT (I5, F8.3, A, F8.3, A, F8.3, A)
C.....GO BACK TO READ STATEMENT OR TERMINATE THE PROGRAM.
      GOTO 10
   20 WRITE (2, *)
      WRITE (2, *) '             END OF LINEAR EQUATIONS'
      STOP
      END

C.....DATA FILE:  F012P32.DAT

  1   4       2   12       -4
  4   0       0    0.875    7.3
  1   2      -1   -3.2      7
  3   3.27   -6    0       -5
  2   4       2   -0.75     0
  3   4      -2    0       -4
  2   7.5    -3   -3        0
  4   0       0    0        2
  3   4       2    0        5
  1   0       8   -6        0
  2   4      -2    0.5      0
  3  10      18    0        3
  4   0       0   -0.75     5
  4   0       0    2.5      0
  2   4       9    1.5      0
  1   0.8    -2   16       -2

C.....OUTFILE:  F012P32.OUT

 F012     ANTHONY F. ORTIZ     **P32**

    K            LINEAR EQUATIONS

    1   6.000X +    8.000Y +  -40.000 = 0
    4    .875X +   -1.000Y +    7.300 = 0
    1  -8.000X +   -5.200Y +   10.800 = 0
    3  -1.000X +   -3.270Y +  -16.350 = 0
    2   -.750X +   -1.000Y +    5.000 = 0
    3   2.000X +   -4.000Y +  -16.000 = 0
    2  -3.000X +   -1.000Y +  -25.500 = 0
    4    .000X +   -1.000Y +    2.000 = 0
    3  -3.000X +   -4.000Y +   20.000 = 0
    1   8.000X +   -6.000Y +   48.000 = 0
    2    .500X +   -1.000Y +   -4.000 = 0
    3  15.000X +  -10.000Y +   30.000 = 0
    4   -.750X +   -1.000Y +    5.000 = 0
    4   2.500X +   -1.000Y +     .000 = 0
    2   1.500X +   -1.000Y +    3.000 = 0
    1    .000X +   15.200Y +   30.400 = 0

              END OF LINEAR EQUATIONS




BACK TO COMP150 PAGE.