home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 21.6 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 66 75 6e 63 73 | 20 6e 69 6c 20 28 62 79 |lc-funcs| nil (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c0 87 22 20 5b 6e 69 |te-code |".." [ni|
|00000050| 6c 5d 20 31 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |l] 1))..|(defun c|
|00000060| 61 6c 63 2d 69 6e 63 2d | 67 61 6d 6d 61 20 28 61 |alc-inc-|gamma (a|
|00000070| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00000080| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00000090| 20 22 c0 88 c1 c2 c3 5c | 22 87 22 20 5b 6e 69 6c | ".....\|"." [nil|
|000000a0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|000000b0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000000c0| 22 c1 20 83 1a 00 c2 20 | 83 12 00 c3 c4 c5 08 23 |". .... |.......#|
|000000d0| 82 17 00 c3 c6 c7 08 23 | 82 2c 00 c2 20 83 27 00 |.......#|.,.. .'.|
|000000e0| c3 c8 c9 08 23 82 2c 00 | c3 ca cb 08 23 87 22 20 |....#.,.|....#." |
|000000f0| 5b 61 72 67 20 63 61 6c | 63 2d 69 73 2d 69 6e 76 |[arg cal|c-is-inv|
|00000100| 65 72 73 65 20 63 61 6c | 63 2d 69 73 2d 68 79 70 |erse cal|c-is-hyp|
|00000110| 65 72 62 6f 6c 69 63 20 | 63 61 6c 63 2d 62 69 6e |erbolic |calc-bin|
|00000120| 61 72 79 2d 6f 70 20 22 | 67 61 6d 47 22 20 63 61 |ary-op "|gamG" ca|
|00000130| 6c 63 46 75 6e 63 2d 67 | 61 6d 6d 61 47 20 22 67 |lcFunc-g|ammaG "g|
|00000140| 61 6d 51 22 20 63 61 6c | 63 46 75 6e 63 2d 67 61 |amQ" cal|cFunc-ga|
|00000150| 6d 6d 61 51 20 22 67 61 | 6d 67 22 20 63 61 6c 63 |mmaQ "ga|mg" calc|
|00000160| 46 75 6e 63 2d 67 61 6d | 6d 61 67 20 22 67 61 6d |Func-gam|mag "gam|
|00000170| 50 22 20 63 61 6c 63 46 | 75 6e 63 2d 67 61 6d 6d |P" calcF|unc-gamm|
|00000180| 61 50 5d 20 31 30 29 29 | 20 31 31 37 5d 20 33 29 |aP] 10))| 117] 3)|
|00000190| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 65 |)..(defu|n calc-e|
|000001a0| 72 66 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |rf (arg)| (intera|
|000001b0| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|000001c0| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 c3 5c 22 87 22 |-code ".|....\"."|
|000001d0| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|000001e0| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|000001f0| 63 6f 64 65 20 22 c1 20 | 83 0d 00 c2 c3 c4 08 23 |code ". |.......#|
|00000200| 82 12 00 c2 c5 c6 08 23 | 87 22 20 5b 61 72 67 20 |.......#|." [arg |
|00000210| 63 61 6c 63 2d 69 73 2d | 69 6e 76 65 72 73 65 20 |calc-is-|inverse |
|00000220| 63 61 6c 63 2d 75 6e 61 | 72 79 2d 6f 70 20 22 65 |calc-una|ry-op "e|
|00000230| 72 66 63 22 20 63 61 6c | 63 46 75 6e 63 2d 65 72 |rfc" cal|cFunc-er|
|00000240| 66 63 20 22 65 72 66 22 | 20 63 61 6c 63 46 75 6e |fc "erf"| calcFun|
|00000250| 63 2d 65 72 66 5d 20 36 | 29 29 20 34 33 32 5d 20 |c-erf] 6|)) 432] |
|00000260| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|00000270| 2d 65 72 66 63 20 28 61 | 72 67 29 20 28 69 6e 74 |-erfc (a|rg) (int|
|00000280| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|00000290| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 20 88 c3 |yte-code| "... ..|
|000002a0| 08 21 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 63 61 |.!." [ar|g nil ca|
|000002b0| 6c 63 2d 69 6e 76 65 72 | 74 2d 66 75 6e 63 20 63 |lc-inver|t-func c|
|000002c0| 61 6c 63 2d 65 72 66 5d | 20 33 29 29 0a 0a 28 64 |alc-erf]| 3))..(d|
|000002d0| 65 66 75 6e 20 63 61 6c | 63 2d 62 65 74 61 20 28 |efun cal|c-beta (|
|000002e0| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|000002f0| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000300| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|00000310| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00000320| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00000330| 20 22 c1 c2 c3 08 23 87 | 22 20 5b 61 72 67 20 63 | "....#.|" [arg c|
|00000340| 61 6c 63 2d 62 69 6e 61 | 72 79 2d 6f 70 20 22 62 |alc-bina|ry-op "b|
|00000350| 65 74 61 22 20 63 61 6c | 63 46 75 6e 63 2d 62 65 |eta" cal|cFunc-be|
|00000360| 74 61 5d 20 34 29 29 20 | 37 34 37 5d 20 33 29 29 |ta] 4)) |747] 3))|
|00000370| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 69 6e |..(defun| calc-in|
|00000380| 63 2d 62 65 74 61 20 6e | 69 6c 20 28 69 6e 74 65 |c-beta n|il (inte|
|00000390| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|000003a0| 6f 64 65 20 22 c0 88 c1 | c2 c3 5c 22 87 22 20 5b |ode "...|..\"." [|
|000003b0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|000003c0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|000003d0| 64 65 20 22 c0 20 83 11 | 00 c1 c2 c3 c4 c5 c2 21 |de ". ..|.......!|
|000003e0| 42 23 82 1a 00 c1 c2 c6 | c7 c5 c2 21 42 23 87 22 |B#......|...!B#."|
|000003f0| 20 5b 63 61 6c 63 2d 69 | 73 2d 68 79 70 65 72 62 | [calc-i|s-hyperb|
|00000400| 6f 6c 69 63 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |olic cal|c-enter-|
|00000410| 72 65 73 75 6c 74 20 33 | 20 22 62 65 74 42 22 20 |result 3| "betB" |
|00000420| 63 61 6c 63 46 75 6e 63 | 2d 62 65 74 61 42 20 63 |calcFunc|-betaB c|
|00000430| 61 6c 63 2d 74 6f 70 2d | 6c 69 73 74 2d 6e 20 22 |alc-top-|list-n "|
|00000440| 62 65 74 49 22 20 63 61 | 6c 63 46 75 6e 63 2d 62 |betI" ca|lcFunc-b|
|00000450| 65 74 61 49 5d 20 39 29 | 29 20 39 31 31 5d 20 33 |etaI] 9)|) 911] 3|
|00000460| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00000470| 62 65 73 73 65 6c 2d 4a | 20 28 61 72 67 29 20 28 |bessel-J| (arg) (|
|00000480| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|00000490| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000004a0| c2 c3 5c 22 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |..\"." [|nil calc|
|000004b0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|000004c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 c2 c3 08 |(byte-co|de "....|
|000004d0| 23 87 22 20 5b 61 72 67 | 20 63 61 6c 63 2d 62 69 |#." [arg| calc-bi|
|000004e0| 6e 61 72 79 2d 6f 70 20 | 22 62 65 73 4a 22 20 63 |nary-op |"besJ" c|
|000004f0| 61 6c 63 46 75 6e 63 2d | 62 65 73 4a 5d 20 34 29 |alcFunc-|besJ] 4)|
|00000500| 29 20 31 31 35 33 5d 20 | 33 29 29 0a 0a 28 64 65 |) 1153] |3))..(de|
|00000510| 66 75 6e 20 63 61 6c 63 | 2d 62 65 73 73 65 6c 2d |fun calc|-bessel-|
|00000520| 59 20 28 61 72 67 29 20 | 28 69 6e 74 65 72 61 63 |Y (arg) |(interac|
|00000530| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00000540| 63 6f 64 65 20 22 c0 88 | c1 c2 c3 5c 22 87 22 20 |code "..|...\"." |
|00000550| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000560| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000570| 6f 64 65 20 22 c1 c2 c3 | 08 23 87 22 20 5b 61 72 |ode "...|.#." [ar|
|00000580| 67 20 63 61 6c 63 2d 62 | 69 6e 61 72 79 2d 6f 70 |g calc-b|inary-op|
|00000590| 20 22 62 65 73 59 22 20 | 63 61 6c 63 46 75 6e 63 | "besY" |calcFunc|
|000005a0| 2d 62 65 73 59 5d 20 34 | 29 29 20 31 33 32 32 5d |-besY] 4|)) 1322]|
|000005b0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|000005c0| 63 2d 62 65 72 6e 6f 75 | 6c 6c 69 2d 6e 75 6d 62 |c-bernou|lli-numb|
|000005d0| 65 72 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |er (arg)| (intera|
|000005e0| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|000005f0| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 c3 5c 22 87 22 |-code ".|....\"."|
|00000600| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|00000610| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00000620| 63 6f 64 65 20 22 c1 20 | 83 0d 00 c2 c3 c4 08 23 |code ". |.......#|
|00000630| 82 12 00 c5 c3 c4 08 23 | 87 22 20 5b 61 72 67 20 |.......#|." [arg |
|00000640| 63 61 6c 63 2d 69 73 2d | 68 79 70 65 72 62 6f 6c |calc-is-|hyperbol|
|00000650| 69 63 20 63 61 6c 63 2d | 62 69 6e 61 72 79 2d 6f |ic calc-|binary-o|
|00000660| 70 20 22 62 65 72 6e 22 | 20 63 61 6c 63 46 75 6e |p "bern"| calcFun|
|00000670| 63 2d 62 65 72 6e 20 63 | 61 6c 63 2d 75 6e 61 72 |c-bern c|alc-unar|
|00000680| 79 2d 6f 70 5d 20 36 29 | 29 20 31 34 39 31 5d 20 |y-op] 6)|) 1491] |
|00000690| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|000006a0| 2d 65 75 6c 65 72 2d 6e | 75 6d 62 65 72 20 28 61 |-euler-n|umber (a|
|000006b0| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|000006c0| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|000006d0| 20 22 c0 88 c1 c2 c3 5c | 22 87 22 20 5b 6e 69 6c | ".....\|"." [nil|
|000006e0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|000006f0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000700| 22 c1 20 83 0d 00 c2 c3 | c4 08 23 82 12 00 c5 c3 |". .....|..#.....|
|00000710| c4 08 23 87 22 20 5b 61 | 72 67 20 63 61 6c 63 2d |..#." [a|rg calc-|
|00000720| 69 73 2d 68 79 70 65 72 | 62 6f 6c 69 63 20 63 61 |is-hyper|bolic ca|
|00000730| 6c 63 2d 62 69 6e 61 72 | 79 2d 6f 70 20 22 65 75 |lc-binar|y-op "eu|
|00000740| 6c 72 22 20 63 61 6c 63 | 46 75 6e 63 2d 65 75 6c |lr" calc|Func-eul|
|00000750| 65 72 20 63 61 6c 63 2d | 75 6e 61 72 79 2d 6f 70 |er calc-|unary-op|
|00000760| 5d 20 36 29 29 20 31 37 | 31 34 5d 20 33 29 29 0a |] 6)) 17|14] 3)).|
|00000770| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 73 74 69 |.(defun |calc-sti|
|00000780| 72 6c 69 6e 67 2d 6e 75 | 6d 62 65 72 20 28 61 72 |rling-nu|mber (ar|
|00000790| 67 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |g) (inte|ractive |
|000007a0| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|000007b0| 22 c0 88 c1 c2 c3 5c 22 | 87 22 20 5b 6e 69 6c 20 |".....\"|." [nil |
|000007c0| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|000007d0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000007e0| c1 20 83 0d 00 c2 c3 c4 | 08 23 82 12 00 c2 c5 c6 |. ......|.#......|
|000007f0| 08 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 69 |.#." [ar|g calc-i|
|00000800| 73 2d 68 79 70 65 72 62 | 6f 6c 69 63 20 63 61 6c |s-hyperb|olic cal|
|00000810| 63 2d 62 69 6e 61 72 79 | 2d 6f 70 20 22 73 74 72 |c-binary|-op "str|
|00000820| 32 22 20 63 61 6c 63 46 | 75 6e 63 2d 73 74 69 72 |2" calcF|unc-stir|
|00000830| 32 20 22 73 74 72 31 22 | 20 63 61 6c 63 46 75 6e |2 "str1"| calcFun|
|00000840| 63 2d 73 74 69 72 31 5d | 20 36 29 29 20 31 39 33 |c-stir1]| 6)) 193|
|00000850| 34 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |4] 3))..|(defun c|
|00000860| 61 6c 63 2d 75 74 70 62 | 20 6e 69 6c 20 28 69 6e |alc-utpb| nil (in|
|00000870| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00000880| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 c3 5c 22 87 22 |-code ".|....\"."|
|00000890| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 70 72 6f 62 2d | [nil ca|lc-prob-|
|000008a0| 64 69 73 74 20 22 62 22 | 20 33 5d 20 33 29 29 0a |dist "b"| 3] 3)).|
|000008b0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 75 74 70 |.(defun |calc-utp|
|000008c0| 63 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |c nil (i|nteracti|
|000008d0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000008e0| c0 88 c1 c2 c3 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |.....\".|" [nil c|
|000008f0| 61 6c 63 2d 70 72 6f 62 | 2d 64 69 73 74 20 22 63 |alc-prob|-dist "c|
|00000900| 22 20 32 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |" 2] 3))|..(defun|
|00000910| 20 63 61 6c 63 2d 75 74 | 70 66 20 6e 69 6c 20 28 | calc-ut|pf nil (|
|00000920| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00000930| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|00000940| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 70 72 6f |." [nil |calc-pro|
|00000950| 62 2d 64 69 73 74 20 22 | 66 22 20 33 5d 20 33 29 |b-dist "|f" 3] 3)|
|00000960| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 75 |)..(defu|n calc-u|
|00000970| 74 70 6e 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |tpn nil |(interac|
|00000980| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000990| 20 22 c0 88 c1 c2 c3 5c | 22 87 22 20 5b 6e 69 6c | ".....\|"." [nil|
|000009a0| 20 63 61 6c 63 2d 70 72 | 6f 62 2d 64 69 73 74 20 | calc-pr|ob-dist |
|000009b0| 22 6e 22 20 33 5d 20 33 | 29 29 0a 0a 28 64 65 66 |"n" 3] 3|))..(def|
|000009c0| 75 6e 20 63 61 6c 63 2d | 75 74 70 70 20 6e 69 6c |un calc-|utpp nil|
|000009d0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|000009e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 c3 |byte-cod|e ".....|
|000009f0| 5c 22 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 70 |\"." [ni|l calc-p|
|00000a00| 72 6f 62 2d 64 69 73 74 | 20 22 70 22 20 32 5d 20 |rob-dist| "p" 2] |
|00000a10| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|00000a20| 2d 75 74 70 74 20 6e 69 | 6c 20 28 69 6e 74 65 72 |-utpt ni|l (inter|
|00000a30| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00000a40| 64 65 20 22 c0 88 c1 c2 | c3 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|00000a50| 69 6c 20 63 61 6c 63 2d | 70 72 6f 62 2d 64 69 73 |il calc-|prob-dis|
|00000a60| 74 20 22 74 22 20 32 5d | 20 33 29 29 0a 0a 28 64 |t "t" 2]| 3))..(d|
|00000a70| 65 66 75 6e 20 63 61 6c | 63 2d 70 72 6f 62 2d 64 |efun cal|c-prob-d|
|00000a80| 69 73 74 20 28 6c 65 74 | 74 65 72 20 6e 61 72 67 |ist (let|ter narg|
|00000a90| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |s) (byte|-code ".|
|00000aa0| c1 c2 5c 22 87 22 20 5b | 63 61 6c 63 2d 64 6f 20 |..\"." [|calc-do |
|00000ab0| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000ac0| 65 2d 63 6f 64 65 20 22 | c2 20 83 1e 00 c3 08 c4 |e-code "|. ......|
|00000ad0| 09 50 c5 c6 c7 09 50 21 | c8 c9 21 44 ca 08 53 cb |.P....P!|..!D..S.|
|00000ae0| 5c 22 5c 22 23 82 34 00 | c3 08 cc 09 50 c5 c6 cd |\"\"#.4.|....P...|
|00000af0| 09 50 21 c8 c9 21 44 ca | 08 53 cb 5c 22 5c 22 23 |.P!..!D.|.S.\"\"#|
|00000b00| 87 22 20 5b 6e 61 72 67 | 73 20 6c 65 74 74 65 72 |." [narg|s letter|
|00000b10| 20 63 61 6c 63 2d 69 73 | 2d 69 6e 76 65 72 73 65 | calc-is|-inverse|
|00000b20| 20 63 61 6c 63 2d 65 6e | 74 65 72 2d 72 65 73 75 | calc-en|ter-resu|
|00000b30| 6c 74 20 22 6c 74 70 22 | 20 61 70 70 65 6e 64 20 |lt "ltp"| append |
|00000b40| 69 6e 74 65 72 6e 20 22 | 63 61 6c 63 46 75 6e 63 |intern "|calcFunc|
|00000b50| 2d 6c 74 70 22 20 63 61 | 6c 63 2d 74 6f 70 2d 6e |-ltp" ca|lc-top-n|
|00000b60| 20 31 20 63 61 6c 63 2d | 74 6f 70 2d 6c 69 73 74 | 1 calc-|top-list|
|00000b70| 2d 6e 20 32 20 22 75 74 | 70 22 20 22 63 61 6c 63 |-n 2 "ut|p" "calc|
|00000b80| 46 75 6e 63 2d 75 74 70 | 22 5d 20 31 36 29 29 20 |Func-utp|"] 16)) |
|00000b90| 32 36 39 39 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |2699] 3)|)..(defu|
|00000ba0| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 67 61 6d 6d 61 |n calcFu|nc-gamma|
|00000bb0| 20 28 78 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (x) (by|te-code |
|00000bc0| 22 c1 08 21 86 0a 00 c2 | 08 c3 5c 22 88 c4 c5 08 |"..!....|..\"....|
|00000bd0| c6 5c 22 21 87 22 20 5b | 78 20 6d 61 74 68 2d 6e |.\"!." [|x math-n|
|00000be0| 75 6d 62 65 72 70 20 6d | 61 74 68 2d 72 65 6a 65 |umberp m|ath-reje|
|00000bf0| 63 74 2d 61 72 67 20 6e | 75 6d 62 65 72 70 20 63 |ct-arg n|umberp c|
|00000c00| 61 6c 63 46 75 6e 63 2d | 66 61 63 74 20 6d 61 74 |alcFunc-|fact mat|
|00000c10| 68 2d 61 64 64 20 2d 31 | 5d 20 36 29 29 0a 0a 28 |h-add -1|] 6))..(|
|00000c20| 64 65 66 75 6e 20 6d 61 | 74 68 2d 67 61 6d 6d 61 |defun ma|th-gamma|
|00000c30| 70 31 2d 72 61 77 20 28 | 78 20 26 6f 70 74 69 6f |p1-raw (|x &optio|
|00000c40| 6e 61 6c 20 66 70 72 65 | 63 20 6e 66 70 72 65 63 |nal fpre|c nfprec|
|00000c50| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 86 |) (byte-|code "..|
|00000c60| 0e 00 c8 09 21 10 c8 09 | 5b 21 89 12 88 c9 ca 0b |....!...|[!......|
|00000c70| 21 08 5c 22 83 4e 00 c9 | ca 0b 21 0a 5c 22 83 3d |!.\".N..|..!.\".=|
|00000c80| 00 cb cc cd 20 ce cf d0 | cb 0b 21 d1 5c 22 08 0a |.... ...|..!.\"..|
|00000c90| 23 d2 ce cd 20 0b 5c 22 | 21 5c 22 5c 22 21 82 4b |#... .\"|!\"\"!.K|
|00000ca0| 00 d0 0b d3 5c 22 1c cc | cf 0c 08 0a 23 0c 5c 22 |....\"..|....#.\"|
|00000cb0| 29 82 87 00 d4 0b 21 85 | 58 00 c9 d5 0b 5c 22 83 |).....!.|X....\".|
|00000cc0| 60 00 d6 20 82 87 00 cc | d7 0b 5c 22 d8 0b 21 1e |`.. ....|..\"..!.|
|00000cd0| 07 1e 06 ce d9 20 da db | dc ce d0 0b dd 5c 22 0e |..... ..|.....\".|
|00000ce0| 07 5c 22 0b 5c 22 0e 06 | de 0e 06 21 df e0 25 21 |.\".\"..|...!..%!|
|00000cf0| 5c 22 2a 87 22 20 5b 66 | 70 72 65 63 20 63 61 6c |\"*." [f|prec cal|
|00000d00| 63 2d 69 6e 74 65 72 6e | 61 6c 2d 70 72 65 63 20 |c-intern|al-prec |
|00000d10| 6e 66 70 72 65 63 20 78 | 20 78 70 6c 75 73 31 20 |nfprec x| xplus1 |
|00000d20| 74 20 78 69 6e 76 20 6c | 6e 78 20 6d 61 74 68 2d |t xinv l|nx math-|
|00000d30| 66 6c 6f 61 74 20 6d 61 | 74 68 2d 6c 65 73 73 70 |float ma|th-lessp|
|00000d40| 2d 66 6c 6f 61 74 20 63 | 61 6c 63 46 75 6e 63 2d |-float c|alcFunc-|
|00000d50| 72 65 20 6d 61 74 68 2d | 6e 65 67 20 6d 61 74 68 |re math-|neg math|
|00000d60| 2d 64 69 76 20 6d 61 74 | 68 2d 70 69 20 6d 61 74 |-div mat|h-pi mat|
|00000d70| 68 2d 6d 75 6c 20 6d 61 | 74 68 2d 67 61 6d 6d 61 |h-mul ma|th-gamma|
|00000d80| 70 31 2d 72 61 77 20 6d | 61 74 68 2d 61 64 64 20 |p1-raw m|ath-add |
|00000d90| 28 66 6c 6f 61 74 20 2d | 31 20 30 29 20 6d 61 74 |(float -|1 0) mat|
|00000da0| 68 2d 73 69 6e 2d 72 61 | 77 20 28 66 6c 6f 61 74 |h-sin-ra|w (float|
|00000db0| 20 31 20 30 29 20 6d 61 | 74 68 2d 72 65 61 6c 70 | 1 0) ma|th-realp|
|00000dc0| 20 28 66 6c 6f 61 74 20 | 37 33 36 32 37 36 20 30 | (float |736276 0|
|00000dd0| 29 20 6d 61 74 68 2d 6f | 76 65 72 66 6c 6f 77 20 |) math-o|verflow |
|00000de0| 31 20 6d 61 74 68 2d 6c | 6e 2d 72 61 77 20 6d 61 |1 math-l|n-raw ma|
|00000df0| 74 68 2d 73 71 72 74 2d | 74 77 6f 2d 70 69 20 6d |th-sqrt-|two-pi m|
|00000e00| 61 74 68 2d 65 78 70 2d | 72 61 77 20 6d 61 74 68 |ath-exp-|raw math|
|00000e10| 2d 67 61 6d 6d 61 2d 73 | 65 72 69 65 73 20 6d 61 |-gamma-s|eries ma|
|00000e20| 74 68 2d 73 75 62 20 28 | 66 6c 6f 61 74 20 35 20 |th-sub (|float 5 |
|00000e30| 2d 31 29 20 6d 61 74 68 | 2d 73 71 72 20 28 66 6c |-1) math|-sqr (fl|
|00000e40| 6f 61 74 20 30 20 30 29 | 20 32 5d 20 33 38 29 29 |oat 0 0)| 2] 38))|
|00000e50| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 67 61 |..(defun| math-ga|
|00000e60| 6d 6d 61 2d 73 65 72 69 | 65 73 20 28 73 75 6d 20 |mma-seri|es (sum |
|00000e70| 78 20 78 69 6e 76 73 71 | 72 20 6f 74 65 72 6d 20 |x xinvsq|r oterm |
|00000e80| 6e 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |n) (byte|-code ".|
|00000e90| c9 3d 85 0a 00 ca cb 09 | 5c 22 88 cc 0b 21 1a cd |.=......|\"...!..|
|00000ea0| ce cf d0 0a 38 21 cf d1 | d2 0a 38 d1 0b 0b 53 5c |....8!..|..8...S\|
|00000eb0| 22 5c 22 21 5c 22 0d 5c | 22 1c d3 09 0c 5c 22 1e |"\"!\".\|"....\".|
|00000ec0| 06 d4 09 0e 06 5c 22 83 | 39 00 0e 06 82 5b 00 0b |.....\".|9....[..|
|00000ed0| d1 d2 0e 07 5c 22 56 83 | 4c 00 d5 d6 21 88 0e 06 |....\"V.|L...!...|
|00000ee0| 82 5b 00 d7 0e 06 cd 0d | 0e 08 5c 22 0e 08 0c 0b |.[......|..\"....|
|00000ef0| d2 5c 5c 25 2b 87 22 20 | 5b 63 61 6c 63 2d 64 69 |.\\%+." |[calc-di|
|00000f00| 73 70 6c 61 79 2d 77 6f | 72 6b 69 6e 67 2d 6d 65 |splay-wo|rking-me|
|00000f10| 73 73 61 67 65 20 73 75 | 6d 20 62 6e 20 6e 20 74 |ssage su|m bn n t|
|00000f20| 65 72 6d 20 78 20 6e 65 | 78 74 20 63 61 6c 63 2d |erm x ne|xt calc-|
|00000f30| 69 6e 74 65 72 6e 61 6c | 2d 70 72 65 63 20 78 69 |internal|-prec xi|
|00000f40| 6e 76 73 71 72 20 6c 6f | 74 73 20 6d 61 74 68 2d |nvsqr lo|ts math-|
|00000f50| 64 6f 2d 77 6f 72 6b 69 | 6e 67 20 22 67 61 6d 6d |do-worki|ng "gamm|
|00000f60| 61 22 20 6d 61 74 68 2d | 62 65 72 6e 6f 75 6c 6c |a" math-|bernoull|
|00000f70| 69 2d 6e 75 6d 62 65 72 | 20 6d 61 74 68 2d 6d 75 |i-number| math-mu|
|00000f80| 6c 20 6d 61 74 68 2d 64 | 69 76 2d 66 6c 6f 61 74 |l math-d|iv-float|
|00000f90| 20 6d 61 74 68 2d 66 6c | 6f 61 74 20 31 20 2a 20 | math-fl|oat 1 * |
|00000fa0| 32 20 6d 61 74 68 2d 61 | 64 64 20 6d 61 74 68 2d |2 math-a|dd math-|
|00000fb0| 6e 65 61 72 6c 79 2d 65 | 71 75 61 6c 20 63 61 6c |nearly-e|qual cal|
|00000fc0| 63 2d 72 65 63 6f 72 64 | 2d 77 68 79 20 22 2a 47 |c-record|-why "*G|
|00000fd0| 61 6d 6d 61 20 63 6f 6d | 70 75 74 61 74 69 6f 6e |amma com|putation|
|00000fe0| 20 73 74 6f 70 70 65 64 | 20 65 61 72 6c 79 2c 20 | stopped| early, |
|00000ff0| 6e 6f 74 20 61 6c 6c 20 | 64 69 67 69 74 73 20 6d |not all |digits m|
|00001000| 61 79 20 62 65 20 76 61 | 6c 69 64 22 20 6d 61 74 |ay be va|lid" mat|
|00001010| 68 2d 67 61 6d 6d 61 2d | 73 65 72 69 65 73 5d 20 |h-gamma-|series] |
|00001020| 32 30 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |20))..(d|efun cal|
|00001030| 63 46 75 6e 63 2d 67 61 | 6d 6d 61 50 20 28 61 20 |cFunc-ga|mmaP (a |
|00001040| 78 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |x) (byte|-code ".|
|00001050| 08 c4 5c 22 83 0b 00 c5 | 82 5d 00 c6 20 88 09 3a |..\"....|.].. ..:|
|00001060| 3f 86 18 00 09 40 c7 3e | 86 1f 00 c8 09 c9 5c 22 |?....@.>|......\"|
|00001070| 88 ca 08 21 86 2a 00 c8 | 08 c9 5c 22 88 cb 09 21 |...!.*..|..\"...!|
|00001080| 85 44 00 cc cd 09 21 89 | 11 21 85 44 00 09 ce 56 |.D....!.|.!.D...V|
|00001090| 85 44 00 09 cf 57 83 51 | 00 d0 d1 d2 09 08 5c 22 |.D...W.Q|......\"|
|000010a0| 5c 22 82 5d 00 d3 09 21 | 1a d4 d5 09 08 5c 22 0a |\".]...!|.....\".|
|000010b0| 5c 22 29 87 22 20 5b 78 | 20 61 20 6d 61 74 68 2d |\")." [x| a math-|
|000010c0| 63 75 72 72 65 6e 74 2d | 67 61 6d 6d 61 2d 76 61 |current-|gamma-va|
|000010d0| 6c 75 65 20 65 71 75 61 | 6c 20 28 76 61 72 20 69 |lue equa|l (var i|
|000010e0| 6e 66 20 76 61 72 2d 69 | 6e 66 29 20 28 66 6c 6f |nf var-i|nf) (flo|
|000010f0| 61 74 20 31 20 30 29 20 | 6d 61 74 68 2d 69 6e 65 |at 1 0) |math-ine|
|00001100| 78 61 63 74 2d 72 65 73 | 75 6c 74 20 28 62 69 67 |xact-res|ult (big|
|00001110| 70 6f 73 20 62 69 67 6e | 65 67 20 66 72 61 63 20 |pos bign|eg frac |
|00001120| 66 6c 6f 61 74 20 63 70 | 6c 78 20 70 6f 6c 61 72 |float cp|lx polar|
|00001130| 29 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |) math-r|eject-ar|
|00001140| 67 20 6e 75 6d 62 65 72 | 70 20 6d 61 74 68 2d 6e |g number|p math-n|
|00001150| 75 6d 62 65 72 70 20 6d | 61 74 68 2d 6e 75 6d 2d |umberp m|ath-num-|
|00001160| 69 6e 74 65 67 65 72 70 | 20 69 6e 74 65 67 65 72 |integerp| integer|
|00001170| 70 20 6d 61 74 68 2d 74 | 72 75 6e 63 20 30 20 32 |p math-t|runc 0 2|
|00001180| 30 20 6d 61 74 68 2d 73 | 75 62 20 31 20 63 61 6c |0 math-s|ub 1 cal|
|00001190| 63 46 75 6e 63 2d 67 61 | 6d 6d 61 51 20 63 61 6c |cFunc-ga|mmaQ cal|
|000011a0| 63 46 75 6e 63 2d 67 61 | 6d 6d 61 20 6d 61 74 68 |cFunc-ga|mma math|
|000011b0| 2d 64 69 76 20 63 61 6c | 63 46 75 6e 63 2d 67 61 |-div cal|cFunc-ga|
|000011c0| 6d 6d 61 67 5d 20 31 35 | 29 29 0a 0a 28 64 65 66 |mmag] 15|))..(def|
|000011d0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 67 61 6d 6d |un calcF|unc-gamm|
|000011e0| 61 51 20 28 61 20 78 29 | 20 28 62 79 74 65 2d 63 |aQ (a x)| (byte-c|
|000011f0| 6f 64 65 20 22 c8 08 c9 | 5c 22 83 0b 00 ca 82 96 |ode "...|\"......|
|00001200| 00 cb 20 88 09 3a 3f 86 | 18 00 09 40 cc 3e 86 1f |.. ..:?.|...@.>..|
|00001210| 00 cd 09 ce 5c 22 88 cf | 08 21 86 2a 00 cd 08 ce |....\"..|.!.*....|
|00001220| 5c 22 88 d0 09 21 85 44 | 00 d1 d2 09 21 89 11 21 |\"...!.D|....!..!|
|00001230| 85 44 00 09 d3 56 85 44 | 00 09 d4 57 83 88 00 d3 |.D...V.D|...W....|
|00001240| d5 d6 1c 1b 1a d7 0d d8 | 5c 5c 1d 0a 54 89 12 09 |........|\\..T...|
|00001250| 57 85 79 00 d9 da 0c 08 | 5c 22 0a 5c 22 14 db 0b |W.y.....|\".\"...|
|00001260| 0c 5c 22 89 13 88 0e 06 | dc 3d 85 75 00 dd de 0b |.\".....|.=.u....|
|00001270| 5c 22 88 82 52 00 88 da | 0b df e0 08 21 21 5c 22 |\"..R...|....!!\"|
|00001280| 29 21 2b 82 96 00 e1 09 | 21 1e 07 d9 e2 09 08 5c |)!+.....|!......\|
|00001290| 22 0e 07 5c 22 29 87 22 | 20 5b 78 20 61 20 6e 20 |"..\")."| [x a n |
|000012a0| 73 75 6d 20 74 65 72 6d | 20 63 61 6c 63 2d 69 6e |sum term| calc-in|
|000012b0| 74 65 72 6e 61 6c 2d 70 | 72 65 63 20 63 61 6c 63 |ternal-p|rec calc|
|000012c0| 2d 64 69 73 70 6c 61 79 | 2d 77 6f 72 6b 69 6e 67 |-display|-working|
|000012d0| 2d 6d 65 73 73 61 67 65 | 20 6d 61 74 68 2d 63 75 |-message| math-cu|
|000012e0| 72 72 65 6e 74 2d 67 61 | 6d 6d 61 2d 76 61 6c 75 |rrent-ga|mma-valu|
|000012f0| 65 20 65 71 75 61 6c 20 | 28 76 61 72 20 69 6e 66 |e equal |(var inf|
|00001300| 20 76 61 72 2d 69 6e 66 | 29 20 28 66 6c 6f 61 74 | var-inf|) (float|
|00001310| 20 30 20 30 29 20 6d 61 | 74 68 2d 69 6e 65 78 61 | 0 0) ma|th-inexa|
|00001320| 63 74 2d 72 65 73 75 6c | 74 20 28 62 69 67 70 6f |ct-resul|t (bigpo|
|00001330| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|00001340| 6f 61 74 20 63 70 6c 78 | 20 70 6f 6c 61 72 29 20 |oat cplx| polar) |
|00001350| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00001360| 6e 75 6d 62 65 72 70 20 | 6d 61 74 68 2d 6e 75 6d |numberp |math-num|
|00001370| 62 65 72 70 20 6d 61 74 | 68 2d 6e 75 6d 2d 69 6e |berp mat|h-num-in|
|00001380| 74 65 67 65 72 70 20 69 | 6e 74 65 67 65 72 70 20 |tegerp i|ntegerp |
|00001390| 6d 61 74 68 2d 74 72 75 | 6e 63 20 30 20 32 30 20 |math-tru|nc 0 20 |
|000013a0| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 28 66 6c 6f |(float 1| 0) (flo|
|000013b0| 61 74 20 31 20 30 29 20 | 6d 61 74 68 2d 6e 6f 72 |at 1 0) |math-nor|
|000013c0| 6d 61 6c 69 7a 65 20 31 | 20 6d 61 74 68 2d 64 69 |malize 1| math-di|
|000013d0| 76 20 6d 61 74 68 2d 6d | 75 6c 20 6d 61 74 68 2d |v math-m|ul math-|
|000013e0| 61 64 64 20 6c 6f 74 73 | 20 6d 61 74 68 2d 64 6f |add lots| math-do|
|000013f0| 2d 77 6f 72 6b 69 6e 67 | 20 22 67 61 6d 6d 61 22 |-working| "gamma"|
|00001400| 20 63 61 6c 63 46 75 6e | 63 2d 65 78 70 20 6d 61 | calcFun|c-exp ma|
|00001410| 74 68 2d 6e 65 67 20 63 | 61 6c 63 46 75 6e 63 2d |th-neg c|alcFunc-|
|00001420| 67 61 6d 6d 61 20 63 61 | 6c 63 46 75 6e 63 2d 67 |gamma ca|lcFunc-g|
|00001430| 61 6d 6d 61 47 5d 20 32 | 31 29 29 0a 0a 28 64 65 |ammaG] 2|1))..(de|
|00001440| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 67 61 6d |fun calc|Func-gam|
|00001450| 6d 61 67 20 28 61 20 78 | 29 20 28 62 79 74 65 2d |mag (a x|) (byte-|
|00001460| 63 6f 64 65 20 22 c4 08 | c5 5c 22 83 0d 00 c6 09 |code "..|.\".....|
|00001470| 21 82 71 00 c7 20 88 09 | 3a 3f 86 1a 00 09 40 c8 |!.q.. ..|:?....@.|
|00001480| 3e 86 21 00 c9 09 ca 5c | 22 88 08 3a 3f 86 2c 00 |>.!....\|"..:?.,.|
|00001490| 08 40 cb 3e 86 33 00 c9 | 08 ca 5c 22 88 cc 0a cd |.@.>.3..|..\"....|
|000014a0| 5c 5c 1a ce 09 21 89 11 | 88 ce 08 21 89 10 88 cf |\\...!..|...!....|
|000014b0| d0 09 21 21 86 58 00 d1 | d0 08 21 d2 d0 09 21 d3 |..!!.X..|..!...!.|
|000014c0| 5c 22 5c 22 83 62 00 d4 | 09 08 5c 22 82 6f 00 d5 |\"\".b..|..\".o..|
|000014d0| 0b 86 6a 00 c6 09 21 d6 | 09 08 5c 22 5c 22 29 21 |..j...!.|..\"\")!|
|000014e0| 87 22 20 5b 78 20 61 20 | 63 61 6c 63 2d 69 6e 74 |." [x a |calc-int|
|000014f0| 65 72 6e 61 6c 2d 70 72 | 65 63 20 6d 61 74 68 2d |ernal-pr|ec math-|
|00001500| 63 75 72 72 65 6e 74 2d | 67 61 6d 6d 61 2d 76 61 |current-|gamma-va|
|00001510| 6c 75 65 20 65 71 75 61 | 6c 20 28 76 61 72 20 69 |lue equa|l (var i|
|00001520| 6e 66 20 76 61 72 2d 69 | 6e 66 29 20 63 61 6c 63 |nf var-i|nf) calc|
|00001530| 46 75 6e 63 2d 67 61 6d | 6d 61 20 6d 61 74 68 2d |Func-gam|ma math-|
|00001540| 69 6e 65 78 61 63 74 2d | 72 65 73 75 6c 74 20 28 |inexact-|result (|
|00001550| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00001560| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00001570| 6c 61 72 29 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |lar) mat|h-reject|
|00001580| 2d 61 72 67 20 6e 75 6d | 62 65 72 70 20 28 62 69 |-arg num|berp (bi|
|00001590| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|000015a0| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|000015b0| 72 29 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |r) math-|normaliz|
|000015c0| 65 20 32 20 6d 61 74 68 | 2d 66 6c 6f 61 74 20 6d |e 2 math|-float m|
|000015d0| 61 74 68 2d 6e 65 67 70 | 20 63 61 6c 63 46 75 6e |ath-negp| calcFun|
|000015e0| 63 2d 72 65 20 6d 61 74 | 68 2d 6c 65 73 73 70 2d |c-re mat|h-lessp-|
|000015f0| 66 6c 6f 61 74 20 6d 61 | 74 68 2d 61 64 64 2d 66 |float ma|th-add-f|
|00001600| 6c 6f 61 74 20 28 66 6c | 6f 61 74 20 31 20 30 29 |loat (fl|oat 1 0)|
|00001610| 20 6d 61 74 68 2d 69 6e | 63 2d 67 61 6d 6d 61 2d | math-in|c-gamma-|
|00001620| 73 65 72 69 65 73 20 6d | 61 74 68 2d 73 75 62 20 |series m|ath-sub |
|00001630| 6d 61 74 68 2d 69 6e 63 | 2d 67 61 6d 6d 61 2d 63 |math-inc|-gamma-c|
|00001640| 66 72 61 63 5d 20 32 31 | 29 29 0a 0a 28 73 65 74 |frac] 21|))..(set|
|00001650| 71 20 6d 61 74 68 2d 63 | 75 72 72 65 6e 74 2d 67 |q math-c|urrent-g|
|00001660| 61 6d 6d 61 2d 76 61 6c | 75 65 20 6e 69 6c 29 0a |amma-val|ue nil).|
|00001670| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00001680| 2d 67 61 6d 6d 61 47 20 | 28 61 20 78 29 20 28 62 |-gammaG |(a x) (b|
|00001690| 79 74 65 2d 63 6f 64 65 | 20 22 c4 08 c5 5c 22 83 |yte-code| "...\".|
|000016a0| 0b 00 c6 82 6f 00 c7 20 | 88 09 3a 3f 86 18 00 09 |....o.. |..:?....|
|000016b0| 40 c8 3e 86 1f 00 c9 09 | ca 5c 22 88 08 3a 3f 86 |@.>.....|.\"..:?.|
|000016c0| 2a 00 08 40 cb 3e 86 31 | 00 c9 08 ca 5c 22 88 cc |*..@.>.1|....\"..|
|000016d0| 0a cd 5c 5c 1a ce 09 21 | 89 11 88 ce 08 21 89 10 |..\\...!|.....!..|
|000016e0| 88 cf d0 09 21 21 86 56 | 00 d1 d0 08 21 d2 d3 09 |....!!.V|....!...|
|000016f0| 21 d4 5c 22 5c 22 83 69 | 00 d5 0b 86 61 00 d6 09 |!.\"\".i|....a...|
|00001700| 21 d7 09 08 5c 22 5c 22 | 82 6d 00 d8 09 08 5c 22 |!...\"\"|.m....\"|
|00001710| 29 21 87 22 20 5b 78 20 | 61 20 63 61 6c 63 2d 69 |)!." [x |a calc-i|
|00001720| 6e 74 65 72 6e 61 6c 2d | 70 72 65 63 20 6d 61 74 |nternal-|prec mat|
|00001730| 68 2d 63 75 72 72 65 6e | 74 2d 67 61 6d 6d 61 2d |h-curren|t-gamma-|
|00001740| 76 61 6c 75 65 20 65 71 | 75 61 6c 20 28 76 61 72 |value eq|ual (var|
|00001750| 20 69 6e 66 20 76 61 72 | 2d 69 6e 66 29 20 28 66 | inf var|-inf) (f|
|00001760| 6c 6f 61 74 20 30 20 30 | 29 20 6d 61 74 68 2d 69 |loat 0 0|) math-i|
|00001770| 6e 65 78 61 63 74 2d 72 | 65 73 75 6c 74 20 28 62 |nexact-r|esult (b|
|00001780| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00001790| 63 20 66 6c 6f 61 74 20 | 63 70 6c 78 20 70 6f 6c |c float |cplx pol|
|000017a0| 61 72 29 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |ar) math|-reject-|
|000017b0| 61 72 67 20 6e 75 6d 62 | 65 72 70 20 28 62 69 67 |arg numb|erp (big|
|000017c0| 70 6f 73 20 62 69 67 6e | 65 67 20 66 72 61 63 20 |pos bign|eg frac |
|000017d0| 66 6c 6f 61 74 20 63 70 | 6c 78 20 70 6f 6c 61 72 |float cp|lx polar|
|000017e0| 29 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |) math-n|ormalize|
|000017f0| 20 32 20 6d 61 74 68 2d | 66 6c 6f 61 74 20 6d 61 | 2 math-|float ma|
|00001800| 74 68 2d 6e 65 67 70 20 | 63 61 6c 63 46 75 6e 63 |th-negp |calcFunc|
|00001810| 2d 72 65 20 6d 61 74 68 | 2d 6c 65 73 73 70 2d 66 |-re math|-lessp-f|
|00001820| 6c 6f 61 74 20 6d 61 74 | 68 2d 61 64 64 2d 66 6c |loat mat|h-add-fl|
|00001830| 6f 61 74 20 6d 61 74 68 | 2d 61 62 73 2d 61 70 70 |oat math|-abs-app|
|00001840| 72 6f 78 20 28 66 6c 6f | 61 74 20 31 20 30 29 20 |rox (flo|at 1 0) |
|00001850| 6d 61 74 68 2d 73 75 62 | 20 63 61 6c 63 46 75 6e |math-sub| calcFun|
|00001860| 63 2d 67 61 6d 6d 61 20 | 6d 61 74 68 2d 69 6e 63 |c-gamma |math-inc|
|00001870| 2d 67 61 6d 6d 61 2d 73 | 65 72 69 65 73 20 6d 61 |-gamma-s|eries ma|
|00001880| 74 68 2d 69 6e 63 2d 67 | 61 6d 6d 61 2d 63 66 72 |th-inc-g|amma-cfr|
|00001890| 61 63 5d 20 31 39 29 29 | 0a 0a 28 64 65 66 75 6e |ac] 19))|..(defun|
|000018a0| 20 6d 61 74 68 2d 69 6e | 63 2d 67 61 6d 6d 61 2d | math-in|c-gamma-|
|000018b0| 73 65 72 69 65 73 20 28 | 61 20 78 29 20 28 62 79 |series (|a x) (by|
|000018c0| 74 65 2d 63 6f 64 65 20 | 22 08 3a 83 5c 22 00 08 |te-code |".:.\"..|
|000018d0| 40 c4 3e 3f 85 1f 00 08 | 40 c5 3d 83 1c 00 c6 08 |@.>?....|@.=.....|
|000018e0| 38 c7 3d 82 1f 00 c8 08 | 21 82 25 00 08 c7 3d 83 |8.=.....|!.%...=.|
|000018f0| 2c 00 c9 82 4c 00 ca cb | cc ca 09 cd 08 21 5c 22 |,...L...|.....!\"|
|00001900| 08 5c 22 21 ce 0a cf 5c | 5c 1a d0 d1 09 5c 22 1b |.\"!...\|\....\".|
|00001910| d2 0b 0b 09 08 24 29 29 | 21 5c 22 87 22 20 5b 78 |.....$))|!\"." [x|
|00001920| 20 61 20 63 61 6c 63 2d | 69 6e 74 65 72 6e 61 6c | a calc-|internal|
|00001930| 2d 70 72 65 63 20 73 74 | 61 72 74 20 28 62 69 67 |-prec st|art (big|
|00001940| 70 6f 73 20 62 69 67 6e | 65 67 29 20 66 6c 6f 61 |pos bign|eg) floa|
|00001950| 74 20 31 20 30 20 6d 61 | 74 68 2d 7a 65 72 6f 70 |t 1 0 ma|th-zerop|
|00001960| 20 28 66 6c 6f 61 74 20 | 30 20 30 29 20 6d 61 74 | (float |0 0) mat|
|00001970| 68 2d 6d 75 6c 20 6d 61 | 74 68 2d 65 78 70 2d 72 |h-mul ma|th-exp-r|
|00001980| 61 77 20 6d 61 74 68 2d | 73 75 62 20 6d 61 74 68 |aw math-|sub math|
|00001990| 2d 6c 6e 2d 72 61 77 20 | 6d 61 74 68 2d 6e 6f 72 |-ln-raw |math-nor|
|000019a0| 6d 61 6c 69 7a 65 20 32 | 20 6d 61 74 68 2d 64 69 |malize 2| math-di|
|000019b0| 76 20 28 66 6c 6f 61 74 | 20 31 20 30 29 20 6d 61 |v (float| 1 0) ma|
|000019c0| 74 68 2d 69 6e 63 2d 67 | 61 6d 6d 61 2d 73 65 72 |th-inc-g|amma-ser|
|000019d0| 69 65 73 2d 73 74 65 70 | 5d 20 31 34 29 29 0a 0a |ies-step|] 14))..|
|000019e0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 69 6e 63 2d |(defun m|ath-inc-|
|000019f0| 67 61 6d 6d 61 2d 73 65 | 72 69 65 73 2d 73 74 65 |gamma-se|ries-ste|
|00001a00| 70 20 28 73 75 6d 20 74 | 65 72 6d 20 61 20 78 29 |p (sum t|erm a x)|
|00001a10| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 c6 3d | (byte-c|ode "..=|
|00001a20| 85 0a 00 c7 c8 09 5c 22 | 88 c9 0a ca 5c 22 12 cb |......\"|....\"..|
|00001a30| cc 0b 0c 5c 22 0a 5c 22 | 89 13 88 c9 09 0b 5c 22 |...\".\"|......\"|
|00001a40| 1d cd 09 0d 5c 22 83 2a | 00 0d 82 30 00 ce 0d 0b |....\".*|...0....|
|00001a50| 0a 0c 24 29 87 22 20 5b | 63 61 6c 63 2d 64 69 73 |..$)." [|calc-dis|
|00001a60| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 6d 65 73 |play-wor|king-mes|
|00001a70| 73 61 67 65 20 73 75 6d | 20 61 20 74 65 72 6d 20 |sage sum| a term |
|00001a80| 78 20 6e 65 78 74 20 6c | 6f 74 73 20 6d 61 74 68 |x next l|ots math|
|00001a90| 2d 64 6f 2d 77 6f 72 6b | 69 6e 67 20 22 67 61 6d |-do-work|ing "gam|
|00001aa0| 6d 61 22 20 6d 61 74 68 | 2d 61 64 64 20 28 66 6c |ma" math|-add (fl|
|00001ab0| 6f 61 74 20 31 20 30 29 | 20 6d 61 74 68 2d 64 69 |oat 1 0)| math-di|
|00001ac0| 76 20 6d 61 74 68 2d 6d | 75 6c 20 6d 61 74 68 2d |v math-m|ul math-|
|00001ad0| 6e 65 61 72 6c 79 2d 65 | 71 75 61 6c 20 6d 61 74 |nearly-e|qual mat|
|00001ae0| 68 2d 69 6e 63 2d 67 61 | 6d 6d 61 2d 73 65 72 69 |h-inc-ga|mma-seri|
|00001af0| 65 73 2d 73 74 65 70 5d | 20 31 31 29 29 0a 0a 28 |es-step]| 11))..(|
|00001b00| 64 65 66 75 6e 20 6d 61 | 74 68 2d 69 6e 63 2d 67 |defun ma|th-inc-g|
|00001b10| 61 6d 6d 61 2d 63 66 72 | 61 63 20 28 61 20 78 29 |amma-cfr|ac (a x)|
|00001b20| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 3a 83 | (byte-c|ode ".:.|
|00001b30| 5c 22 00 08 40 c3 3e 3f | 85 1f 00 08 40 c4 3d 83 |\"..@.>?|....@.=.|
|00001b40| 1c 00 c5 08 38 c6 3d 82 | 1f 00 c7 08 21 82 25 00 |....8.=.|....!.%.|
|00001b50| 08 c6 3d 83 32 00 09 86 | 2f 00 c8 0a 21 82 4b 00 |..=.2...|/...!.K.|
|00001b60| c9 ca cb c9 0a cc 08 21 | 5c 22 08 5c 22 21 cd ce |.......!|\".\"!..|
|00001b70| 08 cf d0 d1 d2 d3 0a 08 | 26 09 5c 22 87 22 20 5b |........|&.\"." [|
|00001b80| 78 20 6d 61 74 68 2d 63 | 75 72 72 65 6e 74 2d 67 |x math-c|urrent-g|
|00001b90| 61 6d 6d 61 2d 76 61 6c | 75 65 20 61 20 28 62 69 |amma-val|ue a (bi|
|00001ba0| 67 70 6f 73 20 62 69 67 | 6e 65 67 29 20 66 6c 6f |gpos big|neg) flo|
|00001bb0| 61 74 20 31 20 30 20 6d | 61 74 68 2d 7a 65 72 6f |at 1 0 m|ath-zero|
|00001bc0| 70 20 63 61 6c 63 46 75 | 6e 63 2d 67 61 6d 6d 61 |p calcFu|nc-gamma|
|00001bd0| 20 6d 61 74 68 2d 6d 75 | 6c 20 6d 61 74 68 2d 65 | math-mu|l math-e|
|00001be0| 78 70 2d 72 61 77 20 6d | 61 74 68 2d 73 75 62 20 |xp-raw m|ath-sub |
|00001bf0| 6d 61 74 68 2d 6c 6e 2d | 72 61 77 20 6d 61 74 68 |math-ln-|raw math|
|00001c00| 2d 69 6e 63 2d 67 61 6d | 6d 61 2d 63 66 72 61 63 |-inc-gam|ma-cfrac|
|00001c10| 2d 73 74 65 70 20 28 66 | 6c 6f 61 74 20 31 20 30 |-step (f|loat 1 0|
|00001c20| 29 20 28 66 6c 6f 61 74 | 20 30 20 30 29 20 28 66 |) (float| 0 0) (f|
|00001c30| 6c 6f 61 74 20 31 20 30 | 29 20 28 66 6c 6f 61 74 |loat 1 0|) (float|
|00001c40| 20 31 20 30 29 20 28 66 | 6c 6f 61 74 20 31 20 30 | 1 0) (f|loat 1 0|
|00001c50| 29 20 28 66 6c 6f 61 74 | 20 30 20 30 29 5d 20 31 |) (float| 0 0)] 1|
|00001c60| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |8))..(de|fun math|
|00001c70| 2d 69 6e 63 2d 67 61 6d | 6d 61 2d 63 66 72 61 63 |-inc-gam|ma-cfrac|
|00001c80| 2d 73 74 65 70 20 28 61 | 30 20 61 31 20 62 30 20 |-step (a|0 a1 b0 |
|00001c90| 62 31 20 6e 20 66 61 63 | 20 67 20 61 20 78 29 20 |b1 n fac| g a x) |
|00001ca0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 cd 09 0a 5c |(byte-co|de "...\|
|00001cb0| 22 ce 09 0c 5c 22 1b 18 | cf 09 d0 5c 22 11 ce cf |"...\"..|...\"...|
|00001cc0| 0e 06 ce 0d 08 5c 22 5c | 22 0c 5c 22 15 ce cf 0e |.....\"\|".\"....|
|00001cd0| 08 ce 0e 07 08 5c 22 5c | 22 0c 5c 22 16 07 cf ce |.....\"\|".\"....|
|00001ce0| 0e 09 0d 5c 22 ce 0b 0e | 06 5c 22 5c 22 16 06 cf |...\"...|.\"\"...|
|00001cf0| ce 0e 09 0e 07 5c 22 ce | 0b 0e 08 5c 22 5c 22 89 |.....\".|...\"\".|
|00001d00| 16 08 88 d1 0e 06 21 83 | 63 00 d2 0d 0e 06 0e 07 |......!.|c.......|
|00001d10| 0e 08 09 0c 0e 0a 0a 0e | 09 26 09 82 9f 00 d3 d4 |........|.&......|
|00001d20| 0e 06 5c 22 89 14 88 ce | 0e 08 0c 5c 22 1e 0b 0e |..\"....|...\"...|
|00001d30| 0c d5 3d 85 7e 00 d6 d7 | 0e 0b 5c 22 88 d8 0e 0b |..=.~...|..\"....|
|00001d40| 0e 0a 5c 22 83 8d 00 0e | 0b 82 9e 00 d2 0d 0e 06 |..\"....|........|
|00001d50| 0e 07 0e 08 09 0c 0e 0b | 0a 0e 09 26 09 29 2a 87 |........|...&.)*.|
|00001d60| 22 20 5b 61 6e 61 20 6e | 20 61 20 61 6e 66 20 66 |" [ana n| a anf f|
|00001d70| 61 63 20 61 30 20 61 31 | 20 62 30 20 62 31 20 78 |ac a0 a1| b0 b1 x|
|00001d80| 20 67 20 6e 65 78 74 20 | 63 61 6c 63 2d 64 69 73 | g next |calc-dis|
|00001d90| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 6d 65 73 |play-wor|king-mes|
|00001da0| 73 61 67 65 20 6d 61 74 | 68 2d 73 75 62 20 6d 61 |sage mat|h-sub ma|
|00001db0| 74 68 2d 6d 75 6c 20 6d | 61 74 68 2d 61 64 64 20 |th-mul m|ath-add |
|00001dc0| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 6d 61 74 68 |(float 1| 0) math|
|00001dd0| 2d 7a 65 72 6f 70 20 6d | 61 74 68 2d 69 6e 63 2d |-zerop m|ath-inc-|
|00001de0| 67 61 6d 6d 61 2d 63 66 | 72 61 63 2d 73 74 65 70 |gamma-cf|rac-step|
|00001df0| 20 6d 61 74 68 2d 64 69 | 76 20 28 66 6c 6f 61 74 | math-di|v (float|
|00001e00| 20 31 20 30 29 20 6c 6f | 74 73 20 6d 61 74 68 2d | 1 0) lo|ts math-|
|00001e10| 64 6f 2d 77 6f 72 6b 69 | 6e 67 20 22 67 61 6d 6d |do-worki|ng "gamm|
|00001e20| 61 22 20 6d 61 74 68 2d | 6e 65 61 72 6c 79 2d 65 |a" math-|nearly-e|
|00001e30| 71 75 61 6c 5d 20 33 31 | 29 29 0a 0a 28 64 65 66 |qual] 31|))..(def|
|00001e40| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 65 72 66 20 |un calcF|unc-erf |
|00001e50| 28 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(x) (byt|e-code "|
|00001e60| c2 08 c3 5c 22 83 0b 00 | c4 82 54 00 c2 08 c5 5c |...\"...|..T....\|
|00001e70| 22 83 16 00 c6 82 54 00 | 08 3a 83 38 00 08 40 c7 |".....T.|.:.8..@.|
|00001e80| 3e 3f 85 35 00 08 40 c8 | 3d 83 32 00 c9 08 38 ca |>?.5..@.|=.2...8.|
|00001e90| 3d 82 35 00 cb 08 21 82 | 3b 00 08 ca 3d 83 42 00 |=.5...!.|;...=.B.|
|00001ea0| 08 82 54 00 cc 20 19 cd | ce cf d0 d1 d2 08 21 21 |..T.. ..|......!!|
|00001eb0| 5c 22 09 5c 22 08 5c 22 | 29 87 22 20 5b 78 20 6d |\".\".\"|)." [x m|
|00001ec0| 61 74 68 2d 63 75 72 72 | 65 6e 74 2d 67 61 6d 6d |ath-curr|ent-gamm|
|00001ed0| 61 2d 76 61 6c 75 65 20 | 65 71 75 61 6c 20 28 76 |a-value |equal (v|
|00001ee0| 61 72 20 69 6e 66 20 76 | 61 72 2d 69 6e 66 29 20 |ar inf v|ar-inf) |
|00001ef0| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 28 6e 65 67 |(float 1| 0) (neg|
|00001f00| 20 28 76 61 72 20 69 6e | 66 20 76 61 72 2d 69 6e | (var in|f var-in|
|00001f10| 66 29 29 20 28 66 6c 6f | 61 74 20 2d 31 20 30 29 |f)) (flo|at -1 0)|
|00001f20| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 29 | (bigpos| bigneg)|
|00001f30| 20 66 6c 6f 61 74 20 31 | 20 30 20 6d 61 74 68 2d | float 1| 0 math-|
|00001f40| 7a 65 72 6f 70 20 6d 61 | 74 68 2d 73 71 72 74 2d |zerop ma|th-sqrt-|
|00001f50| 70 69 20 6d 61 74 68 2d | 74 6f 2d 73 61 6d 65 2d |pi math-|to-same-|
|00001f60| 63 6f 6d 70 6c 65 78 2d | 71 75 61 64 20 6d 61 74 |complex-|quad mat|
|00001f70| 68 2d 64 69 76 20 63 61 | 6c 63 46 75 6e 63 2d 67 |h-div ca|lcFunc-g|
|00001f80| 61 6d 6d 61 67 20 28 66 | 6c 6f 61 74 20 35 20 2d |ammag (f|loat 5 -|
|00001f90| 31 29 20 6d 61 74 68 2d | 73 71 72 20 6d 61 74 68 |1) math-|sqr math|
|00001fa0| 2d 74 6f 2d 63 6f 6d 70 | 6c 65 78 2d 71 75 61 64 |-to-comp|lex-quad|
|00001fb0| 2d 6f 6e 65 5d 20 31 31 | 29 29 0a 0a 28 64 65 66 |-one] 11|))..(def|
|00001fc0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 65 72 66 63 |un calcF|unc-erfc|
|00001fd0| 20 28 78 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (x) (by|te-code |
|00001fe0| 22 c2 08 c3 5c 22 83 0b | 00 c4 82 27 00 c5 08 21 |"...\"..|...'...!|
|00001ff0| 83 21 00 c6 20 19 c7 c8 | c9 ca 08 21 5c 22 09 5c |.!.. ...|...!\".\|
|00002000| 22 29 82 27 00 cb cc cd | 08 21 5c 22 87 22 20 5b |").'....|.!\"." [|
|00002010| 78 20 6d 61 74 68 2d 63 | 75 72 72 65 6e 74 2d 67 |x math-c|urrent-g|
|00002020| 61 6d 6d 61 2d 76 61 6c | 75 65 20 65 71 75 61 6c |amma-val|ue equal|
|00002030| 20 28 76 61 72 20 69 6e | 66 20 76 61 72 2d 69 6e | (var in|f var-in|
|00002040| 66 29 20 28 66 6c 6f 61 | 74 20 30 20 30 29 20 6d |f) (floa|t 0 0) m|
|00002050| 61 74 68 2d 70 6f 73 70 | 20 6d 61 74 68 2d 73 71 |ath-posp| math-sq|
|00002060| 72 74 2d 70 69 20 6d 61 | 74 68 2d 64 69 76 20 63 |rt-pi ma|th-div c|
|00002070| 61 6c 63 46 75 6e 63 2d | 67 61 6d 6d 61 47 20 28 |alcFunc-|gammaG (|
|00002080| 66 6c 6f 61 74 20 35 20 | 2d 31 29 20 6d 61 74 68 |float 5 |-1) math|
|00002090| 2d 73 71 72 20 6d 61 74 | 68 2d 73 75 62 20 31 20 |-sqr mat|h-sub 1 |
|000020a0| 63 61 6c 63 46 75 6e 63 | 2d 65 72 66 5d 20 31 30 |calcFunc|-erf] 10|
|000020b0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|000020c0| 74 6f 2d 63 6f 6d 70 6c | 65 78 2d 71 75 61 64 2d |to-compl|ex-quad-|
|000020d0| 6f 6e 65 20 28 78 29 20 | 28 62 79 74 65 2d 63 6f |one (x) |(byte-co|
|000020e0| 64 65 20 22 c1 08 21 c2 | 3d 85 0d 00 c3 08 21 89 |de "..!.|=.....!.|
|000020f0| 10 88 c1 08 21 c4 3d 83 | 25 00 c4 c5 c6 08 38 21 |....!.=.|%.....8!|
|00002100| c5 c7 08 38 21 45 82 26 | 00 08 87 22 20 5b 78 20 |...8!E.&|..." [x |
|00002110| 63 61 72 2d 73 61 66 65 | 20 70 6f 6c 61 72 20 6d |car-safe| polar m|
|00002120| 61 74 68 2d 63 6f 6d 70 | 6c 65 78 20 63 70 6c 78 |ath-comp|lex cplx|
|00002130| 20 6d 61 74 68 2d 61 62 | 73 20 31 20 32 5d 20 39 | math-ab|s 1 2] 9|
|00002140| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00002150| 74 6f 2d 73 61 6d 65 2d | 63 6f 6d 70 6c 65 78 2d |to-same-|complex-|
|00002160| 71 75 61 64 20 28 78 20 | 79 29 20 28 62 79 74 65 |quad (x |y) (byte|
|00002170| 2d 63 6f 64 65 20 22 c2 | 08 21 c3 3d 83 4d 00 c2 |-code ".|.!.=.M..|
|00002180| 09 21 c3 3d 83 3b 00 c3 | c4 c5 08 38 21 83 21 00 |.!.=.;..|...8!.!.|
|00002190| c6 c5 09 38 21 82 24 00 | c5 09 38 c4 c7 08 38 21 |...8!.$.|..8...8!|
|000021a0| 83 34 00 c6 c7 09 38 21 | 82 37 00 c7 09 38 45 82 |.4....8!|.7...8E.|
|000021b0| 4a 00 c4 c5 08 38 21 83 | 49 00 c6 09 21 82 4a 00 |J....8!.|I...!.J.|
|000021c0| 09 82 6f 00 c4 08 21 83 | 6e 00 c2 09 21 c3 3d 83 |..o...!.|n...!.=.|
|000021d0| 68 00 c3 c6 c5 09 38 21 | c7 09 38 45 82 6b 00 c6 |h.....8!|..8E.k..|
|000021e0| 09 21 82 6f 00 09 87 22 | 20 5b 79 20 78 20 63 61 |.!.o..."| [y x ca|
|000021f0| 72 2d 73 61 66 65 20 63 | 70 6c 78 20 6d 61 74 68 |r-safe c|plx math|
|00002200| 2d 6e 65 67 70 20 31 20 | 6d 61 74 68 2d 6e 65 67 |-negp 1 |math-neg|
|00002210| 20 32 5d 20 31 35 29 29 | 0a 0a 28 64 65 66 75 6e | 2] 15))|..(defun|
|00002220| 20 63 61 6c 63 46 75 6e | 63 2d 62 65 74 61 20 28 | calcFun|c-beta (|
|00002230| 61 20 62 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |a b) (by|te-code |
|00002240| 22 c3 08 21 83 27 00 c4 | 08 c5 5c 22 19 c6 0a 21 |"..!.'..|..\"...!|
|00002250| 86 15 00 c7 0a c8 5c 22 | 88 c9 ca cb 0a cc c4 0a |......\"|........|
|00002260| 09 5c 22 09 5c 22 5c 22 | 5c 22 29 82 44 00 c3 0a |.\".\"\"|\").D...|
|00002270| 21 83 34 00 cd 0a 08 5c | 22 82 44 00 c9 cb ce 08 |!.4....\|".D.....|
|00002280| 21 ce 0a 21 5c 22 ce c4 | 08 0a 5c 22 21 5c 22 87 |!..!\"..|..\"!\".|
|00002290| 22 20 5b 61 20 61 6d 20 | 62 20 6d 61 74 68 2d 6e |" [a am |b math-n|
|000022a0| 75 6d 2d 69 6e 74 65 67 | 65 72 70 20 6d 61 74 68 |um-integ|erp math|
|000022b0| 2d 61 64 64 20 2d 31 20 | 6d 61 74 68 2d 6e 75 6d |-add -1 |math-num|
|000022c0| 62 65 72 70 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |berp mat|h-reject|
|000022d0| 2d 61 72 67 20 6e 75 6d | 62 65 72 70 20 6d 61 74 |-arg num|berp mat|
|000022e0| 68 2d 64 69 76 20 31 20 | 6d 61 74 68 2d 6d 75 6c |h-div 1 |math-mul|
|000022f0| 20 63 61 6c 63 46 75 6e | 63 2d 63 68 6f 6f 73 65 | calcFun|c-choose|
|00002300| 20 63 61 6c 63 46 75 6e | 63 2d 62 65 74 61 20 63 | calcFun|c-beta c|
|00002310| 61 6c 63 46 75 6e 63 2d | 67 61 6d 6d 61 5d 20 31 |alcFunc-|gamma] 1|
|00002320| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |9))..(de|fun calc|
|00002330| 46 75 6e 63 2d 62 65 74 | 61 49 20 28 78 20 61 20 |Func-bet|aI (x a |
|00002340| 62 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c5 |b) (byte|-code ".|
|00002350| 08 21 83 0a 00 c6 82 89 | 00 c7 08 c8 5c 22 83 15 |.!......|....\"..|
|00002360| 00 c9 82 89 00 c5 09 21 | 86 24 00 ca 09 21 85 24 |.......!|.$...!.$|
|00002370| 00 cb 09 21 83 44 00 c5 | 0a 21 86 36 00 ca 0a 21 |...!.D..|.!.6...!|
|00002380| 85 36 00 cb 0a 21 83 40 | 00 cc 0a cd 5c 22 82 41 |.6...!.@|....\".A|
|00002390| 00 ce 82 89 00 c5 0a 21 | 86 53 00 ca 0a 21 85 53 |.......!|.S...!.S|
|000023a0| 00 cb 0a 21 83 5a 00 cf | 82 89 00 d0 09 21 3f 83 |...!.Z..|.....!?.|
|000023b0| 68 00 cc 09 d1 5c 22 82 | 89 00 d0 0a 21 3f 83 76 |h....\".|....!?.v|
|000023c0| 00 cc 0a d1 5c 22 82 89 | 00 d2 20 86 89 00 d3 09 |....\"..|.. .....|
|000023d0| 0a 5c 22 1c d4 d5 08 09 | 0a 23 0c 5c 22 29 87 22 |.\".....|.#.\")."|
|000023e0| 20 5b 78 20 61 20 62 20 | 74 20 6d 61 74 68 2d 63 | [x a b |t math-c|
|000023f0| 75 72 72 65 6e 74 2d 62 | 65 74 61 2d 76 61 6c 75 |urrent-b|eta-valu|
|00002400| 65 20 6d 61 74 68 2d 7a | 65 72 6f 70 20 28 66 6c |e math-z|erop (fl|
|00002410| 6f 61 74 20 30 20 30 29 | 20 6d 61 74 68 2d 65 71 |oat 0 0)| math-eq|
|00002420| 75 61 6c 2d 69 6e 74 20 | 31 20 28 66 6c 6f 61 74 |ual-int |1 (float|
|00002430| 20 31 20 30 29 20 6d 61 | 74 68 2d 6e 75 6d 2d 69 | 1 0) ma|th-num-i|
|00002440| 6e 74 65 67 65 72 70 20 | 6d 61 74 68 2d 6e 65 67 |ntegerp |math-neg|
|00002450| 70 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |p math-r|eject-ar|
|00002460| 67 20 72 61 6e 67 65 20 | 28 66 6c 6f 61 74 20 31 |g range |(float 1|
|00002470| 20 30 29 20 28 66 6c 6f | 61 74 20 30 20 30 29 20 | 0) (flo|at 0 0) |
|00002480| 6d 61 74 68 2d 6e 75 6d | 62 65 72 70 20 6e 75 6d |math-num|berp num|
|00002490| 62 65 72 70 20 6d 61 74 | 68 2d 69 6e 65 78 61 63 |berp mat|h-inexac|
|000024a0| 74 2d 72 65 73 75 6c 74 | 20 63 61 6c 63 46 75 6e |t-result| calcFun|
|000024b0| 63 2d 62 65 74 61 20 6d | 61 74 68 2d 64 69 76 20 |c-beta m|ath-div |
|000024c0| 63 61 6c 63 46 75 6e 63 | 2d 62 65 74 61 42 5d 20 |calcFunc|-betaB] |
|000024d0| 32 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |23))..(d|efun cal|
|000024e0| 63 46 75 6e 63 2d 62 65 | 74 61 42 20 28 78 20 61 |cFunc-be|taB (x a|
|000024f0| 20 62 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | b) (byt|e-code "|
|00002500| cc 08 21 83 0a 00 cd 82 | cb 01 ce 08 cf 5c 22 83 |..!.....|.....\".|
|00002510| 18 00 d0 09 0a 5c 22 82 | cb 01 d1 08 21 3f 83 26 |.....\".|....!?.&|
|00002520| 00 d2 08 d3 5c 22 82 cb | 01 d1 09 21 3f 83 34 00 |....\"..|...!?.4.|
|00002530| d2 09 d3 5c 22 82 cb 01 | d1 0a 21 3f 83 42 00 d2 |...\"...|..!?.B..|
|00002540| 0a d3 5c 22 82 cb 01 cc | 09 21 83 4f 00 d2 09 d4 |..\"....|.!.O....|
|00002550| 5c 22 82 cb 01 cc 0a 21 | 83 5c 5c 00 d2 0a d4 5c |\".....!|.\\....\|
|00002560| 22 82 cb 01 d5 0a 21 85 | 98 00 d6 0a 21 83 6f 00 |".....!.|....!.o.|
|00002570| d2 0a d7 5c 22 82 98 00 | d8 0a 21 89 12 3a 83 8c |...\"...|..!..:..|
|00002580| 00 d9 3a 85 89 00 da d8 | 0a 21 89 12 41 d9 41 5c |..:.....|.!..A.A\|
|00002590| 22 db 55 82 98 00 d9 3a | 86 98 00 d8 0a 21 89 12 |".U....:|.....!..|
|000025a0| d9 57 83 06 01 0b 85 ad | 00 dc 09 21 86 a8 00 dc |.W......|...!....|
|000025b0| 0a 21 85 ad 00 dd 20 88 | de df 0c e0 5c 5c 1c e1 |.!.... .|....\\..|
|000025c0| 1d cf 1e 06 e2 0e 06 09 | 5c 22 1e 07 0d 54 89 15 |........|\"...T..|
|000025d0| 0a 57 85 f8 00 de e2 de | 0e 06 0d 0a 5a 5c 22 0d |.W......|....Z\".|
|000025e0| 5c 22 08 5c 22 16 06 e3 | 0e 07 e2 0e 06 e3 09 0d |\".\"...|........|
|000025f0| 5c 22 5c 22 5c 22 89 16 | 07 88 0e 08 e4 3d 85 f4 |\"\"\"..|.....=..|
|00002600| 00 e5 e6 0e 07 5c 22 88 | 82 c0 00 88 0e 07 2b 29 |.....\".|......+)|
|00002610| 21 e7 08 09 5c 22 5c 22 | 82 cb 01 d5 09 21 85 42 |!...\"\"|.....!.B|
|00002620| 01 d6 09 21 83 19 01 d2 | 09 d7 5c 22 82 42 01 d8 |...!....|..\".B..|
|00002630| 09 21 89 11 3a 83 36 01 | d9 3a 85 33 01 da d8 09 |.!..:.6.|.:.3....|
|00002640| 21 89 11 41 d9 41 5c 22 | db 55 82 42 01 d9 3a 86 |!..A.A\"|.U.B..:.|
|00002650| 42 01 d8 09 21 89 11 d9 | 57 83 5b 01 e8 0e 09 86 |B...!...|W.[.....|
|00002660| 4f 01 d0 09 0a 5c 22 e9 | e8 cf 08 5c 22 0a 09 23 |O....\".|...\"..#|
|00002670| 5c 22 82 cb 01 dd 20 88 | df 0c e0 5c 5c 1c ea 08 |\".... .|...\\...|
|00002680| 21 89 10 88 ea 09 21 89 | 11 88 ea 0a 21 89 12 88 |!.....!.|....!...|
|00002690| eb e3 de 09 ec 08 21 5c | 22 de 0a ec e8 ed 08 5c |......!\|"......\|
|000026a0| 22 21 5c 22 5c 22 21 1e | 0b ee 08 e2 e3 09 ef 5c |"!\"\"!.|.......\|
|000026b0| 22 e3 e3 09 0a 5c 22 f0 | 5c 22 5c 22 5c 22 db 55 |"....\".|\"\"\".U|
|000026c0| 83 ae 01 e2 de 0e 0b f1 | 09 0a 08 23 5c 22 09 5c |........|...#\".\|
|000026d0| 22 82 c8 01 e8 0e 09 86 | b8 01 d0 09 0a 5c 22 e2 |".......|.....\".|
|000026e0| de 0e 0b f1 0a 09 e8 cf | 08 5c 22 23 5c 22 0a 5c |........|.\"#\".\|
|000026f0| 22 5c 22 29 29 21 87 22 | 20 5b 78 20 61 20 62 20 |"\"))!."| [x a b |
|00002700| 63 61 6c 63 2d 73 79 6d | 62 6f 6c 69 63 2d 6d 6f |calc-sym|bolic-mo|
|00002710| 64 65 20 63 61 6c 63 2d | 69 6e 74 65 72 6e 61 6c |de calc-|internal|
|00002720| 2d 70 72 65 63 20 69 20 | 74 65 72 6d 20 73 75 6d |-prec i |term sum|
|00002730| 20 63 61 6c 63 2d 64 69 | 73 70 6c 61 79 2d 77 6f | calc-di|splay-wo|
|00002740| 72 6b 69 6e 67 2d 6d 65 | 73 73 61 67 65 20 6d 61 |rking-me|ssage ma|
|00002750| 74 68 2d 63 75 72 72 65 | 6e 74 2d 62 65 74 61 2d |th-curre|nt-beta-|
|00002760| 76 61 6c 75 65 20 74 20 | 62 74 20 6d 61 74 68 2d |value t |bt math-|
|00002770| 7a 65 72 6f 70 20 28 66 | 6c 6f 61 74 20 30 20 30 |zerop (f|loat 0 0|
|00002780| 29 20 6d 61 74 68 2d 65 | 71 75 61 6c 2d 69 6e 74 |) math-e|qual-int|
|00002790| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 62 65 74 61 | 1 calcF|unc-beta|
|000027a0| 20 6d 61 74 68 2d 6e 75 | 6d 62 65 72 70 20 6d 61 | math-nu|mberp ma|
|000027b0| 74 68 2d 72 65 6a 65 63 | 74 2d 61 72 67 20 6e 75 |th-rejec|t-arg nu|
|000027c0| 6d 62 65 72 70 20 6e 6f | 6e 7a 65 72 6f 70 20 6d |mberp no|nzerop m|
|000027d0| 61 74 68 2d 6e 75 6d 2d | 69 6e 74 65 67 65 72 70 |ath-num-|integerp|
|000027e0| 20 6d 61 74 68 2d 6e 65 | 67 70 20 72 61 6e 67 65 | math-ne|gp range|
|000027f0| 20 6d 61 74 68 2d 74 72 | 75 6e 63 20 32 30 20 6d | math-tr|unc 20 m|
|00002800| 61 74 68 2d 63 6f 6d 70 | 61 72 65 2d 62 69 67 6e |ath-comp|are-bign|
|00002810| 75 6d 20 2d 31 20 6d 61 | 74 68 2d 66 6c 6f 61 74 |um -1 ma|th-float|
|00002820| 70 20 6d 61 74 68 2d 69 | 6e 65 78 61 63 74 2d 72 |p math-i|nexact-r|
|00002830| 65 73 75 6c 74 20 6d 61 | 74 68 2d 6d 75 6c 20 6d |esult ma|th-mul m|
|00002840| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 32 20 |ath-norm|alize 2 |
|00002850| 30 20 6d 61 74 68 2d 64 | 69 76 20 6d 61 74 68 2d |0 math-d|iv math-|
|00002860| 61 64 64 20 6c 6f 74 73 | 20 6d 61 74 68 2d 64 6f |add lots| math-do|
|00002870| 2d 77 6f 72 6b 69 6e 67 | 20 22 62 65 74 61 22 20 |-working| "beta" |
|00002880| 6d 61 74 68 2d 70 6f 77 | 20 6d 61 74 68 2d 73 75 |math-pow| math-su|
|00002890| 62 20 63 61 6c 63 46 75 | 6e 63 2d 62 65 74 61 42 |b calcFu|nc-betaB|
|000028a0| 20 6d 61 74 68 2d 66 6c | 6f 61 74 20 6d 61 74 68 | math-fl|oat math|
|000028b0| 2d 65 78 70 2d 72 61 77 | 20 6d 61 74 68 2d 6c 6e |-exp-raw| math-ln|
|000028c0| 2d 72 61 77 20 28 66 6c | 6f 61 74 20 31 20 30 29 |-raw (fl|oat 1 0)|
|000028d0| 20 6d 61 74 68 2d 63 6f | 6d 70 61 72 65 20 28 66 | math-co|mpare (f|
|000028e0| 6c 6f 61 74 20 31 20 30 | 29 20 28 66 6c 6f 61 74 |loat 1 0|) (float|
|000028f0| 20 32 20 30 29 20 6d 61 | 74 68 2d 62 65 74 61 2d | 2 0) ma|th-beta-|
|00002900| 63 66 72 61 63 5d 20 37 | 37 29 29 0a 0a 28 73 65 |cfrac] 7|7))..(se|
|00002910| 74 71 20 6d 61 74 68 2d | 63 75 72 72 65 6e 74 2d |tq math-|current-|
|00002920| 62 65 74 61 2d 76 61 6c | 75 65 20 6e 69 6c 29 0a |beta-val|ue nil).|
|00002930| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 62 65 74 |.(defun |math-bet|
|00002940| 61 2d 63 66 72 61 63 20 | 28 61 20 62 20 78 29 20 |a-cfrac |(a b x) |
|00002950| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c6 09 0a 5c |(byte-co|de "...\|
|00002960| 22 c6 09 c7 5c 22 c6 09 | c8 5c 22 1c 1b 18 c9 ca |"...\"..|.\".....|
|00002970| cb cc cd ce 08 0d 5c 22 | 0b 5c 22 5c 22 cf d0 d1 |......\"|.\"\"...|
|00002980| 08 0b 0c 09 0a 0d 26 0b | 2b 87 22 20 5b 71 61 62 |......&.|+." [qab|
|00002990| 20 61 20 62 20 71 61 70 | 20 71 61 6d 20 78 20 6d | a b qap| qam x m|
|000029a0| 61 74 68 2d 61 64 64 20 | 28 66 6c 6f 61 74 20 31 |ath-add |(float 1|
|000029b0| 20 30 29 20 28 66 6c 6f | 61 74 20 2d 31 20 30 29 | 0) (flo|at -1 0)|
|000029c0| 20 6d 61 74 68 2d 62 65 | 74 61 2d 63 66 72 61 63 | math-be|ta-cfrac|
|000029d0| 2d 73 74 65 70 20 28 66 | 6c 6f 61 74 20 31 20 30 |-step (f|loat 1 0|
|000029e0| 29 20 6d 61 74 68 2d 73 | 75 62 20 28 66 6c 6f 61 |) math-s|ub (floa|
|000029f0| 74 20 31 20 30 29 20 6d | 61 74 68 2d 64 69 76 20 |t 1 0) m|ath-div |
|00002a00| 6d 61 74 68 2d 6d 75 6c | 20 28 66 6c 6f 61 74 20 |math-mul| (float |
|00002a10| 31 20 30 29 20 28 66 6c | 6f 61 74 20 31 20 30 29 |1 0) (fl|oat 1 0)|
|00002a20| 20 28 66 6c 6f 61 74 20 | 31 20 30 29 5d 20 31 38 | (float |1 0)] 18|
|00002a30| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00002a40| 62 65 74 61 2d 63 66 72 | 61 63 2d 73 74 65 70 20 |beta-cfr|ac-step |
|00002a50| 28 61 7a 20 62 7a 20 61 | 6d 20 62 6d 20 6d 20 71 |(az bz a|m bm m q|
|00002a60| 61 62 20 71 61 70 20 71 | 61 6d 20 61 20 62 20 78 |ab qap q|am a b x|
|00002a70| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 d4 09 |) (byte-|code "..|
|00002a80| d5 5c 22 18 d6 d4 d4 d7 | 0b 09 5c 22 09 5c 22 0c |.\".....|..\".\".|
|00002a90| 5c 22 d4 d8 0d 08 5c 22 | d8 0e 06 08 5c 22 5c 22 |\"....\"|....\"\"|
|00002aa0| 5c 22 1a d8 0e 08 d4 0a | 0e 09 5c 22 5c 22 1e 07 |\"......|..\"\"..|
|00002ab0| d8 0e 0b d4 0a 0e 0c 5c | 22 5c 22 1e 0a d9 d6 d4 |.......\|"\".....|
|00002ac0| d4 d8 0e 06 09 5c 22 d8 | 0e 0e 09 5c 22 5c 22 0c |.....\".|...\"\".|
|00002ad0| 5c 22 d4 d8 0e 0f 08 5c | 22 d8 0e 06 08 5c 22 5c |\".....\|"....\"\|
|00002ae0| 22 5c 22 21 1e 0d d8 0e | 07 d4 0e 0d 0e 08 5c 22 |"\"!....|......\"|
|00002af0| 5c 22 1e 10 d8 0e 0a d4 | 0e 0d 0e 0b 5c 22 5c 22 |\"......|....\"\"|
|00002b00| 1e 11 d6 0e 10 0e 11 5c | 22 1e 12 0e 13 da 3d 85 |.......\|".....=.|
|00002b10| 80 00 db dc 0e 12 5c 22 | 88 dd 0e 12 0e 08 5c 22 |......\"|......\"|
|00002b20| 83 8f 00 0e 12 82 ae 00 | de 0e 12 df d6 0e 07 0e |........|........|
|00002b30| 11 5c 22 d6 0e 0a 0e 11 | 5c 22 d8 09 e0 5c 22 0e |.\".....|\"...\".|
|00002b40| 0e 0e 0f 0d 0e 06 0b 0c | 26 0b 2e 08 87 22 20 5b |........|&...." [|
|00002b50| 74 77 6f 2d 6d 20 6d 20 | 64 20 62 20 78 20 71 61 |two-m m |d b x qa|
|00002b60| 6d 20 61 20 61 70 20 61 | 7a 20 61 6d 20 62 70 20 |m a ap a|z am bp |
|00002b70| 62 7a 20 62 6d 20 64 32 | 20 71 61 62 20 71 61 70 |bz bm d2| qab qap|
|00002b80| 20 61 70 70 20 62 70 70 | 20 6e 65 78 74 20 63 61 | app bpp| next ca|
|00002b90| 6c 63 2d 64 69 73 70 6c | 61 79 2d 77 6f 72 6b 69 |lc-displ|ay-worki|
|00002ba0| 6e 67 2d 6d 65 73 73 61 | 67 65 20 6d 61 74 68 2d |ng-messa|ge math-|
|00002bb0| 6d 75 6c 20 28 66 6c 6f | 61 74 20 32 20 30 29 20 |mul (flo|at 2 0) |
|00002bc0| 6d 61 74 68 2d 64 69 76 | 20 6d 61 74 68 2d 73 75 |math-div| math-su|
|00002bd0| 62 20 6d 61 74 68 2d 61 | 64 64 20 6d 61 74 68 2d |b math-a|dd math-|
|00002be0| 6e 65 67 20 6c 6f 74 73 | 20 6d 61 74 68 2d 64 6f |neg lots| math-do|
|00002bf0| 2d 77 6f 72 6b 69 6e 67 | 20 22 62 65 74 61 22 20 |-working| "beta" |
|00002c00| 6d 61 74 68 2d 6e 65 61 | 72 6c 79 2d 65 71 75 61 |math-nea|rly-equa|
|00002c10| 6c 20 6d 61 74 68 2d 62 | 65 74 61 2d 63 66 72 61 |l math-b|eta-cfra|
|00002c20| 63 2d 73 74 65 70 20 28 | 66 6c 6f 61 74 20 31 20 |c-step (|float 1 |
|00002c30| 30 29 20 28 66 6c 6f 61 | 74 20 31 20 30 29 5d 20 |0) (floa|t 1 0)] |
|00002c40| 34 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |43))..(d|efun cal|
|00002c50| 63 46 75 6e 63 2d 62 65 | 73 4a 20 28 76 20 78 29 |cFunc-be|sJ (v x)|
|00002c60| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 ce 08 21 | (byte-c|ode "..!|
|00002c70| 86 0a 00 cf 08 d0 5c 22 | 88 ce 09 21 86 15 00 cf |......\"|...!....|
|00002c80| 09 d0 5c 22 88 d1 0a 5e | 1a d2 0a d3 5c 5c 1a d4 |..\"...^|....\\..|
|00002c90| d2 09 21 21 89 11 88 d4 | d2 08 21 21 89 10 88 d5 |..!!....|..!!....|
|00002ca0| 09 21 83 43 00 d5 08 21 | 83 3f 00 d6 82 40 00 d7 |.!.C...!|.?...@..|
|00002cb0| 82 a5 01 d8 20 86 a5 01 | d9 08 21 3f 83 6f 00 da |.... ...|..!?.o..|
|00002cc0| db dc 08 21 5c 22 1b dd | de 0b 0b df dd e0 e1 09 |...!\"..|........|
|00002cd0| 21 5c 22 08 25 e2 da 09 | e3 5c 22 08 5c 22 5c 22 |!\".%...|.\".\"\"|
|00002ce0| 29 82 a5 01 e4 e5 08 21 | 89 10 21 83 93 00 e6 08 |)......!|..!.....|
|00002cf0| 21 83 8a 00 e7 e8 e7 08 | 21 09 5c 22 21 82 90 00 |!.......|!.\"!...|
|00002d00| e8 e7 08 21 09 5c 22 82 | a5 01 08 df 3d 83 9f 00 |...!.\".|....=...|
|00002d10| e9 09 21 82 a5 01 08 db | 3d 83 ab 00 ea 09 21 82 |..!.....|=.....!.|
|00002d20| a5 01 eb 08 ec 09 21 5c | 22 ed 55 83 f4 00 df e9 |......!\|".U.....|
|00002d30| 09 21 ea 09 21 da e3 09 | 5c 22 cb 1e 08 1e 07 1e |.!..!...|\"......|
|00002d40| 06 1d 1c 0c 54 89 14 08 | 57 85 ed 00 ee dd dd 0c |....T...|W.......|
|00002d50| 0e 07 5c 22 0e 06 5c 22 | 0d 5c 22 16 08 0e 06 15 |..\"..\"|.\".....|
|00002d60| 0e 08 89 16 06 88 82 ca | 00 88 0e 06 2d 82 a5 01 |........|....-...|
|00002d70| eb ef 08 5c 22 ed 55 85 | 01 01 cf 08 f0 5c 22 88 |...\".U.|.....\".|
|00002d80| f1 08 f2 f3 f4 08 5c 22 | 21 5c 5c db 5c 22 1c da |......\"|!\\.\"..|
|00002d90| e3 09 5c 22 1e 07 cb 1e | 0a f5 1e 08 f6 1e 0c f7 |..\"....|........|
|00002da0| 1e 06 cb 1d cb 1e 0d 0c | 53 89 14 df 56 85 95 01 |........|S...V...|
|00002db0| ee dd dd 0c 0e 07 5c 22 | 0e 06 5c 22 0e 08 5c 22 |......\"|..\"..\"|
|00002dc0| 15 0e 06 16 08 0d 89 16 | 06 88 e3 ec 0e 06 21 38 |........|......!8|
|00002dd0| f8 56 85 72 01 dd 0e 06 | f9 5c 22 16 06 dd 0e 08 |.V.r....|.\".....|
|00002de0| fa 5c 22 16 08 0e 0d 85 | 68 01 dd 0e 0d fb 5c 22 |.\".....|h.....\"|
|00002df0| 16 0d dd 0e 0c fc 5c 22 | 89 16 0c 88 0e 0a 3f 89 |......\"|......?.|
|00002e00| 16 0a 86 85 01 fd 0e 0c | 0e 06 5c 22 89 16 0c 88 |........|..\"....|
|00002e10| 0c 08 55 85 91 01 0e 08 | 89 16 0d 88 82 25 01 88 |..U.....|.....%..|
|00002e20| da 0e 0d ee dd e3 0e 0c | 5c 22 0e 06 5c 22 5c 22 |........|\"..\"\"|
|00002e30| 2e 08 29 21 29 87 22 20 | 5b 76 20 78 20 63 61 6c |..)!)." |[v x cal|
|00002e40| 63 2d 69 6e 74 65 72 6e | 61 6c 2d 70 72 65 63 20 |c-intern|al-prec |
|00002e50| 73 74 61 72 74 20 6a 20 | 62 6a 6d 20 62 6a 20 74 |start j |bjm bj t|
|00002e60| 77 6f 2d 6f 76 65 72 2d | 78 20 62 6a 70 20 74 20 |wo-over-|x bjp t |
|00002e70| 6a 73 75 6d 20 6e 69 6c | 20 73 75 6d 20 61 6e 73 |jsum nil| sum ans|
|00002e80| 20 6d 61 74 68 2d 6e 75 | 6d 62 65 72 70 20 6d 61 | math-nu|mberp ma|
|00002e90| 74 68 2d 72 65 6a 65 63 | 74 2d 61 72 67 20 6e 75 |th-rejec|t-arg nu|
|00002ea0| 6d 62 65 72 70 20 38 20 | 6d 61 74 68 2d 6e 6f 72 |mberp 8 |math-nor|
|00002eb0| 6d 61 6c 69 7a 65 20 33 | 20 6d 61 74 68 2d 66 6c |malize 3| math-fl|
|00002ec0| 6f 61 74 20 6d 61 74 68 | 2d 7a 65 72 6f 70 20 28 |oat math|-zerop (|
|00002ed0| 66 6c 6f 61 74 20 31 20 | 30 29 20 28 66 6c 6f 61 |float 1 |0) (floa|
|00002ee0| 74 20 30 20 30 29 20 6d | 61 74 68 2d 69 6e 65 78 |t 0 0) m|ath-inex|
|00002ef0| 61 63 74 2d 72 65 73 75 | 6c 74 20 6d 61 74 68 2d |act-resu|lt math-|
|00002f00| 6e 75 6d 2d 69 6e 74 65 | 67 65 72 70 20 6d 61 74 |num-inte|gerp mat|
|00002f10| 68 2d 64 69 76 20 31 20 | 63 61 6c 63 46 75 6e 63 |h-div 1 |calcFunc|
|00002f20| 2d 66 61 63 74 20 6d 61 | 74 68 2d 6d 75 6c 20 6d |-fact ma|th-mul m|
|00002f30| 61 74 68 2d 62 65 73 4a | 2d 73 65 72 69 65 73 20 |ath-besJ|-series |
|00002f40| 30 20 28 66 6c 6f 61 74 | 20 2d 32 35 20 2d 32 29 |0 (float| -25 -2)|
|00002f50| 20 6d 61 74 68 2d 73 71 | 72 20 6d 61 74 68 2d 70 | math-sq|r math-p|
|00002f60| 6f 77 20 32 20 6d 61 74 | 68 2d 6e 65 67 70 20 6d |ow 2 mat|h-negp m|
|00002f70| 61 74 68 2d 74 72 75 6e | 63 20 6d 61 74 68 2d 6f |ath-trun|c math-o|
|00002f80| 64 64 70 20 6d 61 74 68 | 2d 6e 65 67 20 63 61 6c |ddp math|-neg cal|
|00002f90| 63 46 75 6e 63 2d 62 65 | 73 4a 20 6d 61 74 68 2d |cFunc-be|sJ math-|
|00002fa0| 62 65 73 4a 30 20 6d 61 | 74 68 2d 62 65 73 4a 31 |besJ0 ma|th-besJ1|
|00002fb0| 20 6d 61 74 68 2d 63 6f | 6d 70 61 72 65 20 6d 61 | math-co|mpare ma|
|00002fc0| 74 68 2d 61 62 73 2d 61 | 70 70 72 6f 78 20 2d 31 |th-abs-a|pprox -1|
|00002fd0| 20 6d 61 74 68 2d 73 75 | 62 20 31 30 30 20 72 61 | math-su|b 100 ra|
|00002fe0| 6e 67 65 20 6c 6f 67 69 | 6f 72 20 6d 61 74 68 2d |nge logi|or math-|
|00002ff0| 69 73 71 72 74 2d 73 6d | 61 6c 6c 20 2a 20 34 30 |isqrt-sm|all * 40|
|00003000| 20 28 66 6c 6f 61 74 20 | 30 20 30 29 20 28 66 6c | (float |0 0) (fl|
|00003010| 6f 61 74 20 30 20 30 29 | 20 28 66 6c 6f 61 74 20 |oat 0 0)| (float |
|00003020| 31 20 30 29 20 31 30 20 | 28 66 6c 6f 61 74 20 31 |1 0) 10 |(float 1|
|00003030| 20 2d 31 30 29 20 28 66 | 6c 6f 61 74 20 31 20 2d | -10) (f|loat 1 -|
|00003040| 31 30 29 20 28 66 6c 6f | 61 74 20 31 20 2d 31 30 |10) (flo|at 1 -10|
|00003050| 29 20 28 66 6c 6f 61 74 | 20 31 20 2d 31 30 29 20 |) (float| 1 -10) |
|00003060| 6d 61 74 68 2d 61 64 64 | 5d 20 36 30 29 29 0a 0a |math-add|] 60))..|
|00003070| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 62 65 73 4a |(defun m|ath-besJ|
|00003080| 2d 73 65 72 69 65 73 20 | 28 73 75 6d 20 74 65 72 |-series |(sum ter|
|00003090| 6d 20 6b 20 7a 7a 20 76 | 6b 29 20 28 62 79 74 65 |m k zz v|k) (byte|
|000030a0| 2d 63 6f 64 65 20 22 08 | c7 3d 85 0a 00 c8 c9 09 |-code ".|.=......|
|000030b0| 5c 22 88 0a 54 12 ca cb | 0b 5c 22 13 cc cd 0c 0d |\"..T...|.\".....|
|000030c0| 5c 22 cd 0a 0b 5c 22 5c | 22 89 14 88 ca 09 0c 5c |\"...\"\|"......\|
|000030d0| 22 1e 06 ce 0e 06 09 5c | 22 83 33 00 0e 06 82 3b |"......\|".3....;|
|000030e0| 00 cf 0e 06 0c 0a 0d 0b | 25 29 87 22 20 5b 63 61 |........|%)." [ca|
|000030f0| 6c 63 2d 64 69 73 70 6c | 61 79 2d 77 6f 72 6b 69 |lc-displ|ay-worki|
|00003100| 6e 67 2d 6d 65 73 73 61 | 67 65 20 73 75 6d 20 6b |ng-messa|ge sum k|
|00003110| 20 76 6b 20 74 65 72 6d | 20 7a 7a 20 6e 65 78 74 | vk term| zz next|
|00003120| 20 6c 6f 74 73 20 6d 61 | 74 68 2d 64 6f 2d 77 6f | lots ma|th-do-wo|
|00003130| 72 6b 69 6e 67 20 22 62 | 65 73 4a 22 20 6d 61 74 |rking "b|esJ" mat|
|00003140| 68 2d 61 64 64 20 31 20 | 6d 61 74 68 2d 64 69 76 |h-add 1 |math-div|
|00003150| 20 6d 61 74 68 2d 6d 75 | 6c 20 6d 61 74 68 2d 6e | math-mu|l math-n|
|00003160| 65 61 72 6c 79 2d 65 71 | 75 61 6c 20 6d 61 74 68 |early-eq|ual math|
|00003170| 2d 62 65 73 4a 2d 73 65 | 72 69 65 73 5d 20 31 33 |-besJ-se|ries] 13|
|00003180| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00003190| 62 65 73 4a 30 20 28 78 | 20 26 6f 70 74 69 6f 6e |besJ0 (x| &option|
|000031a0| 61 6c 20 79 66 6c 61 67 | 29 20 28 62 79 74 65 2d |al yflag|) (byte-|
|000031b0| 63 6f 64 65 20 22 08 3f | 85 0a 00 c9 ca 09 21 21 |code ".?|......!!|
|000031c0| 83 15 00 cb cc 09 21 21 | 82 7d 00 cd ce cf 09 21 |......!!|.}.....!|
|000031d0| 5c 22 d0 55 83 6e 00 d1 | d2 09 5c 22 1a d3 0a 21 |\".U.n..|..\"...!|
|000031e0| 1b d4 09 d5 5c 22 1c d6 | 0b d7 5c 22 1d d6 0b d8 |....\"..|..\"....|
|000031f0| 5c 22 1e 06 d9 0c 21 1e | 07 08 85 4e 00 cc 0e 07 |\"....!.|...N....|
|00003200| 41 21 0e 07 40 42 89 16 | 07 88 da db d1 dc 09 5c |A!..@B..|.......\|
|00003210| 22 21 dd da 0e 07 41 0d | 5c 22 da 0e 07 40 da 0a |"!....A.|\"...@..|
|00003220| 0e 06 5c 22 5c 22 5c 22 | 5c 22 2e 06 82 7d 00 d3 |..\"\"\"|\"...}..|
|00003230| 09 21 1b d1 d6 0b de 5c | 22 d6 0b df 5c 22 5c 22 |.!.....\|"...\"\"|
|00003240| 29 87 22 20 5b 79 66 6c | 61 67 20 78 20 7a 20 79 |)." [yfl|ag x z y|
|00003250| 20 78 78 20 61 31 20 61 | 32 20 73 63 20 74 20 6d | xx a1 a|2 sc t m|
|00003260| 61 74 68 2d 6e 65 67 70 | 20 63 61 6c 63 46 75 6e |ath-negp| calcFun|
|00003270| 63 2d 72 65 20 6d 61 74 | 68 2d 62 65 73 4a 30 20 |c-re mat|h-besJ0 |
|00003280| 6d 61 74 68 2d 6e 65 67 | 20 6d 61 74 68 2d 63 6f |math-neg| math-co|
|00003290| 6d 70 61 72 65 20 28 66 | 6c 6f 61 74 20 38 20 30 |mpare (f|loat 8 0|
|000032a0| 29 20 6d 61 74 68 2d 61 | 62 73 2d 61 70 70 72 6f |) math-a|bs-appro|
|000032b0| 78 20 2d 31 20 6d 61 74 | 68 2d 64 69 76 20 28 66 |x -1 mat|h-div (f|
|000032c0| 6c 6f 61 74 20 38 20 30 | 29 20 6d 61 74 68 2d 73 |loat 8 0|) math-s|
|000032d0| 71 72 20 6d 61 74 68 2d | 61 64 64 20 28 66 6c 6f |qr math-|add (flo|
|000032e0| 61 74 20 28 62 69 67 6e | 65 67 20 31 36 34 20 33 |at (bign|eg 164 3|
|000032f0| 39 38 20 37 38 35 29 20 | 2d 39 29 20 6d 61 74 68 |98 785) |-9) math|
|00003300| 2d 70 6f 6c 79 2d 65 76 | 61 6c 20 28 28 66 6c 6f |-poly-ev|al ((flo|
|00003310| 61 74 20 28 62 69 67 70 | 6f 73 20 32 31 31 20 38 |at (bigp|os 211 8|
|00003320| 38 37 20 39 33 20 32 29 | 20 2d 31 36 29 20 28 66 |87 93 2)| -16) (f|
|00003330| 6c 6f 61 74 20 28 62 69 | 67 6e 65 67 20 36 33 39 |loat (bi|gneg 639|
|00003340| 20 33 37 30 20 37 33 20 | 32 29 20 2d 31 35 29 20 | 370 73 |2) -15) |
|00003350| 28 66 6c 6f 61 74 20 28 | 62 69 67 70 6f 73 20 34 |(float (|bigpos 4|
|00003360| 30 37 20 35 31 30 20 37 | 33 34 20 32 29 20 2d 31 |07 510 7|34 2) -1|
|00003370| 34 29 20 28 66 6c 6f 61 | 74 20 28 62 69 67 6e 65 |4) (floa|t (bigne|
|00003380| 67 20 36 32 37 20 36 32 | 38 20 39 38 20 31 29 20 |g 627 62|8 98 1) |
|00003390| 2d 31 32 29 20 28 66 6c | 6f 61 74 20 31 20 30 29 |-12) (fl|oat 1 0)|
|000033a0| 29 20 28 28 66 6c 6f 61 | 74 20 28 62 69 67 6e 65 |) ((floa|t (bigne|
|000033b0| 67 20 31 35 32 20 39 33 | 35 20 39 33 34 29 20 2d |g 152 93|5 934) -|
|000033c0| 31 36 29 20 28 66 6c 6f | 61 74 20 28 62 69 67 70 |16) (flo|at (bigp|
|000033d0| 6f 73 20 31 36 31 20 39 | 35 20 36 32 31 20 37 29 |os 161 9|5 621 7)|
|000033e0| 20 2d 31 36 29 20 28 66 | 6c 6f 61 74 20 28 62 69 | -16) (f|loat (bi|
|000033f0| 67 6e 65 67 20 36 35 31 | 20 31 34 37 20 39 31 31 |gneg 651| 147 911|
|00003400| 20 36 29 20 2d 31 35 29 | 20 28 66 6c 6f 61 74 20 | 6) -15)| (float |
|00003410| 28 62 69 67 70 6f 73 20 | 37 36 35 20 34 38 38 20 |(bigpos |765 488 |
|00003420| 34 33 30 20 31 29 20 2d | 31 33 29 20 28 66 6c 6f |430 1) -|13) (flo|
|00003430| 61 74 20 28 62 69 67 6e | 65 67 20 39 39 35 20 34 |at (bign|eg 995 4|
|00003440| 39 39 20 35 36 32 20 31 | 29 20 2d 31 31 29 29 20 |99 562 1|) -11)) |
|00003450| 6d 61 74 68 2d 73 69 6e | 2d 63 6f 73 2d 72 61 77 |math-sin|-cos-raw|
|00003460| 20 6d 61 74 68 2d 6d 75 | 6c 20 6d 61 74 68 2d 73 | math-mu|l math-s|
|00003470| 71 72 74 20 28 66 6c 6f | 61 74 20 28 62 69 67 70 |qrt (flo|at (bigp|
|00003480| 6f 73 20 37 32 32 20 36 | 31 39 20 36 33 36 29 20 |os 722 6|19 636) |
|00003490| 2d 39 29 20 6d 61 74 68 | 2d 73 75 62 20 28 28 66 |-9) math|-sub ((f|
|000034a0| 6c 6f 61 74 20 28 62 69 | 67 6e 65 67 20 34 35 36 |loat (bi|gneg 456|
|000034b0| 20 35 32 20 38 34 39 20 | 31 29 20 2d 37 29 20 28 | 52 849 |1) -7) (|
|000034c0| 66 6c 6f 61 74 20 28 62 | 69 67 70 6f 73 20 31 37 |float (b|igpos 17|
|000034d0| 20 32 33 33 20 37 33 39 | 20 37 29 20 2d 35 29 20 | 233 739| 7) -5) |
|000034e0| 28 66 6c 6f 61 74 20 28 | 62 69 67 6e 65 67 20 34 |(float (|bigneg 4|
|000034f0| 31 38 20 34 34 32 20 31 | 32 31 20 31 29 20 2d 32 |18 442 1|21 1) -2|
|00003500| 29 20 28 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |) (float| (bigpos|
|00003510| 20 34 30 37 20 31 39 36 | 20 35 31 36 20 36 29 20 | 407 196| 516 6) |
|00003520| 2d 31 29 20 28 66 6c 6f | 61 74 20 28 62 69 67 6e |-1) (flo|at (bign|
|00003530| 65 67 20 33 35 34 20 35 | 39 30 20 33 36 32 20 31 |eg 354 5|90 362 1|
|00003540| 33 29 20 30 29 20 28 66 | 6c 6f 61 74 20 28 62 69 |3) 0) (f|loat (bi|
|00003550| 67 70 6f 73 20 35 37 34 | 20 34 39 30 20 35 36 38 |gpos 574| 490 568|
|00003560| 20 35 37 29 20 30 29 29 | 20 28 28 66 6c 6f 61 74 | 57) 0))| ((float|
|00003570| 20 31 20 30 29 20 28 66 | 6c 6f 61 74 20 28 62 69 | 1 0) (f|loat (bi|
|00003580| 67 70 6f 73 20 37 31 32 | 20 35 33 32 20 36 37 38 |gpos 712| 532 678|
|00003590| 20 32 29 20 2d 37 29 20 | 28 66 6c 6f 61 74 20 28 | 2) -7) |(float (|
|000035a0| 62 69 67 70 6f 73 20 38 | 35 33 20 32 36 34 20 39 |bigpos 8|53 264 9|
|000035b0| 32 37 20 35 29 20 2d 35 | 29 20 28 66 6c 6f 61 74 |27 5) -5|) (float|
|000035c0| 20 28 62 69 67 70 6f 73 | 20 37 31 38 20 36 38 30 | (bigpos| 718 680|
|000035d0| 20 34 39 34 20 39 29 20 | 2d 33 29 20 28 66 6c 6f | 494 9) |-3) (flo|
|000035e0| 61 74 20 28 62 69 67 70 | 6f 73 20 39 38 35 20 35 |at (bigp|os 985 5|
|000035f0| 33 32 20 32 39 20 31 29 | 20 30 29 20 28 66 6c 6f |32 29 1)| 0) (flo|
|00003600| 61 74 20 28 62 69 67 70 | 6f 73 20 34 31 31 20 34 |at (bigp|os 411 4|
|00003610| 39 30 20 35 36 38 20 35 | 37 29 20 30 29 29 5d 20 |90 568 5|7) 0))] |
|00003620| 32 37 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 |27))..(d|efun mat|
|00003630| 68 2d 62 65 73 4a 31 20 | 28 78 20 26 6f 70 74 69 |h-besJ1 |(x &opti|
|00003640| 6f 6e 61 6c 20 79 66 6c | 61 67 29 20 28 62 79 74 |onal yfl|ag) (byt|
|00003650| 65 2d 63 6f 64 65 20 22 | c9 ca 08 21 21 85 0a 00 |e-code "|...!!...|
|00003660| 09 3f 83 17 00 cb cc cb | 08 21 21 21 82 99 00 cd |.?......|.!!!....|
|00003670| ce cf 08 21 5c 22 d0 55 | 83 87 00 d1 d2 08 5c 22 |...!\".U|......\"|
|00003680| 1a d3 0a 21 1b d4 08 d5 | 5c 22 1c d6 0b d7 5c 22 |...!....|\"....\"|
|00003690| 1d d6 0b d8 5c 22 1e 06 | d9 0c 21 1e 07 09 83 53 |....\"..|..!....S|
|000036a0| 00 cb 0e 07 41 21 0e 07 | 40 42 89 16 07 82 67 00 |....A!..|@B....g.|
|000036b0| c9 08 21 85 67 00 cb 0e | 07 40 21 cb 0e 07 41 21 |..!.g...|.@!...A!|
|000036c0| 42 89 16 07 88 da db d1 | dc 08 5c 22 21 dd da 0e |B.......|..\"!...|
|000036d0| 07 41 0d 5c 22 da 0e 07 | 40 da 0a 0e 06 5c 22 5c |.A.\"...|@....\"\|
|000036e0| 22 5c 22 5c 22 2e 06 82 | 99 00 d3 08 21 1b da 08 |"\"\"...|....!...|
|000036f0| d1 d6 0b de 5c 22 d6 0b | df 5c 22 5c 22 5c 22 29 |....\"..|.\"\"\")|
|00003700| 87 22 20 5b 78 20 79 66 | 6c 61 67 20 7a 20 79 20 |." [x yf|lag z y |
|00003710| 78 78 20 61 31 20 61 32 | 20 73 63 20 74 20 6d 61 |xx a1 a2| sc t ma|
|00003720| 74 68 2d 6e 65 67 70 20 | 63 61 6c 63 46 75 6e 63 |th-negp |calcFunc|
|00003730| 2d 72 65 20 6d 61 74 68 | 2d 6e 65 67 20 6d 61 74 |-re math|-neg mat|
|00003740| 68 2d 62 65 73 4a 31 20 | 6d 61 74 68 2d 63 6f 6d |h-besJ1 |math-com|
|00003750| 70 61 72 65 20 28 66 6c | 6f 61 74 20 38 20 30 29 |pare (fl|oat 8 0)|
|00003760| 20 6d 61 74 68 2d 61 62 | 73 2d 61 70 70 72 6f 78 | math-ab|s-approx|
|00003770| 20 2d 31 20 6d 61 74 68 | 2d 64 69 76 20 28 66 6c | -1 math|-div (fl|
|00003780| 6f 61 74 20 38 20 30 29 | 20 6d 61 74 68 2d 73 71 |oat 8 0)| math-sq|
|00003790| 72 20 6d 61 74 68 2d 61 | 64 64 20 28 66 6c 6f 61 |r math-a|dd (floa|
|000037a0| 74 20 28 62 69 67 6e 65 | 67 20 34 39 31 20 31 39 |t (bigne|g 491 19|
|000037b0| 34 20 33 35 36 20 32 29 | 20 2d 39 29 20 6d 61 74 |4 356 2)| -9) mat|
|000037c0| 68 2d 70 6f 6c 79 2d 65 | 76 61 6c 20 28 28 66 6c |h-poly-e|val ((fl|
|000037d0| 6f 61 74 20 28 62 69 67 | 6e 65 67 20 31 39 20 33 |oat (big|neg 19 3|
|000037e0| 33 37 20 32 34 30 29 20 | 2d 31 35 29 20 28 66 6c |37 240) |-15) (fl|
|000037f0| 6f 61 74 20 28 62 69 67 | 70 6f 73 20 31 37 34 20 |oat (big|pos 174 |
|00003800| 35 32 30 20 34 35 37 20 | 32 29 20 2d 31 35 29 20 |520 457 |2) -15) |
|00003810| 28 66 6c 6f 61 74 20 28 | 62 69 67 6e 65 67 20 34 |(float (|bigneg 4|
|00003820| 39 36 20 33 39 36 20 35 | 31 36 20 33 29 20 2d 31 |96 396 5|16 3) -1|
|00003830| 34 29 20 28 66 6c 6f 61 | 74 20 31 38 33 31 30 35 |4) (floa|t 183105|
|00003840| 20 2d 38 29 20 28 66 6c | 6f 61 74 20 31 20 30 29 | -8) (fl|oat 1 0)|
|00003850| 29 20 28 28 66 6c 6f 61 | 74 20 28 62 69 67 70 6f |) ((floa|t (bigpo|
|00003860| 73 20 34 31 32 20 37 38 | 37 20 31 30 35 29 20 2d |s 412 78|7 105) -|
|00003870| 31 35 29 20 28 66 6c 6f | 61 74 20 28 62 69 67 6e |15) (flo|at (bign|
|00003880| 65 67 20 39 38 37 20 32 | 32 38 20 38 38 29 20 2d |eg 987 2|28 88) -|
|00003890| 31 34 29 20 28 66 6c 6f | 61 74 20 28 62 69 67 70 |14) (flo|at (bigp|
|000038a0| 6f 73 20 39 36 20 31 39 | 39 20 34 34 39 20 38 29 |os 96 19|9 449 8)|
|000038b0| 20 2d 31 35 29 20 28 66 | 6c 6f 61 74 20 28 62 69 | -15) (f|loat (bi|
|000038c0| 67 6e 65 67 20 38 37 33 | 20 36 39 30 20 32 20 32 |gneg 873| 690 2 2|
|000038d0| 29 20 2d 31 33 29 20 28 | 66 6c 6f 61 74 20 28 62 |) -13) (|float (b|
|000038e0| 69 67 70 6f 73 20 39 39 | 35 20 34 39 39 20 36 38 |igpos 99|5 499 68|
|000038f0| 37 20 34 29 20 2d 31 31 | 29 29 20 6d 61 74 68 2d |7 4) -11|)) math-|
|00003900| 73 69 6e 2d 63 6f 73 2d | 72 61 77 20 6d 61 74 68 |sin-cos-|raw math|
|00003910| 2d 6d 75 6c 20 6d 61 74 | 68 2d 73 71 72 74 20 28 |-mul mat|h-sqrt (|
|00003920| 66 6c 6f 61 74 20 28 62 | 69 67 70 6f 73 20 37 32 |float (b|igpos 72|
|00003930| 32 20 36 31 39 20 36 33 | 36 29 20 2d 39 29 20 6d |2 619 63|6) -9) m|
|00003940| 61 74 68 2d 73 75 62 20 | 28 28 66 6c 6f 61 74 20 |ath-sub |((float |
|00003950| 28 62 69 67 6e 65 67 20 | 36 30 36 20 33 36 20 31 |(bigneg |606 36 1|
|00003960| 36 20 33 29 20 2d 38 29 | 20 28 66 6c 6f 61 74 20 |6 3) -8)| (float |
|00003970| 28 62 69 67 70 6f 73 20 | 38 32 36 20 34 34 20 31 |(bigpos |826 44 1|
|00003980| 35 37 29 20 2d 34 29 20 | 28 66 6c 6f 61 74 20 28 |57) -4) |(float (|
|00003990| 62 69 67 6e 65 67 20 34 | 33 39 20 36 31 31 20 39 |bigneg 4|39 611 9|
|000039a0| 37 32 20 32 29 20 2d 33 | 29 20 28 66 6c 6f 61 74 |72 2) -3|) (float|
|000039b0| 20 28 62 69 67 70 6f 73 | 20 35 33 31 20 39 36 38 | (bigpos| 531 968|
|000039c0| 20 34 32 33 20 32 29 20 | 2d 31 29 20 28 66 6c 6f | 423 2) |-1) (flo|
|000039d0| 61 74 20 28 62 69 67 6e | 65 67 20 32 33 35 20 35 |at (bign|eg 235 5|
|000039e0| 39 20 38 39 35 20 37 29 | 20 30 29 20 28 66 6c 6f |9 895 7)| 0) (flo|
|000039f0| 61 74 20 28 62 69 67 70 | 6f 73 20 32 33 32 20 36 |at (bigp|os 232 6|
|00003a00| 31 34 20 33 36 32 20 37 | 32 29 20 30 29 29 20 28 |14 362 7|2) 0)) (|
|00003a10| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 28 66 6c 6f |(float 1| 0) (flo|
|00003a20| 61 74 20 28 62 69 67 70 | 6f 73 20 33 39 37 20 39 |at (bigp|os 397 9|
|00003a30| 39 31 20 37 36 39 20 33 | 29 20 2d 37 29 20 28 66 |91 769 3|) -7) (f|
|00003a40| 6c 6f 61 74 20 28 62 69 | 67 70 6f 73 20 33 39 34 |loat (bi|gpos 394|
|00003a50| 20 37 34 33 20 39 34 34 | 20 39 29 20 2d 35 29 20 | 743 944| 9) -5) |
|00003a60| 28 66 6c 6f 61 74 20 28 | 62 69 67 70 6f 73 20 34 |(float (|bigpos 4|
|00003a70| 37 34 20 33 33 30 20 38 | 35 38 20 31 29 20 2d 32 |74 330 8|58 1) -2|
|00003a80| 29 20 28 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |) (float| (bigpos|
|00003a90| 20 31 37 38 20 35 33 35 | 20 33 30 30 20 32 29 20 | 178 535| 300 2) |
|00003aa0| 30 29 20 28 66 6c 6f 61 | 74 20 28 62 69 67 70 6f |0) (floa|t (bigpo|
|00003ab0| 73 20 34 34 32 20 32 32 | 38 20 37 32 35 20 31 34 |s 442 22|8 725 14|
|00003ac0| 34 29 20 30 29 29 5d 20 | 33 33 29 29 0a 0a 28 64 |4) 0))] |33))..(d|
|00003ad0| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 62 65 |efun cal|cFunc-be|
|00003ae0| 73 59 20 28 76 20 78 29 | 20 28 62 79 74 65 2d 63 |sY (v x)| (byte-c|
|00003af0| 6f 64 65 20 22 ca 20 88 | cb 08 21 86 0d 00 cc 08 |ode ". .|..!.....|
|00003b00| cd 5c 22 88 cb 09 21 86 | 18 00 cc 09 cd 5c 22 88 |.\"...!.|.....\".|
|00003b10| ce 0a 5e 1a cf 0a d0 5c | 5c 1a d1 cf 09 21 21 89 |..^....\|\....!!.|
|00003b20| 11 88 d1 cf 08 21 21 89 | 10 88 d2 08 21 3f 83 59 |.....!!.|....!?.Y|
|00003b30| 00 d3 d4 08 d5 20 5c 22 | 21 1b d6 d7 d4 d8 08 09 |..... \"|!.......|
|00003b40| 5c 22 0b 41 5c 22 d8 d9 | 08 21 09 5c 22 5c 22 0b |\".A\"..|.!.\"\".|
|00003b50| 40 5c 22 29 82 d3 00 da | db 08 21 89 10 21 83 7d |@\")....|..!..!.}|
|00003b60| 00 dc 08 21 83 74 00 d9 | dd d9 08 21 09 5c 22 21 |...!.t..|...!.\"!|
|00003b70| 82 7a 00 dd d9 08 21 09 | 5c 22 82 d3 00 08 de 3d |.z....!.|\".....=|
|00003b80| 83 89 00 df 09 21 82 d3 | 00 08 e0 3d 83 95 00 e1 |.....!..|...=....|
|00003b90| 09 21 82 d3 00 de df 09 | 21 e1 09 21 d6 e2 09 5c |.!......|!..!...\|
|00003ba0| 22 e3 1e 09 1e 08 1e 07 | 1e 06 1d 0d 54 89 15 08 |".......|....T...|
|00003bb0| 57 85 cf 00 d7 d4 d4 0d | 0e 08 5c 22 0e 07 5c 22 |W.......|..\"..\"|
|00003bc0| 0e 06 5c 22 16 09 0e 07 | 16 06 0e 09 89 16 07 88 |..\"....|........|
|00003bd0| 82 aa 00 88 0e 07 2d 29 | 21 29 87 22 20 5b 76 20 |......-)|!)." [v |
|00003be0| 78 20 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d |x calc-i|nternal-|
|00003bf0| 70 72 65 63 20 73 63 20 | 74 20 6a 20 62 79 6d 20 |prec sc |t j bym |
|00003c00| 62 79 20 74 77 6f 2d 6f | 76 65 72 2d 78 20 62 79 |by two-o|ver-x by|
|00003c10| 70 20 6d 61 74 68 2d 69 | 6e 65 78 61 63 74 2d 72 |p math-i|nexact-r|
|00003c20| 65 73 75 6c 74 20 6d 61 | 74 68 2d 6e 75 6d 62 65 |esult ma|th-numbe|
|00003c30| 72 70 20 6d 61 74 68 2d | 72 65 6a 65 63 74 2d 61 |rp math-|reject-a|
|00003c40| 72 67 20 6e 75 6d 62 65 | 72 70 20 38 20 6d 61 74 |rg numbe|rp 8 mat|
|00003c50| 68 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 33 20 6d 61 |h-normal|ize 3 ma|
|00003c60| 74 68 2d 66 6c 6f 61 74 | 20 6d 61 74 68 2d 6e 75 |th-float| math-nu|
|00003c70| 6d 2d 69 6e 74 65 67 65 | 72 70 20 6d 61 74 68 2d |m-intege|rp math-|
|00003c80| 73 69 6e 2d 63 6f 73 2d | 72 61 77 20 6d 61 74 68 |sin-cos-|raw math|
|00003c90| 2d 6d 75 6c 20 6d 61 74 | 68 2d 70 69 20 6d 61 74 |-mul mat|h-pi mat|
|00003ca0| 68 2d 64 69 76 20 6d 61 | 74 68 2d 73 75 62 20 63 |h-div ma|th-sub c|
|00003cb0| 61 6c 63 46 75 6e 63 2d | 62 65 73 4a 20 6d 61 74 |alcFunc-|besJ mat|
|00003cc0| 68 2d 6e 65 67 20 6d 61 | 74 68 2d 6e 65 67 70 20 |h-neg ma|th-negp |
|00003cd0| 6d 61 74 68 2d 74 72 75 | 6e 63 20 6d 61 74 68 2d |math-tru|nc math-|
|00003ce0| 6f 64 64 70 20 63 61 6c | 63 46 75 6e 63 2d 62 65 |oddp cal|cFunc-be|
|00003cf0| 73 59 20 30 20 6d 61 74 | 68 2d 62 65 73 59 30 20 |sY 0 mat|h-besY0 |
|00003d00| 31 20 6d 61 74 68 2d 62 | 65 73 59 31 20 32 20 6e |1 math-b|esY1 2 n|
|00003d10| 69 6c 5d 20 33 39 29 29 | 0a 0a 28 64 65 66 75 6e |il] 39))|..(defun|
|00003d20| 20 6d 61 74 68 2d 62 65 | 73 59 30 20 28 78 29 20 | math-be|sY0 (x) |
|00003d30| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 c4 08 21 |(byte-co|de "...!|
|00003d40| c5 5c 22 c6 55 83 2a 00 | c7 08 21 19 c8 c9 ca 09 |.\".U.*.|..!.....|
|00003d50| cb 5c 22 ca 09 cc 5c 22 | 5c 22 cd ce cd cf 08 21 |.\"...\"|\".....!|
|00003d60| d0 08 21 5c 22 5c 22 5c | 22 29 82 49 00 d1 d2 08 |..!\"\"\|").I....|
|00003d70| 21 21 83 45 00 c8 cf d3 | 08 21 c2 5c 22 cd d4 cf |!!.E....|.!.\"...|
|00003d80| d3 08 21 21 5c 22 5c 22 | 82 49 00 cf 08 c2 5c 22 |..!!\"\"|.I....\"|
|00003d90| 87 22 20 5b 78 20 79 20 | 74 20 6d 61 74 68 2d 63 |." [x y |t math-c|
|00003da0| 6f 6d 70 61 72 65 20 6d | 61 74 68 2d 61 62 73 2d |ompare m|ath-abs-|
|00003db0| 61 70 70 72 6f 78 20 28 | 66 6c 6f 61 74 20 38 20 |approx (|float 8 |
|00003dc0| 30 29 20 2d 31 20 6d 61 | 74 68 2d 73 71 72 20 6d |0) -1 ma|th-sqr m|
|00003dd0| 61 74 68 2d 61 64 64 20 | 6d 61 74 68 2d 64 69 76 |ath-add |math-div|
|00003de0| 20 6d 61 74 68 2d 70 6f | 6c 79 2d 65 76 61 6c 20 | math-po|ly-eval |
|00003df0| 28 28 66 6c 6f 61 74 20 | 28 62 69 67 70 6f 73 20 |((float |(bigpos |
|00003e00| 37 33 33 20 36 32 32 20 | 32 38 34 20 32 29 20 2d |733 622 |284 2) -|
|00003e10| 37 29 20 28 66 6c 6f 61 | 74 20 28 62 69 67 6e 65 |7) (floa|t (bigne|
|00003e20| 67 20 37 35 37 20 37 39 | 32 20 36 33 32 20 38 29 |g 757 79|2 632 8)|
|00003e30| 20 2d 35 29 20 28 66 6c | 6f 61 74 20 28 62 69 67 | -5) (fl|oat (big|
|00003e40| 70 6f 73 20 31 32 39 20 | 39 38 38 20 38 37 20 31 |pos 129 |988 87 1|
|00003e50| 29 20 2d 32 29 20 28 66 | 6c 6f 61 74 20 28 62 69 |) -2) (f|loat (bi|
|00003e60| 67 6e 65 67 20 33 36 20 | 35 39 38 20 31 32 33 20 |gneg 36 |598 123 |
|00003e70| 35 29 20 2d 31 29 20 28 | 66 6c 6f 61 74 20 28 62 |5) -1) (|float (b|
|00003e80| 69 67 70 6f 73 20 36 35 | 20 38 33 34 20 36 32 20 |igpos 65| 834 62 |
|00003e90| 37 29 20 30 29 20 28 66 | 6c 6f 61 74 20 28 62 69 |7) 0) (f|loat (bi|
|00003ea0| 67 6e 65 67 20 33 38 39 | 20 38 32 31 20 39 35 37 |gneg 389| 821 957|
|00003eb0| 20 32 29 20 30 29 29 20 | 28 28 66 6c 6f 61 74 20 | 2) 0)) |((float |
|00003ec0| 31 20 30 29 20 28 66 6c | 6f 61 74 20 28 62 69 67 |1 0) (fl|oat (big|
|00003ed0| 70 6f 73 20 32 34 34 20 | 33 30 20 32 36 31 20 32 |pos 244 |30 261 2|
|00003ee0| 29 20 2d 37 29 20 28 66 | 6c 6f 61 74 20 28 62 69 |) -7) (f|loat (bi|
|00003ef0| 67 70 6f 73 20 36 34 37 | 20 34 37 32 20 34 37 34 |gpos 647| 472 474|
|00003f00| 29 20 2d 34 29 20 28 66 | 6c 6f 61 74 20 28 62 69 |) -4) (f|loat (bi|
|00003f10| 67 70 6f 73 20 34 33 38 | 20 34 36 36 20 31 38 39 |gpos 438| 466 189|
|00003f20| 20 37 29 20 2d 33 29 20 | 28 66 6c 6f 61 74 20 28 | 7) -3) |(float (|
|00003f30| 62 69 67 70 6f 73 20 36 | 34 38 20 34 39 39 20 34 |bigpos 6|48 499 4|
|00003f40| 35 32 20 37 29 20 2d 31 | 29 20 28 66 6c 6f 61 74 |52 7) -1|) (float|
|00003f50| 20 28 62 69 67 70 6f 73 | 20 32 36 39 20 35 34 34 | (bigpos| 269 544|
|00003f60| 20 37 36 20 34 30 29 20 | 30 29 29 20 6d 61 74 68 | 76 40) |0)) math|
|00003f70| 2d 6d 75 6c 20 28 66 6c | 6f 61 74 20 28 62 69 67 |-mul (fl|oat (big|
|00003f80| 70 6f 73 20 37 37 32 20 | 36 31 39 20 36 33 36 29 |pos 772 |619 636)|
|00003f90| 20 2d 39 29 20 6d 61 74 | 68 2d 62 65 73 4a 30 20 | -9) mat|h-besJ0 |
|00003fa0| 6d 61 74 68 2d 6c 6e 2d | 72 61 77 20 6d 61 74 68 |math-ln-|raw math|
|00003fb0| 2d 6e 65 67 70 20 63 61 | 6c 63 46 75 6e 63 2d 72 |-negp ca|lcFunc-r|
|00003fc0| 65 20 6d 61 74 68 2d 6e | 65 67 20 28 63 70 6c 78 |e math-n|eg (cplx|
|00003fd0| 20 30 20 32 29 5d 20 32 | 32 29 29 0a 0a 28 64 65 | 0 2)] 2|2))..(de|
|00003fe0| 66 75 6e 20 6d 61 74 68 | 2d 62 65 73 59 31 20 28 |fun math|-besY1 (|
|00003ff0| 78 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |x) (byte|-code ".|
|00004000| c4 08 21 c5 5c 22 c6 55 | 83 33 00 c7 08 21 19 c8 |..!.\".U|.3...!..|
|00004010| c9 08 ca cb 09 cc 5c 22 | cb 09 cd 5c 22 5c 22 5c |......\"|...\"\"\|
|00004020| 22 c9 ce cf c9 d0 08 21 | d1 08 21 5c 22 ca d2 08 |"......!|..!\"...|
|00004030| 5c 22 5c 22 5c 22 5c 22 | 29 82 54 00 d3 d4 08 21 |\"\"\"\"|).T....!|
|00004040| 21 83 50 00 d5 c8 d0 d5 | 08 21 c2 5c 22 c9 d6 d0 |!.P.....|.!.\"...|
|00004050| d5 08 21 21 5c 22 5c 22 | 21 82 54 00 d0 08 c2 5c |..!!\"\"|!.T....\|
|00004060| 22 87 22 20 5b 78 20 79 | 20 74 20 6d 61 74 68 2d |"." [x y| t math-|
|00004070| 63 6f 6d 70 61 72 65 20 | 6d 61 74 68 2d 61 62 73 |compare |math-abs|
|00004080| 2d 61 70 70 72 6f 78 20 | 28 66 6c 6f 61 74 20 38 |-approx |(float 8|
|00004090| 20 30 29 20 2d 31 20 6d | 61 74 68 2d 73 71 72 20 | 0) -1 m|ath-sqr |
|000040a0| 6d 61 74 68 2d 61 64 64 | 20 6d 61 74 68 2d 6d 75 |math-add| math-mu|
|000040b0| 6c 20 6d 61 74 68 2d 64 | 69 76 20 6d 61 74 68 2d |l math-d|iv math-|
|000040c0| 70 6f 6c 79 2d 65 76 61 | 6c 20 28 28 66 6c 6f 61 |poly-eva|l ((floa|
|000040d0| 74 20 28 62 69 67 70 6f | 73 20 39 33 35 20 39 33 |t (bigpo|s 935 93|
|000040e0| 37 20 35 31 31 20 38 29 | 20 2d 36 29 20 28 66 6c |7 511 8)| -6) (fl|
|000040f0| 6f 61 74 20 28 62 69 67 | 6e 65 67 20 37 32 36 20 |oat (big|neg 726 |
|00004100| 39 32 32 20 32 33 37 20 | 34 29 20 2d 33 29 20 28 |922 237 |4) -3) (|
|00004110| 66 6c 6f 61 74 20 28 62 | 69 67 70 6f 73 20 35 35 |float (b|igpos 55|
|00004120| 31 20 32 36 34 20 33 34 | 39 20 37 29 20 2d 31 29 |1 264 34|9 7) -1)|
|00004130| 20 28 66 6c 6f 61 74 20 | 28 62 69 67 6e 65 67 20 | (float |(bigneg |
|00004140| 31 33 39 20 34 33 38 20 | 31 35 33 20 35 29 20 31 |139 438 |153 5) 1|
|00004150| 29 20 28 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |) (float| (bigpos|
|00004160| 20 34 33 39 20 35 32 37 | 20 31 32 37 29 20 34 29 | 439 527| 127) 4)|
|00004170| 20 28 66 6c 6f 61 74 20 | 28 62 69 67 6e 65 67 20 | (float |(bigneg |
|00004180| 39 34 33 20 36 30 34 20 | 39 30 30 20 34 29 20 33 |943 604 |900 4) 3|
|00004190| 29 29 20 28 28 66 6c 6f | 61 74 20 31 20 30 29 20 |)) ((flo|at 1 0) |
|000041a0| 28 66 6c 6f 61 74 20 28 | 62 69 67 70 6f 73 20 38 |(float (|bigpos 8|
|000041b0| 38 35 20 36 33 32 20 35 | 34 39 20 33 29 20 2d 37 |85 632 5|49 3) -7|
|000041c0| 29 20 28 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |) (float| (bigpos|
|000041d0| 20 36 30 35 20 34 32 20 | 31 30 32 29 20 2d 33 29 | 605 42 |102) -3)|
|000041e0| 20 28 66 6c 6f 61 74 20 | 28 62 69 67 70 6f 73 20 | (float |(bigpos |
|000041f0| 32 20 39 30 34 20 32 34 | 35 20 32 29 20 2d 32 29 |2 904 24|5 2) -2)|
|00004200| 20 28 66 6c 6f 61 74 20 | 28 62 69 67 70 6f 73 20 | (float |(bigpos |
|00004210| 33 36 37 20 36 35 30 20 | 37 33 33 20 33 29 20 30 |367 650 |733 3) 0|
|00004220| 29 20 28 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |) (float| (bigpos|
|00004230| 20 36 36 34 20 34 31 39 | 20 32 34 34 20 34 29 20 | 664 419| 244 4) |
|00004240| 32 29 20 28 66 6c 6f 61 | 74 20 28 62 69 67 70 6f |2) (floa|t (bigpo|
|00004250| 73 20 35 37 20 39 35 38 | 20 32 34 39 29 20 35 29 |s 57 958| 249) 5)|
|00004260| 29 20 28 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |) (float| (bigpos|
|00004270| 20 37 37 32 20 36 31 39 | 20 36 33 36 29 20 2d 39 | 772 619| 636) -9|
|00004280| 29 20 6d 61 74 68 2d 73 | 75 62 20 6d 61 74 68 2d |) math-s|ub math-|
|00004290| 62 65 73 4a 31 20 6d 61 | 74 68 2d 6c 6e 2d 72 61 |besJ1 ma|th-ln-ra|
|000042a0| 77 20 31 20 6d 61 74 68 | 2d 6e 65 67 70 20 63 61 |w 1 math|-negp ca|
|000042b0| 6c 63 46 75 6e 63 2d 72 | 65 20 6d 61 74 68 2d 6e |lcFunc-r|e math-n|
|000042c0| 65 67 20 28 63 70 6c 78 | 20 30 20 32 29 5d 20 32 |eg (cplx| 0 2)] 2|
|000042d0| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |6))..(de|fun math|
|000042e0| 2d 70 6f 6c 79 2d 65 76 | 61 6c 20 28 78 20 63 6f |-poly-ev|al (x co|
|000042f0| 65 66 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |efs) (by|te-code |
|00004300| 22 09 40 18 09 41 89 11 | 85 18 00 c3 09 40 c4 08 |".@..A..|.....@..|
|00004310| 0a 5c 22 5c 22 89 10 88 | 82 03 00 88 08 29 87 22 |.\"\"...|.....)."|
|00004320| 20 5b 61 63 63 75 6d 20 | 63 6f 65 66 73 20 78 20 | [accum |coefs x |
|00004330| 6d 61 74 68 2d 61 64 64 | 20 6d 61 74 68 2d 6d 75 |math-add| math-mu|
|00004340| 6c 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |l] 6))..|(defun c|
|00004350| 61 6c 63 46 75 6e 63 2d | 62 65 72 6e 20 28 6e 20 |alcFunc-|bern (n |
|00004360| 26 6f 70 74 69 6f 6e 61 | 6c 20 78 29 20 28 62 79 |&optiona|l x) (by|
|00004370| 74 65 2d 63 6f 64 65 20 | 22 08 85 08 00 c3 08 21 |te-code |"......!|
|00004380| 3f 83 23 00 09 85 12 00 | c4 08 21 83 1a 00 c5 20 |?.#.....|..!.... |
|00004390| 82 20 00 c6 c7 0a 21 08 | 5c 22 82 43 00 c8 0a 21 |. ....!.|\".C...!|
|000043a0| 86 2d 00 c9 0a ca 5c 22 | 88 0a 3a 83 40 00 c5 20 |.-....\"|..:.@.. |
|000043b0| 88 cb cc cd 0a 21 21 21 | 82 43 00 cc 0a 21 87 22 |.....!!!|.C...!."|
|000043c0| 20 5b 78 20 63 61 6c 63 | 2d 73 79 6d 62 6f 6c 69 | [x calc|-symboli|
|000043d0| 63 2d 6d 6f 64 65 20 6e | 20 6d 61 74 68 2d 7a 65 |c-mode n| math-ze|
|000043e0| 72 6f 70 20 6d 61 74 68 | 2d 66 6c 6f 61 74 70 20 |rop math|-floatp |
|000043f0| 6d 61 74 68 2d 69 6e 65 | 78 61 63 74 2d 72 65 73 |math-ine|xact-res|
|00004400| 75 6c 74 20 6d 61 74 68 | 2d 62 75 69 6c 64 2d 70 |ult math|-build-p|
|00004410| 6f 6c 79 6e 6f 6d 69 61 | 6c 2d 65 78 70 72 20 6d |olynomia|l-expr m|
|00004420| 61 74 68 2d 62 65 72 6e | 6f 75 6c 6c 69 2d 63 6f |ath-bern|oulli-co|
|00004430| 65 66 73 20 6d 61 74 68 | 2d 6e 75 6d 2d 6e 61 74 |efs math|-num-nat|
|00004440| 6e 75 6d 70 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |nump mat|h-reject|
|00004450| 2d 61 72 67 20 6e 61 74 | 6e 75 6d 70 20 6d 61 74 |-arg nat|nump mat|
|00004460| 68 2d 66 6c 6f 61 74 20 | 6d 61 74 68 2d 62 65 72 |h-float |math-ber|
|00004470| 6e 6f 75 6c 6c 69 2d 6e | 75 6d 62 65 72 20 6d 61 |noulli-n|umber ma|
|00004480| 74 68 2d 74 72 75 6e 63 | 5d 20 31 33 29 29 0a 0a |th-trunc|] 13))..|
|00004490| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|000044a0| 65 75 6c 65 72 20 28 6e | 20 26 6f 70 74 69 6f 6e |euler (n| &option|
|000044b0| 61 6c 20 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |al x) (b|yte-code|
|000044c0| 20 22 c9 08 21 86 0a 00 | ca 08 cb 5c 22 88 09 83 | "..!...|...\"...|
|000044d0| 6a 00 cc 08 cd 5c 22 1a | ce 0a 21 1b cf d0 d1 0a |j....\".|..!.....|
|000044e0| 5c 22 0a 5c 22 1c d2 1d | cf cc 09 cd 5c 22 d1 5c |\".\"...|....\".\|
|000044f0| 22 1e 06 cf 09 d1 5c 22 | 1e 07 d3 09 21 83 59 00 |".....\"|....!.Y.|
|00004500| 0e 08 85 3f 00 d4 09 21 | 83 47 00 d5 20 82 56 00 |...?...!|.G.. .V.|
|00004510| d6 0c d7 d8 0b 0e 06 5c | 22 d8 0b 0e 07 5c 22 5c |.......\|"....\"\|
|00004520| 22 5c 22 82 65 00 d9 da | cc db dc dd 0b 5c 22 42 |"\".e...|.....\"B|
|00004530| 5c 22 09 5c 22 2e 06 82 | 83 00 d6 d0 d1 08 5c 22 |\".\"...|......\"|
|00004540| 08 3a 83 7e 00 d5 20 88 | de 08 df 5c 22 82 82 00 |.:.~.. .|...\"...|
|00004550| de 08 e0 5c 22 5c 22 87 | 22 20 5b 6e 20 78 20 6e |...\"\".|" [n x n|
|00004560| 31 20 63 6f 65 66 73 20 | 66 61 63 20 6b 20 78 31 |1 coefs |fac k x1|
|00004570| 20 78 32 20 63 61 6c 63 | 2d 73 79 6d 62 6f 6c 69 | x2 calc|-symboli|
|00004580| 63 2d 6d 6f 64 65 20 6d | 61 74 68 2d 6e 75 6d 2d |c-mode m|ath-num-|
|00004590| 6e 61 74 6e 75 6d 70 20 | 6d 61 74 68 2d 72 65 6a |natnump |math-rej|
|000045a0| 65 63 74 2d 61 72 67 20 | 6e 61 74 6e 75 6d 70 20 |ect-arg |natnump |
|000045b0| 6d 61 74 68 2d 61 64 64 | 20 31 20 6d 61 74 68 2d |math-add| 1 math-|
|000045c0| 62 65 72 6e 6f 75 6c 6c | 69 2d 63 6f 65 66 73 20 |bernoull|i-coefs |
|000045d0| 6d 61 74 68 2d 64 69 76 | 20 6d 61 74 68 2d 70 6f |math-div| math-po|
|000045e0| 77 20 32 20 2d 31 20 6d | 61 74 68 2d 6e 75 6d 62 |w 2 -1 m|ath-numb|
|000045f0| 65 72 70 20 6d 61 74 68 | 2d 66 6c 6f 61 74 70 20 |erp math|-floatp |
|00004600| 6d 61 74 68 2d 69 6e 65 | 78 61 63 74 2d 72 65 73 |math-ine|xact-res|
|00004610| 75 6c 74 20 6d 61 74 68 | 2d 6d 75 6c 20 6d 61 74 |ult math|-mul mat|
|00004620| 68 2d 73 75 62 20 6d 61 | 74 68 2d 62 75 69 6c 64 |h-sub ma|th-build|
|00004630| 2d 70 6f 6c 79 6e 6f 6d | 69 61 6c 2d 65 78 70 72 |-polynom|ial-expr|
|00004640| 20 63 61 6c 63 46 75 6e | 63 2d 63 6f 6c 6c 65 63 | calcFun|c-collec|
|00004650| 74 20 6d 61 74 68 2d 72 | 65 64 75 63 65 2d 76 65 |t math-r|educe-ve|
|00004660| 63 20 76 65 63 20 6d 61 | 70 63 61 72 20 28 6c 61 |c vec ma|pcar (la|
|00004670| 6d 62 64 61 20 28 63 29 | 20 28 62 79 74 65 2d 63 |mbda (c)| (byte-c|
|00004680| 6f 64 65 20 22 08 54 89 | 10 88 c5 c5 09 0a 5c 22 |ode ".T.|......\"|
|00004690| c6 c7 0b 08 5c 22 c7 0c | 08 5c 22 5c 22 5c 22 87 |....\"..|.\"\"\".|
|000046a0| 22 20 5b 6b 20 66 61 63 | 20 63 20 78 31 20 78 32 |" [k fac| c x1 x2|
|000046b0| 20 6d 61 74 68 2d 6d 75 | 6c 20 6d 61 74 68 2d 73 | math-mu|l math-s|
|000046c0| 75 62 20 6d 61 74 68 2d | 70 6f 77 5d 20 39 29 29 |ub math-|pow] 9))|
|000046d0| 20 63 61 6c 63 46 75 6e | 63 2d 65 75 6c 65 72 20 | calcFun|c-euler |
|000046e0| 28 66 6c 6f 61 74 20 35 | 20 2d 31 29 20 28 66 72 |(float 5| -1) (fr|
|000046f0| 61 63 20 31 20 32 29 5d | 20 32 37 29 29 0a 0a 28 |ac 1 2)]| 27))..(|
|00004700| 64 65 66 75 6e 20 6d 61 | 74 68 2d 62 65 72 6e 6f |defun ma|th-berno|
|00004710| 75 6c 6c 69 2d 63 6f 65 | 66 73 20 28 6e 29 20 28 |ulli-coe|fs (n) (|
|00004720| 62 79 74 65 2d 63 6f 64 | 65 20 22 c7 09 21 43 18 |byte-cod|e "..!C.|
|00004730| c8 09 21 1a 0a 1b 0a 1c | c9 1d ca 09 21 86 17 00 |..!.....|....!...|
|00004740| 0e 06 1e 06 0b 53 89 13 | cb 59 85 49 00 cc 0c 0a |.....S..|.Y.I....|
|00004750| 0b 5a 5c 22 14 cd 0c ce | 0b 21 5c 22 15 09 3a 83 |.Z\"....|.!\"..:.|
|00004760| 3b 00 cf 0d 21 82 3c 00 | 0d 08 42 10 cd 0c 0b 5c |;...!.<.|..B....\|
|00004770| 22 89 14 88 82 19 00 88 | d0 08 21 2e 06 87 22 20 |".......|..!..." |
|00004780| 5b 63 6f 65 66 73 20 6e | 20 6e 6e 20 6b 20 74 65 |[coefs n| nn k te|
|00004790| 72 6d 20 63 6f 65 66 20 | 63 61 6c 63 2d 70 72 65 |rm coef |calc-pre|
|000047a0| 66 65 72 2d 66 72 61 63 | 20 63 61 6c 63 46 75 6e |fer-frac| calcFun|
|000047b0| 63 2d 62 65 72 6e 20 6d | 61 74 68 2d 74 72 75 6e |c-bern m|ath-trun|
|000047c0| 63 20 6e 69 6c 20 69 6e | 74 65 67 65 72 70 20 30 |c nil in|tegerp 0|
|000047d0| 20 6d 61 74 68 2d 64 69 | 76 20 6d 61 74 68 2d 6d | math-di|v math-m|
|000047e0| 75 6c 20 6d 61 74 68 2d | 62 65 72 6e 6f 75 6c 6c |ul math-|bernoull|
|000047f0| 69 2d 6e 75 6d 62 65 72 | 20 6d 61 74 68 2d 66 6c |i-number| math-fl|
|00004800| 6f 61 74 20 6e 72 65 76 | 65 72 73 65 5d 20 31 31 |oat nrev|erse] 11|
|00004810| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00004820| 62 65 72 6e 6f 75 6c 6c | 69 2d 6e 75 6d 62 65 72 |bernoull|i-number|
|00004830| 20 28 6e 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (n) (by|te-code |
|00004840| 22 cc 08 cd 5c 22 ce 55 | 83 17 00 08 ce 55 83 13 |"...\".U|.....U..|
|00004850| 00 cf 82 14 00 d0 82 9b | 00 d1 08 cd 5c 22 89 10 |........|....\"..|
|00004860| 88 08 09 59 85 92 00 d0 | 1a ce 1b ce 1c d2 1d 0e |...Y....|........|
|00004870| 07 1e 06 c9 1e 08 0e 0a | d3 3d 85 41 00 d4 d5 d6 |........|.=.A....|
|00004880| cd 09 5c 22 5c 22 88 0e | 06 85 6a 00 0b cd 5c 5c |..\"\"..|..j...\\|
|00004890| 13 0c 15 d7 0c d6 0b 0b | 53 5c 22 5c 22 14 d8 0a |........|S\"\"...|
|000048a0| d9 0e 06 40 0c 5c 22 5c | 22 12 0e 06 41 89 16 06 |...@.\"\|"...A...|
|000048b0| 88 82 42 00 88 d7 0d 0b | 53 5c 22 15 da d9 db 0d |..B.....|S\".....|
|000048c0| 5c 22 0a 5c 22 12 0a 0e | 07 42 16 07 d7 0a 0d 5c |\".\"...|.B.....\|
|000048d0| 22 0e 0b 42 16 0b 09 54 | 89 11 2e 06 88 82 1e 00 |"..B...T|........|
|000048e0| 88 dc 09 08 ce 23 0e 0b | 38 87 22 20 5b 6e 20 6d |.....#..|8." [n m|
|000048f0| 61 74 68 2d 62 65 72 6e | 6f 75 6c 6c 69 2d 63 61 |ath-bern|oulli-ca|
|00004900| 63 68 65 2d 73 69 7a 65 | 20 73 75 6d 20 6e 6b 20 |che-size| sum nk |
|00004910| 66 61 63 74 20 6f 66 61 | 63 74 20 70 20 6d 61 74 |fact ofa|ct p mat|
|00004920| 68 2d 62 65 72 6e 6f 75 | 6c 6c 69 2d 62 2d 63 61 |h-bernou|lli-b-ca|
|00004930| 63 68 65 20 63 61 6c 63 | 2d 70 72 65 66 65 72 2d |che calc|-prefer-|
|00004940| 66 72 61 63 20 74 20 63 | 61 6c 63 2d 64 69 73 70 |frac t c|alc-disp|
|00004950| 6c 61 79 2d 77 6f 72 6b | 69 6e 67 2d 6d 65 73 73 |lay-work|ing-mess|
|00004960| 61 67 65 20 6d 61 74 68 | 2d 62 65 72 6e 6f 75 6c |age math|-bernoul|
|00004970| 6c 69 2d 42 2d 63 61 63 | 68 65 20 25 20 32 20 31 |li-B-cac|he % 2 1|
|00004980| 20 28 66 72 61 63 20 2d | 31 20 32 29 20 30 20 2f | (frac -|1 2) 0 /|
|00004990| 20 6e 69 6c 20 6c 6f 74 | 73 20 6d 61 74 68 2d 64 | nil lot|s math-d|
|000049a0| 6f 2d 77 6f 72 6b 69 6e | 67 20 22 62 65 72 6e 6f |o-workin|g "berno|
|000049b0| 75 6c 6c 69 20 42 22 20 | 2a 20 6d 61 74 68 2d 6d |ulli B" |* math-m|
|000049c0| 75 6c 20 6d 61 74 68 2d | 61 64 64 20 6d 61 74 68 |ul math-|add math|
|000049d0| 2d 64 69 76 20 6d 61 74 | 68 2d 73 75 62 20 28 66 |-div mat|h-sub (f|
|000049e0| 72 61 63 20 31 20 32 29 | 20 2d 5d 20 31 36 29 29 |rac 1 2)| -] 16))|
|000049f0| 0a 0a 28 73 65 74 71 20 | 6d 61 74 68 2d 62 65 72 |..(setq |math-ber|
|00004a00| 6e 6f 75 6c 6c 69 2d 62 | 2d 63 61 63 68 65 20 28 |noulli-b|-cache (|
|00004a10| 71 75 6f 74 65 20 28 28 | 66 72 61 63 20 2d 31 37 |quote ((|frac -17|
|00004a20| 34 36 31 31 20 28 62 69 | 67 70 6f 73 20 30 20 32 |4611 (bi|gpos 0 2|
|00004a30| 30 30 20 32 39 31 20 36 | 39 38 20 36 36 32 20 38 |00 291 6|98 662 8|
|00004a40| 35 37 20 38 30 32 29 29 | 20 28 66 72 61 63 20 34 |57 802))| (frac 4|
|00004a50| 33 38 36 37 20 28 62 69 | 67 70 6f 73 20 30 20 39 |3867 (bi|gpos 0 9|
|00004a60| 34 34 20 31 37 30 20 32 | 31 37 20 39 34 20 31 30 |44 170 2|17 94 10|
|00004a70| 39 20 35 29 29 20 28 66 | 72 61 63 20 2d 33 36 31 |9 5)) (f|rac -361|
|00004a80| 37 20 28 62 69 67 70 6f | 73 20 30 20 38 38 30 20 |7 (bigpo|s 0 880 |
|00004a90| 38 34 32 20 36 32 32 20 | 36 37 30 20 31 30 29 29 |842 622 |670 10))|
|00004aa0| 20 28 66 72 61 63 20 31 | 20 28 62 69 67 70 6f 73 | (frac 1| (bigpos|
|00004ab0| 20 36 30 30 20 32 34 39 | 20 37 32 34 20 37 34 29 | 600 249| 724 74)|
|00004ac0| 29 20 28 66 72 61 63 20 | 2d 36 39 31 20 28 62 69 |) (frac |-691 (bi|
|00004ad0| 67 70 6f 73 20 30 20 33 | 36 38 20 36 37 34 20 33 |gpos 0 3|68 674 3|
|00004ae0| 30 37 20 31 29 29 20 28 | 66 72 61 63 20 31 20 28 |07 1)) (|frac 1 (|
|00004af0| 62 69 67 70 6f 73 20 31 | 36 30 20 39 30 30 20 34 |bigpos 1|60 900 4|
|00004b00| 37 29 29 20 28 66 72 61 | 63 20 2d 31 20 28 62 69 |7)) (fra|c -1 (bi|
|00004b10| 67 70 6f 73 20 36 30 30 | 20 32 30 39 20 31 29 29 |gpos 600| 209 1))|
|00004b20| 20 28 66 72 61 63 20 31 | 20 33 30 32 34 30 29 20 | (frac 1| 30240) |
|00004b30| 28 66 72 61 63 20 2d 31 | 20 37 32 30 29 20 28 66 |(frac -1| 720) (f|
|00004b40| 72 61 63 20 31 20 31 32 | 29 20 31 29 29 29 0a 0a |rac 1 12|) 1)))..|
|00004b50| 28 73 65 74 71 20 6d 61 | 74 68 2d 62 65 72 6e 6f |(setq ma|th-berno|
|00004b60| 75 6c 6c 69 2d 42 2d 63 | 61 63 68 65 20 28 71 75 |ulli-B-c|ache (qu|
|00004b70| 6f 74 65 20 28 28 66 72 | 61 63 20 2d 31 37 34 36 |ote ((fr|ac -1746|
|00004b80| 31 31 20 33 33 30 29 20 | 28 66 72 61 63 20 34 33 |11 330) |(frac 43|
|00004b90| 38 36 37 20 37 39 38 29 | 20 28 66 72 61 63 20 2d |867 798)| (frac -|
|00004ba0| 33 36 31 37 20 35 31 30 | 29 20 28 66 72 61 63 20 |3617 510|) (frac |
|00004bb0| 37 20 36 29 20 28 66 72 | 61 63 20 2d 36 39 31 20 |7 6) (fr|ac -691 |
|00004bc0| 32 37 33 30 29 20 28 66 | 72 61 63 20 35 20 36 36 |2730) (f|rac 5 66|
|00004bd0| 29 20 28 66 72 61 63 20 | 2d 31 20 33 30 29 20 28 |) (frac |-1 30) (|
|00004be0| 66 72 61 63 20 31 20 34 | 32 29 20 28 66 72 61 63 |frac 1 4|2) (frac|
|00004bf0| 20 2d 31 20 33 30 29 20 | 28 66 72 61 63 20 31 20 | -1 30) |(frac 1 |
|00004c00| 36 29 20 31 29 29 29 0a | 0a 28 73 65 74 71 20 6d |6) 1))).|.(setq m|
|00004c10| 61 74 68 2d 62 65 72 6e | 6f 75 6c 6c 69 2d 63 61 |ath-bern|oulli-ca|
|00004c20| 63 68 65 2d 73 69 7a 65 | 20 31 31 29 0a 0a 28 64 |che-size| 11)..(d|
|00004c30| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 75 74 |efun cal|cFunc-ut|
|00004c40| 70 62 20 28 78 20 6e 20 | 70 29 20 28 62 79 74 65 |pb (x n |p) (byte|
|00004c50| 2d 63 6f 64 65 20 22 08 | 83 14 00 c4 c5 09 0a c6 |-code ".|........|
|00004c60| c7 0b 0a 45 c8 45 46 21 | 82 1f 00 c5 09 0a c9 ca |...E.EF!|........|
|00004c70| 0b 0a 5c 22 c8 5c 22 23 | 87 22 20 5b 6d 61 74 68 |..\".\"#|." [math|
|00004c80| 2d 65 78 70 61 6e 64 2d | 66 6f 72 6d 75 6c 61 73 |-expand-|formulas|
|00004c90| 20 70 20 78 20 6e 20 6d | 61 74 68 2d 6e 6f 72 6d | p x n m|ath-norm|
|00004ca0| 61 6c 69 7a 65 20 63 61 | 6c 63 46 75 6e 63 2d 62 |alize ca|lcFunc-b|
|00004cb0| 65 74 61 49 20 2b 20 2d | 20 31 20 6d 61 74 68 2d |etaI + -| 1 math-|
|00004cc0| 61 64 64 20 6d 61 74 68 | 2d 73 75 62 5d 20 38 29 |add math|-sub] 8)|
|00004cd0| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |)..(put |(quote c|
|00004ce0| 61 6c 63 46 75 6e 63 2d | 75 74 70 62 29 20 28 71 |alcFunc-|utpb) (q|
|00004cf0| 75 6f 74 65 20 6d 61 74 | 68 2d 65 78 70 61 6e 64 |uote mat|h-expand|
|00004d00| 61 62 6c 65 29 20 74 29 | 0a 0a 28 64 65 66 75 6e |able) t)|..(defun|
|00004d10| 20 63 61 6c 63 46 75 6e | 63 2d 6c 74 70 62 20 28 | calcFun|c-ltpb (|
|00004d20| 78 20 6e 20 70 29 20 28 | 62 79 74 65 2d 63 6f 64 |x n p) (|byte-cod|
|00004d30| 65 20 22 c3 c4 c5 08 09 | 0a 23 5c 22 87 22 20 5b |e ".....|.#\"." [|
|00004d40| 78 20 6e 20 70 20 6d 61 | 74 68 2d 73 75 62 20 31 |x n p ma|th-sub 1|
|00004d50| 20 63 61 6c 63 46 75 6e | 63 2d 75 74 70 62 5d 20 | calcFun|c-utpb] |
|00004d60| 36 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |6))..(pu|t (quote|
|00004d70| 20 63 61 6c 63 46 75 6e | 63 2d 6c 74 70 62 29 20 | calcFun|c-ltpb) |
|00004d80| 28 71 75 6f 74 65 20 6d | 61 74 68 2d 65 78 70 61 |(quote m|ath-expa|
|00004d90| 6e 64 61 62 6c 65 29 20 | 74 29 0a 0a 28 64 65 66 |ndable) |t)..(def|
|00004da0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 75 74 70 63 |un calcF|unc-utpc|
|00004db0| 20 28 63 68 69 73 71 20 | 76 29 20 28 62 79 74 65 | (chisq |v) (byte|
|00004dc0| 2d 63 6f 64 65 20 22 08 | 83 13 00 c3 c4 c5 09 c6 |-code ".|........|
|00004dd0| 45 c5 0a c6 45 45 21 82 | 1d 00 c4 c7 09 c6 5c 22 |E...EE!.|......\"|
|00004de0| c7 0a c6 5c 22 5c 22 87 | 22 20 5b 6d 61 74 68 2d |...\"\".|" [math-|
|00004df0| 65 78 70 61 6e 64 2d 66 | 6f 72 6d 75 6c 61 73 20 |expand-f|ormulas |
|00004e00| 76 20 63 68 69 73 71 20 | 6d 61 74 68 2d 6e 6f 72 |v chisq |math-nor|
|00004e10| 6d 61 6c 69 7a 65 20 63 | 61 6c 63 46 75 6e 63 2d |malize c|alcFunc-|
|00004e20| 67 61 6d 6d 61 51 20 2f | 20 32 20 6d 61 74 68 2d |gammaQ /| 2 math-|
|00004e30| 64 69 76 5d 20 37 29 29 | 0a 0a 28 70 75 74 20 28 |div] 7))|..(put (|
|00004e40| 71 75 6f 74 65 20 63 61 | 6c 63 46 75 6e 63 2d 75 |quote ca|lcFunc-u|
|00004e50| 74 70 63 29 20 28 71 75 | 6f 74 65 20 6d 61 74 68 |tpc) (qu|ote math|
|00004e60| 2d 65 78 70 61 6e 64 61 | 62 6c 65 29 20 74 29 0a |-expanda|ble) t).|
|00004e70| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00004e80| 2d 6c 74 70 63 20 28 63 | 68 69 73 71 20 76 29 20 |-ltpc (c|hisq v) |
|00004e90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 83 13 00 |(byte-co|de "....|
|00004ea0| c3 c4 c5 09 c6 45 c5 0a | c6 45 45 21 82 1d 00 c4 |.....E..|.EE!....|
|00004eb0| c7 09 c6 5c 22 c7 0a c6 | 5c 22 5c 22 87 22 20 5b |...\"...|\"\"." [|
|00004ec0| 6d 61 74 68 2d 65 78 70 | 61 6e 64 2d 66 6f 72 6d |math-exp|and-form|
|00004ed0| 75 6c 61 73 20 76 20 63 | 68 69 73 71 20 6d 61 74 |ulas v c|hisq mat|
|00004ee0| 68 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 63 61 6c 63 |h-normal|ize calc|
|00004ef0| 46 75 6e 63 2d 67 61 6d | 6d 61 50 20 2f 20 32 20 |Func-gam|maP / 2 |
|00004f00| 6d 61 74 68 2d 64 69 76 | 5d 20 37 29 29 0a 0a 28 |math-div|] 7))..(|
|00004f10| 70 75 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 46 |put (quo|te calcF|
|00004f20| 75 6e 63 2d 6c 74 70 63 | 29 20 28 71 75 6f 74 65 |unc-ltpc|) (quote|
|00004f30| 20 6d 61 74 68 2d 65 78 | 70 61 6e 64 61 62 6c 65 | math-ex|pandable|
|00004f40| 29 20 74 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |) t)..(d|efun cal|
|00004f50| 63 46 75 6e 63 2d 75 74 | 70 66 20 28 66 20 76 31 |cFunc-ut|pf (f v1|
|00004f60| 20 76 32 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | v2) (by|te-code |
|00004f70| 22 08 83 1d 00 c4 c5 c6 | 09 c7 09 c8 0a 0b 45 45 |".......|......EE|
|00004f80| 45 c6 09 c9 45 c6 0a c9 | 45 46 21 82 31 00 c5 ca |E...E...|EF!.1...|
|00004f90| 09 cb 09 cc 0a 0b 5c 22 | 5c 22 5c 22 ca 09 c9 5c |......\"|\"\"...\|
|00004fa0| 22 ca 0a c9 5c 22 23 87 | 22 20 5b 6d 61 74 68 2d |"...\"#.|" [math-|
|00004fb0| 65 78 70 61 6e 64 2d 66 | 6f 72 6d 75 6c 61 73 20 |expand-f|ormulas |
|00004fc0| 76 32 20 76 31 20 66 20 | 6d 61 74 68 2d 6e 6f 72 |v2 v1 f |math-nor|
|00004fd0| 6d 61 6c 69 7a 65 20 63 | 61 6c 63 46 75 6e 63 2d |malize c|alcFunc-|
|00004fe0| 62 65 74 61 49 20 2f 20 | 2b 20 2a 20 32 20 6d 61 |betaI / |+ * 2 ma|
|00004ff0| 74 68 2d 64 69 76 20 6d | 61 74 68 2d 61 64 64 20 |th-div m|ath-add |
|00005000| 6d 61 74 68 2d 6d 75 6c | 5d 20 31 31 29 29 0a 0a |math-mul|] 11))..|
|00005010| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |(put (qu|ote calc|
|00005020| 46 75 6e 63 2d 75 74 70 | 66 29 20 28 71 75 6f 74 |Func-utp|f) (quot|
|00005030| 65 20 6d 61 74 68 2d 65 | 78 70 61 6e 64 61 62 6c |e math-e|xpandabl|
|00005040| 65 29 20 74 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |e) t)..(|defun ca|
|00005050| 6c 63 46 75 6e 63 2d 6c | 74 70 66 20 28 66 20 76 |lcFunc-l|tpf (f v|
|00005060| 31 20 76 32 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |1 v2) (b|yte-code|
|00005070| 20 22 c3 c4 c5 08 09 0a | 23 5c 22 87 22 20 5b 66 | "......|#\"." [f|
|00005080| 20 76 31 20 76 32 20 6d | 61 74 68 2d 73 75 62 20 | v1 v2 m|ath-sub |
|00005090| 31 20 63 61 6c 63 46 75 | 6e 63 2d 75 74 70 66 5d |1 calcFu|nc-utpf]|
|000050a0| 20 36 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 | 6))..(p|ut (quot|
|000050b0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 6c 74 70 66 29 |e calcFu|nc-ltpf)|
|000050c0| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 65 78 70 | (quote |math-exp|
|000050d0| 61 6e 64 61 62 6c 65 29 | 20 74 29 0a 0a 28 64 65 |andable)| t)..(de|
|000050e0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 75 74 70 |fun calc|Func-utp|
|000050f0| 6e 20 28 78 20 6d 65 61 | 6e 20 73 64 65 76 29 20 |n (x mea|n sdev) |
|00005100| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 83 1d 00 |(byte-co|de "....|
|00005110| c4 c5 c6 c7 c8 c5 c9 09 | 0a 45 ca 0b cb cc 44 45 |........|.E....DE|
|00005120| 45 44 45 cc 45 21 82 30 | 00 cd ce cf c8 d0 d1 09 |EDE.E!.0|........|
|00005130| 0a 5c 22 cd 0b d2 20 5c | 22 5c 22 21 5c 22 d3 5c |.\"... \|"\"!\".\|
|00005140| 22 87 22 20 5b 6d 61 74 | 68 2d 65 78 70 61 6e 64 |"." [mat|h-expand|
|00005150| 2d 66 6f 72 6d 75 6c 61 | 73 20 6d 65 61 6e 20 78 |-formula|s mean x|
|00005160| 20 73 64 65 76 20 6d 61 | 74 68 2d 6e 6f 72 6d 61 | sdev ma|th-norma|
|00005170| 6c 69 7a 65 20 2f 20 2b | 20 31 20 63 61 6c 63 46 |lize / +| 1 calcF|
|00005180| 75 6e 63 2d 65 72 66 20 | 2d 20 2a 20 63 61 6c 63 |unc-erf |- * calc|
|00005190| 46 75 6e 63 2d 73 71 72 | 74 20 32 20 6d 61 74 68 |Func-sqr|t 2 math|
|000051a0| 2d 6d 75 6c 20 6d 61 74 | 68 2d 61 64 64 20 28 66 |-mul mat|h-add (f|
|000051b0| 6c 6f 61 74 20 31 20 30 | 29 20 6d 61 74 68 2d 64 |loat 1 0|) math-d|
|000051c0| 69 76 20 6d 61 74 68 2d | 73 75 62 20 6d 61 74 68 |iv math-|sub math|
|000051d0| 2d 73 71 72 74 2d 32 20 | 28 66 6c 6f 61 74 20 35 |-sqrt-2 |(float 5|
|000051e0| 20 2d 31 29 5d 20 31 32 | 29 29 0a 0a 28 70 75 74 | -1)] 12|))..(put|
|000051f0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|00005200| 2d 75 74 70 6e 29 20 28 | 71 75 6f 74 65 20 6d 61 |-utpn) (|quote ma|
|00005210| 74 68 2d 65 78 70 61 6e | 64 61 62 6c 65 29 20 74 |th-expan|dable) t|
|00005220| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00005230| 6e 63 2d 6c 74 70 6e 20 | 28 78 20 6d 65 61 6e 20 |nc-ltpn |(x mean |
|00005240| 73 64 65 76 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |sdev) (b|yte-code|
|00005250| 20 22 08 83 1d 00 c4 c5 | c6 c7 c8 c5 c9 09 0a 45 | "......|.......E|
|00005260| ca 0b cb cc 44 45 45 44 | 45 cc 45 21 82 30 00 cd |....DEED|E.E!.0..|
|00005270| ce cf c8 d0 d1 09 0a 5c | 22 cd 0b d2 20 5c 22 5c |.......\|"... \"\|
|00005280| 22 21 5c 22 d3 5c 22 87 | 22 20 5b 6d 61 74 68 2d |"!\".\".|" [math-|
|00005290| 65 78 70 61 6e 64 2d 66 | 6f 72 6d 75 6c 61 73 20 |expand-f|ormulas |
|000052a0| 78 20 6d 65 61 6e 20 73 | 64 65 76 20 6d 61 74 68 |x mean s|dev math|
|000052b0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 2f 20 2b 20 31 |-normali|ze / + 1|
|000052c0| 20 63 61 6c 63 46 75 6e | 63 2d 65 72 66 20 2d 20 | calcFun|c-erf - |
|000052d0| 2a 20 63 61 6c 63 46 75 | 6e 63 2d 73 71 72 74 20 |* calcFu|nc-sqrt |
|000052e0| 32 20 6d 61 74 68 2d 6d | 75 6c 20 6d 61 74 68 2d |2 math-m|ul math-|
|000052f0| 61 64 64 20 28 66 6c 6f | 61 74 20 31 20 30 29 20 |add (flo|at 1 0) |
|00005300| 6d 61 74 68 2d 64 69 76 | 20 6d 61 74 68 2d 73 75 |math-div| math-su|
|00005310| 62 20 6d 61 74 68 2d 73 | 71 72 74 2d 32 20 28 66 |b math-s|qrt-2 (f|
|00005320| 6c 6f 61 74 20 35 20 2d | 31 29 5d 20 31 32 29 29 |loat 5 -|1)] 12))|
|00005330| 0a 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 63 61 |..(put (|quote ca|
|00005340| 6c 63 46 75 6e 63 2d 6c | 74 70 6e 29 20 28 71 75 |lcFunc-l|tpn) (qu|
|00005350| 6f 74 65 20 6d 61 74 68 | 2d 65 78 70 61 6e 64 61 |ote math|-expanda|
|00005360| 62 6c 65 29 20 74 29 0a | 0a 28 64 65 66 75 6e 20 |ble) t).|.(defun |
|00005370| 63 61 6c 63 46 75 6e 63 | 2d 75 74 70 70 20 28 6e |calcFunc|-utpp (n|
|00005380| 20 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | x) (byt|e-code "|
|00005390| 08 83 0d 00 c3 c4 09 0a | 45 21 82 11 00 c4 09 0a |........|E!......|
|000053a0| 5c 22 87 22 20 5b 6d 61 | 74 68 2d 65 78 70 61 6e |\"." [ma|th-expan|
|000053b0| 64 2d 66 6f 72 6d 75 6c | 61 73 20 78 20 6e 20 6d |d-formul|as x n m|
|000053c0| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 63 61 |ath-norm|alize ca|
|000053d0| 6c 63 46 75 6e 63 2d 67 | 61 6d 6d 61 50 5d 20 34 |lcFunc-g|ammaP] 4|
|000053e0| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|000053f0| 63 61 6c 63 46 75 6e 63 | 2d 75 74 70 70 29 20 28 |calcFunc|-utpp) (|
|00005400| 71 75 6f 74 65 20 6d 61 | 74 68 2d 65 78 70 61 6e |quote ma|th-expan|
|00005410| 64 61 62 6c 65 29 20 74 | 29 0a 0a 28 64 65 66 75 |dable) t|)..(defu|
|00005420| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 6c 74 70 70 20 |n calcFu|nc-ltpp |
|00005430| 28 6e 20 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(n x) (b|yte-code|
|00005440| 20 22 08 83 0d 00 c3 c4 | 09 0a 45 21 82 11 00 c4 | "......|..E!....|
|00005450| 09 0a 5c 22 87 22 20 5b | 6d 61 74 68 2d 65 78 70 |..\"." [|math-exp|
|00005460| 61 6e 64 2d 66 6f 72 6d | 75 6c 61 73 20 78 20 6e |and-form|ulas x n|
|00005470| 20 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | math-no|rmalize |
|00005480| 63 61 6c 63 46 75 6e 63 | 2d 67 61 6d 6d 61 51 5d |calcFunc|-gammaQ]|
|00005490| 20 34 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 | 4))..(p|ut (quot|
|000054a0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 6c 74 70 70 29 |e calcFu|nc-ltpp)|
|000054b0| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 65 78 70 | (quote |math-exp|
|000054c0| 61 6e 64 61 62 6c 65 29 | 20 74 29 0a 0a 28 64 65 |andable)| t)..(de|
|000054d0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 75 74 70 |fun calc|Func-utp|
|000054e0| 74 20 28 74 74 20 76 29 | 20 28 62 79 74 65 2d 63 |t (tt v)| (byte-c|
|000054f0| 6f 64 65 20 22 08 83 1a | 00 c3 c4 c5 09 c6 09 c7 |ode "...|........|
|00005500| 0a c8 45 45 45 c5 09 c8 | 45 c9 46 21 82 2a 00 c4 |..EEE...|E.F!.*..|
|00005510| ca 09 cb 09 cc 0a 21 5c | 22 5c 22 ca 09 c8 5c 22 |......!\|"\"...\"|
|00005520| cd 23 87 22 20 5b 6d 61 | 74 68 2d 65 78 70 61 6e |.#." [ma|th-expan|
|00005530| 64 2d 66 6f 72 6d 75 6c | 61 73 20 76 20 74 74 20 |d-formul|as v tt |
|00005540| 6d 61 74 68 2d 6e 6f 72 | 6d 61 6c 69 7a 65 20 63 |math-nor|malize c|
|00005550| 61 6c 63 46 75 6e 63 2d | 62 65 74 61 49 20 2f 20 |alcFunc-|betaI / |
|00005560| 2b 20 5e 20 32 20 28 66 | 6c 6f 61 74 20 35 20 2d |+ ^ 2 (f|loat 5 -|
|00005570| 31 29 20 6d 61 74 68 2d | 64 69 76 20 6d 61 74 68 |1) math-|div math|
|00005580| 2d 61 64 64 20 6d 61 74 | 68 2d 73 71 72 20 28 66 |-add mat|h-sqr (f|
|00005590| 6c 6f 61 74 20 35 20 2d | 31 29 5d 20 39 29 29 0a |loat 5 -|1)] 9)).|
|000055a0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|000055b0| 63 46 75 6e 63 2d 75 74 | 70 74 29 20 28 71 75 6f |cFunc-ut|pt) (quo|
|000055c0| 74 65 20 6d 61 74 68 2d | 65 78 70 61 6e 64 61 62 |te math-|expandab|
|000055d0| 6c 65 29 20 74 29 0a 0a | 28 64 65 66 75 6e 20 63 |le) t)..|(defun c|
|000055e0| 61 6c 63 46 75 6e 63 2d | 6c 74 70 74 20 28 74 74 |alcFunc-|ltpt (tt|
|000055f0| 20 76 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | v) (byt|e-code "|
|00005600| c2 c3 c4 08 09 5c 22 5c | 22 87 22 20 5b 74 74 20 |.....\"\|"." [tt |
|00005610| 76 20 6d 61 74 68 2d 73 | 75 62 20 31 20 63 61 6c |v math-s|ub 1 cal|
|00005620| 63 46 75 6e 63 2d 75 74 | 70 74 5d 20 35 29 29 0a |cFunc-ut|pt] 5)).|
|00005630| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|00005640| 63 46 75 6e 63 2d 6c 74 | 70 74 29 20 28 71 75 6f |cFunc-lt|pt) (quo|
|00005650| 74 65 20 6d 61 74 68 2d | 65 78 70 61 6e 64 61 62 |te math-|expandab|
|00005660| 6c 65 29 20 74 29 0a | |le) t). | |
+--------+-------------------------+-------------------------+--------+--------+
