PROGRAM 6


      PROGRAM VECTOR
C.....THIS PROGRAM CALCULATES THE MAGNITUDE AND RELATIVE DIRECTION FOR
C.....THE RESULTANT OF 2 GIVEN VECTORS.
C.....F012     ANTHONY F. ORTIZ     **P49**
C.....DECLARE VARIABLES FOR MAGNITUDE OF VECTOR 1, MAGNITUDE OF VECTOR 2,
C.....ANGLE BETWEEN THE TWO VECTORS, MAGNITUDE OF THE RESULTANT, AND DIRECTION
C.....ANGLE FROM VECTOR 1 TO THE RESULTANT VECTOR.
      REAL V1, V2, ADEG1, ARAD1, R, ADEG2, ARAD2
C.....OPEN THE DATA FILE 'F012P49.DAT' AND THE OUT FILE 'F012P49.OUT'.
      OPEN (1, FILE = 'F012P49.DAT')
      OPEN (2, FILE = 'F012P49.OUT')
C.....PUT HEADER, TITLE, AND COLUMN HEADINGS IN THE OUT FILE.
      WRITE (2, *) 'F012     ANTHONY F. ORTIZ     **P49**'
      WRITE (2, *)
      WRITE (2, *) 'RESULTANT OF TWO VECTORS'
      WRITE (2, *)
      WRITE (2, *) '        VECTOR 1      VECTOR 2       ANGLE',
     $'      RESULTANT      DIRECTION'
      WRITE (2, *)
C.....GET THE DATA VALUES FROM THE DATA FILE.
   10 READ (1, *, END = 20) V1, V2, ADEG1
C.....CALCULATE THE MAGNITUDE OF THE RESULTANT AND THE DIRECTION OF THE
C.....RESULTANT.
      ARAD1 = ADEG1 * 3.141593 / 180.0
      R = SQRT (V1 ** 2 + V2 ** 2 + 2 * V1 * V2 * COS (ARAD1))
      ARAD2 = ATAN ((V2 * SIN (ARAD1)) / (V1 + V2 * COS (ARAD1)))
      ADEG2 = ARAD2 * 180.0 / 3.141593
      IF ((ADEG1.GE.0).AND.(ADEG1.LT.180).AND.(ADEG2.LT.0)) THEN
          ADEG2 = 180 + ADEG2
      ENDIF
      IF ((ADEG1.GE.180).AND.(ADEG2.LE.0)) THEN
          ADEG2 = 360 + ADEG2
      ELSE
          IF ((ADEG1.GT.180).AND.(ADEG2.GT.0)) THEN
              ADEG2 = 180 + ADEG2
          ENDIF
      ENDIF
C.....PUT THE VALUES OF THE DATA FILE AND THE CALCULATIONS IN THE OUT FILE.
      WRITE (2, 100) V1, V2, ADEG1, R, ADEG2
  100 FORMAT (1X, F14.2, F14.2, F14.2, F14.2, F14.2)
      GOTO 10
C.....END THE PROGRAM.
   20 WRITE (2, *)
      WRITE (2, *) 'END OF TWO VECTOR RESOLUTION'
      STOP
      END

C.....DATA FILE:  F012P49.DAT

63.5   42.1   23.0
23.0   62.8   32.9
45.5   18.3   41.8
32.0   34.7   58.7
81.5   86.2   67.6
09.5   22.0   75.5
59.0   50.4   83.4
72.5   30.6   96.3
27.5   74.2  101.2
50.0   66.9  112.1
86.0   54.5  128.0
90.5   82.0  134.9
14.0   90.3  140.8
95.0   38.6  156.7
68.0   46.3  164.6
36.5   70.7  175.5
54.5   14.5  180.0
41.0   58.1  197.3
77.0   78.8  209.2
18.5   26.4  229.1

C.....OUTFILE:  F012P49.OUT

 F012     ANTHONY F. ORTIZ     **P49**

 RESULTANT OF TWO VECTORS

     VECTOR 1      VECTOR 2       ANGLE      RESULTANT      DIRECTION
 
      63.50         42.10         23.00        103.57          9.14
      23.00         62.80         32.90         83.06         24.25
      45.50         18.30         41.80         60.39         11.65
      32.00         34.70         58.70         58.15         30.65
      81.50         86.20         67.60        139.38         34.87
       9.50         22.00         75.50         26.06         54.83
      59.00         50.40         83.40         81.88         37.69
      72.50         30.60         96.30         75.54         23.74
      27.50         74.20        101.20         73.95         79.81
      50.00         66.90        112.10         66.77         68.17
      86.00         54.50        128.00         67.79         39.31
      90.50         82.00        134.90         66.62         60.68
      14.00         90.30        140.80         79.94        134.45
      95.00         38.60        156.70         61.47         14.38
      68.00         46.30        164.60         26.40         27.76
      36.50         70.70        175.50         34.43        170.73
      54.50         14.50        180.00         40.00        360.00
      41.00         58.10        197.30         22.54        230.05
      77.00         78.80        209.20         39.31        282.06
      18.50         26.40        229.10         19.99        273.48

 END OF TWO VECTOR RESOLUTION




BACK TO COMP150 PAGE.