File: math32.l

package info (click to toggle)
picolisp 3.1.0.7-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 4,100 kB
  • sloc: ansic: 14,205; lisp: 795; makefile: 290; sh: 13
file content (34 lines) | stat: -rw-r--r-- 441 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
# 18may10abu
# (c) Software Lab. Alexander Burger

(de pow (X Y)
   (ext:Pow X Y 1.0) )

(de exp (X)
   (ext:Exp X 1.0) )

(de log (X)
   (and (gt0 X) (ext:Log X 1.0)) )

(de sin (A)
   (ext:Sin A 1.0) )

(de cos (A)
   (ext:Cos A 1.0) )

(de tan (A)
   (ext:Tan A 1.0) )

(de asin (A)
   (ext:Asin A 1.0) )

(de acos (A)
   (ext:Acos A 1.0) )

(de atan (A)
   (ext:Atan A 1.0) )

(de atan2 (X Y)
   (ext:Atan2 X Y 1.0) )

# vi:et:ts=3:sw=3