From 05cfb9bf2461785ec621b490747f48b96344017f Mon Sep 17 00:00:00 2001 From: ubq323 Date: Sat, 17 Aug 2024 12:35:43 +0100 Subject: sin, cos, more checks --- tests/sincos.bth | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 tests/sincos.bth (limited to 'tests/sincos.bth') diff --git a/tests/sincos.bth b/tests/sincos.bth new file mode 100644 index 0000000..7f6a135 --- /dev/null +++ b/tests/sincos.bth @@ -0,0 +1,37 @@ +(defn (ts x) + (* 10 (+ 1 (sin x)))) +(defn (tc x) + (* 10 (+ 1 (cos x)))) +(set! _G_ts ts) +(set! _G_tc tc) + +(defn (min x y) + (if (< x y) x y)) +(defn (max x y) + (if (< x y) y x)) +(set! _G_min min) +(set! _G_max max) + +(defn (ws n) + (for (i (- n 1)) (write " ")) + (say 'x)) +(set! _G_ws ws) + +(defn (p2 t) + (let (s (_G_ts t) + c (_G_tc t) + fs (floor s) + fc (floor c) + m (_G_min fs fc) + M (_G_max fs fc) + d (- M m)) + (if (= 0 d) + (_G_ws m) + (do (_G_ws m) (_G_ws d))))) + + + + + +(for (i 100) (p2 (/ i 16))) + -- cgit v1.2.3