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
35
36
|
;; -*-theme-d-*-
;; Copyright (C) 2014 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.
;; Expected results: translation and running OK
(define-proper-program (tests test238)
(import (standard-library core)
(standard-library math)
(standard-library console-io)
(tests numerical-test-env))
(define-main-proc (() <none> nonpure)
(report-test (expt 1.5 2.5) 2.7556759606310752)
(report-test (sqrt 1.5) 1.22474487139159)
(report-test (sin 1.5) 0.997494986604054)
(report-test (cos 1.5) 0.0707372016677029)
(report-test (tan 1.5) 14.1014199471717)
(report-test (asin 0.5) 0.523598775598299)
(report-test (acos 0.5) 1.0471975511966)
(report-test (atan 0.5) 0.463647609000806)
(report-test (exp 2.5) 12.1824939607035)
(report-test (log 2.5) 0.916290731874155)
(report-test (log10 2.5) 0.397940008672038)
(report-test (sinh 2.5) 6.05020448103979)
(report-test (cosh 2.5) 6.13228947966369)
(report-test (tanh 2.5) 0.98661429815143)
(report-test (asinh 0.6) 0.568824898732248)
(report-test (acosh 1.5) 0.962423650119207)
(report-test (atanh 0.6) 0.693147180559945)
(report-test (atan2 2.0 1.0) 1.1071487177940904)))
|
