picolisp

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

math64.l (843B)

      1 # 02aug10abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (setq
      5    "Dbl1" (0 . 1.0)
      6    "Dbl2" (0 . 1.0) )
      7 
      8 (de pow (X Y)
      9    (set "Dbl1" X  "Dbl2" Y)
     10    (native "@" "pow" 1.0 "Dbl1" "Dbl2") )
     11 
     12 (de exp (X)
     13    (set "Dbl1" X)
     14    (native "@" "exp" 1.0 "Dbl1") )
     15 
     16 (de log (X)
     17    (when (gt0 (set "Dbl1" X))
     18       (native "@" "log" 1.0 "Dbl1") ) )
     19 
     20 (de sin (A)
     21    (set "Dbl1" A)
     22    (native "@" "sin" 1.0 "Dbl1") )
     23 
     24 (de cos (A)
     25    (set "Dbl1" A)
     26    (native "@" "cos" 1.0 "Dbl1") )
     27 
     28 (de tan (A)
     29    (set "Dbl1" A)
     30    (native "@" "tan" 1.0 "Dbl1") )
     31 
     32 (de asin (A)
     33    (set "Dbl1" A)
     34    (native "@" "asin" 1.0 "Dbl1") )
     35 
     36 (de acos (A)
     37    (set "Dbl1" A)
     38    (native "@" "acos" 1.0 "Dbl1") )
     39 
     40 (de atan (A)
     41    (set "Dbl1" A)
     42    (native "@" "atan" 1.0 "Dbl1") )
     43 
     44 (de atan2 (X Y)
     45    (set "Dbl1" X  "Dbl2" Y)
     46    (native "@" "atan2" 1.0 "Dbl1" "Dbl2") )
     47 
     48 # vi:et:ts=3:sw=3