-
Notifications
You must be signed in to change notification settings - Fork 2
/
decscheme.ss
20 lines (20 loc) · 2.54 KB
/
decscheme.ss
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(define (fl0 x) (quasiquote (* 2.50000000000000000e-01 (pow (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))) 2))))
(define (fl1 x) (quasiquote (* -2.50000000000000000e-01 (+ -1.00000000000000000e+00 (pow (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))) 2) (* -2.00000000000000000e+00 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))))))))
(define (fl2 x) (quasiquote (* -2.50000000000000000e-01 (+ -1.00000000000000000e+00 (* -2.00000000000000000e+00 (unquote x)) (pow (unquote x) 2)))))
(define (fl3 x) (quasiquote (* 2.50000000000000000e-01 (pow (unquote x) 2))))
(define (fl4 x) (quasiquote (* 5.00000000000000000e-01 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))))))
(define (fl5 x) (quasiquote (+ (* 2.50000000000000000e-01 (+ 2.00000000000000000e+00 (* -2.00000000000000000e+00 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x)))))) (* 5.00000000000000000e-01 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x)))))))
(define (fl6 x) (quasiquote (* 5.00000000000000000e-01 (unquote x))))
(define (fl7 x) (quasiquote (+ 1.00000000000000000e+00 (* -2.50000000000000000e-01 (pow (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))) 2)))))
(define (fl8 x) (quasiquote (+ (* 2.50000000000000000e-01 (pow (unquote x) 2)) (* -2.50000000000000000e-01 (+ -1.00000000000000000e+00 (* -2.00000000000000000e+00 (unquote x)) (pow (unquote x) 2))))))
(define (fl9 x) (quasiquote (* 2.50000000000000000e-01 (pow (unquote x) 2))))
(define (fl10 x) (quasiquote (* -5.00000000000000000e-01 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))))))
(define (fl11 x) (quasiquote (* -2.50000000000000000e-01 (+ 2.00000000000000000e+00 (* -2.00000000000000000e+00 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))))))))
(define (fl12 x) (quasiquote (* -2.50000000000000000e-01 (+ -2.00000000000000000e+00 (* 2.00000000000000000e+00 (unquote x))))))
(define (fl13 x) (quasiquote (* 5.00000000000000000e-01 (unquote x))))
(define (fl14 x) (quasiquote -5.00000000000000000e-01))
(define (fl15 x) (quasiquote 0.00000000000000000e+00))
(define (fl16 x) (quasiquote 5.00000000000000000e-01))
(define (fl17 x) (quasiquote (* 5.00000000000000000e-01 (+ 1.00000000000000000e+00 (* -1.00000000000000000e+00 (unquote x))))))
(define (fl18 x) (quasiquote (+ (* 5.00000000000000000e-01 (unquote x)) (* -2.50000000000000000e-01 (+ -2.00000000000000000e+00 (* 2.00000000000000000e+00 (unquote x)))))))
(define (fl19 x) (quasiquote (* 5.00000000000000000e-01 (unquote x))))