Compy Shop Magazin 1989 May/Compy_Shop_Magazin_1989_05___de_Side_B.atr/winkel.i

Text File | 2023-02-26 | 561b | 1 lines

 (* Definition der Winkelfunktionen *)¢¢ (* sec,cosec,tan,cot               *)¢¢ (* arcsin,arcos,arcot              *)¢¢FUNCTION sec(X:REAL):REAL;¢¢BEGIN¢ sec:=1/cos(X)¢END;¢¢FUNCTION cosec(X:REAL):REAL;¢¢BEGIN¢ cosec:=1/sin(X)¢END;¢¢FUNCTION tan(X:REAL):REAL;¢¢BEGIN¢ tan:=sin(X)/cos(X)¢END;¢¢FUNCTION cot(X:REAL):REAL;¢¢BEGIN¢ cot:=cos(X)/sin(X)¢END;¢¢FUNCTION arcsin(X:REAL):REAL;¢¢BEGIN¢ arcsin:=arctan(X/sqrt(1-X*X))¢END;¢¢FUNCTION arcos(X:REAL):REAL;¢¢BEGIN¢ arcos:=arctan(sqrt(1-X*X)/X)¢END;¢¢FUNCTION arcot(X:REAL):REAL;¢¢BEGIN¢ arcot:=arctan(1/X)¢END;¢