home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 37.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 6d 61 74 68 20 | 6e 69 6c 20 28 62 79 74 |lc-math |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 73 71 72 74 20 | 28 61 72 67 29 20 28 69 |lc-sqrt |(arg) (i|
|00000070| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00000080| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00000090| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|000000a0| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|000000b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 20 83 0d 00 |byte-cod|e ". ...|
|000000c0| c2 c3 c4 08 23 82 12 00 | c2 c5 c6 08 23 87 22 20 |....#...|....#." |
|000000d0| 5b 61 72 67 20 63 61 6c | 63 2d 69 73 2d 69 6e 76 |[arg cal|c-is-inv|
|000000e0| 65 72 73 65 20 63 61 6c | 63 2d 75 6e 61 72 79 2d |erse cal|c-unary-|
|000000f0| 6f 70 20 22 5e 32 22 20 | 63 61 6c 63 46 75 6e 63 |op "^2" |calcFunc|
|00000100| 2d 73 71 72 20 22 73 71 | 72 74 22 20 63 61 6c 63 |-sqr "sq|rt" calc|
|00000110| 46 75 6e 63 2d 73 71 72 | 74 5d 20 36 29 29 20 31 |Func-sqr|t] 6)) 1|
|00000120| 31 36 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |16] 3)).|.(defun |
|00000130| 63 61 6c 63 2d 69 73 71 | 72 74 20 28 61 72 67 29 |calc-isq|rt (arg)|
|00000140| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000150| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|00000160| 88 c1 c2 c3 5c 22 87 22 | 20 5b 6e 69 6c 20 63 61 |....\"."| [nil ca|
|00000170| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|00000180| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 20 |l (byte-|code ". |
|00000190| 83 0d 00 c2 c3 c4 08 23 | 82 12 00 c2 c5 c6 08 23 |.......#|.......#|
|000001a0| 87 22 20 5b 61 72 67 20 | 63 61 6c 63 2d 69 73 2d |." [arg |calc-is-|
|000001b0| 69 6e 76 65 72 73 65 20 | 63 61 6c 63 2d 75 6e 61 |inverse |calc-una|
|000001c0| 72 79 2d 6f 70 20 22 5e | 32 22 20 63 61 6c 63 46 |ry-op "^|2" calcF|
|000001d0| 75 6e 63 2d 73 71 72 20 | 22 69 73 71 74 22 20 63 |unc-sqr |"isqt" c|
|000001e0| 61 6c 63 46 75 6e 63 2d | 69 73 71 72 74 5d 20 36 |alcFunc-|isqrt] 6|
|000001f0| 29 29 20 33 32 36 5d 20 | 33 29 29 0a 0a 28 64 65 |)) 326] |3))..(de|
|00000200| 66 75 6e 20 63 61 6c 63 | 2d 68 79 70 6f 74 20 28 |fun calc|-hypot (|
|00000210| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00000220| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000230| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|00000240| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00000250| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00000260| 20 22 c1 c2 c3 08 23 87 | 22 20 5b 61 72 67 20 63 | "....#.|" [arg c|
|00000270| 61 6c 63 2d 62 69 6e 61 | 72 79 2d 6f 70 20 22 68 |alc-bina|ry-op "h|
|00000280| 79 70 74 22 20 63 61 6c | 63 46 75 6e 63 2d 68 79 |ypt" cal|cFunc-hy|
|00000290| 70 6f 74 5d 20 34 29 29 | 20 35 33 38 5d 20 33 29 |pot] 4))| 538] 3)|
|000002a0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6c |)..(defu|n calc-l|
|000002b0| 6e 20 28 61 72 67 29 20 | 28 69 6e 74 65 72 61 63 |n (arg) |(interac|
|000002c0| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|000002d0| 63 6f 64 65 20 22 c1 88 | c2 20 88 c3 08 21 87 22 |code "..|. ...!."|
|000002e0| 20 5b 61 72 67 20 6e 69 | 6c 20 63 61 6c 63 2d 69 | [arg ni|l calc-i|
|000002f0| 6e 76 65 72 74 2d 66 75 | 6e 63 20 63 61 6c 63 2d |nvert-fu|nc calc-|
|00000300| 65 78 70 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |exp] 3))|..(defun|
|00000310| 20 63 61 6c 63 2d 6c 6f | 67 31 30 20 28 61 72 67 | calc-lo|g10 (arg|
|00000320| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000330| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000340| c1 88 c2 20 88 c3 08 21 | 87 22 20 5b 61 72 67 20 |... ...!|." [arg |
|00000350| 6e 69 6c 20 63 61 6c 63 | 2d 68 79 70 65 72 62 6f |nil calc|-hyperbo|
|00000360| 6c 69 63 2d 66 75 6e 63 | 20 63 61 6c 63 2d 6c 6e |lic-func| calc-ln|
|00000370| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00000380| 6c 63 2d 6c 6f 67 20 28 | 61 72 67 29 20 28 69 6e |lc-log (|arg) (in|
|00000390| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|000003a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 c3 |byte-cod|e ".....|
|000003b0| 5c 22 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |\"." [ni|l calc-d|
|000003c0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|000003d0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 20 83 0d 00 c2 |yte-code| ". ....|
|000003e0| c3 c4 08 23 82 12 00 c2 | c5 c6 08 23 87 22 20 5b |...#....|...#." [|
|000003f0| 61 72 67 20 63 61 6c 63 | 2d 69 73 2d 69 6e 76 65 |arg calc|-is-inve|
|00000400| 72 73 65 20 63 61 6c 63 | 2d 62 69 6e 61 72 79 2d |rse calc|-binary-|
|00000410| 6f 70 20 22 61 6c 6f 67 | 22 20 63 61 6c 63 46 75 |op "alog|" calcFu|
|00000420| 6e 63 2d 61 6c 6f 67 20 | 22 6c 6f 67 22 20 63 61 |nc-alog |"log" ca|
|00000430| 6c 63 46 75 6e 63 2d 6c | 6f 67 5d 20 36 29 29 20 |lcFunc-l|og] 6)) |
|00000440| 39 31 36 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |916] 3))|..(defun|
|00000450| 20 63 61 6c 63 2d 69 6c | 6f 67 20 28 61 72 67 29 | calc-il|og (arg)|
|00000460| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000470| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|00000480| 88 c1 c2 c3 5c 22 87 22 | 20 5b 6e 69 6c 20 63 61 |....\"."| [nil ca|
|00000490| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|000004a0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 20 |l (byte-|code ". |
|000004b0| 83 0d 00 c2 c3 c4 08 23 | 82 12 00 c2 c5 c6 08 23 |.......#|.......#|
|000004c0| 87 22 20 5b 61 72 67 20 | 63 61 6c 63 2d 69 73 2d |." [arg |calc-is-|
|000004d0| 69 6e 76 65 72 73 65 20 | 63 61 6c 63 2d 62 69 6e |inverse |calc-bin|
|000004e0| 61 72 79 2d 6f 70 20 22 | 61 6c 6f 67 22 20 63 61 |ary-op "|alog" ca|
|000004f0| 6c 63 46 75 6e 63 2d 61 | 6c 6f 67 20 22 69 6c 6f |lcFunc-a|log "ilo|
|00000500| 67 22 20 63 61 6c 63 46 | 75 6e 63 2d 69 6c 6f 67 |g" calcF|unc-ilog|
|00000510| 5d 20 36 29 29 20 31 31 | 32 37 5d 20 33 29 29 0a |] 6)) 11|27] 3)).|
|00000520| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 6c 6e 70 |.(defun |calc-lnp|
|00000530| 31 20 28 61 72 67 29 20 | 28 69 6e 74 65 72 61 63 |1 (arg) |(interac|
|00000540| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00000550| 63 6f 64 65 20 22 c1 88 | c2 20 88 c3 08 21 87 22 |code "..|. ...!."|
|00000560| 20 5b 61 72 67 20 6e 69 | 6c 20 63 61 6c 63 2d 69 | [arg ni|l calc-i|
|00000570| 6e 76 65 72 74 2d 66 75 | 6e 63 20 63 61 6c 63 2d |nvert-fu|nc calc-|
|00000580| 65 78 70 6d 31 5d 20 33 | 29 29 0a 0a 28 64 65 66 |expm1] 3|))..(def|
|00000590| 75 6e 20 63 61 6c 63 2d | 65 78 70 20 28 61 72 67 |un calc-|exp (arg|
|000005a0| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|000005b0| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|000005c0| c0 88 c1 c2 c3 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |.....\".|" [nil c|
|000005d0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|000005e0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|000005f0| 20 83 1a 00 c2 20 83 12 | 00 c3 c4 c5 08 23 82 17 | .... ..|.....#..|
|00000600| 00 c3 c6 c7 08 23 82 2c | 00 c2 20 83 27 00 c3 c8 |.....#.,|.. .'...|
|00000610| c9 08 23 82 2c 00 c3 ca | cb 08 23 87 22 20 5b 61 |..#.,...|..#." [a|
|00000620| 72 67 20 63 61 6c 63 2d | 69 73 2d 68 79 70 65 72 |rg calc-|is-hyper|
|00000630| 62 6f 6c 69 63 20 63 61 | 6c 63 2d 69 73 2d 69 6e |bolic ca|lc-is-in|
|00000640| 76 65 72 73 65 20 63 61 | 6c 63 2d 75 6e 61 72 79 |verse ca|lc-unary|
|00000650| 2d 6f 70 20 22 6c 67 31 | 30 22 20 63 61 6c 63 46 |-op "lg1|0" calcF|
|00000660| 75 6e 63 2d 6c 6f 67 31 | 30 20 22 31 30 5e 22 20 |unc-log1|0 "10^" |
|00000670| 63 61 6c 63 46 75 6e 63 | 2d 65 78 70 31 30 20 22 |calcFunc|-exp10 "|
|00000680| 6c 6e 22 20 63 61 6c 63 | 46 75 6e 63 2d 6c 6e 20 |ln" calc|Func-ln |
|00000690| 22 65 78 70 22 20 63 61 | 6c 63 46 75 6e 63 2d 65 |"exp" ca|lcFunc-e|
|000006a0| 78 70 5d 20 31 30 29 29 | 20 31 34 34 39 5d 20 33 |xp] 10))| 1449] 3|
|000006b0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000006c0| 65 78 70 6d 31 20 28 61 | 72 67 29 20 28 69 6e 74 |expm1 (a|rg) (int|
|000006d0| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|000006e0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 c3 5c |yte-code| ".....\|
|000006f0| 22 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |"." [nil| calc-do|
|00000700| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00000710| 74 65 2d 63 6f 64 65 20 | 22 c1 20 83 0d 00 c2 c3 |te-code |". .....|
|00000720| c4 08 23 82 12 00 c2 c5 | c6 08 23 87 22 20 5b 61 |..#.....|..#." [a|
|00000730| 72 67 20 63 61 6c 63 2d | 69 73 2d 69 6e 76 65 72 |rg calc-|is-inver|
|00000740| 73 65 20 63 61 6c 63 2d | 75 6e 61 72 79 2d 6f 70 |se calc-|unary-op|
|00000750| 20 22 6c 6e 2b 31 22 20 | 63 61 6c 63 46 75 6e 63 | "ln+1" |calcFunc|
|00000760| 2d 6c 6e 70 31 20 22 65 | 78 2d 31 22 20 63 61 6c |-lnp1 "e|x-1" cal|
|00000770| 63 46 75 6e 63 2d 65 78 | 70 6d 31 5d 20 36 29 29 |cFunc-ex|pm1] 6))|
|00000780| 20 31 37 34 35 5d 20 33 | 29 29 0a 0a 28 64 65 66 | 1745] 3|))..(def|
|00000790| 75 6e 20 63 61 6c 63 2d | 70 69 20 6e 69 6c 20 28 |un calc-|pi nil (|
|000007a0| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|000007b0| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|000007c0| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|000007d0| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|000007e0| 65 2d 63 6f 64 65 20 22 | c1 20 83 34 00 c2 20 83 |e-code "|. .4.. .|
|000007f0| 1f 00 08 83 16 00 c3 c4 | c5 c6 23 82 1c 00 c3 c4 |........|..#.....|
|00000800| c5 c7 20 23 82 31 00 08 | 83 2b 00 c3 c4 c8 c9 23 |.. #.1..|.+.....#|
|00000810| 82 31 00 c3 c4 c8 ca 20 | 23 82 60 00 c2 20 83 4e |.1..... |#.`.. .N|
|00000820| 00 08 83 45 00 c3 c4 cb | cc 23 82 4b 00 c3 c4 cb |...E....|.#.K....|
|00000830| cd 20 23 82 60 00 08 83 | 5a 00 c3 c4 ce cf 23 82 |. #.`...|Z.....#.|
|00000840| 60 00 c3 c4 ce d0 20 23 | 87 22 20 5b 63 61 6c 63 |`..... #|." [calc|
|00000850| 2d 73 79 6d 62 6f 6c 69 | 63 2d 6d 6f 64 65 20 63 |-symboli|c-mode c|
|00000860| 61 6c 63 2d 69 73 2d 69 | 6e 76 65 72 73 65 20 63 |alc-is-i|nverse c|
|00000870| 61 6c 63 2d 69 73 2d 68 | 79 70 65 72 62 6f 6c 69 |alc-is-h|yperboli|
|00000880| 63 20 63 61 6c 63 2d 70 | 6f 70 2d 70 75 73 68 2d |c calc-p|op-push-|
|00000890| 72 65 63 6f 72 64 20 30 | 20 22 70 68 69 22 20 28 |record 0| "phi" (|
|000008a0| 76 61 72 20 70 68 69 20 | 76 61 72 2d 70 68 69 29 |var phi |var-phi)|
|000008b0| 20 6d 61 74 68 2d 70 68 | 69 20 22 67 6d 6d 61 22 | math-ph|i "gmma"|
|000008c0| 20 28 76 61 72 20 67 61 | 6d 6d 61 20 76 61 72 2d | (var ga|mma var-|
|000008d0| 67 61 6d 6d 61 29 20 6d | 61 74 68 2d 67 61 6d 6d |gamma) m|ath-gamm|
|000008e0| 61 2d 63 6f 6e 73 74 20 | 22 65 22 20 28 76 61 72 |a-const |"e" (var|
|000008f0| 20 65 20 76 61 72 2d 65 | 29 20 6d 61 74 68 2d 65 | e var-e|) math-e|
|00000900| 20 22 70 69 22 20 28 76 | 61 72 20 70 69 20 76 61 | "pi" (v|ar pi va|
|00000910| 72 2d 70 69 29 20 6d 61 | 74 68 2d 70 69 5d 20 31 |r-pi) ma|th-pi] 1|
|00000920| 38 29 29 20 31 39 36 31 | 5d 20 33 29 29 0a 0a 28 |8)) 1961|] 3))..(|
|00000930| 64 65 66 75 6e 20 63 61 | 6c 63 2d 73 69 6e 20 28 |defun ca|lc-sin (|
|00000940| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00000950| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000960| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|00000970| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00000980| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00000990| 20 22 c1 20 83 1a 00 c2 | 20 83 12 00 c3 c4 c5 08 | ". ....| .......|
|000009a0| 23 82 17 00 c3 c6 c7 08 | 23 82 2c 00 c2 20 83 27 |#.......|#.,.. .'|
|000009b0| 00 c3 c8 c9 08 23 82 2c | 00 c3 ca cb 08 23 87 22 |.....#.,|.....#."|
|000009c0| 20 5b 61 72 67 20 63 61 | 6c 63 2d 69 73 2d 68 79 | [arg ca|lc-is-hy|
|000009d0| 70 65 72 62 6f 6c 69 63 | 20 63 61 6c 63 2d 69 73 |perbolic| calc-is|
|000009e0| 2d 69 6e 76 65 72 73 65 | 20 63 61 6c 63 2d 75 6e |-inverse| calc-un|
|000009f0| 61 72 79 2d 6f 70 20 22 | 61 73 6e 68 22 20 63 61 |ary-op "|asnh" ca|
|00000a00| 6c 63 46 75 6e 63 2d 61 | 72 63 73 69 6e 68 20 22 |lcFunc-a|rcsinh "|
|00000a10| 73 69 6e 68 22 20 63 61 | 6c 63 46 75 6e 63 2d 73 |sinh" ca|lcFunc-s|
|00000a20| 69 6e 68 20 22 61 73 69 | 6e 22 20 63 61 6c 63 46 |inh "asi|n" calcF|
|00000a30| 75 6e 63 2d 61 72 63 73 | 69 6e 20 22 73 69 6e 22 |unc-arcs|in "sin"|
|00000a40| 20 63 61 6c 63 46 75 6e | 63 2d 73 69 6e 5d 20 31 | calcFun|c-sin] 1|
|00000a50| 30 29 29 20 32 33 38 30 | 5d 20 33 29 29 0a 0a 28 |0)) 2380|] 3))..(|
|00000a60| 64 65 66 75 6e 20 63 61 | 6c 63 2d 61 72 63 73 69 |defun ca|lc-arcsi|
|00000a70| 6e 20 28 61 72 67 29 20 | 28 69 6e 74 65 72 61 63 |n (arg) |(interac|
|00000a80| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00000a90| 63 6f 64 65 20 22 c1 88 | c2 20 88 c3 08 21 87 22 |code "..|. ...!."|
|00000aa0| 20 5b 61 72 67 20 6e 69 | 6c 20 63 61 6c 63 2d 69 | [arg ni|l calc-i|
|00000ab0| 6e 76 65 72 74 2d 66 75 | 6e 63 20 63 61 6c 63 2d |nvert-fu|nc calc-|
|00000ac0| 73 69 6e 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |sin] 3))|..(defun|
|00000ad0| 20 63 61 6c 63 2d 73 69 | 6e 68 20 28 61 72 67 29 | calc-si|nh (arg)|
|00000ae0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000af0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |") (byte|-code ".|
|00000b00| 88 c2 20 88 c3 08 21 87 | 22 20 5b 61 72 67 20 6e |.. ...!.|" [arg n|
|00000b10| 69 6c 20 63 61 6c 63 2d | 68 79 70 65 72 62 6f 6c |il calc-|hyperbol|
|00000b20| 69 63 2d 66 75 6e 63 20 | 63 61 6c 63 2d 73 69 6e |ic-func |calc-sin|
|00000b30| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00000b40| 6c 63 2d 61 72 63 73 69 | 6e 68 20 28 61 72 67 29 |lc-arcsi|nh (arg)|
|00000b50| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000b60| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |") (byte|-code ".|
|00000b70| 88 c2 20 88 c3 20 88 c4 | 08 21 87 22 20 5b 61 72 |.. .. ..|.!." [ar|
|00000b80| 67 20 6e 69 6c 20 63 61 | 6c 63 2d 69 6e 76 65 72 |g nil ca|lc-inver|
|00000b90| 74 2d 66 75 6e 63 20 63 | 61 6c 63 2d 68 79 70 65 |t-func c|alc-hype|
|00000ba0| 72 62 6f 6c 69 63 2d 66 | 75 6e 63 20 63 61 6c 63 |rbolic-f|unc calc|
|00000bb0| 2d 73 69 6e 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |-sin] 4)|)..(defu|
|00000bc0| 6e 20 63 61 6c 63 2d 63 | 6f 73 20 28 61 72 67 29 |n calc-c|os (arg)|
|00000bd0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000be0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|00000bf0| 88 c1 c2 c3 5c 22 87 22 | 20 5b 6e 69 6c 20 63 61 |....\"."| [nil ca|
|00000c00| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|00000c10| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 20 |l (byte-|code ". |
|00000c20| 83 1a 00 c2 20 83 12 00 | c3 c4 c5 08 23 82 17 00 |.... ...|....#...|
|00000c30| c3 c6 c7 08 23 82 2c 00 | c2 20 83 27 00 c3 c8 c9 |....#.,.|. .'....|
|00000c40| 08 23 82 2c 00 c3 ca cb | 08 23 87 22 20 5b 61 72 |.#.,....|.#." [ar|
|00000c50| 67 20 63 61 6c 63 2d 69 | 73 2d 68 79 70 65 72 62 |g calc-i|s-hyperb|
|00000c60| 6f 6c 69 63 20 63 61 6c | 63 2d 69 73 2d 69 6e 76 |olic cal|c-is-inv|
|00000c70| 65 72 73 65 20 63 61 6c | 63 2d 75 6e 61 72 79 2d |erse cal|c-unary-|
|00000c80| 6f 70 20 22 61 63 73 68 | 22 20 63 61 6c 63 46 75 |op "acsh|" calcFu|
|00000c90| 6e 63 2d 61 72 63 63 6f | 73 68 20 22 63 6f 73 68 |nc-arcco|sh "cosh|
|00000ca0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 63 6f 73 68 20 |" calcFu|nc-cosh |
|00000cb0| 22 61 63 6f 73 22 20 63 | 61 6c 63 46 75 6e 63 2d |"acos" c|alcFunc-|
|00000cc0| 61 72 63 63 6f 73 20 22 | 63 6f 73 22 20 63 61 6c |arccos "|cos" cal|
|00000cd0| 63 46 75 6e 63 2d 63 6f | 73 5d 20 31 30 29 29 20 |cFunc-co|s] 10)) |
|00000ce0| 33 30 33 32 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |3032] 3)|)..(defu|
|00000cf0| 6e 20 63 61 6c 63 2d 61 | 72 63 63 6f 73 20 28 61 |n calc-a|rccos (a|
|00000d00| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00000d10| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00000d20| 20 22 c1 88 c2 20 88 c3 | 08 21 87 22 20 5b 61 72 | "... ..|.!." [ar|
|00000d30| 67 20 6e 69 6c 20 63 61 | 6c 63 2d 69 6e 76 65 72 |g nil ca|lc-inver|
|00000d40| 74 2d 66 75 6e 63 20 63 | 61 6c 63 2d 63 6f 73 5d |t-func c|alc-cos]|
|00000d50| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|00000d60| 63 2d 63 6f 73 68 20 28 | 61 72 67 29 20 28 69 6e |c-cosh (|arg) (in|
|00000d70| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00000d80| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c2 20 88 |byte-cod|e "... .|
|00000d90| c3 08 21 87 22 20 5b 61 | 72 67 20 6e 69 6c 20 63 |..!." [a|rg nil c|
|00000da0| 61 6c 63 2d 68 79 70 65 | 72 62 6f 6c 69 63 2d 66 |alc-hype|rbolic-f|
|00000db0| 75 6e 63 20 63 61 6c 63 | 2d 63 6f 73 5d 20 33 29 |unc calc|-cos] 3)|
|00000dc0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 61 |)..(defu|n calc-a|
|00000dd0| 72 63 63 6f 73 68 20 28 | 61 72 67 29 20 28 69 6e |rccosh (|arg) (in|
|00000de0| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00000df0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c2 20 88 |byte-cod|e "... .|
|00000e00| c3 20 88 c4 08 21 87 22 | 20 5b 61 72 67 20 6e 69 |. ...!."| [arg ni|
|00000e10| 6c 20 63 61 6c 63 2d 69 | 6e 76 65 72 74 2d 66 75 |l calc-i|nvert-fu|
|00000e20| 6e 63 20 63 61 6c 63 2d | 68 79 70 65 72 62 6f 6c |nc calc-|hyperbol|
|00000e30| 69 63 2d 66 75 6e 63 20 | 63 61 6c 63 2d 63 6f 73 |ic-func |calc-cos|
|00000e40| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 4))..(|defun ca|
|00000e50| 6c 63 2d 73 69 6e 63 6f | 73 20 6e 69 6c 20 28 69 |lc-sinco|s nil (i|
|00000e60| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000e70| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 c3 5c 22 87 |e-code "|.....\".|
|00000e80| 22 20 5b 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 20 28 |" [nil c|alc-do (|
|00000e90| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|00000ea0| 2d 63 6f 64 65 20 22 c0 | 20 83 11 00 c1 c2 c3 c4 |-code ".| .......|
|00000eb0| c5 c2 21 44 23 82 1a 00 | c1 c2 c6 c7 c5 c2 21 44 |..!D#...|......!D|
|00000ec0| 23 87 22 20 5b 63 61 6c | 63 2d 69 73 2d 69 6e 76 |#." [cal|c-is-inv|
|00000ed0| 65 72 73 65 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |erse cal|c-enter-|
|00000ee0| 72 65 73 75 6c 74 20 31 | 20 22 61 73 6e 63 22 20 |result 1| "asnc" |
|00000ef0| 63 61 6c 63 46 75 6e 63 | 2d 61 72 63 73 69 6e 63 |calcFunc|-arcsinc|
|00000f00| 6f 73 20 63 61 6c 63 2d | 74 6f 70 2d 6e 20 22 73 |os calc-|top-n "s|
|00000f10| 6e 63 73 22 20 63 61 6c | 63 46 75 6e 63 2d 73 69 |ncs" cal|cFunc-si|
|00000f20| 6e 63 6f 73 5d 20 39 29 | 29 20 33 36 38 34 5d 20 |ncos] 9)|) 3684] |
|00000f30| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|00000f40| 2d 74 61 6e 20 28 61 72 | 67 29 20 28 69 6e 74 65 |-tan (ar|g) (inte|
|00000f50| 72 61 63 74 69 76 65 20 | 22 50 22 29 20 28 62 79 |ractive |"P") (by|
|00000f60| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|00000f70| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00000f80| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000f90| 65 2d 63 6f 64 65 20 22 | c1 20 83 1a 00 c2 20 83 |e-code "|. .... .|
|00000fa0| 12 00 c3 c4 c5 08 23 82 | 17 00 c3 c6 c7 08 23 82 |......#.|......#.|
|00000fb0| 2c 00 c2 20 83 27 00 c3 | c8 c9 08 23 82 2c 00 c3 |,.. .'..|...#.,..|
|00000fc0| ca cb 08 23 87 22 20 5b | 61 72 67 20 63 61 6c 63 |...#." [|arg calc|
|00000fd0| 2d 69 73 2d 68 79 70 65 | 72 62 6f 6c 69 63 20 63 |-is-hype|rbolic c|
|00000fe0| 61 6c 63 2d 69 73 2d 69 | 6e 76 65 72 73 65 20 63 |alc-is-i|nverse c|
|00000ff0| 61 6c 63 2d 75 6e 61 72 | 79 2d 6f 70 20 22 61 74 |alc-unar|y-op "at|
|00001000| 6e 68 22 20 63 61 6c 63 | 46 75 6e 63 2d 61 72 63 |nh" calc|Func-arc|
|00001010| 74 61 6e 68 20 22 74 61 | 6e 68 22 20 63 61 6c 63 |tanh "ta|nh" calc|
|00001020| 46 75 6e 63 2d 74 61 6e | 68 20 22 61 74 61 6e 22 |Func-tan|h "atan"|
|00001030| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 74 61 6e | calcFun|c-arctan|
|00001040| 20 22 74 61 6e 22 20 63 | 61 6c 63 46 75 6e 63 2d | "tan" c|alcFunc-|
|00001050| 74 61 6e 5d 20 31 30 29 | 29 20 33 39 32 32 5d 20 |tan] 10)|) 3922] |
|00001060| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|00001070| 2d 61 72 63 74 61 6e 20 | 28 61 72 67 29 20 28 69 |-arctan |(arg) (i|
|00001080| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00001090| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 20 |(byte-co|de "... |
|000010a0| 88 c3 08 21 87 22 20 5b | 61 72 67 20 6e 69 6c 20 |...!." [|arg nil |
|000010b0| 63 61 6c 63 2d 69 6e 76 | 65 72 74 2d 66 75 6e 63 |calc-inv|ert-func|
|000010c0| 20 63 61 6c 63 2d 74 61 | 6e 5d 20 33 29 29 0a 0a | calc-ta|n] 3))..|
|000010d0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 74 61 6e 68 |(defun c|alc-tanh|
|000010e0| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|000010f0| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00001100| 6f 64 65 20 22 c1 88 c2 | 20 88 c3 08 21 87 22 20 |ode "...| ...!." |
|00001110| 5b 61 72 67 20 6e 69 6c | 20 63 61 6c 63 2d 68 79 |[arg nil| calc-hy|
|00001120| 70 65 72 62 6f 6c 69 63 | 2d 66 75 6e 63 20 63 61 |perbolic|-func ca|
|00001130| 6c 63 2d 74 61 6e 5d 20 | 33 29 29 0a 0a 28 64 65 |lc-tan] |3))..(de|
|00001140| 66 75 6e 20 63 61 6c 63 | 2d 61 72 63 74 61 6e 68 |fun calc|-arctanh|
|00001150| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|00001160| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00001170| 6f 64 65 20 22 c1 88 c2 | 20 88 c3 20 88 c4 08 21 |ode "...| .. ...!|
|00001180| 87 22 20 5b 61 72 67 20 | 6e 69 6c 20 63 61 6c 63 |." [arg |nil calc|
|00001190| 2d 69 6e 76 65 72 74 2d | 66 75 6e 63 20 63 61 6c |-invert-|func cal|
|000011a0| 63 2d 68 79 70 65 72 62 | 6f 6c 69 63 2d 66 75 6e |c-hyperb|olic-fun|
|000011b0| 63 20 63 61 6c 63 2d 74 | 61 6e 5d 20 34 29 29 0a |c calc-t|an] 4)).|
|000011c0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 61 72 63 |.(defun |calc-arc|
|000011d0| 74 61 6e 32 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |tan2 nil| (intera|
|000011e0| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|000011f0| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|00001200| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00001210| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00001220| 20 22 c0 c1 c2 c3 c4 c1 | 21 42 23 87 22 20 5b 63 | "......|!B#." [c|
|00001230| 61 6c 63 2d 65 6e 74 65 | 72 2d 72 65 73 75 6c 74 |alc-ente|r-result|
|00001240| 20 32 20 22 61 74 6e 32 | 22 20 63 61 6c 63 46 75 | 2 "atn2|" calcFu|
|00001250| 6e 63 2d 61 72 63 74 61 | 6e 32 20 63 61 6c 63 2d |nc-arcta|n2 calc-|
|00001260| 74 6f 70 2d 6c 69 73 74 | 2d 6e 5d 20 36 29 29 20 |top-list|-n] 6)) |
|00001270| 34 35 37 34 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |4574] 3)|)..(defu|
|00001280| 6e 20 63 61 6c 63 2d 63 | 6f 6e 6a 20 28 61 72 67 |n calc-c|onj (arg|
|00001290| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|000012a0| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|000012b0| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|000012c0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000012d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|000012e0| 08 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 75 |.#." [ar|g calc-u|
|000012f0| 6e 61 72 79 2d 6f 70 20 | 22 63 6f 6e 6a 22 20 63 |nary-op |"conj" c|
|00001300| 61 6c 63 46 75 6e 63 2d | 63 6f 6e 6a 5d 20 34 29 |alcFunc-|conj] 4)|
|00001310| 29 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 2))..|(defun c|
|00001320| 61 6c 63 2d 69 6d 61 67 | 69 6e 61 72 79 20 6e 69 |alc-imag|inary ni|
|00001330| 6c 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |l (inter|active) |
|00001340| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00001350| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|00001360| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00001370| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 c4 |byte-cod|e ".....|
|00001380| c1 21 21 23 87 22 20 5b | 63 61 6c 63 2d 70 6f 70 |.!!#." [|calc-pop|
|00001390| 2d 70 75 73 68 2d 72 65 | 63 6f 72 64 20 31 20 22 |-push-re|cord 1 "|
|000013a0| 69 2a 22 20 6d 61 74 68 | 2d 69 6d 61 67 69 6e 61 |i*" math|-imagina|
|000013b0| 72 79 20 63 61 6c 63 2d | 74 6f 70 2d 6e 5d 20 36 |ry calc-|top-n] 6|
|000013c0| 29 29 20 34 39 31 37 5d | 20 33 29 29 0a 0a 28 64 |)) 4917]| 3))..(d|
|000013d0| 65 66 75 6e 20 63 61 6c | 63 2d 74 6f 2d 64 65 67 |efun cal|c-to-deg|
|000013e0| 72 65 65 73 20 28 61 72 | 67 29 20 28 69 6e 74 65 |rees (ar|g) (inte|
|000013f0| 72 61 63 74 69 76 65 20 | 22 50 22 29 20 28 62 79 |ractive |"P") (by|
|00001400| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 21 87 22 |te-code |"....!."|
|00001410| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|00001420| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00001430| 63 6f 64 65 20 22 c1 c2 | c3 08 23 87 22 20 5b 61 |code "..|..#." [a|
|00001440| 72 67 20 63 61 6c 63 2d | 75 6e 61 72 79 2d 6f 70 |rg calc-|unary-op|
|00001450| 20 22 3e 64 65 67 22 20 | 63 61 6c 63 46 75 6e 63 | ">deg" |calcFunc|
|00001460| 2d 64 65 67 5d 20 34 29 | 29 5d 20 32 29 29 0a 0a |-deg] 4)|)] 2))..|
|00001470| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 74 6f 2d 72 |(defun c|alc-to-r|
|00001480| 61 64 69 61 6e 73 20 28 | 61 72 67 29 20 28 69 6e |adians (|arg) (in|
|00001490| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|000014a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 21 |byte-cod|e "....!|
|000014b0| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|000014c0| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|000014d0| 65 2d 63 6f 64 65 20 22 | c1 c2 c3 08 23 87 22 20 |e-code "|....#." |
|000014e0| 5b 61 72 67 20 63 61 6c | 63 2d 75 6e 61 72 79 2d |[arg cal|c-unary-|
|000014f0| 6f 70 20 22 3e 72 61 64 | 22 20 63 61 6c 63 46 75 |op ">rad|" calcFu|
|00001500| 6e 63 2d 72 61 64 5d 20 | 34 29 29 5d 20 32 29 29 |nc-rad] |4))] 2))|
|00001510| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 64 65 |..(defun| calc-de|
|00001520| 67 72 65 65 73 2d 6d 6f | 64 65 20 28 61 72 67 29 |grees-mo|de (arg)|
|00001530| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 70 | (intera|ctive "p|
|00001540| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |") (byte|-code ".|
|00001550| 88 08 c3 55 83 0e 00 c4 | c5 21 82 27 00 08 c6 55 |...U....|.!.'...U|
|00001560| 83 19 00 c7 20 82 27 00 | 08 c8 55 83 24 00 c9 20 |.... .'.|..U.$.. |
|00001570| 82 27 00 ca cb 21 87 22 | 20 5b 61 72 67 20 74 20 |.'...!."| [arg t |
|00001580| 6e 69 6c 20 31 20 63 61 | 6c 63 2d 64 6f 20 28 6c |nil 1 ca|lc-do (l|
|00001590| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|000015a0| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c3 c4 21 87 |code "..|.\"...!.|
|000015b0| 22 20 5b 63 61 6c 63 2d | 63 68 61 6e 67 65 2d 6d |" [calc-|change-m|
|000015c0| 6f 64 65 20 63 61 6c 63 | 2d 61 6e 67 6c 65 2d 6d |ode calc|-angle-m|
|000015d0| 6f 64 65 20 64 65 67 20 | 6d 65 73 73 61 67 65 20 |ode deg |message |
|000015e0| 22 41 6e 67 6c 65 73 20 | 6d 65 61 73 75 72 65 64 |"Angles |measured|
|000015f0| 20 69 6e 20 64 65 67 72 | 65 65 73 2e 22 5d 20 33 | in degr|ees."] 3|
|00001600| 29 29 20 32 20 63 61 6c | 63 2d 72 61 64 69 61 6e |)) 2 cal|c-radian|
|00001610| 73 2d 6d 6f 64 65 20 33 | 20 63 61 6c 63 2d 68 6d |s-mode 3| calc-hm|
|00001620| 73 2d 6d 6f 64 65 20 65 | 72 72 6f 72 20 22 50 72 |s-mode e|rror "Pr|
|00001630| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6f 75 |efix arg|ument ou|
|00001640| 74 20 6f 66 20 72 61 6e | 67 65 22 5d 20 35 29 29 |t of ran|ge"] 5))|
|00001650| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 72 61 |..(defun| calc-ra|
|00001660| 64 69 61 6e 73 2d 6d 6f | 64 65 20 6e 69 6c 20 28 |dians-mo|de nil (|
|00001670| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00001680| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 21 87 22 |te-code |"....!."|
|00001690| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|000016a0| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|000016b0| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c3 c4 21 87 |code "..|.\"...!.|
|000016c0| 22 20 5b 63 61 6c 63 2d | 63 68 61 6e 67 65 2d 6d |" [calc-|change-m|
|000016d0| 6f 64 65 20 63 61 6c 63 | 2d 61 6e 67 6c 65 2d 6d |ode calc|-angle-m|
|000016e0| 6f 64 65 20 72 61 64 20 | 6d 65 73 73 61 67 65 20 |ode rad |message |
|000016f0| 22 41 6e 67 6c 65 73 20 | 6d 65 61 73 75 72 65 64 |"Angles |measured|
|00001700| 20 69 6e 20 72 61 64 69 | 61 6e 73 2e 22 5d 20 33 | in radi|ans."] 3|
|00001710| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00001720| 6d 61 74 68 2d 69 73 71 | 72 74 20 28 61 29 20 28 |math-isq|rt (a) (|
|00001730| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 3a 83 5c 22 |byte-cod|e ".:.\"|
|00001740| 00 08 40 c2 3e 3f 85 1f | 00 08 40 c3 3d 83 1c 00 |..@.>?..|..@.=...|
|00001750| c4 08 38 c5 3d 82 1f 00 | c6 08 21 82 25 00 08 c5 |..8.=...|..!.%...|
|00001760| 3d 83 2c 00 08 82 4f 00 | c7 08 21 3f 83 3a 00 c8 |=.,...O.|..!?.:..|
|00001770| 08 c9 5c 22 82 4f 00 ca | 08 21 83 46 00 cb 08 21 |..\".O..|.!.F...!|
|00001780| 82 4f 00 cc cd ce 08 41 | 21 41 42 21 87 22 20 5b |.O.....A|!AB!." [|
|00001790| 61 20 74 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |a t (big|pos bign|
|000017a0| 65 67 29 20 66 6c 6f 61 | 74 20 31 20 30 20 6d 61 |eg) floa|t 1 0 ma|
|000017b0| 74 68 2d 7a 65 72 6f 70 | 20 6d 61 74 68 2d 6e 61 |th-zerop| math-na|
|000017c0| 74 6e 75 6d 70 20 6d 61 | 74 68 2d 72 65 6a 65 63 |tnump ma|th-rejec|
|000017d0| 74 2d 61 72 67 20 6e 61 | 74 6e 75 6d 70 20 69 6e |t-arg na|tnump in|
|000017e0| 74 65 67 65 72 70 20 6d | 61 74 68 2d 69 73 71 72 |tegerp m|ath-isqr|
|000017f0| 74 2d 73 6d 61 6c 6c 20 | 6d 61 74 68 2d 6e 6f 72 |t-small |math-nor|
|00001800| 6d 61 6c 69 7a 65 20 62 | 69 67 70 6f 73 20 6d 61 |malize b|igpos ma|
|00001810| 74 68 2d 69 73 71 72 74 | 2d 62 69 67 6e 75 6d 5d |th-isqrt|-bignum]|
|00001820| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 9))..(d|efun cal|
|00001830| 63 46 75 6e 63 2d 69 73 | 71 72 74 20 28 61 29 20 |cFunc-is|qrt (a) |
|00001840| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 08 21 83 |(byte-co|de "..!.|
|00001850| 0e 00 c2 c3 08 21 21 82 | 13 00 c3 c4 08 21 21 87 |.....!!.|.....!!.|
|00001860| 22 20 5b 61 20 6d 61 74 | 68 2d 72 65 61 6c 70 20 |" [a mat|h-realp |
|00001870| 6d 61 74 68 2d 69 73 71 | 72 74 20 6d 61 74 68 2d |math-isq|rt math-|
|00001880| 66 6c 6f 6f 72 20 6d 61 | 74 68 2d 73 71 72 74 5d |floor ma|th-sqrt]|
|00001890| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 | 6))..(d|efun mat|
|000018a0| 68 2d 69 73 71 72 74 2d | 62 69 67 6e 75 6d 20 28 |h-isqrt-|bignum (|
|000018b0| 61 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |a) (byte|-code ".|
|000018c0| 47 18 c3 08 c4 5c 22 c5 | 55 83 2f 00 c6 08 c4 5a |G....\".|U./....Z|
|000018d0| 09 5c 22 1a c7 09 c8 c9 | ca cb cc 0a 38 cd 5c 22 |.\".....|....8.\"|
|000018e0| 0a 40 5c 5c 21 54 21 ce | 08 c4 5c 22 53 5c 22 5c |.@\\!T!.|..\"S\"\|
|000018f0| 22 29 82 43 00 08 53 09 | 38 1a c7 09 c8 ca 0a 21 |").C..S.|8......!|
|00001900| 54 43 ce 08 c4 5c 22 5c | 22 5c 22 29 29 87 22 20 |TC...\"\|"\"))." |
|00001910| 5b 6c 65 6e 20 61 20 74 | 6f 70 20 25 20 32 20 30 |[len a t|op % 2 0|
|00001920| 20 6e 74 68 63 64 72 20 | 6d 61 74 68 2d 69 73 71 | nthcdr |math-isq|
|00001930| 72 74 2d 62 69 67 6e 75 | 6d 2d 69 74 65 72 20 6d |rt-bignu|m-iter m|
|00001940| 61 74 68 2d 73 63 61 6c | 65 2d 62 69 67 6e 75 6d |ath-scal|e-bignum|
|00001950| 2d 33 20 6d 61 74 68 2d | 62 69 67 6e 75 6d 2d 62 |-3 math-|bignum-b|
|00001960| 69 67 20 6d 61 74 68 2d | 69 73 71 72 74 2d 73 6d |ig math-|isqrt-sm|
|00001970| 61 6c 6c 20 2a 20 31 20 | 31 30 30 30 20 2f 5d 20 |all * 1 |1000 /] |
|00001980| 31 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 |16))..(d|efun mat|
|00001990| 68 2d 69 73 71 72 74 2d | 62 69 67 6e 75 6d 2d 69 |h-isqrt-|bignum-i|
|000019a0| 74 65 72 20 28 61 20 67 | 75 65 73 73 29 20 28 62 |ter (a g|uess) (b|
|000019b0| 79 74 65 2d 63 6f 64 65 | 20 22 08 c7 3d 85 0c 00 |yte-code| "..=...|
|000019c0| c8 c9 ca 09 42 5c 22 88 | cb 0b 09 5c 22 1a cc 0a |....B\".|...\"...|
|000019d0| 40 09 5c 22 1c cd 0c 21 | 1d ce 0d 09 5c 22 1e 06 |@.\"...!|....\"..|
|000019e0| 0e 06 cf 57 83 30 00 d0 | 0b 0d 5c 22 82 47 00 0e |...W.0..|..\".G..|
|000019f0| 06 cf 55 85 45 00 d1 0a | 41 21 85 45 00 d2 0c 40 |..U.E...|A!.E...@|
|00001a00| d3 5c 22 cf 55 09 42 2c | 87 22 20 5b 63 61 6c 63 |.\".U.B,|." [calc|
|00001a10| 2d 64 69 73 70 6c 61 79 | 2d 77 6f 72 6b 69 6e 67 |-display|-working|
|00001a20| 2d 6d 65 73 73 61 67 65 | 20 67 75 65 73 73 20 71 |-message| guess q|
|00001a30| 20 61 20 73 20 67 32 20 | 63 6f 6d 70 20 6c 6f 74 | a s g2 |comp lot|
|00001a40| 73 20 6d 61 74 68 2d 64 | 6f 2d 77 6f 72 6b 69 6e |s math-d|o-workin|
|00001a50| 67 20 22 69 73 71 72 74 | 22 20 62 69 67 70 6f 73 |g "isqrt|" bigpos|
|00001a60| 20 6d 61 74 68 2d 64 69 | 76 2d 62 69 67 6e 75 6d | math-di|v-bignum|
|00001a70| 20 6d 61 74 68 2d 61 64 | 64 2d 62 69 67 6e 75 6d | math-ad|d-bignum|
|00001a80| 20 6d 61 74 68 2d 64 69 | 76 32 2d 62 69 67 6e 75 | math-di|v2-bignu|
|00001a90| 6d 20 6d 61 74 68 2d 63 | 6f 6d 70 61 72 65 2d 62 |m math-c|ompare-b|
|00001aa0| 69 67 6e 75 6d 20 30 20 | 6d 61 74 68 2d 69 73 71 |ignum 0 |math-isq|
|00001ab0| 72 74 2d 62 69 67 6e 75 | 6d 2d 69 74 65 72 20 6d |rt-bignu|m-iter m|
|00001ac0| 61 74 68 2d 7a 65 72 6f | 70 2d 62 69 67 6e 75 6d |ath-zero|p-bignum|
|00001ad0| 20 25 20 32 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 | % 2] 10|))..(def|
|00001ae0| 75 6e 20 6d 61 74 68 2d | 7a 65 72 6f 70 2d 62 69 |un math-|zerop-bi|
|00001af0| 67 6e 75 6d 20 28 61 29 | 20 28 62 79 74 65 2d 63 |gnum (a)| (byte-c|
|00001b00| 6f 64 65 20 22 08 40 c1 | 3d 85 19 00 08 41 89 10 |ode ".@.|=....A..|
|00001b10| 40 c1 3d 85 16 00 c2 88 | 82 07 00 88 08 3f 87 22 |@.=.....|.....?."|
|00001b20| 20 5b 61 20 30 20 6e 69 | 6c 5d 20 32 29 29 0a 0a | [a 0 ni|l] 2))..|
|00001b30| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 73 63 61 6c |(defun m|ath-scal|
|00001b40| 65 2d 62 69 67 6e 75 6d | 2d 33 20 28 61 20 6e 29 |e-bignum|-3 (a n)|
|00001b50| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 c2 56 | (byte-c|ode "..V|
|00001b60| 85 12 00 c2 09 42 11 08 | 53 89 10 88 82 00 00 88 |.....B..|S.......|
|00001b70| 09 87 22 20 5b 6e 20 61 | 20 30 5d 20 33 29 29 0a |.." [n a| 0] 3)).|
|00001b80| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 69 73 71 |.(defun |math-isq|
|00001b90| 72 74 2d 73 6d 61 6c 6c | 20 28 61 29 20 28 62 79 |rt-small| (a) (by|
|00001ba0| 74 65 2d 63 6f 64 65 20 | 22 09 c4 59 83 0a 00 c5 |te-code |"..Y....|
|00001bb0| 82 15 00 09 c6 59 83 14 | 00 c6 82 15 00 c7 c8 1b |.....Y..|........|
|00001bc0| 18 c9 08 c9 09 08 5c 22 | 5c 5c ca 5c 22 89 13 08 |......\"|\\.\"...|
|00001bd0| 57 85 2f 00 0b 89 10 88 | 82 18 00 88 08 2a 87 22 |W./.....|.....*."|
|00001be0| 20 5b 67 20 61 20 74 20 | 67 32 20 31 30 30 30 30 | [g a t |g2 10000|
|00001bf0| 20 31 30 30 30 20 31 30 | 30 20 31 30 20 6e 69 6c | 1000 10|0 10 nil|
|00001c00| 20 2f 20 32 5d 20 35 29 | 29 0a 0a 28 64 65 66 75 | / 2] 5)|)..(defu|
|00001c10| 6e 20 6d 61 74 68 2d 73 | 71 72 74 20 28 61 29 20 |n math-s|qrt (a) |
|00001c20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 3a 83 5c |(byte-co|de ".:.\|
|00001c30| 22 00 08 40 cd 3e 3f 85 | 1f 00 08 40 ce 3d 83 1c |"..@.>?.|...@.=..|
|00001c40| 00 cf 08 38 d0 3d 82 1f | 00 d1 08 21 82 25 00 08 |...8.=..|...!.%..|
|00001c50| d0 3d 85 29 00 08 86 eb | 02 d2 08 21 85 39 00 d3 |.=.)....|...!.9..|
|00001c60| d4 d5 08 21 21 21 86 eb | 02 d6 08 21 85 66 00 d7 |...!!!..|...!.f..|
|00001c70| 08 21 19 d8 09 09 5c 22 | 08 55 83 53 00 09 82 65 |.!....\"|.U.S...e|
|00001c80| 00 0a 83 5d 00 d9 08 44 | 82 65 00 da db 08 21 db |...]...D|.e....!.|
|00001c90| 09 21 5c 22 29 86 eb 02 | dc 08 21 dd 3d 85 99 00 |.!\")...|..!.=...|
|00001ca0| de 08 41 21 1b df dd 0b | 41 42 21 19 0b 40 83 86 |..A!....|AB!..@..|
|00001cb0| 00 09 82 98 00 0a 83 90 | 00 d9 08 44 82 98 00 da |........|...D....|
|00001cc0| db 08 21 db 09 21 5c 22 | 2a 86 eb 02 dc 08 21 e0 |..!..!\"|*.....!.|
|00001cd0| 3d 85 39 01 de cf 08 38 | 3a 83 b2 00 cf 08 38 82 |=.9....8|:.....8.|
|00001ce0| b7 00 e1 cf 08 38 21 41 | 21 1c df dd 0c 41 42 21 |.....8!A|!....AB!|
|00001cf0| 1d de e2 08 38 3a 83 cf | 00 e2 08 38 82 d4 00 e1 |....8:..|...8....|
|00001d00| e2 08 38 21 41 21 1e 06 | df dd 0e 06 41 42 21 1e |..8!A!..|....AB!.|
|00001d10| 07 0c 40 85 e9 00 0e 06 | 40 83 f4 00 e0 0d 0e 07 |..@.....|@.......|
|00001d20| 45 82 38 01 0a 83 2c 01 | 0c 40 86 00 01 0e 06 40 |E.8...,.|.@.....@|
|00001d30| 83 26 01 e3 0c 40 83 0d | 01 0d 82 12 01 d9 cf 08 |.&...@..|........|
|00001d40| 38 44 0e 06 40 83 1d 01 | 0e 07 82 5c 22 01 d9 e2 |8D..@...|...\"...|
|00001d50| 08 38 44 5c 22 82 29 01 | d9 08 44 82 38 01 da db |.8D\".).|..D.8...|
|00001d60| 08 21 e3 db 0d 21 0e 07 | 5c 22 5c 22 2c 86 eb 02 |.!...!..|\"\",...|
|00001d70| dc 08 21 ce 3d 85 91 01 | 0a 83 8e 01 e4 e2 08 38 |..!.=...|.......8|
|00001d80| e2 5c 22 d0 55 83 87 01 | de cf 08 38 3a 83 61 01 |.\".U...|...8:.a.|
|00001d90| cf 08 38 82 66 01 e1 cf | 08 38 21 41 21 1b 0b 40 |..8.f...|.8!A!..@|
|00001da0| 83 7f 01 e5 df dd 0b 41 | 42 21 e6 e2 08 38 e2 5c |.......A|B!...8.\|
|00001db0| 22 5c 22 82 83 01 e7 e8 | c8 5c 22 29 82 8b 01 e7 |"\".....|.\")....|
|00001dc0| e8 c8 5c 22 82 91 01 da | 08 21 86 eb 02 dc 08 21 |..\"....|.!.....!|
|00001dd0| e9 3d 85 d8 01 df 0e 09 | e2 5c 5c 1e 09 ea 08 21 |.=......|.\\....!|
|00001de0| 1e 0a d4 eb ec 0e 0a cf | 08 38 5c 22 ed 5c 22 21 |........|.8\".\"!|
|00001df0| 1e 0b e9 d4 eb ee 0e 0a | cf 08 38 5c 22 ef 5c 22 |........|..8\".\"|
|00001e00| 21 f0 e2 08 38 21 83 d2 | 01 d5 0e 0b 21 82 d4 01 |!...8!..|....!...|
|00001e10| 0e 0b 45 2a 29 21 86 eb | 02 dc 08 21 f1 3d 85 f0 |..E*)!..|...!.=..|
|00001e20| 01 f1 d4 cf 08 38 21 eb | e2 08 38 f2 5c 22 45 86 |.....8!.|..8.\"E.|
|00001e30| eb 02 dc 08 21 f3 3d 85 | 0e 02 d4 cf 08 38 21 19 |....!.=.|.....8!.|
|00001e40| f4 09 e3 e2 08 38 eb 09 | e2 5c 22 5c 22 5c 22 29 |.....8..|.\"\"\")|
|00001e50| 86 eb 02 dc 08 21 f5 3d | 85 31 02 f0 e2 08 38 21 |.....!.=|.1....8!|
|00001e60| 3f 85 31 02 f6 cf 08 38 | d4 e2 08 38 21 d4 f7 08 |?.1....8|...8!...|
|00001e70| 38 21 23 86 eb 02 dc 08 | 21 d8 3d 85 58 02 f8 cf |8!#.....|!.=.X...|
|00001e80| 08 38 21 86 49 02 f8 e2 | 08 38 21 85 58 02 eb d4 |.8!.I...|.8!.X...|
|00001e90| cf 08 38 21 d4 e2 08 38 | 21 5c 22 86 eb 02 dc 08 |..8!...8|!\".....|
|00001ea0| 21 e6 3d 85 9b 02 f8 e2 | 08 38 21 85 77 02 e3 d4 |!.=.....|.8!.w...|
|00001eb0| cf 08 38 21 d4 e2 08 38 | 21 5c 22 86 9b 02 f8 cf |..8!...8|!\".....|
|00001ec0| 08 38 21 85 9b 02 f9 cf | 08 38 cf 5c 22 3f 85 9b |.8!.....|.8.\"?..|
|00001ed0| 02 eb d4 cf 08 38 21 d4 | e3 cf e2 08 38 5c 22 21 |.....8!.|....8\"!|
|00001ee0| 5c 22 86 eb 02 dc 08 21 | fa 3d 85 c3 02 fb e2 08 |\".....!|.=......|
|00001ef0| 38 21 85 c3 02 fc cf 08 | 38 21 85 c3 02 ea fd cf |8!......|8!......|
|00001f00| 08 38 e3 e2 08 38 e2 5c | 22 5c 22 21 86 eb 02 fe |.8...8.\|"\"!....|
|00001f10| 08 21 1e 0c 0e 0c 85 db | 02 eb d4 ff 08 0e 0c 5c |.!......|.......\|
|00001f20| 22 21 0e 0c 5c 22 29 86 | eb 02 81 40 00 81 41 00 |"!..\").|...@..A.|
|00001f30| 08 5c 22 88 d9 08 44 87 | 22 20 5b 61 20 73 71 72 |.\"...D.|" [a sqr|
|00001f40| 74 20 63 61 6c 63 2d 73 | 79 6d 62 6f 6c 69 63 2d |t calc-s|ymbolic-|
|00001f50| 6d 6f 64 65 20 72 65 73 | 20 6e 75 6d 2d 72 65 73 |mode res| num-res|
|00001f60| 20 6e 75 6d 2d 73 71 72 | 74 20 64 65 6e 2d 72 65 | num-sqr|t den-re|
|00001f70| 73 20 64 65 6e 2d 73 71 | 72 74 20 6e 69 6c 20 63 |s den-sq|rt nil c|
|00001f80| 61 6c 63 2d 69 6e 74 65 | 72 6e 61 6c 2d 70 72 65 |alc-inte|rnal-pre|
|00001f90| 63 20 64 20 69 6d 61 67 | 20 69 6e 66 20 28 62 69 |c d imag| inf (bi|
|00001fa0| 67 70 6f 73 20 62 69 67 | 6e 65 67 29 20 66 6c 6f |gpos big|neg) flo|
|00001fb0| 61 74 20 31 20 30 20 6d | 61 74 68 2d 7a 65 72 6f |at 1 0 m|ath-zero|
|00001fc0| 70 20 6d 61 74 68 2d 6b | 6e 6f 77 6e 2d 6e 6f 6e |p math-k|nown-non|
|00001fd0| 70 6f 73 70 20 6d 61 74 | 68 2d 69 6d 61 67 69 6e |posp mat|h-imagin|
|00001fe0| 61 72 79 20 6d 61 74 68 | 2d 73 71 72 74 20 6d 61 |ary math|-sqrt ma|
|00001ff0| 74 68 2d 6e 65 67 20 69 | 6e 74 65 67 65 72 70 20 |th-neg i|ntegerp |
|00002000| 6d 61 74 68 2d 69 73 71 | 72 74 2d 73 6d 61 6c 6c |math-isq|rt-small|
|00002010| 20 2a 20 63 61 6c 63 46 | 75 6e 63 2d 73 71 72 74 | * calcF|unc-sqrt|
|00002020| 20 6d 61 74 68 2d 73 71 | 72 74 2d 66 6c 6f 61 74 | math-sq|rt-float|
|00002030| 20 6d 61 74 68 2d 66 6c | 6f 61 74 20 63 61 72 2d | math-fl|oat car-|
|00002040| 73 61 66 65 20 62 69 67 | 70 6f 73 20 6d 61 74 68 |safe big|pos math|
|00002050| 2d 69 73 71 72 74 2d 62 | 69 67 6e 75 6d 20 6d 61 |-isqrt-b|ignum ma|
|00002060| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 66 72 61 |th-norma|lize fra|
|00002070| 63 20 6d 61 74 68 2d 62 | 69 67 6e 75 6d 20 32 20 |c math-b|ignum 2 |
|00002080| 6d 61 74 68 2d 64 69 76 | 20 25 20 6d 61 74 68 2d |math-div| % math-|
|00002090| 6d 61 6b 65 2d 66 6c 6f | 61 74 20 2f 20 73 69 67 |make-flo|at / sig|
|000020a0| 6e 61 6c 20 69 6e 65 78 | 61 63 74 2d 72 65 73 75 |nal inex|act-resu|
|000020b0| 6c 74 20 63 70 6c 78 20 | 6d 61 74 68 2d 61 62 73 |lt cplx |math-abs|
|000020c0| 20 6d 61 74 68 2d 6d 75 | 6c 20 6d 61 74 68 2d 73 | math-mu|l math-s|
|000020d0| 75 62 20 28 66 6c 6f 61 | 74 20 35 20 2d 31 29 20 |ub (floa|t 5 -1) |
|000020e0| 6d 61 74 68 2d 61 64 64 | 20 28 66 6c 6f 61 74 20 |math-add| (float |
|000020f0| 35 20 2d 31 29 20 6d 61 | 74 68 2d 6e 65 67 70 20 |5 -1) ma|th-negp |
|00002100| 70 6f 6c 61 72 20 28 66 | 6c 6f 61 74 20 35 20 2d |polar (f|loat 5 -|
|00002110| 31 29 20 73 64 65 76 20 | 6d 61 74 68 2d 6d 61 6b |1) sdev |math-mak|
|00002120| 65 2d 73 64 65 76 20 69 | 6e 74 76 20 6d 61 74 68 |e-sdev i|ntv math|
|00002130| 2d 6d 61 6b 65 2d 69 6e | 74 76 20 33 20 6d 61 74 |-make-in|tv 3 mat|
|00002140| 68 2d 6b 6e 6f 77 6e 2d | 6e 6f 6e 6e 65 67 70 20 |h-known-|nonnegp |
|00002150| 6d 61 74 68 2d 65 71 75 | 61 6c 2d 69 6e 74 20 5e |math-equ|al-int ^|
|00002160| 20 6d 61 74 68 2d 6b 6e | 6f 77 6e 2d 65 76 65 6e | math-kn|own-even|
|00002170| 70 20 6d 61 74 68 2d 6b | 6e 6f 77 6e 2d 72 65 61 |p math-k|nown-rea|
|00002180| 6c 70 20 6d 61 74 68 2d | 70 6f 77 20 6d 61 74 68 |lp math-|pow math|
|00002190| 2d 69 6e 66 69 6e 69 74 | 65 70 20 6d 61 74 68 2d |-infinit|ep math-|
|000021a0| 69 6e 66 69 6e 69 74 65 | 2d 64 69 72 20 63 61 6c |infinite|-dir cal|
|000021b0| 63 2d 72 65 63 6f 72 64 | 2d 77 68 79 20 6e 75 6d |c-record|-why num|
|000021c0| 62 65 72 70 5d 20 39 33 | 29 29 0a 0a 28 66 73 65 |berp] 93|))..(fse|
|000021d0| 74 20 28 71 75 6f 74 65 | 20 63 61 6c 63 46 75 6e |t (quote| calcFun|
|000021e0| 63 2d 73 71 72 74 29 20 | 28 73 79 6d 62 6f 6c 2d |c-sqrt) |(symbol-|
|000021f0| 66 75 6e 63 74 69 6f 6e | 20 28 71 75 6f 74 65 20 |function| (quote |
|00002200| 6d 61 74 68 2d 73 71 72 | 74 29 29 29 0a 0a 28 64 |math-sqr|t)))..(d|
|00002210| 65 66 75 6e 20 6d 61 74 | 68 2d 69 6e 66 69 6e 69 |efun mat|h-infini|
|00002220| 74 65 2d 64 69 72 20 28 | 61 20 26 6f 70 74 69 6f |te-dir (|a &optio|
|00002230| 6e 61 6c 20 69 6e 66 29 | 20 28 62 79 74 65 2d 63 |nal inf)| (byte-c|
|00002240| 6f 64 65 20 22 08 86 09 | 00 c2 09 21 89 10 88 c3 |ode "...|...!....|
|00002250| c4 09 08 c5 23 21 87 22 | 20 5b 69 6e 66 20 61 20 |....#!."| [inf a |
|00002260| 6d 61 74 68 2d 69 6e 66 | 69 6e 69 74 65 70 20 6d |math-inf|initep m|
|00002270| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 6d 61 |ath-norm|alize ma|
|00002280| 74 68 2d 65 78 70 72 2d | 73 75 62 73 74 20 31 5d |th-expr-|subst 1]|
|00002290| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 | 6))..(d|efun mat|
|000022a0| 68 2d 73 71 72 74 2d 66 | 6c 6f 61 74 20 28 61 20 |h-sqrt-f|loat (a |
|000022b0| 26 6f 70 74 69 6f 6e 61 | 6c 20 67 75 65 73 73 29 |&optiona|l guess)|
|000022c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 83 0b | (byte-c|ode "...|
|000022d0| 00 c5 c6 c1 5c 22 82 16 | 00 c7 0a c8 5c 5c 1a c9 |....\"..|....\\..|
|000022e0| 0b 0c 5c 22 29 21 87 22 | 20 5b 63 61 6c 63 2d 73 |..\")!."| [calc-s|
|000022f0| 79 6d 62 6f 6c 69 63 2d | 6d 6f 64 65 20 6e 69 6c |ymbolic-|mode nil|
|00002300| 20 63 61 6c 63 2d 69 6e | 74 65 72 6e 61 6c 2d 70 | calc-in|ternal-p|
|00002310| 72 65 63 20 61 20 67 75 | 65 73 73 20 73 69 67 6e |rec a gu|ess sign|
|00002320| 61 6c 20 69 6e 65 78 61 | 63 74 2d 72 65 73 75 6c |al inexa|ct-resul|
|00002330| 74 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |t math-n|ormalize|
|00002340| 20 31 20 6d 61 74 68 2d | 73 71 72 74 2d 72 61 77 | 1 math-|sqrt-raw|
|00002350| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 5))..(|defun ma|
|00002360| 74 68 2d 73 71 72 74 2d | 72 61 77 20 28 61 20 26 |th-sqrt-|raw (a &|
|00002370| 6f 70 74 69 6f 6e 61 6c | 20 67 75 65 73 73 29 20 |optional| guess) |
|00002380| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 3a 83 39 |(byte-co|de ".:.9|
|00002390| 00 08 40 c3 3d 86 36 00 | 08 40 c4 3d 3f 85 36 00 |..@.=.6.|.@.=?.6.|
|000023a0| 08 40 c5 3e 83 33 00 c6 | 08 38 3a 83 2b 00 c6 08 |.@.>.3..|.8:.+...|
|000023b0| 38 40 c3 3d 82 30 00 c6 | 08 38 c7 56 82 36 00 c8 |8@.=.0..|.8.V.6..|
|000023c0| 08 21 82 3c 00 08 c7 56 | 3f 83 46 00 c9 08 21 82 |.!.<...V|?.F...!.|
|000023d0| 80 00 09 3f 85 7b 00 ca | c6 08 38 21 cb 5a 1a cc |...?.{..|..8!.Z..|
|000023e0| cd 08 38 0a 5c 5c cd 5c | 22 c7 55 86 64 00 0a 54 |..8.\\.\|".U.d..T|
|000023f0| 89 12 88 ce cf d0 c6 08 | 38 0a 5b 5c 22 21 d1 cd |........|8.[\"!..|
|00002400| 08 38 0a 5c 5c cd 5c 22 | 5c 22 89 11 29 88 d2 08 |.8.\\.\"|\"..)...|
|00002410| 09 5c 22 87 22 20 5b 61 | 20 67 75 65 73 73 20 6c |.\"." [a| guess l|
|00002420| 64 69 66 66 20 62 69 67 | 70 6f 73 20 62 69 67 6e |diff big|pos bign|
|00002430| 65 67 20 28 66 72 61 63 | 20 66 6c 6f 61 74 29 20 |eg (frac| float) |
|00002440| 31 20 30 20 6d 61 74 68 | 2d 70 6f 73 70 20 6d 61 |1 0 math|-posp ma|
|00002450| 74 68 2d 73 71 72 74 20 | 6d 61 74 68 2d 6e 75 6d |th-sqrt |math-num|
|00002460| 64 69 67 73 20 36 20 25 | 20 32 20 6d 61 74 68 2d |digs 6 %| 2 math-|
|00002470| 6d 61 6b 65 2d 66 6c 6f | 61 74 20 6d 61 74 68 2d |make-flo|at math-|
|00002480| 69 73 71 72 74 2d 73 6d | 61 6c 6c 20 6d 61 74 68 |isqrt-sm|all math|
|00002490| 2d 73 63 61 6c 65 2d 69 | 6e 74 20 2f 20 6d 61 74 |-scale-i|nt / mat|
|000024a0| 68 2d 73 71 72 74 2d 66 | 6c 6f 61 74 2d 69 74 65 |h-sqrt-f|loat-ite|
|000024b0| 72 5d 20 31 31 29 29 0a | 0a 28 64 65 66 75 6e 20 |r] 11)).|.(defun |
|000024c0| 6d 61 74 68 2d 73 71 72 | 74 2d 66 6c 6f 61 74 2d |math-sqr|t-float-|
|000024d0| 69 74 65 72 20 28 61 20 | 67 75 65 73 73 29 20 28 |iter (a |guess) (|
|000024e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c4 3d 85 0a |byte-cod|e "..=..|
|000024f0| 00 c5 c6 09 5c 22 88 c7 | c8 09 c9 0b 09 5c 22 5c |....\"..|.....\"\|
|00002500| 22 ca 5c 22 1a cb 0a 09 | 5c 22 83 21 00 0a 82 25 |".\"....|\".!...%|
|00002510| 00 cc 0b 0a 5c 22 29 87 | 22 20 5b 63 61 6c 63 2d |....\").|" [calc-|
|00002520| 64 69 73 70 6c 61 79 2d | 77 6f 72 6b 69 6e 67 2d |display-|working-|
|00002530| 6d 65 73 73 61 67 65 20 | 67 75 65 73 73 20 67 32 |message |guess g2|
|00002540| 20 61 20 6c 6f 74 73 20 | 6d 61 74 68 2d 64 6f 2d | a lots |math-do-|
|00002550| 77 6f 72 6b 69 6e 67 20 | 22 73 71 72 74 22 20 6d |working |"sqrt" m|
|00002560| 61 74 68 2d 6d 75 6c 2d | 66 6c 6f 61 74 20 6d 61 |ath-mul-|float ma|
|00002570| 74 68 2d 61 64 64 2d 66 | 6c 6f 61 74 20 6d 61 74 |th-add-f|loat mat|
|00002580| 68 2d 64 69 76 2d 66 6c | 6f 61 74 20 28 66 6c 6f |h-div-fl|oat (flo|
|00002590| 61 74 20 35 20 2d 31 29 | 20 6d 61 74 68 2d 6e 65 |at 5 -1)| math-ne|
|000025a0| 61 72 6c 79 2d 65 71 75 | 61 6c 2d 66 6c 6f 61 74 |arly-equ|al-float|
|000025b0| 20 6d 61 74 68 2d 73 71 | 72 74 2d 66 6c 6f 61 74 | math-sq|rt-float|
|000025c0| 2d 69 74 65 72 5d 20 38 | 29 29 0a 0a 28 64 65 66 |-iter] 8|))..(def|
|000025d0| 75 6e 20 6d 61 74 68 2d | 6e 65 61 72 6c 79 2d 65 |un math-|nearly-e|
|000025e0| 71 75 61 6c 2d 66 6c 6f | 61 74 20 28 61 20 62 29 |qual-flo|at (a b)|
|000025f0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c4 09 38 | (byte-c|ode "..8|
|00002600| c4 0a 38 5a 18 08 c5 55 | 83 5e 00 c6 c7 09 38 3a |..8Z...U|.^....8:|
|00002610| 83 31 00 c7 09 38 40 c8 | 3d 83 28 00 c9 c7 09 38 |.1...8@.|=.(....8|
|00002620| 41 42 82 2e 00 c8 c7 09 | 38 41 42 82 35 00 c7 09 |AB......|8AB.5...|
|00002630| 38 5b c7 0a 38 5c 22 89 | 10 88 08 c5 3d 86 5b 00 |8[..8\".|....=.[.|
|00002640| 08 3a 3f 85 5b 00 08 ca | 57 85 5b 00 08 cb 56 85 |.:?.[...|W.[...V.|
|00002650| 5b 00 cc c7 09 38 21 0b | 55 82 01 01 08 c7 55 83 |[....8!.|U.....U.|
|00002660| b1 00 c6 c7 0a 38 3a 83 | 87 00 c7 0a 38 40 c8 3d |.....8:.|....8@.=|
|00002670| 83 7e 00 c9 c7 0a 38 41 | 42 82 84 00 c8 c7 0a 38 |.~....8A|B......8|
|00002680| 41 42 82 8b 00 c7 0a 38 | 5b cd c7 09 38 c7 5c 22 |AB.....8|[...8.\"|
|00002690| 5c 22 89 10 88 08 3a 3f | 85 ae 00 08 ca 57 85 ae |\"....:?|.....W..|
|000026a0| 00 08 cb 56 85 ae 00 cc | c7 0a 38 21 0b 55 82 01 |...V....|..8!.U..|
|000026b0| 01 08 ce 55 85 01 01 c6 | c7 09 38 3a 83 da 00 c7 |...U....|..8:....|
|000026c0| 09 38 40 c8 3d 83 d1 00 | c9 c7 09 38 41 42 82 d7 |.8@.=...|...8AB..|
|000026d0| 00 c8 c7 09 38 41 42 82 | de 00 c7 09 38 5b cd c7 |....8AB.|....8[..|
|000026e0| 0a 38 c7 5c 22 5c 22 89 | 10 88 08 3a 3f 85 01 01 |.8.\"\".|...:?...|
|000026f0| 08 ca 57 85 01 01 08 cb | 56 85 01 01 cc c7 09 38 |..W.....|V......8|
|00002700| 21 0b 55 29 87 22 20 5b | 65 64 69 66 66 20 61 20 |!.U)." [|ediff a |
|00002710| 62 20 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d |b calc-i|nternal-|
|00002720| 70 72 65 63 20 32 20 30 | 20 6d 61 74 68 2d 61 64 |prec 2 0| math-ad|
|00002730| 64 20 31 20 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |d 1 bigp|os bigne|
|00002740| 67 20 31 30 20 2d 31 30 | 20 6d 61 74 68 2d 6e 75 |g 10 -10| math-nu|
|00002750| 6d 64 69 67 73 20 6d 61 | 74 68 2d 73 63 61 6c 65 |mdigs ma|th-scale|
|00002760| 2d 69 6e 74 20 2d 31 5d | 20 31 30 29 29 0a 0a 28 |-int -1]| 10))..(|
|00002770| 64 65 66 75 6e 20 6d 61 | 74 68 2d 6e 65 61 72 6c |defun ma|th-nearl|
|00002780| 79 2d 65 71 75 61 6c 20 | 28 61 20 62 29 20 28 62 |y-equal |(a b) (b|
|00002790| 79 74 65 2d 63 6f 64 65 | 20 22 c2 08 21 89 10 88 |yte-code| "..!...|
|000027a0| c2 09 21 89 11 88 08 40 | c3 3d 85 18 00 c4 08 21 |..!....@|.=.....!|
|000027b0| 89 10 88 09 40 c3 3d 85 | 25 00 c4 09 21 89 11 88 |....@.=.|%...!...|
|000027c0| 08 40 c5 3d 83 88 00 09 | 40 c5 3d 83 76 00 c6 c7 |.@.=....|@.=.v...|
|000027d0| 08 38 c7 09 38 5c 22 86 | 52 00 c8 c7 08 38 c9 08 |.8..8\".|R....8..|
|000027e0| 38 5c 22 85 52 00 c8 c7 | 09 38 c9 09 38 5c 22 85 |8\".R...|.8..8\".|
|000027f0| 73 00 c6 c9 08 38 c9 09 | 38 5c 22 86 73 00 c8 c9 |s....8..|8\".s...|
|00002800| 08 38 c7 08 38 5c 22 85 | 73 00 c8 c9 09 38 c7 09 |.8..8\".|s....8..|
|00002810| 38 5c 22 82 85 00 c6 c7 | 08 38 09 5c 22 85 85 00 |8\".....|.8.\"...|
|00002820| c8 c9 08 38 09 5c 22 82 | a5 00 09 40 c5 3d 83 a1 |...8.\".|...@.=..|
|00002830| 00 c6 08 c7 09 38 5c 22 | 85 9e 00 c8 08 c9 09 38 |.....8\"|.......8|
|00002840| 5c 22 82 a5 00 c6 08 09 | 5c 22 87 22 20 5b 61 20 |\"......|\"." [a |
|00002850| 62 20 6d 61 74 68 2d 66 | 6c 6f 61 74 20 70 6f 6c |b math-f|loat pol|
|00002860| 61 72 20 6d 61 74 68 2d | 63 6f 6d 70 6c 65 78 20 |ar math-|complex |
|00002870| 63 70 6c 78 20 6d 61 74 | 68 2d 6e 65 61 72 6c 79 |cplx mat|h-nearly|
|00002880| 2d 65 71 75 61 6c 2d 66 | 6c 6f 61 74 20 31 20 6d |-equal-f|loat 1 m|
|00002890| 61 74 68 2d 6e 65 61 72 | 6c 79 2d 7a 65 72 6f 70 |ath-near|ly-zerop|
|000028a0| 2d 66 6c 6f 61 74 20 32 | 5d 20 31 37 29 29 0a 0a |-float 2|] 17))..|
|000028b0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 6e 65 61 72 |(defun m|ath-near|
|000028c0| 6c 79 2d 7a 65 72 6f 70 | 2d 66 6c 6f 61 74 20 28 |ly-zerop|-float (|
|000028d0| 61 20 62 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |a b) (by|te-code |
|000028e0| 22 c3 08 38 c4 3d 86 1e | 00 c5 c3 08 38 21 c6 08 |"..8.=..|....8!..|
|000028f0| 38 5c 5c c5 c3 09 38 21 | c6 09 38 5c 5c 0a 5a 54 |8\\...8!|..8\\.ZT|
|00002900| 58 87 22 20 5b 61 20 62 | 20 63 61 6c 63 2d 69 6e |X." [a b| calc-in|
|00002910| 74 65 72 6e 61 6c 2d 70 | 72 65 63 20 31 20 30 20 |ternal-p|rec 1 0 |
|00002920| 6d 61 74 68 2d 6e 75 6d | 64 69 67 73 20 32 5d 20 |math-num|digs 2] |
|00002930| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |6))..(de|fun math|
|00002940| 2d 6e 65 61 72 6c 79 2d | 7a 65 72 6f 70 20 28 61 |-nearly-|zerop (a|
|00002950| 20 62 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | b) (byt|e-code "|
|00002960| c2 08 21 89 10 88 c2 09 | 21 89 11 88 08 40 c3 3d |..!.....|!....@.=|
|00002970| 83 25 00 c4 c5 08 38 09 | 5c 22 85 5c 22 00 c4 c6 |.%....8.|\".\"...|
|00002980| 08 38 09 5c 22 82 39 00 | 08 40 c7 3d 83 35 00 c4 |.8.\".9.|.@.=.5..|
|00002990| c5 08 38 09 5c 22 82 39 | 00 c4 08 09 5c 22 87 22 |..8.\".9|....\"."|
|000029a0| 20 5b 61 20 62 20 6d 61 | 74 68 2d 66 6c 6f 61 74 | [a b ma|th-float|
|000029b0| 20 63 70 6c 78 20 6d 61 | 74 68 2d 6e 65 61 72 6c | cplx ma|th-nearl|
|000029c0| 79 2d 7a 65 72 6f 70 2d | 66 6c 6f 61 74 20 31 20 |y-zerop-|float 1 |
|000029d0| 32 20 70 6f 6c 61 72 5d | 20 38 29 29 0a 0a 28 64 |2 polar]| 8))..(d|
|000029e0| 65 66 75 6e 20 6d 61 74 | 68 2d 68 79 70 6f 74 20 |efun mat|h-hypot |
|000029f0| 28 61 20 62 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(a b) (b|yte-code|
|00002a00| 20 22 08 3a 83 5c 22 00 | 08 40 c5 3e 3f 85 1f 00 | ".:.\".|.@.>?...|
|00002a10| 08 40 c6 3d 83 1c 00 c7 | 08 38 c8 3d 82 1f 00 c9 |.@.=....|.8.=....|
|00002a20| 08 21 82 25 00 08 c8 3d | 83 2e 00 ca 09 21 82 27 |.!.%...=|.....!.'|
|00002a30| 01 09 3a 83 50 00 09 40 | cb 3e 3f 85 4d 00 09 40 |..:.P..@|.>?.M..@|
|00002a40| c6 3d 83 4a 00 c7 09 38 | c8 3d 82 4d 00 c9 09 21 |.=.J...8|.=.M...!|
|00002a50| 82 53 00 09 c8 3d 83 5c | 5c 00 ca 08 21 82 27 01 |.S...=.\|\...!.'.|
|00002a60| 08 3a 3f 86 66 00 08 40 | cc 3e 3f 83 95 00 cd 08 |.:?.f..@|.>?.....|
|00002a70| 21 83 89 00 cd 09 21 83 | 85 00 ce 08 09 5c 22 83 |!.....!.|.....\".|
|00002a80| 81 00 08 82 82 00 cf 82 | 86 00 08 82 92 00 d0 d1 |........|........|
|00002a90| 08 5c 22 88 d2 08 09 45 | 82 27 01 09 3a 3f 86 9f |.\"....E|.'..:?..|
|00002aa0| 00 09 40 d3 3e 3f 83 b9 | 00 cd 09 21 83 ad 00 09 |..@.>?..|...!....|
|00002ab0| 82 b6 00 d0 d1 09 5c 22 | 88 d2 08 09 45 82 27 01 |......\"|....E.'.|
|00002ac0| 08 3a 3f 86 c3 00 08 40 | d4 3e 85 d0 00 09 3a 3f |.:?....@|.>....:?|
|00002ad0| 86 d0 00 09 40 d5 3e 83 | e7 00 d6 0a c7 5c 5c 1a |....@.>.|.....\\.|
|00002ae0| d7 d8 d9 08 21 d9 09 21 | 5c 22 21 29 21 82 27 01 |....!..!|\"!)!.'.|
|00002af0| da 08 21 db 3d 83 12 01 | da 09 21 db 3d 83 06 01 |..!.=...|..!.=...|
|00002b00| dc dd de 08 df 5c 22 de | 09 df 5c 22 5c 22 21 82 |.....\".|..\"\"!.|
|00002b10| 0f 01 dc dd de 08 df 5c | 22 09 5c 22 21 82 27 01 |.......\|".\"!.'.|
|00002b20| da 09 21 db 3d 83 26 01 | dc dd 08 de 09 df 5c 22 |..!.=.&.|......\"|
|00002b30| 5c 22 21 82 27 01 c4 87 | 22 20 5b 61 20 62 20 63 |\"!.'...|" [a b c|
|00002b40| 61 6c 63 2d 69 6e 74 65 | 72 6e 61 6c 2d 70 72 65 |alc-inte|rnal-pre|
|00002b50| 63 20 74 20 6e 69 6c 20 | 28 62 69 67 70 6f 73 20 |c t nil |(bigpos |
|00002b60| 62 69 67 6e 65 67 29 20 | 66 6c 6f 61 74 20 31 20 |bigneg) |float 1 |
|00002b70| 30 20 6d 61 74 68 2d 7a | 65 72 6f 70 20 6d 61 74 |0 math-z|erop mat|
|00002b80| 68 2d 61 62 73 20 28 62 | 69 67 70 6f 73 20 62 69 |h-abs (b|igpos bi|
|00002b90| 67 6e 65 67 29 20 28 62 | 69 67 70 6f 73 20 62 69 |gneg) (b|igpos bi|
|00002ba0| 67 6e 65 67 20 66 72 61 | 63 20 66 6c 6f 61 74 20 |gneg fra|c float |
|00002bb0| 63 70 6c 78 20 70 6f 6c | 61 72 20 68 6d 73 29 20 |cplx pol|ar hms) |
|00002bc0| 6d 61 74 68 2d 69 6e 66 | 69 6e 69 74 65 70 20 65 |math-inf|initep e|
|00002bd0| 71 75 61 6c 20 28 76 61 | 72 20 6e 61 6e 20 76 61 |qual (va|r nan va|
|00002be0| 72 2d 6e 61 6e 29 20 63 | 61 6c 63 2d 72 65 63 6f |r-nan) c|alc-reco|
|00002bf0| 72 64 2d 77 68 79 20 73 | 63 61 6c 61 72 70 20 63 |rd-why s|calarp c|
|00002c00| 61 6c 63 46 75 6e 63 2d | 68 79 70 6f 74 20 28 62 |alcFunc-|hypot (b|
|00002c10| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00002c20| 63 20 66 6c 6f 61 74 20 | 63 70 6c 78 20 70 6f 6c |c float |cplx pol|
|00002c30| 61 72 20 68 6d 73 29 20 | 28 62 69 67 70 6f 73 20 |ar hms) |(bigpos |
|00002c40| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00002c50| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 29 20 28 62 |t cplx p|olar) (b|
|00002c60| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00002c70| 63 20 66 6c 6f 61 74 20 | 63 70 6c 78 20 70 6f 6c |c float |cplx pol|
|00002c80| 61 72 29 20 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |ar) math|-normali|
|00002c90| 7a 65 20 6d 61 74 68 2d | 73 71 72 74 20 6d 61 74 |ze math-|sqrt mat|
|00002ca0| 68 2d 61 64 64 20 63 61 | 6c 63 46 75 6e 63 2d 61 |h-add ca|lcFunc-a|
|00002cb0| 62 73 73 71 72 20 63 61 | 72 2d 73 61 66 65 20 68 |bssqr ca|r-safe h|
|00002cc0| 6d 73 20 6d 61 74 68 2d | 74 6f 2d 68 6d 73 20 6d |ms math-|to-hms m|
|00002cd0| 61 74 68 2d 68 79 70 6f | 74 20 6d 61 74 68 2d 66 |ath-hypo|t math-f|
|00002ce0| 72 6f 6d 2d 68 6d 73 20 | 64 65 67 5d 20 33 31 29 |rom-hms |deg] 31)|
|00002cf0| 29 0a 0a 28 66 73 65 74 | 20 28 71 75 6f 74 65 20 |)..(fset| (quote |
|00002d00| 63 61 6c 63 46 75 6e 63 | 2d 68 79 70 6f 74 29 20 |calcFunc|-hypot) |
|00002d10| 28 73 79 6d 62 6f 6c 2d | 66 75 6e 63 74 69 6f 6e |(symbol-|function|
|00002d20| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 68 79 70 | (quote |math-hyp|
|00002d30| 6f 74 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |ot)))..(|defun ca|
|00002d40| 6c 63 46 75 6e 63 2d 73 | 71 72 20 28 78 29 20 28 |lcFunc-s|qr (x) (|
|00002d50| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 c2 5c 22 |byte-cod|e "...\"|
|00002d60| 87 22 20 5b 78 20 6d 61 | 74 68 2d 70 6f 77 20 32 |." [x ma|th-pow 2|
|00002d70| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 3))..(|defun ma|
|00002d80| 74 68 2d 6e 74 68 2d 72 | 6f 6f 74 20 28 61 20 6e |th-nth-r|oot (a n|
|00002d90| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c8 |) (byte-|code "..|
|00002da0| 55 83 0c 00 c9 09 21 82 | 25 01 09 3a 83 2e 00 09 |U.....!.|%..:....|
|00002db0| 40 ca 3e 3f 85 2b 00 09 | 40 cb 3d 83 28 00 cc 09 |@.>?.+..|@.=.(...|
|00002dc0| 38 cd 3d 82 2b 00 ce 09 | 21 82 31 00 09 cd 3d 83 |8.=.+...|!.1...=.|
|00002dd0| 38 00 09 82 25 01 09 3a | 83 71 00 09 40 cf 3d 86 |8...%..:|.q..@.=.|
|00002de0| 6e 00 09 40 d0 3d 3f 85 | 6e 00 09 40 d1 3e 83 6b |n..@.=?.|n..@.>.k|
|00002df0| 00 cc 09 38 3a 83 63 00 | cc 09 38 40 cf 3d 82 68 |...8:.c.|..8@.=.h|
|00002e00| 00 cc 09 38 cd 57 82 6e | 00 d2 09 21 82 74 00 09 |...8.W.n|...!.t..|
|00002e10| cd 57 83 7b 00 c2 82 25 | 01 09 3a 3f 86 85 00 09 |.W.{...%|..:?....|
|00002e20| 40 d3 3e 83 aa 00 d4 09 | 08 5c 22 1b 0b 40 83 97 |@.>.....|.\"..@..|
|00002e30| 00 0b 41 82 a6 00 0c 3f | 85 a6 00 d5 d6 09 21 08 |..A....?|......!.|
|00002e40| d6 0b 41 21 23 29 82 25 | 01 d7 09 21 d8 3d 83 f0 |..A!#).%|...!.=..|
|00002e50| 00 d4 cc 09 38 08 5c 22 | 1d d4 c8 09 38 08 5c 22 |....8.\"|....8.\"|
|00002e60| 1e 06 0d 40 85 c9 00 0e | 06 40 83 d6 00 d8 0d 41 |...@....|.@.....A|
|00002e70| 0e 06 41 45 82 ec 00 0c | 3f 85 ec 00 d5 d6 09 21 |..AE....|?......!|
|00002e80| 08 d9 d6 0d 41 21 d6 0e | 06 41 21 5c 22 23 2a 82 |....A!..|.A!\"#*.|
|00002e90| 25 01 d7 09 21 cb 3d 83 | 04 01 0c 3f 85 01 01 d5 |%...!.=.|...?....|
|00002ea0| 09 08 5c 22 82 25 01 d7 | 09 21 da 3d 83 24 01 db |..\".%..|.!.=.$..|
|00002eb0| cc 09 38 08 5c 22 1b 0b | 85 20 01 da 0b dc c8 09 |..8.\"..|. ......|
|00002ec0| 38 08 5c 22 45 29 82 25 | 01 c2 87 22 20 5b 6e 20 |8.\"E).%|..." [n |
|00002ed0| 61 20 6e 69 6c 20 72 6f | 6f 74 20 63 61 6c 63 2d |a nil ro|ot calc-|
|00002ee0| 73 79 6d 62 6f 6c 69 63 | 2d 6d 6f 64 65 20 6e 75 |symbolic|-mode nu|
|00002ef0| 6d 2d 72 6f 6f 74 20 64 | 65 6e 2d 72 6f 6f 74 20 |m-root d|en-root |
|00002f00| 74 20 32 20 6d 61 74 68 | 2d 73 71 72 74 20 28 62 |t 2 math|-sqrt (b|
|00002f10| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 29 20 66 6c |igpos bi|gneg) fl|
|00002f20| 6f 61 74 20 31 20 30 20 | 6d 61 74 68 2d 7a 65 72 |oat 1 0 |math-zer|
|00002f30| 6f 70 20 62 69 67 6e 65 | 67 20 62 69 67 70 6f 73 |op bigne|g bigpos|
|00002f40| 20 28 66 72 61 63 20 66 | 6c 6f 61 74 29 20 6d 61 | (frac f|loat) ma|
|00002f50| 74 68 2d 6e 65 67 70 20 | 28 62 69 67 70 6f 73 20 |th-negp |(bigpos |
|00002f60| 62 69 67 6e 65 67 29 20 | 6d 61 74 68 2d 6e 74 68 |bigneg) |math-nth|
|00002f70| 2d 72 6f 6f 74 2d 69 6e | 74 65 67 65 72 20 6d 61 |-root-in|teger ma|
|00002f80| 74 68 2d 6e 74 68 2d 72 | 6f 6f 74 2d 66 6c 6f 61 |th-nth-r|oot-floa|
|00002f90| 74 20 6d 61 74 68 2d 66 | 6c 6f 61 74 20 63 61 72 |t math-f|loat car|
|00002fa0| 2d 73 61 66 65 20 66 72 | 61 63 20 6d 61 74 68 2d |-safe fr|ac math-|
|00002fb0| 64 69 76 2d 66 6c 6f 61 | 74 20 70 6f 6c 61 72 20 |div-floa|t polar |
|00002fc0| 6d 61 74 68 2d 6e 74 68 | 2d 72 6f 6f 74 20 6d 61 |math-nth|-root ma|
|00002fd0| 74 68 2d 64 69 76 5d 20 | 32 34 29 29 0a 0a 28 64 |th-div] |24))..(d|
|00002fe0| 65 66 75 6e 20 6d 61 74 | 68 2d 6e 74 68 2d 72 6f |efun mat|h-nth-ro|
|00002ff0| 6f 74 2d 66 6c 6f 61 74 | 20 28 61 20 6e 20 26 6f |ot-float| (a n &o|
|00003000| 70 74 69 6f 6e 61 6c 20 | 67 75 65 73 73 29 20 28 |ptional |guess) (|
|00003010| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 20 88 c7 08 |byte-cod|e ". ...|
|00003020| c8 5c 5c 18 c9 0a 21 c9 | 0a 53 21 1b 19 ca 0c 0d |.\\...!.|.S!.....|
|00003030| 86 2b 00 cb c8 cc cd ce | c8 0c 38 21 cf 0c 38 cc |.+......|..8!..8.|
|00003040| 0a cf 5c 22 23 0a 5c 22 | 5c 22 5c 22 2a 29 21 87 |..\"#.\"|\"\"*)!.|
|00003050| 22 20 5b 63 61 6c 63 2d | 69 6e 74 65 72 6e 61 6c |" [calc-|internal|
|00003060| 2d 70 72 65 63 20 6e 66 | 20 6e 20 6e 66 6d 31 20 |-prec nf| n nfm1 |
|00003070| 61 20 67 75 65 73 73 20 | 6d 61 74 68 2d 69 6e 65 |a guess |math-ine|
|00003080| 78 61 63 74 2d 72 65 73 | 75 6c 74 20 6d 61 74 68 |xact-res|ult math|
|00003090| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 31 20 6d 61 74 |-normali|ze 1 mat|
|000030a0| 68 2d 66 6c 6f 61 74 20 | 6d 61 74 68 2d 6e 74 68 |h-float |math-nth|
|000030b0| 2d 72 6f 6f 74 2d 66 6c | 6f 61 74 2d 69 74 65 72 |-root-fl|oat-iter|
|000030c0| 20 6d 61 74 68 2d 6d 61 | 6b 65 2d 66 6c 6f 61 74 | math-ma|ke-float|
|000030d0| 20 2f 20 2b 20 6d 61 74 | 68 2d 6e 75 6d 64 69 67 | / + mat|h-numdig|
|000030e0| 73 20 32 5d 20 31 36 29 | 29 0a 0a 28 64 65 66 75 |s 2] 16)|)..(defu|
|000030f0| 6e 20 6d 61 74 68 2d 6e | 74 68 2d 72 6f 6f 74 2d |n math-n|th-root-|
|00003100| 66 6c 6f 61 74 2d 69 74 | 65 72 20 28 61 20 67 75 |float-it|er (a gu|
|00003110| 65 73 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ess) (by|te-code |
|00003120| 22 08 c7 3d 85 0a 00 c8 | c9 09 5c 22 88 ca cb cc |"..=....|..\"....|
|00003130| 0b 09 5c 22 ca 0c cd 09 | 0d 53 5c 22 5c 22 5c 22 |..\"....|.S\"\"\"|
|00003140| 0e 06 5c 22 1a ce 0a 09 | 5c 22 83 29 00 0a 82 2d |..\"....|\".)...-|
|00003150| 00 cf 0c 0a 5c 22 29 87 | 22 20 5b 63 61 6c 63 2d |....\").|" [calc-|
|00003160| 64 69 73 70 6c 61 79 2d | 77 6f 72 6b 69 6e 67 2d |display-|working-|
|00003170| 6d 65 73 73 61 67 65 20 | 67 75 65 73 73 20 67 32 |message |guess g2|
|00003180| 20 6e 66 6d 31 20 61 20 | 6e 20 6e 66 20 6c 6f 74 | nfm1 a |n nf lot|
|00003190| 73 20 6d 61 74 68 2d 64 | 6f 2d 77 6f 72 6b 69 6e |s math-d|o-workin|
|000031a0| 67 20 22 72 6f 6f 74 22 | 20 6d 61 74 68 2d 64 69 |g "root"| math-di|
|000031b0| 76 2d 66 6c 6f 61 74 20 | 6d 61 74 68 2d 61 64 64 |v-float |math-add|
|000031c0| 2d 66 6c 6f 61 74 20 6d | 61 74 68 2d 6d 75 6c 20 |-float m|ath-mul |
|000031d0| 6d 61 74 68 2d 69 70 6f | 77 20 6d 61 74 68 2d 6e |math-ipo|w math-n|
|000031e0| 65 61 72 6c 79 2d 65 71 | 75 61 6c 2d 66 6c 6f 61 |early-eq|ual-floa|
|000031f0| 74 20 6d 61 74 68 2d 6e | 74 68 2d 72 6f 6f 74 2d |t math-n|th-root-|
|00003200| 66 6c 6f 61 74 2d 69 74 | 65 72 5d 20 31 30 29 29 |float-it|er] 10))|
|00003210| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 6e 74 |..(defun| math-nt|
|00003220| 68 2d 72 6f 6f 74 2d 69 | 6e 74 65 67 65 72 20 28 |h-root-i|nteger (|
|00003230| 61 20 6e 20 26 6f 70 74 | 69 6f 6e 61 6c 20 67 75 |a n &opt|ional gu|
|00003240| 65 73 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ess) (by|te-code |
|00003250| 22 c3 08 09 86 12 00 c4 | c5 c6 c7 08 21 0a 53 5c |".......|....!.S\|
|00003260| 5c 0a 5c 22 5c 22 5c 22 | 87 22 20 5b 61 20 67 75 |\.\"\"\"|." [a gu|
|00003270| 65 73 73 20 6e 20 6d 61 | 74 68 2d 6e 74 68 2d 72 |ess n ma|th-nth-r|
|00003280| 6f 6f 74 2d 69 6e 74 2d | 69 74 65 72 20 6d 61 74 |oot-int-|iter mat|
|00003290| 68 2d 73 63 61 6c 65 2d | 69 6e 74 20 31 20 2f 20 |h-scale-|int 1 / |
|000032a0| 6d 61 74 68 2d 6e 75 6d | 64 69 67 73 5d 20 38 29 |math-num|digs] 8)|
|000032b0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 6e |)..(defu|n math-n|
|000032c0| 74 68 2d 72 6f 6f 74 2d | 69 6e 74 2d 69 74 65 72 |th-root-|int-iter|
|000032d0| 20 28 61 20 67 75 65 73 | 73 29 20 28 62 79 74 65 | (a gues|s) (byte|
|000032e0| 2d 63 6f 64 65 20 22 08 | c7 3d 85 0a 00 c8 c9 09 |-code ".|.=......|
|000032f0| 5c 22 88 ca 0b cb 09 0c | 53 5c 22 5c 22 1a cc 0a |\"......|S\"\"...|
|00003300| 40 cd 0c 53 09 5c 22 5c | 22 1d ca 0d 0c 5c 22 1e |@..S.\"\|"....\".|
|00003310| 06 0e 06 40 3a 83 3d 00 | 09 3a 85 3a 00 ce 0e 06 |...@:.=.|.:.:....|
|00003320| 40 41 09 41 5c 22 cf 55 | 82 47 00 09 3a 86 47 00 |@A.A\".U|.G..:.G.|
|00003330| 0e 06 40 09 57 83 53 00 | d0 0b 0e 06 40 5c 22 82 |..@.W.S.|....@\".|
|00003340| 6a 00 d1 0e 06 40 09 5c | 22 85 68 00 0a 41 d2 3d |j....@.\|".h..A.=|
|00003350| 85 68 00 0e 06 41 d2 3d | 09 42 2b 87 22 20 5b 63 |.h...A.=|.B+." [c|
|00003360| 61 6c 63 2d 64 69 73 70 | 6c 61 79 2d 77 6f 72 6b |alc-disp|lay-work|
|00003370| 69 6e 67 2d 6d 65 73 73 | 61 67 65 20 67 75 65 73 |ing-mess|age gues|
|00003380| 73 20 71 20 61 20 6e 20 | 73 20 67 32 20 6c 6f 74 |s q a n |s g2 lot|
|00003390| 73 20 6d 61 74 68 2d 64 | 6f 2d 77 6f 72 6b 69 6e |s math-d|o-workin|
|000033a0| 67 20 22 72 6f 6f 74 22 | 20 6d 61 74 68 2d 69 64 |g "root"| math-id|
|000033b0| 69 76 6d 6f 64 20 6d 61 | 74 68 2d 69 70 6f 77 20 |ivmod ma|th-ipow |
|000033c0| 6d 61 74 68 2d 61 64 64 | 20 6d 61 74 68 2d 6d 75 |math-add| math-mu|
|000033d0| 6c 20 6d 61 74 68 2d 63 | 6f 6d 70 61 72 65 2d 62 |l math-c|ompare-b|
|000033e0| 69 67 6e 75 6d 20 2d 31 | 20 6d 61 74 68 2d 6e 74 |ignum -1| math-nt|
|000033f0| 68 2d 72 6f 6f 74 2d 69 | 6e 74 2d 69 74 65 72 20 |h-root-i|nt-iter |
|00003400| 65 71 75 61 6c 20 30 5d | 20 31 31 29 29 0a 0a 28 |equal 0]| 11))..(|
|00003410| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 6e |defun ca|lcFunc-n|
|00003420| 72 6f 6f 74 20 28 78 20 | 6e 29 20 28 62 79 74 65 |root (x |n) (byte|
|00003430| 2d 63 6f 64 65 20 22 c2 | 08 c3 09 21 83 0f 00 c4 |-code ".|...!....|
|00003440| c5 09 5c 22 82 13 00 c6 | c5 09 5c 22 5c 22 87 22 |..\"....|..\"\"."|
|00003450| 20 5b 78 20 6e 20 63 61 | 6c 63 46 75 6e 63 2d 70 | [x n ca|lcFunc-p|
|00003460| 6f 77 20 69 6e 74 65 67 | 65 72 70 20 6d 61 74 68 |ow integ|erp math|
|00003470| 2d 6d 61 6b 65 2d 66 72 | 61 63 20 31 20 6d 61 74 |-make-fr|ac 1 mat|
|00003480| 68 2d 64 69 76 5d 20 37 | 29 29 0a 0a 28 64 65 66 |h-div] 7|))..(def|
|00003490| 75 6e 20 6d 61 74 68 2d | 74 6f 2d 72 61 64 69 61 |un math-|to-radia|
|000034a0| 6e 73 20 28 61 29 20 28 | 62 79 74 65 2d 63 6f 64 |ns (a) (|byte-cod|
|000034b0| 65 20 22 c3 08 21 c4 3d | 83 0f 00 c5 08 c6 5c 22 |e "..!.=|......\"|
|000034c0| 82 1e 00 09 c7 3e 83 1d | 00 c8 08 c9 20 5c 22 82 |.....>..|.... \".|
|000034d0| 1e 00 08 87 22 20 5b 61 | 20 63 61 6c 63 2d 61 6e |...." [a| calc-an|
|000034e0| 67 6c 65 2d 6d 6f 64 65 | 20 74 20 63 61 72 2d 73 |gle-mode| t car-s|
|000034f0| 61 66 65 20 68 6d 73 20 | 6d 61 74 68 2d 66 72 6f |afe hms |math-fro|
|00003500| 6d 2d 68 6d 73 20 72 61 | 64 20 28 64 65 67 20 68 |m-hms ra|d (deg h|
|00003510| 6d 73 29 20 6d 61 74 68 | 2d 6d 75 6c 20 6d 61 74 |ms) math|-mul mat|
|00003520| 68 2d 70 69 2d 6f 76 65 | 72 2d 31 38 30 5d 20 36 |h-pi-ove|r-180] 6|
|00003530| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00003540| 66 72 6f 6d 2d 72 61 64 | 69 61 6e 73 20 28 61 29 |from-rad|ians (a)|
|00003550| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 c3 3d | (byte-c|ode "..=|
|00003560| 83 1a 00 c4 09 21 83 14 | 00 c5 09 c6 20 5c 22 82 |.....!..|.... \".|
|00003570| 17 00 c7 09 44 82 28 00 | 08 c8 3d 83 27 00 c9 09 |....D.(.|..=.'...|
|00003580| ca 5c 22 82 28 00 09 87 | 22 20 5b 63 61 6c 63 2d |.\".(...|" [calc-|
|00003590| 61 6e 67 6c 65 2d 6d 6f | 64 65 20 61 20 74 20 64 |angle-mo|de a t d|
|000035a0| 65 67 20 6d 61 74 68 2d | 63 6f 6e 73 74 70 20 6d |eg math-|constp m|
|000035b0| 61 74 68 2d 64 69 76 20 | 6d 61 74 68 2d 70 69 2d |ath-div |math-pi-|
|000035c0| 6f 76 65 72 2d 31 38 30 | 20 63 61 6c 63 46 75 6e |over-180| calcFun|
|000035d0| 63 2d 64 65 67 20 68 6d | 73 20 6d 61 74 68 2d 74 |c-deg hm|s math-t|
|000035e0| 6f 2d 68 6d 73 20 72 61 | 64 5d 20 36 29 29 0a 0a |o-hms ra|d] 6))..|
|000035f0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 74 6f 2d 72 |(defun m|ath-to-r|
|00003600| 61 64 69 61 6e 73 2d 32 | 20 28 61 29 20 28 62 79 |adians-2| (a) (by|
|00003610| 74 65 2d 63 6f 64 65 20 | 22 c4 08 21 c5 3d 83 0f |te-code |"..!.=..|
|00003620| 00 c6 08 c7 5c 22 82 2c | 00 09 c8 3e 83 2b 00 0a |....\".,|...>.+..|
|00003630| 83 23 00 c9 ca 08 cb 5c | 22 cc 5c 22 82 28 00 ca |.#.....\|".\".(..|
|00003640| 08 cd 20 5c 22 82 2c 00 | 08 87 22 20 5b 61 20 63 |.. \".,.|.." [a c|
|00003650| 61 6c 63 2d 61 6e 67 6c | 65 2d 6d 6f 64 65 20 63 |alc-angl|e-mode c|
|00003660| 61 6c 63 2d 73 79 6d 62 | 6f 6c 69 63 2d 6d 6f 64 |alc-symb|olic-mod|
|00003670| 65 20 74 20 63 61 72 2d | 73 61 66 65 20 68 6d 73 |e t car-|safe hms|
|00003680| 20 6d 61 74 68 2d 66 72 | 6f 6d 2d 68 6d 73 20 72 | math-fr|om-hms r|
|00003690| 61 64 20 28 64 65 67 20 | 68 6d 73 29 20 6d 61 74 |ad (deg |hms) mat|
|000036a0| 68 2d 64 69 76 20 6d 61 | 74 68 2d 6d 75 6c 20 28 |h-div ma|th-mul (|
|000036b0| 76 61 72 20 70 69 20 76 | 61 72 2d 70 69 29 20 31 |var pi v|ar-pi) 1|
|000036c0| 38 30 20 6d 61 74 68 2d | 70 69 2d 6f 76 65 72 2d |80 math-|pi-over-|
|000036d0| 31 38 30 5d 20 38 29 29 | 0a 0a 28 64 65 66 75 6e |180] 8))|..(defun|
|000036e0| 20 6d 61 74 68 2d 66 72 | 6f 6d 2d 72 61 64 69 61 | math-fr|om-radia|
|000036f0| 6e 73 2d 32 20 28 61 29 | 20 28 62 79 74 65 2d 63 |ns-2 (a)| (byte-c|
|00003700| 6f 64 65 20 22 08 c4 3e | 83 1c 00 09 83 14 00 c5 |ode "..>|........|
|00003710| c6 c7 0a 5c 22 c8 5c 22 | 82 19 00 c5 0a c9 20 5c |...\".\"|...... \|
|00003720| 22 82 1d 00 0a 87 22 20 | 5b 63 61 6c 63 2d 61 6e |"....." |[calc-an|
|00003730| 67 6c 65 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 73 79 |gle-mode| calc-sy|
|00003740| 6d 62 6f 6c 69 63 2d 6d | 6f 64 65 20 61 20 74 20 |mbolic-m|ode a t |
|00003750| 28 64 65 67 20 68 6d 73 | 29 20 6d 61 74 68 2d 64 |(deg hms|) math-d|
|00003760| 69 76 20 6d 61 74 68 2d | 6d 75 6c 20 31 38 30 20 |iv math-|mul 180 |
|00003770| 28 76 61 72 20 70 69 20 | 76 61 72 2d 70 69 29 20 |(var pi |var-pi) |
|00003780| 6d 61 74 68 2d 70 69 2d | 6f 76 65 72 2d 31 38 30 |math-pi-|over-180|
|00003790| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 6))..(|defun ca|
|000037a0| 6c 63 46 75 6e 63 2d 73 | 69 6e 20 28 78 29 20 28 |lcFunc-s|in (x) (|
|000037b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c8 08 21 85 18 |byte-cod|e "..!..|
|000037c0| 00 09 c9 3d 83 15 00 ca | 08 cb 5c 22 cc 55 82 18 |...=....|..\".U..|
|000037d0| 00 08 cc 55 83 27 00 cd | ce cf 08 cb 5c 22 d0 5c |...U.'..|....\".\|
|000037e0| 22 48 82 b9 00 08 3a 3f | 86 31 00 08 40 d1 3e 83 |"H....:?|.1..@.>.|
|000037f0| 45 00 d2 0a d3 5c 5c 1a | d4 d5 d6 08 21 21 21 29 |E....\\.|....!!!)|
|00003800| 21 82 b9 00 08 40 d7 3d | 83 8e 00 d8 08 21 83 7a |!....@.=|.....!.z|
|00003810| 00 d2 0a d3 5c 5c 1a d5 | d6 d9 08 38 21 21 1b d5 |....\\..|...8!!..|
|00003820| d6 d3 08 38 21 21 1c da | 0b 21 1d db 0d 40 dc 0c |...8!!..|.!...@..|
|00003830| 0d 41 5c 22 5c 22 2b 29 | 21 82 8b 00 db dd d9 08 |.A\"\"+)|!.......|
|00003840| 38 21 dc d3 08 38 de d9 | 08 38 21 5c 22 5c 22 82 |8!...8..|.8!\"\".|
|00003850| b9 00 08 40 df 3d 85 98 | 00 e0 08 21 83 a6 00 de |...@.=..|...!....|
|00003860| e1 08 e2 c6 21 5c 22 21 | 82 b9 00 e3 08 e4 5c 22 |....!\"!|......\"|
|00003870| 83 b1 00 08 82 b9 00 e5 | e6 08 5c 22 88 dd 08 44 |........|..\"...D|
|00003880| 87 22 20 5b 78 20 63 61 | 6c 63 2d 61 6e 67 6c 65 |." [x ca|lc-angle|
|00003890| 2d 6d 6f 64 65 20 63 61 | 6c 63 2d 69 6e 74 65 72 |-mode ca|lc-inter|
|000038a0| 6e 61 6c 2d 70 72 65 63 | 20 78 78 20 78 73 20 73 |nal-prec| xx xs s|
|000038b0| 63 20 6e 69 6c 20 74 20 | 69 6e 74 65 67 65 72 70 |c nil t |integerp|
|000038c0| 20 64 65 67 20 25 20 39 | 30 20 30 20 5b 30 20 31 | deg % 9|0 0 [0 1|
|000038d0| 20 30 20 2d 31 5d 20 6d | 61 74 68 2d 6d 6f 64 20 | 0 -1] m|ath-mod |
|000038e0| 2f 20 34 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |/ 4 (big|pos bign|
|000038f0| 65 67 20 66 72 61 63 20 | 66 6c 6f 61 74 20 63 70 |eg frac |float cp|
|00003900| 6c 78 20 70 6f 6c 61 72 | 20 68 6d 73 29 20 6d 61 |lx polar| hms) ma|
|00003910| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 32 20 6d |th-norma|lize 2 m|
|00003920| 61 74 68 2d 73 69 6e 2d | 72 61 77 20 6d 61 74 68 |ath-sin-|raw math|
|00003930| 2d 74 6f 2d 72 61 64 69 | 61 6e 73 20 6d 61 74 68 |-to-radi|ans math|
|00003940| 2d 66 6c 6f 61 74 20 73 | 64 65 76 20 6d 61 74 68 |-float s|dev math|
|00003950| 2d 63 6f 6e 73 74 70 20 | 31 20 6d 61 74 68 2d 73 |-constp |1 math-s|
|00003960| 69 6e 2d 63 6f 73 2d 72 | 61 77 20 6d 61 74 68 2d |in-cos-r|aw math-|
|00003970| 6d 61 6b 65 2d 73 64 65 | 76 20 6d 61 74 68 2d 6d |make-sde|v math-m|
|00003980| 75 6c 20 63 61 6c 63 46 | 75 6e 63 2d 73 69 6e 20 |ul calcF|unc-sin |
|00003990| 63 61 6c 63 46 75 6e 63 | 2d 63 6f 73 20 69 6e 74 |calcFunc|-cos int|
|000039a0| 76 20 6d 61 74 68 2d 69 | 6e 74 76 2d 63 6f 6e 73 |v math-i|ntv-cons|
|000039b0| 74 70 20 6d 61 74 68 2d | 73 75 62 20 6d 61 74 68 |tp math-|sub math|
|000039c0| 2d 71 75 61 72 74 65 72 | 2d 63 69 72 63 6c 65 20 |-quarter|-circle |
|000039d0| 65 71 75 61 6c 20 28 76 | 61 72 20 6e 61 6e 20 76 |equal (v|ar nan v|
|000039e0| 61 72 2d 6e 61 6e 29 20 | 63 61 6c 63 2d 72 65 63 |ar-nan) |calc-rec|
|000039f0| 6f 72 64 2d 77 68 79 20 | 73 63 61 6c 61 72 70 5d |ord-why |scalarp]|
|00003a00| 20 32 39 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 29))..(|defun ca|
|00003a10| 6c 63 46 75 6e 63 2d 63 | 6f 73 20 28 78 29 20 28 |lcFunc-c|os (x) (|
|00003a20| 62 79 74 65 2d 63 6f 64 | 65 20 22 cb 08 21 85 18 |byte-cod|e "..!..|
|00003a30| 00 09 cc 3d 83 15 00 cd | 08 ce 5c 22 cf 55 82 18 |...=....|..\".U..|
|00003a40| 00 08 cf 55 83 27 00 d0 | d1 d2 08 ce 5c 22 d3 5c |...U.'..|....\".\|
|00003a50| 22 48 82 2e 01 08 3a 3f | 86 31 00 08 40 d4 3e 83 |"H....:?|.1..@.>.|
|00003a60| 45 00 d5 0a d6 5c 5c 1a | d7 d8 d9 08 21 21 21 29 |E....\\.|....!!!)|
|00003a70| 21 82 2e 01 08 40 da 3d | 83 8e 00 db 08 21 83 7a |!....@.=|.....!.z|
|00003a80| 00 d5 0a d6 5c 5c 1a d8 | d9 dc 08 38 21 21 1b d8 |....\\..|...8!!..|
|00003a90| d9 d6 08 38 21 21 1c dd | 0b 21 1d de 0d 41 df 0c |...8!!..|.!...A..|
|00003aa0| 0d 40 5c 22 5c 22 2b 29 | 21 82 8b 00 de e0 dc 08 |.@\"\"+)|!.......|
|00003ab0| 38 21 df d6 08 38 e1 dc | 08 38 21 5c 22 5c 22 82 |8!...8..|.8!\"\".|
|00003ac0| 2e 01 08 40 e2 3d 85 98 | 00 e3 08 21 83 1b 01 d5 |...@.=..|...!....|
|00003ad0| 0a d6 5c 5c 1a d8 d9 08 | 21 21 1b e4 e5 d6 0b 38 |..\\....|!!.....8|
|00003ae0| e6 20 5c 22 21 1e 06 e4 | e5 e7 0b 38 e6 20 5c 22 |. \"!...|...8. \"|
|00003af0| 21 1e 07 e8 0e 07 0e 06 | 5c 22 1e 08 0e 08 e9 3e |!.......|\".....>|
|00003b00| 83 10 01 ea dc 08 38 d7 | d6 0b 38 21 d7 e7 0b 38 |......8.|..8!...8|
|00003b10| 21 23 1e 09 0e 08 dc 3d | 83 0a 01 eb 0e 06 21 83 |!#.....=|......!.|
|00003b20| fa 00 ec ed dc 08 38 d6 | 5c 22 ee e7 0e 09 38 23 |......8.|\"....8#|
|00003b30| 82 07 01 ec ed dc 08 38 | dc 5c 22 d6 0e 09 38 dc |.......8|.\"...8.|
|00003b40| 23 82 0c 01 0e 09 29 82 | 15 01 e2 e7 ee dc 46 2c |#.....).|......F,|
|00003b50| 29 21 82 2e 01 ef 08 f0 | 5c 22 83 26 01 08 82 2e |)!......|\".&....|
|00003b60| 01 f1 f2 08 5c 22 88 e0 | 08 44 87 22 20 5b 78 20 |....\"..|.D." [x |
|00003b70| 63 61 6c 63 2d 61 6e 67 | 6c 65 2d 6d 6f 64 65 20 |calc-ang|le-mode |
|00003b80| 63 61 6c 63 2d 69 6e 74 | 65 72 6e 61 6c 2d 70 72 |calc-int|ernal-pr|
|00003b90| 65 63 20 78 78 20 78 73 | 20 73 63 20 6e 61 20 6e |ec xx xs| sc na n|
|00003ba0| 62 20 73 70 61 6e 20 69 | 6e 74 20 74 20 69 6e 74 |b span i|nt t int|
|00003bb0| 65 67 65 72 70 20 64 65 | 67 20 25 20 39 30 20 30 |egerp de|g % 90 0|
|00003bc0| 20 5b 31 20 30 20 2d 31 | 20 30 5d 20 6d 61 74 68 | [1 0 -1| 0] math|
|00003bd0| 2d 6d 6f 64 20 2f 20 34 | 20 28 62 69 67 70 6f 73 |-mod / 4| (bigpos|
|00003be0| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00003bf0| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 20 68 6d |at cplx |polar hm|
|00003c00| 73 29 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |s) math-|normaliz|
|00003c10| 65 20 32 20 6d 61 74 68 | 2d 63 6f 73 2d 72 61 77 |e 2 math|-cos-raw|
|00003c20| 20 6d 61 74 68 2d 74 6f | 2d 72 61 64 69 61 6e 73 | math-to|-radians|
|00003c30| 20 6d 61 74 68 2d 66 6c | 6f 61 74 20 73 64 65 76 | math-fl|oat sdev|
|00003c40| 20 6d 61 74 68 2d 63 6f | 6e 73 74 70 20 31 20 6d | math-co|nstp 1 m|
|00003c50| 61 74 68 2d 73 69 6e 2d | 63 6f 73 2d 72 61 77 20 |ath-sin-|cos-raw |
|00003c60| 6d 61 74 68 2d 6d 61 6b | 65 2d 73 64 65 76 20 6d |math-mak|e-sdev m|
|00003c70| 61 74 68 2d 6d 75 6c 20 | 63 61 6c 63 46 75 6e 63 |ath-mul |calcFunc|
|00003c80| 2d 63 6f 73 20 63 61 6c | 63 46 75 6e 63 2d 73 69 |-cos cal|cFunc-si|
|00003c90| 6e 20 69 6e 74 76 20 6d | 61 74 68 2d 69 6e 74 76 |n intv m|ath-intv|
|00003ca0| 2d 63 6f 6e 73 74 70 20 | 6d 61 74 68 2d 66 6c 6f |-constp |math-flo|
|00003cb0| 6f 72 20 6d 61 74 68 2d | 64 69 76 20 6d 61 74 68 |or math-|div math|
|00003cc0| 2d 70 69 20 33 20 6d 61 | 74 68 2d 73 75 62 20 28 |-pi 3 ma|th-sub (|
|00003cd0| 30 20 31 29 20 6d 61 74 | 68 2d 73 6f 72 74 2d 69 |0 1) mat|h-sort-i|
|00003ce0| 6e 74 76 20 6d 61 74 68 | 2d 65 76 65 6e 70 20 6d |ntv math|-evenp m|
|00003cf0| 61 74 68 2d 6d 61 6b 65 | 2d 69 6e 74 76 20 6c 6f |ath-make|-intv lo|
|00003d00| 67 69 6f 72 20 2d 31 20 | 65 71 75 61 6c 20 28 76 |gior -1 |equal (v|
|00003d10| 61 72 20 6e 61 6e 20 76 | 61 72 2d 6e 61 6e 29 20 |ar nan v|ar-nan) |
|00003d20| 63 61 6c 63 2d 72 65 63 | 6f 72 64 2d 77 68 79 20 |calc-rec|ord-why |
|00003d30| 73 63 61 6c 61 72 70 5d | 20 34 34 29 29 0a 0a 28 |scalarp]| 44))..(|
|00003d40| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 73 |defun ca|lcFunc-s|
|00003d50| 69 6e 63 6f 73 20 28 78 | 29 20 28 62 79 74 65 2d |incos (x|) (byte-|
|00003d60| 63 6f 64 65 20 22 08 3a | 3f 86 0a 00 08 40 c3 3e |code ".:|?....@.>|
|00003d70| 83 26 00 c4 09 c5 5c 5c | 19 c6 c7 c8 08 21 21 21 |.&....\\|.....!!!|
|00003d80| 1a c9 0a 41 0a 40 45 29 | 29 21 82 2e 00 c9 ca 08 |...A.@E)|)!......|
|00003d90| 21 cb 08 21 45 87 22 20 | 5b 78 20 63 61 6c 63 2d |!..!E." |[x calc-|
|00003da0| 69 6e 74 65 72 6e 61 6c | 2d 70 72 65 63 20 73 63 |internal|-prec sc|
|00003db0| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00003dc0| 66 72 61 63 20 66 6c 6f | 61 74 20 63 70 6c 78 20 |frac flo|at cplx |
|00003dd0| 70 6f 6c 61 72 20 68 6d | 73 29 20 6d 61 74 68 2d |polar hm|s) math-|
|00003de0| 6e 6f 72 6d 61 6c 69 7a | 65 20 32 20 6d 61 74 68 |normaliz|e 2 math|
|00003df0| 2d 73 69 6e 2d 63 6f 73 | 2d 72 61 77 20 6d 61 74 |-sin-cos|-raw mat|
|00003e00| 68 2d 74 6f 2d 72 61 64 | 69 61 6e 73 20 6d 61 74 |h-to-rad|ians mat|
|00003e10| 68 2d 66 6c 6f 61 74 20 | 76 65 63 20 63 61 6c 63 |h-float |vec calc|
|00003e20| 46 75 6e 63 2d 73 69 6e | 20 63 61 6c 63 46 75 6e |Func-sin| calcFun|
|00003e30| 63 2d 63 6f 73 5d 20 39 | 29 29 0a 0a 28 64 65 66 |c-cos] 9|))..(def|
|00003e40| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 74 61 6e 20 |un calcF|unc-tan |
|00003e50| 28 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(x) (byt|e-code "|
|00003e60| ca 08 21 85 18 00 09 cb | 3d 83 15 00 cc 08 cd 5c |..!.....|=......\|
|00003e70| 22 ce 55 82 18 00 08 ce | 55 83 1f 00 ce 82 10 01 |".U.....|U.......|
|00003e80| 08 3a 3f 86 29 00 08 40 | cf 3e 83 3d 00 d0 0a d1 |.:?.)..@|.>.=....|
|00003e90| 5c 5c 1a d2 d3 d4 08 21 | 21 21 29 21 82 10 01 08 |\\.....!|!!)!....|
|00003ea0| 40 d5 3d 83 a5 00 d6 08 | 21 83 8f 00 d0 0a d1 5c |@.=.....|!......\|
|00003eb0| 5c 1a d3 d4 d7 08 38 21 | 21 1b d3 d4 d1 08 38 21 |\.....8!|!.....8!|
|00003ec0| 21 1c d8 0b 21 1d d9 0d | 41 21 85 6d 00 0e 06 3f |!...!...|A!.m...?|
|00003ed0| 83 7a 00 da db 21 88 dc | 08 44 82 89 00 dd de 0d |.z...!..|.D......|
|00003ee0| 40 0d 41 5c 22 de 0c df | 0d 41 21 5c 22 5c 22 2b |@.A\"...|.A!\"\"+|
|00003ef0| 29 21 82 a2 00 dd dc d7 | 08 38 21 e0 d1 08 38 df |)!......|.8!...8.|
|00003f00| e1 d7 08 38 21 21 5c 22 | 5c 22 82 10 01 08 40 e2 |...8!!\"|\"....@.|
|00003f10| 3d 85 af 00 e3 08 21 83 | fd 00 d0 0a d1 5c 5c 1a |=.....!.|.....\\.|
|00003f20| d3 d4 08 21 21 1b e4 e0 | e5 d1 0b 38 e6 20 5c 22 |...!!...|...8. \"|
|00003f30| e7 20 5c 22 21 1e 07 e4 | e0 e5 e8 0b 38 e6 20 5c |. \"!...|....8. \|
|00003f40| 22 e7 20 5c 22 21 1e 08 | e9 0e 07 0e 08 5c 22 85 |". \"!..|.....\".|
|00003f50| f3 00 ea d7 08 38 d2 d1 | 0b 38 21 d2 e8 0b 38 21 |.....8..|.8!...8!|
|00003f60| 23 2b 29 21 86 fa 00 eb | 82 10 01 e9 08 ec 5c 22 |#+)!....|......\"|
|00003f70| 83 08 01 08 82 10 01 da | ed 08 5c 22 88 dc 08 44 |........|..\"...D|
|00003f80| 87 22 20 5b 78 20 63 61 | 6c 63 2d 61 6e 67 6c 65 |." [x ca|lc-angle|
|00003f90| 2d 6d 6f 64 65 20 63 61 | 6c 63 2d 69 6e 74 65 72 |-mode ca|lc-inter|
|00003fa0| 6e 61 6c 2d 70 72 65 63 | 20 78 78 20 78 73 20 73 |nal-prec| xx xs s|
|00003fb0| 63 20 63 61 6c 63 2d 69 | 6e 66 69 6e 69 74 65 2d |c calc-i|nfinite-|
|00003fc0| 6d 6f 64 65 20 6e 61 20 | 6e 62 20 74 20 69 6e 74 |mode na |nb t int|
|00003fd0| 65 67 65 72 70 20 64 65 | 67 20 25 20 31 38 30 20 |egerp de|g % 180 |
|00003fe0| 30 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |0 (bigpo|s bigneg|
|00003ff0| 20 66 72 61 63 20 66 6c | 6f 61 74 20 63 70 6c 78 | frac fl|oat cplx|
|00004000| 20 70 6f 6c 61 72 20 68 | 6d 73 29 20 6d 61 74 68 | polar h|ms) math|
|00004010| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 32 20 6d 61 74 |-normali|ze 2 mat|
|00004020| 68 2d 74 61 6e 2d 72 61 | 77 20 6d 61 74 68 2d 74 |h-tan-ra|w math-t|
|00004030| 6f 2d 72 61 64 69 61 6e | 73 20 6d 61 74 68 2d 66 |o-radian|s math-f|
|00004040| 6c 6f 61 74 20 73 64 65 | 76 20 6d 61 74 68 2d 63 |loat sde|v math-c|
|00004050| 6f 6e 73 74 70 20 31 20 | 6d 61 74 68 2d 73 69 6e |onstp 1 |math-sin|
|00004060| 2d 63 6f 73 2d 72 61 77 | 20 6d 61 74 68 2d 7a 65 |-cos-raw| math-ze|
|00004070| 72 6f 70 20 63 61 6c 63 | 2d 72 65 63 6f 72 64 2d |rop calc|-record-|
|00004080| 77 68 79 20 22 2a 44 69 | 76 69 73 69 6f 6e 20 62 |why "*Di|vision b|
|00004090| 79 20 7a 65 72 6f 22 20 | 63 61 6c 63 46 75 6e 63 |y zero" |calcFunc|
|000040a0| 2d 74 61 6e 20 6d 61 74 | 68 2d 6d 61 6b 65 2d 73 |-tan mat|h-make-s|
|000040b0| 64 65 76 20 6d 61 74 68 | 2d 64 69 76 2d 66 6c 6f |dev math|-div-flo|
|000040c0| 61 74 20 6d 61 74 68 2d | 73 71 72 20 6d 61 74 68 |at math-|sqr math|
|000040d0| 2d 64 69 76 20 63 61 6c | 63 46 75 6e 63 2d 63 6f |-div cal|cFunc-co|
|000040e0| 73 20 69 6e 74 76 20 6d | 61 74 68 2d 69 6e 74 76 |s intv m|ath-intv|
|000040f0| 2d 63 6f 6e 73 74 70 20 | 6d 61 74 68 2d 66 6c 6f |-constp |math-flo|
|00004100| 6f 72 20 6d 61 74 68 2d | 73 75 62 20 6d 61 74 68 |or math-|sub math|
|00004110| 2d 70 69 2d 6f 76 65 72 | 2d 32 20 6d 61 74 68 2d |-pi-over|-2 math-|
|00004120| 70 69 20 33 20 65 71 75 | 61 6c 20 6d 61 74 68 2d |pi 3 equ|al math-|
|00004130| 73 6f 72 74 2d 69 6e 74 | 76 20 28 69 6e 74 76 20 |sort-int|v (intv |
|00004140| 33 20 28 6e 65 67 20 28 | 76 61 72 20 69 6e 66 20 |3 (neg (|var inf |
|00004150| 76 61 72 2d 69 6e 66 29 | 29 20 28 76 61 72 20 69 |var-inf)|) (var i|
|00004160| 6e 66 20 76 61 72 2d 69 | 6e 66 29 29 20 28 76 61 |nf var-i|nf)) (va|
|00004170| 72 20 6e 61 6e 20 76 61 | 72 2d 6e 61 6e 29 20 73 |r nan va|r-nan) s|
|00004180| 63 61 6c 61 72 70 5d 20 | 34 36 29 29 0a 0a 28 64 |calarp] |46))..(d|
|00004190| 65 66 75 6e 20 6d 61 74 | 68 2d 73 69 6e 2d 72 61 |efun mat|h-sin-ra|
|000041a0| 77 20 28 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |w (x) (b|yte-code|
|000041b0| 20 22 08 40 c5 3d 83 34 | 00 c6 c7 08 38 21 19 c8 | ".@.=.4|....8!..|
|000041c0| c9 09 5c 22 1a ca cb 08 | 38 21 1b c5 cc 0b 40 cc |..\"....|8!....@.|
|000041d0| cd 09 0a 5c 22 ce 5c 22 | 5c 22 cc 0b 41 cc cf 09 |...\".\"|\"..A...|
|000041e0| 0a 5c 22 d0 5c 22 5c 22 | 45 2b 82 7c 00 08 40 d1 |.\".\"\"|E+.|..@.|
|000041f0| 3d 83 45 00 d2 d3 d4 08 | 21 21 21 82 7c 00 cb 08 |=.E.....|!!!.|...|
|00004200| 38 3a 83 55 00 cb 08 38 | 40 d5 3d 82 5a 00 cb 08 |8:.U...8|@.=.Z...|
|00004210| 38 d6 57 83 67 00 d7 d3 | d7 08 21 21 21 82 7c 00 |8.W.g...|..!!!.|.|
|00004220| d8 d9 08 5c 22 83 78 00 | d3 da 08 db 20 5c 22 21 |...\".x.|.... \"!|
|00004230| 82 7c 00 dc 08 08 5c 22 | 87 22 20 5b 78 20 65 78 |.|....\"|." [x ex|
|00004240| 70 78 20 65 78 70 6d 78 | 20 73 63 20 74 20 63 70 |px expmx| sc t cp|
|00004250| 6c 78 20 6d 61 74 68 2d | 65 78 70 2d 72 61 77 20 |lx math-|exp-raw |
|00004260| 32 20 6d 61 74 68 2d 64 | 69 76 2d 66 6c 6f 61 74 |2 math-d|iv-float|
|00004270| 20 28 66 6c 6f 61 74 20 | 31 20 30 29 20 6d 61 74 | (float |1 0) mat|
|00004280| 68 2d 73 69 6e 2d 63 6f | 73 2d 72 61 77 20 31 20 |h-sin-co|s-raw 1 |
|00004290| 6d 61 74 68 2d 6d 75 6c | 2d 66 6c 6f 61 74 20 6d |math-mul|-float m|
|000042a0| 61 74 68 2d 61 64 64 2d | 66 6c 6f 61 74 20 28 66 |ath-add-|float (f|
|000042b0| 6c 6f 61 74 20 35 20 2d | 31 29 20 6d 61 74 68 2d |loat 5 -|1) math-|
|000042c0| 73 75 62 2d 66 6c 6f 61 | 74 20 28 66 6c 6f 61 74 |sub-floa|t (float|
|000042d0| 20 35 20 2d 31 29 20 70 | 6f 6c 61 72 20 6d 61 74 | 5 -1) p|olar mat|
|000042e0| 68 2d 70 6f 6c 61 72 20 | 6d 61 74 68 2d 73 69 6e |h-polar |math-sin|
|000042f0| 2d 72 61 77 20 6d 61 74 | 68 2d 63 6f 6d 70 6c 65 |-raw mat|h-comple|
|00004300| 78 20 62 69 67 6e 65 67 | 20 30 20 6d 61 74 68 2d |x bigneg| 0 math-|
|00004310| 6e 65 67 2d 66 6c 6f 61 | 74 20 6d 61 74 68 2d 6c |neg-floa|t math-l|
|00004320| 65 73 73 70 2d 66 6c 6f | 61 74 20 28 66 6c 6f 61 |essp-flo|at (floa|
|00004330| 74 20 37 20 30 29 20 6d | 61 74 68 2d 6d 6f 64 20 |t 7 0) m|ath-mod |
|00004340| 6d 61 74 68 2d 74 77 6f | 2d 70 69 20 6d 61 74 68 |math-two|-pi math|
|00004350| 2d 73 69 6e 2d 72 61 77 | 2d 32 5d 20 32 32 29 29 |-sin-raw|-2] 22))|
|00004360| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 63 6f |..(defun| math-co|
|00004370| 73 2d 72 61 77 20 28 78 | 29 20 28 62 79 74 65 2d |s-raw (x|) (byte-|
|00004380| 63 6f 64 65 20 22 c1 08 | 21 c2 3d 83 12 00 c3 c4 |code "..|!.=.....|
|00004390| c5 08 21 21 21 82 19 00 | c6 c7 c8 20 08 5c 22 21 |..!!!...|... .\"!|
|000043a0| 87 22 20 5b 78 20 63 61 | 72 2d 73 61 66 65 20 70 |." [x ca|r-safe p|
|000043b0| 6f 6c 61 72 20 6d 61 74 | 68 2d 70 6f 6c 61 72 20 |olar mat|h-polar |
|000043c0| 6d 61 74 68 2d 63 6f 73 | 2d 72 61 77 20 6d 61 74 |math-cos|-raw mat|
|000043d0| 68 2d 63 6f 6d 70 6c 65 | 78 20 6d 61 74 68 2d 73 |h-comple|x math-s|
|000043e0| 69 6e 2d 72 61 77 20 6d | 61 74 68 2d 73 75 62 20 |in-raw m|ath-sub |
|000043f0| 6d 61 74 68 2d 70 69 2d | 6f 76 65 72 2d 32 5d 20 |math-pi-|over-2] |
|00004400| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |9))..(de|fun math|
|00004410| 2d 73 69 6e 2d 63 6f 73 | 2d 72 61 77 20 28 78 29 |-sin-cos|-raw (x)|
|00004420| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|00004430| c2 08 21 42 87 22 20 5b | 78 20 6d 61 74 68 2d 73 |..!B." [|x math-s|
|00004440| 69 6e 2d 72 61 77 20 6d | 61 74 68 2d 63 6f 73 2d |in-raw m|ath-cos-|
|00004450| 72 61 77 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |raw] 4))|..(defun|
|00004460| 20 6d 61 74 68 2d 74 61 | 6e 2d 72 61 77 20 28 78 | math-ta|n-raw (x|
|00004470| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 40 |) (byte-|code ".@|
|00004480| c6 3d 83 47 00 c7 08 c8 | 5c 22 18 c9 ca 08 38 21 |.=.G....|\"....8!|
|00004490| 19 cb cc 09 5c 22 1a cd | ce 08 38 21 1b cf 0b 41 |....\"..|..8!...A|
|000044a0| d0 cf 09 0a 5c 22 d1 5c | 22 5c 22 1c ce 0c 38 d2 |....\".\|"\"...8.|
|000044b0| 3d 3f 85 43 00 c6 cb 0b | 40 0c 5c 22 cb d0 d3 09 |=?.C....|@.\"....|
|000044c0| 0a 5c 22 d4 5c 22 0c 5c | 22 45 2d 82 74 00 08 40 |.\".\".\|"E-.t..@|
|000044d0| d5 3d 83 58 00 d6 d7 d8 | 08 21 21 21 82 74 00 cd |.=.X....|.!!!.t..|
|000044e0| 08 21 1b ce 0b 41 38 d2 | 3d 83 6d 00 d9 0b 40 d2 |.!...A8.|=.m...@.|
|000044f0| 5c 22 82 73 00 cb 0b 40 | 0b 41 5c 22 29 87 22 20 |\".s...@|.A\")." |
|00004500| 5b 78 20 65 78 70 78 20 | 65 78 70 6d 78 20 73 63 |[x expx |expmx sc|
|00004510| 20 64 20 74 20 63 70 6c | 78 20 6d 61 74 68 2d 6d | d t cpl|x math-m|
|00004520| 75 6c 20 28 66 6c 6f 61 | 74 20 32 20 30 29 20 6d |ul (floa|t 2 0) m|
|00004530| 61 74 68 2d 65 78 70 2d | 72 61 77 20 32 20 6d 61 |ath-exp-|raw 2 ma|
|00004540| 74 68 2d 64 69 76 2d 66 | 6c 6f 61 74 20 28 66 6c |th-div-f|loat (fl|
|00004550| 6f 61 74 20 31 20 30 29 | 20 6d 61 74 68 2d 73 69 |oat 1 0)| math-si|
|00004560| 6e 2d 63 6f 73 2d 72 61 | 77 20 31 20 6d 61 74 68 |n-cos-ra|w 1 math|
|00004570| 2d 61 64 64 2d 66 6c 6f | 61 74 20 6d 61 74 68 2d |-add-flo|at math-|
|00004580| 6d 75 6c 2d 66 6c 6f 61 | 74 20 28 66 6c 6f 61 74 |mul-floa|t (float|
|00004590| 20 35 20 2d 31 29 20 30 | 20 6d 61 74 68 2d 73 75 | 5 -1) 0| math-su|
|000045a0| 62 2d 66 6c 6f 61 74 20 | 28 66 6c 6f 61 74 20 35 |b-float |(float 5|
|000045b0| 20 2d 31 29 20 70 6f 6c | 61 72 20 6d 61 74 68 2d | -1) pol|ar math-|
|000045c0| 70 6f 6c 61 72 20 6d 61 | 74 68 2d 74 61 6e 2d 72 |polar ma|th-tan-r|
|000045d0| 61 77 20 6d 61 74 68 2d | 63 6f 6d 70 6c 65 78 20 |aw math-|complex |
|000045e0| 6d 61 74 68 2d 64 69 76 | 5d 20 31 39 29 29 0a 0a |math-div|] 19))..|
|000045f0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 73 69 6e 2d |(defun m|ath-sin-|
|00004600| 72 61 77 2d 32 20 28 78 | 20 6f 72 67 78 29 20 28 |raw-2 (x| orgx) (|
|00004610| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 c7 20 09 5c |byte-cod|e ".. .\|
|00004620| 22 18 c8 08 38 3a 83 16 | 00 c8 08 38 40 c9 3d 82 |"...8:..|...8@.=.|
|00004630| 1b 00 c8 08 38 ca 57 83 | 2b 00 cb cc c6 09 cd 20 |....8.W.|+...... |
|00004640| 5c 22 0a 5c 22 21 82 72 | 00 ce cf 20 09 5c 22 83 |\".\"!.r|... .\".|
|00004650| 3a 00 d0 08 0a 5c 22 82 | 72 00 ce 09 d1 cf 20 21 |:....\".|r..... !|
|00004660| 5c 22 83 51 00 d1 d0 d2 | c7 20 09 5c 22 0a 5c 22 |\".Q....|. .\".\"|
|00004670| 21 82 72 00 d3 09 0a 5c | 22 83 5c 5c 00 d4 82 72 |!.r....\|".\\...r|
|00004680| 00 0b 83 67 00 d5 d6 c4 | 5c 22 82 72 00 d7 09 d8 |...g....|\".r....|
|00004690| d9 09 cb da 09 21 21 25 | 29 87 22 20 5b 78 6d 70 |.....!!%|)." [xmp|
|000046a0| 6f 32 20 78 20 6f 72 67 | 78 20 63 61 6c 63 2d 73 |o2 x org|x calc-s|
|000046b0| 79 6d 62 6f 6c 69 63 2d | 6d 6f 64 65 20 6e 69 6c |ymbolic-|mode nil|
|000046c0| 20 74 20 6d 61 74 68 2d | 73 75 62 2d 66 6c 6f 61 | t math-|sub-floa|
|000046d0| 74 20 6d 61 74 68 2d 70 | 69 2d 6f 76 65 72 2d 32 |t math-p|i-over-2|
|000046e0| 20 31 20 62 69 67 6e 65 | 67 20 30 20 6d 61 74 68 | 1 bigne|g 0 math|
|000046f0| 2d 6e 65 67 2d 66 6c 6f | 61 74 20 6d 61 74 68 2d |-neg-flo|at math-|
|00004700| 73 69 6e 2d 72 61 77 2d | 32 20 6d 61 74 68 2d 70 |sin-raw-|2 math-p|
|00004710| 69 20 6d 61 74 68 2d 6c | 65 73 73 70 2d 66 6c 6f |i math-l|essp-flo|
|00004720| 61 74 20 6d 61 74 68 2d | 70 69 2d 6f 76 65 72 2d |at math-|pi-over-|
|00004730| 34 20 6d 61 74 68 2d 63 | 6f 73 2d 72 61 77 2d 32 |4 math-c|os-raw-2|
|00004740| 20 6d 61 74 68 2d 6e 65 | 67 20 6d 61 74 68 2d 61 | math-ne|g math-a|
|00004750| 64 64 20 6d 61 74 68 2d | 6e 65 61 72 6c 79 2d 7a |dd math-|nearly-z|
|00004760| 65 72 6f 70 2d 66 6c 6f | 61 74 20 28 66 6c 6f 61 |erop-flo|at (floa|
|00004770| 74 20 30 20 30 29 20 73 | 69 67 6e 61 6c 20 69 6e |t 0 0) s|ignal in|
|00004780| 65 78 61 63 74 2d 72 65 | 73 75 6c 74 20 6d 61 74 |exact-re|sult mat|
|00004790| 68 2d 73 69 6e 2d 73 65 | 72 69 65 73 20 36 20 34 |h-sin-se|ries 6 4|
|000047a0| 20 6d 61 74 68 2d 73 71 | 72 2d 66 6c 6f 61 74 5d | math-sq|r-float]|
|000047b0| 20 32 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | 26))..(|defun ma|
|000047c0| 74 68 2d 63 6f 73 2d 72 | 61 77 2d 32 20 28 78 20 |th-cos-r|aw-2 (x |
|000047d0| 6f 72 67 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |orgx) (b|yte-code|
|000047e0| 20 22 c6 08 09 5c 22 83 | 0b 00 c7 82 2a 00 0a 83 | "...\".|....*...|
|000047f0| 16 00 c8 c9 c3 5c 22 82 | 2a 00 ca cb 08 21 21 1d |.....\".|*....!!.|
|00004800| cc cd ce cf 0d d0 5c 22 | 5c 22 d1 d2 0d 0d 25 29 |......\"|\"....%)|
|00004810| 87 22 20 5b 78 20 6f 72 | 67 78 20 63 61 6c 63 2d |." [x or|gx calc-|
|00004820| 73 79 6d 62 6f 6c 69 63 | 2d 6d 6f 64 65 20 6e 69 |symbolic|-mode ni|
|00004830| 6c 20 74 20 78 6e 65 67 | 73 71 72 20 6d 61 74 68 |l t xneg|sqr math|
|00004840| 2d 6e 65 61 72 6c 79 2d | 7a 65 72 6f 70 2d 66 6c |-nearly-|zerop-fl|
|00004850| 6f 61 74 20 28 66 6c 6f | 61 74 20 31 20 30 29 20 |oat (flo|at 1 0) |
|00004860| 73 69 67 6e 61 6c 20 69 | 6e 65 78 61 63 74 2d 72 |signal i|nexact-r|
|00004870| 65 73 75 6c 74 20 6d 61 | 74 68 2d 6e 65 67 2d 66 |esult ma|th-neg-f|
|00004880| 6c 6f 61 74 20 6d 61 74 | 68 2d 73 71 72 2d 66 6c |loat mat|h-sqr-fl|
|00004890| 6f 61 74 20 6d 61 74 68 | 2d 73 69 6e 2d 73 65 72 |oat math|-sin-ser|
|000048a0| 69 65 73 20 6d 61 74 68 | 2d 61 64 64 2d 66 6c 6f |ies math|-add-flo|
|000048b0| 61 74 20 28 66 6c 6f 61 | 74 20 31 20 30 29 20 6d |at (floa|t 1 0) m|
|000048c0| 61 74 68 2d 6d 75 6c 2d | 66 6c 6f 61 74 20 28 66 |ath-mul-|float (f|
|000048d0| 6c 6f 61 74 20 35 20 2d | 31 29 20 32 34 20 35 5d |loat 5 -|1) 24 5]|
|000048e0| 20 31 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | 12))..(|defun ma|
|000048f0| 74 68 2d 73 69 6e 2d 73 | 65 72 69 65 73 20 28 73 |th-sin-s|eries (s|
|00004900| 75 6d 20 6e 66 61 63 20 | 6e 20 78 20 78 6e 65 67 |um nfac |n x xneg|
|00004910| 73 71 72 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |sqr) (by|te-code |
|00004920| 22 08 c8 3d 85 0a 00 c9 | ca 09 5c 22 88 cb 0b 0c |"..=....|..\"....|
|00004930| 5c 22 1a cc 09 cd 0a ce | 0e 06 21 5c 22 5c 22 1d |\"......|..!\"\".|
|00004940| cf 09 0d 5c 22 83 26 00 | 09 82 3a 00 d0 0d d1 0e |...\".&.|..:.....|
|00004950| 06 d2 0e 07 0e 07 54 5c | 22 5c 22 0e 07 d3 5c 5c |......T\|"\"...\\|
|00004960| 0a 0c 25 2a 87 22 20 5b | 63 61 6c 63 2d 64 69 73 |..%*." [|calc-dis|
|00004970| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 6d 65 73 |play-wor|king-mes|
|00004980| 73 61 67 65 20 73 75 6d | 20 6e 65 78 74 78 20 78 |sage sum| nextx x|
|00004990| 20 78 6e 65 67 73 71 72 | 20 6e 65 78 74 73 75 6d | xnegsqr| nextsum|
|000049a0| 20 6e 66 61 63 20 6e 20 | 6c 6f 74 73 20 6d 61 74 | nfac n |lots mat|
|000049b0| 68 2d 64 6f 2d 77 6f 72 | 6b 69 6e 67 20 22 73 69 |h-do-wor|king "si|
|000049c0| 6e 22 20 6d 61 74 68 2d | 6d 75 6c 2d 66 6c 6f 61 |n" math-|mul-floa|
|000049d0| 74 20 6d 61 74 68 2d 61 | 64 64 2d 66 6c 6f 61 74 |t math-a|dd-float|
|000049e0| 20 6d 61 74 68 2d 64 69 | 76 2d 66 6c 6f 61 74 20 | math-di|v-float |
|000049f0| 6d 61 74 68 2d 66 6c 6f | 61 74 20 6d 61 74 68 2d |math-flo|at math-|
|00004a00| 6e 65 61 72 6c 79 2d 65 | 71 75 61 6c 2d 66 6c 6f |nearly-e|qual-flo|
|00004a10| 61 74 20 6d 61 74 68 2d | 73 69 6e 2d 73 65 72 69 |at math-|sin-seri|
|00004a20| 65 73 20 6d 61 74 68 2d | 6d 75 6c 20 2a 20 32 5d |es math-|mul * 2]|
|00004a30| 20 31 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 14))..(|defun ca|
|00004a40| 6c 63 46 75 6e 63 2d 61 | 72 63 73 69 6e 20 28 78 |lcFunc-a|rcsin (x|
|00004a50| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c6 |) (byte-|code "..|
|00004a60| 3d 83 0a 00 c6 82 a1 00 | 08 c7 3d 85 13 00 09 c8 |=.......|..=.....|
|00004a70| 3d 83 1a 00 c9 82 a1 00 | 08 ca 3d 85 23 00 09 c8 |=.......|..=.#...|
|00004a80| 3d 83 2a 00 cb 82 a1 00 | 0a 83 35 00 cc cd c3 5c |=.*.....|..5....\|
|00004a90| 22 82 a1 00 08 3a 3f 86 | 3f 00 08 40 ce 3e 83 53 |"....:?.|?..@.>.S|
|00004aa0| 00 cf 0c d0 5c 5c 1c d1 | d2 d3 08 21 21 21 29 21 |....\\..|...!!!)!|
|00004ab0| 82 a1 00 08 40 d4 3d 83 | 75 00 d5 d6 c7 08 38 21 |....@.=.|u.....8!|
|00004ac0| d1 d7 d0 08 38 d8 d9 c7 | da c7 08 38 21 5c 22 21 |....8...|...8!\"!|
|00004ad0| 5c 22 21 5c 22 82 a1 00 | 08 40 db 3d 83 8e 00 dc |\"!\"...|.@.=....|
|00004ae0| c7 08 38 d6 d0 08 38 21 | d6 dd 08 38 21 23 82 a1 |..8...8!|...8!#..|
|00004af0| 00 de 08 df 5c 22 83 99 | 00 08 82 a1 00 e0 e1 08 |....\"..|........|
|00004b00| 5c 22 88 d6 08 44 87 22 | 20 5b 78 20 63 61 6c 63 |\"...D."| [x calc|
|00004b10| 2d 61 6e 67 6c 65 2d 6d | 6f 64 65 20 63 61 6c 63 |-angle-m|ode calc|
|00004b20| 2d 73 79 6d 62 6f 6c 69 | 63 2d 6d 6f 64 65 20 6e |-symboli|c-mode n|
|00004b30| 69 6c 20 63 61 6c 63 2d | 69 6e 74 65 72 6e 61 6c |il calc-|internal|
|00004b40| 2d 70 72 65 63 20 74 20 | 30 20 31 20 64 65 67 20 |-prec t |0 1 deg |
|00004b50| 39 30 20 2d 31 20 2d 39 | 30 20 73 69 67 6e 61 6c |90 -1 -9|0 signal|
|00004b60| 20 69 6e 65 78 61 63 74 | 2d 72 65 73 75 6c 74 20 | inexact|-result |
|00004b70| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00004b80| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00004b90| 6f 6c 61 72 29 20 6d 61 | 74 68 2d 6e 6f 72 6d 61 |olar) ma|th-norma|
|00004ba0| 6c 69 7a 65 20 32 20 6d | 61 74 68 2d 66 72 6f 6d |lize 2 m|ath-from|
|00004bb0| 2d 72 61 64 69 61 6e 73 | 20 6d 61 74 68 2d 61 72 |-radians| math-ar|
|00004bc0| 63 73 69 6e 2d 72 61 77 | 20 6d 61 74 68 2d 66 6c |csin-raw| math-fl|
|00004bd0| 6f 61 74 20 73 64 65 76 | 20 6d 61 74 68 2d 6d 61 |oat sdev| math-ma|
|00004be0| 6b 65 2d 73 64 65 76 20 | 63 61 6c 63 46 75 6e 63 |ke-sdev |calcFunc|
|00004bf0| 2d 61 72 63 73 69 6e 20 | 6d 61 74 68 2d 64 69 76 |-arcsin |math-div|
|00004c00| 20 6d 61 74 68 2d 73 71 | 72 74 20 6d 61 74 68 2d | math-sq|rt math-|
|00004c10| 73 75 62 20 6d 61 74 68 | 2d 73 71 72 20 69 6e 74 |sub math|-sqr int|
|00004c20| 76 20 6d 61 74 68 2d 73 | 6f 72 74 2d 69 6e 74 76 |v math-s|ort-intv|
|00004c30| 20 33 20 65 71 75 61 6c | 20 28 76 61 72 20 6e 61 | 3 equal| (var na|
|00004c40| 6e 20 76 61 72 2d 6e 61 | 6e 29 20 63 61 6c 63 2d |n var-na|n) calc-|
|00004c50| 72 65 63 6f 72 64 2d 77 | 68 79 20 6e 75 6d 62 65 |record-w|hy numbe|
|00004c60| 72 70 5d 20 31 39 29 29 | 0a 0a 28 64 65 66 75 6e |rp] 19))|..(defun|
|00004c70| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 63 6f 73 | calcFun|c-arccos|
|00004c80| 20 28 78 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (x) (by|te-code |
|00004c90| 22 08 c6 3d 83 0a 00 c7 | 82 a1 00 08 c7 3d 85 13 |"..=....|.....=..|
|00004ca0| 00 09 c8 3d 83 1a 00 c9 | 82 a1 00 08 ca 3d 85 23 |...=....|.....=.#|
|00004cb0| 00 09 c8 3d 83 2a 00 cb | 82 a1 00 0a 83 35 00 cc |...=.*..|.....5..|
|00004cc0| cd c3 5c 22 82 a1 00 08 | 3a 3f 86 3f 00 08 40 ce |..\"....|:?.?..@.|
|00004cd0| 3e 83 53 00 cf 0c d0 5c | 5c 1c d1 d2 d3 08 21 21 |>.S....\|\.....!!|
|00004ce0| 21 29 21 82 a1 00 08 40 | d4 3d 83 75 00 d5 d6 c6 |!)!....@|.=.u....|
|00004cf0| 08 38 21 d1 d7 d0 08 38 | d8 d9 c6 da c6 08 38 21 |.8!....8|......8!|
|00004d00| 5c 22 21 5c 22 21 5c 22 | 82 a1 00 08 40 db 3d 83 |\"!\"!\"|....@.=.|
|00004d10| 8e 00 dc c6 08 38 d6 d0 | 08 38 21 d6 dd 08 38 21 |.....8..|.8!...8!|
|00004d20| 23 82 a1 00 de 08 df 5c | 22 83 99 00 08 82 a1 00 |#......\|".......|
|00004d30| e0 e1 08 5c 22 88 d6 08 | 44 87 22 20 5b 78 20 63 |...\"...|D." [x c|
|00004d40| 61 6c 63 2d 61 6e 67 6c | 65 2d 6d 6f 64 65 20 63 |alc-angl|e-mode c|
|00004d50| 61 6c 63 2d 73 79 6d 62 | 6f 6c 69 63 2d 6d 6f 64 |alc-symb|olic-mod|
|00004d60| 65 20 6e 69 6c 20 63 61 | 6c 63 2d 69 6e 74 65 72 |e nil ca|lc-inter|
|00004d70| 6e 61 6c 2d 70 72 65 63 | 20 74 20 31 20 30 20 64 |nal-prec| t 1 0 d|
|00004d80| 65 67 20 39 30 20 2d 31 | 20 31 38 30 20 73 69 67 |eg 90 -1| 180 sig|
|00004d90| 6e 61 6c 20 69 6e 65 78 | 61 63 74 2d 72 65 73 75 |nal inex|act-resu|
|00004da0| 6c 74 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |lt (bigp|os bigne|
|00004db0| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 63 70 6c |g frac f|loat cpl|
|00004dc0| 78 20 70 6f 6c 61 72 29 | 20 6d 61 74 68 2d 6e 6f |x polar)| math-no|
|00004dd0| 72 6d 61 6c 69 7a 65 20 | 32 20 6d 61 74 68 2d 66 |rmalize |2 math-f|
|00004de0| 72 6f 6d 2d 72 61 64 69 | 61 6e 73 20 6d 61 74 68 |rom-radi|ans math|
|00004df0| 2d 61 72 63 63 6f 73 2d | 72 61 77 20 6d 61 74 68 |-arccos-|raw math|
|00004e00| 2d 66 6c 6f 61 74 20 73 | 64 65 76 20 6d 61 74 68 |-float s|dev math|
|00004e10| 2d 6d 61 6b 65 2d 73 64 | 65 76 20 63 61 6c 63 46 |-make-sd|ev calcF|
|00004e20| 75 6e 63 2d 61 72 63 63 | 6f 73 20 6d 61 74 68 2d |unc-arcc|os math-|
|00004e30| 64 69 76 20 6d 61 74 68 | 2d 73 71 72 74 20 6d 61 |div math|-sqrt ma|
|00004e40| 74 68 2d 73 75 62 20 6d | 61 74 68 2d 73 71 72 20 |th-sub m|ath-sqr |
|00004e50| 69 6e 74 76 20 6d 61 74 | 68 2d 73 6f 72 74 2d 69 |intv mat|h-sort-i|
|00004e60| 6e 74 76 20 33 20 65 71 | 75 61 6c 20 28 76 61 72 |ntv 3 eq|ual (var|
|00004e70| 20 6e 61 6e 20 76 61 72 | 2d 6e 61 6e 29 20 63 61 | nan var|-nan) ca|
|00004e80| 6c 63 2d 72 65 63 6f 72 | 64 2d 77 68 79 20 6e 75 |lc-recor|d-why nu|
|00004e90| 6d 62 65 72 70 5d 20 31 | 39 29 29 0a 0a 28 64 65 |mberp] 1|9))..(de|
|00004ea0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 61 72 63 |fun calc|Func-arc|
|00004eb0| 74 61 6e 20 28 78 29 20 | 28 62 79 74 65 2d 63 6f |tan (x) |(byte-co|
|00004ec0| 64 65 20 22 08 c4 3d 83 | 0a 00 c4 82 b0 00 08 c5 |de "..=.|........|
|00004ed0| 3d 85 13 00 09 c6 3d 83 | 1a 00 c7 82 b0 00 08 c8 |=.....=.|........|
|00004ee0| 3d 85 23 00 09 c6 3d 83 | 2a 00 c9 82 b0 00 08 3a |=.#...=.|*......:|
|00004ef0| 3f 86 34 00 08 40 ca 3e | 83 48 00 cb 0a cc 5c 5c |?.4..@.>|.H....\\|
|00004f00| 1a cd ce cf 08 21 21 21 | 29 21 82 b0 00 08 40 d0 |.....!!!|)!....@.|
|00004f10| 3d 83 68 00 d1 d2 c5 08 | 38 21 cd d3 cc 08 38 d4 |=.h.....|8!....8.|
|00004f20| c5 d5 c5 08 38 21 5c 22 | 5c 22 21 5c 22 82 b0 00 |....8!\"|\"!\"...|
|00004f30| 08 40 d6 3d 83 81 00 d7 | c5 08 38 d2 cc 08 38 21 |.@.=....|..8...8!|
|00004f40| d2 d8 08 38 21 23 82 b0 | 00 d9 08 da 5c 22 83 8e |...8!#..|....\"..|
|00004f50| 00 db c3 21 82 b0 00 d9 | 08 dc 5c 22 83 9d 00 dd |...!....|..\"....|
|00004f60| db c3 21 21 82 b0 00 d9 | 08 de 5c 22 83 a8 00 08 |..!!....|..\"....|
|00004f70| 82 b0 00 df e0 08 5c 22 | 88 d2 08 44 87 22 20 5b |......\"|...D." [|
|00004f80| 78 20 63 61 6c 63 2d 61 | 6e 67 6c 65 2d 6d 6f 64 |x calc-a|ngle-mod|
|00004f90| 65 20 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d |e calc-i|nternal-|
|00004fa0| 70 72 65 63 20 74 20 30 | 20 31 20 64 65 67 20 34 |prec t 0| 1 deg 4|
|00004fb0| 35 20 2d 31 20 2d 34 35 | 20 28 62 69 67 70 6f 73 |5 -1 -45| (bigpos|
|00004fc0| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00004fd0| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 29 20 6d |at cplx |polar) m|
|00004fe0| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 32 20 |ath-norm|alize 2 |
|00004ff0| 6d 61 74 68 2d 66 72 6f | 6d 2d 72 61 64 69 61 6e |math-fro|m-radian|
|00005000| 73 20 6d 61 74 68 2d 61 | 72 63 74 61 6e 2d 72 61 |s math-a|rctan-ra|
|00005010| 77 20 6d 61 74 68 2d 66 | 6c 6f 61 74 20 73 64 65 |w math-f|loat sde|
|00005020| 76 20 6d 61 74 68 2d 6d | 61 6b 65 2d 73 64 65 76 |v math-m|ake-sdev|
|00005030| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 74 61 6e | calcFun|c-arctan|
|00005040| 20 6d 61 74 68 2d 64 69 | 76 20 6d 61 74 68 2d 61 | math-di|v math-a|
|00005050| 64 64 20 6d 61 74 68 2d | 73 71 72 20 69 6e 74 76 |dd math-|sqr intv|
|00005060| 20 6d 61 74 68 2d 73 6f | 72 74 2d 69 6e 74 76 20 | math-so|rt-intv |
|00005070| 33 20 65 71 75 61 6c 20 | 28 76 61 72 20 69 6e 66 |3 equal |(var inf|
|00005080| 20 76 61 72 2d 69 6e 66 | 29 20 6d 61 74 68 2d 71 | var-inf|) math-q|
|00005090| 75 61 72 74 65 72 2d 63 | 69 72 63 6c 65 20 28 6e |uarter-c|ircle (n|
|000050a0| 65 67 20 28 76 61 72 20 | 69 6e 66 20 76 61 72 2d |eg (var |inf var-|
|000050b0| 69 6e 66 29 29 20 6d 61 | 74 68 2d 6e 65 67 20 28 |inf)) ma|th-neg (|
|000050c0| 76 61 72 20 6e 61 6e 20 | 76 61 72 2d 6e 61 6e 29 |var nan |var-nan)|
|000050d0| 20 63 61 6c 63 2d 72 65 | 63 6f 72 64 2d 77 68 79 | calc-re|cord-why|
|000050e0| 20 6e 75 6d 62 65 72 70 | 5d 20 32 32 29 29 0a 0a | numberp|] 22))..|
|000050f0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 61 72 63 73 |(defun m|ath-arcs|
|00005100| 69 6e 2d 72 61 77 20 28 | 78 29 20 28 62 79 74 65 |in-raw (|x) (byte|
|00005110| 2d 63 6f 64 65 20 22 c3 | c4 c5 c6 09 21 5c 22 21 |-code ".|....!\"!|
|00005120| 18 09 40 c7 3e 86 14 00 | 08 40 c8 3e 83 2d 00 c9 |..@.>...|.@.>.-..|
|00005130| 0a ca 5c 5c 1a cb cc cd | ce cb cf 09 5c 22 08 5c |..\\....|....\".\|
|00005140| 22 21 5c 22 29 21 82 31 | 00 d0 09 08 5c 22 29 87 |"!\")!.1|....\").|
|00005150| 22 20 5b 61 20 78 20 63 | 61 6c 63 2d 69 6e 74 65 |" [a x c|alc-inte|
|00005160| 72 6e 61 6c 2d 70 72 65 | 63 20 6d 61 74 68 2d 73 |rnal-pre|c math-s|
|00005170| 71 72 74 2d 72 61 77 20 | 6d 61 74 68 2d 73 75 62 |qrt-raw |math-sub|
|00005180| 20 28 66 6c 6f 61 74 20 | 31 20 30 29 20 6d 61 74 | (float |1 0) mat|
|00005190| 68 2d 73 71 72 20 28 63 | 70 6c 78 20 70 6f 6c 61 |h-sqr (c|plx pola|
|000051a0| 72 29 20 28 63 70 6c 78 | 20 70 6f 6c 61 72 29 20 |r) (cplx| polar) |
|000051b0| 6d 61 74 68 2d 6e 6f 72 | 6d 61 6c 69 7a 65 20 32 |math-nor|malize 2|
|000051c0| 20 6d 61 74 68 2d 6d 75 | 6c 20 28 63 70 6c 78 20 | math-mu|l (cplx |
|000051d0| 30 20 2d 31 29 20 6d 61 | 74 68 2d 6c 6e 2d 72 61 |0 -1) ma|th-ln-ra|
|000051e0| 77 20 6d 61 74 68 2d 61 | 64 64 20 28 63 70 6c 78 |w math-a|dd (cplx|
|000051f0| 20 30 20 31 29 20 6d 61 | 74 68 2d 61 72 63 74 61 | 0 1) ma|th-arcta|
|00005200| 6e 32 2d 72 61 77 5d 20 | 31 31 29 29 0a 0a 28 64 |n2-raw] |11))..(d|
|00005210| 65 66 75 6e 20 6d 61 74 | 68 2d 61 72 63 63 6f 73 |efun mat|h-arccos|
|00005220| 2d 72 61 77 20 28 78 29 | 20 28 62 79 74 65 2d 63 |-raw (x)| (byte-c|
|00005230| 6f 64 65 20 22 c1 c2 20 | c3 08 21 5c 22 87 22 20 |ode ".. |..!\"." |
|00005240| 5b 78 20 6d 61 74 68 2d | 73 75 62 20 6d 61 74 68 |[x math-|sub math|
|00005250| 2d 70 69 2d 6f 76 65 72 | 2d 32 20 6d 61 74 68 2d |-pi-over|-2 math-|
|00005260| 61 72 63 73 69 6e 2d 72 | 61 77 5d 20 35 29 29 0a |arcsin-r|aw] 5)).|
|00005270| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 61 72 63 |.(defun |math-arc|
|00005280| 74 61 6e 2d 72 61 77 20 | 28 78 29 20 28 62 79 74 |tan-raw |(x) (byt|
|00005290| 65 2d 63 6f 64 65 20 22 | 08 40 c5 3e 83 28 00 c6 |e-code "|.@.>.(..|
|000052a0| 09 c7 5c 5c 19 c8 c9 ca | cb cc cd ce 08 5c 22 5c |..\\....|.....\"\|
|000052b0| 22 21 ca cb cc cd cf 08 | 5c 22 5c 22 21 5c 22 d0 |"!......|\"\"!\".|
|000052c0| 5c 22 29 21 82 b7 00 cc | 08 38 3a 83 38 00 cc 08 |\")!....|.8:.8...|
|000052d0| 38 40 d1 3d 82 3d 00 cc | 08 38 d2 57 83 4a 00 d3 |8@.=.=..|.8.W.J..|
|000052e0| d4 d3 08 21 21 21 82 b7 | 00 d5 08 21 83 54 00 08 |...!!!..|...!.T..|
|000052f0| 82 b7 00 0a 83 5f 00 d6 | d7 c3 5c 22 82 b7 00 d8 |....._..|..\"....|
|00005300| 08 cc 5c 22 83 6b 00 d9 | 20 82 b7 00 d8 08 da 5c |..\".k..| ......\|
|00005310| 22 83 79 00 db d9 20 21 | 82 b7 00 dc dd 08 5c 22 |".y... !|......\"|
|00005320| 83 ad 00 dc de 08 5c 22 | 83 97 00 df e0 e1 20 e2 |......\"|...... .|
|00005330| 5c 22 d4 e3 e4 08 5c 22 | 21 5c 22 82 aa 00 df e0 |\"....\"|!\".....|
|00005340| e1 20 e5 5c 22 d4 e3 df | e6 08 5c 22 e7 e8 08 5c |. .\"...|..\"...\|
|00005350| 22 5c 22 21 5c 22 82 b7 | 00 e9 08 ea 08 d3 eb 08 |"\"!\"..|........|
|00005360| 21 21 24 87 22 20 5b 78 | 20 63 61 6c 63 2d 69 6e |!!$." [x| calc-in|
|00005370| 74 65 72 6e 61 6c 2d 70 | 72 65 63 20 63 61 6c 63 |ternal-p|rec calc|
|00005380| 2d 73 79 6d 62 6f 6c 69 | 63 2d 6d 6f 64 65 20 6e |-symboli|c-mode n|
|00005390| 69 6c 20 74 20 28 63 70 | 6c 78 20 70 6f 6c 61 72 |il t (cp|lx polar|
|000053a0| 29 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |) math-n|ormalize|
|000053b0| 20 32 20 6d 61 74 68 2d | 64 69 76 20 6d 61 74 68 | 2 math-|div math|
|000053c0| 2d 73 75 62 20 6d 61 74 | 68 2d 6c 6e 2d 72 61 77 |-sub mat|h-ln-raw|
|000053d0| 20 6d 61 74 68 2d 61 64 | 64 20 31 20 6d 61 74 68 | math-ad|d 1 math|
|000053e0| 2d 6d 75 6c 20 28 63 70 | 6c 78 20 30 20 31 29 20 |-mul (cp|lx 0 1) |
|000053f0| 28 63 70 6c 78 20 30 20 | 2d 31 29 20 28 63 70 6c |(cplx 0 |-1) (cpl|
|00005400| 78 20 30 20 32 29 20 62 | 69 67 6e 65 67 20 30 20 |x 0 2) b|igneg 0 |
|00005410| 6d 61 74 68 2d 6e 65 67 | 2d 66 6c 6f 61 74 20 6d |math-neg|-float m|
|00005420| 61 74 68 2d 61 72 63 74 | 61 6e 2d 72 61 77 20 6d |ath-arct|an-raw m|
|00005430| 61 74 68 2d 7a 65 72 6f | 70 20 73 69 67 6e 61 6c |ath-zero|p signal|
|00005440| 20 69 6e 65 78 61 63 74 | 2d 72 65 73 75 6c 74 20 | inexact|-result |
|00005450| 6d 61 74 68 2d 65 71 75 | 61 6c 2d 69 6e 74 20 6d |math-equ|al-int m|
|00005460| 61 74 68 2d 70 69 2d 6f | 76 65 72 2d 34 20 2d 31 |ath-pi-o|ver-4 -1|
|00005470| 20 6d 61 74 68 2d 6e 65 | 67 20 6d 61 74 68 2d 6c | math-ne|g math-l|
|00005480| 65 73 73 70 2d 66 6c 6f | 61 74 20 28 66 6c 6f 61 |essp-flo|at (floa|
|00005490| 74 20 34 31 34 32 31 34 | 20 2d 36 29 20 28 66 6c |t 414214| -6) (fl|
|000054a0| 6f 61 74 20 31 20 30 29 | 20 6d 61 74 68 2d 73 75 |oat 1 0)| math-su|
|000054b0| 62 2d 66 6c 6f 61 74 20 | 6d 61 74 68 2d 6d 75 6c |b-float |math-mul|
|000054c0| 2d 66 6c 6f 61 74 20 6d | 61 74 68 2d 70 69 20 28 |-float m|ath-pi (|
|000054d0| 66 6c 6f 61 74 20 35 20 | 2d 31 29 20 6d 61 74 68 |float 5 |-1) math|
|000054e0| 2d 64 69 76 2d 66 6c 6f | 61 74 20 28 66 6c 6f 61 |-div-flo|at (floa|
|000054f0| 74 20 31 20 30 29 20 28 | 66 6c 6f 61 74 20 32 35 |t 1 0) (|float 25|
|00005500| 20 2d 32 29 20 28 66 6c | 6f 61 74 20 31 20 30 29 | -2) (fl|oat 1 0)|
|00005510| 20 6d 61 74 68 2d 61 64 | 64 2d 66 6c 6f 61 74 20 | math-ad|d-float |
|00005520| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 6d 61 74 68 |(float 1| 0) math|
|00005530| 2d 61 72 63 74 61 6e 2d | 73 65 72 69 65 73 20 33 |-arctan-|series 3|
|00005540| 20 6d 61 74 68 2d 73 71 | 72 2d 66 6c 6f 61 74 5d | math-sq|r-float]|
|00005550| 20 34 30 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | 40))..(|defun ma|
|00005560| 74 68 2d 61 72 63 74 61 | 6e 2d 73 65 72 69 65 73 |th-arcta|n-series|
|00005570| 20 28 73 75 6d 20 6e 20 | 78 20 78 6e 65 67 73 71 | (sum n |x xnegsq|
|00005580| 72 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |r) (byte|-code ".|
|00005590| c7 3d 85 0a 00 c8 c9 09 | 5c 22 88 ca 0b 0c 5c 22 |.=......|\"....\"|
|000055a0| 1a cb 09 cc 0a cd 0e 06 | 21 5c 22 5c 22 1d ce 09 |........|!\"\"...|
|000055b0| 0d 5c 22 83 26 00 09 82 | 2f 00 cf 0d 0e 06 d0 5c |.\".&...|/......\|
|000055c0| 5c 0a 0c 24 2a 87 22 20 | 5b 63 61 6c 63 2d 64 69 |\..$*." |[calc-di|
|000055d0| 73 70 6c 61 79 2d 77 6f | 72 6b 69 6e 67 2d 6d 65 |splay-wo|rking-me|
|000055e0| 73 73 61 67 65 20 73 75 | 6d 20 6e 65 78 74 78 20 |ssage su|m nextx |
|000055f0| 78 20 78 6e 65 67 73 71 | 72 20 6e 65 78 74 73 75 |x xnegsq|r nextsu|
|00005600| 6d 20 6e 20 6c 6f 74 73 | 20 6d 61 74 68 2d 64 6f |m n lots| math-do|
|00005610| 2d 77 6f 72 6b 69 6e 67 | 20 22 61 72 63 74 61 6e |-working| "arctan|
|00005620| 22 20 6d 61 74 68 2d 6d | 75 6c 2d 66 6c 6f 61 74 |" math-m|ul-float|
|00005630| 20 6d 61 74 68 2d 61 64 | 64 2d 66 6c 6f 61 74 20 | math-ad|d-float |
|00005640| 6d 61 74 68 2d 64 69 76 | 2d 66 6c 6f 61 74 20 6d |math-div|-float m|
|00005650| 61 74 68 2d 66 6c 6f 61 | 74 20 6d 61 74 68 2d 6e |ath-floa|t math-n|
|00005660| 65 61 72 6c 79 2d 65 71 | 75 61 6c 2d 66 6c 6f 61 |early-eq|ual-floa|
|00005670| 74 20 6d 61 74 68 2d 61 | 72 63 74 61 6e 2d 73 65 |t math-a|rctan-se|
|00005680| 72 69 65 73 20 32 5d 20 | 31 31 29 29 0a 0a 28 64 |ries 2] |11))..(d|
|00005690| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |efun cal|cFunc-ar|
|000056a0| 63 74 61 6e 32 20 28 79 | 20 78 29 20 28 62 79 74 |ctan2 (y| x) (byt|
|000056b0| 65 2d 63 6f 64 65 20 22 | 08 3a 3f 86 0a 00 08 40 |e-code "|.:?....@|
|000056c0| c4 3e 83 3a 00 09 3a 3f | 86 17 00 09 40 c5 3e 83 |.>.:..:?|....@.>.|
|000056d0| 2e 00 c6 0a c7 5c 5c 1a | c8 c9 ca 08 21 ca 09 21 |.....\\.|....!..!|
|000056e0| 5c 22 21 29 21 82 37 00 | cb cc 09 5c 22 88 cd 08 |\"!)!.7.|...\"...|
|000056f0| 09 45 82 b2 00 ce 09 21 | 86 43 00 cf 09 21 85 4f |.E.....!|.C...!.O|
|00005700| 00 ce 08 21 86 4f 00 cf | 08 21 83 a9 00 d0 09 21 |...!.O..|.!.....!|
|00005710| 83 5e 00 d1 89 11 82 73 | 00 d2 09 21 83 6a 00 d3 |.^.....s|...!.j..|
|00005720| 89 11 82 73 00 d4 09 21 | 86 73 00 c3 89 11 88 d0 |...s...!|.s......|
|00005730| 08 21 83 80 00 d1 89 10 | 82 95 00 d2 08 21 83 8c |.!......|.....!..|
|00005740| 00 d3 89 10 82 95 00 d4 | 08 21 86 95 00 c3 89 10 |........|.!......|
|00005750| 88 08 85 9b 00 09 83 a5 | 00 cd 08 09 5c 22 82 a6 |........|....\"..|
|00005760| 00 d5 82 b2 00 cb cc 08 | 5c 22 88 cd 08 09 45 87 |........|\"....E.|
|00005770| 22 20 5b 79 20 78 20 63 | 61 6c 63 2d 69 6e 74 65 |" [y x c|alc-inte|
|00005780| 72 6e 61 6c 2d 70 72 65 | 63 20 6e 69 6c 20 28 62 |rnal-pre|c nil (b|
|00005790| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|000057a0| 63 20 66 6c 6f 61 74 20 | 68 6d 73 29 20 28 62 69 |c float |hms) (bi|
|000057b0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|000057c0| 20 66 6c 6f 61 74 20 68 | 6d 73 29 20 6d 61 74 68 | float h|ms) math|
|000057d0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 32 20 6d 61 74 |-normali|ze 2 mat|
|000057e0| 68 2d 66 72 6f 6d 2d 72 | 61 64 69 61 6e 73 20 6d |h-from-r|adians m|
|000057f0| 61 74 68 2d 61 72 63 74 | 61 6e 32 2d 72 61 77 20 |ath-arct|an2-raw |
|00005800| 6d 61 74 68 2d 66 6c 6f | 61 74 20 63 61 6c 63 2d |math-flo|at calc-|
|00005810| 72 65 63 6f 72 64 2d 77 | 68 79 20 61 6e 67 6c 65 |record-w|hy angle|
|00005820| 70 20 63 61 6c 63 46 75 | 6e 63 2d 61 72 63 74 61 |p calcFu|nc-arcta|
|00005830| 6e 32 20 6d 61 74 68 2d | 69 6e 66 69 6e 69 74 65 |n2 math-|infinite|
|00005840| 70 20 6d 61 74 68 2d 61 | 6e 67 6c 65 70 20 6d 61 |p math-a|nglep ma|
|00005850| 74 68 2d 70 6f 73 70 20 | 31 20 6d 61 74 68 2d 6e |th-posp |1 math-n|
|00005860| 65 67 70 20 2d 31 20 6d | 61 74 68 2d 7a 65 72 6f |egp -1 m|ath-zero|
|00005870| 70 20 28 76 61 72 20 6e | 61 6e 20 76 61 72 2d 6e |p (var n|an var-n|
|00005880| 61 6e 29 5d 20 32 31 29 | 29 0a 0a 28 64 65 66 75 |an)] 21)|)..(defu|
|00005890| 6e 20 6d 61 74 68 2d 61 | 72 63 74 61 6e 32 2d 72 |n math-a|rctan2-r|
|000058a0| 61 77 20 28 79 20 78 29 | 20 28 62 79 74 65 2d 63 |aw (y x)| (byte-c|
|000058b0| 6f 64 65 20 22 c3 08 21 | 83 25 00 c4 09 21 83 11 |ode "..!|.%...!..|
|000058c0| 00 c5 20 82 5c 22 00 c6 | 09 21 86 1a 00 c6 08 21 |.. .\"..|.!.....!|
|000058d0| 83 21 00 c7 82 5c 22 00 | c8 82 69 00 c3 09 21 83 |.!...\".|..i...!.|
|000058e0| 3d 00 c9 08 21 83 36 00 | ca 20 82 3a 00 cb ca 20 |=...!.6.|. .:... |
|000058f0| 21 82 69 00 c9 09 21 83 | 4c 00 cc cd 08 09 5c 22 |!.i...!.|L.....\"|
|00005900| 21 82 69 00 c9 08 21 83 | 5f 00 ce cc cd 08 09 5c |!.i...!.|_......\|
|00005910| 22 21 c5 20 5c 22 82 69 | 00 cf cc cd 08 09 5c 22 |"!. \".i|......\"|
|00005920| 21 c5 20 5c 22 87 22 20 | 5b 79 20 78 20 74 20 6d |!. \"." |[y x t m|
|00005930| 61 74 68 2d 7a 65 72 6f | 70 20 6d 61 74 68 2d 6e |ath-zero|p math-n|
|00005940| 65 67 70 20 6d 61 74 68 | 2d 70 69 20 6d 61 74 68 |egp math|-pi math|
|00005950| 2d 66 6c 6f 61 74 70 20 | 28 66 6c 6f 61 74 20 30 |-floatp |(float 0|
|00005960| 20 30 29 20 30 20 6d 61 | 74 68 2d 70 6f 73 70 20 | 0) 0 ma|th-posp |
|00005970| 6d 61 74 68 2d 70 69 2d | 6f 76 65 72 2d 32 20 6d |math-pi-|over-2 m|
|00005980| 61 74 68 2d 6e 65 67 20 | 6d 61 74 68 2d 61 72 63 |ath-neg |math-arc|
|00005990| 74 61 6e 2d 72 61 77 20 | 6d 61 74 68 2d 64 69 76 |tan-raw |math-div|
|000059a0| 2d 66 6c 6f 61 74 20 6d | 61 74 68 2d 61 64 64 2d |-float m|ath-add-|
|000059b0| 66 6c 6f 61 74 20 6d 61 | 74 68 2d 73 75 62 2d 66 |float ma|th-sub-f|
|000059c0| 6c 6f 61 74 5d 20 32 34 | 29 29 0a 0a 28 64 65 66 |loat] 24|))..(def|
|000059d0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 61 72 63 73 |un calcF|unc-arcs|
|000059e0| 69 6e 63 6f 73 20 28 78 | 29 20 28 62 79 74 65 2d |incos (x|) (byte-|
|000059f0| 63 6f 64 65 20 22 08 3a | 85 09 00 08 40 c1 3d 85 |code ".:|....@.=.|
|00005a00| 10 00 08 47 c2 55 83 1e | 00 c3 c4 08 38 c5 08 38 |...G.U..|....8..8|
|00005a10| 5c 22 82 5c 22 00 c6 08 | c7 5c 22 87 22 20 5b 78 |\".\"...|.\"." [x|
|00005a20| 20 76 65 63 20 33 20 63 | 61 6c 63 46 75 6e 63 2d | vec 3 c|alcFunc-|
|00005a30| 61 72 63 74 61 6e 32 20 | 32 20 31 20 6d 61 74 68 |arctan2 |2 1 math|
|00005a40| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 22 2a 54 77 |-reject-|arg "*Tw|
|00005a50| 6f 2d 65 6c 65 6d 65 6e | 74 20 76 65 63 74 6f 72 |o-elemen|t vector|
|00005a60| 20 65 78 70 65 63 74 65 | 64 22 5d 20 34 29 29 0a | expecte|d"] 4)).|
|00005a70| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00005a80| 2d 65 78 70 20 28 78 29 | 20 28 62 79 74 65 2d 63 |-exp (x)| (byte-c|
|00005a90| 6f 64 65 20 22 08 c5 3d | 83 0a 00 c6 82 9f 00 08 |ode "..=|........|
|00005aa0| c7 3e 85 11 00 09 83 25 | 00 08 c6 3d 83 1e 00 c8 |.>.....%|...=....|
|00005ab0| 82 5c 22 00 c9 c6 ca 5c | 22 82 9f 00 08 3a 3f 86 |.\"....\|"....:?.|
|00005ac0| 2f 00 08 40 cb 3e 83 41 | 00 cc 0a cd 5c 5c 1a ce |/..@.>.A|....\\..|
|00005ad0| cf 08 21 21 29 21 82 9f | 00 d0 08 21 d1 3d 83 5c |..!!)!..|...!.=.\|
|00005ae0| 5c 00 d2 c6 08 38 21 1b | d3 0b d4 cd 08 38 0b 5c |\....8!.|.....8.\|
|00005af0| 22 5c 22 29 82 9f 00 d0 | 08 21 d5 3d 83 76 00 d6 |"\")....|.!.=.v..|
|00005b00| c6 08 38 d2 cd 08 38 21 | d2 d7 08 38 21 23 82 9f |..8...8!|...8!#..|
|00005b10| 00 d8 08 d9 5c 22 83 81 | 00 08 82 9f 00 d8 08 da |....\"..|........|
|00005b20| 5c 22 83 8c 00 c5 82 9f | 00 d8 08 db 5c 22 83 97 |\"......|....\"..|
|00005b30| 00 08 82 9f 00 dc dd 08 | 5c 22 88 d2 08 44 87 22 |........|\"...D."|
|00005b40| 20 5b 78 20 63 61 6c 63 | 2d 73 79 6d 62 6f 6c 69 | [x calc|-symboli|
|00005b50| 63 2d 6d 6f 64 65 20 63 | 61 6c 63 2d 69 6e 74 65 |c-mode c|alc-inte|
|00005b60| 72 6e 61 6c 2d 70 72 65 | 63 20 65 78 20 74 20 30 |rnal-pre|c ex t 0|
|00005b70| 20 31 20 28 31 20 2d 31 | 29 20 28 76 61 72 20 65 | 1 (1 -1|) (var e|
|00005b80| 20 76 61 72 2d 65 29 20 | 6d 61 74 68 2d 64 69 76 | var-e) |math-div|
|00005b90| 20 28 76 61 72 20 65 20 | 76 61 72 2d 65 29 20 28 | (var e |var-e) (|
|00005ba0| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00005bb0| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00005bc0| 6c 61 72 29 20 6d 61 74 | 68 2d 6e 6f 72 6d 61 6c |lar) mat|h-normal|
|00005bd0| 69 7a 65 20 32 20 6d 61 | 74 68 2d 65 78 70 2d 72 |ize 2 ma|th-exp-r|
|00005be0| 61 77 20 6d 61 74 68 2d | 66 6c 6f 61 74 20 63 61 |aw math-|float ca|
|00005bf0| 72 2d 73 61 66 65 20 73 | 64 65 76 20 63 61 6c 63 |r-safe s|dev calc|
|00005c00| 46 75 6e 63 2d 65 78 70 | 20 6d 61 74 68 2d 6d 61 |Func-exp| math-ma|
|00005c10| 6b 65 2d 73 64 65 76 20 | 6d 61 74 68 2d 6d 75 6c |ke-sdev |math-mul|
|00005c20| 20 69 6e 74 76 20 6d 61 | 74 68 2d 6d 61 6b 65 2d | intv ma|th-make-|
|00005c30| 69 6e 74 76 20 33 20 65 | 71 75 61 6c 20 28 76 61 |intv 3 e|qual (va|
|00005c40| 72 20 69 6e 66 20 76 61 | 72 2d 69 6e 66 29 20 28 |r inf va|r-inf) (|
|00005c50| 6e 65 67 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |neg (var| inf var|
|00005c60| 2d 69 6e 66 29 29 20 28 | 76 61 72 20 6e 61 6e 20 |-inf)) (|var nan |
|00005c70| 76 61 72 2d 6e 61 6e 29 | 20 63 61 6c 63 2d 72 65 |var-nan)| calc-re|
|00005c80| 63 6f 72 64 2d 77 68 79 | 20 6e 75 6d 62 65 72 70 |cord-why| numberp|
|00005c90| 5d 20 31 38 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |] 18))..|(defun c|
|00005ca0| 61 6c 63 46 75 6e 63 2d | 65 78 70 6d 31 20 28 78 |alcFunc-|expm1 (x|
|00005cb0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c6 |) (byte-|code "..|
|00005cc0| 3d 83 0a 00 c6 82 d7 00 | c7 08 21 83 14 00 c8 82 |=.......|..!.....|
|00005cd0| d7 00 09 83 1f 00 c9 ca | c2 5c 22 82 d7 00 08 3a |........|.\"....:|
|00005ce0| 3f 86 29 00 08 40 cb 3e | 83 5c 5c 00 cc 0b cd 5c |?.)..@.>|.\\....\|
|00005cf0| 5c 1b ce 08 21 18 08 40 | cf 3d 85 47 00 d0 08 d1 |\...!..@|.=.G....|
|00005d00| 5c 22 85 47 00 d0 d2 08 | 5c 22 83 50 00 d3 08 21 |\".G....|\".P...!|
|00005d10| 82 56 00 d4 d5 08 21 d6 | 5c 22 29 29 21 82 d7 00 |.V....!.|\"))!...|
|00005d20| d7 08 21 d8 3d 83 94 00 | d9 08 21 83 80 00 da db |..!.=...|..!.....|
|00005d30| 08 38 21 1c dc 0c dd cd | 08 38 d4 0c db 5c 22 5c |.8!.....|.8...\"\|
|00005d40| 22 5c 22 29 82 91 00 dc | da db 08 38 21 dd cd 08 |"\")....|...8!...|
|00005d50| 38 de db 08 38 21 5c 22 | 5c 22 82 d7 00 d7 08 21 |8...8!\"|\".....!|
|00005d60| df 3d 83 ae 00 e0 db 08 | 38 da cd 08 38 21 da e1 |.=......|8...8!..|
|00005d70| 08 38 21 23 82 d7 00 e2 | 08 e3 5c 22 83 b9 00 08 |.8!#....|..\"....|
|00005d80| 82 d7 00 e2 08 e4 5c 22 | 83 c4 00 d6 82 d7 00 e2 |......\"|........|
|00005d90| 08 e5 5c 22 83 cf 00 08 | 82 d7 00 e6 e7 08 5c 22 |..\"....|......\"|
|00005da0| 88 da 08 44 87 22 20 5b | 78 20 63 61 6c 63 2d 73 |...D." [|x calc-s|
|00005db0| 79 6d 62 6f 6c 69 63 2d | 6d 6f 64 65 20 6e 69 6c |ymbolic-|mode nil|
|00005dc0| 20 63 61 6c 63 2d 69 6e | 74 65 72 6e 61 6c 2d 70 | calc-in|ternal-p|
|00005dd0| 72 65 63 20 65 78 20 74 | 20 30 20 6d 61 74 68 2d |rec ex t| 0 math-|
|00005de0| 7a 65 72 6f 70 20 28 66 | 6c 6f 61 74 20 30 20 30 |zerop (f|loat 0 0|
|00005df0| 29 20 73 69 67 6e 61 6c | 20 69 6e 65 78 61 63 74 |) signal| inexact|
|00005e00| 2d 72 65 73 75 6c 74 20 | 28 62 69 67 70 6f 73 20 |-result |(bigpos |
|00005e10| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00005e20| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 29 20 6d 61 |t cplx p|olar) ma|
|00005e30| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 32 20 6d |th-norma|lize 2 m|
|00005e40| 61 74 68 2d 66 6c 6f 61 | 74 20 66 6c 6f 61 74 20 |ath-floa|t float |
|00005e50| 6d 61 74 68 2d 6c 65 73 | 73 70 2d 66 6c 6f 61 74 |math-les|sp-float|
|00005e60| 20 28 66 6c 6f 61 74 20 | 31 20 30 29 20 28 66 6c | (float |1 0) (fl|
|00005e70| 6f 61 74 20 2d 31 20 30 | 29 20 6d 61 74 68 2d 65 |oat -1 0|) math-e|
|00005e80| 78 70 2d 6d 69 6e 75 73 | 2d 31 2d 72 61 77 20 6d |xp-minus|-1-raw m|
|00005e90| 61 74 68 2d 61 64 64 20 | 6d 61 74 68 2d 65 78 70 |ath-add |math-exp|
|00005ea0| 2d 72 61 77 20 2d 31 20 | 63 61 72 2d 73 61 66 65 |-raw -1 |car-safe|
|00005eb0| 20 73 64 65 76 20 6d 61 | 74 68 2d 63 6f 6e 73 74 | sdev ma|th-const|
|00005ec0| 70 20 63 61 6c 63 46 75 | 6e 63 2d 65 78 70 6d 31 |p calcFu|nc-expm1|
|00005ed0| 20 31 20 6d 61 74 68 2d | 6d 61 6b 65 2d 73 64 65 | 1 math-|make-sde|
|00005ee0| 76 20 6d 61 74 68 2d 6d | 75 6c 20 63 61 6c 63 46 |v math-m|ul calcF|
|00005ef0| 75 6e 63 2d 65 78 70 20 | 69 6e 74 76 20 6d 61 74 |unc-exp |intv mat|
|00005f00| 68 2d 6d 61 6b 65 2d 69 | 6e 74 76 20 33 20 65 71 |h-make-i|ntv 3 eq|
|00005f10| 75 61 6c 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |ual (var| inf var|
|00005f20| 2d 69 6e 66 29 20 28 6e | 65 67 20 28 76 61 72 20 |-inf) (n|eg (var |
|00005f30| 69 6e 66 20 76 61 72 2d | 69 6e 66 29 29 20 28 76 |inf var-|inf)) (v|
|00005f40| 61 72 20 6e 61 6e 20 76 | 61 72 2d 6e 61 6e 29 20 |ar nan v|ar-nan) |
|00005f50| 63 61 6c 63 2d 72 65 63 | 6f 72 64 2d 77 68 79 20 |calc-rec|ord-why |
|00005f60| 6e 75 6d 62 65 72 70 5d | 20 32 39 29 29 0a 0a 28 |numberp]| 29))..(|
|00005f70| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 65 |defun ca|lcFunc-e|
|00005f80| 78 70 31 30 20 28 78 29 | 20 28 62 79 74 65 2d 63 |xp10 (x)| (byte-c|
|00005f90| 6f 64 65 20 22 08 c1 3d | 83 0a 00 c2 82 0e 00 c3 |ode "..=|........|
|00005fa0| c4 08 5c 22 87 22 20 5b | 78 20 30 20 31 20 6d 61 |..\"." [|x 0 1 ma|
|00005fb0| 74 68 2d 70 6f 77 20 28 | 66 6c 6f 61 74 20 31 20 |th-pow (|float 1 |
|00005fc0| 31 29 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |1)] 3)).|.(defun |
|00005fd0| 6d 61 74 68 2d 65 78 70 | 2d 72 61 77 20 28 78 29 |math-exp|-raw (x)|
|00005fe0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 ca 08 21 | (byte-c|ode "..!|
|00005ff0| 83 0a 00 cb 82 ae 00 09 | 83 15 00 cc cd c2 5c 22 |........|......\"|
|00006000| 82 ae 00 08 40 ce 3d 83 | 38 00 cf d0 08 38 21 d1 |....@.=.|8....8!.|
|00006010| d2 08 38 21 1c 1b ce d3 | 0b 0c 41 5c 22 d3 0b 0c |..8!....|..A\"...|
|00006020| 40 5c 22 45 2a 82 ae 00 | 08 40 d4 3d 83 53 00 d5 |@\"E*...|.@.=.S..|
|00006030| 08 21 1d d4 cf d0 0d 38 | 21 d6 d2 0d 38 21 45 29 |.!.....8|!...8!E)|
|00006040| 82 ae 00 d7 d8 08 5c 22 | 86 5e 00 d7 08 d9 5c 22 |......\"|.^....\"|
|00006050| 83 a8 00 d7 da 08 5c 22 | 83 6d 00 db 20 82 76 00 |......\"|.m.. .v.|
|00006060| d7 08 dc 5c 22 85 76 00 | dd 20 88 d3 08 de 5c 22 |...\".v.|. ....\"|
|00006070| 1e 06 df d0 0e 06 38 d2 | 0e 06 38 5c 22 1e 07 e0 |......8.|..8\"...|
|00006080| 08 d3 e1 0e 07 21 e2 5c | 22 5c 22 1e 08 d3 e3 e4 |.....!.\|"\".....|
|00006090| 20 0e 07 5c 22 e5 e6 e7 | 0e 08 21 5c 22 5c 22 2b | ..\"...|..!\"\"+|
|000060a0| 82 ae 00 e5 e8 e7 08 21 | 5c 22 87 22 20 5b 78 20 |.......!|\"." [x |
|000060b0| 63 61 6c 63 2d 73 79 6d | 62 6f 6c 69 63 2d 6d 6f |calc-sym|bolic-mo|
|000060c0| 64 65 20 6e 69 6c 20 65 | 78 70 78 20 73 63 20 78 |de nil e|xpx sc x|
|000060d0| 63 20 74 77 6f 2d 78 20 | 68 69 6e 74 20 68 66 72 |c two-x |hint hfr|
|000060e0| 61 63 20 74 20 6d 61 74 | 68 2d 7a 65 72 6f 70 20 |ac t mat|h-zerop |
|000060f0| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 73 69 67 6e |(float 1| 0) sign|
|00006100| 61 6c 20 69 6e 65 78 61 | 63 74 2d 72 65 73 75 6c |al inexa|ct-resul|
|00006110| 74 20 63 70 6c 78 20 6d | 61 74 68 2d 65 78 70 2d |t cplx m|ath-exp-|
|00006120| 72 61 77 20 31 20 6d 61 | 74 68 2d 73 69 6e 2d 63 |raw 1 ma|th-sin-c|
|00006130| 6f 73 2d 72 61 77 20 32 | 20 6d 61 74 68 2d 6d 75 |os-raw 2| math-mu|
|00006140| 6c 2d 66 6c 6f 61 74 20 | 70 6f 6c 61 72 20 6d 61 |l-float |polar ma|
|00006150| 74 68 2d 63 6f 6d 70 6c | 65 78 20 6d 61 74 68 2d |th-compl|ex math-|
|00006160| 66 72 6f 6d 2d 72 61 64 | 69 61 6e 73 20 6d 61 74 |from-rad|ians mat|
|00006170| 68 2d 6c 65 73 73 70 2d | 66 6c 6f 61 74 20 28 66 |h-lessp-|float (f|
|00006180| 6c 6f 61 74 20 35 20 2d | 31 29 20 28 66 6c 6f 61 |loat 5 -|1) (floa|
|00006190| 74 20 2d 35 20 2d 31 29 | 20 28 66 6c 6f 61 74 20 |t -5 -1)| (float |
|000061a0| 39 32 31 30 33 35 20 31 | 29 20 6d 61 74 68 2d 6f |921035 1|) math-o|
|000061b0| 76 65 72 66 6c 6f 77 20 | 28 66 6c 6f 61 74 20 2d |verflow |(float -|
|000061c0| 39 32 31 30 33 35 20 31 | 29 20 6d 61 74 68 2d 75 |921035 1|) math-u|
|000061d0| 6e 64 65 72 66 6c 6f 77 | 20 28 66 6c 6f 61 74 20 |nderflow| (float |
|000061e0| 32 20 30 29 20 6d 61 74 | 68 2d 73 63 61 6c 65 2d |2 0) mat|h-scale-|
|000061f0| 69 6e 74 20 6d 61 74 68 | 2d 73 75 62 2d 66 6c 6f |int math|-sub-flo|
|00006200| 61 74 20 6d 61 74 68 2d | 66 6c 6f 61 74 20 28 66 |at math-|float (f|
|00006210| 6c 6f 61 74 20 35 20 2d | 31 29 20 6d 61 74 68 2d |loat 5 -|1) math-|
|00006220| 69 70 6f 77 20 6d 61 74 | 68 2d 73 71 72 74 2d 65 |ipow mat|h-sqrt-e|
|00006230| 20 6d 61 74 68 2d 61 64 | 64 2d 66 6c 6f 61 74 20 | math-ad|d-float |
|00006240| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 6d 61 74 68 |(float 1| 0) math|
|00006250| 2d 65 78 70 2d 6d 69 6e | 75 73 2d 31 2d 72 61 77 |-exp-min|us-1-raw|
|00006260| 20 28 66 6c 6f 61 74 20 | 31 20 30 29 5d 20 32 39 | (float |1 0)] 29|
|00006270| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00006280| 65 78 70 2d 6d 69 6e 75 | 73 2d 31 2d 72 61 77 20 |exp-minu|s-1-raw |
|00006290| 28 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(x) (byt|e-code "|
|000062a0| c1 08 c2 c3 08 08 25 87 | 22 20 5b 78 20 6d 61 74 |......%.|" [x mat|
|000062b0| 68 2d 65 78 70 2d 73 65 | 72 69 65 73 20 32 20 33 |h-exp-se|ries 2 3|
|000062c0| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 6))..(|defun ma|
|000062d0| 74 68 2d 65 78 70 2d 73 | 65 72 69 65 73 20 28 73 |th-exp-s|eries (s|
|000062e0| 75 6d 20 6e 66 61 63 20 | 6e 20 78 70 6f 77 20 78 |um nfac |n xpow x|
|000062f0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c8 |) (byte-|code "..|
|00006300| 3d 85 0a 00 c9 ca 09 5c | 22 88 cb 0b 0c 5c 22 1a |=......\|"....\".|
|00006310| cc 09 cd 0a ce 0e 06 21 | 5c 22 5c 22 1d cf 09 0d |.......!|\"\"....|
|00006320| 5c 22 83 26 00 09 82 34 | 00 d0 0d d1 0e 06 0e 07 |\".&...4|........|
|00006330| 5c 22 0e 07 54 0a 0c 25 | 2a 87 22 20 5b 63 61 6c |\"..T..%|*." [cal|
|00006340| 63 2d 64 69 73 70 6c 61 | 79 2d 77 6f 72 6b 69 6e |c-displa|y-workin|
|00006350| 67 2d 6d 65 73 73 61 67 | 65 20 73 75 6d 20 6e 65 |g-messag|e sum ne|
|00006360| 78 74 78 20 78 70 6f 77 | 20 78 20 6e 65 78 74 73 |xtx xpow| x nexts|
|00006370| 75 6d 20 6e 66 61 63 20 | 6e 20 6c 6f 74 73 20 6d |um nfac |n lots m|
|00006380| 61 74 68 2d 64 6f 2d 77 | 6f 72 6b 69 6e 67 20 22 |ath-do-w|orking "|
|00006390| 65 78 70 22 20 6d 61 74 | 68 2d 6d 75 6c 2d 66 6c |exp" mat|h-mul-fl|
|000063a0| 6f 61 74 20 6d 61 74 68 | 2d 61 64 64 2d 66 6c 6f |oat math|-add-flo|
|000063b0| 61 74 20 6d 61 74 68 2d | 64 69 76 2d 66 6c 6f 61 |at math-|div-floa|
|000063c0| 74 20 6d 61 74 68 2d 66 | 6c 6f 61 74 20 6d 61 74 |t math-f|loat mat|
|000063d0| 68 2d 6e 65 61 72 6c 79 | 2d 65 71 75 61 6c 2d 66 |h-nearly|-equal-f|
|000063e0| 6c 6f 61 74 20 6d 61 74 | 68 2d 65 78 70 2d 73 65 |loat mat|h-exp-se|
|000063f0| 72 69 65 73 20 6d 61 74 | 68 2d 6d 75 6c 5d 20 31 |ries mat|h-mul] 1|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
