Anonymous user
User:Spekkio: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 34:
<lang lisp>
(defun pie() 31415926535897932385/10000000000000000000)
(defun factorial (n)
(if (= n 0)
Line 49 ⟶ 51:
(* (binom alpha (- n 1)) (/ (+ (- alpha n) 1) n))))
(defun
(if (= n 0)
1
(+ (* (binom b n) (powint (- a 1) n)) (
(defun powertest(a b n)
(if
(= (* (power a b (+ 10 n)) 1.0) (* (power a b n) 1.0))
(power a b (+ 10 n))
(powertest a b (+ 10 n))
)
)
(defun pow (a b) (powertest a b 1))
(defun logS(x n) (if (= n 0) (* 2 x) (+ (* 2 (/ (powint x (+ (* 2 n) 1)) (+ (* 2 n) 1))) (logS x (- n 1)) ) ))
Line 60 ⟶ 72:
(defun expon(x n) (if (= n 0) 1 (+ (/ (powint x n) (factorial n)) (expon x (- n 1)))))
(defun
(defun
(if
(= (* (squaren a (+ 10 n)) 1.0) (* (squaren a n) 1.0))
(squaren a (+ 10 n))
(squarentest a (+ 10 n))
)
)
(defun sqrtn (a) (squarentest a 1))
(defun powern(x a n) (expon (* a (loge x n)) n))
(defun powerntest(a b n)
(if
(= (* (powern a b (+ 10 n)) 1.0) (* (powern a b n) 1.0))
(powern a b (+ 10 n))
(powerntest a b (+ 10 n))
)
)
(defun pown (a b) (powerntest a b 1))
(defun sine(x n)
Line 71 ⟶ 103:
(defun sinetest(x n)
(if
(= (* (sine x (
(sine x (+ 10 n))
(sinetest x (
)
)
Line 91 ⟶ 123:
(defun asinetest(x n)
(if
(= (* (asine x (
(asine x (+ 10 n))
(asinetest x (
)
)
(defun myasin (x
(if (< x 1)
(defun fibcalc (n p)▼
(asinetest x 1)
(/ (- (powint (* 1/2 (+ 1 (sqrtFive))) n) (powint (* 1/2 (- 1 (sqrtFive))) n)) (sqrtFive))))▼
(/ (pie) -2)
)
(/ (pie) 2)
)
)
▲ (/ (- (powint (* 1/2 (+ 1 (
(defun fibrec (n)
Line 108 ⟶ 148:
1
(+ (fibrec (- n 1)) (fibrec (- n 2))))))
</lang>
test:
[
0.
[
0.
Compare with Mathematica:
In[14]:= N[ArcSin[
Out
(myasin) seems to be more accurate, though trying to compute (myasin
Test 2:
[4]> (* (myasin (mysin 1)) 1.0)
1.0
[4]> (asin (sin 1))
1.0
| |||