how can i convert this formula to fortran?

[lemong]

how can i convert this formula to fortran?

I used print *, Distance(d) and Elevation Angle(theta)

 

[BradtheRad]

Could this be an exercise in learning to co-exist with fussy programming languages? Were you told to use a particular variant?

We learned Fortran programming in school circa 1970. It was fussy about syntax of the PRINT statement. You had to designate the number of columns for integer and fractional portions. (Later Fortran versions are not so fussy.)

When we wrote a single long mathematical calculation, we found it's easy to make a mistake. Therefore it's wise to do a calculation in segments, breaking it up over several lines. Then if we made a mistake, the compiler tells us exactly which line has the error.

- - - Updated - - -

Every line had to be numbered. It's a good idea to do them in increments of 10, because it's inevitable you'll want room to add more lines in between, as you revise your program.

 

[c_mitra]

Every line had to be numbered. .

This is not correct; we need to label the statement with number (numeric label) if that particular statement is a target.

I learnt FORTRAN around the same time (1974); the only other computer programming languages suitable for scientific computations was ALGOL (that was popular in the Europe). I used FORTRAN till 1984 and then changed over to PASCAL and then to C. I still consider FORTRAN a good programming language for scientific work and even today thousands of scientists use fortran routinely.

- - - Updated - - -

I used print *, Distance(d) and Elevation Angle(theta)

It is D1+D2*TAN(THETA*3.1415/180)
C D1, D2 are in feet; THETA in degrees

 

[BradtheRad]

This is not correct; we need to label the statement with number (numeric label) if that particular statement is a target.

Then I guess I used an earlier version. The punch cards had to be in sequence. Line numbers were essential in case the cards got out of order, which was easy to do.

 

[c_mitra]

Line numbers were essential in case the cards got out of order, which was easy to do.

Right; the sequence was given in the columns 73-80 that were ignored by the compiler. Column 1 was for comment. Column 6 was for continuation mark.

That was the first programming language I learnt when I joined for Ph.D. - it was good time.

 

[horace1]

try

  real D1, D2, THETA, result
  D1=4
  D2=50
  THETA=30
  result = D1+D2*TAN(THETA*3.1415/180)
  print *, "result = ", result

when run gives

 result =    32.8664856
Press any key to continue . . .