Cosinus, Sinus und Tangens eines Winkels berechnen

C     Aufruf:

C     CALL PTH054 (W,CW,SW)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     W  : Winkel (in Grad)

C     CW : Cosinus-Wert (Rückgabewert)

C     SW : Sinus-Wert (Rückgabewert)

C     

C     Beispiel:

C     --------------------------------------------------

C     Cosinus, Sinus und Tangens eines Winkels berechnen

C     --------------------------------------------------

      W = 35.0

      CALL PTH054 (W,CW,SW)

C     

C     Tangens (TW) berechnen

      TW = SW / CW