home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 57.4 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 61 72 69 74 68 | 20 6e 69 6c 20 28 62 79 |lc-arith| 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 6d 69 6e 20 | 28 61 72 67 29 20 28 69 |alc-min |(arg) (i|
|00000070| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00000080| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00000090| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|000000a0| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|000000b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 c3 08 c4 |byte-cod|e ".....|
|000000c0| 24 87 22 20 5b 61 72 67 | 20 63 61 6c 63 2d 62 69 |$." [arg| calc-bi|
|000000d0| 6e 61 72 79 2d 6f 70 20 | 22 6d 69 6e 22 20 63 61 |nary-op |"min" ca|
|000000e0| 6c 63 46 75 6e 63 2d 6d | 69 6e 20 28 76 61 72 20 |lcFunc-m|in (var |
|000000f0| 69 6e 66 20 76 61 72 2d | 69 6e 66 29 5d 20 35 29 |inf var-|inf)] 5)|
|00000100| 29 20 31 31 37 5d 20 33 | 29 29 0a 0a 28 64 65 66 |) 117] 3|))..(def|
|00000110| 75 6e 20 63 61 6c 63 2d | 6d 61 78 20 28 61 72 67 |un calc-|max (arg|
|00000120| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000130| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000140| c0 88 c1 c2 c3 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |.....\".|" [nil c|
|00000150| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00000160| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00000170| c2 c3 08 c4 24 87 22 20 | 5b 61 72 67 20 63 61 6c |....$." |[arg cal|
|00000180| 63 2d 62 69 6e 61 72 79 | 2d 6f 70 20 22 6d 61 78 |c-binary|-op "max|
|00000190| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6d 61 78 20 28 |" calcFu|nc-max (|
|000001a0| 6e 65 67 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |neg (var| inf var|
|000001b0| 2d 69 6e 66 29 29 5d 20 | 35 29 29 20 32 39 37 5d |-inf))] |5)) 297]|
|000001c0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|000001d0| 63 2d 61 62 73 20 28 61 | 72 67 29 20 28 69 6e 74 |c-abs (a|rg) (int|
|000001e0| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|000001f0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 c3 5c |yte-code| ".....\|
|00000200| 22 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |"." [nil| calc-do|
|00000210| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00000220| 74 65 2d 63 6f 64 65 20 | 22 c1 c2 c3 08 23 87 22 |te-code |"....#."|
|00000230| 20 5b 61 72 67 20 63 61 | 6c 63 2d 75 6e 61 72 79 | [arg ca|lc-unary|
|00000240| 2d 6f 70 20 22 61 62 73 | 22 20 63 61 6c 63 46 75 |-op "abs|" calcFu|
|00000250| 6e 63 2d 61 62 73 5d 20 | 34 29 29 20 34 38 33 5d |nc-abs] |4)) 483]|
|00000260| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|00000270| 63 2d 69 64 69 76 20 28 | 61 72 67 29 20 28 69 6e |c-idiv (|arg) (in|
|00000280| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00000290| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 c3 |byte-cod|e ".....|
|000002a0| 5c 22 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |\"." [ni|l calc-d|
|000002b0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|000002c0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 c2 c3 08 c4 24 |yte-code| ".....$|
|000002d0| 87 22 20 5b 61 72 67 20 | 63 61 6c 63 2d 62 69 6e |." [arg |calc-bin|
|000002e0| 61 72 79 2d 6f 70 20 22 | 5c 5c 22 20 63 61 6c 63 |ary-op "|\\" calc|
|000002f0| 46 75 6e 63 2d 69 64 69 | 76 20 31 5d 20 35 29 29 |Func-idi|v 1] 5))|
|00000300| 20 36 34 33 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 | 643] 3)|)..(defu|
|00000310| 6e 20 63 61 6c 63 2d 66 | 6c 6f 6f 72 20 28 61 72 |n calc-f|loor (ar|
|00000320| 67 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |g) (inte|ractive |
|00000330| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|00000340| 22 c0 88 c1 c2 c3 5c 22 | 87 22 20 5b 6e 69 6c 20 |".....\"|." [nil |
|00000350| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|00000360| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00000370| c1 20 83 1a 00 c2 20 83 | 12 00 c3 c4 c5 08 23 82 |. .... .|......#.|
|00000380| 17 00 c3 c4 c6 08 23 82 | 2c 00 c2 20 83 27 00 c3 |......#.|,.. .'..|
|00000390| c7 c8 08 23 82 2c 00 c3 | c7 c9 08 23 87 22 20 5b |...#.,..|...#." [|
|000003a0| 61 72 67 20 63 61 6c 63 | 2d 69 73 2d 69 6e 76 65 |arg calc|-is-inve|
|000003b0| 72 73 65 20 63 61 6c 63 | 2d 69 73 2d 68 79 70 65 |rse calc|-is-hype|
|000003c0| 72 62 6f 6c 69 63 20 63 | 61 6c 63 2d 75 6e 61 72 |rbolic c|alc-unar|
|000003d0| 79 2d 6f 70 20 22 63 65 | 69 6c 22 20 63 61 6c 63 |y-op "ce|il" calc|
|000003e0| 46 75 6e 63 2d 66 63 65 | 69 6c 20 63 61 6c 63 46 |Func-fce|il calcF|
|000003f0| 75 6e 63 2d 63 65 69 6c | 20 22 66 6c 6f 72 22 20 |unc-ceil| "flor" |
|00000400| 63 61 6c 63 46 75 6e 63 | 2d 66 66 6c 6f 6f 72 20 |calcFunc|-ffloor |
|00000410| 63 61 6c 63 46 75 6e 63 | 2d 66 6c 6f 6f 72 5d 20 |calcFunc|-floor] |
|00000420| 31 30 29 29 20 38 30 38 | 5d 20 33 29 29 0a 0a 28 |10)) 808|] 3))..(|
|00000430| 64 65 66 75 6e 20 63 61 | 6c 63 2d 63 65 69 6c 69 |defun ca|lc-ceili|
|00000440| 6e 67 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |ng (arg)| (intera|
|00000450| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00000460| 2d 63 6f 64 65 20 22 c1 | 88 c2 20 88 c3 08 21 87 |-code ".|.. ...!.|
|00000470| 22 20 5b 61 72 67 20 6e | 69 6c 20 63 61 6c 63 2d |" [arg n|il calc-|
|00000480| 69 6e 76 65 72 74 2d 66 | 75 6e 63 20 63 61 6c 63 |invert-f|unc calc|
|00000490| 2d 66 6c 6f 6f 72 5d 20 | 33 29 29 0a 0a 28 64 65 |-floor] |3))..(de|
|000004a0| 66 75 6e 20 63 61 6c 63 | 2d 72 6f 75 6e 64 20 28 |fun calc|-round (|
|000004b0| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|000004c0| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|000004d0| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|000004e0| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|000004f0| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00000500| 20 22 c1 20 83 1a 00 c2 | 20 83 12 00 c3 c4 c5 08 | ". ....| .......|
|00000510| 23 82 17 00 c3 c4 c6 08 | 23 82 2c 00 c2 20 83 27 |#.......|#.,.. .'|
|00000520| 00 c3 c7 c8 08 23 82 2c | 00 c3 c7 c9 08 23 87 22 |.....#.,|.....#."|
|00000530| 20 5b 61 72 67 20 63 61 | 6c 63 2d 69 73 2d 69 6e | [arg ca|lc-is-in|
|00000540| 76 65 72 73 65 20 63 61 | 6c 63 2d 69 73 2d 68 79 |verse ca|lc-is-hy|
|00000550| 70 65 72 62 6f 6c 69 63 | 20 63 61 6c 63 2d 75 6e |perbolic| calc-un|
|00000560| 61 72 79 2d 6f 70 20 22 | 74 72 6e 63 22 20 63 61 |ary-op "|trnc" ca|
|00000570| 6c 63 46 75 6e 63 2d 66 | 74 72 75 6e 63 20 63 61 |lcFunc-f|trunc ca|
|00000580| 6c 63 46 75 6e 63 2d 74 | 72 75 6e 63 20 22 72 6f |lcFunc-t|runc "ro|
|00000590| 6e 64 22 20 63 61 6c 63 | 46 75 6e 63 2d 66 72 6f |nd" calc|Func-fro|
|000005a0| 75 6e 64 20 63 61 6c 63 | 46 75 6e 63 2d 72 6f 75 |und calc|Func-rou|
|000005b0| 6e 64 5d 20 31 30 29 29 | 20 31 32 31 30 5d 20 33 |nd] 10))| 1210] 3|
|000005c0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000005d0| 74 72 75 6e 63 20 28 61 | 72 67 29 20 28 69 6e 74 |trunc (a|rg) (int|
|000005e0| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|000005f0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 20 88 c3 |yte-code| "... ..|
|00000600| 08 21 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 63 61 |.!." [ar|g nil ca|
|00000610| 6c 63 2d 69 6e 76 65 72 | 74 2d 66 75 6e 63 20 63 |lc-inver|t-func c|
|00000620| 61 6c 63 2d 72 6f 75 6e | 64 5d 20 33 29 29 0a 0a |alc-roun|d] 3))..|
|00000630| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6d 61 6e 74 |(defun c|alc-mant|
|00000640| 2d 70 61 72 74 20 28 61 | 72 67 29 20 28 69 6e 74 |-part (a|rg) (int|
|00000650| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|00000660| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 c3 5c |yte-code| ".....\|
|00000670| 22 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |"." [nil| calc-do|
|00000680| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00000690| 74 65 2d 63 6f 64 65 20 | 22 c1 c2 c3 08 23 87 22 |te-code |"....#."|
|000006a0| 20 5b 61 72 67 20 63 61 | 6c 63 2d 75 6e 61 72 79 | [arg ca|lc-unary|
|000006b0| 2d 6f 70 20 22 6d 61 6e | 74 22 20 63 61 6c 63 46 |-op "man|t" calcF|
|000006c0| 75 6e 63 2d 6d 61 6e 74 | 5d 20 34 29 29 20 31 36 |unc-mant|] 4)) 16|
|000006d0| 31 33 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |13] 3)).|.(defun |
|000006e0| 63 61 6c 63 2d 78 70 6f | 6e 2d 70 61 72 74 20 28 |calc-xpo|n-part (|
|000006f0| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00000700| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000710| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|00000720| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00000730| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00000740| 20 22 c1 c2 c3 08 23 87 | 22 20 5b 61 72 67 20 63 | "....#.|" [arg c|
|00000750| 61 6c 63 2d 75 6e 61 72 | 79 2d 6f 70 20 22 78 70 |alc-unar|y-op "xp|
|00000760| 6f 6e 22 20 63 61 6c 63 | 46 75 6e 63 2d 78 70 6f |on" calc|Func-xpo|
|00000770| 6e 5d 20 34 29 29 20 31 | 37 38 32 5d 20 33 29 29 |n] 4)) 1|782] 3))|
|00000780| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 73 63 |..(defun| calc-sc|
|00000790| 61 6c 65 2d 66 6c 6f 61 | 74 20 28 61 72 67 29 20 |ale-floa|t (arg) |
|000007a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|000007b0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|000007c0| c1 c2 c3 5c 22 87 22 20 | 5b 6e 69 6c 20 63 61 6c |...\"." |[nil cal|
|000007d0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000007e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|000007f0| 08 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 62 |.#." [ar|g calc-b|
|00000800| 69 6e 61 72 79 2d 6f 70 | 20 22 73 63 61 6c 22 20 |inary-op| "scal" |
|00000810| 63 61 6c 63 46 75 6e 63 | 2d 73 63 66 5d 20 34 29 |calcFunc|-scf] 4)|
|00000820| 29 20 31 39 35 31 5d 20 | 33 29 29 0a 0a 28 64 65 |) 1951] |3))..(de|
|00000830| 66 75 6e 20 63 61 6c 63 | 2d 61 62 73 73 71 72 20 |fun calc|-abssqr |
|00000840| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000850| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000860| 64 65 20 22 c0 88 c1 c2 | c3 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|00000870| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|00000880| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|00000890| 65 20 22 c1 c2 c3 08 23 | 87 22 20 5b 61 72 67 20 |e "....#|." [arg |
|000008a0| 63 61 6c 63 2d 75 6e 61 | 72 79 2d 6f 70 20 22 61 |calc-una|ry-op "a|
|000008b0| 62 73 71 22 20 63 61 6c | 63 46 75 6e 63 2d 61 62 |bsq" cal|cFunc-ab|
|000008c0| 73 73 71 72 5d 20 34 29 | 29 20 32 31 32 32 5d 20 |ssqr] 4)|) 2122] |
|000008d0| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|000008e0| 2d 73 69 67 6e 20 28 61 | 72 67 29 20 28 69 6e 74 |-sign (a|rg) (int|
|000008f0| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|00000900| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 c3 5c |yte-code| ".....\|
|00000910| 22 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |"." [nil| calc-do|
|00000920| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00000930| 74 65 2d 63 6f 64 65 20 | 22 c1 c2 c3 08 23 87 22 |te-code |"....#."|
|00000940| 20 5b 61 72 67 20 63 61 | 6c 63 2d 75 6e 61 72 79 | [arg ca|lc-unary|
|00000950| 2d 6f 70 20 22 73 69 67 | 6e 22 20 63 61 6c 63 46 |-op "sig|n" calcF|
|00000960| 75 6e 63 2d 73 69 67 6e | 5d 20 34 29 29 20 32 32 |unc-sign|] 4)) 22|
|00000970| 39 30 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |90] 3)).|.(defun |
|00000980| 63 61 6c 63 2d 69 6e 63 | 72 65 6d 65 6e 74 20 28 |calc-inc|rement (|
|00000990| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|000009a0| 65 20 22 70 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "p") (|byte-cod|
|000009b0| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|000009c0| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|000009d0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000009e0| c1 c2 c3 c4 c5 c2 21 08 | 45 23 87 22 20 5b 61 72 |......!.|E#." [ar|
|000009f0| 67 20 63 61 6c 63 2d 65 | 6e 74 65 72 2d 72 65 73 |g calc-e|nter-res|
|00000a00| 75 6c 74 20 31 20 22 69 | 6e 63 72 22 20 63 61 6c |ult 1 "i|ncr" cal|
|00000a10| 63 46 75 6e 63 2d 69 6e | 63 72 20 63 61 6c 63 2d |cFunc-in|cr calc-|
|00000a20| 74 6f 70 2d 6e 5d 20 37 | 29 29 5d 20 32 29 29 0a |top-n] 7|))] 2)).|
|00000a30| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 64 65 63 |.(defun |calc-dec|
|00000a40| 72 65 6d 65 6e 74 20 28 | 61 72 67 29 20 28 69 6e |rement (|arg) (in|
|00000a50| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|00000a60| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 21 |byte-cod|e "....!|
|00000a70| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00000a80| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000a90| 65 2d 63 6f 64 65 20 22 | c1 c2 c3 c4 c5 c2 21 08 |e-code "|......!.|
|00000aa0| 45 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 65 |E#." [ar|g calc-e|
|00000ab0| 6e 74 65 72 2d 72 65 73 | 75 6c 74 20 31 20 22 64 |nter-res|ult 1 "d|
|00000ac0| 65 63 72 22 20 63 61 6c | 63 46 75 6e 63 2d 64 65 |ecr" cal|cFunc-de|
|00000ad0| 63 72 20 63 61 6c 63 2d | 74 6f 70 2d 6e 5d 20 37 |cr calc-|top-n] 7|
|00000ae0| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00000af0| 6d 61 74 68 2d 61 62 73 | 2d 61 70 70 72 6f 78 20 |math-abs|-approx |
|00000b00| 28 61 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(a) (byt|e-code "|
|00000b10| 08 3a 83 39 00 08 40 c2 | 3d 86 36 00 08 40 c3 3d |.:.9..@.|=.6..@.=|
|00000b20| 3f 85 36 00 08 40 c4 3e | 83 33 00 c5 08 38 3a 83 |?.6..@.>|.3...8:.|
|00000b30| 2b 00 c5 08 38 40 c2 3d | 82 30 00 c5 08 38 c6 57 |+...8@.=|.0...8.W|
|00000b40| 82 36 00 c7 08 21 82 3c | 00 08 c6 57 83 45 00 c8 |.6...!.<|...W.E..|
|00000b50| 08 21 82 c4 00 08 3a 3f | 86 4f 00 08 40 c9 3e 83 |.!....:?|.O..@.>.|
|00000b60| 56 00 08 82 c4 00 08 40 | ca 3d 83 6c 00 cb cc c5 |V......@|.=.l....|
|00000b70| 08 38 21 cc cd 08 38 21 | 5c 22 82 c4 00 08 40 ce |.8!...8!|\"....@.|
|00000b80| 3d 83 79 00 c5 08 38 82 | c4 00 08 40 cf 3d 83 88 |=.y...8.|...@.=..|
|00000b90| 00 d0 c5 08 38 21 82 c4 | 00 08 40 d1 3d 83 9e 00 |....8!..|..@.=...|
|00000ba0| d2 cc cd 08 38 21 cc d3 | 08 38 21 5c 22 82 c4 00 |....8!..|.8!\"...|
|00000bb0| 08 40 d4 3d 83 a9 00 08 | 82 c4 00 08 40 d5 3d 83 |.@.=....|....@.=.|
|00000bc0| b7 00 d6 d7 08 5c 22 82 | c4 00 08 40 d8 3d 83 c3 |.....\".|...@.=..|
|00000bd0| 00 08 40 82 c4 00 08 87 | 22 20 5b 61 20 74 20 62 |..@.....|" [a t b|
|00000be0| 69 67 6e 65 67 20 62 69 | 67 70 6f 73 20 28 66 72 |igneg bi|gpos (fr|
|00000bf0| 61 63 20 66 6c 6f 61 74 | 29 20 31 20 30 20 6d 61 |ac float|) 1 0 ma|
|00000c00| 74 68 2d 6e 65 67 70 20 | 6d 61 74 68 2d 6e 65 67 |th-negp |math-neg|
|00000c10| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00000c20| 66 72 61 63 20 66 6c 6f | 61 74 20 68 6d 73 29 20 |frac flo|at hms) |
|00000c30| 63 70 6c 78 20 6d 61 74 | 68 2d 61 64 64 20 6d 61 |cplx mat|h-add ma|
|00000c40| 74 68 2d 61 62 73 20 32 | 20 70 6f 6c 61 72 20 73 |th-abs 2| polar s|
|00000c50| 64 65 76 20 6d 61 74 68 | 2d 61 62 73 2d 61 70 70 |dev math|-abs-app|
|00000c60| 72 6f 78 20 69 6e 74 76 | 20 6d 61 74 68 2d 6d 61 |rox intv| math-ma|
|00000c70| 78 20 33 20 64 61 74 65 | 20 76 65 63 20 6d 61 74 |x 3 date| vec mat|
|00000c80| 68 2d 72 65 64 75 63 65 | 2d 76 65 63 20 6d 61 74 |h-reduce|-vec mat|
|00000c90| 68 2d 61 64 64 2d 61 62 | 73 2d 61 70 70 72 6f 78 |h-add-ab|s-approx|
|00000ca0| 20 63 61 6c 63 46 75 6e | 63 2d 61 62 73 5d 20 31 | calcFun|c-abs] 1|
|00000cb0| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |2))..(de|fun math|
|00000cc0| 2d 61 64 64 2d 61 62 73 | 2d 61 70 70 72 6f 78 20 |-add-abs|-approx |
|00000cd0| 28 61 20 62 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(a b) (b|yte-code|
|00000ce0| 20 22 c2 c3 08 21 c3 09 | 21 5c 22 87 22 20 5b 61 | "...!..|!\"." [a|
|00000cf0| 20 62 20 6d 61 74 68 2d | 61 64 64 20 6d 61 74 68 | b math-|add math|
|00000d00| 2d 61 62 73 2d 61 70 70 | 72 6f 78 5d 20 35 29 29 |-abs-app|rox] 5))|
|00000d10| 0a 0a 28 73 65 74 71 20 | 6d 61 74 68 2d 64 65 63 |..(setq |math-dec|
|00000d20| 6c 73 2d 63 61 63 68 65 | 2d 74 61 67 20 6e 69 6c |ls-cache|-tag nil|
|00000d30| 29 0a 0a 28 73 65 74 71 | 20 6d 61 74 68 2d 64 65 |)..(setq| math-de|
|00000d40| 63 6c 73 2d 63 61 63 68 | 65 20 6e 69 6c 29 0a 0a |cls-cach|e nil)..|
|00000d50| 28 73 65 74 71 20 6d 61 | 74 68 2d 64 65 63 6c 73 |(setq ma|th-decls|
|00000d60| 2d 61 6c 6c 20 6e 69 6c | 29 0a 0a 28 64 65 66 75 |-all nil|)..(defu|
|00000d70| 6e 20 6d 61 74 68 2d 73 | 65 74 75 70 2d 64 65 63 |n math-s|etup-dec|
|00000d80| 6c 61 72 61 74 69 6f 6e | 73 20 6e 69 6c 20 28 62 |laration|s nil (b|
|00000d90| 79 74 65 2d 63 6f 64 65 | 20 22 08 c8 c9 21 3d 86 |yte-code| "...!=.|
|00000da0| 4a 00 c8 c9 21 c6 c6 c6 | 1c 1b 1a 19 09 10 c6 89 |J...!...|........|
|00000db0| 15 88 ca 09 21 c2 3d 85 | 41 00 09 41 89 11 85 41 |....!.=.|A..A...A|
|00000dc0| 00 ca 09 40 21 c2 3d 85 | 3d 00 cb 09 40 38 89 12 |...@!.=.|=...@8..|
|00000dd0| 85 3d 00 cc cd ce 8f 88 | 82 20 00 88 cf d0 0d 5c |.=......|. .....\|
|00000de0| 22 89 16 07 2c 87 22 20 | 5b 6d 61 74 68 2d 64 65 |"...,." |[math-de|
|00000df0| 63 6c 73 2d 63 61 63 68 | 65 2d 74 61 67 20 70 20 |cls-cach|e-tag p |
|00000e00| 76 65 63 20 74 79 70 65 | 20 72 61 6e 67 65 20 6d |vec type| range m|
|00000e10| 61 74 68 2d 64 65 63 6c | 73 2d 63 61 63 68 65 20 |ath-decl|s-cache |
|00000e20| 6e 69 6c 20 6d 61 74 68 | 2d 64 65 63 6c 73 2d 61 |nil math|-decls-a|
|00000e30| 6c 6c 20 63 61 6c 63 2d | 76 61 72 2d 76 61 6c 75 |ll calc-|var-valu|
|00000e40| 65 20 76 61 72 2d 44 65 | 63 6c 73 20 63 61 72 2d |e var-De|cls car-|
|00000e50| 73 61 66 65 20 32 20 65 | 72 72 20 28 62 79 74 65 |safe 2 e|rr (byte|
|00000e60| 2d 63 6f 64 65 20 22 c9 | 09 40 38 18 c3 12 c3 89 |-code ".|.@8.....|
|00000e70| 14 88 ca 0d 21 c5 3d 86 | 18 00 c5 0d 44 89 15 88 |....!.=.|....D...|
|00000e80| 0d 41 89 15 85 2d 00 0d | 40 3a 3f 86 2c 00 0d 40 |.A...-..|@:?.,..@|
|00000e90| 40 cb 3e 3f 85 7c 00 ca | 0d 40 21 cc 3d 85 78 00 |@.>?.|..|.@!.=.x.|
|00000ea0| cd c9 0d 40 38 0e 07 5c | 22 1e 06 0e 06 83 52 00 |...@8..\|".....R.|
|00000eb0| ce 0a 0e 06 5c 22 89 12 | 82 77 00 c9 0d 40 38 cf |....\"..|.w...@8.|
|00000ec0| 3d 83 66 00 ce 0a d0 5c | 22 12 d1 89 14 82 77 00 |=.f....\|".....w.|
|00000ed0| c9 0d 40 38 d2 3d 85 77 | 00 ce 0a d3 5c 22 12 d4 |..@8.=.w|....\"..|
|00000ee0| 89 14 29 88 82 19 00 88 | 0d 85 8d 00 ce 0a d5 5c |..).....|.......\|
|00000ef0| 22 12 d6 c5 0d 42 21 89 | 14 88 0a 0c 44 89 12 88 |"....B!.|....D...|
|00000f00| ca 08 21 c5 3d 86 a1 00 | c5 08 44 89 10 88 08 41 |..!.=...|..D....A|
|00000f10| 89 10 85 e0 00 ca 08 40 | 21 cc 3d 86 bf 00 08 40 |.......@|!.=....@|
|00000f20| 3a 3f 86 be 00 08 40 40 | d7 3e 3f 85 dc 00 08 40 |:?....@@|.>?....@|
|00000f30| 40 cc 3d 83 d1 00 d8 08 | 40 38 82 d4 00 08 40 40 |@.=.....|@8....@@|
|00000f40| 0a 42 0e 08 42 89 16 08 | 88 82 a2 00 29 87 22 20 |.B..B...|....)." |
|00000f50| 5b 76 20 70 20 74 79 70 | 65 20 6e 69 6c 20 72 61 |[v p typ|e nil ra|
|00000f60| 6e 67 65 20 76 65 63 20 | 73 74 20 6d 61 74 68 2d |nge vec |st math-|
|00000f70| 73 75 70 65 72 2d 74 79 | 70 65 73 20 6d 61 74 68 |super-ty|pes math|
|00000f80| 2d 64 65 63 6c 73 2d 63 | 61 63 68 65 20 31 20 63 |-decls-c|ache 1 c|
|00000f90| 61 72 2d 73 61 66 65 20 | 28 62 69 67 70 6f 73 20 |ar-safe |(bigpos |
|00000fa0| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00000fb0| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 20 68 6d 73 |t cplx p|olar hms|
|00000fc0| 20 64 61 74 65 20 73 64 | 65 76 20 69 6e 74 76 20 | date sd|ev intv |
|00000fd0| 6d 6f 64 29 20 76 61 72 | 20 61 73 73 71 20 61 70 |mod) var| assq ap|
|00000fe0| 70 65 6e 64 20 70 6f 73 | 20 28 72 65 61 6c 20 6e |pend pos| (real n|
|00000ff0| 75 6d 62 65 72 29 20 28 | 69 6e 74 76 20 31 20 30 |umber) (|intv 1 0|
|00001000| 20 28 76 61 72 20 69 6e | 66 20 76 61 72 2d 69 6e | (var in|f var-in|
|00001010| 66 29 29 20 6e 6f 6e 6e | 65 67 20 28 72 65 61 6c |f)) nonn|eg (real|
|00001020| 20 6e 75 6d 62 65 72 29 | 20 28 69 6e 74 76 20 33 | number)| (intv 3|
|00001030| 20 30 20 28 76 61 72 20 | 69 6e 66 20 76 61 72 2d | 0 (var |inf var-|
|00001040| 69 6e 66 29 29 20 28 72 | 65 61 6c 20 6e 75 6d 62 |inf)) (r|eal numb|
|00001050| 65 72 29 20 6d 61 74 68 | 2d 70 72 65 70 61 72 65 |er) math|-prepare|
|00001060| 2d 73 65 74 20 28 62 69 | 67 70 6f 73 20 62 69 67 |-set (bi|gpos big|
|00001070| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 63 |neg frac| float c|
|00001080| 70 6c 78 20 70 6f 6c 61 | 72 20 68 6d 73 20 64 61 |plx pola|r hms da|
|00001090| 74 65 20 6d 6f 64 20 76 | 61 72 29 20 32 5d 20 31 |te mod v|ar) 2] 1|
|000010a0| 33 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |3) ((err|or (byte|
|000010b0| 2d 63 6f 64 65 20 22 c0 | 87 22 20 5b 6e 69 6c 5d |-code ".|." [nil]|
|000010c0| 20 31 29 29 29 20 61 73 | 73 71 20 76 61 72 2d 41 | 1))) as|sq var-A|
|000010d0| 6c 6c 5d 20 38 29 29 0a | 0a 28 64 65 66 76 61 72 |ll] 8)).|.(defvar|
|000010e0| 20 6d 61 74 68 2d 73 75 | 70 65 72 2d 74 79 70 65 | math-su|per-type|
|000010f0| 73 20 28 71 75 6f 74 65 | 20 28 28 69 6e 74 20 6e |s (quote| ((int n|
|00001100| 75 6d 69 6e 74 20 72 61 | 74 20 72 65 61 6c 20 6e |umint ra|t real n|
|00001110| 75 6d 62 65 72 29 20 28 | 6e 75 6d 69 6e 74 20 72 |umber) (|numint r|
|00001120| 65 61 6c 20 6e 75 6d 62 | 65 72 29 20 28 66 72 61 |eal numb|er) (fra|
|00001130| 63 20 72 61 74 20 72 65 | 61 6c 20 6e 75 6d 62 65 |c rat re|al numbe|
|00001140| 72 29 20 28 72 61 74 20 | 72 65 61 6c 20 6e 75 6d |r) (rat |real num|
|00001150| 62 65 72 29 20 28 66 6c | 6f 61 74 20 72 65 61 6c |ber) (fl|oat real|
|00001160| 20 6e 75 6d 62 65 72 29 | 20 28 72 65 61 6c 20 6e | number)| (real n|
|00001170| 75 6d 62 65 72 29 20 28 | 6e 75 6d 62 65 72 29 20 |umber) (|number) |
|00001180| 28 73 63 61 6c 61 72 29 | 20 28 6d 61 74 72 69 78 |(scalar)| (matrix|
|00001190| 20 76 65 63 74 6f 72 29 | 20 28 76 65 63 74 6f 72 | vector)| (vector|
|000011a0| 29 20 28 63 6f 6e 73 74 | 29 29 29 29 0a 0a 28 64 |) (const|))))..(d|
|000011b0| 65 66 75 6e 20 6d 61 74 | 68 2d 6b 6e 6f 77 6e 2d |efun mat|h-known-|
|000011c0| 73 63 61 6c 61 72 70 20 | 28 61 20 26 6f 70 74 69 |scalarp |(a &opti|
|000011d0| 6f 6e 61 6c 20 61 73 73 | 75 6d 65 2d 73 63 61 6c |onal ass|ume-scal|
|000011e0| 61 72 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ar) (byt|e-code "|
|000011f0| c3 20 88 08 83 0d 00 08 | c4 3d 82 0e 00 09 83 18 |. ......|.=......|
|00001200| 00 c5 0a 21 3f 82 1b 00 | c6 0a 21 87 22 20 5b 63 |...!?...|..!." [c|
|00001210| 61 6c 63 2d 6d 61 74 72 | 69 78 2d 6d 6f 64 65 20 |alc-matr|ix-mode |
|00001220| 61 73 73 75 6d 65 2d 73 | 63 61 6c 61 72 20 61 20 |assume-s|calar a |
|00001230| 6d 61 74 68 2d 73 65 74 | 75 70 2d 64 65 63 6c 61 |math-set|up-decla|
|00001240| 72 61 74 69 6f 6e 73 20 | 73 63 61 6c 61 72 20 6d |rations |scalar m|
|00001250| 61 74 68 2d 63 68 65 63 | 6b 2d 6b 6e 6f 77 6e 2d |ath-chec|k-known-|
|00001260| 6d 61 74 72 69 78 70 20 | 6d 61 74 68 2d 63 68 65 |matrixp |math-che|
|00001270| 63 6b 2d 6b 6e 6f 77 6e | 2d 73 63 61 6c 61 72 70 |ck-known|-scalarp|
|00001280| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 4))..(|defun ma|
|00001290| 74 68 2d 6b 6e 6f 77 6e | 2d 6d 61 74 72 69 78 70 |th-known|-matrixp|
|000012a0| 20 28 61 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (a) (by|te-code |
|000012b0| 22 08 3a 3f 86 0a 00 08 | 40 c2 3e 3f 85 13 00 c3 |".:?....|@.>?....|
|000012c0| 08 c1 5c 22 3f 87 22 20 | 5b 61 20 74 20 28 62 69 |..\"?." |[a t (bi|
|000012d0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|000012e0| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|000012f0| 72 20 68 6d 73 29 20 6d | 61 74 68 2d 6b 6e 6f 77 |r hms) m|ath-know|
|00001300| 6e 2d 73 63 61 6c 61 72 | 70 5d 20 33 29 29 0a 0a |n-scalar|p] 3))..|
|00001310| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 63 68 65 63 |(defun m|ath-chec|
|00001320| 6b 2d 6b 6e 6f 77 6e 2d | 73 63 61 6c 61 72 70 20 |k-known-|scalarp |
|00001330| 28 61 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(a) (byt|e-code "|
|00001340| 08 3a 3f 86 0a 00 08 40 | c8 3e 83 11 00 c1 82 83 |.:?....@|.>......|
|00001350| 00 08 40 0a 3e 83 1c 00 | c1 82 83 00 08 40 0b 3e |..@.>...|.....@.>|
|00001360| 83 27 00 c1 82 83 00 08 | 40 0c 3e 83 47 00 08 41 |.'......|@.>.G..A|
|00001370| 89 10 85 39 00 c9 08 40 | 21 85 41 00 ca 88 82 2e |...9...@|!.A.....|
|00001380| 00 88 08 3f 82 83 00 08 | 40 cb 3d 83 56 00 c9 cc |...?....|@.=.V...|
|00001390| 08 38 21 82 83 00 cd 08 | 21 83 60 00 c1 82 83 00 |.8!.....|!.`.....|
|000013a0| 08 40 ce 3d 83 76 00 cf | d0 08 38 0e 06 5c 22 86 |.@.=.v..|..8..\".|
|000013b0| 73 00 0e 07 82 7c 00 cf | 08 40 0e 06 5c 22 1d d1 |s....|..|.@..\"..|
|000013c0| cc 0d 38 3e 29 87 22 20 | 5b 61 20 74 20 6d 61 74 |..8>)." |[a t mat|
|000013d0| 68 2d 73 63 61 6c 61 72 | 2d 66 75 6e 63 74 69 6f |h-scalar|-functio|
|000013e0| 6e 73 20 6d 61 74 68 2d | 72 65 61 6c 2d 73 63 61 |ns math-|real-sca|
|000013f0| 6c 61 72 2d 66 75 6e 63 | 74 69 6f 6e 73 20 6d 61 |lar-func|tions ma|
|00001400| 74 68 2d 73 63 61 6c 61 | 72 2d 69 66 2d 61 72 67 |th-scala|r-if-arg|
|00001410| 73 2d 66 75 6e 63 74 69 | 6f 6e 73 20 64 65 63 6c |s-functi|ons decl|
|00001420| 20 6d 61 74 68 2d 64 65 | 63 6c 73 2d 63 61 63 68 | math-de|cls-cach|
|00001430| 65 20 6d 61 74 68 2d 64 | 65 63 6c 73 2d 61 6c 6c |e math-d|ecls-all|
|00001440| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00001450| 66 72 61 63 20 66 6c 6f | 61 74 20 63 70 6c 78 20 |frac flo|at cplx |
|00001460| 70 6f 6c 61 72 20 68 6d | 73 20 64 61 74 65 20 73 |polar hm|s date s|
|00001470| 64 65 76 20 69 6e 74 76 | 20 6d 6f 64 29 20 6d 61 |dev intv| mod) ma|
|00001480| 74 68 2d 63 68 65 63 6b | 2d 6b 6e 6f 77 6e 2d 73 |th-check|-known-s|
|00001490| 63 61 6c 61 72 70 20 6e | 69 6c 20 5e 20 31 20 6d |calarp n|il ^ 1 m|
|000014a0| 61 74 68 2d 63 6f 6e 73 | 74 2d 76 61 72 20 76 61 |ath-cons|t-var va|
|000014b0| 72 20 61 73 73 71 20 32 | 20 73 63 61 6c 61 72 5d |r assq 2| scalar]|
|000014c0| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 | 8))..(d|efun mat|
|000014d0| 68 2d 63 68 65 63 6b 2d | 6b 6e 6f 77 6e 2d 6d 61 |h-check-|known-ma|
|000014e0| 74 72 69 78 70 20 28 61 | 29 20 28 62 79 74 65 2d |trixp (a|) (byte-|
|000014f0| 63 6f 64 65 20 22 08 3a | 3f 86 0a 00 08 40 c8 3e |code ".:|?....@.>|
|00001500| 83 11 00 c1 82 78 00 08 | 40 0a 3e 83 1c 00 c3 82 |.....x..|@.>.....|
|00001510| 78 00 08 40 0c 3e 83 3c | 00 08 41 89 10 85 2f 00 |x..@.>.<|..A.../.|
|00001520| c9 08 40 21 3f 85 37 00 | c1 88 82 23 00 88 08 82 |..@!?.7.|...#....|
|00001530| 78 00 08 40 ca 3d 83 4b | 00 c9 cb 08 38 21 82 78 |x..@.=.K|....8!.x|
|00001540| 00 cc 08 21 83 55 00 c1 | 82 78 00 08 40 cd 3d 83 |...!.U..|.x..@.=.|
|00001550| 6b 00 ce cf 08 38 0e 06 | 5c 22 86 68 00 0e 07 82 |k....8..|\".h....|
|00001560| 71 00 ce 08 40 0e 06 5c | 22 1d d0 cb 0d 38 3e 29 |q...@..\|"....8>)|
|00001570| 87 22 20 5b 61 20 6e 69 | 6c 20 6d 61 74 68 2d 6e |." [a ni|l math-n|
|00001580| 6f 6e 73 63 61 6c 61 72 | 2d 66 75 6e 63 74 69 6f |onscalar|-functio|
|00001590| 6e 73 20 74 20 6d 61 74 | 68 2d 73 63 61 6c 61 72 |ns t mat|h-scalar|
|000015a0| 2d 69 66 2d 61 72 67 73 | 2d 66 75 6e 63 74 69 6f |-if-args|-functio|
|000015b0| 6e 73 20 64 65 63 6c 20 | 6d 61 74 68 2d 64 65 63 |ns decl |math-dec|
|000015c0| 6c 73 2d 63 61 63 68 65 | 20 6d 61 74 68 2d 64 65 |ls-cache| math-de|
|000015d0| 63 6c 73 2d 61 6c 6c 20 | 28 62 69 67 70 6f 73 20 |cls-all |(bigpos |
|000015e0| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|000015f0| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 20 68 6d 73 |t cplx p|olar hms|
|00001600| 20 64 61 74 65 20 73 64 | 65 76 20 69 6e 74 76 20 | date sd|ev intv |
|00001610| 6d 6f 64 29 20 6d 61 74 | 68 2d 63 68 65 63 6b 2d |mod) mat|h-check-|
|00001620| 6b 6e 6f 77 6e 2d 6d 61 | 74 72 69 78 70 20 5e 20 |known-ma|trixp ^ |
|00001630| 31 20 6d 61 74 68 2d 63 | 6f 6e 73 74 2d 76 61 72 |1 math-c|onst-var|
|00001640| 20 76 61 72 20 61 73 73 | 71 20 32 20 76 65 63 74 | var ass|q 2 vect|
|00001650| 6f 72 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 |or] 8)).|.(defun |
|00001660| 6d 61 74 68 2d 6b 6e 6f | 77 6e 2d 72 65 61 6c 70 |math-kno|wn-realp|
|00001670| 20 28 61 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (a) (by|te-code |
|00001680| 22 c1 08 21 c2 57 87 22 | 20 5b 61 20 6d 61 74 68 |"..!.W."| [a math|
|00001690| 2d 70 6f 73 73 69 62 6c | 65 2d 73 69 67 6e 73 20 |-possibl|e-signs |
|000016a0| 38 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |8] 3))..|(defun m|
|000016b0| 61 74 68 2d 6b 6e 6f 77 | 6e 2d 70 6f 73 70 20 28 |ath-know|n-posp (|
|000016c0| 61 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |a) (byte|-code ".|
|000016d0| 08 21 c2 3d 87 22 20 5b | 61 20 6d 61 74 68 2d 70 |.!.=." [|a math-p|
|000016e0| 6f 73 73 69 62 6c 65 2d | 73 69 67 6e 73 20 34 5d |ossible-|signs 4]|
|000016f0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 | 3))..(d|efun mat|
|00001700| 68 2d 6b 6e 6f 77 6e 2d | 6e 65 67 70 20 28 61 29 |h-known-|negp (a)|
|00001710| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|00001720| c2 3d 87 22 20 5b 61 20 | 6d 61 74 68 2d 70 6f 73 |.=." [a |math-pos|
|00001730| 73 69 62 6c 65 2d 73 69 | 67 6e 73 20 31 5d 20 33 |sible-si|gns 1] 3|
|00001740| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00001750| 6b 6e 6f 77 6e 2d 6e 6f | 6e 6e 65 67 70 20 28 61 |known-no|nnegp (a|
|00001760| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 08 |) (byte-|code "..|
|00001770| 21 c2 3e 87 22 20 5b 61 | 20 6d 61 74 68 2d 70 6f |!.>." [a| math-po|
|00001780| 73 73 69 62 6c 65 2d 73 | 69 67 6e 73 20 28 32 20 |ssible-s|igns (2 |
|00001790| 34 20 36 29 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |4 6)] 3)|)..(defu|
|000017a0| 6e 20 6d 61 74 68 2d 6b | 6e 6f 77 6e 2d 6e 6f 6e |n math-k|nown-non|
|000017b0| 70 6f 73 70 20 28 61 29 | 20 28 62 79 74 65 2d 63 |posp (a)| (byte-c|
|000017c0| 6f 64 65 20 22 c1 08 21 | c2 3e 87 22 20 5b 61 20 |ode "..!|.>." [a |
|000017d0| 6d 61 74 68 2d 70 6f 73 | 73 69 62 6c 65 2d 73 69 |math-pos|sible-si|
|000017e0| 67 6e 73 20 28 31 20 32 | 20 33 29 5d 20 33 29 29 |gns (1 2| 3)] 3))|
|000017f0| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 6b 6e |..(defun| math-kn|
|00001800| 6f 77 6e 2d 6e 6f 6e 7a | 65 72 6f 70 20 28 61 29 |own-nonz|erop (a)|
|00001810| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|00001820| c2 3e 87 22 20 5b 61 20 | 6d 61 74 68 2d 70 6f 73 |.>." [a |math-pos|
|00001830| 73 69 62 6c 65 2d 73 69 | 67 6e 73 20 28 31 20 34 |sible-si|gns (1 4|
|00001840| 20 35 20 38 20 39 20 31 | 32 20 31 33 29 5d 20 33 | 5 8 9 1|2 13)] 3|
|00001850| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00001860| 67 75 65 73 73 2d 69 66 | 2d 6e 65 67 20 28 61 29 |guess-if|-neg (a)|
|00001870| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c4 09 21 | (byte-c|ode "..!|
|00001880| 18 08 c5 3e 83 0e 00 c2 | 82 1b 00 08 c6 3e 83 18 |...>....|.....>..|
|00001890| 00 c3 82 1b 00 c7 09 21 | 29 87 22 20 5b 73 67 6e |.......!|)." [sgn|
|000018a0| 20 61 20 74 20 6e 69 6c | 20 6d 61 74 68 2d 70 6f | a t nil| math-po|
|000018b0| 73 73 69 62 6c 65 2d 73 | 69 67 6e 73 20 28 31 20 |ssible-s|igns (1 |
|000018c0| 33 29 20 28 32 20 34 20 | 36 29 20 6d 61 74 68 2d |3) (2 4 |6) math-|
|000018d0| 6c 6f 6f 6b 73 2d 6e 65 | 67 70 5d 20 33 29 29 0a |looks-ne|gp] 3)).|
|000018e0| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 70 6f 73 |.(defun |math-pos|
|000018f0| 73 69 62 6c 65 2d 73 69 | 67 6e 73 20 28 61 20 26 |sible-si|gns (a &|
|00001900| 6f 70 74 69 6f 6e 61 6c | 20 6f 72 69 67 69 6e 29 |optional| origin)|
|00001910| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 3a 3f | (byte-c|ode ".:?|
|00001920| 86 0a 00 08 40 d2 3e 83 | 60 01 09 85 17 00 d3 08 |....@.>.|`.......|
|00001930| 09 5c 22 89 10 88 08 3a | 83 51 00 08 40 d4 3d 86 |.\"....:|.Q..@.=.|
|00001940| 4e 00 08 40 d5 3d 3f 85 | 4e 00 08 40 d6 3e 83 4b |N..@.=?.|N..@.>.K|
|00001950| 00 d7 08 38 3a 83 43 00 | d7 08 38 40 d4 3d 82 48 |...8:.C.|..8@.=.H|
|00001960| 00 d7 08 38 d8 56 82 4e | 00 d9 08 21 82 54 00 08 |...8.V.N|...!.T..|
|00001970| d8 56 83 5b 00 da 82 5d | 01 08 3a 83 94 00 08 40 |.V.[...]|..:....@|
|00001980| d5 3d 86 91 00 08 40 d4 | 3d 3f 85 91 00 08 40 db |.=....@.|=?....@.|
|00001990| 3e 83 8e 00 d7 08 38 3a | 83 86 00 d7 08 38 40 d5 |>.....8:|.....8@.|
|000019a0| 3d 82 8b 00 d7 08 38 d8 | 57 82 91 00 dc 08 21 82 |=.....8.|W.....!.|
|000019b0| 97 00 08 d8 57 83 9e 00 | d7 82 5d 01 08 3a 83 c0 |....W...|..]..:..|
|000019c0| 00 08 40 dd 3e 3f 85 bd | 00 08 40 de 3d 83 ba 00 |..@.>?..|..@.=...|
|000019d0| d7 08 38 d8 3d 82 bd 00 | df 08 21 82 c3 00 08 d8 |..8.=...|..!.....|
|000019e0| 3d 83 ca 00 e0 82 5d 01 | 08 40 e1 3d 83 45 01 e0 |=.....].|.@.=.E..|
|000019f0| 08 38 3a 83 fd 00 e0 08 | 38 40 e2 3e 3f 85 fa 00 |.8:.....|8@.>?...|
|00001a00| e0 08 38 40 de 3d 83 f5 | 00 d7 e0 08 38 38 d8 3d |..8@.=..|....88.=|
|00001a10| 82 fa 00 df e0 08 38 21 | 82 02 01 e0 08 38 d8 3d |......8!|.....8.=|
|00001a20| 83 09 01 e3 82 42 01 e4 | 08 38 3a 83 35 01 e4 08 |.....B..|.8:.5...|
|00001a30| 38 40 e5 3e 3f 85 32 01 | e4 08 38 40 de 3d 83 2d |8@.>?.2.|..8@.=.-|
|00001a40| 01 d7 e4 08 38 38 d8 3d | 82 32 01 df e4 08 38 21 |....88.=|.2....8!|
|00001a50| 82 3a 01 e4 08 38 d8 3d | 83 41 01 e4 82 42 01 e6 |.:...8.=|.A...B..|
|00001a60| 82 5d 01 08 40 e7 3d 83 | 5c 5c 01 e8 d7 08 38 21 |.]..@.=.|\\....8!|
|00001a70| 83 58 01 e6 82 59 01 e9 | 82 5d 01 ea 82 8c 08 08 |.X...Y..|.]......|
|00001a80| 40 eb 3e 83 7d 02 d7 08 | 38 3a 3f 86 75 01 d7 08 |@.>.}...|8:?.u...|
|00001a90| 38 40 ec 3e 83 b3 01 08 | 40 ed 3d 83 99 01 ee ef |8@.>....|@.=.....|
|00001aa0| e0 08 38 09 83 91 01 f0 | 09 d7 08 38 5c 22 82 94 |..8.....|...8\"..|
|00001ab0| 01 d7 08 38 5c 22 21 82 | b0 01 ef e0 08 38 09 83 |...8\"!.|.....8..|
|00001ac0| aa 01 d3 09 d7 08 38 5c | 22 82 af 01 f1 d7 08 38 |......8\|"......8|
|00001ad0| 21 5c 22 82 7a 02 e0 08 | 38 3a 3f 86 c1 01 e0 08 |!\".z...|8:?.....|
|00001ae0| 38 40 f2 3e 83 ec 01 08 | 40 ed 3d 83 d1 01 e0 08 |8@.>....|@.=.....|
|00001af0| 38 82 d6 01 f1 e0 08 38 | 21 1b ef d7 08 38 09 83 |8......8|!....8..|
|00001b00| e6 01 f0 09 0b 5c 22 82 | e7 01 0b 5c 22 29 82 7a |.....\".|...\").z|
|00001b10| 02 ef d7 08 38 09 5c 22 | ef e0 08 38 21 1d 1c 08 |....8.\"|...8!...|
|00001b20| 40 ed 3d 85 05 02 ee 0d | 21 89 15 88 0c 0d 3d 83 |@.=.....|!.....=.|
|00001b30| 10 02 0c 82 79 02 0c e0 | 3d 83 1a 02 0d 82 79 02 |....y...|=.....y.|
|00001b40| 0d e0 3d 83 24 02 0c 82 | 79 02 0c ea 59 83 2e 02 |..=.$...|y...Y...|
|00001b50| e9 82 79 02 0d ea 59 83 | 38 02 e9 82 79 02 0c da |..y...Y.|8...y...|
|00001b60| 3d 85 41 02 0d e3 3d 83 | 48 02 da 82 79 02 0d da |=.A...=.|H...y...|
|00001b70| 3d 85 51 02 0c e3 3d 83 | 58 02 da 82 79 02 0c d7 |=.Q...=.|X...y...|
|00001b80| 3d 85 61 02 0d e4 3d 83 | 68 02 d7 82 79 02 0d d7 |=.a...=.|h...y...|
|00001b90| 3d 85 71 02 0c e4 3d 83 | 78 02 d7 82 79 02 e6 2a |=.q...=.|x...y..*|
|00001ba0| 82 8c 08 08 40 f3 3d 83 | 95 02 ee ef d7 08 38 09 |....@.=.|......8.|
|00001bb0| 85 90 02 f1 09 21 5c 22 | 21 82 8c 08 09 85 c8 02 |.....!\"|!.......|
|00001bc0| 09 3a 83 bb 02 09 40 f4 | 3e 3f 85 b8 02 09 40 de |.:....@.|>?....@.|
|00001bd0| 3d 83 b5 02 d7 09 38 d8 | 3d 82 b8 02 df 09 21 82 |=.....8.|=.....!.|
|00001be0| be 02 09 d8 3d 85 c8 02 | c6 89 11 85 c8 02 c6 86 |....=...|........|
|00001bf0| 8c 08 08 40 f5 3d 86 da | 02 08 40 f6 3d 85 da 02 |...@.=..|..@.=...|
|00001c00| 09 85 eb 02 d7 08 38 3a | 3f 86 eb 02 d7 08 38 40 |......8:|?.....8@|
|00001c10| f7 3e 83 af 03 08 40 f5 | 3d 83 42 03 d7 08 38 3a |.>....@.|=.B...8:|
|00001c20| 83 21 03 d7 08 38 40 f8 | 3e 3f 85 1e 03 d7 08 38 |.!...8@.|>?.....8|
|00001c30| 40 de 3d 83 19 03 d7 d7 | 08 38 38 d8 3d 82 1e 03 |@.=.....|.88.=...|
|00001c40| df d7 08 38 21 82 26 03 | d7 08 38 d8 3d 83 30 03 |...8!.&.|..8.=.0.|
|00001c50| ef d8 09 5c 22 82 3f 03 | ef e0 08 38 f9 09 86 3a |...\".?.|...8...:|
|00001c60| 03 d8 d7 08 38 5c 22 5c | 22 82 4f 03 ee ef e0 08 |....8\"\|".O.....|
|00001c70| 38 f9 d7 08 38 09 5c 22 | 5c 22 21 1e 07 d7 08 38 |8...8.\"|\"!....8|
|00001c80| 3a 83 9a 03 d7 08 38 40 | d5 3d 86 97 03 d7 08 38 |:.....8@|.=.....8|
|00001c90| 40 d4 3d 3f 85 97 03 d7 | 08 38 40 fa 3e 83 92 03 |@.=?....|.8@.>...|
|00001ca0| d7 d7 08 38 38 3a 83 88 | 03 d7 d7 08 38 38 40 d5 |...88:..|....88@.|
|00001cb0| 3d 82 8f 03 d7 d7 08 38 | 38 d8 57 82 97 03 dc d7 |=......8|8.W.....|
|00001cc0| 08 38 21 82 9f 03 d7 08 | 38 d8 57 83 a9 03 ee 0e |.8!.....|8.W.....|
|00001cd0| 07 21 82 ab 03 0e 07 29 | 82 8c 08 08 40 fb 3e 85 |.!.....)|....@.>.|
|00001ce0| c4 03 e0 08 38 3a 3f 86 | c4 03 e0 08 38 40 fc 3e |....8:?.|....8@.>|
|00001cf0| 83 4a 04 ef d7 08 38 08 | 40 f5 3d 83 df 03 fd 09 |.J....8.|@.=.....|
|00001d00| 86 d8 03 d8 e0 08 38 5c | 22 82 e9 03 f9 09 86 e5 |......8\|".......|
|00001d10| 03 d8 e0 08 38 5c 22 5c | 22 1e 07 e0 08 38 3a 83 |....8\"\|"....8:.|
|00001d20| 35 04 e0 08 38 40 d5 3d | 86 32 04 e0 08 38 40 d4 |5...8@.=|.2...8@.|
|00001d30| 3d 3f 85 32 04 e0 08 38 | 40 fe 3e 83 2d 04 d7 e0 |=?.2...8|@.>.-...|
|00001d40| 08 38 38 3a 83 23 04 d7 | e0 08 38 38 40 d5 3d 82 |.88:.#..|..88@.=.|
|00001d50| 2a 04 d7 e0 08 38 38 d8 | 57 82 32 04 dc e0 08 38 |*....88.|W.2....8|
|00001d60| 21 82 3a 04 e0 08 38 d8 | 57 83 44 04 ee 0e 07 21 |!.:...8.|W.D....!|
|00001d70| 82 46 04 0e 07 29 82 8c | 08 08 40 ff 3d 83 7b 04 |.F...)..|..@.=.{.|
|00001d80| d8 1e 08 08 41 89 10 85 | 5f 04 0e 08 e9 57 85 74 |....A...|_....W.t|
|00001d90| 04 81 40 00 0e 08 ef 08 | 40 09 5c 22 5c 22 89 16 |..@.....|@.\"\"..|
|00001da0| 08 88 82 54 04 88 0e 08 | 29 82 8c 08 08 40 81 41 |...T....|)....@.A|
|00001db0| 00 3e 83 e8 04 ef d7 08 | 38 21 ef e0 08 38 21 1d |.>......|8!...8!.|
|00001dc0| 1c 0c ea 59 83 9a 04 e9 | 82 e4 04 0d ea 59 83 a4 |...Y....|.....Y..|
|00001dd0| 04 e9 82 e4 04 08 40 f6 | 3d 85 b0 04 0d 81 42 00 |......@.|=.....B.|
|00001de0| 3e 83 b7 04 e9 82 e4 04 | 81 40 00 0c 81 43 00 3e |>.......|.@...C.>|
|00001df0| 83 c6 04 0d 82 c7 04 d8 | 0c 81 44 00 3e 83 d3 04 |........|..D.>...|
|00001e00| e0 82 d4 04 d8 0c 81 45 | 00 3e 83 e2 04 ee 0d 21 |.......E|.>.....!|
|00001e10| 82 e3 04 d8 23 2a 82 21 | 07 08 40 81 46 00 3d 83 |....#*.!|..@.F.=.|
|00001e20| 8f 05 ef d7 08 38 21 ef | e0 08 38 21 1d 1c 0c ea |.....8!.|..8!....|
|00001e30| 59 83 07 05 e9 82 8b 05 | 0d ea 59 83 11 05 e9 82 |Y.......|..Y.....|
|00001e40| 8b 05 0c da 3d 83 1b 05 | da 82 8b 05 0c e0 3d 83 |....=...|......=.|
|00001e50| 2f 05 0d da 3d 83 2b 05 | e0 82 2c 05 e9 82 8b 05 |/...=.+.|..,.....|
|00001e60| 0d e0 3d 83 45 05 0c 81 | 47 00 3e 83 41 05 e0 82 |..=.E...|G.>.A...|
|00001e70| 42 05 e9 82 8b 05 e0 08 | 38 3a 3f 86 55 05 e0 08 |B.......|8:?.U...|
|00001e80| 38 40 81 48 00 3e 83 76 | 05 81 49 00 e0 08 38 21 |8@.H.>.v|..I...8!|
|00001e90| 83 72 05 0c 81 4a 00 3e | 83 6e 05 e3 82 6f 05 da |.r...J.>|.n...o..|
|00001ea0| 82 73 05 0c 82 8b 05 0c | e3 3d 83 8a 05 0d da 3d |.s......|.=.....=|
|00001eb0| 83 86 05 e3 82 87 05 e9 | 82 8b 05 e6 2a 82 21 07 |........|....*.!.|
|00001ec0| 08 40 81 4b 00 3d 83 cf | 05 ef e0 08 38 21 1d 0d |.@.K.=..|....8!..|
|00001ed0| ea 59 83 a8 05 e6 82 cb | 05 0d e0 3d 83 b2 05 e0 |.Y......|...=....|
|00001ee0| 82 cb 05 0d 81 4c 00 3e | 83 be 05 e3 82 cb 05 0d |.....L.>|........|
|00001ef0| 81 4d 00 3e 83 ca 05 e4 | 82 cb 05 e6 29 82 21 07 |.M.>....|....).!.|
|00001f00| 08 40 81 4e 00 3e 85 dc | 05 08 47 e0 55 83 00 06 |.@.N.>..|..G.U...|
|00001f10| ef d7 08 38 21 1c 0c e0 | 3d 83 ef 05 e0 82 fc 05 |...8!...|=.......|
|00001f20| 0c 81 4f 00 3e 83 fb 05 | da 82 fc 05 e3 29 82 21 |..O.>...|.....).!|
|00001f30| 07 08 40 81 50 00 3d 85 | 0d 06 08 47 e0 55 83 6d |..@.P.=.|...G.U.m|
|00001f40| 06 ef d7 08 38 21 1c 0c | ea 59 83 20 06 e9 82 69 |....8!..|.Y. ...i|
|00001f50| 06 09 3f 86 28 06 dc 09 | 21 83 2f 06 da 82 69 06 |..?.(...|!./...i.|
|00001f60| d3 09 86 35 06 d8 d7 5c | 22 89 11 88 09 3a 83 5e |...5...\|"....:.^|
|00001f70| 06 09 40 81 51 00 3e 3f | 85 5b 06 09 40 de 3d 83 |..@.Q.>?|.[..@.=.|
|00001f80| 58 06 d7 09 38 d8 3d 82 | 5b 06 df 09 21 82 61 06 |X...8.=.|[...!.a.|
|00001f90| 09 d8 3d 85 67 06 c6 89 | 11 88 0c 29 82 21 07 08 |..=.g...|...).!..|
|00001fa0| 40 81 52 00 3e 85 7a 06 | 08 47 e0 55 86 94 06 08 |@.R.>.z.|.G.U....|
|00001fb0| 40 81 53 00 3d 85 94 06 | 08 47 e4 55 85 94 06 81 |@.S.=...|.G.U....|
|00001fc0| 54 00 e0 08 38 21 83 ae | 06 81 55 00 d7 08 38 21 |T...8!..|..U...8!|
|00001fd0| 83 aa 06 ef d7 08 38 d7 | 5c 22 82 ab 06 e9 82 21 |......8.|\".....!|
|00001fe0| 07 08 40 81 56 00 3d 85 | bb 06 08 47 e0 55 83 d5 |..@.V.=.|...G.U..|
|00001ff0| 06 ef d7 08 38 21 1c 0c | 81 57 00 3e 83 d0 06 0c |....8!..|.W.>....|
|00002000| 82 d1 06 e9 29 82 21 07 | 08 40 0e 0a 3e 83 e1 06 |....).!.|.@..>...|
|00002010| e3 82 21 07 08 40 0e 0b | 3e 83 ed 06 da 82 21 07 |..!..@..|>.....!.|
|00002020| 08 40 0e 0c 3e 83 f9 06 | e6 82 21 07 08 40 0e 0d |.@..>...|..!..@..|
|00002030| 3e 83 05 07 e6 82 21 07 | 08 40 0e 0e 3e 85 11 07 |>.....!.|.@..>...|
|00002040| 08 47 e0 55 85 21 07 e8 | d7 08 38 21 83 20 07 e6 |.G.U.!..|..8!. ..|
|00002050| 82 21 07 e9 1e 09 0e 09 | 83 9c 07 09 83 97 07 81 |.!......|........|
|00002060| 58 00 0e 09 ea 5c 22 09 | 3a 83 6e 07 09 40 d4 3d |X....\".|:.n..@.=|
|00002070| 86 6b 07 09 40 d5 3d 3f | 85 6b 07 09 40 81 59 00 |.k..@.=?|.k..@.Y.|
|00002080| 3e 83 68 07 d7 09 38 3a | 83 60 07 d7 09 38 40 d4 |>.h...8:|.`...8@.|
|00002090| 3d 82 65 07 d7 09 38 d8 | 56 82 6b 07 d9 09 21 82 |=.e...8.|V.k...!.|
|000020a0| 71 07 09 d8 56 83 85 07 | 0e 09 81 5a 00 3e 83 81 |q...V...|...Z.>..|
|000020b0| 07 d7 82 82 07 e6 82 93 | 07 0e 09 81 5b 00 3e 83 |........|....[.>.|
|000020c0| 92 07 da 82 93 07 e6 5c | 5c 82 99 07 0e 09 82 8b |.......\|\.......|
|000020d0| 08 81 5c 5c 00 08 21 83 | 0c 08 e0 08 38 81 5d 00 |..\\..!.|....8.].|
|000020e0| 3d 83 c0 07 09 83 bc 07 | ef 81 5e 00 20 09 5c 22 |=.......|..^. .\"|
|000020f0| 82 bd 07 da 82 09 08 e0 | 08 38 81 5f 00 3d 83 dc |........|.8._.=..|
|00002100| 07 09 83 d8 07 ef 81 60 | 00 20 09 5c 22 82 d9 07 |.......`|. .\"...|
|00002110| da 82 09 08 e0 08 38 81 | 61 00 3d 83 ea 07 da 82 |......8.|a.=.....|
|00002120| 09 08 e0 08 38 81 62 00 | 3d 83 fa 07 81 63 00 82 |....8.b.|=....c..|
|00002130| 09 08 e0 08 38 81 64 00 | 3d 83 08 08 ea 82 09 08 |....8.d.|=.......|
|00002140| e9 82 8b 08 81 65 00 20 | 88 08 40 81 66 00 3d 83 |.....e. |..@.f.=.|
|00002150| 2b 08 81 67 00 e0 08 38 | 0e 10 5c 22 86 28 08 0e |+..g...8|..\".(..|
|00002160| 11 82 33 08 81 67 00 08 | 40 0e 10 5c 22 1e 0f 09 |..3..g..|@..\"...|
|00002170| 85 60 08 81 68 00 d7 0e | 0f 38 3e 85 60 08 09 3a |.`..h...|.8>.`..:|
|00002180| 3f 86 5f 08 09 40 81 69 | 00 3e 86 5f 08 09 40 de |?._..@.i|.>._..@.|
|00002190| 3d 85 5f 08 e0 09 38 d8 | 59 3f 83 69 08 81 6a 00 |=._...8.|Y?.i..j.|
|000021a0| 82 8a 08 e0 0e 0f 38 83 | 7a 08 ef e0 0e 0f 38 09 |......8.|z.....8.|
|000021b0| 5c 22 82 8a 08 81 6b 00 | d7 0e 0f 38 3e 83 89 08 |\"....k.|...8>...|
|000021c0| e6 82 8a 08 e9 29 29 87 | 22 20 5b 61 20 6f 72 69 |.....)).|" [a ori|
|000021d0| 67 69 6e 20 74 20 6f 72 | 67 20 73 31 20 73 32 20 |gin t or|g s1 s2 |
|000021e0| 6e 69 6c 20 73 20 73 69 | 67 6e 73 20 73 69 67 6e |nil s si|gns sign|
|000021f0| 20 6d 61 74 68 2d 6e 6f | 6e 6e 65 67 61 74 69 76 | math-no|nnegativ|
|00002200| 65 2d 66 75 6e 63 74 69 | 6f 6e 73 20 6d 61 74 68 |e-functi|ons math|
|00002210| 2d 70 6f 73 69 74 69 76 | 65 2d 66 75 6e 63 74 69 |-positiv|e-functi|
|00002220| 6f 6e 73 20 6d 61 74 68 | 2d 72 65 61 6c 2d 66 75 |ons math|-real-fu|
|00002230| 6e 63 74 69 6f 6e 73 20 | 6d 61 74 68 2d 72 65 61 |nctions |math-rea|
|00002240| 6c 2d 73 63 61 6c 61 72 | 2d 66 75 6e 63 74 69 6f |l-scalar|-functio|
|00002250| 6e 73 20 6d 61 74 68 2d | 72 65 61 6c 2d 69 66 2d |ns math-|real-if-|
|00002260| 61 72 67 2d 66 75 6e 63 | 74 69 6f 6e 73 20 64 65 |arg-func|tions de|
|00002270| 63 6c 20 6d 61 74 68 2d | 64 65 63 6c 73 2d 63 61 |cl math-|decls-ca|
|00002280| 63 68 65 20 6d 61 74 68 | 2d 64 65 63 6c 73 2d 61 |che math|-decls-a|
|00002290| 6c 6c 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |ll (bigp|os bigne|
|000022a0| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 63 70 6c |g frac f|loat cpl|
|000022b0| 78 20 70 6f 6c 61 72 20 | 68 6d 73 20 64 61 74 65 |x polar |hms date|
|000022c0| 20 73 64 65 76 20 69 6e | 74 76 20 6d 6f 64 29 20 | sdev in|tv mod) |
|000022d0| 6d 61 74 68 2d 73 75 62 | 20 62 69 67 70 6f 73 20 |math-sub| bigpos |
|000022e0| 62 69 67 6e 65 67 20 28 | 66 72 61 63 20 66 6c 6f |bigneg (|frac flo|
|000022f0| 61 74 29 20 31 20 30 20 | 6d 61 74 68 2d 70 6f 73 |at) 1 0 |math-pos|
|00002300| 70 20 34 20 28 66 72 61 | 63 20 66 6c 6f 61 74 29 |p 4 (fra|c float)|
|00002310| 20 6d 61 74 68 2d 6e 65 | 67 70 20 28 62 69 67 70 | math-ne|gp (bigp|
|00002320| 6f 73 20 62 69 67 6e 65 | 67 29 20 66 6c 6f 61 74 |os bigne|g) float|
|00002330| 20 6d 61 74 68 2d 7a 65 | 72 6f 70 20 32 20 69 6e | math-ze|rop 2 in|
|00002340| 74 76 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |tv (bigp|os bigne|
|00002350| 67 29 20 36 20 33 20 28 | 62 69 67 70 6f 73 20 62 |g) 6 3 (|bigpos b|
|00002360| 69 67 6e 65 67 29 20 37 | 20 73 64 65 76 20 6d 61 |igneg) 7| sdev ma|
|00002370| 74 68 2d 6b 6e 6f 77 6e | 2d 72 65 61 6c 70 20 31 |th-known|-realp 1|
|00002380| 35 20 38 20 28 2b 20 2d | 29 20 28 62 69 67 70 6f |5 8 (+ -|) (bigpo|
|00002390| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|000023a0| 6f 61 74 29 20 2d 20 6d | 61 74 68 2d 6e 65 67 2d |oat) - m|ath-neg-|
|000023b0| 73 69 67 6e 73 20 6d 61 | 74 68 2d 70 6f 73 73 69 |signs ma|th-possi|
|000023c0| 62 6c 65 2d 73 69 67 6e | 73 20 6d 61 74 68 2d 61 |ble-sign|s math-a|
|000023d0| 64 64 20 6d 61 74 68 2d | 6e 65 67 20 28 62 69 67 |dd math-|neg (big|
|000023e0| 70 6f 73 20 62 69 67 6e | 65 67 20 66 72 61 63 20 |pos bign|eg frac |
|000023f0| 66 6c 6f 61 74 29 20 6e | 65 67 20 28 62 69 67 70 |float) n|eg (bigp|
|00002400| 6f 73 20 62 69 67 6e 65 | 67 29 20 2a 20 2f 20 28 |os bigne|g) * / (|
|00002410| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00002420| 61 63 20 66 6c 6f 61 74 | 29 20 28 62 69 67 70 6f |ac float|) (bigpo|
|00002430| 73 20 62 69 67 6e 65 67 | 29 20 6d 61 74 68 2d 64 |s bigneg|) math-d|
|00002440| 69 76 20 28 66 72 61 63 | 20 66 6c 6f 61 74 29 20 |iv (frac| float) |
|00002450| 28 2a 20 2f 29 20 28 62 | 69 67 70 6f 73 20 62 69 |(* /) (b|igpos bi|
|00002460| 67 6e 65 67 20 66 72 61 | 63 20 66 6c 6f 61 74 29 |gneg fra|c float)|
|00002470| 20 6d 61 74 68 2d 6d 75 | 6c 20 28 66 72 61 63 20 | math-mu|l (frac |
|00002480| 66 6c 6f 61 74 29 20 76 | 65 63 20 6c 6f 67 69 6f |float) v|ec logio|
|00002490| 72 20 28 2a 20 2f 29 20 | 28 32 20 33 20 36 20 37 |r (* /) |(2 3 6 7|
|000024a0| 29 20 28 34 20 35 20 36 | 20 37 29 20 28 32 20 33 |) (4 5 6| 7) (2 3|
|000024b0| 20 36 20 37 29 20 28 31 | 20 33 20 35 20 37 29 20 | 6 7) (1| 3 5 7) |
|000024c0| 5e 20 28 31 20 35 29 20 | 28 62 69 67 70 6f 73 20 |^ (1 5) |(bigpos |
|000024d0| 62 69 67 6e 65 67 29 20 | 6d 61 74 68 2d 65 76 65 |bigneg) |math-eve|
|000024e0| 6e 70 20 28 33 20 36 20 | 37 29 20 25 20 28 34 20 |np (3 6 |7) % (4 |
|000024f0| 36 29 20 28 31 20 33 29 | 20 28 63 61 6c 63 46 75 |6) (1 3)| (calcFu|
|00002500| 6e 63 2d 61 62 73 20 63 | 61 6c 63 46 75 6e 63 2d |nc-abs c|alcFunc-|
|00002510| 61 62 73 73 71 72 29 20 | 28 31 20 34 20 35 29 20 |abssqr) |(1 4 5) |
|00002520| 63 61 6c 63 46 75 6e 63 | 2d 65 78 70 20 28 62 69 |calcFunc|-exp (bi|
|00002530| 67 70 6f 73 20 62 69 67 | 6e 65 67 29 20 28 63 61 |gpos big|neg) (ca|
|00002540| 6c 63 46 75 6e 63 2d 6c | 6e 20 63 61 6c 63 46 75 |lcFunc-l|n calcFu|
|00002550| 6e 63 2d 6c 6f 67 31 30 | 29 20 63 61 6c 63 46 75 |nc-log10|) calcFu|
|00002560| 6e 63 2d 6c 6f 67 20 6d | 61 74 68 2d 6b 6e 6f 77 |nc-log m|ath-know|
|00002570| 6e 2d 70 6f 73 70 20 6d | 61 74 68 2d 6b 6e 6f 77 |n-posp m|ath-know|
|00002580| 6e 2d 6e 6f 6e 6e 65 67 | 70 20 63 61 6c 63 46 75 |n-nonneg|p calcFu|
|00002590| 6e 63 2d 73 71 72 74 20 | 28 32 20 34 20 36 29 20 |nc-sqrt |(2 4 6) |
|000025a0| 6c 6f 67 61 6e 64 20 28 | 66 72 61 63 20 66 6c 6f |logand (|frac flo|
|000025b0| 61 74 29 20 28 31 20 32 | 20 33 20 38 20 39 20 31 |at) (1 2| 3 8 9 1|
|000025c0| 30 20 31 31 29 20 28 32 | 20 34 20 36 20 38 20 31 |0 11) (2| 4 6 8 1|
|000025d0| 30 20 31 32 20 31 34 29 | 20 6d 61 74 68 2d 63 6f |0 12 14)| math-co|
|000025e0| 6e 73 74 2d 76 61 72 20 | 76 61 72 2d 70 69 20 6d |nst-var |var-pi m|
|000025f0| 61 74 68 2d 70 69 20 76 | 61 72 2d 65 20 6d 61 74 |ath-pi v|ar-e mat|
|00002600| 68 2d 65 20 76 61 72 2d | 69 6e 66 20 76 61 72 2d |h-e var-|inf var-|
|00002610| 75 69 6e 66 20 31 33 20 | 76 61 72 2d 69 20 6d 61 |uinf 13 |var-i ma|
|00002620| 74 68 2d 73 65 74 75 70 | 2d 64 65 63 6c 61 72 61 |th-setup|-declara|
|00002630| 74 69 6f 6e 73 20 76 61 | 72 20 61 73 73 71 20 69 |tions va|r assq i|
|00002640| 6e 74 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |nt (bigp|os bigne|
|00002650| 67 29 20 35 20 72 65 61 | 6c 5d 20 37 31 29 29 0a |g) 5 rea|l] 71)).|
|00002660| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 6e 65 67 |.(defun |math-neg|
|00002670| 2d 73 69 67 6e 73 20 28 | 73 31 29 20 28 62 79 74 |-signs (|s1) (byt|
|00002680| 65 2d 63 6f 64 65 20 22 | 08 c1 59 83 10 00 c1 c2 |e-code "|..Y.....|
|00002690| 08 c1 5a 21 5c 5c 82 33 | 00 c3 08 c4 3e 83 1b 00 |..Z!\\.3|....>...|
|000026a0| c5 82 1c 00 c6 08 c7 3e | 83 26 00 c8 82 27 00 c6 |.......>|.&...'..|
|000026b0| 08 c9 3e 83 31 00 ca 82 | 32 00 c6 23 87 22 20 5b |..>.1...|2..#." [|
|000026c0| 73 31 20 38 20 6d 61 74 | 68 2d 6e 65 67 2d 73 69 |s1 8 mat|h-neg-si|
|000026d0| 67 6e 73 20 2b 20 28 31 | 20 33 20 35 20 37 29 20 |gns + (1| 3 5 7) |
|000026e0| 34 20 30 20 28 32 20 33 | 20 36 20 37 29 20 32 20 |4 0 (2 3| 6 7) 2 |
|000026f0| 28 34 20 35 20 36 20 37 | 29 20 31 5d 20 36 29 29 |(4 5 6 7|) 1] 6))|
|00002700| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 6b 6e |..(defun| math-kn|
|00002710| 6f 77 6e 2d 69 6e 74 65 | 67 65 72 70 20 28 61 29 |own-inte|gerp (a)|
|00002720| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|00002730| c2 3d 87 22 20 5b 61 20 | 6d 61 74 68 2d 70 6f 73 |.=." [a |math-pos|
|00002740| 73 69 62 6c 65 2d 74 79 | 70 65 73 20 31 5d 20 33 |sible-ty|pes 1] 3|
|00002750| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00002760| 6b 6e 6f 77 6e 2d 6e 75 | 6d 2d 69 6e 74 65 67 65 |known-nu|m-intege|
|00002770| 72 70 20 28 61 29 20 28 | 62 79 74 65 2d 63 6f 64 |rp (a) (|byte-cod|
|00002780| 65 20 22 c2 08 c1 5c 22 | c3 58 87 22 20 5b 61 20 |e "...\"|.X." [a |
|00002790| 74 20 6d 61 74 68 2d 70 | 6f 73 73 69 62 6c 65 2d |t math-p|ossible-|
|000027a0| 74 79 70 65 73 20 33 5d | 20 33 29 29 0a 0a 28 64 |types 3]| 3))..(d|
|000027b0| 65 66 75 6e 20 6d 61 74 | 68 2d 6b 6e 6f 77 6e 2d |efun mat|h-known-|
|000027c0| 69 6d 61 67 70 20 28 61 | 29 20 28 62 79 74 65 2d |imagp (a|) (byte-|
|000027d0| 63 6f 64 65 20 22 c1 08 | 21 c2 55 87 22 20 5b 61 |code "..|!.U." [a|
|000027e0| 20 6d 61 74 68 2d 70 6f | 73 73 69 62 6c 65 2d 74 | math-po|ssible-t|
|000027f0| 79 70 65 73 20 31 36 5d | 20 33 29 29 0a 0a 28 64 |ypes 16]| 3))..(d|
|00002800| 65 66 75 6e 20 6d 61 74 | 68 2d 70 6f 73 73 69 62 |efun mat|h-possib|
|00002810| 6c 65 2d 74 79 70 65 73 | 20 28 61 20 26 6f 70 74 |le-types| (a &opt|
|00002820| 69 6f 6e 61 6c 20 6e 75 | 6d 29 20 28 62 79 74 65 |ional nu|m) (byte|
|00002830| 2d 63 6f 64 65 20 22 08 | 3a 3f 86 0a 00 08 40 d1 |-code ".|:?....@.|
|00002840| 3e 83 e7 00 08 3a 3f 86 | 17 00 08 40 d2 3e 83 26 |>....:?.|...@.>.&|
|00002850| 00 09 83 5c 22 00 d3 82 | 23 00 d4 82 e4 00 08 3a |...\"...|#......:|
|00002860| 85 37 00 08 40 d5 3d 85 | 37 00 d6 08 38 d7 59 83 |.7..@.=.|7...8.Y.|
|00002870| 46 00 09 83 42 00 d3 82 | 43 00 d6 82 e4 00 08 40 |F...B...|C......@|
|00002880| d8 3d 83 59 00 09 83 55 | 00 d9 82 56 00 da 82 e4 |.=.Y...U|...V....|
|00002890| 00 08 40 d5 3d 83 6c 00 | 09 83 68 00 d9 82 69 00 |..@.=.l.|..h...i.|
|000028a0| db 82 e4 00 08 40 dc 3d | 83 8a 00 dd d6 08 38 d3 |.....@.=|......8.|
|000028b0| 08 38 5c 22 83 86 00 de | d6 08 38 21 82 87 00 df |.8\"....|..8!....|
|000028c0| 82 e4 00 08 40 e0 3d 83 | a1 00 e1 d4 08 38 21 83 |....@.=.|.....8!.|
|000028d0| 9d 00 df 82 9e 00 e2 82 | e4 00 08 40 e3 3d 83 b8 |........|...@.=..|
|000028e0| 00 e4 d4 08 38 21 83 b4 | 00 e5 82 b5 00 e6 82 e4 |....8!..|........|
|000028f0| 00 08 40 e7 3d 83 e3 00 | e8 d6 08 38 e9 c2 21 5c |..@.=...|...8..!\|
|00002900| 22 d7 55 86 d8 00 e8 d6 | 08 38 ea e9 c2 21 21 5c |".U.....|.8...!!\|
|00002910| 22 d7 55 83 df 00 e5 82 | e0 00 eb 82 e4 00 e2 82 |".U.....|........|
|00002920| 37 05 08 40 ec 3d 83 72 | 01 de d4 08 38 09 5c 22 |7..@.=.r|....8.\"|
|00002930| 1c de d6 08 38 09 5c 22 | 1d ed 0c 0d 5c 22 1e 06 |....8.\"|....\"..|
|00002940| 0e 06 e5 57 83 30 01 ee | 0e 06 ef 5c 22 d7 56 83 |...W.0..|...\".V.|
|00002950| 17 01 ef 82 2d 01 0c da | 55 86 25 01 0d da 55 86 |....-...|U.%...U.|
|00002960| 25 01 0e 07 83 2c 01 f0 | 82 2d 01 df 82 6e 01 0e |%....,..|.-...n..|
|00002970| 06 e6 57 83 6d 01 0c e5 | 55 83 55 01 0d e5 55 83 |..W.m...|U.U...U.|
|00002980| 47 01 df 82 52 01 0d e5 | 57 83 51 01 e5 82 52 01 |G...R...|W.Q...R.|
|00002990| f1 82 6a 01 0d e5 55 83 | 69 01 0c e5 57 83 65 01 |..j...U.|i...W.e.|
|000029a0| e5 82 66 01 f1 82 6a 01 | f1 82 6e 01 e2 2b 82 37 |..f...j.|..n..+.7|
|000029b0| 05 08 40 f2 3e 83 96 02 | de d4 08 38 09 5c 22 1c |..@.>...|...8.\".|
|000029c0| de d6 08 38 09 5c 22 1d | ed 0c 0d 5c 22 1e 06 08 |...8.\".|...\"...|
|000029d0| 40 f3 3d 85 a6 01 ee 0c | df 5c 22 14 ee 0d df 5c |@.=.....|.\"....\|
|000029e0| 22 15 ee 0e 06 df 5c 22 | 89 16 06 88 0e 06 e5 57 |".....\"|.......W|
|000029f0| 83 5c 22 02 0e 06 d3 58 | 83 b9 01 d4 82 e3 01 0c |.\"....X|........|
|00002a00| d3 58 85 c5 01 ee 0d d3 | 5c 22 d7 55 86 d4 01 0d |.X......|\".U....|
|00002a10| d3 58 85 d4 01 ee 0c d3 | 5c 22 d7 55 85 db 01 08 |.X......|\".U....|
|00002a20| 40 f4 3e 83 e2 01 da 82 | e3 01 f0 1e 08 09 83 f1 |@.>.....|........|
|00002a30| 01 f5 0e 08 d3 5c 22 82 | 1e 02 ed ee 0c f0 5c 22 |.....\".|......\"|
|00002a40| d7 56 85 01 02 ee 0d f0 | 5c 22 d7 56 83 09 02 0e |.V......|\".V....|
|00002a50| 08 82 0a 02 d7 ee 0e 06 | ef 5c 22 d7 56 83 1c 02 |........|.\".V...|
|00002a60| f5 0e 08 d6 5c 22 82 1d | 02 d7 5c 22 29 82 92 02 |....\"..|..\")...|
|00002a70| 0e 06 e6 57 83 91 02 08 | 40 f5 3d 83 66 02 0c e5 |...W....|@.=.f...|
|00002a80| 55 83 4e 02 0d e5 55 83 | 40 02 df 82 4b 02 0d e5 |U.N...U.|@...K...|
|00002a90| 57 83 4a 02 e5 82 4b 02 | f1 82 63 02 0d e5 55 83 |W.J...K.|..c...U.|
|00002aa0| 62 02 0c e5 57 83 5e 02 | e5 82 5f 02 f1 82 63 02 |b...W.^.|.._...c.|
|00002ab0| f1 82 8e 02 0e 06 e5 55 | 83 71 02 e5 82 8e 02 0c |.......U|.q......|
|00002ac0| e5 55 85 7a 02 0d e5 57 | 86 86 02 0d e5 55 85 86 |.U.z...W|.....U..|
|00002ad0| 02 0c e5 57 83 8d 02 e6 | 82 8e 02 e2 82 92 02 e2 |...W....|........|
|00002ae0| 2b 82 37 05 08 40 f6 3d | 83 a5 02 de d4 08 38 21 |+.7..@.=|......8!|
|00002af0| 82 37 05 08 40 f7 3d 83 | 4e 03 de d4 08 38 09 5c |.7..@.=.|N....8.\|
|00002b00| 22 1c de d6 08 38 09 5c | 22 1d ed 0c 0d 5c 22 1e |"....8.\|"....\".|
|00002b10| 06 0d d3 58 85 d1 02 f8 | d6 08 38 21 85 d1 02 0c |...X....|..8!....|
|00002b20| e5 57 83 35 03 ed ee 0c | d3 5c 22 d7 56 83 e2 02 |.W.5....|.\".V...|
|00002b30| d4 82 e3 02 d7 ee 0c da | 5c 22 ee 0c d9 5c 22 d7 |........|\"...\".|
|00002b40| 56 83 f4 02 f0 82 f5 02 | d7 23 1e 08 09 83 04 03 |V.......|.#......|
|00002b50| f5 0e 08 d3 5c 22 82 31 | 03 ed ee 0c f0 5c 22 d7 |....\".1|.....\".|
|00002b60| 56 85 14 03 ee 0d f0 5c | 22 d7 56 83 1c 03 0e 08 |V......\|".V.....|
|00002b70| 82 1d 03 d7 ee 0e 06 ef | 5c 22 d7 56 83 2f 03 f5 |........|\".V./..|
|00002b80| 0e 08 d6 5c 22 82 30 03 | d7 5c 22 29 82 4a 03 f8 |...\".0.|.\").J..|
|00002b90| d4 08 38 21 85 42 03 f9 | d6 08 38 21 83 49 03 df |..8!.B..|..8!.I..|
|00002ba0| 82 4a 03 e2 2b 82 37 05 | 08 40 fa 3d 83 99 03 fb |.J..+.7.|.@.=....|
|00002bb0| d4 08 38 21 1c ed ee 0c | d6 5c 22 d7 56 83 69 03 |..8!....|.\".V.i.|
|00002bc0| d3 82 6a 03 d7 ee 0c d4 | 5c 22 d7 56 83 77 03 e5 |..j.....|\".V.w..|
|00002bd0| 82 78 03 d7 ee 0c da 5c | 22 d7 56 83 85 03 df 82 |.x.....\|".V.....|
|00002be0| 86 03 d7 ee 0c db 5c 22 | d7 56 83 93 03 e6 82 94 |......\"|.V......|
|00002bf0| 03 d7 24 29 82 37 05 08 | 40 fc 3d 83 c8 03 d7 1e |..$).7..|@.=.....|
|00002c00| 09 08 41 89 10 85 ae 03 | 0e 09 e2 57 85 c1 03 ed |..A.....|...W....|
|00002c10| 0e 09 de 08 40 c3 5c 22 | 5c 22 89 16 09 88 82 a3 |....@.\"|\"......|
|00002c20| 03 88 0e 09 29 82 37 05 | 08 40 0e 0a 3e 86 e1 03 |....).7.|.@..>...|
|00002c30| 08 40 0e 0b 3e 85 e1 03 | f8 d6 08 38 86 e0 03 d7 |.@..>...|...8....|
|00002c40| 21 83 e8 03 d4 82 37 05 | 08 40 0e 0c 3e 86 01 04 |!.....7.|.@..>...|
|00002c50| 08 40 0e 0d 3e 85 01 04 | f8 d6 08 38 86 00 04 d7 |.@..>...|...8....|
|00002c60| 21 83 08 04 d6 82 37 05 | 08 40 fd 3d 83 13 04 f0 |!.....7.|.@.=....|
|00002c70| 82 37 05 08 40 fe 3d 85 | 1e 04 08 47 d6 55 83 4d |.7..@.=.|...G.U.M|
|00002c80| 04 de d4 08 38 21 1c ed | ee 0c d3 5c 22 d7 56 83 |....8!..|...\".V.|
|00002c90| 35 04 d6 82 36 04 d7 ee | 0c d9 5c 22 d7 56 83 43 |5...6...|..\".V.C|
|00002ca0| 04 db 82 44 04 d7 ee 0c | eb 5c 22 23 29 82 37 05 |...D....|.\"#).7.|
|00002cb0| 08 40 ff 3e 85 58 04 08 | 47 d6 55 83 70 04 de d4 |.@.>.X..|G.U.p...|
|00002cc0| 08 38 21 1c 0c e5 59 83 | 6b 04 df 82 6c 04 0c 29 |.8!...Y.|k...l..)|
|00002cd0| 82 37 05 81 40 00 08 21 | 83 a6 04 d6 08 38 81 41 |.7..@..!|.....8.A|
|00002ce0| 00 3e 83 86 04 db 82 a3 | 04 d6 08 38 81 42 00 3d |.>......|...8.B.=|
|00002cf0| 83 94 04 d4 82 a3 04 d6 | 08 38 81 43 00 3d 83 a2 |........|.8.C.=..|
|00002d00| 04 e5 82 a3 04 e2 82 37 | 05 81 44 00 20 88 08 40 |.......7|..D. ..@|
|00002d10| 81 45 00 3d 83 c5 04 81 | 46 00 d6 08 38 0e 0f 5c |.E.=....|F...8..\|
|00002d20| 22 86 c2 04 0e 10 82 cd | 04 81 46 00 08 40 0e 0f |".......|..F..@..|
|00002d30| 5c 22 1e 0e 81 47 00 d4 | 0e 0e 38 3e 83 de 04 d4 |\"...G..|..8>....|
|00002d40| 82 36 05 81 48 00 d4 0e | 0e 38 3e 83 ed 04 d3 82 |.6..H...|.8>.....|
|00002d50| 36 05 d8 d4 0e 0e 38 3e | 83 fa 04 da 82 36 05 81 |6.....8>|.....6..|
|00002d60| 49 00 d4 0e 0e 38 3e 83 | 09 05 f0 82 36 05 d5 d4 |I....8>.|....6...|
|00002d70| 0e 0e 38 3e 83 16 05 ef | 82 36 05 d6 0e 0e 38 83 |..8>....|.6....8.|
|00002d80| 26 05 de d6 0e 0e 38 21 | 82 36 05 81 4a 00 d4 0e |&.....8!|.6..J...|
|00002d90| 0e 38 3e 83 35 05 df 82 | 36 05 e2 29 87 22 20 5b |.8>.5...|6..)." [|
|00002da0| 61 20 6e 75 6d 20 6e 69 | 6c 20 74 20 74 31 20 74 |a num ni|l t t1 t|
|00002db0| 32 20 74 31 32 20 63 61 | 6c 63 2d 70 72 65 66 65 |2 t12 ca|lc-prefe|
|00002dc0| 72 2d 66 72 61 63 20 6d | 61 73 6b 20 74 79 70 65 |r-frac m|ask type|
|00002dd0| 73 20 6d 61 74 68 2d 69 | 6e 74 65 67 65 72 2d 66 |s math-i|nteger-f|
|00002de0| 75 6e 63 74 69 6f 6e 73 | 20 6d 61 74 68 2d 72 6f |unctions| math-ro|
|00002df0| 75 6e 64 69 6e 67 2d 66 | 75 6e 63 74 69 6f 6e 73 |unding-f|unctions|
|00002e00| 20 6d 61 74 68 2d 6e 75 | 6d 2d 69 6e 74 65 67 65 | math-nu|m-intege|
|00002e10| 72 2d 66 75 6e 63 74 69 | 6f 6e 73 20 6d 61 74 68 |r-functi|ons math|
|00002e20| 2d 66 6c 6f 61 74 2d 72 | 6f 75 6e 64 69 6e 67 2d |-float-r|ounding-|
|00002e30| 66 75 6e 63 74 69 6f 6e | 73 20 64 65 63 6c 20 6d |function|s decl m|
|00002e40| 61 74 68 2d 64 65 63 6c | 73 2d 63 61 63 68 65 20 |ath-decl|s-cache |
|00002e50| 6d 61 74 68 2d 64 65 63 | 6c 73 2d 61 6c 6c 20 28 |math-dec|ls-all (|
|00002e60| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00002e70| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00002e80| 6c 61 72 20 68 6d 73 20 | 64 61 74 65 20 73 64 65 |lar hms |date sde|
|00002e90| 76 20 69 6e 74 76 20 6d | 6f 64 29 20 28 62 69 67 |v intv m|od) (big|
|00002ea0| 70 6f 73 20 62 69 67 6e | 65 67 29 20 33 20 31 20 |pos bign|eg) 3 1 |
|00002eb0| 66 6c 6f 61 74 20 32 20 | 30 20 66 72 61 63 20 31 |float 2 |0 frac 1|
|00002ec0| 32 20 34 20 38 20 69 6e | 74 76 20 65 71 75 61 6c |2 4 8 in|tv equal|
|00002ed0| 20 6d 61 74 68 2d 70 6f | 73 73 69 62 6c 65 2d 74 | math-po|ssible-t|
|00002ee0| 79 70 65 73 20 31 35 20 | 73 64 65 76 20 6d 61 74 |ypes 15 |sdev mat|
|00002ef0| 68 2d 6b 6e 6f 77 6e 2d | 72 65 61 6c 70 20 36 33 |h-known-|realp 63|
|00002f00| 20 63 70 6c 78 20 6d 61 | 74 68 2d 7a 65 72 6f 70 | cplx ma|th-zerop|
|00002f10| 20 31 36 20 33 32 20 70 | 6f 6c 61 72 20 6d 61 74 | 16 32 p|olar mat|
|00002f20| 68 2d 63 6f 6d 70 61 72 | 65 20 6d 61 74 68 2d 71 |h-compar|e math-q|
|00002f30| 75 61 72 74 65 72 2d 63 | 69 72 63 6c 65 20 6d 61 |uarter-c|ircle ma|
|00002f40| 74 68 2d 6e 65 67 20 34 | 38 20 2f 20 6c 6f 67 69 |th-neg 4|8 / logi|
|00002f50| 6f 72 20 6c 6f 67 61 6e | 64 20 31 30 20 35 20 33 |or logan|d 10 5 3|
|00002f60| 31 20 28 2b 20 2d 20 2a | 20 25 29 20 25 20 28 2b |1 (+ - *| %) % (+|
|00002f70| 20 2d 29 20 2a 20 6e 65 | 67 20 5e 20 6d 61 74 68 | -) * ne|g ^ math|
|00002f80| 2d 6b 6e 6f 77 6e 2d 6e | 6f 6e 6e 65 67 70 20 6d |-known-n|onnegp m|
|00002f90| 61 74 68 2d 6b 6e 6f 77 | 6e 2d 70 6f 73 70 20 63 |ath-know|n-posp c|
|00002fa0| 61 6c 63 46 75 6e 63 2d | 73 71 72 74 20 6d 61 74 |alcFunc-|sqrt mat|
|00002fb0| 68 2d 70 6f 73 73 69 62 | 6c 65 2d 73 69 67 6e 73 |h-possib|le-signs|
|00002fc0| 20 76 65 63 20 63 61 6c | 63 46 75 6e 63 2d 66 72 | vec cal|cFunc-fr|
|00002fd0| 61 63 20 63 61 6c 63 46 | 75 6e 63 2d 66 6c 6f 61 |ac calcF|unc-floa|
|00002fe0| 74 20 28 63 61 6c 63 46 | 75 6e 63 2d 61 62 73 20 |t (calcF|unc-abs |
|00002ff0| 63 61 6c 63 46 75 6e 63 | 2d 61 62 73 73 71 72 29 |calcFunc|-abssqr)|
|00003000| 20 6d 61 74 68 2d 63 6f | 6e 73 74 2d 76 61 72 20 | math-co|nst-var |
|00003010| 28 76 61 72 2d 65 20 76 | 61 72 2d 70 69 20 76 61 |(var-e v|ar-pi va|
|00003020| 72 2d 70 68 69 20 76 61 | 72 2d 67 61 6d 6d 61 29 |r-phi va|r-gamma)|
|00003030| 20 76 61 72 2d 69 6e 66 | 20 76 61 72 2d 69 20 6d | var-inf| var-i m|
|00003040| 61 74 68 2d 73 65 74 75 | 70 2d 64 65 63 6c 61 72 |ath-setu|p-declar|
|00003050| 61 74 69 6f 6e 73 20 76 | 61 72 20 61 73 73 71 20 |ations v|ar assq |
|00003060| 69 6e 74 20 6e 75 6d 69 | 6e 74 20 72 61 74 20 72 |int numi|nt rat r|
|00003070| 65 61 6c 5d 20 36 38 29 | 29 0a 0a 28 64 65 66 75 |eal] 68)|)..(defu|
|00003080| 6e 20 6d 61 74 68 2d 6b | 6e 6f 77 6e 2d 65 76 65 |n math-k|nown-eve|
|00003090| 6e 70 20 28 61 29 20 28 | 62 79 74 65 2d 63 6f 64 |np (a) (|byte-cod|
|000030a0| 65 20 22 08 3a 3f 86 0a | 00 08 40 c1 3e 83 13 00 |e ".:?..|..@.>...|
|000030b0| c2 08 21 82 91 00 08 3a | 85 24 00 08 40 c3 3d 85 |..!....:|.$..@.=.|
|000030c0| 24 00 c4 08 38 c5 59 83 | 37 00 c4 08 38 c5 56 86 |$...8.Y.|7...8.V.|
|000030d0| 34 00 c2 c6 08 21 21 82 | 91 00 08 40 c7 3d 83 5e |4....!!.|...@.=.^|
|000030e0| 00 c8 c9 08 38 21 83 4e | 00 ca c4 08 38 21 82 5b |....8!.N|....8!.[|
|000030f0| 00 ca c9 08 38 21 85 5b | 00 c8 c4 08 38 21 82 91 |....8!.[|....8!..|
|00003100| 00 08 40 cb 3e 83 85 00 | c8 c9 08 38 21 85 72 00 |..@.>...|...8!.r.|
|00003110| c8 c4 08 38 21 86 82 00 | cc c9 08 38 21 85 82 00 |...8!...|...8!...|
|00003120| cc c4 08 38 21 82 91 00 | 08 40 cd 3d 85 91 00 c8 |...8!...|.@.=....|
|00003130| c9 08 38 21 87 22 20 5b | 61 20 28 62 69 67 70 6f |..8!." [|a (bigpo|
|00003140| 73 20 62 69 67 6e 65 67 | 29 20 6d 61 74 68 2d 65 |s bigneg|) math-e|
|00003150| 76 65 6e 70 20 66 6c 6f | 61 74 20 32 20 30 20 6d |venp flo|at 2 0 m|
|00003160| 61 74 68 2d 74 72 75 6e | 63 20 2a 20 6d 61 74 68 |ath-trun|c * math|
|00003170| 2d 6b 6e 6f 77 6e 2d 65 | 76 65 6e 70 20 31 20 6d |-known-e|venp 1 m|
|00003180| 61 74 68 2d 6b 6e 6f 77 | 6e 2d 6e 75 6d 2d 69 6e |ath-know|n-num-in|
|00003190| 74 65 67 65 72 70 20 28 | 2b 20 2d 29 20 6d 61 74 |tegerp (|+ -) mat|
|000031a0| 68 2d 6b 6e 6f 77 6e 2d | 6f 64 64 70 20 6e 65 67 |h-known-|oddp neg|
|000031b0| 5d 20 31 34 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |] 14))..|(defun m|
|000031c0| 61 74 68 2d 6b 6e 6f 77 | 6e 2d 6f 64 64 70 20 28 |ath-know|n-oddp (|
|000031d0| 61 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |a) (byte|-code ".|
|000031e0| 3a 3f 86 0a 00 08 40 c1 | 3e 83 13 00 c2 08 21 82 |:?....@.|>.....!.|
|000031f0| 6a 00 08 3a 85 24 00 08 | 40 c3 3d 85 24 00 c4 08 |j..:.$..|@.=.$...|
|00003200| 38 c5 59 83 37 00 c4 08 | 38 c5 58 85 34 00 c2 c6 |8.Y.7...|8.X.4...|
|00003210| 08 21 21 82 6a 00 08 40 | c7 3e 83 5e 00 c8 c9 08 |.!!.j..@|.>.^....|
|00003220| 38 21 85 4b 00 ca c4 08 | 38 21 86 5b 00 ca c9 08 |8!.K....|8!.[....|
|00003230| 38 21 85 5b 00 c8 c4 08 | 38 21 82 6a 00 08 40 cb |8!.[....|8!.j..@.|
|00003240| 3d 85 6a 00 ca c9 08 38 | 21 87 22 20 5b 61 20 28 |=.j....8|!." [a (|
|00003250| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 29 20 6d |bigpos b|igneg) m|
|00003260| 61 74 68 2d 6f 64 64 70 | 20 66 6c 6f 61 74 20 32 |ath-oddp| float 2|
|00003270| 20 30 20 6d 61 74 68 2d | 74 72 75 6e 63 20 28 2b | 0 math-|trunc (+|
|00003280| 20 2d 29 20 6d 61 74 68 | 2d 6b 6e 6f 77 6e 2d 65 | -) math|-known-e|
|00003290| 76 65 6e 70 20 31 20 6d | 61 74 68 2d 6b 6e 6f 77 |venp 1 m|ath-know|
|000032a0| 6e 2d 6f 64 64 70 20 6e | 65 67 5d 20 31 30 29 29 |n-oddp n|eg] 10))|
|000032b0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|000032c0| 63 2d 64 72 65 61 6c 20 | 28 65 78 70 72 29 20 28 |c-dreal |(expr) (|
|000032d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 09 21 18 08 |byte-cod|e "..!..|
|000032e0| c3 57 83 0e 00 c4 82 20 | 00 c5 08 c6 5c 22 c7 55 |.W..... |....\".U|
|000032f0| 83 1b 00 c7 82 20 00 c8 | 09 c9 ca 23 29 87 22 20 |..... ..|...#)." |
|00003300| 5b 74 79 70 65 73 20 65 | 78 70 72 20 6d 61 74 68 |[types e|xpr math|
|00003310| 2d 70 6f 73 73 69 62 6c | 65 2d 74 79 70 65 73 20 |-possibl|e-types |
|00003320| 31 36 20 31 20 6c 6f 67 | 61 6e 64 20 31 35 20 30 |16 1 log|and 15 0|
|00003330| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00003340| 20 72 65 61 6c 70 20 71 | 75 69 65 74 5d 20 36 29 | realp q|uiet] 6)|
|00003350| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00003360| 6e 63 2d 64 69 6d 61 67 | 20 28 65 78 70 72 29 20 |nc-dimag| (expr) |
|00003370| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 09 21 18 |(byte-co|de "..!.|
|00003380| 08 c3 55 83 0e 00 c4 82 | 1f 00 c5 08 c3 5c 22 c6 |..U.....|.....\".|
|00003390| 55 83 1b 00 c6 82 1f 00 | c7 09 c8 5c 22 29 87 22 |U.......|...\")."|
|000033a0| 20 5b 74 79 70 65 73 20 | 65 78 70 72 20 6d 61 74 | [types |expr mat|
|000033b0| 68 2d 70 6f 73 73 69 62 | 6c 65 2d 74 79 70 65 73 |h-possib|le-types|
|000033c0| 20 31 36 20 31 20 6c 6f | 67 61 6e 64 20 30 20 6d | 16 1 lo|gand 0 m|
|000033d0| 61 74 68 2d 72 65 6a 65 | 63 74 2d 61 72 67 20 22 |ath-reje|ct-arg "|
|000033e0| 45 78 70 65 63 74 65 64 | 20 61 6e 20 69 6d 61 67 |Expected| an imag|
|000033f0| 69 6e 61 72 79 20 6e 75 | 6d 62 65 72 22 5d 20 35 |inary nu|mber"] 5|
|00003400| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00003410| 75 6e 63 2d 64 70 6f 73 | 20 28 65 78 70 72 29 20 |unc-dpos| (expr) |
|00003420| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 09 21 18 |(byte-co|de "..!.|
|00003430| 08 c3 3d 83 0e 00 c4 82 | 1d 00 08 c5 3e 83 18 00 |..=.....|....>...|
|00003440| c6 82 1d 00 c7 09 c8 c9 | 23 29 87 22 20 5b 73 69 |........|#)." [si|
|00003450| 67 6e 73 20 65 78 70 72 | 20 6d 61 74 68 2d 70 6f |gns expr| math-po|
|00003460| 73 73 69 62 6c 65 2d 73 | 69 67 6e 73 20 34 20 31 |ssible-s|igns 4 1|
|00003470| 20 28 31 20 32 20 33 29 | 20 30 20 6d 61 74 68 2d | (1 2 3)| 0 math-|
|00003480| 72 65 6a 65 63 74 2d 61 | 72 67 20 70 6f 73 70 20 |reject-a|rg posp |
|00003490| 71 75 69 65 74 5d 20 35 | 29 29 0a 0a 28 64 65 66 |quiet] 5|))..(def|
|000034a0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 64 6e 65 67 |un calcF|unc-dneg|
|000034b0| 20 28 65 78 70 72 29 20 | 28 62 79 74 65 2d 63 6f | (expr) |(byte-co|
|000034c0| 64 65 20 22 c2 09 21 18 | 08 c3 3d 83 0e 00 c3 82 |de "..!.|..=.....|
|000034d0| 1d 00 08 c4 3e 83 18 00 | c5 82 1d 00 c6 09 c7 c8 |....>...|........|
|000034e0| 23 29 87 22 20 5b 73 69 | 67 6e 73 20 65 78 70 72 |#)." [si|gns expr|
|000034f0| 20 6d 61 74 68 2d 70 6f | 73 73 69 62 6c 65 2d 73 | math-po|ssible-s|
|00003500| 69 67 6e 73 20 31 20 28 | 32 20 34 20 36 29 20 30 |igns 1 (|2 4 6) 0|
|00003510| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00003520| 20 6e 65 67 70 20 71 75 | 69 65 74 5d 20 35 29 29 | negp qu|iet] 5))|
|00003530| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00003540| 63 2d 64 6e 6f 6e 6e 65 | 67 20 28 65 78 70 72 29 |c-dnonne|g (expr)|
|00003550| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 09 21 | (byte-c|ode "..!|
|00003560| 18 08 c3 3e 83 0e 00 c4 | 82 1d 00 08 c4 3d 83 18 |...>....|.....=..|
|00003570| 00 c5 82 1d 00 c6 09 c7 | c8 23 29 87 22 20 5b 73 |........|.#)." [s|
|00003580| 69 67 6e 73 20 65 78 70 | 72 20 6d 61 74 68 2d 70 |igns exp|r math-p|
|00003590| 6f 73 73 69 62 6c 65 2d | 73 69 67 6e 73 20 28 32 |ossible-|signs (2|
|000035a0| 20 34 20 36 29 20 31 20 | 30 20 6d 61 74 68 2d 72 | 4 6) 1 |0 math-r|
|000035b0| 65 6a 65 63 74 2d 61 72 | 67 20 70 6f 73 70 20 71 |eject-ar|g posp q|
|000035c0| 75 69 65 74 5d 20 35 29 | 29 0a 0a 28 64 65 66 75 |uiet] 5)|)..(defu|
|000035d0| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 64 6e 6f 6e 7a |n calcFu|nc-dnonz|
|000035e0| 65 72 6f 20 28 65 78 70 | 72 29 20 28 62 79 74 65 |ero (exp|r) (byte|
|000035f0| 2d 63 6f 64 65 20 22 c2 | 09 21 18 08 c3 3e 83 0e |-code ".|.!...>..|
|00003600| 00 c4 82 1d 00 08 c5 3d | 83 18 00 c6 82 1d 00 c7 |.......=|........|
|00003610| 09 c8 c9 23 29 87 22 20 | 5b 73 69 67 6e 73 20 65 |...#)." |[signs e|
|00003620| 78 70 72 20 6d 61 74 68 | 2d 70 6f 73 73 69 62 6c |xpr math|-possibl|
|00003630| 65 2d 73 69 67 6e 73 20 | 28 31 20 34 20 35 20 38 |e-signs |(1 4 5 8|
|00003640| 20 39 20 31 32 20 31 33 | 29 20 31 20 32 20 30 20 | 9 12 13|) 1 2 0 |
|00003650| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00003660| 6e 6f 6e 7a 65 72 6f 70 | 20 71 75 69 65 74 5d 20 |nonzerop| quiet] |
|00003670| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |5))..(de|fun calc|
|00003680| 46 75 6e 63 2d 64 69 6e | 74 20 28 65 78 70 72 29 |Func-din|t (expr)|
|00003690| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 09 21 | (byte-c|ode "..!|
|000036a0| 18 08 c3 55 83 0e 00 c3 | 82 20 00 c4 08 c3 5c 22 |...U....|. ....\"|
|000036b0| c5 55 83 1b 00 c5 82 20 | 00 c6 09 c7 c8 23 29 87 |.U..... |.....#).|
|000036c0| 22 20 5b 74 79 70 65 73 | 20 65 78 70 72 20 6d 61 |" [types| expr ma|
|000036d0| 74 68 2d 70 6f 73 73 69 | 62 6c 65 2d 74 79 70 65 |th-possi|ble-type|
|000036e0| 73 20 31 20 6c 6f 67 61 | 6e 64 20 30 20 6d 61 74 |s 1 loga|nd 0 mat|
|000036f0| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 69 6e 74 |h-reject|-arg int|
|00003700| 65 67 65 72 70 20 71 75 | 69 65 74 5d 20 36 29 29 |egerp qu|iet] 6))|
|00003710| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00003720| 63 2d 64 6e 75 6d 69 6e | 74 20 28 65 78 70 72 29 |c-dnumin|t (expr)|
|00003730| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c3 09 c2 | (byte-c|ode "...|
|00003740| 5c 22 18 08 c4 58 83 0f | 00 c5 82 21 00 c6 08 c4 |\"...X..|...!....|
|00003750| 5c 22 c7 55 83 1c 00 c7 | 82 21 00 c8 09 c9 ca 23 |\".U....|.!.....#|
|00003760| 29 87 22 20 5b 74 79 70 | 65 73 20 65 78 70 72 20 |)." [typ|es expr |
|00003770| 74 20 6d 61 74 68 2d 70 | 6f 73 73 69 62 6c 65 2d |t math-p|ossible-|
|00003780| 74 79 70 65 73 20 33 20 | 31 20 6c 6f 67 61 6e 64 |types 3 |1 logand|
|00003790| 20 30 20 6d 61 74 68 2d | 72 65 6a 65 63 74 2d 61 | 0 math-|reject-a|
|000037a0| 72 67 20 69 6e 74 65 67 | 65 72 70 20 71 75 69 65 |rg integ|erp quie|
|000037b0| 74 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |t] 6))..|(defun c|
|000037c0| 61 6c 63 46 75 6e 63 2d | 64 6e 61 74 6e 75 6d 20 |alcFunc-|dnatnum |
|000037d0| 28 65 78 70 72 29 20 28 | 62 79 74 65 2d 63 6f 64 |(expr) (|byte-cod|
|000037e0| 65 20 22 c2 09 21 18 08 | c3 3d 83 10 00 c4 09 21 |e "..!..|.=.....!|
|000037f0| 82 11 00 08 29 87 22 20 | 5b 72 65 73 20 65 78 70 |....)." |[res exp|
|00003800| 72 20 63 61 6c 63 46 75 | 6e 63 2d 64 69 6e 74 20 |r calcFu|nc-dint |
|00003810| 31 20 63 61 6c 63 46 75 | 6e 63 2d 64 6e 6f 6e 6e |1 calcFu|nc-dnonn|
|00003820| 65 67 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |eg] 3)).|.(defun |
|00003830| 63 61 6c 63 46 75 6e 63 | 2d 64 65 76 65 6e 20 28 |calcFunc|-deven (|
|00003840| 65 78 70 72 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |expr) (b|yte-code|
|00003850| 20 22 c1 08 21 83 0a 00 | c2 82 23 00 c3 08 21 86 | "..!...|..#...!.|
|00003860| 18 00 c4 c5 08 21 c6 5c | 22 c7 55 83 1f 00 c7 82 |.....!.\|".U.....|
|00003870| 23 00 c8 08 c9 5c 22 87 | 22 20 5b 65 78 70 72 20 |#....\".|" [expr |
|00003880| 6d 61 74 68 2d 6b 6e 6f | 77 6e 2d 65 76 65 6e 70 |math-kno|wn-evenp|
|00003890| 20 31 20 6d 61 74 68 2d | 6b 6e 6f 77 6e 2d 6f 64 | 1 math-|known-od|
|000038a0| 64 70 20 6c 6f 67 61 6e | 64 20 6d 61 74 68 2d 70 |dp logan|d math-p|
|000038b0| 6f 73 73 69 62 6c 65 2d | 74 79 70 65 73 20 33 20 |ossible-|types 3 |
|000038c0| 30 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |0 math-r|eject-ar|
|000038d0| 67 20 22 43 61 6e 27 74 | 20 74 65 6c 6c 20 69 66 |g "Can't| tell if|
|000038e0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 69 73 20 6f | express|ion is o|
|000038f0| 64 64 20 6f 72 20 65 76 | 65 6e 22 5d 20 37 29 29 |dd or ev|en"] 7))|
|00003900| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00003910| 63 2d 64 6f 64 64 20 28 | 65 78 70 72 29 20 28 62 |c-dodd (|expr) (b|
|00003920| 79 74 65 2d 63 6f 64 65 | 20 22 c1 08 21 83 0a 00 |yte-code| "..!...|
|00003930| c2 82 23 00 c3 08 21 86 | 18 00 c4 c5 08 21 c6 5c |..#...!.|.....!.\|
|00003940| 22 c7 55 83 1f 00 c7 82 | 23 00 c8 08 c9 5c 22 87 |".U.....|#....\".|
|00003950| 22 20 5b 65 78 70 72 20 | 6d 61 74 68 2d 6b 6e 6f |" [expr |math-kno|
|00003960| 77 6e 2d 6f 64 64 70 20 | 31 20 6d 61 74 68 2d 6b |wn-oddp |1 math-k|
|00003970| 6e 6f 77 6e 2d 65 76 65 | 6e 70 20 6c 6f 67 61 6e |nown-eve|np logan|
|00003980| 64 20 6d 61 74 68 2d 70 | 6f 73 73 69 62 6c 65 2d |d math-p|ossible-|
|00003990| 74 79 70 65 73 20 33 20 | 30 20 6d 61 74 68 2d 72 |types 3 |0 math-r|
|000039a0| 65 6a 65 63 74 2d 61 72 | 67 20 22 43 61 6e 27 74 |eject-ar|g "Can't|
|000039b0| 20 74 65 6c 6c 20 69 66 | 20 65 78 70 72 65 73 73 | tell if| express|
|000039c0| 69 6f 6e 20 69 73 20 6f | 64 64 20 6f 72 20 65 76 |ion is o|dd or ev|
|000039d0| 65 6e 22 5d 20 37 29 29 | 0a 0a 28 64 65 66 75 6e |en"] 7))|..(defun|
|000039e0| 20 63 61 6c 63 46 75 6e | 63 2d 64 72 61 74 20 28 | calcFun|c-drat (|
|000039f0| 65 78 70 72 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |expr) (b|yte-code|
|00003a00| 20 22 c2 09 21 18 08 c3 | 3e 83 0e 00 c4 82 1f 00 | "..!...|>.......|
|00003a10| c5 08 c6 5c 22 c7 55 83 | 1b 00 c7 82 1f 00 c8 09 |...\".U.|........|
|00003a20| c9 5c 22 29 87 22 20 5b | 74 79 70 65 73 20 65 78 |.\")." [|types ex|
|00003a30| 70 72 20 6d 61 74 68 2d | 70 6f 73 73 69 62 6c 65 |pr math-|possible|
|00003a40| 2d 74 79 70 65 73 20 28 | 31 20 34 20 35 29 20 31 |-types (|1 4 5) 1|
|00003a50| 20 6c 6f 67 61 6e 64 20 | 35 20 30 20 6d 61 74 68 | logand |5 0 math|
|00003a60| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 22 52 61 74 |-reject-|arg "Rat|
|00003a70| 69 6f 6e 61 6c 20 6e 75 | 6d 62 65 72 20 65 78 70 |ional nu|mber exp|
|00003a80| 65 63 74 65 64 22 5d 20 | 35 29 29 0a 0a 28 64 65 |ected"] |5))..(de|
|00003a90| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 64 72 61 |fun calc|Func-dra|
|00003aa0| 6e 67 65 20 28 65 78 70 | 72 29 20 28 62 79 74 65 |nge (exp|r) (byte|
|00003ab0| 2d 63 6f 64 65 20 22 c4 | 20 88 c5 18 09 3a 3f 86 |-code ".| ....:?.|
|00003ac0| 0f 00 09 40 c6 3e 83 18 | 00 c7 09 44 82 6b 00 c8 |...@.>..|...D.k..|
|00003ad0| 09 21 c9 3d 83 24 00 09 | 82 6b 00 c8 09 21 ca 3d |.!.=.$..|.k...!.=|
|00003ae0| 83 3d 00 cb cc cb 09 38 | 0a 5c 22 86 37 00 0b 38 |.=.....8|.\".7..8|
|00003af0| 89 10 82 47 00 cb cc c8 | 09 21 0a 5c 22 38 89 10 |...G....|.!.\"8..|
|00003b00| 88 08 83 54 00 cd ce 08 | 21 21 82 6b 00 cf 09 21 |...T....|!!.k...!|
|00003b10| 89 10 88 08 d0 57 83 66 | 00 d1 08 48 82 6b 00 d2 |.....W.f|...H.k..|
|00003b20| 09 d3 d4 23 29 87 22 20 | 5b 72 61 6e 67 65 20 65 |...#)." |[range e|
|00003b30| 78 70 72 20 6d 61 74 68 | 2d 64 65 63 6c 73 2d 63 |xpr math|-decls-c|
|00003b40| 61 63 68 65 20 6d 61 74 | 68 2d 64 65 63 6c 73 2d |ache mat|h-decls-|
|00003b50| 61 6c 6c 20 6d 61 74 68 | 2d 73 65 74 75 70 2d 64 |all math|-setup-d|
|00003b60| 65 63 6c 61 72 61 74 69 | 6f 6e 73 20 6e 69 6c 20 |eclarati|ons nil |
|00003b70| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00003b80| 72 61 63 20 66 6c 6f 61 | 74 29 20 76 65 63 20 63 |rac floa|t) vec c|
|00003b90| 61 72 2d 73 61 66 65 20 | 69 6e 74 76 20 76 61 72 |ar-safe |intv var|
|00003ba0| 20 32 20 61 73 73 71 20 | 6d 61 74 68 2d 63 6c 65 | 2 assq |math-cle|
|00003bb0| 61 6e 2d 73 65 74 20 63 | 6f 70 79 2d 73 65 71 75 |an-set c|opy-sequ|
|00003bc0| 65 6e 63 65 20 6d 61 74 | 68 2d 70 6f 73 73 69 62 |ence mat|h-possib|
|00003bd0| 6c 65 2d 73 69 67 6e 73 | 20 38 20 5b 28 76 65 63 |le-signs| 8 [(vec|
|00003be0| 29 20 28 69 6e 74 76 20 | 32 20 28 6e 65 67 20 28 |) (intv |2 (neg (|
|00003bf0| 76 61 72 20 69 6e 66 20 | 76 61 72 2d 69 6e 66 29 |var inf |var-inf)|
|00003c00| 29 20 30 29 20 28 76 65 | 63 20 30 29 20 28 69 6e |) 0) (ve|c 0) (in|
|00003c10| 74 76 20 33 20 28 6e 65 | 67 20 28 76 61 72 20 69 |tv 3 (ne|g (var i|
|00003c20| 6e 66 20 76 61 72 2d 69 | 6e 66 29 29 20 30 29 20 |nf var-i|nf)) 0) |
|00003c30| 28 69 6e 74 76 20 31 20 | 30 20 28 76 61 72 20 69 |(intv 1 |0 (var i|
|00003c40| 6e 66 20 76 61 72 2d 69 | 6e 66 29 29 20 28 76 65 |nf var-i|nf)) (ve|
|00003c50| 63 20 28 69 6e 74 76 20 | 32 20 28 6e 65 67 20 28 |c (intv |2 (neg (|
|00003c60| 76 61 72 20 69 6e 66 20 | 76 61 72 2d 69 6e 66 29 |var inf |var-inf)|
|00003c70| 29 20 30 29 20 28 69 6e | 74 76 20 31 20 30 20 28 |) 0) (in|tv 1 0 (|
|00003c80| 76 61 72 20 69 6e 66 20 | 76 61 72 2d 69 6e 66 29 |var inf |var-inf)|
|00003c90| 29 29 20 28 69 6e 74 76 | 20 33 20 30 20 28 76 61 |)) (intv| 3 0 (va|
|00003ca0| 72 20 69 6e 66 20 76 61 | 72 2d 69 6e 66 29 29 20 |r inf va|r-inf)) |
|00003cb0| 28 69 6e 74 76 20 33 20 | 28 6e 65 67 20 28 76 61 |(intv 3 |(neg (va|
|00003cc0| 72 20 69 6e 66 20 76 61 | 72 2d 69 6e 66 29 29 20 |r inf va|r-inf)) |
|00003cd0| 28 76 61 72 20 69 6e 66 | 20 76 61 72 2d 69 6e 66 |(var inf| var-inf|
|00003ce0| 29 29 5d 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |))] math|-reject-|
|00003cf0| 61 72 67 20 72 65 61 6c | 70 20 71 75 69 65 74 5d |arg real|p quiet]|
|00003d00| 20 31 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 13))..(|defun ca|
|00003d10| 6c 63 46 75 6e 63 2d 64 | 73 63 61 6c 61 72 20 28 |lcFunc-d|scalar (|
|00003d20| 61 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |a) (byte|-code ".|
|00003d30| 08 21 83 0a 00 c2 82 19 | 00 c3 08 21 83 14 00 c4 |.!......|...!....|
|00003d40| 82 19 00 c5 08 c6 c7 23 | 87 22 20 5b 61 20 6d 61 |.......#|." [a ma|
|00003d50| 74 68 2d 6b 6e 6f 77 6e | 2d 73 63 61 6c 61 72 70 |th-known|-scalarp|
|00003d60| 20 31 20 6d 61 74 68 2d | 6b 6e 6f 77 6e 2d 6d 61 | 1 math-|known-ma|
|00003d70| 74 72 69 78 70 20 30 20 | 6d 61 74 68 2d 72 65 6a |trixp 0 |math-rej|
|00003d80| 65 63 74 2d 61 72 67 20 | 6f 62 6a 65 63 74 70 20 |ect-arg |objectp |
|00003d90| 71 75 69 65 74 5d 20 36 | 29 29 0a 0a 28 64 65 66 |quiet] 6|))..(def|
|00003da0| 76 61 72 20 6d 61 74 68 | 2d 73 63 61 6c 61 72 2d |var math|-scalar-|
|00003db0| 66 75 6e 63 74 69 6f 6e | 73 20 28 71 75 6f 74 65 |function|s (quote|
|00003dc0| 20 28 63 61 6c 63 46 75 | 6e 63 2d 64 65 74 20 63 | (calcFu|nc-det c|
|00003dd0| 61 6c 63 46 75 6e 63 2d | 63 6e 6f 72 6d 20 63 61 |alcFunc-|cnorm ca|
|00003de0| 6c 63 46 75 6e 63 2d 72 | 6e 6f 72 6d 20 63 61 6c |lcFunc-r|norm cal|
|00003df0| 63 46 75 6e 63 2d 76 6c | 65 6e 20 63 61 6c 63 46 |cFunc-vl|en calcF|
|00003e00| 75 6e 63 2d 76 63 6f 75 | 6e 74 20 63 61 6c 63 46 |unc-vcou|nt calcF|
|00003e10| 75 6e 63 2d 76 73 75 6d | 20 63 61 6c 63 46 75 6e |unc-vsum| calcFun|
|00003e20| 63 2d 76 70 72 6f 64 20 | 63 61 6c 63 46 75 6e 63 |c-vprod |calcFunc|
|00003e30| 2d 76 6d 69 6e 20 63 61 | 6c 63 46 75 6e 63 2d 76 |-vmin ca|lcFunc-v|
|00003e40| 6d 61 78 29 29 29 0a 0a | 28 64 65 66 76 61 72 20 |max)))..|(defvar |
|00003e50| 6d 61 74 68 2d 6e 6f 6e | 73 63 61 6c 61 72 2d 66 |math-non|scalar-f|
|00003e60| 75 6e 63 74 69 6f 6e 73 | 20 28 71 75 6f 74 65 20 |unctions| (quote |
|00003e70| 28 76 65 63 20 63 61 6c | 63 46 75 6e 63 2d 69 64 |(vec cal|cFunc-id|
|00003e80| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 64 69 61 67 20 |n calcFu|nc-diag |
|00003e90| 63 61 6c 63 46 75 6e 63 | 2d 63 76 65 63 20 63 61 |calcFunc|-cvec ca|
|00003ea0| 6c 63 46 75 6e 63 2d 69 | 6e 64 65 78 20 63 61 6c |lcFunc-i|ndex cal|
|00003eb0| 63 46 75 6e 63 2d 74 72 | 6e 20 7c 20 63 61 6c 63 |cFunc-tr|n | calc|
|00003ec0| 46 75 6e 63 2d 61 70 70 | 65 6e 64 20 63 61 6c 63 |Func-app|end calc|
|00003ed0| 46 75 6e 63 2d 63 6f 6e | 73 20 63 61 6c 63 46 75 |Func-con|s calcFu|
|00003ee0| 6e 63 2d 72 63 6f 6e 73 | 20 63 61 6c 63 46 75 6e |nc-rcons| calcFun|
|00003ef0| 63 2d 74 61 69 6c 20 63 | 61 6c 63 46 75 6e 63 2d |c-tail c|alcFunc-|
|00003f00| 72 68 65 61 64 29 29 29 | 0a 0a 28 64 65 66 76 61 |rhead)))|..(defva|
|00003f10| 72 20 6d 61 74 68 2d 73 | 63 61 6c 61 72 2d 69 66 |r math-s|calar-if|
|00003f20| 2d 61 72 67 73 2d 66 75 | 6e 63 74 69 6f 6e 73 20 |-args-fu|nctions |
|00003f30| 28 71 75 6f 74 65 20 28 | 2b 20 2d 20 2a 20 2f 20 |(quote (|+ - * / |
|00003f40| 6e 65 67 29 29 29 0a 0a | 28 64 65 66 76 61 72 20 |neg)))..|(defvar |
|00003f50| 6d 61 74 68 2d 72 65 61 | 6c 2d 66 75 6e 63 74 69 |math-rea|l-functi|
|00003f60| 6f 6e 73 20 28 71 75 6f | 74 65 20 28 63 61 6c 63 |ons (quo|te (calc|
|00003f70| 46 75 6e 63 2d 61 72 67 | 20 63 61 6c 63 46 75 6e |Func-arg| calcFun|
|00003f80| 63 2d 72 65 20 63 61 6c | 63 46 75 6e 63 2d 69 6d |c-re cal|cFunc-im|
|00003f90| 20 63 61 6c 63 46 75 6e | 63 2d 66 6c 6f 6f 72 20 | calcFun|c-floor |
|00003fa0| 63 61 6c 63 46 75 6e 63 | 2d 63 65 69 6c 20 63 61 |calcFunc|-ceil ca|
|00003fb0| 6c 63 46 75 6e 63 2d 74 | 72 75 6e 63 20 63 61 6c |lcFunc-t|runc cal|
|00003fc0| 63 46 75 6e 63 2d 72 6f | 75 6e 64 20 63 61 6c 63 |cFunc-ro|und calc|
|00003fd0| 46 75 6e 63 2d 72 6f 75 | 6e 64 65 20 63 61 6c 63 |Func-rou|nde calc|
|00003fe0| 46 75 6e 63 2d 72 6f 75 | 6e 64 75 20 63 61 6c 63 |Func-rou|ndu calc|
|00003ff0| 46 75 6e 63 2d 66 66 6c | 6f 6f 72 20 63 61 6c 63 |Func-ffl|oor calc|
|00004000| 46 75 6e 63 2d 66 63 65 | 69 6c 20 63 61 6c 63 46 |Func-fce|il calcF|
|00004010| 75 6e 63 2d 66 74 72 75 | 6e 63 20 63 61 6c 63 46 |unc-ftru|nc calcF|
|00004020| 75 6e 63 2d 66 72 6f 75 | 6e 64 20 63 61 6c 63 46 |unc-frou|nd calcF|
|00004030| 75 6e 63 2d 66 72 6f 75 | 6e 64 65 20 63 61 6c 63 |unc-frou|nde calc|
|00004040| 46 75 6e 63 2d 66 72 6f | 75 6e 64 75 29 29 29 0a |Func-fro|undu))).|
|00004050| 0a 28 64 65 66 76 61 72 | 20 6d 61 74 68 2d 70 6f |.(defvar| math-po|
|00004060| 73 69 74 69 76 65 2d 66 | 75 6e 63 74 69 6f 6e 73 |sitive-f|unctions|
|00004070| 20 28 71 75 6f 74 65 20 | 6e 69 6c 29 29 0a 0a 28 | (quote |nil))..(|
|00004080| 64 65 66 76 61 72 20 6d | 61 74 68 2d 6e 6f 6e 6e |defvar m|ath-nonn|
|00004090| 65 67 61 74 69 76 65 2d | 66 75 6e 63 74 69 6f 6e |egative-|function|
|000040a0| 73 20 28 71 75 6f 74 65 | 20 28 63 61 6c 63 46 75 |s (quote| (calcFu|
|000040b0| 6e 63 2d 63 6e 6f 72 6d | 20 63 61 6c 63 46 75 6e |nc-cnorm| calcFun|
|000040c0| 63 2d 72 6e 6f 72 6d 20 | 63 61 6c 63 46 75 6e 63 |c-rnorm |calcFunc|
|000040d0| 2d 76 6c 65 6e 20 63 61 | 6c 63 46 75 6e 63 2d 76 |-vlen ca|lcFunc-v|
|000040e0| 63 6f 75 6e 74 29 29 29 | 0a 0a 28 64 65 66 76 61 |count)))|..(defva|
|000040f0| 72 20 6d 61 74 68 2d 72 | 65 61 6c 2d 73 63 61 6c |r math-r|eal-scal|
|00004100| 61 72 2d 66 75 6e 63 74 | 69 6f 6e 73 20 28 71 75 |ar-funct|ions (qu|
|00004110| 6f 74 65 20 28 25 20 63 | 61 6c 63 46 75 6e 63 2d |ote (% c|alcFunc-|
|00004120| 69 64 69 76 20 63 61 6c | 63 46 75 6e 63 2d 61 62 |idiv cal|cFunc-ab|
|00004130| 73 20 63 61 6c 63 46 75 | 6e 63 2d 63 68 6f 6f 73 |s calcFu|nc-choos|
|00004140| 65 20 63 61 6c 63 46 75 | 6e 63 2d 70 65 72 6d 20 |e calcFu|nc-perm |
|00004150| 63 61 6c 63 46 75 6e 63 | 2d 65 71 20 63 61 6c 63 |calcFunc|-eq calc|
|00004160| 46 75 6e 63 2d 6e 65 71 | 20 63 61 6c 63 46 75 6e |Func-neq| calcFun|
|00004170| 63 2d 6c 74 20 63 61 6c | 63 46 75 6e 63 2d 67 74 |c-lt cal|cFunc-gt|
|00004180| 20 63 61 6c 63 46 75 6e | 63 2d 6c 65 71 20 63 61 | calcFun|c-leq ca|
|00004190| 6c 63 46 75 6e 63 2d 67 | 65 71 20 63 61 6c 63 46 |lcFunc-g|eq calcF|
|000041a0| 75 6e 63 2d 6c 6e 6f 74 | 20 63 61 6c 63 46 75 6e |unc-lnot| calcFun|
|000041b0| 63 2d 6d 61 78 20 63 61 | 6c 63 46 75 6e 63 2d 6d |c-max ca|lcFunc-m|
|000041c0| 69 6e 29 29 29 0a 0a 28 | 64 65 66 76 61 72 20 6d |in)))..(|defvar m|
|000041d0| 61 74 68 2d 72 65 61 6c | 2d 69 66 2d 61 72 67 2d |ath-real|-if-arg-|
|000041e0| 66 75 6e 63 74 69 6f 6e | 73 20 28 71 75 6f 74 65 |function|s (quote|
|000041f0| 20 28 63 61 6c 63 46 75 | 6e 63 2d 73 69 6e 20 63 | (calcFu|nc-sin c|
|00004200| 61 6c 63 46 75 6e 63 2d | 63 6f 73 20 63 61 6c 63 |alcFunc-|cos calc|
|00004210| 46 75 6e 63 2d 74 61 6e | 20 63 61 6c 63 46 75 6e |Func-tan| calcFun|
|00004220| 63 2d 61 72 63 74 61 6e | 20 63 61 6c 63 46 75 6e |c-arctan| calcFun|
|00004230| 63 2d 73 69 6e 68 20 63 | 61 6c 63 46 75 6e 63 2d |c-sinh c|alcFunc-|
|00004240| 63 6f 73 68 20 63 61 6c | 63 46 75 6e 63 2d 74 61 |cosh cal|cFunc-ta|
|00004250| 6e 68 20 63 61 6c 63 46 | 75 6e 63 2d 65 78 70 20 |nh calcF|unc-exp |
|00004260| 63 61 6c 63 46 75 6e 63 | 2d 67 61 6d 6d 61 20 63 |calcFunc|-gamma c|
|00004270| 61 6c 63 46 75 6e 63 2d | 66 61 63 74 29 29 29 0a |alcFunc-|fact))).|
|00004280| 0a 28 64 65 66 76 61 72 | 20 6d 61 74 68 2d 69 6e |.(defvar| math-in|
|00004290| 74 65 67 65 72 2d 66 75 | 6e 63 74 69 6f 6e 73 20 |teger-fu|nctions |
|000042a0| 28 71 75 6f 74 65 20 28 | 63 61 6c 63 46 75 6e 63 |(quote (|calcFunc|
|000042b0| 2d 69 64 69 76 20 63 61 | 6c 63 46 75 6e 63 2d 69 |-idiv ca|lcFunc-i|
|000042c0| 73 71 72 74 20 63 61 6c | 63 46 75 6e 63 2d 69 6c |sqrt cal|cFunc-il|
|000042d0| 6f 67 20 63 61 6c 63 46 | 75 6e 63 2d 76 6c 65 6e |og calcF|unc-vlen|
|000042e0| 20 63 61 6c 63 46 75 6e | 63 2d 76 63 6f 75 6e 74 | calcFun|c-vcount|
|000042f0| 29 29 29 0a 0a 28 64 65 | 66 76 61 72 20 6d 61 74 |)))..(de|fvar mat|
|00004300| 68 2d 6e 75 6d 2d 69 6e | 74 65 67 65 72 2d 66 75 |h-num-in|teger-fu|
|00004310| 6e 63 74 69 6f 6e 73 20 | 28 71 75 6f 74 65 20 6e |nctions |(quote n|
|00004320| 69 6c 29 29 0a 0a 28 64 | 65 66 76 61 72 20 6d 61 |il))..(d|efvar ma|
|00004330| 74 68 2d 72 6f 75 6e 64 | 69 6e 67 2d 66 75 6e 63 |th-round|ing-func|
|00004340| 74 69 6f 6e 73 20 28 71 | 75 6f 74 65 20 28 63 61 |tions (q|uote (ca|
|00004350| 6c 63 46 75 6e 63 2d 66 | 6c 6f 6f 72 20 63 61 6c |lcFunc-f|loor cal|
|00004360| 63 46 75 6e 63 2d 63 65 | 69 6c 20 63 61 6c 63 46 |cFunc-ce|il calcF|
|00004370| 75 6e 63 2d 72 6f 75 6e | 64 20 63 61 6c 63 46 75 |unc-roun|d calcFu|
|00004380| 6e 63 2d 74 72 75 6e 63 | 20 63 61 6c 63 46 75 6e |nc-trunc| calcFun|
|00004390| 63 2d 72 6f 75 6e 64 65 | 20 63 61 6c 63 46 75 6e |c-rounde| calcFun|
|000043a0| 63 2d 72 6f 75 6e 64 75 | 29 29 29 0a 0a 28 64 65 |c-roundu|)))..(de|
|000043b0| 66 76 61 72 20 6d 61 74 | 68 2d 66 6c 6f 61 74 2d |fvar mat|h-float-|
|000043c0| 72 6f 75 6e 64 69 6e 67 | 2d 66 75 6e 63 74 69 6f |rounding|-functio|
|000043d0| 6e 73 20 28 71 75 6f 74 | 65 20 28 63 61 6c 63 46 |ns (quot|e (calcF|
|000043e0| 75 6e 63 2d 66 66 6c 6f | 6f 72 20 63 61 6c 63 46 |unc-fflo|or calcF|
|000043f0| 75 6e 63 2d 66 63 65 69 | 6c 20 63 61 6c 63 46 75 |unc-fcei|l calcFu|
|00004400| 6e 63 2d 66 72 6f 75 6e | 64 20 63 61 6c 63 46 75 |nc-froun|d calcFu|
|00004410| 6e 63 2d 66 74 72 75 6e | 63 20 63 61 6c 63 46 75 |nc-ftrun|c calcFu|
|00004420| 6e 63 2d 66 72 6f 75 6e | 64 65 20 63 61 6c 63 46 |nc-froun|de calcF|
|00004430| 75 6e 63 2d 66 72 6f 75 | 6e 64 75 29 29 29 0a 0a |unc-frou|ndu)))..|
|00004440| 28 64 65 66 76 61 72 20 | 6d 61 74 68 2d 69 6e 74 |(defvar |math-int|
|00004450| 65 67 65 72 2d 69 66 2d | 61 72 67 73 2d 66 75 6e |eger-if-|args-fun|
|00004460| 63 74 69 6f 6e 73 20 28 | 71 75 6f 74 65 20 28 2b |ctions (|quote (+|
|00004470| 20 2d 20 2a 20 25 20 6e | 65 67 20 63 61 6c 63 46 | - * % n|eg calcF|
|00004480| 75 6e 63 2d 61 62 73 20 | 63 61 6c 63 46 75 6e 63 |unc-abs |calcFunc|
|00004490| 2d 6d 69 6e 20 63 61 6c | 63 46 75 6e 63 2d 6d 61 |-min cal|cFunc-ma|
|000044a0| 78 20 63 61 6c 63 46 75 | 6e 63 2d 63 68 6f 6f 73 |x calcFu|nc-choos|
|000044b0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 70 65 72 6d 29 |e calcFu|nc-perm)|
|000044c0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|000044d0| 75 6e 63 2d 6e 65 67 20 | 28 61 29 20 28 62 79 74 |unc-neg |(a) (byt|
|000044e0| 65 2d 63 6f 64 65 20 22 | c1 c2 08 44 21 87 22 20 |e-code "|...D!." |
|000044f0| 5b 61 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |[a math-|normaliz|
|00004500| 65 20 6e 65 67 5d 20 33 | 29 29 0a 0a 28 64 65 66 |e neg] 3|))..(def|
|00004510| 75 6e 20 6d 61 74 68 2d | 6e 65 67 2d 66 61 6e 63 |un math-|neg-fanc|
|00004520| 79 20 28 61 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |y (a) (b|yte-code|
|00004530| 20 22 08 40 c4 3d 83 2a | 00 c4 c5 08 38 c6 c7 08 | ".@.=.*|....8...|
|00004540| 38 21 83 1e 00 c8 c7 08 | 38 c9 c1 21 5c 22 82 26 |8!......|8..!\".&|
|00004550| 00 ca c7 08 38 c9 c1 21 | 5c 22 45 82 71 01 08 40 |....8..!|\"E.q..@|
|00004560| cb 3d 83 4d 00 cc c5 08 | 38 21 83 3d 00 08 82 4a |.=.M....|8!.=...J|
|00004570| 00 cb c8 c7 08 38 c5 08 | 38 5c 22 c7 08 38 45 82 |.....8..|8\"..8E.|
|00004580| 71 01 08 40 cd 3d 83 61 | 00 cd ce c5 08 38 21 c7 |q..@.=.a|.....8!.|
|00004590| 08 38 45 82 71 01 08 40 | cf 3d 83 7c 00 d0 d1 c5 |.8E.q..@|.=.|....|
|000045a0| 08 38 48 ce d2 08 38 21 | ce c7 08 38 21 23 82 71 |.8H...8!|...8!#.q|
|000045b0| 01 0a 85 85 00 d3 08 0a | 5c 22 3f 83 8e 00 d4 08 |........|\"?.....|
|000045c0| 44 82 71 01 08 40 d5 3d | 83 a2 00 c8 ce c5 08 38 |D.q..@.=|.......8|
|000045d0| 21 c7 08 38 5c 22 82 71 | 01 08 40 d6 3d 83 b4 00 |!..8\".q|..@.=...|
|000045e0| c8 c7 08 38 c5 08 38 5c | 22 82 71 01 08 40 d7 3e |...8..8\|".q..@.>|
|000045f0| 85 c0 00 d8 c5 08 38 21 | 83 d1 00 08 40 ce c5 08 |......8!|....@...|
|00004600| 38 21 c7 08 38 45 82 71 | 01 08 40 d9 3e 85 dd 00 |8!..8E.q|..@.>...|
|00004610| d8 c7 08 38 21 83 ee 00 | 08 40 c5 08 38 ce c7 08 |...8!...|.@..8...|
|00004620| 38 21 45 82 71 01 08 40 | da 3e 85 0d 01 db c5 08 |8!E.q..@|.>......|
|00004630| 38 21 86 0d 01 c5 08 38 | 40 dc 3d 85 0d 01 db c5 |8!.....8|@.=.....|
|00004640| c5 08 38 38 21 83 1e 01 | 08 40 ce c5 08 38 21 c7 |..88!...|.@...8!.|
|00004650| 08 38 45 82 71 01 08 40 | dd 3d 85 3d 01 db c7 08 |.8E.q..@|.=.=....|
|00004660| 38 21 86 3d 01 c7 08 38 | 40 dc 3d 85 3d 01 db c5 |8!.=...8|@.=.=...|
|00004670| c7 08 38 38 21 83 4e 01 | 08 40 c5 08 38 ce c7 08 |..88!.N.|.@..8...|
|00004680| 38 21 45 82 71 01 08 40 | de 3d 85 5a 01 c7 08 38 |8!E.q..@|.=.Z...8|
|00004690| df 3e 83 61 01 08 82 71 | 01 08 40 d4 3d 83 6e 01 |.>.a...q|..@.=.n.|
|000046a0| c5 08 38 82 71 01 d4 08 | 44 87 22 20 5b 61 20 6e |..8.q...|D." [a n|
|000046b0| 69 6c 20 6d 61 74 68 2d | 73 69 6d 70 6c 69 66 79 |il math-|simplify|
|000046c0| 2d 6f 6e 6c 79 20 74 20 | 70 6f 6c 61 72 20 31 20 |-only t |polar 1 |
|000046d0| 6d 61 74 68 2d 70 6f 73 | 70 20 32 20 6d 61 74 68 |math-pos|p 2 math|
|000046e0| 2d 73 75 62 20 6d 61 74 | 68 2d 68 61 6c 66 2d 63 |-sub mat|h-half-c|
|000046f0| 69 72 63 6c 65 20 6d 61 | 74 68 2d 61 64 64 20 6d |ircle ma|th-add m|
|00004700| 6f 64 20 6d 61 74 68 2d | 7a 65 72 6f 70 20 73 64 |od math-|zerop sd|
|00004710| 65 76 20 6d 61 74 68 2d | 6e 65 67 20 69 6e 74 76 |ev math-|neg intv|
|00004720| 20 6d 61 74 68 2d 6d 61 | 6b 65 2d 69 6e 74 76 20 | math-ma|ke-intv |
|00004730| 5b 30 20 32 20 31 20 33 | 5d 20 33 20 65 71 75 61 |[0 2 1 3|] 3 equa|
|00004740| 6c 20 6e 65 67 20 2b 20 | 2d 20 28 2a 20 2f 29 20 |l neg + |- (* /) |
|00004750| 6d 61 74 68 2d 6f 6b 61 | 79 2d 6e 65 67 20 28 2a |math-oka|y-neg (*|
|00004760| 20 2f 29 20 28 2a 20 2f | 29 20 6d 61 74 68 2d 6f | /) (* /|) math-o|
|00004770| 62 6a 65 63 74 70 20 2a | 20 2f 20 76 61 72 20 28 |bjectp *| / var (|
|00004780| 76 61 72 2d 75 69 6e 66 | 20 76 61 72 2d 6e 61 6e |var-uinf| var-nan|
|00004790| 29 5d 20 32 39 29 29 0a | 0a 28 64 65 66 75 6e 20 |)] 29)).|.(defun |
|000047a0| 6d 61 74 68 2d 6f 6b 61 | 79 2d 6e 65 67 20 28 61 |math-oka|y-neg (a|
|000047b0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 08 |) (byte-|code "..|
|000047c0| 21 86 0b 00 c2 08 21 c3 | 3d 87 22 20 5b 61 20 6d |!.....!.|=." [a m|
|000047d0| 61 74 68 2d 6c 6f 6f 6b | 73 2d 6e 65 67 70 20 63 |ath-look|s-negp c|
|000047e0| 61 72 2d 73 61 66 65 20 | 2d 5d 20 34 29 29 0a 0a |ar-safe |-] 4))..|
|000047f0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 6e 65 67 2d |(defun m|ath-neg-|
|00004800| 66 6c 6f 61 74 20 28 61 | 29 20 28 62 79 74 65 2d |float (a|) (byte-|
|00004810| 63 6f 64 65 20 22 c1 c2 | 08 38 3a 83 23 00 c2 08 |code "..|.8:.#...|
|00004820| 38 40 c3 3d 83 1a 00 c4 | c2 08 38 41 42 82 20 00 |8@.=....|..8AB. .|
|00004830| c3 c2 08 38 41 42 82 27 | 00 c2 08 38 5b c5 08 38 |...8AB.'|...8[..8|
|00004840| 45 87 22 20 5b 61 20 66 | 6c 6f 61 74 20 31 20 62 |E." [a f|loat 1 b|
|00004850| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 32 5d 20 |igpos bi|gneg 2] |
|00004860| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |4))..(de|fun calc|
|00004870| 46 75 6e 63 2d 61 64 64 | 20 28 26 72 65 73 74 20 |Func-add| (&rest |
|00004880| 72 65 73 74 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |rest) (b|yte-code|
|00004890| 20 22 08 83 21 00 08 40 | 19 08 41 89 10 85 19 00 | "..!..@|..A.....|
|000048a0| c2 09 08 40 45 89 11 88 | 82 07 00 88 c3 09 21 29 |...@E...|......!)|
|000048b0| 82 5c 22 00 c4 87 22 20 | 5b 72 65 73 74 20 61 20 |.\"..." |[rest a |
|000048c0| 2b 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |+ math-n|ormalize|
|000048d0| 20 30 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 | 0] 4)).|.(defun |
|000048e0| 63 61 6c 63 46 75 6e 63 | 2d 73 75 62 20 28 26 72 |calcFunc|-sub (&r|
|000048f0| 65 73 74 20 72 65 73 74 | 29 20 28 62 79 74 65 2d |est rest|) (byte-|
|00004900| 63 6f 64 65 20 22 08 83 | 21 00 08 40 19 08 41 89 |code "..|!..@..A.|
|00004910| 10 85 19 00 c2 09 08 40 | 45 89 11 88 82 07 00 88 |.......@|E.......|
|00004920| c3 09 21 29 82 5c 22 00 | c4 87 22 20 5b 72 65 73 |..!).\".|.." [res|
|00004930| 74 20 61 20 2d 20 6d 61 | 74 68 2d 6e 6f 72 6d 61 |t a - ma|th-norma|
|00004940| 6c 69 7a 65 20 30 5d 20 | 34 29 29 0a 0a 28 64 65 |lize 0] |4))..(de|
|00004950| 66 75 6e 20 6d 61 74 68 | 2d 61 64 64 2d 6f 62 6a |fun math|-add-obj|
|00004960| 65 63 74 73 2d 66 61 6e | 63 79 20 28 61 20 62 29 |ects-fan|cy (a b)|
|00004970| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 3a 3f | (byte-c|ode ".:?|
|00004980| 86 0a 00 08 40 cb 3e 85 | 17 00 09 3a 3f 86 17 00 |....@.>.|...:?...|
|00004990| 09 40 cc 3e 83 4a 00 cd | 08 21 cd 09 21 1b 1a ce |.@.>.J..|.!..!...|
|000049a0| cf d0 d1 0a 38 d1 0b 38 | 5c 22 d0 d2 0a 38 d2 0b |....8..8|\"...8..|
|000049b0| 38 5c 22 45 1c d3 08 09 | 5c 22 83 43 00 d4 0c 21 |8\"E....|\".C...!|
|000049c0| 82 44 00 0c 29 21 2a 82 | cb 03 08 3a 85 53 00 08 |.D..)!*.|...:.S..|
|000049d0| 40 d5 3d 86 5f 00 09 3a | 85 5f 00 09 40 d5 3d 83 |@.=._..:|._..@.=.|
|000049e0| 6a 00 d6 d0 08 09 23 82 | cb 03 d7 08 21 d8 3d 83 |j.....#.|....!.=.|
|000049f0| b8 00 d7 09 21 d8 3d 83 | 8f 00 d9 d0 d1 08 38 d1 |....!.=.|......8.|
|00004a00| 09 38 5c 22 da d2 08 38 | d2 09 38 5c 22 5c 22 82 |.8\"...8|..8\"\".|
|00004a10| b5 00 09 3a 3f 86 99 00 | 09 40 db 3e 86 a7 00 09 |...:?...|.@.>....|
|00004a20| 3a 3f 86 a6 00 09 40 dc | 3e 3f 85 b5 00 d9 d0 d1 |:?....@.|>?......|
|00004a30| 08 38 09 5c 22 d2 08 38 | 5c 22 82 cb 03 d7 09 21 |.8.\"..8|\".....!|
|00004a40| d8 3d 85 d8 00 08 3a 3f | 86 ca 00 08 40 dd 3e 86 |.=....:?|....@.>.|
|00004a50| d8 00 08 3a 3f 86 d7 00 | 08 40 de 3e 3f 83 e9 00 |...:?...|.@.>?...|
|00004a60| d9 d0 08 d1 09 38 5c 22 | d2 09 38 5c 22 82 cb 03 |.....8\"|..8\"...|
|00004a70| d7 08 21 df 3d 83 9a 01 | d7 09 21 df 3d 83 64 01 |..!.=...|..!.=.d.|
|00004a80| e0 e1 e2 d1 08 38 d1 09 | 38 5c 22 e3 d2 08 38 e4 |.....8..|8\"...8.|
|00004a90| 5c 22 83 15 01 e2 d1 08 | 38 d2 5c 22 82 16 01 e5 |\"......|8.\"....|
|00004aa0| e3 d2 09 38 e6 5c 22 83 | 28 01 e2 d1 09 38 d2 5c |...8.\".|(....8.\|
|00004ab0| 22 82 29 01 e5 e3 e7 08 | 38 e8 5c 22 83 3b 01 e2 |".).....|8.\".;..|
|00004ac0| d1 08 38 d1 5c 22 82 3c | 01 e5 e3 e7 09 38 e9 5c |..8.\".<|.....8.\|
|00004ad0| 22 83 4e 01 e2 d1 09 38 | d1 5c 22 82 4f 01 e5 25 |".N....8|.\".O..%|
|00004ae0| d0 d2 08 38 d2 09 38 5c | 22 d0 e7 08 38 e7 09 38 |...8..8\|"...8..8|
|00004af0| 5c 22 23 82 97 01 09 3a | 3f 86 6e 01 09 40 ea 3e |\"#....:|?.n..@.>|
|00004b00| 86 83 01 09 40 eb 3d 86 | 83 01 09 3a 3f 86 82 01 |....@.=.|...:?...|
|00004b10| 09 40 ec 3e 3f 85 97 01 | e0 d1 08 38 d0 d2 08 38 |.@.>?...|...8...8|
|00004b20| 09 5c 22 d0 e7 08 38 09 | 5c 22 23 82 cb 03 d7 09 |.\"...8.|\"#.....|
|00004b30| 21 df 3d 85 c1 01 08 3a | 3f 86 ac 01 08 40 ed 3e |!.=....:|?....@.>|
|00004b40| 86 c1 01 08 40 eb 3d 86 | c1 01 08 3a 3f 86 c0 01 |....@.=.|...:?...|
|00004b50| 08 40 ee 3e 3f 83 d8 01 | e0 d1 09 38 d0 08 d2 09 |.@.>?...|...8....|
|00004b60| 38 5c 22 d0 08 e7 09 38 | 5c 22 23 82 cb 03 d7 08 |8\"....8|\"#.....|
|00004b70| 21 eb 3d 83 47 02 d7 09 | 21 eb 3d 83 f3 01 d0 d1 |!.=.G...|!.=.....|
|00004b80| 08 38 d1 09 38 5c 22 82 | 44 02 d7 09 21 ef 3d 83 |.8..8\".|D...!.=.|
|00004b90| 2b 02 f0 d1 08 38 21 1d | eb d0 0d 40 f1 d0 d0 d1 |+....8!.|...@....|
|00004ba0| 0d 38 d2 0d 38 5c 22 d0 | f2 d1 09 38 f3 5c 22 d0 |.8..8\".|...8.\".|
|00004bb0| f2 d2 09 38 f4 5c 22 e7 | 09 38 5c 22 5c 22 5c 22 |...8.\".|.8\"\"\"|
|00004bc0| f5 5c 22 5c 22 44 29 82 | 44 02 09 3a 3f 86 35 02 |.\"\"D).|D..:?.5.|
|00004bd0| 09 40 f6 3e 83 43 02 eb | d0 d1 08 38 09 5c 22 44 |.@.>.C..|...8.\"D|
|00004be0| 82 44 02 c7 82 cb 03 d7 | 09 21 eb 3d 83 56 02 f7 |.D......|.!.=.V..|
|00004bf0| 09 08 5c 22 82 cb 03 d7 | 08 21 f8 3d 85 6e 02 d7 |..\"....|.!.=.n..|
|00004c00| 09 21 f8 3d 85 6e 02 e3 | d2 08 38 d2 09 38 5c 22 |.!.=.n..|..8..8\"|
|00004c10| 83 81 02 f9 d0 d1 08 38 | d1 09 38 5c 22 d2 08 38 |.......8|..8\"..8|
|00004c20| 5c 22 82 cb 03 d7 08 21 | f8 3d 85 93 02 09 3a 3f |\".....!|.=....:?|
|00004c30| 86 93 02 09 40 fa 3e 83 | a4 02 f9 d0 d1 08 38 09 |....@.>.|......8.|
|00004c40| 5c 22 d2 08 38 5c 22 82 | cb 03 d7 09 21 f8 3d 85 |\"..8\".|....!.=.|
|00004c50| b6 02 08 3a 3f 86 b6 02 | 08 40 fb 3e 83 c7 02 f9 |...:?...|.@.>....|
|00004c60| d0 08 d1 09 38 5c 22 d2 | 09 38 5c 22 82 cb 03 d7 |....8\".|.8\"....|
|00004c70| 08 21 ef 3d 86 d4 02 d7 | 09 21 ef 3d 85 ee 02 08 |.!.=....|.!.=....|
|00004c80| 3a 3f 86 e1 02 08 40 fc | 3e 85 ee 02 09 3a 3f 86 |:?....@.|>....:?.|
|00004c90| ee 02 09 40 fd 3e 83 c2 | 03 d7 08 21 ef 3d 86 fe |...@.>..|...!.=..|
|00004ca0| 02 fe 08 21 89 10 88 d7 | 09 21 ef 3d 86 0c 03 fe |...!....|.!.=....|
|00004cb0| 09 21 89 11 88 ce ff 08 | 21 83 27 03 81 40 00 d0 |.!......|!.'..@..|
|00004cc0| 81 40 00 08 21 81 40 00 | 09 21 5c 22 21 82 be 03 |.@..!.@.|.!\"!...|
|00004cd0| ff 09 21 83 97 03 d0 e7 | 08 38 e7 09 38 5c 22 1e |..!.....|.8..8\".|
|00004ce0| 08 d0 d2 08 38 d2 09 38 | 5c 22 1e 09 d0 d1 08 38 |....8..8|\".....8|
|00004cf0| d1 09 38 5c 22 1e 0a ff | 0e 08 21 85 63 03 d0 0e |..8\"...|..!.c...|
|00004d00| 08 f4 5c 22 16 08 d0 0e | 09 81 41 00 5c 22 89 16 |..\"....|..A.\"..|
|00004d10| 09 88 ff 0e 09 21 85 7c | 03 d0 0e 09 f4 5c 22 16 |.....!.||.....\".|
|00004d20| 09 d0 0e 0a 81 41 00 5c | 22 89 16 0a 88 ff 0e 0a |.....A.\|".......|
|00004d30| 21 83 8b 03 d0 09 08 5c | 22 82 93 03 ef 0e 0a 0e |!......\|".......|
|00004d40| 09 0e 08 46 2b 82 be 03 | d0 e7 08 38 e7 09 38 5c |...F+...|...8..8\|
|00004d50| 22 1e 08 d0 d2 08 38 d2 | 09 38 5c 22 1e 09 d0 d1 |".....8.|.8\"....|
|00004d60| 08 38 d1 09 38 5c 22 1e | 0a ef 0e 0a 0e 09 0e 08 |.8..8\".|........|
|00004d70| 46 2b 21 82 cb 03 81 42 | 00 81 43 00 08 09 23 87 |F+!....B|..C...#.|
|00004d80| 22 20 5b 61 20 62 20 61 | 61 20 62 62 20 72 65 73 |" [a b a|a bb res|
|00004d90| 20 70 61 72 74 73 20 74 | 20 6e 69 6c 20 73 20 6d | parts t| nil s m|
|00004da0| 20 68 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 | h (bigp|os bigne|
|00004db0| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 63 70 6c |g frac f|loat cpl|
|00004dc0| 78 20 70 6f 6c 61 72 29 | 20 28 62 69 67 70 6f 73 |x polar)| (bigpos|
|00004dd0| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00004de0| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 29 20 6d |at cplx |polar) m|
|00004df0| 61 74 68 2d 63 6f 6d 70 | 6c 65 78 20 6d 61 74 68 |ath-comp|lex math|
|00004e00| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 63 70 6c 78 20 |-normali|ze cplx |
|00004e10| 6d 61 74 68 2d 61 64 64 | 20 31 20 32 20 6d 61 74 |math-add| 1 2 mat|
|00004e20| 68 2d 77 61 6e 74 2d 70 | 6f 6c 61 72 20 6d 61 74 |h-want-p|olar mat|
|00004e30| 68 2d 70 6f 6c 61 72 20 | 76 65 63 20 6d 61 74 68 |h-polar |vec math|
|00004e40| 2d 6d 61 70 2d 76 65 63 | 2d 32 20 63 61 72 2d 73 |-map-vec|-2 car-s|
|00004e50| 61 66 65 20 73 64 65 76 | 20 6d 61 74 68 2d 6d 61 |afe sdev| math-ma|
|00004e60| 6b 65 2d 73 64 65 76 20 | 6d 61 74 68 2d 68 79 70 |ke-sdev |math-hyp|
|00004e70| 6f 74 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |ot (bigp|os bigne|
|00004e80| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 63 70 6c |g frac f|loat cpl|
|00004e90| 78 20 70 6f 6c 61 72 20 | 68 6d 73 29 20 28 62 69 |x polar |hms) (bi|
|00004ea0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|00004eb0| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|00004ec0| 72 20 68 6d 73 20 64 61 | 74 65 20 73 64 65 76 20 |r hms da|te sdev |
|00004ed0| 69 6e 74 76 20 6d 6f 64 | 20 76 65 63 29 20 28 62 |intv mod| vec) (b|
|00004ee0| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00004ef0| 63 20 66 6c 6f 61 74 20 | 63 70 6c 78 20 70 6f 6c |c float |cplx pol|
|00004f00| 61 72 20 68 6d 73 29 20 | 28 62 69 67 70 6f 73 20 |ar hms) |(bigpos |
|00004f10| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00004f20| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 20 68 6d 73 |t cplx p|olar hms|
|00004f30| 20 64 61 74 65 20 73 64 | 65 76 20 69 6e 74 76 20 | date sd|ev intv |
|00004f40| 6d 6f 64 20 76 65 63 29 | 20 69 6e 74 76 20 6d 61 |mod vec)| intv ma|
|00004f50| 74 68 2d 6d 61 6b 65 2d | 69 6e 74 76 20 6c 6f 67 |th-make-|intv log|
|00004f60| 69 6f 72 20 6c 6f 67 61 | 6e 64 20 65 71 75 61 6c |ior loga|nd equal|
|00004f70| 20 28 6e 65 67 20 28 76 | 61 72 20 69 6e 66 20 76 | (neg (v|ar inf v|
|00004f80| 61 72 2d 69 6e 66 29 29 | 20 30 20 28 6e 65 67 20 |ar-inf))| 0 (neg |
|00004f90| 28 76 61 72 20 69 6e 66 | 20 76 61 72 2d 69 6e 66 |(var inf| var-inf|
|00004fa0| 29 29 20 33 20 28 76 61 | 72 20 69 6e 66 20 76 61 |)) 3 (va|r inf va|
|00004fb0| 72 2d 69 6e 66 29 20 28 | 76 61 72 20 69 6e 66 20 |r-inf) (|var inf |
|00004fc0| 76 61 72 2d 69 6e 66 29 | 20 28 62 69 67 70 6f 73 |var-inf)| (bigpos|
|00004fd0| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00004fe0| 61 74 20 68 6d 73 29 20 | 64 61 74 65 20 28 62 69 |at hms) |date (bi|
|00004ff0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|00005000| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|00005010| 72 20 68 6d 73 20 64 61 | 74 65 20 73 64 65 76 20 |r hms da|te sdev |
|00005020| 69 6e 74 76 20 6d 6f 64 | 20 76 65 63 29 20 28 62 |intv mod| vec) (b|
|00005030| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00005040| 63 20 66 6c 6f 61 74 20 | 68 6d 73 29 20 28 62 69 |c float |hms) (bi|
|00005050| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|00005060| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|00005070| 72 20 68 6d 73 20 64 61 | 74 65 20 73 64 65 76 20 |r hms da|te sdev |
|00005080| 69 6e 74 76 20 6d 6f 64 | 20 76 65 63 29 20 68 6d |intv mod| vec) hm|
|00005090| 73 20 6d 61 74 68 2d 64 | 61 74 65 2d 70 61 72 74 |s math-d|ate-part|
|000050a0| 73 20 6d 61 74 68 2d 64 | 69 76 20 6d 61 74 68 2d |s math-d|iv math-|
|000050b0| 6d 75 6c 20 33 36 30 30 | 20 36 30 20 38 36 34 30 |mul 3600| 60 8640|
|000050c0| 30 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |0 (bigpo|s bigneg|
|000050d0| 20 66 72 61 63 20 66 6c | 6f 61 74 29 20 6d 61 74 | frac fl|oat) mat|
|000050e0| 68 2d 61 64 64 2d 6f 62 | 6a 65 63 74 73 2d 66 61 |h-add-ob|jects-fa|
|000050f0| 6e 63 79 20 6d 6f 64 20 | 6d 61 74 68 2d 6d 61 6b |ncy mod |math-mak|
|00005100| 65 2d 6d 6f 64 20 28 62 | 69 67 70 6f 73 20 62 69 |e-mod (b|igpos bi|
|00005110| 67 6e 65 67 20 66 72 61 | 63 20 66 6c 6f 61 74 20 |gneg fra|c float |
|00005120| 68 6d 73 29 20 28 62 69 | 67 70 6f 73 20 62 69 67 |hms) (bi|gpos big|
|00005130| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 68 |neg frac| float h|
|00005140| 6d 73 29 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |ms) (big|pos bign|
|00005150| 65 67 20 66 72 61 63 20 | 66 6c 6f 61 74 20 68 6d |eg frac |float hm|
|00005160| 73 29 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |s) (bigp|os bigne|
|00005170| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 68 6d 73 |g frac f|loat hms|
|00005180| 29 20 6d 61 74 68 2d 74 | 6f 2d 68 6d 73 20 6d 61 |) math-t|o-hms ma|
|00005190| 74 68 2d 6e 65 67 70 20 | 6d 61 74 68 2d 6e 65 67 |th-negp |math-neg|
|000051a0| 20 2d 31 20 63 61 6c 63 | 2d 72 65 63 6f 72 64 2d | -1 calc|-record-|
|000051b0| 77 68 79 20 22 2a 49 6e | 63 6f 6d 70 61 74 69 62 |why "*In|compatib|
|000051c0| 6c 65 20 61 72 67 75 6d | 65 6e 74 73 20 66 6f 72 |le argum|ents for|
|000051d0| 20 2b 22 5d 20 39 38 29 | 29 0a 0a 28 64 65 66 75 | +"] 98)|)..(defu|
|000051e0| 6e 20 6d 61 74 68 2d 61 | 64 64 2d 73 79 6d 62 2d |n math-a|dd-symb-|
|000051f0| 66 61 6e 63 79 20 28 61 | 20 62 29 20 28 62 79 74 |fancy (a| b) (byt|
|00005200| 65 2d 63 6f 64 65 20 22 | 08 85 10 00 ca 09 08 5c |e-code "|.......\|
|00005210| 22 3f 85 10 00 cb 09 0a | 45 86 24 03 cc 0a 21 cb |"?......|E.$...!.|
|00005220| 3d 85 26 00 cd cd 09 ce | 0a 38 5c 22 cf 0a 38 5c |=.&.....|.8\"..8\|
|00005230| 22 86 24 03 cc 0a 21 d0 | 3d 85 3c 00 d1 cd 09 ce |".$...!.|=.<.....|
|00005240| 0a 38 5c 22 cf 0a 38 5c | 22 86 24 03 cc 0a 21 d2 |.8\"..8\|".$...!.|
|00005250| 3d 85 60 00 cc ce 0a 38 | 21 cb 3d 85 60 00 d1 d1 |=.`....8|!.=.`...|
|00005260| 09 ce ce 0a 38 38 5c 22 | cf ce 0a 38 38 5c 22 86 |....88\"|...88\".|
|00005270| 24 03 09 3a 85 6c 00 09 | 40 d3 3d 85 72 00 d4 0a |$..:.l..|@.=.r...|
|00005280| 21 86 84 00 0a 3a 85 7e | 00 0a 40 d3 3d 85 84 00 |!....:.~|..@.=...|
|00005290| d4 09 21 85 8c 00 d5 cd | 09 0a 23 86 24 03 d6 09 |..!.....|..#.$...|
|000052a0| 21 1b 0b 83 46 01 d6 0a | 21 1c 0c 83 ed 00 cf 0b |!...F...|!.......|
|000052b0| 38 d7 3e 86 ac 00 cf 0c | 38 d8 3e 83 b3 00 d9 82 |8.>.....|8.>.....|
|000052c0| ea 00 da 09 0b 5c 22 da | 0a 0c 5c 22 1e 06 1d 0d |.....\".|..\"....|
|000052d0| 3a 3f 86 c8 00 0d 40 db | 3e 85 d7 00 0e 06 3a 3f |:?....@.|>.....:?|
|000052e0| 86 d7 00 0e 06 40 dc 3e | 85 e9 00 dd 0d 0e 06 5c |.....@.>|.......\|
|000052f0| 22 de 55 83 e8 00 09 82 | e9 00 df 2a 82 42 01 ca |".U.....|...*.B..|
|00005300| 09 e0 5c 22 85 0a 01 cc | 0a 21 e1 3d 85 0a 01 ce |..\"....|.!.=....|
|00005310| 0a 38 e2 3e 85 0a 01 ca | cf 0a 38 e3 5c 22 83 17 |.8.>....|..8.\"..|
|00005320| 01 e1 e4 cf 0a 38 09 46 | 82 42 01 ca 09 e5 5c 22 |.....8.F|.B....\"|
|00005330| 85 34 01 cc 0a 21 e1 3d | 85 34 01 ce 0a 38 e6 3e |.4...!.=|.4...8.>|
|00005340| 85 34 01 ca e4 0a 38 e7 | 5c 22 83 41 01 e1 e4 09 |.4....8.|\".A....|
|00005350| e4 0a 38 46 82 42 01 09 | 29 82 ca 01 d6 0a 21 83 |..8F.B..|).....!.|
|00005360| 5f 01 cc 09 21 e1 3d 83 | 5b 01 cd 0a 09 5c 22 82 |_...!.=.|[....\".|
|00005370| 5c 5c 01 0a 82 ca 01 cc | 09 21 cb 3d 83 82 01 e8 |\\......|.!.=....|
|00005380| cf 09 38 0a c8 c8 c9 25 | 1e 07 0e 07 85 7e 01 cd |..8....%|.....~..|
|00005390| ce 09 38 0e 07 5c 22 29 | 82 ca 01 cc 09 21 d0 3d |..8..\")|.....!.=|
|000053a0| 83 a5 01 e8 cf 09 38 0a | c9 c8 c9 25 1e 07 0e 07 |......8.|...%....|
|000053b0| 85 a1 01 cd ce 09 38 0e | 07 5c 22 29 82 ca 01 09 |......8.|.\")....|
|000053c0| 3a 3f 86 af 01 09 40 e9 | 3e 85 bc 01 0a 3a 3f 86 |:?....@.|>....:?.|
|000053d0| bc 01 0a 40 ea 3e 83 c3 | 01 c8 82 ca 01 e8 09 0a |...@.>..|........|
|000053e0| c8 c8 c8 25 29 86 24 03 | 0a 3a 83 07 02 0a 40 eb |...%).$.|.:....@.|
|000053f0| 3d 86 04 02 0a 40 ec 3d | 3f 85 04 02 0a 40 ed 3e |=....@.=|?....@.>|
|00005400| 83 01 02 ce 0a 38 3a 83 | f9 01 ce 0a 38 40 eb 3d |.....8:.|....8@.=|
|00005410| 82 fe 01 ce 0a 38 de 57 | 82 04 02 ee 0a 21 82 0a |.....8.W|.....!..|
|00005420| 02 0a de 57 86 2d 02 0a | 3a 85 2d 02 0a 40 d2 3d |...W.-..|:.-..@.=|
|00005430| 86 2d 02 0a 40 ef 3e 85 | 2d 02 f0 ce 0a 38 21 86 |.-..@.>.|-....8!.|
|00005440| 2d 02 f0 cf 0a 38 21 85 | 36 02 d0 09 f1 0a 21 45 |-....8!.|6.....!E|
|00005450| 86 24 03 09 3a 83 72 02 | 09 40 eb 3d 86 6f 02 09 |.$..:.r.|.@.=.o..|
|00005460| 40 ec 3d 3f 85 6f 02 09 | 40 f2 3e 83 6c 02 ce 09 |@.=?.o..|@.>.l...|
|00005470| 38 3a 83 64 02 ce 09 38 | 40 eb 3d 82 69 02 ce 09 |8:.d...8|@.=.i...|
|00005480| 38 de 57 82 6f 02 ee 09 | 21 82 75 02 09 de 57 86 |8.W.o...|!.u...W.|
|00005490| 98 02 09 3a 85 98 02 09 | 40 d2 3d 86 98 02 09 40 |...:....|@.=....@|
|000054a0| f3 3e 85 98 02 f0 ce 09 | 38 21 86 98 02 f0 cf 09 |.>......|8!......|
|000054b0| 38 21 85 a1 02 d0 0a f1 | 09 21 45 86 24 03 cc 09 |8!......|.!E.$...|
|000054c0| 21 f4 3d 85 ed 02 09 47 | cf 55 85 ed 02 cc 0a 21 |!.=....G|.U.....!|
|000054d0| f4 3d 85 cc 02 0a 47 cf | 55 85 cc 02 f4 cd ce 09 |.=....G.|U.......|
|000054e0| 38 ce 0a 38 5c 22 44 86 | ed 02 f5 0a 21 85 de 02 |8..8\"D.|....!...|
|000054f0| cd f6 ce 09 38 0a 5c 22 | 0a 5c 22 86 ed 02 d4 0a |....8.\"|.\".....|
|00005500| 21 85 ed 02 cd ce 09 38 | 0a 5c 22 86 24 03 cc 0a |!......8|.\".$...|
|00005510| 21 f4 3d 85 1d 03 09 47 | cf 55 85 1d 03 f5 09 21 |!.=....G|.U.....!|
|00005520| 85 0e 03 cd 09 f6 ce 0a | 38 09 5c 22 5c 22 86 1d |........|8.\"\"..|
|00005530| 03 d4 09 21 85 1d 03 cd | 09 ce 0a 38 5c 22 86 24 |...!....|...8\".$|
|00005540| 03 cb 09 0a 45 87 22 20 | 5b 6d 61 74 68 2d 73 69 |....E." |[math-si|
|00005550| 6d 70 6c 69 66 79 2d 6f | 6e 6c 79 20 61 20 62 20 |mplify-o|nly a b |
|00005560| 69 6e 66 20 69 6e 66 32 | 20 64 69 72 20 64 69 72 |inf inf2| dir dir|
|00005570| 32 20 74 65 6d 70 20 6e | 69 6c 20 74 20 65 71 75 |2 temp n|il t equ|
|00005580| 61 6c 20 2b 20 63 61 72 | 2d 73 61 66 65 20 6d 61 |al + car|-safe ma|
|00005590| 74 68 2d 61 64 64 20 31 | 20 32 20 2d 20 6d 61 74 |th-add 1| 2 - mat|
|000055a0| 68 2d 73 75 62 20 6e 65 | 67 20 76 65 63 20 6d 61 |h-sub ne|g vec ma|
|000055b0| 74 68 2d 6b 6e 6f 77 6e | 2d 73 63 61 6c 61 72 70 |th-known|-scalarp|
|000055c0| 20 6d 61 74 68 2d 6d 61 | 70 2d 76 65 63 2d 32 20 | math-ma|p-vec-2 |
|000055d0| 6d 61 74 68 2d 69 6e 66 | 69 6e 69 74 65 70 20 28 |math-inf|initep (|
|000055e0| 76 61 72 2d 75 69 6e 66 | 20 76 61 72 2d 6e 61 6e |var-uinf| var-nan|
|000055f0| 29 20 28 76 61 72 2d 75 | 69 6e 66 20 76 61 72 2d |) (var-u|inf var-|
|00005600| 6e 61 6e 29 20 28 76 61 | 72 20 6e 61 6e 20 76 61 |nan) (va|r nan va|
|00005610| 72 2d 6e 61 6e 29 20 6d | 61 74 68 2d 69 6e 66 69 |r-nan) m|ath-infi|
|00005620| 6e 69 74 65 2d 64 69 72 | 20 28 62 69 67 70 6f 73 |nite-dir| (bigpos|
|00005630| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00005640| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 20 68 6d |at cplx |polar hm|
|00005650| 73 20 64 61 74 65 20 73 | 64 65 76 20 69 6e 74 76 |s date s|dev intv|
|00005660| 20 6d 6f 64 29 20 28 62 | 69 67 70 6f 73 20 62 69 | mod) (b|igpos bi|
|00005670| 67 6e 65 67 20 66 72 61 | 63 20 66 6c 6f 61 74 20 |gneg fra|c float |
|00005680| 63 70 6c 78 20 70 6f 6c | 61 72 20 68 6d 73 20 64 |cplx pol|ar hms d|
|00005690| 61 74 65 20 73 64 65 76 | 20 69 6e 74 76 20 6d 6f |ate sdev| intv mo|
|000056a0| 64 29 20 6d 61 74 68 2d | 63 6f 6d 70 61 72 65 20 |d) math-|compare |
|000056b0| 30 20 28 76 61 72 20 6e | 61 6e 20 76 61 72 2d 6e |0 (var n|an var-n|
|000056c0| 61 6e 29 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |an) (var| inf var|
|000056d0| 2d 69 6e 66 29 20 69 6e | 74 76 20 28 32 20 33 29 |-inf) in|tv (2 3)|
|000056e0| 20 28 6e 65 67 20 28 76 | 61 72 20 69 6e 66 20 76 | (neg (v|ar inf v|
|000056f0| 61 72 2d 69 6e 66 29 29 | 20 33 20 28 6e 65 67 20 |ar-inf))| 3 (neg |
|00005700| 28 76 61 72 20 69 6e 66 | 20 76 61 72 2d 69 6e 66 |(var inf| var-inf|
|00005710| 29 29 20 28 31 20 33 29 | 20 28 76 61 72 20 69 6e |)) (1 3)| (var in|
|00005720| 66 20 76 61 72 2d 69 6e | 66 29 20 6d 61 74 68 2d |f var-in|f) math-|
|00005730| 63 6f 6d 62 69 6e 65 2d | 73 75 6d 20 28 62 69 67 |combine-|sum (big|
|00005740| 70 6f 73 20 62 69 67 6e | 65 67 20 66 72 61 63 20 |pos bign|eg frac |
|00005750| 66 6c 6f 61 74 20 63 70 | 6c 78 20 70 6f 6c 61 72 |float cp|lx polar|
|00005760| 20 68 6d 73 20 64 61 74 | 65 20 73 64 65 76 20 69 | hms dat|e sdev i|
|00005770| 6e 74 76 20 6d 6f 64 29 | 20 28 62 69 67 70 6f 73 |ntv mod)| (bigpos|
|00005780| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00005790| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 20 68 6d |at cplx |polar hm|
|000057a0| 73 20 64 61 74 65 20 73 | 64 65 76 20 69 6e 74 76 |s date s|dev intv|
|000057b0| 20 6d 6f 64 29 20 62 69 | 67 6e 65 67 20 62 69 67 | mod) bi|gneg big|
|000057c0| 70 6f 73 20 28 66 72 61 | 63 20 66 6c 6f 61 74 29 |pos (fra|c float)|
|000057d0| 20 6d 61 74 68 2d 6e 65 | 67 70 20 28 2a 20 2f 29 | math-ne|gp (* /)|
|000057e0| 20 6d 61 74 68 2d 6c 6f | 6f 6b 73 2d 6e 65 67 70 | math-lo|oks-negp|
|000057f0| 20 6d 61 74 68 2d 6e 65 | 67 20 28 66 72 61 63 20 | math-ne|g (frac |
|00005800| 66 6c 6f 61 74 29 20 28 | 2a 20 2f 29 20 63 61 6c |float) (|* /) cal|
|00005810| 63 46 75 6e 63 2d 69 64 | 6e 20 6d 61 74 68 2d 73 |cFunc-id|n math-s|
|00005820| 71 75 61 72 65 2d 6d 61 | 74 72 69 78 70 20 6d 61 |quare-ma|trixp ma|
|00005830| 74 68 2d 6d 69 6d 69 63 | 2d 69 64 65 6e 74 5d 20 |th-mimic|-ident] |
|00005840| 36 30 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |60))..(d|efun cal|
|00005850| 63 46 75 6e 63 2d 6d 75 | 6c 20 28 26 72 65 73 74 |cFunc-mu|l (&rest|
|00005860| 20 72 65 73 74 29 20 28 | 62 79 74 65 2d 63 6f 64 | rest) (|byte-cod|
|00005870| 65 20 22 08 83 21 00 08 | 40 19 08 41 89 10 85 19 |e "..!..|@..A....|
|00005880| 00 c2 09 08 40 45 89 11 | 88 82 07 00 88 c3 09 21 |....@E..|.......!|
|00005890| 29 82 5c 22 00 c4 87 22 | 20 5b 72 65 73 74 20 61 |).\"..."| [rest a|
|000058a0| 20 2a 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a | * math-|normaliz|
|000058b0| 65 20 31 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |e 1] 4))|..(defun|
|000058c0| 20 6d 61 74 68 2d 6d 75 | 6c 2d 6f 62 6a 65 63 74 | math-mu|l-object|
|000058d0| 73 2d 66 61 6e 63 79 20 | 28 61 20 62 29 20 28 62 |s-fancy |(a b) (b|
|000058e0| 79 74 65 2d 63 6f 64 65 | 20 22 08 3a 3f 86 0a 00 |yte-code| ".:?...|
|000058f0| 08 40 c6 3e 85 17 00 09 | 3a 3f 86 17 00 09 40 c7 |.@.>....|:?....@.|
|00005900| 3e 83 76 00 c8 c9 08 09 | 5c 22 83 42 00 ca 08 21 |>.v.....|\".B...!|
|00005910| ca 09 21 19 18 cb cc cd | 08 38 cd 09 38 5c 22 ce |..!.....|.8..8\".|
|00005920| cf d0 08 38 d0 09 38 5c | 22 21 45 2a 82 72 00 d1 |...8..8\|"!E*.r..|
|00005930| 08 21 10 d1 09 21 89 11 | 88 d2 d3 cc cd 08 38 cd |.!...!..|......8.|
|00005940| 09 38 5c 22 cc d0 08 38 | d0 09 38 5c 22 5c 22 cf |.8\"...8|..8\"\".|
|00005950| cc cd 08 38 d0 09 38 5c | 22 cc d0 08 38 cd 09 38 |...8..8\|"...8..8|
|00005960| 5c 22 5c 22 45 21 82 e9 | 03 08 3a 85 7f 00 08 40 |\"\"E!..|..:....@|
|00005970| d4 3d 83 1f 01 09 3a 85 | 8b 00 09 40 d4 3d 83 17 |.=....:.|...@.=..|
|00005980| 01 d5 08 21 83 e5 00 d5 | 09 21 83 b0 00 cd 08 38 |...!....|.!.....8|
|00005990| 47 09 47 55 83 ab 00 d6 | 08 09 5c 22 82 ad 00 d7 |G.GU....|..\"....|
|000059a0| 20 82 e2 00 cd 08 38 47 | d0 55 83 cf 00 08 47 09 | .....8G|.U....G.|
|000059b0| 47 55 83 ca 00 d6 08 d4 | 09 44 5c 22 82 cc 00 d7 |GU......|.D\"....|
|000059c0| 20 82 e2 00 cd 08 38 47 | 09 47 55 83 e0 00 d8 08 | .....8G|.GU.....|
|000059d0| 09 5c 22 82 e2 00 d7 20 | 82 14 01 d5 09 21 83 03 |.\".... |.....!..|
|000059e0| 01 08 47 09 47 55 83 fe | 00 cd d6 d4 08 44 09 5c |..G.GU..|.....D.\|
|000059f0| 22 38 82 00 01 d7 20 82 | 14 01 08 47 09 47 55 83 |"8.... .|...G.GU.|
|00005a00| 12 01 d9 08 09 5c 22 82 | 14 01 d7 20 82 1c 01 da |.....\".|... ....|
|00005a10| cc 08 09 23 82 e9 03 09 | 3a 85 28 01 09 40 d4 3d |...#....|:.(..@.=|
|00005a20| 83 33 01 da cc 08 09 23 | 82 e9 03 db 08 21 dc 3d |.3.....#|.....!.=|
|00005a30| 83 8e 01 db 09 21 dc 3d | 83 62 01 dd cc cd 08 38 |.....!.=|.b.....8|
|00005a40| cd 09 38 5c 22 de cc d0 | 08 38 cd 09 38 5c 22 cc |..8\"...|.8..8\".|
|00005a50| d0 09 38 cd 08 38 5c 22 | 5c 22 5c 22 82 8b 01 09 |..8..8\"|\"\"....|
|00005a60| 3a 3f 86 6c 01 09 40 df | 3e 86 7a 01 09 3a 3f 86 |:?.l..@.|>.z..:?.|
|00005a70| 79 01 09 40 e0 3e 3f 85 | 8b 01 dd cc cd 08 38 09 |y..@.>?.|......8.|
|00005a80| 5c 22 cc d0 08 38 09 5c | 22 5c 22 82 e9 03 db 09 |\"...8.\|"\".....|
|00005a90| 21 dc 3d 85 ae 01 08 3a | 3f 86 a0 01 08 40 e1 3e |!.=....:|?....@.>|
|00005aa0| 86 ae 01 08 3a 3f 86 ad | 01 08 40 e2 3e 3f 83 c2 |....:?..|..@.>?..|
|00005ab0| 01 dd cc 08 cd 09 38 5c | 22 cc 08 d0 09 38 5c 22 |......8\|"....8\"|
|00005ac0| 5c 22 82 e9 03 db 08 21 | e3 3d 85 d4 01 09 3a 3f |\".....!|.=....:?|
|00005ad0| 86 d4 01 09 40 e4 3e 83 | 35 02 09 3a 83 10 02 09 |....@.>.|5..:....|
|00005ae0| 40 e5 3d 86 0d 02 09 40 | e6 3d 3f 85 0d 02 09 40 |@.=....@|.=?....@|
|00005af0| e7 3e 83 0a 02 cd 09 38 | 3a 83 02 02 cd 09 38 40 |.>.....8|:.....8@|
|00005b00| e5 3d 82 07 02 cd 09 38 | e8 57 82 0d 02 e9 09 21 |.=.....8|.W.....!|
|00005b10| 82 13 02 09 e8 57 83 21 | 02 ea cc 08 ea 09 21 5c |.....W.!|......!\|
|00005b20| 22 21 82 32 02 eb cd 08 | 38 cc d0 08 38 09 5c 22 |"!.2....|8...8.\"|
|00005b30| cc ec 08 38 09 5c 22 23 | 82 e9 03 db 09 21 e3 3d |...8.\"#|.....!.=|
|00005b40| 85 47 02 08 3a 3f 86 47 | 02 08 40 ed 3e 83 51 02 |.G..:?.G|..@.>.Q.|
|00005b50| cc 09 08 5c 22 82 e9 03 | db 08 21 e3 3d 85 6a 02 |...\"...|..!.=.j.|
|00005b60| ee 08 21 85 6a 02 db 09 | 21 e3 3d 85 6a 02 ee 09 |..!.j...|!.=.j...|
|00005b70| 21 83 1a 03 cc 08 d0 09 | 38 5c 22 cc 08 ec 09 38 |!.......|8\"....8|
|00005b80| 5c 22 1b 1a db 0a 21 e3 | 3d 86 96 02 e3 cd 09 38 |\"....!.|=......8|
|00005b90| ef 3e 83 90 02 ec 82 91 | 02 e8 0a 0a 46 89 12 88 |.>......|....F...|
|00005ba0| db 0b 21 e3 3d 86 b2 02 | e3 cd 09 38 f0 3e 83 ac |..!.=...|...8.>..|
|00005bb0| 02 ec 82 ad 02 e8 0b 0b | 46 89 13 88 f1 d0 0a 38 |........|F......8|
|00005bc0| cd 09 38 f2 3e 86 c4 02 | f3 d0 0a 38 21 85 cc 02 |..8.>...|...8!...|
|00005bd0| cd 0a 38 f4 3e ec 0a 38 | cd 09 38 f5 3e 86 dc 02 |..8.>..8|..8.>...|
|00005be0| f3 ec 0a 38 21 85 e4 02 | cd 0a 38 f6 3e d0 0b 38 |...8!...|..8.>..8|
|00005bf0| cd 09 38 f7 3e 86 f4 02 | f3 d0 0b 38 21 85 fc 02 |..8.>...|...8!...|
|00005c00| cd 0b 38 f8 3e ec 0b 38 | cd 09 38 f9 3e 86 0c 03 |..8.>..8|..8.>...|
|00005c10| f3 ec 0b 38 21 85 14 03 | cd 0b 38 fa 3e 26 08 2a |...8!...|..8.>&.*|
|00005c20| 82 e9 03 db 08 21 fb 3d | 85 32 03 db 09 21 fb 3d |.....!.=|.2...!.=|
|00005c30| 85 32 03 fc d0 08 38 d0 | 09 38 5c 22 83 45 03 fd |.2....8.|.8\".E..|
|00005c40| cc cd 08 38 cd 09 38 5c | 22 d0 08 38 5c 22 82 e9 |...8..8\|"..8\"..|
|00005c50| 03 db 08 21 fb 3d 85 57 | 03 09 3a 3f 86 57 03 09 |...!.=.W|..:?.W..|
|00005c60| 40 fe 3e 83 68 03 fd cc | cd 08 38 09 5c 22 d0 08 |@.>.h...|..8.\"..|
|00005c70| 38 5c 22 82 e9 03 db 09 | 21 fb 3d 85 7a 03 08 3a |8\".....|!.=.z..:|
|00005c80| 3f 86 7a 03 08 40 ff 3e | 83 8b 03 fd cc 08 cd 09 |?.z..@.>|........|
|00005c90| 38 5c 22 d0 09 38 5c 22 | 82 e9 03 db 08 21 81 40 |8\"..8\"|.....!.@|
|00005ca0| 00 3d 85 a1 03 09 3a 3f | 86 a1 03 09 40 81 41 00 |.=....:?|....@.A.|
|00005cb0| 3e 83 c0 03 c8 0c d0 5c | 5c 1c 81 42 00 cc 81 43 |>......\|\..B...C|
|00005cc0| 00 08 81 44 00 5c 22 09 | 5c 22 81 44 00 5c 22 29 |...D.\".|\".D.\")|
|00005cd0| 21 82 e9 03 db 09 21 81 | 40 00 3d 85 d6 03 08 3a |!.....!.|@.=....:|
|00005ce0| 3f 86 d6 03 08 40 81 45 | 00 3e 83 e0 03 cc 09 08 |?....@.E|.>......|
|00005cf0| 5c 22 82 e9 03 81 46 00 | 81 47 00 08 09 23 87 22 |\"....F.|.G...#."|
|00005d00| 20 5b 61 20 62 20 6c 6f | 20 68 69 20 63 61 6c 63 | [a b lo| hi calc|
|00005d10| 2d 69 6e 74 65 72 6e 61 | 6c 2d 70 72 65 63 20 74 |-interna|l-prec t|
|00005d20| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00005d30| 66 72 61 63 20 66 6c 6f | 61 74 20 63 70 6c 78 20 |frac flo|at cplx |
|00005d40| 70 6f 6c 61 72 29 20 28 | 62 69 67 70 6f 73 20 62 |polar) (|bigpos b|
|00005d50| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00005d60| 20 63 70 6c 78 20 70 6f | 6c 61 72 29 20 6d 61 74 | cplx po|lar) mat|
|00005d70| 68 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 6d 61 74 68 |h-normal|ize math|
|00005d80| 2d 77 61 6e 74 2d 70 6f | 6c 61 72 20 6d 61 74 68 |-want-po|lar math|
|00005d90| 2d 70 6f 6c 61 72 20 70 | 6f 6c 61 72 20 6d 61 74 |-polar p|olar mat|
|00005da0| 68 2d 6d 75 6c 20 31 20 | 6d 61 74 68 2d 66 69 78 |h-mul 1 |math-fix|
|00005db0| 2d 63 69 72 63 75 6c 61 | 72 20 6d 61 74 68 2d 61 |-circula|r math-a|
|00005dc0| 64 64 20 32 20 6d 61 74 | 68 2d 63 6f 6d 70 6c 65 |dd 2 mat|h-comple|
|00005dd0| 78 20 63 70 6c 78 20 6d | 61 74 68 2d 73 75 62 20 |x cplx m|ath-sub |
|00005de0| 76 65 63 20 6d 61 74 68 | 2d 6d 61 74 72 69 78 70 |vec math|-matrixp|
|00005df0| 20 6d 61 74 68 2d 6d 75 | 6c 2d 6d 61 74 73 20 6d | math-mu|l-mats m|
|00005e00| 61 74 68 2d 64 69 6d 65 | 6e 73 69 6f 6e 2d 65 72 |ath-dime|nsion-er|
|00005e10| 72 6f 72 20 6d 61 74 68 | 2d 6d 75 6c 2d 6d 61 74 |ror math|-mul-mat|
|00005e20| 2d 76 65 63 20 6d 61 74 | 68 2d 64 6f 74 2d 70 72 |-vec mat|h-dot-pr|
|00005e30| 6f 64 75 63 74 20 6d 61 | 74 68 2d 6d 61 70 2d 76 |oduct ma|th-map-v|
|00005e40| 65 63 2d 32 20 63 61 72 | 2d 73 61 66 65 20 73 64 |ec-2 car|-safe sd|
|00005e50| 65 76 20 6d 61 74 68 2d | 6d 61 6b 65 2d 73 64 65 |ev math-|make-sde|
|00005e60| 76 20 6d 61 74 68 2d 68 | 79 70 6f 74 20 28 62 69 |v math-h|ypot (bi|
|00005e70| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|00005e80| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|00005e90| 72 20 68 6d 73 29 20 28 | 62 69 67 70 6f 73 20 62 |r hms) (|bigpos b|
|00005ea0| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00005eb0| 20 63 70 6c 78 20 70 6f | 6c 61 72 20 68 6d 73 20 | cplx po|lar hms |
|00005ec0| 64 61 74 65 20 73 64 65 | 76 20 69 6e 74 76 20 6d |date sde|v intv m|
|00005ed0| 6f 64 20 76 65 63 29 20 | 28 62 69 67 70 6f 73 20 |od vec) |(bigpos |
|00005ee0| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00005ef0| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 20 68 6d 73 |t cplx p|olar hms|
|00005f00| 29 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |) (bigpo|s bigneg|
|00005f10| 20 66 72 61 63 20 66 6c | 6f 61 74 20 63 70 6c 78 | frac fl|oat cplx|
|00005f20| 20 70 6f 6c 61 72 20 68 | 6d 73 20 64 61 74 65 20 | polar h|ms date |
|00005f30| 73 64 65 76 20 69 6e 74 | 76 20 6d 6f 64 20 76 65 |sdev int|v mod ve|
|00005f40| 63 29 20 69 6e 74 76 20 | 28 62 69 67 70 6f 73 20 |c) intv |(bigpos |
|00005f50| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00005f60| 74 20 68 6d 73 29 20 62 | 69 67 6e 65 67 20 62 69 |t hms) b|igneg bi|
|00005f70| 67 70 6f 73 20 28 66 72 | 61 63 20 66 6c 6f 61 74 |gpos (fr|ac float|
|00005f80| 29 20 30 20 6d 61 74 68 | 2d 6e 65 67 70 20 6d 61 |) 0 math|-negp ma|
|00005f90| 74 68 2d 6e 65 67 20 6d | 61 74 68 2d 6d 61 6b 65 |th-neg m|ath-make|
|00005fa0| 2d 69 6e 74 76 20 33 20 | 28 62 69 67 70 6f 73 20 |-intv 3 |(bigpos |
|00005fb0| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00005fc0| 74 20 68 6d 73 29 20 6d | 61 74 68 2d 69 6e 74 76 |t hms) m|ath-intv|
|00005fd0| 2d 63 6f 6e 73 74 70 20 | 28 32 20 33 29 20 28 31 |-constp |(2 3) (1|
|00005fe0| 20 33 29 20 6d 61 74 68 | 2d 63 6f 6d 62 69 6e 65 | 3) math|-combine|
|00005ff0| 2d 69 6e 74 65 72 76 61 | 6c 73 20 28 32 20 33 29 |-interva|ls (2 3)|
|00006000| 20 6d 61 74 68 2d 69 6e | 66 69 6e 69 74 65 70 20 | math-in|finitep |
|00006010| 28 32 20 33 29 20 28 32 | 20 33 29 20 28 31 20 33 |(2 3) (2| 3) (1 3|
|00006020| 29 20 28 31 20 33 29 20 | 28 32 20 33 29 20 28 31 |) (1 3) |(2 3) (1|
|00006030| 20 33 29 20 28 31 20 33 | 29 20 6d 6f 64 20 65 71 | 3) (1 3|) mod eq|
|00006040| 75 61 6c 20 6d 61 74 68 | 2d 6d 61 6b 65 2d 6d 6f |ual math|-make-mo|
|00006050| 64 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |d (bigpo|s bigneg|
|00006060| 20 66 72 61 63 20 66 6c | 6f 61 74 20 68 6d 73 29 | frac fl|oat hms)|
|00006070| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00006080| 66 72 61 63 20 66 6c 6f | 61 74 20 68 6d 73 29 20 |frac flo|at hms) |
|00006090| 68 6d 73 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |hms (big|pos bign|
|000060a0| 65 67 20 66 72 61 63 20 | 66 6c 6f 61 74 29 20 6d |eg frac |float) m|
|000060b0| 61 74 68 2d 74 6f 2d 68 | 6d 73 20 6d 61 74 68 2d |ath-to-h|ms math-|
|000060c0| 66 72 6f 6d 2d 68 6d 73 | 20 64 65 67 20 28 62 69 |from-hms| deg (bi|
|000060d0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|000060e0| 20 66 6c 6f 61 74 29 20 | 63 61 6c 63 2d 72 65 63 | float) |calc-rec|
|000060f0| 6f 72 64 2d 77 68 79 20 | 22 2a 49 6e 63 6f 6d 70 |ord-why |"*Incomp|
|00006100| 61 74 69 62 6c 65 20 61 | 72 67 75 6d 65 6e 74 73 |atible a|rguments|
|00006110| 20 66 6f 72 20 2a 22 5d | 20 38 39 29 29 0a 0a 28 | for *"]| 89))..(|
|00006120| 64 65 66 75 6e 20 6d 61 | 74 68 2d 6d 75 6c 2d 66 |defun ma|th-mul-f|
|00006130| 6c 6f 61 74 20 28 61 20 | 62 29 20 28 62 79 74 65 |loat (a |b) (byte|
|00006140| 2d 63 6f 64 65 20 22 c2 | c3 c4 08 38 c4 09 38 5c |-code ".|...8..8\|
|00006150| 22 c5 08 38 c5 09 38 5c | 5c 5c 22 87 22 20 5b 61 |"..8..8\|\\"." [a|
|00006160| 20 62 20 6d 61 74 68 2d | 6d 61 6b 65 2d 66 6c 6f | b math-|make-flo|
|00006170| 61 74 20 6d 61 74 68 2d | 6d 75 6c 20 31 20 32 5d |at math-|mul 1 2]|
|00006180| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 | 6))..(d|efun mat|
|00006190| 68 2d 73 71 72 2d 66 6c | 6f 61 74 20 28 61 29 20 |h-sqr-fl|oat (a) |
|000061a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 c2 c3 08 |(byte-co|de "....|
|000061b0| 38 c3 08 38 5c 22 c4 08 | 38 c4 08 38 5c 5c 5c 22 |8..8\"..|8..8\\\"|
|000061c0| 87 22 20 5b 61 20 6d 61 | 74 68 2d 6d 61 6b 65 2d |." [a ma|th-make-|
|000061d0| 66 6c 6f 61 74 20 6d 61 | 74 68 2d 6d 75 6c 20 31 |float ma|th-mul 1|
|000061e0| 20 32 5d 20 36 29 29 0a | 0a 28 64 65 66 75 6e 20 | 2] 6)).|.(defun |
|000061f0| 6d 61 74 68 2d 69 6e 74 | 76 2d 63 6f 6e 73 74 70 |math-int|v-constp|
|00006200| 20 28 61 20 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 | (a &opt|ional fi|
|00006210| 6e 69 74 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |nite) (b|yte-code|
|00006220| 20 22 c2 08 38 3a 3f 86 | 0e 00 c2 08 38 40 c3 3e | "..8:?.|....8@.>|
|00006230| 86 24 00 c4 c2 08 38 c5 | 5c 22 85 24 00 09 3f 86 |.$....8.|\".$..?.|
|00006240| 24 00 c6 08 38 c7 3e 85 | 4b 00 c8 08 38 3a 3f 86 |$...8.>.|K...8:?.|
|00006250| 35 00 c8 08 38 40 c9 3e | 86 4b 00 c4 c8 08 38 ca |5...8@.>|.K....8.|
|00006260| 5c 22 85 4b 00 09 3f 86 | 4b 00 c6 08 38 cb 3e 87 |\".K..?.|K...8.>.|
|00006270| 22 20 5b 61 20 66 69 6e | 69 74 65 20 32 20 28 62 |" [a fin|ite 2 (b|
|00006280| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00006290| 63 20 66 6c 6f 61 74 20 | 68 6d 73 29 20 65 71 75 |c float |hms) equ|
|000062a0| 61 6c 20 28 6e 65 67 20 | 28 76 61 72 20 69 6e 66 |al (neg |(var inf|
|000062b0| 20 76 61 72 2d 69 6e 66 | 29 29 20 31 20 28 30 20 | var-inf|)) 1 (0 |
|000062c0| 31 29 20 33 20 28 62 69 | 67 70 6f 73 20 62 69 67 |1) 3 (bi|gpos big|
|000062d0| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 68 |neg frac| float h|
|000062e0| 6d 73 29 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |ms) (var| inf var|
|000062f0| 2d 69 6e 66 29 20 28 30 | 20 32 29 5d 20 34 29 29 |-inf) (0| 2)] 4))|
|00006300| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 6d 75 |..(defun| math-mu|
|00006310| 6c 2d 7a 65 72 6f 20 28 | 61 20 62 29 20 28 62 79 |l-zero (|a b) (by|
|00006320| 74 65 2d 63 6f 64 65 20 | 22 c6 08 21 83 1b 00 c7 |te-code |"..!....|
|00006330| 08 21 83 14 00 c8 c9 09 | 08 23 82 18 00 ca cb 08 |.!......|.#......|
|00006340| 5c 22 82 bf 00 cc 08 21 | 83 25 00 cd 82 bf 00 c3 |\".....!|.%......|
|00006350| c3 1c 1a ce 08 21 cf 3d | 85 64 00 d0 d1 08 38 d2 |.....!.=|.d....8.|
|00006360| 5c 22 85 47 00 d3 08 38 | d4 3e 85 47 00 d1 08 38 |\".G...8|.>.G...8|
|00006370| 89 12 88 d0 d5 08 38 d6 | 5c 22 85 5e 00 d3 08 38 |......8.|\".^...8|
|00006380| d7 3e 85 5e 00 d5 08 38 | 89 14 88 0a 86 64 00 0c |.>.^...8|.....d..|
|00006390| 83 ad 00 d8 09 21 86 7e | 00 d9 09 21 85 7e 00 0d |.....!.~|...!.~..|
|000063a0| da 3e 86 7e 00 db 12 dc | 89 14 83 91 00 cf d5 0a |.>.~....|........|
|000063b0| 86 88 00 cb 0c 86 8d 00 | cb 46 82 aa 00 dd 09 21 |........|.F.....!|
|000063c0| 83 a9 00 de cf d5 0a 86 | 9f 00 cb 0c 86 a4 00 cb |........|........|
|000063d0| 46 21 82 aa 00 df 82 be | 00 e0 09 21 86 b6 00 e0 |F!......|...!....|
|000063e0| 08 21 83 bd 00 e1 82 be | 00 cb 2a 87 22 20 5b 62 |.!......|..*." [b|
|000063f0| 20 61 20 61 61 20 6e 69 | 6c 20 62 62 20 63 61 6c | a aa ni|l bb cal|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
