home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kolekce / d123456 / SIMONS.ZIP / Units / MyMath.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-11-28  |  577 b   |  35 lines
  1. unit MyMath;
  2.  
  3. interface
  4.  
  5. function arccos(x:extended):extended;
  6. function arcsin(x:extended):extended;
  7. function arctan2(a,b:extended):extended;
  8. function tan(x:extended):extended;
  9.  
  10. implementation
  11.  
  12. function Tan(x:extended):extended;
  13. begin
  14.   Result:=sin(x)/cos(x);
  15. end;
  16.  
  17. function ArcTan2(a,b:extended):extended;
  18. begin
  19.   Result:=ArcTan(a/b);
  20.   if b<0 then
  21.     Result:=Result+pi;
  22. end;
  23.  
  24. function ArcSin(x:extended):extended;
  25. begin
  26.   Result:=ArcTan(x/sqrt(1-x*x));
  27. end;
  28.  
  29. function ArcCos(x:extended):extended;
  30. begin
  31.   Result:=pi/2-ArcSin(x);
  32. end;
  33.  
  34. end.
  35.