mathfnx.exp

NASA 开发使用的一个专家系统

"1.850816"
CLIPS> (sech)                             ; 10.6.2.1
[ARGACCES4] Function sech expected exactly 1 argument(s)
CLIPS> (sech a)                           ; 10.6.2.1
[ARGACCES5] Function sech expected argument #1 to be of type integer or float
CLIPS> (sech 1 [b])                       ; 10.6.2.1
[ARGACCES4] Function sech expected exactly 1 argument(s)
CLIPS> (sech 0)                           ; 10.6.2.1 : 1.0
1.0
CLIPS> (format nil "%0.6f" (sech 1.0))    ; 10.6.2.1 : 0.648054
"0.648054"
CLIPS> (format nil "%0.6f" (sech -1.0))   ; 10.6.2.1 : 0.648054
"0.648054"
CLIPS> (format nil "%0.6f" (sech 0.5))    ; 10.6.2.1 : 0.886819
"0.886819"
CLIPS> (sin)                              ; 10.6.2.1 
[ARGACCES4] Function sin expected exactly 1 argument(s)
CLIPS> (sin a)                            ; 10.6.2.1
[ARGACCES5] Function sin expected argument #1 to be of type integer or float
CLIPS> (sin 1 [b])                        ; 10.6.2.1
[ARGACCES4] Function sin expected exactly 1 argument(s)
CLIPS> (format nil "%0.6f" (sin 0.0))     ; 10.6.2.1 : 0.0
"0.000000"
CLIPS> (format nil "%0.6f" (sin ?*pi3/2*)); 10.6.2.1 : -1.0
"-1.000000"
CLIPS> (format nil "%0.6f" (sin ?*pi5/4*)); 10.6.2.1 : -0.707107
"-0.707107"
CLIPS> (format nil "%0.6f" (sin 2))       ; 10.6.2.1 : 0.909297
"0.909297"
CLIPS> (sinh)                             ; 10.6.2.1
[ARGACCES4] Function sinh expected exactly 1 argument(s)
CLIPS> (sinh a)                           ; 10.6.2.1
[ARGACCES5] Function sinh expected argument #1 to be of type integer or float
CLIPS> (sinh 1 [b])                       ; 10.6.2.1
[ARGACCES4] Function sinh expected exactly 1 argument(s)
CLIPS> (sinh 0)                           ; 10.6.2.1 : 0.0
0.0
CLIPS> (format nil "%0.6f" (sinh 1.0))    ; 10.6.2.1 : 1.175201
"1.175201"
CLIPS> (format nil "%0.6f" (sinh -1.0))   ; 10.6.2.1 : -1.175201
"-1.175201"
CLIPS> (format nil "%0.6f" (sinh 0.5))    ; 10.6.2.1 : 0.521095
"0.521095"
CLIPS> (tan)                              ; 10.6.2.1 
[ARGACCES4] Function tan expected exactly 1 argument(s)
CLIPS> (tan a)                            ; 10.6.2.1
[ARGACCES5] Function tan expected argument #1 to be of type integer or float
CLIPS> (tan 1 [b])                        ; 10.6.2.1
[ARGACCES4] Function tan expected exactly 1 argument(s)
CLIPS> (tan 0)                            ; 10.6.2.1 : 0.0
0.0
CLIPS> (tan ?*pi1/2*)                     ; 10.6.2.1 : Error
[EMATHFUN3] Singularity at asymptote in tan function.
0.0
CLIPS> (format nil "%0.6f" (tan ?*pi3/4*)); 10.6.2.1 : -1.0
"-1.000000"
CLIPS> (format nil "%0.6f" (abs (tan ?*pi7*))) ; 10.6.2.1 : 0.0
"0.000000"
CLIPS> (format nil "%0.6f" (tan 1))       ; 10.6.2.1 : 1.557408
"1.557408"
CLIPS> (tanh)                             ; 10.6.2.1
[ARGACCES4] Function tanh expected exactly 1 argument(s)
CLIPS> (tanh a)                           ; 10.6.2.1
[ARGACCES5] Function tanh expected argument #1 to be of type integer or float
CLIPS> (tanh 1 [b])                       ; 10.6.2.1
[ARGACCES4] Function tanh expected exactly 1 argument(s)
CLIPS> (tanh 0)                           ; 10.6.2.1 : 0.0
0.0
CLIPS> (format nil "%0.6f" (tanh 1.0))    ; 10.6.2.1 : 0.761594
"0.761594"
CLIPS> (format nil "%0.6f" (tanh -1.0))   ; 10.6.2.1 : -0.761594
"-0.761594"
CLIPS> (format nil "%0.6f" (tanh 0.5))    ; 10.6.2.1 : 0.462117
"0.462117"
CLIPS> (deg-grad)                         ; 10.6.2.2
[ARGACCES4] Function deg-grad expected exactly 1 argument(s)
CLIPS> (deg-grad (create$))               ; 10.6.2.2
[ARGACCES5] Function deg-grad expected argument #1 to be of type integer or float
CLIPS> (deg-grad 0 0.0)                   ; 10.6.2.2
[ARGACCES4] Function deg-grad expected exactly 1 argument(s)
CLIPS> (deg-grad 360)                     ; 10.6.2.2 : 400.0
400.0
CLIPS> (deg-grad -90.0)                   ; 10.6.2.2 : -100.0
-100.0
CLIPS> (deg-grad 540.0)                   ; 10.6.2.2 : 600.0
600.0
CLIPS> (deg-grad -720.0)                  ; 10.6.2.2 : -800.0
-800.0
CLIPS> (deg-rad)                          ; 10.6.2.3
[ARGACCES4] Function deg-rad expected exactly 1 argument(s)
CLIPS> (deg-rad a)                        ; 10.6.2.3
[ARGACCES5] Function deg-rad expected argument #1 to be of type integer or float
CLIPS> (deg-rad 360 9.3)                  ; 10.6.2.3
[ARGACCES4] Function deg-rad expected exactly 1 argument(s)
CLIPS> (deg-rad 0.0)                      ; 10.6.2.3 : 0.0
0.0
CLIPS> (format nil "%0.6f" (deg-rad 360)) ; 10.6.2.3 : 6.283185
"6.283185"
CLIPS> (format nil "%0.6f" (deg-rad -90.0))  ; 10.6.2.3 : -1.570796
"-1.570796"
CLIPS> (format nil "%0.6f" (deg-rad 1800.0)) ; 10.6.2.3 : 31.415927
"31.415927"
CLIPS> (grad-deg)                         ; 10.6.2.4
[ARGACCES4] Function grad-deg expected exactly 1 argument(s)
CLIPS> (grad-deg a)                       ; 10.6.2.4
[ARGACCES5] Function grad-deg expected argument #1 to be of type integer or float
CLIPS> (grad-deg 400 90)                  ; 10.6.2.4
[ARGACCES4] Function grad-deg expected exactly 1 argument(s)
CLIPS> (grad-deg 0)                       ; 10.6.2.4 : 0.0
0.0
CLIPS> (grad-deg 100)                     ; 10.6.2.4 : 90.0
90.0
CLIPS> (grad-deg -800.0)                  ; 10.6.2.4 : -720.0
-720.0
CLIPS> (grad-deg 600.0)                   ; 10.6.2.4 : 540.0
540.0
CLIPS> (rad-deg)                          ; 10.6.2.5
[ARGACCES4] Function rad-deg expected exactly 1 argument(s)
CLIPS> (rad-deg a)                        ; 10.6.2.5
[ARGACCES5] Function rad-deg expected argument #1 to be of type integer or float
CLIPS> (rad-deg (pi) a))                  ; 10.6.2.5
[ARGACCES4] Function rad-deg expected exactly 1 argument(s)
CLIPS> (rad-deg 0)                        ; 10.6.2.5 : 0.0
0.0
CLIPS> (rad-deg (pi))                     ; 10.6.2.5 : 180.0
180.0
CLIPS> (format nil "%0.6f" (rad-deg ?*pi-9/2*)) ; 10.6.2.5 : -810.0
"-810.000000"
CLIPS> (rad-deg ?*pi7*)                   ; 10.6.2.5 : 1260.0
1260.0
CLIPS> (format nil "%0.6f" (pi))          ; 10.6.2.6 : 3.141593
"3.141593"
CLIPS> (pi 3.14)                          ; 10.6.2.6
[ARGACCES4] Function pi expected exactly 0 argument(s)
CLIPS> (sqrt)                             ; 10.6.2.7
[ARGACCES4] Function sqrt expected exactly 1 argument(s)
CLIPS> (sqrt a)                           ; 10.6.2.7
[ARGACCES5] Function sqrt expected argument #1 to be of type integer or float
CLIPS> (sqrt 9 3)                         ; 10.6.2.7
[ARGACCES4] Function sqrt expected exactly 1 argument(s)
CLIPS> (sqrt -9)                          ; 10.6.2.7
[EMATHFUN1] Domain error for sqrt function.
0.0
CLIPS> (format nil "%0.6f" (sqrt 2))      ; 10.6.2.7 : 1.414214
"1.414214"
CLIPS> (sqrt 16)                          ; 10.6.2.7 : 4.0
4.0
CLIPS> (sqrt 9.0)                         ; 10.6.2.7 : 3.0
3.0
CLIPS> (sqrt 10.89)                       ; 10.6.2.7 : 3.3
3.3
CLIPS> (**)                               ; 10.6.2.8
[ARGACCES4] Function ** expected exactly 2 argument(s)
CLIPS> (** 3)                             ; 10.6.2.8
[ARGACCES4] Function ** expected exactly 2 argument(s)
CLIPS> (** 3 a)                           ; 10.6.2.8
[ARGACCES5] Function ** expected argument #2 to be of type integer or float
CLIPS> (** 3 2 1)                         ; 10.6.2.8
[ARGACCES4] Function ** expected exactly 2 argument(s)
CLIPS> (format nil "%0.6f" (** -3 -2))    ; 10.6.2.8 : 0.111111
"0.111111"
CLIPS> (** 3 2)                           ; 10.6.2.8 : 9.0
9.0
CLIPS> (** 4.0 3)                         ; 10.6.2.8 : 64.0
64.0
CLIPS> (** 3 3.0)                         ; 10.6.2.8 : 27.0
27.0
CLIPS> (format nil "%0.6f" (** 27.0 (/ 1 3))); 10.6.2.8 : 3.0
"3.000000"
CLIPS> (** -3 3)                          ; 10.6.2.8 : -27.0
-27.0
CLIPS> (format nil "%0.6f" (** 10.89 -2.0)); 10.6.2.8 : 0.008432
"0.008432"
CLIPS> (format nil "%0.6f" (** 10.89 0.5)); 10.6.2.8 : 3.3
"3.300000"
CLIPS> (format nil "%0.6f" (** 2.1 3.2))  ; 10.6.2.8 : 10.742410
"10.742410"
CLIPS> (exp)                              ; 10.6.2.9
[ARGACCES4] Function exp expected exactly 1 argument(s)
CLIPS> (exp a)                            ; 10.6.2.9
[ARGACCES5] Function exp expected argument #1 to be of type integer or float
CLIPS> (exp 20 3.5)                       ; 10.6.2.9
[ARGACCES4] Function exp expected exactly 1 argument(s)
CLIPS> (format nil "%0.6f" (exp -3.3))    ; 10.6.2.9 : 0.036883
"0.036883"
CLIPS> (exp 0)                            ; 10.6.2.9 : 1
1.0
CLIPS> (format nil "%0.6f" (exp 1))       ; 10.6.2.9 : 2.171828
"2.718282"
CLIPS> (format nil "%0.6f" (exp 2.0))     ; 10.6.2.9 : 7.389056
"7.389056"
CLIPS> (log)                              ; 10.6.2.10
[ARGACCES4] Function log expected exactly 1 argument(s)
CLIPS> (log a)                            ; 10.6.2.10
[ARGACCES5] Function log expected argument #1 to be of type integer or float
CLIPS> (log 20 3.5)                       ; 10.6.2.10
[ARGACCES4] Function log expected exactly 1 argument(s)
CLIPS> (log -5.3)                         ; 10.6.2.10 : Error
[EMATHFUN1] Domain error for log function.
0.0
CLIPS> (log 0)                            ; 10.6.2.10 : -Infinity
[EMATHFUN2] Argument overflow for log function.
0.0
CLIPS> (format nil "%0.6f" (log 2.71828)) ; 10.6.2.10 : 0.999999
"0.999999"
CLIPS> (format nil "%0.6f" (log 2.0))     ; 10.6.2.10 : 0.693147
"0.693147"
CLIPS> (format nil "%0.6f" (log 2))       ; 10.6.2.10 : 0.693147
"0.693147"
CLIPS> (log10 a)                          ; 10.6.2.11
[ARGACCES5] Function log10 expected argument #1 to be of type integer or float
CLIPS> (log10 100 10)                     ; 10.6.2.11
[ARGACCES4] Function log10 expected exactly 1 argument(s)
CLIPS> (log10 -100)                       ; 10.6.2.11 : Error
[EMATHFUN1] Domain error for log10 function.
0.0
CLIPS> (log10 0)                          ; 10.6.2.11 : -Infinity
[EMATHFUN2] Argument overflow for log10 function.
0.0
CLIPS> (log10 0.01)                       ; 10.6.2.11 : -2.0
-2.0
CLIPS> (log10 0.1)                        ; 10.6.2.11 : -1.0
-1.0
CLIPS> (log10 1)                          ; 10.6.2.11 : 0.0
0.0
CLIPS> (log10 10)                         ; 10.6.2.11 : 1.0
1.0
CLIPS> (log10 100)                        ; 10.6.2.11 : 2.0
2.0
CLIPS> (format nil "%0.6f" (log10 2.0))   ; 10.6.2.11 : 0.301030
"0.301030"
CLIPS> (round)                            ; 10.6.2.12
[ARGACCES4] Function round expected exactly 1 argument(s)
CLIPS> (round a)                          ; 10.6.2.12
[ARGACCES5] Function round expected argument #1 to be of type integer or float
CLIPS> (round 3.8 2)                      ; 10.6.2.12
[ARGACCES4] Function round expected exactly 1 argument(s)
CLIPS> (round 0)                          ; 10.6.2.12 : 0
0
CLIPS> (round 4)                          ; 10.6.2.12 : 4
4
CLIPS> (round -4)                         ; 10.6.2.12 : -4
-4
CLIPS> (round 3.6)                        ; 10.6.2.12 : 4
4
CLIPS> (round 3.5)                        ; 10.6.2.12 : 3
3
CLIPS> (round 3.4)                        ; 10.6.2.12 : 3
3
CLIPS> (round -3.6)                       ; 10.6.2.12 : -4
-4
CLIPS> (round -3.5)                       ; 10.6.2.12 : -4
-4
CLIPS> (round -3.4)                       ; 10.6.2.12 : -3
-3
CLIPS> (mod)                              ; 10.6.2.13
[ARGACCES4] Function mod expected exactly 2 argument(s)
CLIPS> (mod 3)                            ; 10.6.2.13
[ARGACCES4] Function mod expected exactly 2 argument(s)
CLIPS> (mod 3 a)                          ; 10.6.2.13
[ARGACCES5] Function mod expected argument #2 to be of type integer or float
CLIPS> (mod 7 0)                          ; 10.6.2.13
[PRNTUTIL7] Attempt to divide by zero in mod function.
0
CLIPS> (mod 5.0 0.0)                      ; 10.6.2.13
[PRNTUTIL7] Attempt to divide by zero in mod function.
0
CLIPS> (mod 3 2 1)                        ; 10.6.2.13
[ARGACCES4] Function mod expected exactly 2 argument(s)
CLIPS> (mod 5 2.0)                        ; 10.6.2.13 : 1.0
1.0
CLIPS> (mod 5.0 2)                        ; 10.6.2.13 : 1.0
1.0
CLIPS> (mod -5 2)                         ; 10.6.2.13 : -1
-1
CLIPS> (mod 10.0 4.0)                     ; 10.6.2.13 : 2.0
2.0
CLIPS> (mod 5 2)                          ; 10.6.2.13 : 1
1
CLIPS> (format nil "%0.6f" (mod 3.7 1.2)) ; 10.6.2.13 : 0.1
"0.100000"
CLIPS> (clear)
CLIPS> (dribble-off)