picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

math32.l (441B)

      1 # 18may10abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (de pow (X Y)
      5    (ext:Pow X Y 1.0) )
      6 
      7 (de exp (X)
      8    (ext:Exp X 1.0) )
      9 
     10 (de log (X)
     11    (and (gt0 X) (ext:Log X 1.0)) )
     12 
     13 (de sin (A)
     14    (ext:Sin A 1.0) )
     15 
     16 (de cos (A)
     17    (ext:Cos A 1.0) )
     18 
     19 (de tan (A)
     20    (ext:Tan A 1.0) )
     21 
     22 (de asin (A)
     23    (ext:Asin A 1.0) )
     24 
     25 (de acos (A)
     26    (ext:Acos A 1.0) )
     27 
     28 (de atan (A)
     29    (ext:Atan A 1.0) )
     30 
     31 (de atan2 (X Y)
     32    (ext:Atan2 X Y 1.0) )
     33 
     34 # vi:et:ts=3:sw=3