home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 22.1 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 6c 61 6e 67 20 | 6e 69 6c 20 28 62 79 74 |lc-lang |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 73 65 74 2d 6c | 61 6e 67 75 61 67 65 20 |lc-set-l|anguage |
|00000070| 28 6c 61 6e 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(lang &o|ptional |
|00000080| 6f 70 74 69 6f 6e 20 6e | 6f 2d 72 65 66 72 65 73 |option n|o-refres|
|00000090| 68 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |h) (byte|-code ".|
|000000a0| d1 4e 86 07 00 0a 10 09 | d2 4e 13 09 d3 4e 14 09 |.N......|.N...N..|
|000000b0| d4 4e 15 09 d5 4e 16 06 | 09 d6 4e 86 20 00 d7 16 |.N...N..|..N. ...|
|000000c0| 07 09 d8 4e 16 08 09 d9 | 4e 16 09 09 da 4e 86 33 |...N....|N....N.3|
|000000d0| 00 db 16 0a 09 dc 4e 86 | 3c 00 dd 89 16 0b 88 0e |......N.|<.......|
|000000e0| 0c 83 50 00 09 16 0d 0e | 0f 89 16 0e 82 58 00 de |..P.....|.....X..|
|000000f0| df 09 0e 0f 44 d0 23 87 | 22 20 5b 6d 61 74 68 2d |....D.#.|" [math-|
|00000100| 65 78 70 72 2d 6f 70 65 | 72 73 20 6c 61 6e 67 20 |expr-ope|rs lang |
|00000110| 6d 61 74 68 2d 73 74 61 | 6e 64 61 72 64 2d 6f 70 |math-sta|ndard-op|
|00000120| 65 72 73 20 6d 61 74 68 | 2d 65 78 70 72 2d 66 75 |ers math|-expr-fu|
|00000130| 6e 63 74 69 6f 6e 2d 6d | 61 70 70 69 6e 67 20 6d |nction-m|apping m|
|00000140| 61 74 68 2d 65 78 70 72 | 2d 76 61 72 69 61 62 6c |ath-expr|-variabl|
|00000150| 65 2d 6d 61 70 70 69 6e | 67 20 63 61 6c 63 2d 6c |e-mappin|g calc-l|
|00000160| 61 6e 67 75 61 67 65 2d | 69 6e 70 75 74 2d 66 69 |anguage-|input-fi|
|00000170| 6c 74 65 72 20 63 61 6c | 63 2d 6c 61 6e 67 75 61 |lter cal|c-langua|
|00000180| 67 65 2d 6f 75 74 70 75 | 74 2d 66 69 6c 74 65 72 |ge-outpu|t-filter|
|00000190| 20 63 61 6c 63 2d 76 65 | 63 74 6f 72 2d 62 72 61 | calc-ve|ctor-bra|
|000001a0| 63 6b 65 74 73 20 63 61 | 6c 63 2d 63 6f 6d 70 6c |ckets ca|lc-compl|
|000001b0| 65 78 2d 66 6f 72 6d 61 | 74 20 63 61 6c 63 2d 72 |ex-forma|t calc-r|
|000001c0| 61 64 69 78 2d 66 6f 72 | 6d 61 74 74 65 72 20 63 |adix-for|matter c|
|000001d0| 61 6c 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6f 70 65 |alc-func|tion-ope|
|000001e0| 6e 20 63 61 6c 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |n calc-f|unction-|
|000001f0| 63 6c 6f 73 65 20 6e 6f | 2d 72 65 66 72 65 73 68 |close no|-refresh|
|00000200| 20 63 61 6c 63 2d 6c 61 | 6e 67 75 61 67 65 20 63 | calc-la|nguage c|
|00000210| 61 6c 63 2d 6c 61 6e 67 | 75 61 67 65 2d 6f 70 74 |alc-lang|uage-opt|
|00000220| 69 6f 6e 20 6f 70 74 69 | 6f 6e 20 74 20 6d 61 74 |ion opti|on t mat|
|00000230| 68 2d 6f 70 65 72 2d 74 | 61 62 6c 65 20 6d 61 74 |h-oper-t|able mat|
|00000240| 68 2d 66 75 6e 63 74 69 | 6f 6e 2d 74 61 62 6c 65 |h-functi|on-table|
|00000250| 20 6d 61 74 68 2d 76 61 | 72 69 61 62 6c 65 2d 74 | math-va|riable-t|
|00000260| 61 62 6c 65 20 6d 61 74 | 68 2d 69 6e 70 75 74 2d |able mat|h-input-|
|00000270| 66 69 6c 74 65 72 20 6d | 61 74 68 2d 6f 75 74 70 |filter m|ath-outp|
|00000280| 75 74 2d 66 69 6c 74 65 | 72 20 6d 61 74 68 2d 76 |ut-filte|r math-v|
|00000290| 65 63 74 6f 72 2d 62 72 | 61 63 6b 65 74 73 20 22 |ector-br|ackets "|
|000002a0| 5b 5d 22 20 6d 61 74 68 | 2d 63 6f 6d 70 6c 65 78 |[]" math|-complex|
|000002b0| 2d 66 6f 72 6d 61 74 20 | 6d 61 74 68 2d 72 61 64 |-format |math-rad|
|000002c0| 69 78 2d 66 6f 72 6d 61 | 74 74 65 72 20 6d 61 74 |ix-forma|tter mat|
|000002d0| 68 2d 66 75 6e 63 74 69 | 6f 6e 2d 6f 70 65 6e 20 |h-functi|on-open |
|000002e0| 22 28 22 20 6d 61 74 68 | 2d 66 75 6e 63 74 69 6f |"(" math|-functio|
|000002f0| 6e 2d 63 6c 6f 73 65 20 | 22 29 22 20 63 61 6c 63 |n-close |")" calc|
|00000300| 2d 63 68 61 6e 67 65 2d | 6d 6f 64 65 20 28 63 61 |-change-|mode (ca|
|00000310| 6c 63 2d 6c 61 6e 67 75 | 61 67 65 20 63 61 6c 63 |lc-langu|age calc|
|00000320| 2d 6c 61 6e 67 75 61 67 | 65 2d 6f 70 74 69 6f 6e |-languag|e-option|
|00000330| 29 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 4))..|(defun c|
|00000340| 61 6c 63 2d 6e 6f 72 6d | 61 6c 2d 6c 61 6e 67 75 |alc-norm|al-langu|
|00000350| 61 67 65 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |age nil |(interac|
|00000360| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000370| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00000380| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00000390| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|000003a0| c0 21 88 c2 c3 21 87 22 | 20 5b 6e 69 6c 20 63 61 |.!...!."| [nil ca|
|000003b0| 6c 63 2d 73 65 74 2d 6c | 61 6e 67 75 61 67 65 20 |lc-set-l|anguage |
|000003c0| 6d 65 73 73 61 67 65 20 | 22 4e 6f 72 6d 61 6c 20 |message |"Normal |
|000003d0| 6c 61 6e 67 75 61 67 65 | 20 6d 6f 64 65 2e 22 5d |language| mode."]|
|000003e0| 20 33 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 | 3))] 2)|)..(defu|
|000003f0| 6e 20 63 61 6c 63 2d 66 | 6c 61 74 2d 6c 61 6e 67 |n calc-f|lat-lang|
|00000400| 75 61 67 65 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |uage nil| (intera|
|00000410| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000420| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|00000430| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|00000440| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00000450| c0 c1 21 88 c2 c3 21 87 | 22 20 5b 63 61 6c 63 2d |..!...!.|" [calc-|
|00000460| 73 65 74 2d 6c 61 6e 67 | 75 61 67 65 20 66 6c 61 |set-lang|uage fla|
|00000470| 74 20 6d 65 73 73 61 67 | 65 20 22 46 6c 61 74 20 |t messag|e "Flat |
|00000480| 6c 61 6e 67 75 61 67 65 | 20 6d 6f 64 65 20 28 61 |language| mode (a|
|00000490| 6c 6c 20 73 74 61 63 6b | 20 65 6e 74 72 69 65 73 |ll stack| entries|
|000004a0| 20 73 68 6f 77 6e 20 6f | 6e 20 6f 6e 65 20 6c 69 | shown o|n one li|
|000004b0| 6e 65 29 2e 22 5d 20 33 | 29 29 5d 20 32 29 29 0a |ne)."] 3|))] 2)).|
|000004c0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 62 69 67 |.(defun |calc-big|
|000004d0| 2d 6c 61 6e 67 75 61 67 | 65 20 6e 69 6c 20 28 69 |-languag|e nil (i|
|000004e0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|000004f0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00000500| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000510| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000520| 6f 64 65 20 22 c0 c1 21 | 88 c2 c3 21 87 22 20 5b |ode "..!|...!." [|
|00000530| 63 61 6c 63 2d 73 65 74 | 2d 6c 61 6e 67 75 61 67 |calc-set|-languag|
|00000540| 65 20 62 69 67 20 6d 65 | 73 73 61 67 65 20 22 5c |e big me|ssage "\|
|00000550| 22 42 69 67 5c 22 20 6c | 61 6e 67 75 61 67 65 20 |"Big\" l|anguage |
|00000560| 6d 6f 64 65 2e 22 5d 20 | 33 29 29 5d 20 32 29 29 |mode."] |3))] 2))|
|00000570| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 75 6e |..(defun| calc-un|
|00000580| 66 6f 72 6d 61 74 74 65 | 64 2d 6c 61 6e 67 75 61 |formatte|d-langua|
|00000590| 67 65 20 6e 69 6c 20 28 | 69 6e 74 65 72 61 63 74 |ge nil (|interact|
|000005a0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|000005b0| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 63 61 |"....!."| [nil ca|
|000005c0| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|000005d0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |l (byte-|code "..|
|000005e0| 21 88 c2 c3 21 87 22 20 | 5b 63 61 6c 63 2d 73 65 |!...!." |[calc-se|
|000005f0| 74 2d 6c 61 6e 67 75 61 | 67 65 20 75 6e 66 6f 72 |t-langua|ge unfor|
|00000600| 6d 20 6d 65 73 73 61 67 | 65 20 22 55 6e 66 6f 72 |m messag|e "Unfor|
|00000610| 6d 61 74 74 65 64 20 6c | 61 6e 67 75 61 67 65 20 |matted l|anguage |
|00000620| 6d 6f 64 65 2e 22 5d 20 | 33 29 29 5d 20 32 29 29 |mode."] |3))] 2))|
|00000630| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 63 2d |..(defun| calc-c-|
|00000640| 6c 61 6e 67 75 61 67 65 | 20 6e 69 6c 20 28 69 6e |language| nil (in|
|00000650| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00000660| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00000670| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00000680| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00000690| 64 65 20 22 c0 c1 21 88 | c2 c3 21 87 22 20 5b 63 |de "..!.|..!." [c|
|000006a0| 61 6c 63 2d 73 65 74 2d | 6c 61 6e 67 75 61 67 65 |alc-set-|language|
|000006b0| 20 63 20 6d 65 73 73 61 | 67 65 20 22 60 43 27 20 | c messa|ge "`C' |
|000006c0| 6c 61 6e 67 75 61 67 65 | 20 6d 6f 64 65 2e 22 5d |language| mode."]|
|000006d0| 20 33 29 29 5d 20 32 29 | 29 0a 0a 28 70 75 74 20 | 3))] 2)|)..(put |
|000006e0| 28 71 75 6f 74 65 20 63 | 29 20 28 71 75 6f 74 65 |(quote c|) (quote|
|000006f0| 20 6d 61 74 68 2d 6f 70 | 65 72 2d 74 61 62 6c 65 | math-op|er-table|
|00000700| 29 20 28 71 75 6f 74 65 | 20 28 28 22 75 2b 22 20 |) (quote| (("u+" |
|00000710| 69 64 65 6e 74 20 2d 31 | 20 31 30 30 30 29 20 28 |ident -1| 1000) (|
|00000720| 22 75 2d 22 20 6e 65 67 | 20 2d 31 20 31 30 30 30 |"u-" neg| -1 1000|
|00000730| 29 20 28 22 75 21 22 20 | 63 61 6c 63 46 75 6e 63 |) ("u!" |calcFunc|
|00000740| 2d 6c 6e 6f 74 20 2d 31 | 20 31 30 30 30 29 20 28 |-lnot -1| 1000) (|
|00000750| 22 7e 22 20 63 61 6c 63 | 46 75 6e 63 2d 6e 6f 74 |"~" calc|Func-not|
|00000760| 20 2d 31 20 31 30 30 30 | 29 20 28 22 2a 22 20 2a | -1 1000|) ("*" *|
|00000770| 20 31 39 30 20 31 39 31 | 29 20 28 22 2f 22 20 2f | 190 191|) ("/" /|
|00000780| 20 31 39 30 20 31 39 31 | 29 20 28 22 25 22 20 25 | 190 191|) ("%" %|
|00000790| 20 31 39 30 20 31 39 31 | 29 20 28 22 2b 22 20 2b | 190 191|) ("+" +|
|000007a0| 20 31 38 30 20 31 38 31 | 29 20 28 22 2d 22 20 2d | 180 181|) ("-" -|
|000007b0| 20 31 38 30 20 31 38 31 | 29 20 28 22 3c 3c 22 20 | 180 181|) ("<<" |
|000007c0| 63 61 6c 63 46 75 6e 63 | 2d 6c 73 68 20 31 37 30 |calcFunc|-lsh 170|
|000007d0| 20 31 37 31 29 20 28 22 | 3e 3e 22 20 63 61 6c 63 | 171) ("|>>" calc|
|000007e0| 46 75 6e 63 2d 72 73 68 | 20 31 37 30 20 31 37 31 |Func-rsh| 170 171|
|000007f0| 29 20 28 22 3c 22 20 63 | 61 6c 63 46 75 6e 63 2d |) ("<" c|alcFunc-|
|00000800| 6c 74 20 31 36 30 20 31 | 36 31 29 20 28 22 3e 22 |lt 160 1|61) (">"|
|00000810| 20 63 61 6c 63 46 75 6e | 63 2d 67 74 20 31 36 30 | calcFun|c-gt 160|
|00000820| 20 31 36 31 29 20 28 22 | 3c 3d 22 20 63 61 6c 63 | 161) ("|<=" calc|
|00000830| 46 75 6e 63 2d 6c 65 71 | 20 31 36 30 20 31 36 31 |Func-leq| 160 161|
|00000840| 29 20 28 22 3e 3d 22 20 | 63 61 6c 63 46 75 6e 63 |) (">=" |calcFunc|
|00000850| 2d 67 65 71 20 31 36 30 | 20 31 36 31 29 20 28 22 |-geq 160| 161) ("|
|00000860| 3d 3d 22 20 63 61 6c 63 | 46 75 6e 63 2d 65 71 20 |==" calc|Func-eq |
|00000870| 31 35 30 20 31 35 31 29 | 20 28 22 21 3d 22 20 63 |150 151)| ("!=" c|
|00000880| 61 6c 63 46 75 6e 63 2d | 6e 65 71 20 31 35 30 20 |alcFunc-|neq 150 |
|00000890| 31 35 31 29 20 28 22 26 | 22 20 63 61 6c 63 46 75 |151) ("&|" calcFu|
|000008a0| 6e 63 2d 61 6e 64 20 31 | 34 30 20 31 34 31 29 20 |nc-and 1|40 141) |
|000008b0| 28 22 5e 22 20 63 61 6c | 63 46 75 6e 63 2d 78 6f |("^" cal|cFunc-xo|
|000008c0| 72 20 31 33 31 20 31 33 | 30 29 20 28 22 7c 22 20 |r 131 13|0) ("|" |
|000008d0| 63 61 6c 63 46 75 6e 63 | 2d 6f 72 20 31 32 30 20 |calcFunc|-or 120 |
|000008e0| 31 32 31 29 20 28 22 26 | 26 22 20 63 61 6c 63 46 |121) ("&|&" calcF|
|000008f0| 75 6e 63 2d 6c 61 6e 64 | 20 31 31 30 20 31 31 31 |unc-land| 110 111|
|00000900| 29 20 28 22 7c 7c 22 20 | 63 61 6c 63 46 75 6e 63 |) ("||" |calcFunc|
|00000910| 2d 6c 6f 72 20 31 30 30 | 20 31 30 31 29 20 28 22 |-lor 100| 101) ("|
|00000920| 3f 22 20 28 6d 61 74 68 | 2d 72 65 61 64 2d 69 66 |?" (math|-read-if|
|00000930| 29 20 39 31 20 39 30 29 | 20 28 22 21 21 21 22 20 |) 91 90)| ("!!!" |
|00000940| 63 61 6c 63 46 75 6e 63 | 2d 70 6e 6f 74 20 2d 31 |calcFunc|-pnot -1|
|00000950| 20 38 38 29 20 28 22 26 | 26 26 22 20 63 61 6c 63 | 88) ("&|&&" calc|
|00000960| 46 75 6e 63 2d 70 61 6e | 64 20 38 35 20 38 36 29 |Func-pan|d 85 86)|
|00000970| 20 28 22 7c 7c 7c 22 20 | 63 61 6c 63 46 75 6e 63 | ("|||" |calcFunc|
|00000980| 2d 70 6f 72 20 37 35 20 | 37 36 29 20 28 22 3d 22 |-por 75 |76) ("="|
|00000990| 20 63 61 6c 63 46 75 6e | 63 2d 61 73 73 69 67 6e | calcFun|c-assign|
|000009a0| 20 35 31 20 35 30 29 20 | 28 22 3a 3d 22 20 63 61 | 51 50) |(":=" ca|
|000009b0| 6c 63 46 75 6e 63 2d 61 | 73 73 69 67 6e 20 35 31 |lcFunc-a|ssign 51|
|000009c0| 20 35 30 29 20 28 22 3a | 3a 22 20 63 61 6c 63 46 | 50) (":|:" calcF|
|000009d0| 75 6e 63 2d 63 6f 6e 64 | 69 74 69 6f 6e 20 34 35 |unc-cond|ition 45|
|000009e0| 20 34 36 29 29 29 29 0a | 0a 28 70 75 74 20 28 71 | 46)))).|.(put (q|
|000009f0| 75 6f 74 65 20 63 29 20 | 28 71 75 6f 74 65 20 6d |uote c) |(quote m|
|00000a00| 61 74 68 2d 66 75 6e 63 | 74 69 6f 6e 2d 74 61 62 |ath-func|tion-tab|
|00000a10| 6c 65 29 20 28 71 75 6f | 74 65 20 28 28 61 63 6f |le) (quo|te ((aco|
|00000a20| 73 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 61 72 63 |s . calc|Func-arc|
|00000a30| 63 6f 73 29 20 28 61 63 | 6f 73 68 20 2e 20 63 61 |cos) (ac|osh . ca|
|00000a40| 6c 63 46 75 6e 63 2d 61 | 72 63 63 6f 73 68 29 20 |lcFunc-a|rccosh) |
|00000a50| 28 61 73 69 6e 20 2e 20 | 63 61 6c 63 46 75 6e 63 |(asin . |calcFunc|
|00000a60| 2d 61 72 63 73 69 6e 29 | 20 28 61 73 69 6e 68 20 |-arcsin)| (asinh |
|00000a70| 2e 20 63 61 6c 63 46 75 | 6e 63 2d 61 72 63 73 69 |. calcFu|nc-arcsi|
|00000a80| 6e 68 29 20 28 61 74 61 | 6e 20 2e 20 63 61 6c 63 |nh) (ata|n . calc|
|00000a90| 46 75 6e 63 2d 61 72 63 | 74 61 6e 29 20 28 61 74 |Func-arc|tan) (at|
|00000aa0| 61 6e 32 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 61 |an2 . ca|lcFunc-a|
|00000ab0| 72 63 74 61 6e 32 29 20 | 28 61 74 61 6e 68 20 2e |rctan2) |(atanh .|
|00000ac0| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 74 61 6e | calcFun|c-arctan|
|00000ad0| 68 29 29 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |h))))..(|put (quo|
|00000ae0| 74 65 20 63 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |te c) (q|uote mat|
|00000af0| 68 2d 76 61 72 69 61 62 | 6c 65 2d 74 61 62 6c 65 |h-variab|le-table|
|00000b00| 29 20 28 71 75 6f 74 65 | 20 28 28 4d 5f 50 49 20 |) (quote| ((M_PI |
|00000b10| 2e 20 76 61 72 2d 70 69 | 29 20 28 4d 5f 45 20 2e |. var-pi|) (M_E .|
|00000b20| 20 76 61 72 2d 65 29 29 | 29 29 0a 0a 28 70 75 74 | var-e))|))..(put|
|00000b30| 20 28 71 75 6f 74 65 20 | 63 29 20 28 71 75 6f 74 | (quote |c) (quot|
|00000b40| 65 20 6d 61 74 68 2d 76 | 65 63 74 6f 72 2d 62 72 |e math-v|ector-br|
|00000b50| 61 63 6b 65 74 73 29 20 | 22 7b 7d 22 29 0a 0a 28 |ackets) |"{}")..(|
|00000b60| 70 75 74 20 28 71 75 6f | 74 65 20 63 29 20 28 71 |put (quo|te c) (q|
|00000b70| 75 6f 74 65 20 6d 61 74 | 68 2d 72 61 64 69 78 2d |uote mat|h-radix-|
|00000b80| 66 6f 72 6d 61 74 74 65 | 72 29 20 28 66 75 6e 63 |formatte|r) (func|
|00000b90| 74 69 6f 6e 20 28 6c 61 | 6d 62 64 61 20 28 72 20 |tion (la|mbda (r |
|00000ba0| 73 29 20 28 69 66 20 28 | 3d 20 72 20 31 36 29 20 |s) (if (|= r 16) |
|00000bb0| 28 66 6f 72 6d 61 74 20 | 22 30 78 25 73 22 20 73 |(format |"0x%s" s|
|00000bc0| 29 20 28 69 66 20 28 3d | 20 72 20 38 29 20 28 66 |) (if (=| r 8) (f|
|00000bd0| 6f 72 6d 61 74 20 22 30 | 25 73 22 20 73 29 20 28 |ormat "0|%s" s) (|
|00000be0| 66 6f 72 6d 61 74 20 22 | 25 64 23 25 73 22 20 72 |format "|%d#%s" r|
|00000bf0| 20 73 29 29 29 29 29 29 | 0a 0a 28 64 65 66 75 6e | s))))))|..(defun|
|00000c00| 20 63 61 6c 63 2d 70 61 | 73 63 61 6c 2d 6c 61 6e | calc-pa|scal-lan|
|00000c10| 67 75 61 67 65 20 28 6e | 29 20 28 69 6e 74 65 72 |guage (n|) (inter|
|00000c20| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00000c30| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00000c40| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000c50| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000c60| 6f 64 65 20 22 08 85 09 | 00 c1 08 21 89 10 88 c2 |ode "...|...!....|
|00000c70| c3 08 5c 22 88 c4 08 85 | 18 00 c5 08 c6 5c 22 83 |..\"....|.....\".|
|00000c80| 29 00 08 c6 56 83 25 00 | c7 82 26 00 c8 82 2a 00 |)...V.%.|..&...*.|
|00000c90| c9 21 87 22 20 5b 6e 20 | 70 72 65 66 69 78 2d 6e |.!." [n |prefix-n|
|00000ca0| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 20 63 61 6c |umeric-v|alue cal|
|00000cb0| 63 2d 73 65 74 2d 6c 61 | 6e 67 75 61 67 65 20 70 |c-set-la|nguage p|
|00000cc0| 61 73 63 61 6c 20 6d 65 | 73 73 61 67 65 20 2f 3d |ascal me|ssage /=|
|00000cd0| 20 30 20 22 50 61 73 63 | 61 6c 20 6c 61 6e 67 75 | 0 "Pasc|al langu|
|00000ce0| 61 67 65 20 6d 6f 64 65 | 20 28 61 6c 6c 20 75 70 |age mode| (all up|
|00000cf0| 70 65 72 63 61 73 65 29 | 2e 22 20 22 50 61 73 63 |percase)|." "Pasc|
|00000d00| 61 6c 20 6c 61 6e 67 75 | 61 67 65 20 6d 6f 64 65 |al langu|age mode|
|00000d10| 20 28 61 6c 6c 20 6c 6f | 77 65 72 63 61 73 65 29 | (all lo|wercase)|
|00000d20| 2e 22 20 22 50 61 73 63 | 61 6c 20 6c 61 6e 67 75 |." "Pasc|al langu|
|00000d30| 61 67 65 20 6d 6f 64 65 | 2e 22 5d 20 36 29 29 5d |age mode|."] 6))]|
|00000d40| 20 32 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 | 2))..(p|ut (quot|
|00000d50| 65 20 70 61 73 63 61 6c | 29 20 28 71 75 6f 74 65 |e pascal|) (quote|
|00000d60| 20 6d 61 74 68 2d 6f 70 | 65 72 2d 74 61 62 6c 65 | math-op|er-table|
|00000d70| 29 20 28 71 75 6f 74 65 | 20 28 28 22 6e 6f 74 22 |) (quote| (("not"|
|00000d80| 20 63 61 6c 63 46 75 6e | 63 2d 6c 6e 6f 74 20 2d | calcFun|c-lnot -|
|00000d90| 31 20 31 30 30 30 29 20 | 28 22 2a 22 20 2a 20 31 |1 1000) |("*" * 1|
|00000da0| 39 30 20 31 39 31 29 20 | 28 22 2f 22 20 2f 20 31 |90 191) |("/" / 1|
|00000db0| 39 30 20 31 39 31 29 20 | 28 22 61 6e 64 22 20 63 |90 191) |("and" c|
|00000dc0| 61 6c 63 46 75 6e 63 2d | 61 6e 64 20 31 39 30 20 |alcFunc-|and 190 |
|00000dd0| 31 39 31 29 20 28 22 64 | 69 76 22 20 63 61 6c 63 |191) ("d|iv" calc|
|00000de0| 46 75 6e 63 2d 69 64 69 | 76 20 31 39 30 20 31 39 |Func-idi|v 190 19|
|00000df0| 31 29 20 28 22 6d 6f 64 | 22 20 25 20 31 39 30 20 |1) ("mod|" % 190 |
|00000e00| 31 39 31 29 20 28 22 75 | 2b 22 20 69 64 65 6e 74 |191) ("u|+" ident|
|00000e10| 20 2d 31 20 31 38 35 29 | 20 28 22 75 2d 22 20 6e | -1 185)| ("u-" n|
|00000e20| 65 67 20 2d 31 20 31 38 | 35 29 20 28 22 2b 22 20 |eg -1 18|5) ("+" |
|00000e30| 2b 20 31 38 30 20 31 38 | 31 29 20 28 22 2d 22 20 |+ 180 18|1) ("-" |
|00000e40| 2d 20 31 38 30 20 31 38 | 31 29 20 28 22 6f 72 22 |- 180 18|1) ("or"|
|00000e50| 20 63 61 6c 63 46 75 6e | 63 2d 6f 72 20 31 38 30 | calcFun|c-or 180|
|00000e60| 20 31 38 31 29 20 28 22 | 78 6f 72 22 20 63 61 6c | 181) ("|xor" cal|
|00000e70| 63 46 75 6e 63 2d 78 6f | 72 20 31 38 30 20 31 38 |cFunc-xo|r 180 18|
|00000e80| 31 29 20 28 22 73 68 6c | 22 20 63 61 6c 63 46 75 |1) ("shl|" calcFu|
|00000e90| 6e 63 2d 6c 73 68 20 31 | 38 30 20 31 38 31 29 20 |nc-lsh 1|80 181) |
|00000ea0| 28 22 73 68 72 22 20 63 | 61 6c 63 46 75 6e 63 2d |("shr" c|alcFunc-|
|00000eb0| 72 73 68 20 31 38 30 20 | 31 38 31 29 20 28 22 69 |rsh 180 |181) ("i|
|00000ec0| 6e 22 20 63 61 6c 63 46 | 75 6e 63 2d 69 6e 20 31 |n" calcF|unc-in 1|
|00000ed0| 36 30 20 31 36 31 29 20 | 28 22 3c 22 20 63 61 6c |60 161) |("<" cal|
|00000ee0| 63 46 75 6e 63 2d 6c 74 | 20 31 36 30 20 31 36 31 |cFunc-lt| 160 161|
|00000ef0| 29 20 28 22 3e 22 20 63 | 61 6c 63 46 75 6e 63 2d |) (">" c|alcFunc-|
|00000f00| 67 74 20 31 36 30 20 31 | 36 31 29 20 28 22 3c 3d |gt 160 1|61) ("<=|
|00000f10| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6c 65 71 20 31 |" calcFu|nc-leq 1|
|00000f20| 36 30 20 31 36 31 29 20 | 28 22 3e 3d 22 20 63 61 |60 161) |(">=" ca|
|00000f30| 6c 63 46 75 6e 63 2d 67 | 65 71 20 31 36 30 20 31 |lcFunc-g|eq 160 1|
|00000f40| 36 31 29 20 28 22 3d 22 | 20 63 61 6c 63 46 75 6e |61) ("="| calcFun|
|00000f50| 63 2d 65 71 20 31 36 30 | 20 31 36 31 29 20 28 22 |c-eq 160| 161) ("|
|00000f60| 3c 3e 22 20 63 61 6c 63 | 46 75 6e 63 2d 6e 65 71 |<>" calc|Func-neq|
|00000f70| 20 31 36 30 20 31 36 31 | 29 20 28 22 21 21 21 22 | 160 161|) ("!!!"|
|00000f80| 20 63 61 6c 63 46 75 6e | 63 2d 70 6e 6f 74 20 2d | calcFun|c-pnot -|
|00000f90| 31 20 38 35 29 20 28 22 | 26 26 26 22 20 63 61 6c |1 85) ("|&&&" cal|
|00000fa0| 63 46 75 6e 63 2d 70 61 | 6e 64 20 38 30 20 38 31 |cFunc-pa|nd 80 81|
|00000fb0| 29 20 28 22 7c 7c 7c 22 | 20 63 61 6c 63 46 75 6e |) ("|||"| calcFun|
|00000fc0| 63 2d 70 6f 72 20 37 35 | 20 37 36 29 20 28 22 3a |c-por 75| 76) (":|
|00000fd0| 3d 22 20 63 61 6c 63 46 | 75 6e 63 2d 61 73 73 69 |=" calcF|unc-assi|
|00000fe0| 67 6e 20 35 31 20 35 30 | 29 20 28 22 3a 3a 22 20 |gn 51 50|) ("::" |
|00000ff0| 63 61 6c 63 46 75 6e 63 | 2d 63 6f 6e 64 69 74 69 |calcFunc|-conditi|
|00001000| 6f 6e 20 34 35 20 34 36 | 29 29 29 29 0a 0a 28 70 |on 45 46|))))..(p|
|00001010| 75 74 20 28 71 75 6f 74 | 65 20 70 61 73 63 61 6c |ut (quot|e pascal|
|00001020| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 69 6e |) (quote| math-in|
|00001030| 70 75 74 2d 66 69 6c 74 | 65 72 29 20 28 71 75 6f |put-filt|er) (quo|
|00001040| 74 65 20 63 61 6c 63 2d | 69 6e 70 75 74 2d 63 61 |te calc-|input-ca|
|00001050| 73 65 2d 66 69 6c 74 65 | 72 29 29 0a 0a 28 70 75 |se-filte|r))..(pu|
|00001060| 74 20 28 71 75 6f 74 65 | 20 70 61 73 63 61 6c 29 |t (quote| pascal)|
|00001070| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 6f 75 74 | (quote |math-out|
|00001080| 70 75 74 2d 66 69 6c 74 | 65 72 29 20 28 71 75 6f |put-filt|er) (quo|
|00001090| 74 65 20 63 61 6c 63 2d | 6f 75 74 70 75 74 2d 63 |te calc-|output-c|
|000010a0| 61 73 65 2d 66 69 6c 74 | 65 72 29 29 0a 0a 28 70 |ase-filt|er))..(p|
|000010b0| 75 74 20 28 71 75 6f 74 | 65 20 70 61 73 63 61 6c |ut (quot|e pascal|
|000010c0| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 72 61 |) (quote| math-ra|
|000010d0| 64 69 78 2d 66 6f 72 6d | 61 74 74 65 72 29 20 28 |dix-form|atter) (|
|000010e0| 66 75 6e 63 74 69 6f 6e | 20 28 6c 61 6d 62 64 61 |function| (lambda|
|000010f0| 20 28 72 20 73 29 20 28 | 69 66 20 28 3d 20 72 20 | (r s) (|if (= r |
|00001100| 31 36 29 20 28 66 6f 72 | 6d 61 74 20 22 24 25 73 |16) (for|mat "$%s|
|00001110| 22 20 73 29 20 28 66 6f | 72 6d 61 74 20 22 25 64 |" s) (fo|rmat "%d|
|00001120| 23 25 73 22 20 72 20 73 | 29 29 29 29 29 0a 0a 28 |#%s" r s|)))))..(|
|00001130| 64 65 66 75 6e 20 63 61 | 6c 63 2d 69 6e 70 75 74 |defun ca|lc-input|
|00001140| 2d 63 61 73 65 2d 66 69 | 6c 74 65 72 20 28 73 74 |-case-fi|lter (st|
|00001150| 72 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |r) (byte|-code ".|
|00001160| 3f 86 08 00 08 c3 55 83 | 0f 00 09 82 12 00 c4 09 |?.....U.|........|
|00001170| 21 87 22 20 5b 63 61 6c | 63 2d 6c 61 6e 67 75 61 |!." [cal|c-langua|
|00001180| 67 65 2d 6f 70 74 69 6f | 6e 20 73 74 72 20 74 20 |ge-optio|n str t |
|00001190| 30 20 64 6f 77 6e 63 61 | 73 65 5d 20 32 29 29 0a |0 downca|se] 2)).|
|000011a0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 6f 75 74 |.(defun |calc-out|
|000011b0| 70 75 74 2d 63 61 73 65 | 2d 66 69 6c 74 65 72 20 |put-case|-filter |
|000011c0| 28 73 74 72 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(str) (b|yte-code|
|000011d0| 20 22 08 3f 86 08 00 08 | c3 55 83 0f 00 09 82 1e | ".?....|.U......|
|000011e0| 00 08 c3 56 83 1b 00 c4 | 09 21 82 1e 00 c5 09 21 |...V....|.!.....!|
|000011f0| 87 22 20 5b 63 61 6c 63 | 2d 6c 61 6e 67 75 61 67 |." [calc|-languag|
|00001200| 65 2d 6f 70 74 69 6f 6e | 20 73 74 72 20 74 20 30 |e-option| str t 0|
|00001210| 20 75 70 63 61 73 65 20 | 64 6f 77 6e 63 61 73 65 | upcase |downcase|
|00001220| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00001230| 6c 63 2d 66 6f 72 74 72 | 61 6e 2d 6c 61 6e 67 75 |lc-fortr|an-langu|
|00001240| 61 67 65 20 28 6e 29 20 | 28 69 6e 74 65 72 61 63 |age (n) |(interac|
|00001250| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00001260| 63 6f 64 65 20 22 c0 88 | c1 c2 21 87 22 20 5b 6e |code "..|..!." [n|
|00001270| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|00001280| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|00001290| 65 20 22 08 85 09 00 c1 | 08 21 89 10 88 c2 c3 08 |e ".....|.!......|
|000012a0| 5c 22 88 c4 08 85 18 00 | c5 08 c6 5c 22 83 29 00 |\"......|...\".).|
|000012b0| 08 c6 56 83 25 00 c7 82 | 26 00 c8 82 2a 00 c9 21 |..V.%...|&...*..!|
|000012c0| 87 22 20 5b 6e 20 70 72 | 65 66 69 78 2d 6e 75 6d |." [n pr|efix-num|
|000012d0| 65 72 69 63 2d 76 61 6c | 75 65 20 63 61 6c 63 2d |eric-val|ue calc-|
|000012e0| 73 65 74 2d 6c 61 6e 67 | 75 61 67 65 20 66 6f 72 |set-lang|uage for|
|000012f0| 74 72 61 6e 20 6d 65 73 | 73 61 67 65 20 2f 3d 20 |tran mes|sage /= |
|00001300| 30 20 22 46 4f 52 54 52 | 41 4e 20 6c 61 6e 67 75 |0 "FORTR|AN langu|
|00001310| 61 67 65 20 6d 6f 64 65 | 20 28 61 6c 6c 20 75 70 |age mode| (all up|
|00001320| 70 65 72 63 61 73 65 29 | 2e 22 20 22 46 4f 52 54 |percase)|." "FORT|
|00001330| 52 41 4e 20 6c 61 6e 67 | 75 61 67 65 20 6d 6f 64 |RAN lang|uage mod|
|00001340| 65 20 28 61 6c 6c 20 6c | 6f 77 65 72 63 61 73 65 |e (all l|owercase|
|00001350| 29 2e 22 20 22 46 4f 52 | 54 52 41 4e 20 6c 61 6e |)." "FOR|TRAN lan|
|00001360| 67 75 61 67 65 20 6d 6f | 64 65 2e 22 5d 20 36 29 |guage mo|de."] 6)|
|00001370| 29 5d 20 32 29 29 0a 0a | 28 70 75 74 20 28 71 75 |)] 2))..|(put (qu|
|00001380| 6f 74 65 20 66 6f 72 74 | 72 61 6e 29 20 28 71 75 |ote fort|ran) (qu|
|00001390| 6f 74 65 20 6d 61 74 68 | 2d 6f 70 65 72 2d 74 61 |ote math|-oper-ta|
|000013a0| 62 6c 65 29 20 28 71 75 | 6f 74 65 20 28 28 22 75 |ble) (qu|ote (("u|
|000013b0| 2f 22 20 28 6d 61 74 68 | 2d 70 61 72 73 65 2d 66 |/" (math|-parse-f|
|000013c0| 6f 72 74 72 61 6e 2d 76 | 65 63 74 6f 72 29 20 2d |ortran-v|ector) -|
|000013d0| 31 20 31 29 20 28 22 2f | 22 20 28 6d 61 74 68 2d |1 1) ("/|" (math-|
|000013e0| 70 61 72 73 65 2d 66 6f | 72 74 72 61 6e 2d 76 65 |parse-fo|rtran-ve|
|000013f0| 63 74 6f 72 2d 65 6e 64 | 29 20 31 20 2d 31 29 20 |ctor-end|) 1 -1) |
|00001400| 28 22 2a 2a 22 20 5e 20 | 32 30 31 20 32 30 30 29 |("**" ^ |201 200)|
|00001410| 20 28 22 75 2b 22 20 69 | 64 65 6e 74 20 2d 31 20 | ("u+" i|dent -1 |
|00001420| 31 39 31 29 20 28 22 75 | 2d 22 20 6e 65 67 20 2d |191) ("u|-" neg -|
|00001430| 31 20 31 39 31 29 20 28 | 22 2a 22 20 2a 20 31 39 |1 191) (|"*" * 19|
|00001440| 30 20 31 39 31 29 20 28 | 22 2f 22 20 2f 20 31 39 |0 191) (|"/" / 19|
|00001450| 30 20 31 39 31 29 20 28 | 22 2b 22 20 2b 20 31 38 |0 191) (|"+" + 18|
|00001460| 30 20 31 38 31 29 20 28 | 22 2d 22 20 2d 20 31 38 |0 181) (|"-" - 18|
|00001470| 30 20 31 38 31 29 20 28 | 22 2e 4c 54 2e 22 20 63 |0 181) (|".LT." c|
|00001480| 61 6c 63 46 75 6e 63 2d | 6c 74 20 31 36 30 20 31 |alcFunc-|lt 160 1|
|00001490| 36 31 29 20 28 22 2e 47 | 54 2e 22 20 63 61 6c 63 |61) (".G|T." calc|
|000014a0| 46 75 6e 63 2d 67 74 20 | 31 36 30 20 31 36 31 29 |Func-gt |160 161)|
|000014b0| 20 28 22 2e 4c 45 2e 22 | 20 63 61 6c 63 46 75 6e | (".LE."| calcFun|
|000014c0| 63 2d 6c 65 71 20 31 36 | 30 20 31 36 31 29 20 28 |c-leq 16|0 161) (|
|000014d0| 22 2e 47 45 2e 22 20 63 | 61 6c 63 46 75 6e 63 2d |".GE." c|alcFunc-|
|000014e0| 67 65 71 20 31 36 30 20 | 31 36 31 29 20 28 22 2e |geq 160 |161) (".|
|000014f0| 45 51 2e 22 20 63 61 6c | 63 46 75 6e 63 2d 65 71 |EQ." cal|cFunc-eq|
|00001500| 20 31 36 30 20 31 36 31 | 29 20 28 22 2e 4e 45 2e | 160 161|) (".NE.|
|00001510| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6e 65 71 20 31 |" calcFu|nc-neq 1|
|00001520| 36 30 20 31 36 31 29 20 | 28 22 2e 4e 4f 54 2e 22 |60 161) |(".NOT."|
|00001530| 20 63 61 6c 63 46 75 6e | 63 2d 6c 6e 6f 74 20 2d | calcFun|c-lnot -|
|00001540| 31 20 31 32 31 29 20 28 | 22 2e 41 4e 44 2e 22 20 |1 121) (|".AND." |
|00001550| 63 61 6c 63 46 75 6e 63 | 2d 6c 61 6e 64 20 31 31 |calcFunc|-land 11|
|00001560| 30 20 31 31 31 29 20 28 | 22 2e 4f 52 2e 22 20 63 |0 111) (|".OR." c|
|00001570| 61 6c 63 46 75 6e 63 2d | 6c 6f 72 20 31 30 30 20 |alcFunc-|lor 100 |
|00001580| 31 30 31 29 20 28 22 21 | 21 21 22 20 63 61 6c 63 |101) ("!|!!" calc|
|00001590| 46 75 6e 63 2d 70 6e 6f | 74 20 2d 31 20 38 35 29 |Func-pno|t -1 85)|
|000015a0| 20 28 22 26 26 26 22 20 | 63 61 6c 63 46 75 6e 63 | ("&&&" |calcFunc|
|000015b0| 2d 70 61 6e 64 20 38 30 | 20 38 31 29 20 28 22 7c |-pand 80| 81) ("||
|000015c0| 7c 7c 22 20 63 61 6c 63 | 46 75 6e 63 2d 70 6f 72 |||" calc|Func-por|
|000015d0| 20 37 35 20 37 36 29 20 | 28 22 3d 22 20 63 61 6c | 75 76) |("=" cal|
|000015e0| 63 46 75 6e 63 2d 61 73 | 73 69 67 6e 20 35 31 20 |cFunc-as|sign 51 |
|000015f0| 35 30 29 20 28 22 3a 3d | 22 20 63 61 6c 63 46 75 |50) (":=|" calcFu|
|00001600| 6e 63 2d 61 73 73 69 67 | 6e 20 35 31 20 35 30 29 |nc-assig|n 51 50)|
|00001610| 20 28 22 3a 3a 22 20 63 | 61 6c 63 46 75 6e 63 2d | ("::" c|alcFunc-|
|00001620| 63 6f 6e 64 69 74 69 6f | 6e 20 34 35 20 34 36 29 |conditio|n 45 46)|
|00001630| 29 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |)))..(pu|t (quote|
|00001640| 20 66 6f 72 74 72 61 6e | 29 20 28 71 75 6f 74 65 | fortran|) (quote|
|00001650| 20 6d 61 74 68 2d 76 65 | 63 74 6f 72 2d 62 72 61 | math-ve|ctor-bra|
|00001660| 63 6b 65 74 73 29 20 22 | 2f 2f 22 29 0a 0a 28 70 |ckets) "|//")..(p|
|00001670| 75 74 20 28 71 75 6f 74 | 65 20 66 6f 72 74 72 61 |ut (quot|e fortra|
|00001680| 6e 29 20 28 71 75 6f 74 | 65 20 6d 61 74 68 2d 66 |n) (quot|e math-f|
|00001690| 75 6e 63 74 69 6f 6e 2d | 74 61 62 6c 65 29 20 28 |unction-|table) (|
|000016a0| 71 75 6f 74 65 20 28 28 | 61 63 6f 73 20 2e 20 63 |quote ((|acos . c|
|000016b0| 61 6c 63 46 75 6e 63 2d | 61 72 63 63 6f 73 29 20 |alcFunc-|arccos) |
|000016c0| 28 61 63 6f 73 68 20 2e | 20 63 61 6c 63 46 75 6e |(acosh .| calcFun|
|000016d0| 63 2d 61 72 63 63 6f 73 | 68 29 20 28 61 69 6d 61 |c-arccos|h) (aima|
|000016e0| 67 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 69 6d 29 |g . calc|Func-im)|
|000016f0| 20 28 61 69 6e 74 20 2e | 20 63 61 6c 63 46 75 6e | (aint .| calcFun|
|00001700| 63 2d 66 74 72 75 6e 63 | 29 20 28 61 73 69 6e 20 |c-ftrunc|) (asin |
|00001710| 2e 20 63 61 6c 63 46 75 | 6e 63 2d 61 72 63 73 69 |. calcFu|nc-arcsi|
|00001720| 6e 29 20 28 61 73 69 6e | 68 20 2e 20 63 61 6c 63 |n) (asin|h . calc|
|00001730| 46 75 6e 63 2d 61 72 63 | 73 69 6e 68 29 20 28 61 |Func-arc|sinh) (a|
|00001740| 74 61 6e 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 61 |tan . ca|lcFunc-a|
|00001750| 72 63 74 61 6e 29 20 28 | 61 74 61 6e 32 20 2e 20 |rctan) (|atan2 . |
|00001760| 63 61 6c 63 46 75 6e 63 | 2d 61 72 63 74 61 6e 32 |calcFunc|-arctan2|
|00001770| 29 20 28 61 74 61 6e 68 | 20 2e 20 63 61 6c 63 46 |) (atanh| . calcF|
|00001780| 75 6e 63 2d 61 72 63 74 | 61 6e 68 29 20 28 63 6f |unc-arct|anh) (co|
|00001790| 6e 6a 67 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 63 |njg . ca|lcFunc-c|
|000017a0| 6f 6e 6a 29 20 28 6c 6f | 67 20 2e 20 63 61 6c 63 |onj) (lo|g . calc|
|000017b0| 46 75 6e 63 2d 6c 6e 29 | 20 28 6e 69 6e 74 20 2e |Func-ln)| (nint .|
|000017c0| 20 63 61 6c 63 46 75 6e | 63 2d 72 6f 75 6e 64 29 | calcFun|c-round)|
|000017d0| 20 28 72 65 61 6c 20 2e | 20 63 61 6c 63 46 75 6e | (real .| calcFun|
|000017e0| 63 2d 72 65 29 29 29 29 | 0a 0a 28 70 75 74 20 28 |c-re))))|..(put (|
|000017f0| 71 75 6f 74 65 20 66 6f | 72 74 72 61 6e 29 20 28 |quote fo|rtran) (|
|00001800| 71 75 6f 74 65 20 6d 61 | 74 68 2d 69 6e 70 75 74 |quote ma|th-input|
|00001810| 2d 66 69 6c 74 65 72 29 | 20 28 71 75 6f 74 65 20 |-filter)| (quote |
|00001820| 63 61 6c 63 2d 69 6e 70 | 75 74 2d 63 61 73 65 2d |calc-inp|ut-case-|
|00001830| 66 69 6c 74 65 72 29 29 | 0a 0a 28 70 75 74 20 28 |filter))|..(put (|
|00001840| 71 75 6f 74 65 20 66 6f | 72 74 72 61 6e 29 20 28 |quote fo|rtran) (|
|00001850| 71 75 6f 74 65 20 6d 61 | 74 68 2d 6f 75 74 70 75 |quote ma|th-outpu|
|00001860| 74 2d 66 69 6c 74 65 72 | 29 20 28 71 75 6f 74 65 |t-filter|) (quote|
|00001870| 20 63 61 6c 63 2d 6f 75 | 74 70 75 74 2d 63 61 73 | calc-ou|tput-cas|
|00001880| 65 2d 66 69 6c 74 65 72 | 29 29 0a 0a 28 64 65 66 |e-filter|))..(def|
|00001890| 75 6e 20 6d 61 74 68 2d | 70 61 72 73 65 2d 66 6f |un math-|parse-fo|
|000018a0| 72 74 72 61 6e 2d 76 65 | 63 74 6f 72 20 28 6f 70 |rtran-ve|ctor (op|
|000018b0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c4 18 |) (byte-|code "..|
|000018c0| c5 c1 c6 5c 22 08 40 12 | 08 41 89 13 88 29 87 22 |...\".@.|.A...)."|
|000018d0| 20 5b 6d 61 74 68 2d 70 | 61 72 73 69 6e 67 2d 66 | [math-p|arsing-f|
|000018e0| 6f 72 74 72 61 6e 2d 76 | 65 63 74 6f 72 20 74 20 |ortran-v|ector t |
|000018f0| 65 78 70 2d 74 6f 6b 65 | 6e 20 65 78 70 2d 64 61 |exp-toke|n exp-da|
|00001900| 74 61 20 28 65 6e 64 20 | 2e 20 22 00 22 29 20 6d |ta (end |. ".") m|
|00001910| 61 74 68 2d 72 65 61 64 | 2d 62 72 61 63 6b 65 74 |ath-read|-bracket|
|00001920| 73 20 22 5d 22 5d 20 34 | 29 29 0a 0a 28 64 65 66 |s "]"] 4|))..(def|
|00001930| 75 6e 20 6d 61 74 68 2d | 70 61 72 73 65 2d 66 6f |un math-|parse-fo|
|00001940| 72 74 72 61 6e 2d 76 65 | 63 74 6f 72 2d 65 6e 64 |rtran-ve|ctor-end|
|00001950| 20 28 78 20 6f 70 29 20 | 28 62 79 74 65 2d 63 6f | (x op) |(byte-co|
|00001960| 64 65 20 22 08 83 12 00 | 09 0a 42 10 c4 11 c5 89 |de "....|..B.....|
|00001970| 12 88 0b 82 16 00 c6 c7 | c8 5c 22 87 22 20 5b 6d |........|.\"." [m|
|00001980| 61 74 68 2d 70 61 72 73 | 69 6e 67 2d 66 6f 72 74 |ath-pars|ing-fort|
|00001990| 72 61 6e 2d 76 65 63 74 | 6f 72 20 65 78 70 2d 74 |ran-vect|or exp-t|
|000019a0| 6f 6b 65 6e 20 65 78 70 | 2d 64 61 74 61 20 78 20 |oken exp|-data x |
|000019b0| 65 6e 64 20 22 00 22 20 | 74 68 72 6f 77 20 73 79 |end "." |throw sy|
|000019c0| 6e 74 61 78 20 22 55 6e | 6d 61 74 63 68 65 64 20 |ntax "Un|matched |
|000019d0| 63 6c 6f 73 69 6e 67 20 | 60 2f 27 22 5d 20 33 29 |closing |`/'"] 3)|
|000019e0| 29 0a 0a 28 73 65 74 71 | 20 6d 61 74 68 2d 70 61 |)..(setq| math-pa|
|000019f0| 72 73 69 6e 67 2d 66 6f | 72 74 72 61 6e 2d 76 65 |rsing-fo|rtran-ve|
|00001a00| 63 74 6f 72 20 6e 69 6c | 29 0a 0a 28 64 65 66 75 |ctor nil|)..(defu|
|00001a10| 6e 20 6d 61 74 68 2d 70 | 61 72 73 65 2d 66 6f 72 |n math-p|arse-for|
|00001a20| 74 72 61 6e 2d 73 75 62 | 73 63 72 20 28 73 79 6d |tran-sub|scr (sym|
|00001a30| 20 61 72 67 73 29 20 28 | 62 79 74 65 2d 63 6f 64 | args) (|byte-cod|
|00001a40| 65 20 22 c2 08 21 89 10 | 88 09 85 18 00 c3 08 09 |e "..!..|........|
|00001a50| 40 45 10 09 41 89 11 88 | 82 06 00 88 08 87 22 20 |@E..A...|......" |
|00001a60| 5b 73 79 6d 20 61 72 67 | 73 20 6d 61 74 68 2d 62 |[sym arg|s math-b|
|00001a70| 75 69 6c 64 2d 76 61 72 | 2d 6e 61 6d 65 20 63 61 |uild-var|-name ca|
|00001a80| 6c 63 46 75 6e 63 2d 73 | 75 62 73 63 72 5d 20 35 |lcFunc-s|ubscr] 5|
|00001a90| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00001aa0| 74 65 78 2d 6c 61 6e 67 | 75 61 67 65 20 28 6e 29 |tex-lang|uage (n)|
|00001ab0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00001ac0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|00001ad0| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |...!." [|nil calc|
|00001ae0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00001af0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 85 09 00 |(byte-co|de "....|
|00001b00| c1 08 21 89 10 88 c2 c3 | 08 5c 22 88 c4 08 85 18 |..!.....|.\".....|
|00001b10| 00 c5 08 c6 5c 22 83 29 | 00 08 c6 56 83 25 00 c7 |....\".)|...V.%..|
|00001b20| 82 26 00 c8 82 2a 00 c9 | 21 87 22 20 5b 6e 20 70 |.&...*..|!." [n p|
|00001b30| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00001b40| 6c 75 65 20 63 61 6c 63 | 2d 73 65 74 2d 6c 61 6e |lue calc|-set-lan|
|00001b50| 67 75 61 67 65 20 74 65 | 78 20 6d 65 73 73 61 67 |guage te|x messag|
|00001b60| 65 20 2f 3d 20 30 20 22 | 54 65 58 20 6c 61 6e 67 |e /= 0 "|TeX lang|
|00001b70| 75 61 67 65 20 6d 6f 64 | 65 20 77 69 74 68 20 5c |uage mod|e with \|
|00001b80| 5c 68 62 6f 78 7b 66 75 | 6e 63 7d 28 5c 5c 68 62 |\hbox{fu|nc}(\\hb|
|00001b90| 6f 78 7b 76 61 72 7d 29 | 2e 22 20 22 54 65 58 20 |ox{var})|." "TeX |
|00001ba0| 6c 61 6e 67 75 61 67 65 | 20 6d 6f 64 65 20 77 69 |language| mode wi|
|00001bb0| 74 68 20 5c 5c 66 75 6e | 63 7b 5c 5c 68 62 6f 78 |th \\fun|c{\\hbox|
|00001bc0| 7b 76 61 72 7d 7d 2e 22 | 20 22 54 65 58 20 6c 61 |{var}}."| "TeX la|
|00001bd0| 6e 67 75 61 67 65 20 6d | 6f 64 65 2e 22 5d 20 36 |nguage m|ode."] 6|
|00001be0| 29 29 5d 20 32 29 29 0a | 0a 28 70 75 74 20 28 71 |))] 2)).|.(put (q|
|00001bf0| 75 6f 74 65 20 74 65 78 | 29 20 28 71 75 6f 74 65 |uote tex|) (quote|
|00001c00| 20 6d 61 74 68 2d 6f 70 | 65 72 2d 74 61 62 6c 65 | math-op|er-table|
|00001c10| 29 20 28 71 75 6f 74 65 | 20 28 28 22 75 2b 22 20 |) (quote| (("u+" |
|00001c20| 69 64 65 6e 74 20 2d 31 | 20 31 30 30 30 29 20 28 |ident -1| 1000) (|
|00001c30| 22 75 2d 22 20 6e 65 67 | 20 2d 31 20 31 30 30 30 |"u-" neg| -1 1000|
|00001c40| 29 20 28 22 5c 5c 68 61 | 74 22 20 63 61 6c 63 46 |) ("\\ha|t" calcF|
|00001c50| 75 6e 63 2d 68 61 74 20 | 2d 31 20 39 35 30 29 20 |unc-hat |-1 950) |
|00001c60| 28 22 5c 5c 63 68 65 63 | 6b 22 20 63 61 6c 63 46 |("\\chec|k" calcF|
|00001c70| 75 6e 63 2d 63 68 65 63 | 6b 20 2d 31 20 39 35 30 |unc-chec|k -1 950|
|00001c80| 29 20 28 22 5c 5c 74 69 | 6c 64 65 22 20 63 61 6c |) ("\\ti|lde" cal|
|00001c90| 63 46 75 6e 63 2d 74 69 | 6c 64 65 20 2d 31 20 39 |cFunc-ti|lde -1 9|
|00001ca0| 35 30 29 20 28 22 5c 5c | 61 63 75 74 65 22 20 63 |50) ("\\|acute" c|
|00001cb0| 61 6c 63 46 75 6e 63 2d | 61 63 75 74 65 20 2d 31 |alcFunc-|acute -1|
|00001cc0| 20 39 35 30 29 20 28 22 | 5c 5c 67 72 61 76 65 22 | 950) ("|\\grave"|
|00001cd0| 20 63 61 6c 63 46 75 6e | 63 2d 67 72 61 76 65 20 | calcFun|c-grave |
|00001ce0| 2d 31 20 39 35 30 29 20 | 28 22 5c 5c 64 6f 74 22 |-1 950) |("\\dot"|
|00001cf0| 20 63 61 6c 63 46 75 6e | 63 2d 64 6f 74 20 2d 31 | calcFun|c-dot -1|
|00001d00| 20 39 35 30 29 20 28 22 | 5c 5c 64 64 6f 74 22 20 | 950) ("|\\ddot" |
|00001d10| 63 61 6c 63 46 75 6e 63 | 2d 64 6f 74 64 6f 74 20 |calcFunc|-dotdot |
|00001d20| 2d 31 20 39 35 30 29 20 | 28 22 5c 5c 62 72 65 76 |-1 950) |("\\brev|
|00001d30| 65 22 20 63 61 6c 63 46 | 75 6e 63 2d 62 72 65 76 |e" calcF|unc-brev|
|00001d40| 65 20 2d 31 20 39 35 30 | 29 20 28 22 5c 5c 62 61 |e -1 950|) ("\\ba|
|00001d50| 72 22 20 63 61 6c 63 46 | 75 6e 63 2d 62 61 72 20 |r" calcF|unc-bar |
|00001d60| 2d 31 20 39 35 30 29 20 | 28 22 5c 5c 76 65 63 22 |-1 950) |("\\vec"|
|00001d70| 20 63 61 6c 63 46 75 6e | 63 2d 56 65 63 20 2d 31 | calcFun|c-Vec -1|
|00001d80| 20 39 35 30 29 20 28 22 | 5c 5c 75 6e 64 65 72 6c | 950) ("|\\underl|
|00001d90| 69 6e 65 22 20 63 61 6c | 63 46 75 6e 63 2d 75 6e |ine" cal|cFunc-un|
|00001da0| 64 65 72 20 2d 31 20 39 | 35 30 29 20 28 22 75 7c |der -1 9|50) ("u||
|00001db0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 61 62 73 20 2d |" calcFu|nc-abs -|
|00001dc0| 31 20 30 29 20 28 22 7c | 22 20 63 6c 6f 73 69 6e |1 0) ("||" closin|
|00001dd0| 67 20 30 20 2d 31 29 20 | 28 22 5c 5c 6c 66 6c 6f |g 0 -1) |("\\lflo|
|00001de0| 6f 72 22 20 63 61 6c 63 | 46 75 6e 63 2d 66 6c 6f |or" calc|Func-flo|
|00001df0| 6f 72 20 2d 31 20 30 29 | 20 28 22 5c 5c 72 66 6c |or -1 0)| ("\\rfl|
|00001e00| 6f 6f 72 22 20 63 6c 6f | 73 69 6e 67 20 30 20 2d |oor" clo|sing 0 -|
|00001e10| 31 29 20 28 22 5c 5c 6c | 63 65 69 6c 22 20 63 61 |1) ("\\l|ceil" ca|
|00001e20| 6c 63 46 75 6e 63 2d 63 | 65 69 6c 20 2d 31 20 30 |lcFunc-c|eil -1 0|
|00001e30| 29 20 28 22 5c 5c 72 63 | 65 69 6c 22 20 63 6c 6f |) ("\\rc|eil" clo|
|00001e40| 73 69 6e 67 20 30 20 2d | 31 29 20 28 22 5c 5c 70 |sing 0 -|1) ("\\p|
|00001e50| 6d 22 20 73 64 65 76 20 | 33 30 30 20 33 30 30 29 |m" sdev |300 300)|
|00001e60| 20 28 22 21 22 20 63 61 | 6c 63 46 75 6e 63 2d 66 | ("!" ca|lcFunc-f|
|00001e70| 61 63 74 20 32 31 30 20 | 2d 31 29 20 28 22 5e 22 |act 210 |-1) ("^"|
|00001e80| 20 5e 20 32 30 31 20 32 | 30 30 29 20 28 22 5f 22 | ^ 201 2|00) ("_"|
|00001e90| 20 63 61 6c 63 46 75 6e | 63 2d 73 75 62 73 63 72 | calcFun|c-subscr|
|00001ea0| 20 32 30 31 20 32 30 30 | 29 20 28 22 5c 5c 74 69 | 201 200|) ("\\ti|
|00001eb0| 6d 65 73 22 20 2a 20 31 | 39 31 20 31 39 30 29 20 |mes" * 1|91 190) |
|00001ec0| 28 22 2a 22 20 2a 20 31 | 39 31 20 31 39 30 29 20 |("*" * 1|91 190) |
|00001ed0| 28 22 32 78 22 20 2a 20 | 31 39 31 20 31 39 30 29 |("2x" * |191 190)|
|00001ee0| 20 28 22 2b 22 20 2b 20 | 31 38 30 20 31 38 31 29 | ("+" + |180 181)|
|00001ef0| 20 28 22 2d 22 20 2d 20 | 31 38 30 20 31 38 31 29 | ("-" - |180 181)|
|00001f00| 20 28 22 5c 5c 6f 76 65 | 72 22 20 2f 20 31 37 30 | ("\\ove|r" / 170|
|00001f10| 20 31 37 31 29 20 28 22 | 2f 22 20 2f 20 31 37 30 | 171) ("|/" / 170|
|00001f20| 20 31 37 31 29 20 28 22 | 5c 5c 63 68 6f 6f 73 65 | 171) ("|\\choose|
|00001f30| 22 20 63 61 6c 63 46 75 | 6e 63 2d 63 68 6f 6f 73 |" calcFu|nc-choos|
|00001f40| 65 20 31 37 30 20 31 37 | 31 29 20 28 22 5c 5c 6d |e 170 17|1) ("\\m|
|00001f50| 6f 64 22 20 25 20 31 37 | 30 20 31 37 31 29 20 28 |od" % 17|0 171) (|
|00001f60| 22 3c 22 20 63 61 6c 63 | 46 75 6e 63 2d 6c 74 20 |"<" calc|Func-lt |
|00001f70| 31 36 30 20 31 36 31 29 | 20 28 22 3e 22 20 63 61 |160 161)| (">" ca|
|00001f80| 6c 63 46 75 6e 63 2d 67 | 74 20 31 36 30 20 31 36 |lcFunc-g|t 160 16|
|00001f90| 31 29 20 28 22 5c 5c 6c | 65 71 22 20 63 61 6c 63 |1) ("\\l|eq" calc|
|00001fa0| 46 75 6e 63 2d 6c 65 71 | 20 31 36 30 20 31 36 31 |Func-leq| 160 161|
|00001fb0| 29 20 28 22 5c 5c 67 65 | 71 22 20 63 61 6c 63 46 |) ("\\ge|q" calcF|
|00001fc0| 75 6e 63 2d 67 65 71 20 | 31 36 30 20 31 36 31 29 |unc-geq |160 161)|
|00001fd0| 20 28 22 3d 22 20 63 61 | 6c 63 46 75 6e 63 2d 65 | ("=" ca|lcFunc-e|
|00001fe0| 71 20 31 36 30 20 31 36 | 31 29 20 28 22 5c 5c 6e |q 160 16|1) ("\\n|
|00001ff0| 65 71 22 20 63 61 6c 63 | 46 75 6e 63 2d 6e 65 71 |eq" calc|Func-neq|
|00002000| 20 31 36 30 20 31 36 31 | 29 20 28 22 5c 5c 6e 65 | 160 161|) ("\\ne|
|00002010| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6e 65 71 20 31 |" calcFu|nc-neq 1|
|00002020| 36 30 20 31 36 31 29 20 | 28 22 5c 5c 6c 6e 6f 74 |60 161) |("\\lnot|
|00002030| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6c 6e 6f 74 20 |" calcFu|nc-lnot |
|00002040| 2d 31 20 31 32 31 29 20 | 28 22 5c 5c 6c 61 6e 64 |-1 121) |("\\land|
|00002050| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6c 61 6e 64 20 |" calcFu|nc-land |
|00002060| 31 31 30 20 31 31 31 29 | 20 28 22 5c 5c 6c 6f 72 |110 111)| ("\\lor|
|00002070| 22 20 63 61 6c 63 46 75 | 6e 63 2d 6c 6f 72 20 31 |" calcFu|nc-lor 1|
|00002080| 30 30 20 31 30 31 29 20 | 28 22 3f 22 20 28 6d 61 |00 101) |("?" (ma|
|00002090| 74 68 2d 72 65 61 64 2d | 69 66 29 20 39 31 20 39 |th-read-|if) 91 9|
|000020a0| 30 29 20 28 22 21 21 21 | 22 20 63 61 6c 63 46 75 |0) ("!!!|" calcFu|
|000020b0| 6e 63 2d 70 6e 6f 74 20 | 2d 31 20 38 35 29 20 28 |nc-pnot |-1 85) (|
|000020c0| 22 26 26 26 22 20 63 61 | 6c 63 46 75 6e 63 2d 70 |"&&&" ca|lcFunc-p|
|000020d0| 61 6e 64 20 38 30 20 38 | 31 29 20 28 22 7c 7c 7c |and 80 8|1) ("||||
|000020e0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 70 6f 72 20 37 |" calcFu|nc-por 7|
|000020f0| 35 20 37 36 29 20 28 22 | 5c 5c 67 65 74 73 22 20 |5 76) ("|\\gets" |
|00002100| 63 61 6c 63 46 75 6e 63 | 2d 61 73 73 69 67 6e 20 |calcFunc|-assign |
|00002110| 35 31 20 35 30 29 20 28 | 22 3a 3d 22 20 63 61 6c |51 50) (|":=" cal|
|00002120| 63 46 75 6e 63 2d 61 73 | 73 69 67 6e 20 35 31 20 |cFunc-as|sign 51 |
|00002130| 35 30 29 20 28 22 3a 3a | 22 20 63 61 6c 63 46 75 |50) ("::|" calcFu|
|00002140| 6e 63 2d 63 6f 6e 64 69 | 74 69 6f 6e 20 34 35 20 |nc-condi|tion 45 |
|00002150| 34 36 29 20 28 22 5c 5c | 74 6f 22 20 63 61 6c 63 |46) ("\\|to" calc|
|00002160| 46 75 6e 63 2d 65 76 61 | 6c 74 6f 20 34 30 20 34 |Func-eva|lto 40 4|
|00002170| 31 29 20 28 22 5c 5c 74 | 6f 22 20 63 61 6c 63 46 |1) ("\\t|o" calcF|
|00002180| 75 6e 63 2d 65 76 61 6c | 74 6f 20 34 30 20 2d 31 |unc-eval|to 40 -1|
|00002190| 29 20 28 22 3d 3e 22 20 | 63 61 6c 63 46 75 6e 63 |) ("=>" |calcFunc|
|000021a0| 2d 65 76 61 6c 74 6f 20 | 34 30 20 34 31 29 20 28 |-evalto |40 41) (|
|000021b0| 22 3d 3e 22 20 63 61 6c | 63 46 75 6e 63 2d 65 76 |"=>" cal|cFunc-ev|
|000021c0| 61 6c 74 6f 20 34 30 20 | 2d 31 29 29 29 29 0a 0a |alto 40 |-1))))..|
|000021d0| 28 70 75 74 20 28 71 75 | 6f 74 65 20 74 65 78 29 |(put (qu|ote tex)|
|000021e0| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 66 75 6e | (quote |math-fun|
|000021f0| 63 74 69 6f 6e 2d 74 61 | 62 6c 65 29 20 28 71 75 |ction-ta|ble) (qu|
|00002200| 6f 74 65 20 28 28 5c 5c | 61 72 63 63 6f 73 20 2e |ote ((\\|arccos .|
|00002210| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 63 6f 73 | calcFun|c-arccos|
|00002220| 29 20 28 5c 5c 61 72 63 | 73 69 6e 20 2e 20 63 61 |) (\\arc|sin . ca|
|00002230| 6c 63 46 75 6e 63 2d 61 | 72 63 73 69 6e 29 20 28 |lcFunc-a|rcsin) (|
|00002240| 5c 5c 61 72 63 74 61 6e | 20 2e 20 63 61 6c 63 46 |\\arctan| . calcF|
|00002250| 75 6e 63 2d 61 72 63 74 | 61 6e 29 20 28 5c 5c 61 |unc-arct|an) (\\a|
|00002260| 72 67 20 2e 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |rg . cal|cFunc-ar|
|00002270| 67 29 20 28 5c 5c 63 6f | 73 20 2e 20 63 61 6c 63 |g) (\\co|s . calc|
|00002280| 46 75 6e 63 2d 63 6f 73 | 29 20 28 5c 5c 63 6f 73 |Func-cos|) (\\cos|
|00002290| 68 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 63 6f 73 |h . calc|Func-cos|
|000022a0| 68 29 20 28 5c 5c 64 65 | 74 20 2e 20 63 61 6c 63 |h) (\\de|t . calc|
|000022b0| 46 75 6e 63 2d 64 65 74 | 29 20 28 5c 5c 65 78 70 |Func-det|) (\\exp|
|000022c0| 20 2e 20 63 61 6c 63 46 | 75 6e 63 2d 65 78 70 29 | . calcF|unc-exp)|
|000022d0| 20 28 5c 5c 67 63 64 20 | 2e 20 63 61 6c 63 46 75 | (\\gcd |. calcFu|
|000022e0| 6e 63 2d 67 63 64 29 20 | 28 5c 5c 6c 6e 20 2e 20 |nc-gcd) |(\\ln . |
|000022f0| 63 61 6c 63 46 75 6e 63 | 2d 6c 6e 29 20 28 5c 5c |calcFunc|-ln) (\\|
|00002300| 6c 6f 67 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 6c |log . ca|lcFunc-l|
|00002310| 6f 67 31 30 29 20 28 5c | 5c 6d 61 78 20 2e 20 63 |og10) (\|\max . c|
|00002320| 61 6c 63 46 75 6e 63 2d | 6d 61 78 29 20 28 5c 5c |alcFunc-|max) (\\|
|00002330| 6d 69 6e 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 6d |min . ca|lcFunc-m|
|00002340| 69 6e 29 20 28 5c 5c 74 | 61 6e 20 2e 20 63 61 6c |in) (\\t|an . cal|
|00002350| 63 46 75 6e 63 2d 74 61 | 6e 29 20 28 5c 5c 73 69 |cFunc-ta|n) (\\si|
|00002360| 6e 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 73 69 6e |n . calc|Func-sin|
|00002370| 29 20 28 5c 5c 73 69 6e | 68 20 2e 20 63 61 6c 63 |) (\\sin|h . calc|
|00002380| 46 75 6e 63 2d 73 69 6e | 68 29 20 28 5c 5c 73 71 |Func-sin|h) (\\sq|
|00002390| 72 74 20 2e 20 63 61 6c | 63 46 75 6e 63 2d 73 71 |rt . cal|cFunc-sq|
|000023a0| 72 74 29 20 28 5c 5c 74 | 61 6e 68 20 2e 20 63 61 |rt) (\\t|anh . ca|
|000023b0| 6c 63 46 75 6e 63 2d 74 | 61 6e 68 29 20 28 5c 5c |lcFunc-t|anh) (\\|
|000023c0| 70 68 69 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 74 |phi . ca|lcFunc-t|
|000023d0| 6f 74 69 65 6e 74 29 20 | 28 5c 5c 6d 75 20 2e 20 |otient) |(\\mu . |
|000023e0| 63 61 6c 63 46 75 6e 63 | 2d 6d 6f 65 62 69 75 73 |calcFunc|-moebius|
|000023f0| 29 29 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 |))))..(p|ut (quot|
|00002400| 65 20 74 65 78 29 20 28 | 71 75 6f 74 65 20 6d 61 |e tex) (|quote ma|
|00002410| 74 68 2d 76 61 72 69 61 | 62 6c 65 2d 74 61 62 6c |th-varia|ble-tabl|
|00002420| 65 29 20 28 71 75 6f 74 | 65 20 28 28 5c 5c 70 69 |e) (quot|e ((\\pi|
|00002430| 20 2e 20 76 61 72 2d 70 | 69 29 20 28 5c 5c 69 6e | . var-p|i) (\\in|
|00002440| 66 74 79 20 2e 20 76 61 | 72 2d 69 6e 66 29 20 28 |fty . va|r-inf) (|
|00002450| 5c 5c 69 6e 66 74 79 20 | 2e 20 76 61 72 2d 75 69 |\\infty |. var-ui|
|00002460| 6e 66 29 20 28 5c 5c 70 | 68 69 20 2e 20 76 61 72 |nf) (\\p|hi . var|
|00002470| 2d 70 68 69 29 20 28 5c | 5c 67 61 6d 6d 61 20 2e |-phi) (\|\gamma .|
|00002480| 20 76 61 72 2d 67 61 6d | 6d 61 29 20 28 5c 5c 73 | var-gam|ma) (\\s|
|00002490| 75 6d 20 6d 61 74 68 2d | 70 61 72 73 65 2d 74 65 |um math-|parse-te|
|000024a0| 78 2d 73 75 6d 20 63 61 | 6c 63 46 75 6e 63 2d 73 |x-sum ca|lcFunc-s|
|000024b0| 75 6d 29 20 28 5c 5c 70 | 72 6f 64 20 6d 61 74 68 |um) (\\p|rod math|
|000024c0| 2d 70 61 72 73 65 2d 74 | 65 78 2d 73 75 6d 20 63 |-parse-t|ex-sum c|
|000024d0| 61 6c 63 46 75 6e 63 2d | 70 72 6f 64 29 29 29 29 |alcFunc-|prod))))|
|000024e0| 0a 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 74 65 |..(put (|quote te|
|000024f0| 78 29 20 28 71 75 6f 74 | 65 20 6d 61 74 68 2d 63 |x) (quot|e math-c|
|00002500| 6f 6d 70 6c 65 78 2d 66 | 6f 72 6d 61 74 29 20 28 |omplex-f|ormat) (|
|00002510| 71 75 6f 74 65 20 69 29 | 29 0a 0a 28 64 65 66 75 |quote i)|)..(defu|
|00002520| 6e 20 6d 61 74 68 2d 70 | 61 72 73 65 2d 74 65 78 |n math-p|arse-tex|
|00002530| 2d 73 75 6d 20 28 66 20 | 76 61 6c 29 20 28 62 79 |-sum (f |val) (by|
|00002540| 74 65 2d 63 6f 64 65 20 | 22 c6 c6 c6 1a 19 18 c7 |te-code |".......|
|00002550| 0b c8 5c 22 86 11 00 c9 | ca cb 5c 22 88 cc 20 88 |..\"....|..\".. .|
|00002560| 0c 89 12 88 cd 20 89 10 | 88 ce 08 21 cf 3d 86 2f |..... ..|...!.=./|
|00002570| 00 0a 54 89 14 88 c9 ca | d0 5c 22 88 c7 0b d1 5c |..T.....|.\"....\|
|00002580| 22 86 3b 00 c9 ca d2 5c | 22 88 cc 20 88 cd 20 89 |".;....\|".. .. .|
|00002590| 11 88 d3 d4 0d 38 cd 20 | d5 08 38 d4 08 38 09 25 |.....8. |..8..8.%|
|000025a0| 2b 87 22 20 5b 6c 6f 77 | 20 68 69 67 68 20 73 61 |+." [low| high sa|
|000025b0| 76 65 20 65 78 70 2d 64 | 61 74 61 20 65 78 70 2d |ve exp-d|ata exp-|
|000025c0| 6f 6c 64 2d 70 6f 73 20 | 66 20 6e 69 6c 20 65 71 |old-pos |f nil eq|
|000025d0| 75 61 6c 20 22 5f 22 20 | 74 68 72 6f 77 20 73 79 |ual "_" |throw sy|
|000025e0| 6e 74 61 78 20 22 45 78 | 70 65 63 74 65 64 20 60 |ntax "Ex|pected `|
|000025f0| 5f 27 22 20 6d 61 74 68 | 2d 72 65 61 64 2d 74 6f |_'" math|-read-to|
|00002600| 6b 65 6e 20 6d 61 74 68 | 2d 72 65 61 64 2d 66 61 |ken math|-read-fa|
|00002610| 63 74 6f 72 20 63 61 72 | 2d 73 61 66 65 20 63 61 |ctor car|-safe ca|
|00002620| 6c 63 46 75 6e 63 2d 65 | 71 20 22 45 78 70 65 63 |lcFunc-e|q "Expec|
|00002630| 74 65 64 20 65 71 75 61 | 74 69 6f 6e 22 20 22 5e |ted equa|tion" "^|
|00002640| 22 20 22 45 78 70 65 63 | 74 65 64 20 60 5e 27 22 |" "Expec|ted `^'"|
|00002650| 20 6c 69 73 74 20 32 20 | 31 5d 20 31 37 29 29 0a | list 2 |1] 17)).|
|00002660| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 74 65 78 |.(defun |math-tex|
|00002670| 2d 69 6e 70 75 74 2d 66 | 69 6c 74 65 72 20 28 73 |-input-f|ilter (s|
|00002680| 74 72 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |tr) (byt|e-code "|
|00002690| c1 c2 08 5c 22 85 1c 00 | 08 c3 c4 c3 21 54 4f 08 |...\"...|....!TO.|
|000026a0| c5 c3 21 53 c6 4f 50 89 | 10 88 82 00 00 88 08 87 |..!S.OP.|........|
|000026b0| 22 20 5b 73 74 72 20 73 | 74 72 69 6e 67 2d 6d 61 |" [str s|tring-ma|
|000026c0| 74 63 68 20 22 5b 30 2d | 39 5d 5c 5c 5c 5c 2c 5b |tch "[0-|9]\\\\,[|
|000026d0| 30 2d 39 5d 22 20 30 20 | 6d 61 74 63 68 2d 62 65 |0-9]" 0 |match-be|
|000026e0| 67 69 6e 6e 69 6e 67 20 | 6d 61 74 63 68 2d 65 6e |ginning |match-en|
|000026f0| 64 20 6e 69 6c 5d 20 38 | 29 29 0a 0a 28 70 75 74 |d nil] 8|))..(put|
|00002700| 20 28 71 75 6f 74 65 20 | 74 65 78 29 20 28 71 75 | (quote |tex) (qu|
|00002710| 6f 74 65 20 6d 61 74 68 | 2d 69 6e 70 75 74 2d 66 |ote math|-input-f|
|00002720| 69 6c 74 65 72 29 20 28 | 71 75 6f 74 65 20 6d 61 |ilter) (|quote ma|
|00002730| 74 68 2d 74 65 78 2d 69 | 6e 70 75 74 2d 66 69 6c |th-tex-i|nput-fil|
|00002740| 74 65 72 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |ter))..(|defun ca|
|00002750| 6c 63 2d 65 71 6e 2d 6c | 61 6e 67 75 61 67 65 20 |lc-eqn-l|anguage |
|00002760| 28 6e 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |(n) (int|eractive|
|00002770| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00002780| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00002790| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|000027a0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|000027b0| c1 21 88 c2 c3 21 87 22 | 20 5b 63 61 6c 63 2d 73 |.!...!."| [calc-s|
|000027c0| 65 74 2d 6c 61 6e 67 75 | 61 67 65 20 65 71 6e 20 |et-langu|age eqn |
|000027d0| 6d 65 73 73 61 67 65 20 | 22 45 71 6e 20 6c 61 6e |message |"Eqn lan|
|000027e0| 67 75 61 67 65 20 6d 6f | 64 65 2e 22 5d 20 33 29 |guage mo|de."] 3)|
|000027f0| 29 5d 20 32 29 29 0a 0a | 28 70 75 74 20 28 71 75 |)] 2))..|(put (qu|
|00002800| 6f 74 65 20 65 71 6e 29 | 20 28 71 75 6f 74 65 20 |ote eqn)| (quote |
|00002810| 6d 61 74 68 2d 6f 70 65 | 72 2d 74 61 62 6c 65 29 |math-ope|r-table)|
|00002820| 20 28 71 75 6f 74 65 20 | 28 28 22 75 2b 22 20 69 | (quote |(("u+" i|
|00002830| 64 65 6e 74 20 2d 31 20 | 31 30 30 30 29 20 28 22 |dent -1 |1000) ("|
|00002840| 75 2d 22 20 6e 65 67 20 | 2d 31 20 31 30 30 30 29 |u-" neg |-1 1000)|
|00002850| 20 28 22 70 72 69 6d 65 | 22 20 28 6d 61 74 68 2d | ("prime|" (math-|
|00002860| 70 61 72 73 65 2d 65 71 | 6e 2d 70 72 69 6d 65 29 |parse-eq|n-prime)|
|00002870| 20 39 35 30 20 2d 31 29 | 20 28 22 70 72 69 6d 65 | 950 -1)| ("prime|
|00002880| 22 20 63 61 6c 63 46 75 | 6e 63 2d 50 72 69 6d 65 |" calcFu|nc-Prime|
|00002890| 20 39 35 30 20 2d 31 29 | 20 28 22 64 6f 74 22 20 | 950 -1)| ("dot" |
|000028a0| 63 61 6c 63 46 75 6e 63 | 2d 64 6f 74 20 39 35 30 |calcFunc|-dot 950|
|000028b0| 20 2d 31 29 20 28 22 64 | 6f 74 64 6f 74 22 20 63 | -1) ("d|otdot" c|
|000028c0| 61 6c 63 46 75 6e 63 2d | 64 6f 74 64 6f 74 20 39 |alcFunc-|dotdot 9|
|000028d0| 35 30 20 2d 31 29 20 28 | 22 68 61 74 22 20 63 61 |50 -1) (|"hat" ca|
|000028e0| 6c 63 46 75 6e 63 2d 68 | 61 74 20 39 35 30 20 2d |lcFunc-h|at 950 -|
|000028f0| 31 29 20 28 22 74 69 6c | 64 65 22 20 63 61 6c 63 |1) ("til|de" calc|
|00002900| 46 75 6e 63 2d 74 69 6c | 64 65 20 39 35 30 20 2d |Func-til|de 950 -|
|00002910| 31 29 20 28 22 76 65 63 | 22 20 63 61 6c 63 46 75 |1) ("vec|" calcFu|
|00002920| 6e 63 2d 56 65 63 20 39 | 35 30 20 2d 31 29 20 28 |nc-Vec 9|50 -1) (|
|00002930| 22 64 79 61 64 22 20 63 | 61 6c 63 46 75 6e 63 2d |"dyad" c|alcFunc-|
|00002940| 64 79 61 64 20 39 35 30 | 20 2d 31 29 20 28 22 62 |dyad 950| -1) ("b|
|00002950| 61 72 22 20 63 61 6c 63 | 46 75 6e 63 2d 62 61 72 |ar" calc|Func-bar|
|00002960| 20 39 35 30 20 2d 31 29 | 20 28 22 75 6e 64 65 72 | 950 -1)| ("under|
|00002970| 22 20 63 61 6c 63 46 75 | 6e 63 2d 75 6e 64 65 72 |" calcFu|nc-under|
|00002980| 20 39 35 30 20 2d 31 29 | 20 28 22 73 75 62 22 20 | 950 -1)| ("sub" |
|00002990| 63 61 6c 63 46 75 6e 63 | 2d 73 75 62 73 63 72 20 |calcFunc|-subscr |
|000029a0| 39 33 31 20 39 33 30 29 | 20 28 22 73 75 70 22 20 |931 930)| ("sup" |
|000029b0| 5e 20 39 32 31 20 39 32 | 30 29 20 28 22 73 71 72 |^ 921 92|0) ("sqr|
|000029c0| 74 22 20 63 61 6c 63 46 | 75 6e 63 2d 73 71 72 74 |t" calcF|unc-sqrt|
|000029d0| 20 2d 31 20 39 31 30 29 | 20 28 22 6f 76 65 72 22 | -1 910)| ("over"|
|000029e0| 20 2f 20 39 30 30 20 39 | 30 31 29 20 28 22 75 7c | / 900 9|01) ("u||
|000029f0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 61 62 73 20 2d |" calcFu|nc-abs -|
|00002a00| 31 20 30 29 20 28 22 7c | 22 20 63 6c 6f 73 69 6e |1 0) ("||" closin|
|00002a10| 67 20 30 20 2d 31 29 20 | 28 22 6c 65 66 74 20 66 |g 0 -1) |("left f|
|00002a20| 6c 6f 6f 72 22 20 63 61 | 6c 63 46 75 6e 63 2d 66 |loor" ca|lcFunc-f|
|00002a30| 6c 6f 6f 72 20 2d 31 20 | 30 29 20 28 22 72 69 67 |loor -1 |0) ("rig|
|00002a40| 68 74 20 66 6c 6f 6f 72 | 22 20 63 6c 6f 73 69 6e |ht floor|" closin|
|00002a50| 67 20 30 20 2d 31 29 20 | 28 22 6c 65 66 74 20 63 |g 0 -1) |("left c|
|00002a60| 65 69 6c 22 20 63 61 6c | 63 46 75 6e 63 2d 63 65 |eil" cal|cFunc-ce|
|00002a70| 69 6c 20 2d 31 20 30 29 | 20 28 22 72 69 67 68 74 |il -1 0)| ("right|
|00002a80| 20 63 65 69 6c 22 20 63 | 6c 6f 73 69 6e 67 20 30 | ceil" c|losing 0|
|00002a90| 20 2d 31 29 20 28 22 2b | 2d 22 20 73 64 65 76 20 | -1) ("+|-" sdev |
|00002aa0| 33 30 30 20 33 30 30 29 | 20 28 22 21 22 20 63 61 |300 300)| ("!" ca|
|00002ab0| 6c 63 46 75 6e 63 2d 66 | 61 63 74 20 32 31 30 20 |lcFunc-f|act 210 |
|00002ac0| 2d 31 29 20 28 22 74 69 | 6d 65 73 22 20 2a 20 31 |-1) ("ti|mes" * 1|
|00002ad0| 39 31 20 31 39 30 29 20 | 28 22 2a 22 20 2a 20 31 |91 190) |("*" * 1|
|00002ae0| 39 31 20 31 39 30 29 20 | 28 22 32 78 22 20 2a 20 |91 190) |("2x" * |
|00002af0| 31 39 31 20 31 39 30 29 | 20 28 22 2f 22 20 2f 20 |191 190)| ("/" / |
|00002b00| 31 38 30 20 31 38 31 29 | 20 28 22 25 22 20 25 20 |180 181)| ("%" % |
|00002b10| 31 38 30 20 31 38 31 29 | 20 28 22 2b 22 20 2b 20 |180 181)| ("+" + |
|00002b20| 31 37 30 20 31 37 31 29 | 20 28 22 2d 22 20 2d 20 |170 171)| ("-" - |
|00002b30| 31 37 30 20 31 37 31 29 | 20 28 22 3c 22 20 63 61 |170 171)| ("<" ca|
|00002b40| 6c 63 46 75 6e 63 2d 6c | 74 20 31 36 30 20 31 36 |lcFunc-l|t 160 16|
|00002b50| 31 29 20 28 22 3e 22 20 | 63 61 6c 63 46 75 6e 63 |1) (">" |calcFunc|
|00002b60| 2d 67 74 20 31 36 30 20 | 31 36 31 29 20 28 22 3c |-gt 160 |161) ("<|
|00002b70| 3d 22 20 63 61 6c 63 46 | 75 6e 63 2d 6c 65 71 20 |=" calcF|unc-leq |
|00002b80| 31 36 30 20 31 36 31 29 | 20 28 22 3e 3d 22 20 63 |160 161)| (">=" c|
|00002b90| 61 6c 63 46 75 6e 63 2d | 67 65 71 20 31 36 30 20 |alcFunc-|geq 160 |
|00002ba0| 31 36 31 29 20 28 22 3d | 22 20 63 61 6c 63 46 75 |161) ("=|" calcFu|
|00002bb0| 6e 63 2d 65 71 20 31 36 | 30 20 31 36 31 29 20 28 |nc-eq 16|0 161) (|
|00002bc0| 22 3d 3d 22 20 63 61 6c | 63 46 75 6e 63 2d 65 71 |"==" cal|cFunc-eq|
|00002bd0| 20 31 36 30 20 31 36 31 | 29 20 28 22 21 3d 22 20 | 160 161|) ("!=" |
|00002be0| 63 61 6c 63 46 75 6e 63 | 2d 6e 65 71 20 31 36 30 |calcFunc|-neq 160|
|00002bf0| 20 31 36 31 29 20 28 22 | 75 21 22 20 63 61 6c 63 | 161) ("|u!" calc|
|00002c00| 46 75 6e 63 2d 6c 6e 6f | 74 20 2d 31 20 31 32 31 |Func-lno|t -1 121|
|00002c10| 29 20 28 22 26 26 22 20 | 63 61 6c 63 46 75 6e 63 |) ("&&" |calcFunc|
|00002c20| 2d 6c 61 6e 64 20 31 31 | 30 20 31 31 31 29 20 28 |-land 11|0 111) (|
|00002c30| 22 7c 7c 22 20 63 61 6c | 63 46 75 6e 63 2d 6c 6f |"||" cal|cFunc-lo|
|00002c40| 72 20 31 30 30 20 31 30 | 31 29 20 28 22 3f 22 20 |r 100 10|1) ("?" |
|00002c50| 28 6d 61 74 68 2d 72 65 | 61 64 2d 69 66 29 20 39 |(math-re|ad-if) 9|
|00002c60| 31 20 39 30 29 20 28 22 | 21 21 21 22 20 63 61 6c |1 90) ("|!!!" cal|
|00002c70| 63 46 75 6e 63 2d 70 6e | 6f 74 20 2d 31 20 38 35 |cFunc-pn|ot -1 85|
|00002c80| 29 20 28 22 26 26 26 22 | 20 63 61 6c 63 46 75 6e |) ("&&&"| calcFun|
|00002c90| 63 2d 70 61 6e 64 20 38 | 30 20 38 31 29 20 28 22 |c-pand 8|0 81) ("|
|00002ca0| 7c 7c 7c 22 20 63 61 6c | 63 46 75 6e 63 2d 70 6f ||||" cal|cFunc-po|
|00002cb0| 72 20 37 35 20 37 36 29 | 20 28 22 3c 2d 22 20 63 |r 75 76)| ("<-" c|
|00002cc0| 61 6c 63 46 75 6e 63 2d | 61 73 73 69 67 6e 20 35 |alcFunc-|assign 5|
|00002cd0| 31 20 35 30 29 20 28 22 | 3a 3d 22 20 63 61 6c 63 |1 50) ("|:=" calc|
|00002ce0| 46 75 6e 63 2d 61 73 73 | 69 67 6e 20 35 31 20 35 |Func-ass|ign 51 5|
|00002cf0| 30 29 20 28 22 3a 3a 22 | 20 63 61 6c 63 46 75 6e |0) ("::"| calcFun|
|00002d00| 63 2d 63 6f 6e 64 69 74 | 69 6f 6e 20 34 35 20 34 |c-condit|ion 45 4|
|00002d10| 36 29 20 28 22 2d 3e 22 | 20 63 61 6c 63 46 75 6e |6) ("->"| calcFun|
|00002d20| 63 2d 65 76 61 6c 74 6f | 20 34 30 20 34 31 29 20 |c-evalto| 40 41) |
|00002d30| 28 22 2d 3e 22 20 63 61 | 6c 63 46 75 6e 63 2d 65 |("->" ca|lcFunc-e|
|00002d40| 76 61 6c 74 6f 20 34 30 | 20 2d 31 29 20 28 22 3d |valto 40| -1) ("=|
|00002d50| 3e 22 20 63 61 6c 63 46 | 75 6e 63 2d 65 76 61 6c |>" calcF|unc-eval|
|00002d60| 74 6f 20 34 30 20 34 31 | 29 20 28 22 3d 3e 22 20 |to 40 41|) ("=>" |
|00002d70| 63 61 6c 63 46 75 6e 63 | 2d 65 76 61 6c 74 6f 20 |calcFunc|-evalto |
|00002d80| 34 30 20 2d 31 29 29 29 | 29 0a 0a 28 70 75 74 20 |40 -1)))|)..(put |
|00002d90| 28 71 75 6f 74 65 20 65 | 71 6e 29 20 28 71 75 6f |(quote e|qn) (quo|
|00002da0| 74 65 20 6d 61 74 68 2d | 66 75 6e 63 74 69 6f 6e |te math-|function|
|00002db0| 2d 74 61 62 6c 65 29 20 | 28 71 75 6f 74 65 20 28 |-table) |(quote (|
|00002dc0| 28 61 72 63 5c 20 63 6f | 73 20 2e 20 63 61 6c 63 |(arc\ co|s . calc|
|00002dd0| 46 75 6e 63 2d 61 72 63 | 63 6f 73 29 20 28 61 72 |Func-arc|cos) (ar|
|00002de0| 63 5c 20 63 6f 73 68 20 | 2e 20 63 61 6c 63 46 75 |c\ cosh |. calcFu|
|00002df0| 6e 63 2d 61 72 63 63 6f | 73 68 29 20 28 61 72 63 |nc-arcco|sh) (arc|
|00002e00| 5c 20 73 69 6e 20 2e 20 | 63 61 6c 63 46 75 6e 63 |\ sin . |calcFunc|
|00002e10| 2d 61 72 63 73 69 6e 29 | 20 28 61 72 63 5c 20 73 |-arcsin)| (arc\ s|
|00002e20| 69 6e 68 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 61 |inh . ca|lcFunc-a|
|00002e30| 72 63 73 69 6e 68 29 20 | 28 61 72 63 5c 20 74 61 |rcsinh) |(arc\ ta|
|00002e40| 6e 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 61 72 63 |n . calc|Func-arc|
|00002e50| 74 61 6e 29 20 28 61 72 | 63 5c 20 74 61 6e 68 20 |tan) (ar|c\ tanh |
|00002e60| 2e 20 63 61 6c 63 46 75 | 6e 63 2d 61 72 63 74 61 |. calcFu|nc-arcta|
|00002e70| 6e 68 29 20 28 47 41 4d | 4d 41 20 2e 20 63 61 6c |nh) (GAM|MA . cal|
|00002e80| 63 46 75 6e 63 2d 67 61 | 6d 6d 61 29 20 28 70 68 |cFunc-ga|mma) (ph|
|00002e90| 69 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 74 6f 74 |i . calc|Func-tot|
|00002ea0| 69 65 6e 74 29 20 28 6d | 75 20 2e 20 63 61 6c 63 |ient) (m|u . calc|
|00002eb0| 46 75 6e 63 2d 6d 6f 65 | 62 69 75 73 29 20 28 6d |Func-moe|bius) (m|
|00002ec0| 61 74 72 69 78 20 6d 61 | 74 68 2d 70 61 72 73 65 |atrix ma|th-parse|
|00002ed0| 2d 65 71 6e 2d 6d 61 74 | 72 69 78 29 29 29 29 0a |-eqn-mat|rix)))).|
|00002ee0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 65 71 6e |.(put (q|uote eqn|
|00002ef0| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 76 61 |) (quote| math-va|
|00002f00| 72 69 61 62 6c 65 2d 74 | 61 62 6c 65 29 20 28 71 |riable-t|able) (q|
|00002f10| 75 6f 74 65 20 28 28 69 | 6e 66 20 2e 20 76 61 72 |uote ((i|nf . var|
|00002f20| 2d 75 69 6e 66 29 29 29 | 29 0a 0a 28 70 75 74 20 |-uinf)))|)..(put |
|00002f30| 28 71 75 6f 74 65 20 65 | 71 6e 29 20 28 71 75 6f |(quote e|qn) (quo|
|00002f40| 74 65 20 6d 61 74 68 2d | 63 6f 6d 70 6c 65 78 2d |te math-|complex-|
|00002f50| 66 6f 72 6d 61 74 29 20 | 28 71 75 6f 74 65 20 69 |format) |(quote i|
|00002f60| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00002f70| 70 61 72 73 65 2d 65 71 | 6e 2d 6d 61 74 72 69 78 |parse-eq|n-matrix|
|00002f80| 20 28 66 20 73 79 6d 29 | 20 28 62 79 74 65 2d 63 | (f sym)| (byte-c|
|00002f90| 6f 64 65 20 22 c1 18 c5 | 0a c6 5c 22 85 36 00 c7 |ode "...|..\".6..|
|00002fa0| 20 88 c8 0a 0b 5c 22 86 | 17 00 c9 ca cb 5c 22 88 | ....\".|.....\".|
|00002fb0| c7 20 88 c0 cc 20 42 08 | 42 89 10 88 c8 0a 0c 5c |. ... B.|B......\|
|00002fc0| 22 86 2f 00 c9 ca cd 5c | 22 88 c7 20 88 82 02 00 |"./....\|".. ....|
|00002fd0| 88 c8 0a 0c 5c 22 86 42 | 00 c9 ca cd 5c 22 88 c7 |....\".B|....\"..|
|00002fe0| 20 88 ce c0 cf 08 21 42 | 21 29 87 22 20 5b 76 65 | .....!B|!)." [ve|
|00002ff0| 63 20 6e 69 6c 20 65 78 | 70 2d 64 61 74 61 20 63 |c nil ex|p-data c|
|00003000| 61 6c 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6f 70 65 |alc-func|tion-ope|
|00003010| 6e 20 63 61 6c 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |n calc-f|unction-|
|00003020| 63 6c 6f 73 65 20 61 73 | 73 6f 63 20 28 28 22 63 |close as|soc (("c|
|00003030| 63 6f 6c 22 29 20 28 22 | 6c 63 6f 6c 22 29 20 28 |col") ("|lcol") (|
|00003040| 22 72 63 6f 6c 22 29 29 | 20 6d 61 74 68 2d 72 65 |"rcol"))| math-re|
|00003050| 61 64 2d 74 6f 6b 65 6e | 20 65 71 75 61 6c 20 74 |ad-token| equal t|
|00003060| 68 72 6f 77 20 73 79 6e | 74 61 78 20 22 45 78 70 |hrow syn|tax "Exp|
|00003070| 65 63 74 65 64 20 60 7b | 27 22 20 6d 61 74 68 2d |ected `{|'" math-|
|00003080| 72 65 61 64 2d 65 78 70 | 72 2d 6c 69 73 74 20 22 |read-exp|r-list "|
|00003090| 45 78 70 65 63 74 65 64 | 20 60 7d 27 22 20 6d 61 |Expected| `}'" ma|
|000030a0| 74 68 2d 74 72 61 6e 73 | 70 6f 73 65 20 6e 72 65 |th-trans|pose nre|
|000030b0| 76 65 72 73 65 5d 20 31 | 36 29 29 0a 0a 28 64 65 |verse] 1|6))..(de|
|000030c0| 66 75 6e 20 6d 61 74 68 | 2d 70 61 72 73 65 2d 65 |fun math|-parse-e|
|000030d0| 71 6e 2d 70 72 69 6d 65 | 20 28 78 20 73 79 6d 29 |qn-prime| (x sym)|
|000030e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c7 08 21 | (byte-c|ode "..!|
|000030f0| c8 3d 83 61 00 c9 09 0a | 5c 22 83 4a 00 ca 20 88 |.=.a....|\".J.. .|
|00003100| c9 09 0c 5c 22 86 1c 00 | 0d cb 3d 83 23 00 c6 82 |...\"...|..=.#...|
|00003110| 25 00 cc 20 1b c9 09 0c | 5c 22 86 30 00 0d cb 3d |%.. ....|\".0...=|
|00003120| 3f 85 38 00 cd ce cf 5c | 22 88 ca 20 88 d0 d1 d2 |?.8....\|".. ....|
|00003130| d3 08 38 5c 22 21 0b 42 | 29 82 5e 00 c8 d0 d4 d3 |..8\"!.B|).^.....|
|00003140| 08 38 21 d5 50 21 d0 d4 | d6 08 38 21 d5 50 21 45 |.8!.P!..|..8!.P!E|
|00003150| 82 64 00 d7 08 44 87 22 | 20 5b 78 20 65 78 70 2d |.d...D."| [x exp-|
|00003160| 64 61 74 61 20 63 61 6c | 63 2d 66 75 6e 63 74 69 |data cal|c-functi|
|00003170| 6f 6e 2d 6f 70 65 6e 20 | 61 72 67 73 20 63 61 6c |on-open |args cal|
|00003180| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 63 6c 6f 73 65 |c-functi|on-close|
|00003190| 20 65 78 70 2d 74 6f 6b | 65 6e 20 6e 69 6c 20 63 | exp-tok|en nil c|
|000031a0| 61 72 2d 73 61 66 65 20 | 76 61 72 20 65 71 75 61 |ar-safe |var equa|
|000031b0| 6c 20 6d 61 74 68 2d 72 | 65 61 64 2d 74 6f 6b 65 |l math-r|ead-toke|
|000031c0| 6e 20 65 6e 64 20 6d 61 | 74 68 2d 72 65 61 64 2d |n end ma|th-read-|
|000031d0| 65 78 70 72 2d 6c 69 73 | 74 20 74 68 72 6f 77 20 |expr-lis|t throw |
|000031e0| 73 79 6e 74 61 78 20 22 | 45 78 70 65 63 74 65 64 |syntax "|Expected|
|000031f0| 20 60 29 27 22 20 69 6e | 74 65 72 6e 20 66 6f 72 | `)'" in|tern for|
|00003200| 6d 61 74 20 22 63 61 6c | 63 46 75 6e 63 2d 25 73 |mat "cal|cFunc-%s|
|00003210| 27 22 20 31 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |'" 1 sym|bol-name|
|00003220| 20 22 27 22 20 32 20 63 | 61 6c 63 46 75 6e 63 2d | "'" 2 c|alcFunc-|
|00003230| 50 72 69 6d 65 5d 20 31 | 38 29 29 0a 0a 28 64 65 |Prime] 1|8))..(de|
|00003240| 66 75 6e 20 63 61 6c 63 | 2d 6d 61 74 68 65 6d 61 |fun calc|-mathema|
|00003250| 74 69 63 61 2d 6c 61 6e | 67 75 61 67 65 20 6e 69 |tica-lan|guage ni|
|00003260| 6c 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |l (inter|active) |
|00003270| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00003280| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00003290| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|000032a0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|000032b0| 87 22 20 5b 63 61 6c 63 | 2d 73 65 74 2d 6c 61 6e |." [calc|-set-lan|
|000032c0| 67 75 61 67 65 20 6d 61 | 74 68 20 6d 65 73 73 61 |guage ma|th messa|
|000032d0| 67 65 20 22 4d 61 74 68 | 65 6d 61 74 69 63 61 20 |ge "Math|ematica |
|000032e0| 6c 61 6e 67 75 61 67 65 | 20 6d 6f 64 65 2e 22 5d |language| mode."]|
|000032f0| 20 33 29 29 5d 20 32 29 | 29 0a 0a 28 70 75 74 20 | 3))] 2)|)..(put |
|00003300| 28 71 75 6f 74 65 20 6d | 61 74 68 29 20 28 71 75 |(quote m|ath) (qu|
|00003310| 6f 74 65 20 6d 61 74 68 | 2d 6f 70 65 72 2d 74 61 |ote math|-oper-ta|
|00003320| 62 6c 65 29 20 28 71 75 | 6f 74 65 20 28 28 22 5b |ble) (qu|ote (("[|
|00003330| 5b 22 20 28 6d 61 74 68 | 2d 72 65 61 64 2d 6d 61 |[" (math|-read-ma|
|00003340| 74 68 2d 73 75 62 73 63 | 72 29 20 32 35 30 20 2d |th-subsc|r) 250 -|
|00003350| 31 29 20 28 22 21 22 20 | 63 61 6c 63 46 75 6e 63 |1) ("!" |calcFunc|
|00003360| 2d 66 61 63 74 20 32 31 | 30 20 2d 31 29 20 28 22 |-fact 21|0 -1) ("|
|00003370| 21 21 22 20 63 61 6c 63 | 46 75 6e 63 2d 64 66 61 |!!" calc|Func-dfa|
|00003380| 63 74 20 32 31 30 20 2d | 31 29 20 28 22 5e 22 20 |ct 210 -|1) ("^" |
|00003390| 5e 20 32 30 31 20 32 30 | 30 29 20 28 22 75 2b 22 |^ 201 20|0) ("u+"|
|000033a0| 20 69 64 65 6e 74 20 2d | 31 20 31 39 37 29 20 28 | ident -|1 197) (|
|000033b0| 22 75 2d 22 20 6e 65 67 | 20 2d 31 20 31 39 37 29 |"u-" neg| -1 197)|
|000033c0| 20 28 22 2f 22 20 2f 20 | 31 39 35 20 31 39 36 29 | ("/" / |195 196)|
|000033d0| 20 28 22 2a 22 20 2a 20 | 31 39 30 20 31 39 31 29 | ("*" * |190 191)|
|000033e0| 20 28 22 32 78 22 20 2a | 20 31 39 30 20 31 39 31 | ("2x" *| 190 191|
|000033f0| 29 20 28 22 2b 22 20 2b | 20 31 38 30 20 31 38 31 |) ("+" +| 180 181|
|00003400| 29 20 28 22 2d 22 20 2d | 20 31 38 30 20 31 38 31 |) ("-" -| 180 181|
|00003410| 29 20 28 22 3c 22 20 63 | 61 6c 63 46 75 6e 63 2d |) ("<" c|alcFunc-|
|00003420| 6c 74 20 31 36 30 20 31 | 36 31 29 20 28 22 3e 22 |lt 160 1|61) (">"|
|00003430| 20 63 61 6c 63 46 75 6e | 63 2d 67 74 20 31 36 30 | calcFun|c-gt 160|
|00003440| 20 31 36 31 29 20 28 22 | 3c 3d 22 20 63 61 6c 63 | 161) ("|<=" calc|
|00003450| 46 75 6e 63 2d 6c 65 71 | 20 31 36 30 20 31 36 31 |Func-leq| 160 161|
|00003460| 29 20 28 22 3e 3d 22 20 | 63 61 6c 63 46 75 6e 63 |) (">=" |calcFunc|
|00003470| 2d 67 65 71 20 31 36 30 | 20 31 36 31 29 20 28 22 |-geq 160| 161) ("|
|00003480| 3d 3d 22 20 63 61 6c 63 | 46 75 6e 63 2d 65 71 20 |==" calc|Func-eq |
|00003490| 31 35 30 20 31 35 31 29 | 20 28 22 21 3d 22 20 63 |150 151)| ("!=" c|
|000034a0| 61 6c 63 46 75 6e 63 2d | 6e 65 71 20 31 35 30 20 |alcFunc-|neq 150 |
|000034b0| 31 35 31 29 20 28 22 75 | 21 22 20 63 61 6c 63 46 |151) ("u|!" calcF|
|000034c0| 75 6e 63 2d 6c 6e 6f 74 | 20 2d 31 20 31 32 31 29 |unc-lnot| -1 121)|
|000034d0| 20 28 22 26 26 22 20 63 | 61 6c 63 46 75 6e 63 2d | ("&&" c|alcFunc-|
|000034e0| 6c 61 6e 64 20 31 31 30 | 20 31 31 31 29 20 28 22 |land 110| 111) ("|
|000034f0| 7c 7c 22 20 63 61 6c 63 | 46 75 6e 63 2d 6c 6f 72 |||" calc|Func-lor|
|00003500| 20 31 30 30 20 31 30 31 | 29 20 28 22 21 21 21 22 | 100 101|) ("!!!"|
|00003510| 20 63 61 6c 63 46 75 6e | 63 2d 70 6e 6f 74 20 2d | calcFun|c-pnot -|
|00003520| 31 20 38 35 29 20 28 22 | 26 26 26 22 20 63 61 6c |1 85) ("|&&&" cal|
|00003530| 63 46 75 6e 63 2d 70 61 | 6e 64 20 38 30 20 38 31 |cFunc-pa|nd 80 81|
|00003540| 29 20 28 22 7c 7c 7c 22 | 20 63 61 6c 63 46 75 6e |) ("|||"| calcFun|
|00003550| 63 2d 70 6f 72 20 37 35 | 20 37 36 29 20 28 22 3a |c-por 75| 76) (":|
|00003560| 3d 22 20 63 61 6c 63 46 | 75 6e 63 2d 61 73 73 69 |=" calcF|unc-assi|
|00003570| 67 6e 20 35 31 20 35 30 | 29 20 28 22 3d 22 20 63 |gn 51 50|) ("=" c|
|00003580| 61 6c 63 46 75 6e 63 2d | 61 73 73 69 67 6e 20 35 |alcFunc-|assign 5|
|00003590| 31 20 35 30 29 20 28 22 | 2d 3e 22 20 63 61 6c 63 |1 50) ("|->" calc|
|000035a0| 46 75 6e 63 2d 61 73 73 | 69 67 6e 20 35 31 20 35 |Func-ass|ign 51 5|
|000035b0| 30 29 20 28 22 3a 3e 22 | 20 63 61 6c 63 46 75 6e |0) (":>"| calcFun|
|000035c0| 63 2d 61 73 73 69 67 6e | 20 35 31 20 35 30 29 20 |c-assign| 51 50) |
|000035d0| 28 22 3a 3a 22 20 63 61 | 6c 63 46 75 6e 63 2d 63 |("::" ca|lcFunc-c|
|000035e0| 6f 6e 64 69 74 69 6f 6e | 20 34 35 20 34 36 29 29 |ondition| 45 46))|
|000035f0| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00003600| 6d 61 74 68 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |math) (q|uote mat|
|00003610| 68 2d 66 75 6e 63 74 69 | 6f 6e 2d 74 61 62 6c 65 |h-functi|on-table|
|00003620| 29 20 28 71 75 6f 74 65 | 20 28 28 41 62 73 20 2e |) (quote| ((Abs .|
|00003630| 20 63 61 6c 63 46 75 6e | 63 2d 61 62 73 29 20 28 | calcFun|c-abs) (|
|00003640| 41 72 63 43 6f 73 20 2e | 20 63 61 6c 63 46 75 6e |ArcCos .| calcFun|
|00003650| 63 2d 61 72 63 63 6f 73 | 29 20 28 41 72 63 43 6f |c-arccos|) (ArcCo|
|00003660| 73 68 20 2e 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |sh . cal|cFunc-ar|
|00003670| 63 63 6f 73 68 29 20 28 | 41 72 63 53 69 6e 20 2e |ccosh) (|ArcSin .|
|00003680| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 73 69 6e | calcFun|c-arcsin|
|00003690| 29 20 28 41 72 63 53 69 | 6e 68 20 2e 20 63 61 6c |) (ArcSi|nh . cal|
|000036a0| 63 46 75 6e 63 2d 61 72 | 63 73 69 6e 68 29 20 28 |cFunc-ar|csinh) (|
|000036b0| 41 72 63 54 61 6e 20 2e | 20 63 61 6c 63 46 75 6e |ArcTan .| calcFun|
|000036c0| 63 2d 61 72 63 74 61 6e | 29 20 28 41 72 63 54 61 |c-arctan|) (ArcTa|
|000036d0| 6e 68 20 2e 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |nh . cal|cFunc-ar|
|000036e0| 63 74 61 6e 68 29 20 28 | 41 72 67 20 2e 20 63 61 |ctanh) (|Arg . ca|
|000036f0| 6c 63 46 75 6e 63 2d 61 | 72 67 29 20 28 42 69 6e |lcFunc-a|rg) (Bin|
|00003700| 6f 6d 69 61 6c 20 2e 20 | 63 61 6c 63 46 75 6e 63 |omial . |calcFunc|
|00003710| 2d 63 68 6f 6f 73 65 29 | 20 28 43 65 69 6c 69 6e |-choose)| (Ceilin|
|00003720| 67 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 63 65 69 |g . calc|Func-cei|
|00003730| 6c 29 20 28 43 6f 6e 6a | 75 67 61 74 65 20 2e 20 |l) (Conj|ugate . |
|00003740| 63 61 6c 63 46 75 6e 63 | 2d 63 6f 6e 6a 29 20 28 |calcFunc|-conj) (|
|00003750| 43 6f 73 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 63 |Cos . ca|lcFunc-c|
|00003760| 6f 73 29 20 28 43 6f 73 | 68 20 2e 20 63 61 6c 63 |os) (Cos|h . calc|
|00003770| 46 75 6e 63 2d 63 6f 73 | 68 29 20 28 44 20 2e 20 |Func-cos|h) (D . |
|00003780| 63 61 6c 63 46 75 6e 63 | 2d 64 65 72 69 76 29 20 |calcFunc|-deriv) |
|00003790| 28 44 74 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 74 |(Dt . ca|lcFunc-t|
|000037a0| 64 65 72 69 76 29 20 28 | 44 65 74 20 2e 20 63 61 |deriv) (|Det . ca|
|000037b0| 6c 63 46 75 6e 63 2d 64 | 65 74 29 20 28 45 78 70 |lcFunc-d|et) (Exp|
|000037c0| 20 2e 20 63 61 6c 63 46 | 75 6e 63 2d 65 78 70 29 | . calcF|unc-exp)|
|000037d0| 20 28 45 75 6c 65 72 50 | 68 69 20 2e 20 63 61 6c | (EulerP|hi . cal|
|000037e0| 63 46 75 6e 63 2d 74 6f | 74 69 65 6e 74 29 20 28 |cFunc-to|tient) (|
|000037f0| 46 6c 6f 6f 72 20 2e 20 | 63 61 6c 63 46 75 6e 63 |Floor . |calcFunc|
|00003800| 2d 66 6c 6f 6f 72 29 20 | 28 47 61 6d 6d 61 20 2e |-floor) |(Gamma .|
|00003810| 20 63 61 6c 63 46 75 6e | 63 2d 67 61 6d 6d 61 29 | calcFun|c-gamma)|
|00003820| 20 28 47 43 44 20 2e 20 | 63 61 6c 63 46 75 6e 63 | (GCD . |calcFunc|
|00003830| 2d 67 63 64 29 20 28 49 | 66 20 2e 20 63 61 6c 63 |-gcd) (I|f . calc|
|00003840| 46 75 6e 63 2d 69 66 29 | 20 28 49 6d 20 2e 20 63 |Func-if)| (Im . c|
|00003850| 61 6c 63 46 75 6e 63 2d | 69 6d 29 20 28 49 6e 76 |alcFunc-|im) (Inv|
|00003860| 65 72 73 65 20 2e 20 63 | 61 6c 63 46 75 6e 63 2d |erse . c|alcFunc-|
|00003870| 69 6e 76 29 20 28 49 6e | 74 65 67 72 61 74 65 20 |inv) (In|tegrate |
|00003880| 2e 20 63 61 6c 63 46 75 | 6e 63 2d 69 6e 74 65 67 |. calcFu|nc-integ|
|00003890| 29 20 28 4a 6f 69 6e 20 | 2e 20 63 61 6c 63 46 75 |) (Join |. calcFu|
|000038a0| 6e 63 2d 76 63 6f 6e 63 | 61 74 29 20 28 4c 43 4d |nc-vconc|at) (LCM|
|000038b0| 20 2e 20 63 61 6c 63 46 | 75 6e 63 2d 6c 63 6d 29 | . calcF|unc-lcm)|
|000038c0| 20 28 4c 6f 67 20 2e 20 | 63 61 6c 63 46 75 6e 63 | (Log . |calcFunc|
|000038d0| 2d 6c 6e 29 20 28 4d 61 | 78 20 2e 20 63 61 6c 63 |-ln) (Ma|x . calc|
|000038e0| 46 75 6e 63 2d 6d 61 78 | 29 20 28 4d 69 6e 20 2e |Func-max|) (Min .|
|000038f0| 20 63 61 6c 63 46 75 6e | 63 2d 6d 69 6e 29 20 28 | calcFun|c-min) (|
|00003900| 4d 6f 64 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 6d |Mod . ca|lcFunc-m|
|00003910| 6f 64 29 20 28 4d 6f 65 | 62 69 75 73 4d 75 20 2e |od) (Moe|biusMu .|
|00003920| 20 63 61 6c 63 46 75 6e | 63 2d 6d 6f 65 62 69 75 | calcFun|c-moebiu|
|00003930| 73 29 20 28 52 61 6e 64 | 6f 6d 20 2e 20 63 61 6c |s) (Rand|om . cal|
|00003940| 63 46 75 6e 63 2d 72 61 | 6e 64 6f 6d 29 20 28 52 |cFunc-ra|ndom) (R|
|00003950| 6f 75 6e 64 20 2e 20 63 | 61 6c 63 46 75 6e 63 2d |ound . c|alcFunc-|
|00003960| 72 6f 75 6e 64 29 20 28 | 52 65 20 2e 20 63 61 6c |round) (|Re . cal|
|00003970| 63 46 75 6e 63 2d 72 65 | 29 20 28 53 69 67 6e 20 |cFunc-re|) (Sign |
|00003980| 2e 20 63 61 6c 63 46 75 | 6e 63 2d 73 69 67 6e 29 |. calcFu|nc-sign)|
|00003990| 20 28 53 69 6e 20 2e 20 | 63 61 6c 63 46 75 6e 63 | (Sin . |calcFunc|
|000039a0| 2d 73 69 6e 29 20 28 53 | 69 6e 68 20 2e 20 63 61 |-sin) (S|inh . ca|
|000039b0| 6c 63 46 75 6e 63 2d 73 | 69 6e 68 29 20 28 53 71 |lcFunc-s|inh) (Sq|
|000039c0| 72 74 20 2e 20 63 61 6c | 63 46 75 6e 63 2d 73 71 |rt . cal|cFunc-sq|
|000039d0| 72 74 29 20 28 54 61 6e | 20 2e 20 63 61 6c 63 46 |rt) (Tan| . calcF|
|000039e0| 75 6e 63 2d 74 61 6e 29 | 20 28 54 61 6e 68 20 2e |unc-tan)| (Tanh .|
|000039f0| 20 63 61 6c 63 46 75 6e | 63 2d 74 61 6e 68 29 20 | calcFun|c-tanh) |
|00003a00| 28 54 72 61 6e 73 70 6f | 73 65 20 2e 20 63 61 6c |(Transpo|se . cal|
|00003a10| 63 46 75 6e 63 2d 74 72 | 6e 29 20 28 4c 65 6e 67 |cFunc-tr|n) (Leng|
|00003a20| 74 68 20 2e 20 63 61 6c | 63 46 75 6e 63 2d 76 6c |th . cal|cFunc-vl|
|00003a30| 65 6e 29 29 29 29 0a 0a | 28 70 75 74 20 28 71 75 |en))))..|(put (qu|
|00003a40| 6f 74 65 20 6d 61 74 68 | 29 20 28 71 75 6f 74 65 |ote math|) (quote|
|00003a50| 20 6d 61 74 68 2d 76 61 | 72 69 61 62 6c 65 2d 74 | math-va|riable-t|
|00003a60| 61 62 6c 65 29 20 28 71 | 75 6f 74 65 20 28 28 49 |able) (q|uote ((I|
|00003a70| 20 2e 20 76 61 72 2d 69 | 29 20 28 50 69 20 2e 20 | . var-i|) (Pi . |
|00003a80| 76 61 72 2d 70 69 29 20 | 28 45 20 2e 20 76 61 72 |var-pi) |(E . var|
|00003a90| 2d 65 29 20 28 47 6f 6c | 64 65 6e 52 61 74 69 6f |-e) (Gol|denRatio|
|00003aa0| 20 2e 20 76 61 72 2d 70 | 68 69 29 20 28 45 75 6c | . var-p|hi) (Eul|
|00003ab0| 65 72 47 61 6d 6d 61 20 | 2e 20 76 61 72 2d 67 61 |erGamma |. var-ga|
|00003ac0| 6d 6d 61 29 20 28 49 6e | 66 69 6e 69 74 79 20 2e |mma) (In|finity .|
|00003ad0| 20 76 61 72 2d 69 6e 66 | 29 20 28 43 6f 6d 70 6c | var-inf|) (Compl|
|00003ae0| 65 78 49 6e 66 69 6e 69 | 74 79 20 2e 20 76 61 72 |exInfini|ty . var|
|00003af0| 2d 75 69 6e 66 29 20 28 | 49 6e 64 65 74 65 72 6d |-uinf) (|Indeterm|
|00003b00| 69 6e 61 74 65 20 2e 20 | 76 61 72 2d 6e 61 6e 29 |inate . |var-nan)|
|00003b10| 29 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |)))..(pu|t (quote|
|00003b20| 20 6d 61 74 68 29 20 28 | 71 75 6f 74 65 20 6d 61 | math) (|quote ma|
|00003b30| 74 68 2d 76 65 63 74 6f | 72 2d 62 72 61 63 6b 65 |th-vecto|r-bracke|
|00003b40| 74 73 29 20 22 7b 7d 22 | 29 0a 0a 28 70 75 74 20 |ts) "{}"|)..(put |
|00003b50| 28 71 75 6f 74 65 20 6d | 61 74 68 29 20 28 71 75 |(quote m|ath) (qu|
|00003b60| 6f 74 65 20 6d 61 74 68 | 2d 63 6f 6d 70 6c 65 78 |ote math|-complex|
|00003b70| 2d 66 6f 72 6d 61 74 29 | 20 28 71 75 6f 74 65 20 |-format)| (quote |
|00003b80| 49 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |I))..(pu|t (quote|
|00003b90| 20 6d 61 74 68 29 20 28 | 71 75 6f 74 65 20 6d 61 | math) (|quote ma|
|00003ba0| 74 68 2d 66 75 6e 63 74 | 69 6f 6e 2d 6f 70 65 6e |th-funct|ion-open|
|00003bb0| 29 20 22 5b 22 29 0a 0a | 28 70 75 74 20 28 71 75 |) "[")..|(put (qu|
|00003bc0| 6f 74 65 20 6d 61 74 68 | 29 20 28 71 75 6f 74 65 |ote math|) (quote|
|00003bd0| 20 6d 61 74 68 2d 66 75 | 6e 63 74 69 6f 6e 2d 63 | math-fu|nction-c|
|00003be0| 6c 6f 73 65 29 20 22 5d | 22 29 0a 0a 28 70 75 74 |lose) "]|")..(put|
|00003bf0| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 29 20 28 71 | (quote |math) (q|
|00003c00| 75 6f 74 65 20 6d 61 74 | 68 2d 72 61 64 69 78 2d |uote mat|h-radix-|
|00003c10| 66 6f 72 6d 61 74 74 65 | 72 29 20 28 66 75 6e 63 |formatte|r) (func|
|00003c20| 74 69 6f 6e 20 28 6c 61 | 6d 62 64 61 20 28 72 20 |tion (la|mbda (r |
|00003c30| 73 29 20 28 66 6f 72 6d | 61 74 20 22 25 64 5e 5e |s) (form|at "%d^^|
|00003c40| 25 73 22 20 72 20 73 29 | 29 29 29 0a 0a 28 64 65 |%s" r s)|)))..(de|
|00003c50| 66 75 6e 20 6d 61 74 68 | 2d 72 65 61 64 2d 6d 61 |fun math|-read-ma|
|00003c60| 74 68 2d 73 75 62 73 63 | 72 20 28 78 20 6f 70 29 |th-subsc|r (x op)|
|00003c70| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c3 c4 21 | (byte-c|ode "..!|
|00003c80| 18 c5 09 c6 5c 22 85 12 | 00 c7 20 88 c5 09 c6 5c |....\"..|.. ....\|
|00003c90| 22 86 19 00 c8 c9 ca 5c | 22 88 c7 20 88 cb 0a 08 |"......\|".. ....|
|00003ca0| 45 29 87 22 20 5b 69 64 | 78 20 65 78 70 2d 64 61 |E)." [id|x exp-da|
|00003cb0| 74 61 20 78 20 6d 61 74 | 68 2d 72 65 61 64 2d 65 |ta x mat|h-read-e|
|00003cc0| 78 70 72 2d 6c 65 76 65 | 6c 20 30 20 65 71 75 61 |xpr-leve|l 0 equa|
|00003cd0| 6c 20 22 5d 22 20 6d 61 | 74 68 2d 72 65 61 64 2d |l "]" ma|th-read-|
|00003ce0| 74 6f 6b 65 6e 20 74 68 | 72 6f 77 20 73 79 6e 74 |token th|row synt|
|00003cf0| 61 78 20 22 45 78 70 65 | 63 74 65 64 20 27 5d 5d |ax "Expe|cted ']]|
|00003d00| 27 22 20 63 61 6c 63 46 | 75 6e 63 2d 73 75 62 73 |'" calcF|unc-subs|
|00003d10| 63 72 5d 20 39 29 29 0a | 0a 28 64 65 66 75 6e 20 |cr] 9)).|.(defun |
|00003d20| 63 61 6c 63 2d 6d 61 70 | 6c 65 2d 6c 61 6e 67 75 |calc-map|le-langu|
|00003d30| 61 67 65 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |age nil |(interac|
|00003d40| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00003d50| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00003d60| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00003d70| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|00003d80| c1 21 88 c2 c3 21 87 22 | 20 5b 63 61 6c 63 2d 73 |.!...!."| [calc-s|
|00003d90| 65 74 2d 6c 61 6e 67 75 | 61 67 65 20 6d 61 70 6c |et-langu|age mapl|
|00003da0| 65 20 6d 65 73 73 61 67 | 65 20 22 4d 61 70 6c 65 |e messag|e "Maple|
|00003db0| 20 6c 61 6e 67 75 61 67 | 65 20 6d 6f 64 65 2e 22 | languag|e mode."|
|00003dc0| 5d 20 33 29 29 5d 20 32 | 29 29 0a 0a 28 70 75 74 |] 3))] 2|))..(put|
|00003dd0| 20 28 71 75 6f 74 65 20 | 6d 61 70 6c 65 29 20 28 | (quote |maple) (|
|00003de0| 71 75 6f 74 65 20 6d 61 | 74 68 2d 6f 70 65 72 2d |quote ma|th-oper-|
|00003df0| 74 61 62 6c 65 29 20 28 | 71 75 6f 74 65 20 28 28 |table) (|quote ((|
|00003e00| 22 6d 61 74 72 69 78 22 | 20 69 64 65 6e 74 20 2d |"matrix"| ident -|
|00003e10| 31 20 33 30 30 29 20 28 | 22 4d 41 54 52 49 58 22 |1 300) (|"MATRIX"|
|00003e20| 20 69 64 65 6e 74 20 2d | 31 20 33 30 30 29 20 28 | ident -|1 300) (|
|00003e30| 22 21 22 20 63 61 6c 63 | 46 75 6e 63 2d 66 61 63 |"!" calc|Func-fac|
|00003e40| 74 20 32 31 30 20 2d 31 | 29 20 28 22 5e 22 20 5e |t 210 -1|) ("^" ^|
|00003e50| 20 32 30 31 20 32 30 30 | 29 20 28 22 2a 2a 22 20 | 201 200|) ("**" |
|00003e60| 5e 20 32 30 31 20 32 30 | 30 29 20 28 22 75 2b 22 |^ 201 20|0) ("u+"|
|00003e70| 20 69 64 65 6e 74 20 2d | 31 20 31 39 37 29 20 28 | ident -|1 197) (|
|00003e80| 22 75 2d 22 20 6e 65 67 | 20 2d 31 20 31 39 37 29 |"u-" neg| -1 197)|
|00003e90| 20 28 22 2f 22 20 2f 20 | 31 39 31 20 31 39 32 29 | ("/" / |191 192)|
|00003ea0| 20 28 22 2a 22 20 2a 20 | 31 39 31 20 31 39 32 29 | ("*" * |191 192)|
|00003eb0| 20 28 22 69 6e 74 65 72 | 73 65 63 74 22 20 63 61 | ("inter|sect" ca|
|00003ec0| 6c 63 46 75 6e 63 2d 76 | 69 6e 74 20 31 39 31 20 |lcFunc-v|int 191 |
|00003ed0| 31 39 32 29 20 28 22 2b | 22 20 2b 20 31 38 30 20 |192) ("+|" + 180 |
|00003ee0| 31 38 31 29 20 28 22 2d | 22 20 2d 20 31 38 30 20 |181) ("-|" - 180 |
|00003ef0| 31 38 31 29 20 28 22 75 | 6e 69 6f 6e 22 20 63 61 |181) ("u|nion" ca|
|00003f00| 6c 63 46 75 6e 63 2d 76 | 75 6e 69 6f 6e 20 31 38 |lcFunc-v|union 18|
|00003f10| 30 20 31 38 31 29 20 28 | 22 6d 69 6e 75 73 22 20 |0 181) (|"minus" |
|00003f20| 63 61 6c 63 46 75 6e 63 | 2d 76 64 69 66 66 20 31 |calcFunc|-vdiff 1|
|00003f30| 38 30 20 31 38 31 29 20 | 28 22 6d 6f 64 22 20 25 |80 181) |("mod" %|
|00003f40| 20 31 37 30 20 31 37 30 | 29 20 28 22 2e 2e 22 20 | 170 170|) (".." |
|00003f50| 28 6d 61 74 68 2d 72 65 | 61 64 2d 6d 61 70 6c 65 |(math-re|ad-maple|
|00003f60| 2d 64 6f 74 73 29 20 31 | 36 35 20 31 36 35 29 20 |-dots) 1|65 165) |
|00003f70| 28 22 5c 5c 64 6f 74 73 | 22 20 28 6d 61 74 68 2d |("\\dots|" (math-|
|00003f80| 72 65 61 64 2d 6d 61 70 | 6c 65 2d 64 6f 74 73 29 |read-map|le-dots)|
|00003f90| 20 31 36 35 20 31 36 35 | 29 20 28 22 3c 22 20 63 | 165 165|) ("<" c|
|00003fa0| 61 6c 63 46 75 6e 63 2d | 6c 74 20 31 36 30 20 31 |alcFunc-|lt 160 1|
|00003fb0| 36 30 29 20 28 22 3e 22 | 20 63 61 6c 63 46 75 6e |60) (">"| calcFun|
|00003fc0| 63 2d 67 74 20 31 36 30 | 20 31 36 30 29 20 28 22 |c-gt 160| 160) ("|
|00003fd0| 3c 3d 22 20 63 61 6c 63 | 46 75 6e 63 2d 6c 65 71 |<=" calc|Func-leq|
|00003fe0| 20 31 36 30 20 31 36 30 | 29 20 28 22 3e 3d 22 20 | 160 160|) (">=" |
|00003ff0| 63 61 6c 63 46 75 6e 63 | 2d 67 65 71 20 31 36 30 |calcFunc|-geq 160|
|00004000| 20 31 36 30 29 20 28 22 | 3d 22 20 63 61 6c 63 46 | 160) ("|=" calcF|
|00004010| 75 6e 63 2d 65 71 20 31 | 36 30 20 31 36 30 29 20 |unc-eq 1|60 160) |
|00004020| 28 22 3c 3e 22 20 63 61 | 6c 63 46 75 6e 63 2d 6e |("<>" ca|lcFunc-n|
|00004030| 65 71 20 31 36 30 20 31 | 36 30 29 20 28 22 6e 6f |eq 160 1|60) ("no|
|00004040| 74 22 20 63 61 6c 63 46 | 75 6e 63 2d 6c 6e 6f 74 |t" calcF|unc-lnot|
|00004050| 20 2d 31 20 31 32 31 29 | 20 28 22 61 6e 64 22 20 | -1 121)| ("and" |
|00004060| 63 61 6c 63 46 75 6e 63 | 2d 6c 61 6e 64 20 31 31 |calcFunc|-land 11|
|00004070| 30 20 31 31 31 29 20 28 | 22 6f 72 22 20 63 61 6c |0 111) (|"or" cal|
|00004080| 63 46 75 6e 63 2d 6c 6f | 72 20 31 30 30 20 31 30 |cFunc-lo|r 100 10|
|00004090| 31 29 20 28 22 21 21 21 | 22 20 63 61 6c 63 46 75 |1) ("!!!|" calcFu|
|000040a0| 6e 63 2d 70 6e 6f 74 20 | 2d 31 20 38 35 29 20 28 |nc-pnot |-1 85) (|
|000040b0| 22 26 26 26 22 20 63 61 | 6c 63 46 75 6e 63 2d 70 |"&&&" ca|lcFunc-p|
|000040c0| 61 6e 64 20 38 30 20 38 | 31 29 20 28 22 7c 7c 7c |and 80 8|1) ("||||
|000040d0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 70 6f 72 20 37 |" calcFu|nc-por 7|
|000040e0| 35 20 37 36 29 20 28 22 | 3a 3d 22 20 63 61 6c 63 |5 76) ("|:=" calc|
|000040f0| 46 75 6e 63 2d 61 73 73 | 69 67 6e 20 35 31 20 35 |Func-ass|ign 51 5|
|00004100| 30 29 20 28 22 3a 3a 22 | 20 63 61 6c 63 46 75 6e |0) ("::"| calcFun|
|00004110| 63 2d 63 6f 6e 64 69 74 | 69 6f 6e 20 34 35 20 34 |c-condit|ion 45 4|
|00004120| 36 29 29 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |6))))..(|put (quo|
|00004130| 74 65 20 6d 61 70 6c 65 | 29 20 28 71 75 6f 74 65 |te maple|) (quote|
|00004140| 20 6d 61 74 68 2d 66 75 | 6e 63 74 69 6f 6e 2d 74 | math-fu|nction-t|
|00004150| 61 62 6c 65 29 20 28 71 | 75 6f 74 65 20 28 28 62 |able) (q|uote ((b|
|00004160| 65 72 6e 6f 75 6c 6c 69 | 20 2e 20 63 61 6c 63 46 |ernoulli| . calcF|
|00004170| 75 6e 63 2d 62 65 72 6e | 29 20 28 62 69 6e 6f 6d |unc-bern|) (binom|
|00004180| 69 61 6c 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 63 |ial . ca|lcFunc-c|
|00004190| 68 6f 6f 73 65 29 20 28 | 64 69 66 66 20 2e 20 63 |hoose) (|diff . c|
|000041a0| 61 6c 63 46 75 6e 63 2d | 64 65 72 69 76 29 20 28 |alcFunc-|deriv) (|
|000041b0| 47 41 4d 4d 41 20 2e 20 | 63 61 6c 63 46 75 6e 63 |GAMMA . |calcFunc|
|000041c0| 2d 67 61 6d 6d 61 29 20 | 28 69 66 61 63 74 6f 72 |-gamma) |(ifactor|
|000041d0| 20 2e 20 63 61 6c 63 46 | 75 6e 63 2d 70 72 66 61 | . calcF|unc-prfa|
|000041e0| 63 29 20 28 69 67 63 64 | 20 2e 20 63 61 6c 63 46 |c) (igcd| . calcF|
|000041f0| 75 6e 63 2d 67 63 64 29 | 20 28 69 6c 63 6d 20 2e |unc-gcd)| (ilcm .|
|00004200| 20 63 61 6c 63 46 75 6e | 63 2d 6c 63 6d 29 20 28 | calcFun|c-lcm) (|
|00004210| 69 6e 74 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 69 |int . ca|lcFunc-i|
|00004220| 6e 74 65 67 29 20 28 6d | 6f 64 70 20 2e 20 25 29 |nteg) (m|odp . %)|
|00004230| 20 28 69 72 65 6d 20 2e | 20 25 29 20 28 69 71 75 | (irem .| %) (iqu|
|00004240| 6f 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 69 64 69 |o . calc|Func-idi|
|00004250| 76 29 20 28 69 73 70 72 | 69 6d 65 20 2e 20 63 61 |v) (ispr|ime . ca|
|00004260| 6c 63 46 75 6e 63 2d 70 | 72 69 6d 65 29 20 28 6c |lcFunc-p|rime) (l|
|00004270| 65 6e 67 74 68 20 2e 20 | 63 61 6c 63 46 75 6e 63 |ength . |calcFunc|
|00004280| 2d 76 6c 65 6e 29 20 28 | 6d 65 6d 62 65 72 20 2e |-vlen) (|member .|
|00004290| 20 63 61 6c 63 46 75 6e | 63 2d 69 6e 29 20 28 63 | calcFun|c-in) (c|
|000042a0| 72 6f 73 73 70 72 6f 64 | 20 2e 20 63 61 6c 63 46 |rossprod| . calcF|
|000042b0| 75 6e 63 2d 63 72 6f 73 | 73 29 20 28 69 6e 76 65 |unc-cros|s) (inve|
|000042c0| 72 73 65 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 69 |rse . ca|lcFunc-i|
|000042d0| 6e 76 29 20 28 74 72 61 | 63 65 20 2e 20 63 61 6c |nv) (tra|ce . cal|
|000042e0| 63 46 75 6e 63 2d 74 72 | 29 20 28 74 72 61 6e 73 |cFunc-tr|) (trans|
|000042f0| 70 6f 73 65 20 2e 20 63 | 61 6c 63 46 75 6e 63 2d |pose . c|alcFunc-|
|00004300| 74 72 6e 29 20 28 76 65 | 63 74 64 69 6d 20 2e 20 |trn) (ve|ctdim . |
|00004310| 63 61 6c 63 46 75 6e 63 | 2d 76 6c 65 6e 29 29 29 |calcFunc|-vlen)))|
|00004320| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 6d |)..(put |(quote m|
|00004330| 61 70 6c 65 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |aple) (q|uote mat|
|00004340| 68 2d 76 61 72 69 61 62 | 6c 65 2d 74 61 62 6c 65 |h-variab|le-table|
|00004350| 29 20 28 71 75 6f 74 65 | 20 28 28 49 20 2e 20 76 |) (quote| ((I . v|
|00004360| 61 72 2d 69 29 20 28 50 | 69 20 2e 20 76 61 72 2d |ar-i) (P|i . var-|
|00004370| 70 69 29 20 28 45 20 2e | 20 76 61 72 2d 65 29 20 |pi) (E .| var-e) |
|00004380| 28 69 6e 66 69 6e 69 74 | 79 20 2e 20 76 61 72 2d |(infinit|y . var-|
|00004390| 69 6e 66 29 20 28 69 6e | 66 69 6e 69 74 79 20 2e |inf) (in|finity .|
|000043a0| 20 76 61 72 2d 75 69 6e | 66 29 20 28 69 6e 66 69 | var-uin|f) (infi|
|000043b0| 6e 69 74 79 20 2e 20 76 | 61 72 2d 6e 61 6e 29 29 |nity . v|ar-nan))|
|000043c0| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|000043d0| 6d 61 70 6c 65 29 20 28 | 71 75 6f 74 65 20 6d 61 |maple) (|quote ma|
|000043e0| 74 68 2d 63 6f 6d 70 6c | 65 78 2d 66 6f 72 6d 61 |th-compl|ex-forma|
|000043f0| 74 29 20 28 71 75 6f 74 | 65 20 49 29 29 0a 0a 28 |t) (quot|e I))..(|
|00004400| 64 65 66 75 6e 20 6d 61 | 74 68 2d 72 65 61 64 2d |defun ma|th-read-|
|00004410| 6d 61 70 6c 65 2d 64 6f | 74 73 20 28 78 20 6f 70 |maple-do|ts (x op|
|00004420| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 c3 |) (byte-|code "..|
|00004430| 08 c4 c3 09 38 21 46 87 | 22 20 5b 78 20 6f 70 20 |....8!F.|" [x op |
|00004440| 69 6e 74 76 20 33 20 6d | 61 74 68 2d 72 65 61 64 |intv 3 m|ath-read|
|00004450| 2d 65 78 70 72 2d 6c 65 | 76 65 6c 5d 20 36 29 29 |-expr-le|vel] 6))|
|00004460| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 72 65 |..(defun| math-re|
|00004470| 61 64 2d 62 69 67 2d 72 | 65 63 20 28 68 31 20 76 |ad-big-r|ec (h1 v|
|00004480| 31 20 68 32 20 76 32 20 | 26 6f 70 74 69 6f 6e 61 |1 h2 v2 |&optiona|
|00004490| 6c 20 62 61 73 65 6c 69 | 6e 65 20 70 72 65 63 20 |l baseli|ne prec |
|000044a0| 73 68 6f 72 74 29 20 28 | 62 79 74 65 2d 63 6f 64 |short) (|byte-cod|
|000044b0| 65 20 22 08 86 07 00 df | 89 10 88 09 0a 57 85 15 |e ".....|.....W..|
|000044c0| 00 e0 0b 09 0c 09 54 24 | 85 20 00 09 54 89 11 88 |......T$|. ..T...|
|000044d0| 82 08 00 88 09 0a 57 85 | 2e 00 e0 0b 0a 53 0c 0a |......W.|.....S..|
|000044e0| 24 85 39 00 0a 53 89 12 | 88 82 21 00 88 0a 09 54 |$.9..S..|..!....T|
|000044f0| 58 83 89 00 0a 09 58 86 | 4f 00 0b 09 0d 38 89 12 |X.....X.|O....8..|
|00004500| 47 56 83 59 00 e1 0b 09 | 5c 22 82 86 00 09 16 06 |GV.Y....|\"......|
|00004510| 0c 16 07 09 0d 38 12 e2 | 0a 0b 0c 0a 47 5e 4f 21 |.....8..|....G^O!|
|00004520| 89 14 88 e3 0c 21 e4 3d | 83 85 00 e1 0b e5 0c 38 |.....!.=|.......8|
|00004530| 5c 5c 09 e6 0c 38 23 82 | 86 00 0c 82 10 0b 0b 0c |\\...8#.|........|
|00004540| 57 85 96 00 e0 0b 09 0b | 54 0a 24 85 a1 00 0b 54 |W.......|T.$....T|
|00004550| 89 13 88 82 89 00 88 0b | 0c 57 85 af 00 e0 0c 53 |........|.W.....S|
|00004560| 09 0c 0a 24 85 ba 00 0c | 53 89 14 88 82 a2 00 88 |...$....|S.......|
|00004570| c9 1e 08 df 1e 0a e7 09 | 0d 5c 22 1e 0b 0e 0b 1e |........|.\".....|
|00004580| 0c 09 1e 0d c9 1e 0e c9 | 1e 0f c9 1e 10 c9 1e 11 |........|........|
|00004590| c9 1e 12 0e 0d 0a 57 85 | 8b 01 0e 0c 40 16 10 0c |......W.|....@...|
|000045a0| 0e 10 47 5e 89 16 11 88 | 0b 0e 11 57 85 7b 01 e8 |..G^....|...W.{..|
|000045b0| 0e 10 0b 48 e9 5c 22 85 | 7b 01 0e 10 0b 48 ea 55 |...H.\".|{....H.U|
|000045c0| 85 33 01 0b 54 0e 11 57 | 85 1b 01 0e 10 0b 54 48 |.3..T..W|......TH|
|000045d0| ea 55 86 33 01 e8 eb 0b | 0e 0d 53 5c 22 e9 5c 22 |.U.3....|..S\".\"|
|000045e0| 86 33 01 e8 eb 0b 0e 0d | 54 5c 22 e9 5c 22 83 6b |.3......|T\".\".k|
|000045f0| 01 0b 89 16 12 88 0e 12 | 54 89 16 12 0e 11 57 85 |........|T.....W.|
|00004600| 4e 01 0e 10 0e 12 48 ea | 55 85 56 01 c9 88 82 3b |N.....H.|U.V....;|
|00004610| 01 88 0e 12 0e 0a 56 85 | 68 01 0e 0d 16 08 0e 12 |......V.|h.......|
|00004620| 89 16 0a 82 7b 01 0e 0e | 86 7b 01 0e 0d 16 0e 0e |....{...|.{......|
|00004630| 10 0b 48 89 16 0f 88 0e | 0d 54 16 0d 0e 0c 41 89 |..H.....|.T....A.|
|00004640| 16 0c 88 82 dd 00 88 0e | 0e 89 16 0d 3f 83 9c 01 |........|....?...|
|00004650| e1 0b 09 5c 22 82 34 09 | 0e 08 83 e4 01 0e 0a 16 |...\".4.|........|
|00004660| 12 0e 08 89 16 0d 88 ec | 0b 09 0e 12 0e 0d 24 ec |........|......$.|
|00004670| 0b 0e 0d 54 0e 12 0a 24 | 1e 14 1e 13 ed 0e 13 21 |...T...$|.......!|
|00004680| 85 cb 01 ed 0e 14 21 83 | d7 01 ee 0e 13 0e 14 5c |......!.|.......\|
|00004690| 22 82 dd 01 ef 0e 13 0e | 14 45 89 16 0c 2a 82 34 |".......|.E...*.4|
|000046a0| 09 0e 0f f0 55 83 7f 02 | eb 0b 54 0e 0d 5c 22 f1 |....U...|..T..\".|
|000046b0| 55 86 fd 01 e1 0b 54 0e | 0d f2 23 88 e0 0b 09 0b |U.....T.|..#.....|
|000046c0| 54 0e 0d c9 d5 26 06 88 | eb 0b 54 0e 0d 53 89 16 |T....&..|..T..S..|
|000046d0| 0d 5c 22 f1 55 85 1e 02 | c9 88 82 0a 02 88 eb 0b |.\".U...|........|
|000046e0| e6 5c 5c 89 16 12 0e 0d | 5c 22 f3 55 86 35 02 e1 |.\\.....|\".U.5..|
|000046f0| 0e 12 0e 0d f2 23 88 eb | 0e 12 54 89 16 12 0e 0d |.....#..|..T.....|
|00004700| 5c 22 f3 55 85 4a 02 c9 | 88 82 36 02 88 e0 0b 09 |\".U.J..|..6.....|
|00004710| 0b 54 0e 0d c9 d5 26 06 | 88 e0 0b 0e 0e 54 0e 12 |.T....&.|.....T..|
|00004720| 0a c9 d5 26 06 88 f4 ec | 0b e6 5c 5c 0e 0d 54 0e |...&....|..\\..T.|
|00004730| 12 0e 0e 54 0e 16 25 44 | 16 0c 0e 06 89 16 0d 82 |...T..%D|........|
|00004740| 34 09 0e 0f f5 55 85 8f | 02 eb 0b 54 0e 0d 53 5c |4....U..|...T..S\|
|00004750| 22 f3 55 83 ec 02 0b 54 | 89 16 12 88 e0 0b 09 0e |".U....T|........|
|00004760| 12 0e 0d 53 c9 d5 26 06 | 88 e0 0b 0e 0d 54 0e 12 |...S..&.|.....T..|
|00004770| 0a c9 d5 26 06 88 e0 0b | 09 0b 54 0e 0d c9 d5 26 |...&....|..T....&|
|00004780| 06 88 eb 0e 12 54 89 16 | 12 0e 0d 53 5c 22 f3 55 |.....T..|...S\".U|
|00004790| 85 d3 02 c9 88 82 be 02 | 88 f4 ec 0b 54 0e 0d 0e |........|....T...|
|000047a0| 12 0e 0d 54 d5 25 44 16 | 0c 0e 06 89 16 0d 82 34 |...T.%D.|.......4|
|000047b0| 09 0e 0f f6 55 85 08 03 | eb 0b 54 0e 0d 5c 22 e9 |....U...|..T..\".|
|000047c0| 55 85 08 03 f7 f8 0e 0d | 0d 38 0b 23 0b 55 83 65 |U.......|.8.#.U.e|
|000047d0| 03 f9 df 21 89 16 12 88 | e0 0b 09 0b 54 0e 0d c9 |...!....|....T...|
|000047e0| d5 26 06 88 e0 0b 0e 0d | 54 0b 54 0a c9 d5 26 06 |.&......|T.T...&.|
|000047f0| 88 e0 0e 12 53 09 0e 12 | 0e 0d c9 d5 26 06 88 e0 |....S...|....&...|
|00004800| 0e 12 53 0e 0d 54 0e 12 | 0a c9 d5 26 06 88 fa ec |..S..T..|...&....|
|00004810| 0b 54 09 0e 12 53 0e 0d | 24 ec 0b 54 0e 0d 54 0e |.T...S..|$..T..T.|
|00004820| 12 53 0a 24 45 89 16 0c | 82 34 09 0e 0f ea 55 83 |.S.$E...|.4....U.|
|00004830| 88 03 fb ec 0b 54 09 0c | 0a 0e 0d fc d5 26 07 44 |.....T..|.....&.D|
|00004840| 16 0c 0e 06 16 0d 0e 07 | 89 16 12 82 34 09 0e 0f |........|....4...|
|00004850| f6 55 83 e1 04 e0 0b 09 | 0b 54 0e 0d c9 d5 26 06 |.U......|.T....&.|
|00004860| 88 e0 0b 0e 0d 54 0b 54 | 0a c9 d5 26 06 88 fd 0b |.....T.T|...&....|
|00004870| 54 0e 0d fe d5 24 89 16 | 12 88 e0 0e 12 53 09 0e |T....$..|.....S..|
|00004880| 12 0e 0d c9 d5 26 06 88 | e0 0e 12 53 0e 0d 54 0e |.....&..|...S..T.|
|00004890| 12 0a c9 d5 26 06 88 eb | 0e 12 53 0e 0d 5c 22 c9 |....&...|..S..\".|
|000048a0| 1e 18 1e 17 0e 17 ff 55 | 85 ea 03 0e 12 54 89 16 |.......U|.....T..|
|000048b0| 12 88 0e 17 81 40 00 55 | 85 fe 03 e1 0e 12 53 0e |.....@.U|......S.|
|000048c0| 0d 81 41 00 23 88 0e 17 | 81 42 00 55 83 19 04 ec |..A.#...|.B.U....|
|000048d0| 0b 54 09 0e 12 53 0a 0e | 0d 25 89 16 0c 82 dd 04 |.T...S..|.%......|
|000048e0| fd 0e 12 0e 0d fe 23 16 | 18 0e 0c ec 0e 12 09 0e |......#.|........|
|000048f0| 18 53 0a 0e 0d 25 44 16 | 0c 0e 18 89 16 12 88 0e |.S...%D.|........|
|00004900| 17 ff 55 83 5f 04 81 43 | 00 eb 0e 12 53 0e 0d 5c |..U._..C|....S..\|
|00004910| 22 81 42 00 55 83 54 04 | df 82 55 04 e5 0e 0c 42 |".B.U.T.|..U....B|
|00004920| 42 89 16 0c 82 dd 04 eb | 0e 12 53 0e 0d 5c 22 81 |B.......|..S..\".|
|00004930| 40 00 55 83 7a 04 e1 0e | 12 53 0e 0d 81 41 00 23 |@.U.z...|.S...A.#|
|00004940| 82 dd 04 0e 17 81 44 00 | 55 83 ad 04 81 45 00 0e |......D.|U....E..|
|00004950| 0c 40 21 85 95 04 81 45 | 00 e5 0e 0c 38 21 86 a0 |.@!....E|....8!..|
|00004960| 04 e1 0b 0e 0d 81 46 00 | 23 88 81 47 00 0e 0c 42 |......F.|#..G...B|
|00004970| 89 16 0c 82 dd 04 0e 17 | 81 48 00 55 85 dd 04 81 |........|.H.U....|
|00004980| 45 00 0e 0c 40 21 85 c8 | 04 81 49 00 e5 0e 0c 38 |E...@!..|..I....8|
|00004990| 21 86 d3 04 e1 0b 0e 0d | 81 46 00 23 88 81 4a 00 |!.......|.F.#..J.|
|000049a0| 0e 0c 42 89 16 0c 2a 82 | 34 09 0e 0f 81 4b 00 55 |..B...*.|4....K.U|
|000049b0| 85 32 05 eb 0b 89 16 12 | 0e 0d 54 5c 22 81 4b 00 |.2......|..T\".K.|
|000049c0| 55 86 24 05 eb 0e 12 54 | 89 16 12 0e 0d 5c 22 81 |U.$....T|.....\".|
|000049d0| 4b 00 55 86 24 05 eb 0e | 12 0e 0d 5c 22 e9 55 85 |K.U.$...|...\".U.|
|000049e0| 24 05 eb 0e 12 54 89 16 | 12 0e 0d 5c 22 81 4b 00 |$....T..|...\".K.|
|000049f0| 55 85 32 05 eb 0e 12 0e | 0d 54 5c 22 81 4b 00 55 |U.2.....|.T\".K.U|
|00004a00| 83 30 06 e0 0b 09 0e 12 | 0e 0d c9 d5 26 06 88 0e |.0......|....&...|
|00004a10| 0d 0e 12 c9 1e 1b 1e 1a | 1e 19 c9 89 16 0c 88 fd |........|........|
|00004a20| 0e 1a 54 0e 0d 81 4c 00 | 23 89 16 12 88 0e 1b 83 |..T...L.|#.......|
|00004a30| 78 05 0e 12 0e 1b 55 86 | 75 05 e1 0e 1b 0e 0d 81 |x.....U.|u.......|
|00004a40| 4d 00 23 82 7d 05 0e 12 | 89 16 1b 88 ec 0e 1a 0e |M.#.}...|........|
|00004a50| 0d 0e 12 0e 0d 54 24 0e | 0c 42 89 16 0c 88 eb 0e |.....T$.|.B......|
|00004a60| 12 0e 0d 5c 22 81 4e 00 | 3e 85 a8 05 eb 0e 1a 0e |...\".N.|>.......|
|00004a70| 0d 54 5c 22 81 4b 00 55 | 85 b5 05 0e 0d 54 89 16 |.T\".K.U|.....T..|
|00004a80| 0d 88 82 51 05 88 0e 1a | 0b 55 86 ef 05 eb 0e 12 |...Q....|.U......|
|00004a90| 0e 0d 5c 22 e9 55 85 ce | 05 0e 12 54 89 16 12 88 |..\".U..|...T....|
|00004aa0| eb 0e 12 0e 0d 5c 22 81 | 40 00 55 85 e2 05 0e 12 |.....\".|@.U.....|
|00004ab0| 54 89 16 12 86 ef 05 e1 | 0e 12 53 0e 0d 81 4d 00 |T.......|..S...M.|
|00004ac0| 23 88 eb 0e 12 0e 19 5c | 22 81 44 00 55 85 03 06 |#......\|".D.U...|
|00004ad0| 0e 12 54 89 16 12 88 e0 | 0b 0e 0d 54 0e 12 53 0a |..T.....|...T..S.|
|00004ae0| c9 d5 26 06 88 0e 19 ef | 0e 0d 0e 19 5a e6 5c 22 |..&.....|....Z.\"|
|00004af0| 5c 5c 16 0d 81 4f 00 81 | 50 00 0e 0c 21 42 89 16 |\\...O..|P...!B..|
|00004b00| 0c 2b 82 34 09 0e 0f 81 | 4b 00 55 83 3f 07 e0 0b |.+.4....|K.U.?...|
|00004b10| 09 0b 54 0e 0d c9 d5 26 | 06 88 e0 0b 0e 0d 54 0b |..T....&|......T.|
|00004b20| 54 0a c9 d5 26 06 88 c9 | 16 0c 0b 54 89 16 12 88 |T...&...|...T....|
|00004b30| fd 0e 12 0e 0d 81 4c 00 | d5 24 89 16 08 88 e0 0e |......L.|.$......|
|00004b40| 12 53 09 0e 12 0e 0d c9 | d5 26 06 88 e0 0e 12 53 |.S......|.&.....S|
|00004b50| 0e 0d 54 0e 12 0a c9 d5 | 26 06 88 ec 0e 12 09 0e |..T.....|&.......|
|00004b60| 08 53 0a 0e 0d 25 0e 0c | 42 16 0c 0e 08 89 16 12 |.S...%..|B.......|
|00004b70| 88 eb 0e 12 53 0e 0d 5c | 22 81 44 00 55 85 af 06 |....S..\|".D.U...|
|00004b80| c9 88 82 5b 06 88 eb 0e | 12 53 0e 0d 5c 22 89 16 |...[....|.S..\"..|
|00004b90| 08 88 0e 08 81 51 00 3e | 86 ce 06 0e 08 ff 3d 85 |.....Q.>|......=.|
|00004ba0| ce 06 0e 0c 41 85 db 06 | e1 0e 12 53 0e 0d 81 4d |....A...|...S...M|
|00004bb0| 00 23 88 0e 08 ff 55 83 | 2f 07 0e 12 54 16 12 fd |.#....U.|/...T...|
|00004bc0| 0e 12 0e 0d 81 4c 00 23 | 16 08 81 52 00 0e 0c 81 |.....L.#|...R....|
|00004bd0| 53 00 0e 12 09 0e 08 53 | 0a 0e 0d 25 43 5c 22 16 |S......S|...%C\".|
|00004be0| 0c 0e 08 16 12 81 43 00 | eb 0e 12 53 0e 0d 5c 22 |......C.|...S..\"|
|00004bf0| 81 40 00 55 83 24 07 81 | 54 00 82 25 07 e6 0e 0c |.@.U.$..|T..%....|
|00004c00| 42 42 89 16 0c 82 3c 07 | 81 4f 00 81 50 00 0e 0c |BB....<.|.O..P...|
|00004c10| 21 42 89 16 0c 82 34 09 | 0e 0f 81 55 00 55 83 8b |!B....4.|...U.U..|
|00004c20| 07 0e 0d 0d 38 89 16 10 | 88 f7 81 56 00 0e 10 0b |....8...|...V....|
|00004c30| 23 88 f9 df 21 89 16 12 | 88 e0 0b 09 0e 12 0e 0d |#...!...|........|
|00004c40| c9 d5 26 06 88 e0 0b 0e | 0d 54 0e 12 0a c9 d5 26 |..&.....|.T.....&|
|00004c50| 06 88 ec 0b 0e 0d 0e 12 | 0e 0d 54 0e 0d 25 89 16 |........|..T..%..|
|00004c60| 0c 82 34 09 0e 0f 81 57 | 00 59 85 9a 07 0e 0f 81 |..4....W|.Y......|
|00004c70| 58 00 58 86 ac 07 0e 0f | 81 59 00 59 85 ac 07 0e |X.X.....|.Y.Y....|
|00004c80| 0f 81 5a 00 58 83 e9 08 | 0e 0d 0d 38 89 16 10 88 |..Z.X...|...8....|
|00004c90| f7 81 5b 00 0e 10 0b 23 | 88 f9 e5 21 16 12 f9 df |..[....#|...!....|
|00004ca0| 21 16 08 81 5c 5c 00 0e | 10 e5 5c 22 89 16 0c 88 |!...\\..|..\"....|
|00004cb0| e0 0b 09 0e 12 0e 0d c9 | d5 26 06 88 e0 0b 0e 0d |........|.&......|
|00004cc0| 54 0e 12 0a c9 d5 26 06 | 88 eb 0e 08 0e 0d 5c 22 |T.....&.|......\"|
|00004cd0| f6 55 83 b8 08 f7 81 5d | 00 0e 0c 5c 22 83 0c 08 |.U.....]|...\"...|
|00004ce0| 81 5e 00 0e 0c 21 82 16 | 08 81 5e 00 81 5f 00 0e |.^...!..|..^.._..|
|00004cf0| 0c 50 21 16 10 0e 08 54 | 16 12 c9 89 16 0c 88 e0 |.P!....T|........|
|00004d00| 0e 08 09 0e 12 0e 0d c9 | d5 26 06 88 e0 0e 08 0e |........|.&......|
|00004d10| 0d 54 0e 12 0a c9 d5 26 | 06 88 fd 0e 12 0e 0d fe |.T.....&|........|
|00004d20| d5 24 89 16 08 88 e0 0e | 12 53 09 0e 12 0e 0d c9 |.$......|.S......|
|00004d30| d5 26 06 88 e0 0e 12 53 | 0e 0d 54 0e 12 0a c9 d5 |.&.....S|..T.....|
|00004d40| 26 06 88 ec 0e 12 09 0e | 08 53 0a 0e 0d 25 0e 0c |&.......|.S...%..|
|00004d50| 42 16 0c 0e 08 89 16 12 | 88 eb 0e 12 53 0e 0d 5c |B.......|....S..\|
|00004d60| 22 81 44 00 55 85 8f 08 | c9 88 82 3d 08 88 eb 0e |".D.U...|...=....|
|00004d70| 12 53 0e 0d 5c 22 81 42 | 00 55 86 a8 08 e1 0e 12 |.S..\".B|.U......|
|00004d80| 53 0e 0d 81 41 00 23 88 | 0e 10 81 50 00 0e 0c 21 |S...A.#.|...P...!|
|00004d90| 42 89 16 0c 82 e6 08 81 | 60 00 81 5e 00 81 61 00 |B.......|`..^..a.|
|00004da0| 0e 0c 21 21 f7 81 5d 00 | 0e 0c 5c 22 83 d8 08 81 |..!!..].|..\"....|
|00004db0| 5e 00 0e 0c 21 82 e2 08 | 81 5e 00 81 62 00 0e 0c |^...!...|.^..b...|
|00004dc0| 50 21 45 89 16 0c 82 34 | 09 0e 0d 0d 38 89 16 10 |P!E....4|....8...|
|00004dd0| 88 f7 81 63 00 0e 10 0b | 23 0b 55 86 07 09 e1 0e |...c....|#.U.....|
|00004de0| 12 0e 0d 81 64 00 23 88 | f9 df 21 16 12 81 65 00 |....d.#.|..!...e.|
|00004df0| 81 5c 5c 00 0e 10 df 5c | 22 21 89 16 0c 88 e0 0b |.\\....\|"!......|
|00004e00| 09 0e 12 0e 0d c9 d5 26 | 06 88 e0 0b 0e 0d 54 0e |.......&|......T.|
|00004e10| 12 0a c9 d5 26 06 88 0e | 16 83 4d 09 0e 0d 0e 16 |....&...|..M.....|
|00004e20| 55 86 4a 09 e1 0b 0e 0d | 81 66 00 23 82 52 09 0e |U.J.....|.f.#.R..|
|00004e30| 0d 89 16 16 88 0e 16 0d | 38 16 10 0c 0e 10 47 5e |........|8.....G^|
|00004e40| 16 11 0e 12 89 16 08 88 | 0e 08 0e 11 57 85 75 09 |........|....W.u.|
|00004e50| 0e 10 0e 08 48 e9 55 85 | 82 09 0e 08 54 89 16 08 |....H.U.|....T...|
|00004e60| 88 82 66 09 88 0e 08 0e | 11 59 85 8f 09 0c 89 16 |..f.....|.Y......|
|00004e70| 08 88 e0 0e 12 0e 0d 0e | 08 0a 24 83 c9 09 e0 0e |........|..$.....|
|00004e80| 12 09 0e 08 0e 0d 24 83 | b0 09 0e 08 89 16 12 82 |......$.|........|
|00004e90| c6 09 81 67 00 0e 0c ec | 0e 12 09 0e 08 0e 0d 24 |...g....|.......$|
|00004ea0| 45 16 0c 0e 08 89 16 12 | 82 eb 09 e0 0e 12 09 0e |E.......|........|
|00004eb0| 08 0e 0d 24 85 eb 09 81 | 68 00 0e 0c ec 0e 12 0e |...$....|h.......|
|00004ec0| 0d 0e 08 0a 24 45 16 0c | 0e 08 89 16 12 88 0e 12 |....$E..|........|
|00004ed0| 0e 11 57 85 56 0a e0 0e | 12 09 0e 12 54 0e 0d 24 |..W.V...|....T..$|
|00004ee0| 85 28 0a e0 0e 12 0e 0d | 54 0e 12 54 0a 24 85 28 |.(......|T..T.$.(|
|00004ef0| 0a f7 81 69 00 0e 10 0e | 12 23 85 28 0a 81 6a 00 |...i....|.#.(..j.|
|00004f00| 81 5c 5c 00 0e 10 df 5c | 22 0e 1c 5c 22 89 16 08 |.\\....\|"..\"...|
|00004f10| 83 40 0a e6 0e 08 38 08 | 59 85 3d 0a f9 df 21 89 |.@....8.|Y.=...!.|
|00004f20| 16 12 82 56 0a f7 81 6b | 00 0e 10 0e 12 23 0e 12 |...V...k|.....#..|
|00004f30| 3d 3f 85 56 0a 81 6c 00 | 89 16 08 85 ee 0a 81 54 |=?.V..l.|.......T|
|00004f40| 00 0e 08 38 81 6d 00 3d | 83 73 0a e5 0e 08 38 0e |...8.m.=|.s....8.|
|00004f50| 0c 44 89 16 0c 82 ea 0a | 81 6e 00 0e 08 40 81 6f |.D......|.n...@.o|
|00004f60| 00 5c 22 83 cb 0a ec 0e | 12 09 0c 0a 0e 16 c9 d5 |.\".....|........|
|00004f70| 26 07 1e 1d eb 0e 07 0e | 16 5c 22 81 70 00 55 86 |&.......|.\".p.U.|
|00004f80| a4 0a e1 0e 07 0e 16 81 | 71 00 23 88 e5 0e 08 38 |........|q.#....8|
|00004f90| 0e 0c 0e 1d ec 0e 07 54 | 09 0c 0a 0e 16 81 54 00 |.......T|......T.|
|00004fa0| 0e 08 38 d5 26 07 46 16 | 0c 0e 07 89 16 12 29 82 |..8.&.F.|......).|
|00004fb0| ea 0a e5 0e 08 38 0e 0c | ec 0e 12 09 0c 0a 0e 16 |.....8..|........|
|00004fc0| 81 54 00 0e 08 38 d5 26 | 07 45 16 0c 0e 07 89 16 |.T...8.&|.E......|
|00004fd0| 12 88 82 ec 09 88 0e 16 | 16 06 0e 12 89 16 07 88 |........|........|
|00004fe0| 0e 1e 86 0b 0b 0e 07 0c | 55 86 0b 0b e1 0e 12 0e |........|U.......|
|00004ff0| 16 5c 22 88 0e 0c 2e 0a | 87 22 20 5b 70 72 65 63 |.\".....|." [prec|
|00005000| 20 76 31 20 76 32 20 68 | 31 20 68 32 20 6c 69 6e | v1 v2 h|1 h2 lin|
|00005010| 65 73 20 74 68 65 2d 62 | 61 73 65 6c 69 6e 65 20 |es the-b|aseline |
|00005020| 74 68 65 2d 68 32 20 77 | 69 64 65 73 74 20 6e 69 |the-h2 w|idest ni|
|00005030| 6c 20 77 69 64 65 73 74 | 2d 68 32 20 6c 69 6e 65 |l widest|-h2 line|
|00005040| 73 2d 76 31 20 70 20 76 | 20 6f 74 68 65 72 2d 76 |s-v1 p v| other-v|
|00005050| 20 6f 74 68 65 72 2d 63 | 68 61 72 20 6c 69 6e 65 | other-c|har line|
|00005060| 20 6c 65 6e 20 68 20 6e | 75 6d 20 64 65 6e 20 74 | len h n|um den t|
|00005070| 20 62 61 73 65 6c 69 6e | 65 20 73 65 70 20 68 6d | baselin|e sep hm|
|00005080| 69 64 20 76 74 6f 70 20 | 68 6c 65 66 74 20 68 72 |id vtop |hleft hr|
|00005090| 69 67 68 74 20 6d 61 74 | 68 2d 73 74 61 6e 64 61 |ight mat|h-standa|
|000050a0| 72 64 2d 6f 70 65 72 73 | 20 79 20 73 68 6f 72 74 |rd-opers| y short|
|000050b0| 20 30 20 6d 61 74 68 2d | 72 65 61 64 2d 62 69 67 | 0 math-|read-big|
|000050c0| 2d 65 6d 70 74 79 70 20 | 6d 61 74 68 2d 72 65 61 |-emptyp |math-rea|
|000050d0| 64 2d 62 69 67 2d 65 72 | 72 6f 72 20 6d 61 74 68 |d-big-er|ror math|
|000050e0| 2d 72 65 61 64 2d 65 78 | 70 72 20 63 61 72 2d 73 |-read-ex|pr car-s|
|000050f0| 61 66 65 20 65 72 72 6f | 72 20 31 20 32 20 6e 74 |afe erro|r 1 2 nt|
|00005100| 68 63 64 72 20 2f 3d 20 | 33 32 20 34 35 20 6d 61 |hcdr /= |32 45 ma|
|00005110| 74 68 2d 72 65 61 64 2d | 62 69 67 2d 63 68 61 72 |th-read-|big-char|
|00005120| 20 6d 61 74 68 2d 72 65 | 61 64 2d 62 69 67 2d 72 | math-re|ad-big-r|
|00005130| 65 63 20 6d 61 74 68 2d | 69 6e 74 65 67 65 72 70 |ec math-|integerp|
|00005140| 20 6d 61 74 68 2d 6d 61 | 6b 65 2d 66 72 61 63 20 | math-ma|ke-frac |
|00005150| 2f 20 39 32 20 31 32 34 | 20 22 4d 61 6c 66 6f 72 |/ 92 124| "Malfor|
|00005160| 6d 65 64 20 72 6f 6f 74 | 20 73 69 67 6e 22 20 39 |med root| sign" 9|
|00005170| 35 20 63 61 6c 63 46 75 | 6e 63 2d 73 71 72 74 20 |5 calcFu|nc-sqrt |
|00005180| 38 36 20 34 30 20 73 74 | 72 69 6e 67 2d 6d 61 74 |86 40 st|ring-mat|
|00005190| 63 68 20 22 28 20 2a 29 | 22 20 6d 61 74 63 68 2d |ch "( *)|" match-|
|000051a0| 65 6e 64 20 63 61 6c 63 | 46 75 6e 63 2d 63 68 6f |end calc|Func-cho|
|000051b0| 6f 73 65 20 6e 65 67 20 | 32 35 30 20 6d 61 74 68 |ose neg |250 math|
|000051c0| 2d 72 65 61 64 2d 62 69 | 67 2d 62 61 6c 61 6e 63 |-read-bi|g-balanc|
|000051d0| 65 20 22 28 22 20 34 36 | 20 39 33 20 22 45 78 70 |e "(" 46| 93 "Exp|
|000051e0| 65 63 74 65 64 20 60 29 | 27 22 20 34 31 20 69 6e |ected `)|'" 41 in|
|000051f0| 74 76 20 34 34 20 6d 61 | 74 68 2d 72 65 61 6c 70 |tv 44 ma|th-realp|
|00005200| 20 22 43 6f 6d 70 6c 65 | 78 20 63 6f 6d 70 6f 6e | "Comple|x compon|
|00005210| 65 6e 74 73 20 6d 75 73 | 74 20 62 65 20 72 65 61 |ents mus|t be rea|
|00005220| 6c 22 20 63 70 6c 78 20 | 35 39 20 6d 61 74 68 2d |l" cplx |59 math-|
|00005230| 61 6e 67 6c 65 70 20 70 | 6f 6c 61 72 20 39 31 20 |anglep p|olar 91 |
|00005240| 22 5b 22 20 22 45 78 70 | 65 63 74 65 64 20 60 5d |"[" "Exp|ected `]|
|00005250| 27 22 20 28 33 32 20 34 | 34 29 20 76 65 63 20 6e |'" (32 4|4) vec n|
|00005260| 72 65 76 65 72 73 65 20 | 28 35 39 20 34 31 29 20 |reverse |(59 41) |
|00005270| 6e 63 6f 6e 63 20 6d 61 | 74 68 2d 72 65 61 64 2d |nconc ma|th-read-|
|00005280| 62 69 67 2d 62 69 67 2d | 72 65 63 20 33 20 36 30 |big-big-|rec 3 60|
|00005290| 20 22 3e 22 20 39 37 20 | 31 32 32 20 36 35 20 39 | ">" 97 |122 65 9|
|000052a0| 30 20 22 5c 5c 28 5b 61 | 2d 7a 41 2d 5a 27 5f 5d |0 "\\([a|-zA-Z'_]|
|000052b0| 2b 5c 5c 29 20 2a 22 20 | 6d 61 74 68 2d 6d 61 74 |+\\) *" |math-mat|
|000052c0| 63 68 2d 73 75 62 73 74 | 72 69 6e 67 20 22 2d 22 |ch-subst|ring "-"|
|000052d0| 20 69 6e 74 65 72 6e 20 | 22 63 61 6c 63 46 75 6e | intern |"calcFun|
|000052e0| 63 2d 22 20 76 61 72 20 | 6d 61 74 68 2d 72 65 6d |c-" var |math-rem|
|000052f0| 6f 76 65 2d 64 61 73 68 | 65 73 20 22 76 61 72 2d |ove-dash|es "var-|
|00005300| 22 20 22 5f 3f 5c 5c 28 | 5b 30 2d 39 5d 2b 2e 3f |" "_?\\(|[0-9]+.?|
|00005310| 30 2a 40 20 2a 5c 5c 29 | 3f 5c 5c 28 5b 30 2d 39 |0*@ *\\)|?\\([0-9|
|00005320| 5d 2b 2e 3f 30 2a 27 20 | 2a 5c 5c 29 3f 5c 5c 28 |]+.?0*' |*\\)?\\(|
|00005330| 5b 30 2d 39 5d 2b 5c 5c | 28 23 5c 5c 7c 5c 5c 5e |[0-9]+\\|(#\\|\\^|
|00005340| 5c 5c 5e 5c 5c 29 5b 30 | 2d 39 61 2d 7a 41 2d 5a |\\^\\)[0|-9a-zA-Z|
|00005350| 3a 5d 2b 5c 5c 7c 5b 30 | 2d 39 5d 2b 3a 5b 30 2d |:]+\\|[0|-9]+:[0-|
|00005360| 39 3a 5d 2b 5c 5c 7c 5b | 30 2d 39 2e 5d 2b 5c 5c |9:]+\\|[|0-9.]+\\|
|00005370| 28 5b 65 45 5d 5b 2d 2b | 5f 5d 3f 5b 30 2d 39 5d |([eE][-+|_]?[0-9]|
|00005380| 2b 5c 5c 29 3f 5c 22 3f | 5c 5c 29 3f 22 20 22 45 |+\\)?\"?|\\)?" "E|
|00005390| 78 70 65 63 74 65 64 20 | 61 20 6e 75 6d 62 65 72 |xpected |a number|
|000053a0| 22 20 6d 61 74 68 2d 72 | 65 61 64 2d 6e 75 6d 62 |" math-r|ead-numb|
|000053b0| 65 72 20 22 49 6e 63 6f | 6e 73 69 73 74 65 6e 74 |er "Inco|nsistent|
|000053c0| 20 62 61 73 65 6c 69 6e | 65 20 69 6e 20 66 6f 72 | baselin|e in for|
|000053d0| 6d 75 6c 61 22 20 5e 20 | 63 61 6c 63 46 75 6e 63 |mula" ^ |calcFunc|
|000053e0| 2d 73 75 62 73 63 72 20 | 22 3c 3d 5c 5c 7c 3e 3d |-subscr |"<=\\|>=|
|000053f0| 5c 5c 7c 5c 5c 2b 2f 2d | 5c 5c 7c 21 3d 5c 5c 7c |\\|\\+/-|\\|!=\\||
|00005400| 26 26 5c 5c 7c 7c 7c 5c | 5c 7c 3a 3d 5c 5c 7c 3d |&&\\|||\|\|:=\\|=|
|00005410| 3e 5c 5c 7c 2e 22 20 61 | 73 73 6f 63 20 22 2c 5c |>\\|." a|ssoc ",\|
|00005420| 5c 7c 3b 5c 5c 7c 5c 5c | 2e 5c 5c 2e 5c 5c 7c 29 |\|;\\|\\|.\\.\\|)|
|00005430| 5c 5c 7c 5c 5c 5d 5c 5c | 7c 3a 22 20 28 22 32 78 |\\|\\]\\||:" ("2x|
|00005440| 22 20 2a 20 31 39 36 20 | 31 39 35 29 20 2d 31 20 |" * 196 |195) -1 |
|00005450| 65 71 75 61 6c 20 22 3f | 22 20 35 38 20 22 45 78 |equal "?|" 58 "Ex|
|00005460| 70 65 63 74 65 64 20 60 | 3a 27 22 5d 20 31 36 33 |pected `|:'"] 163|
|00005470| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00005480| 72 65 61 64 2d 62 69 67 | 2d 63 68 61 72 20 28 68 |read-big|-char (h|
|00005490| 20 76 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | v) (byt|e-code "|
|000054a0| 08 09 59 85 30 00 08 0a | 57 85 30 00 0b 0c 59 85 |..Y.0...|W.0...Y.|
|000054b0| 30 00 0b 0d 57 85 30 00 | 0b 0e 07 38 1e 06 0e 06 |0...W.0.|...8....|
|000054c0| 85 2f 00 08 0e 06 47 57 | 85 2f 00 0e 06 08 48 29 |./....GW|./....H)|
|000054d0| 86 34 00 c8 87 22 20 5b | 68 20 68 31 20 68 32 20 |.4..." [|h h1 h2 |
|000054e0| 76 20 76 31 20 76 32 20 | 6c 69 6e 65 20 6c 69 6e |v v1 v2 |line lin|
|000054f0| 65 73 20 33 32 5d 20 32 | 29 29 0a 0a 28 64 65 66 |es 32] 2|))..(def|
|00005500| 75 6e 20 6d 61 74 68 2d | 72 65 61 64 2d 62 69 67 |un math-|read-big|
|00005510| 2d 65 6d 70 74 79 70 20 | 28 65 68 31 20 65 76 31 |-emptyp |(eh1 ev1|
|00005520| 20 65 68 32 20 65 76 32 | 20 26 6f 70 74 69 6f 6e | eh2 ev2| &option|
|00005530| 61 6c 20 77 68 61 74 20 | 65 72 72 6f 72 29 20 28 |al what |error) (|
|00005540| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 09 57 85 09 |byte-cod|e "..W..|
|00005550| 00 09 89 10 88 0a 0b 57 | 85 13 00 0b 89 12 88 0c |.......W|........|
|00005560| 0d 56 85 1d 00 0d 89 14 | 88 0e 06 0e 07 56 85 2b |.V......|.....V.+|
|00005570| 00 0e 07 89 16 06 88 0e | 08 86 35 00 cd 89 16 08 |........|..5.....|
|00005580| 88 ce 08 0e 0a 5c 22 cf | 1e 0b 1e 09 08 0c 57 85 |.....\".|......W.|
|00005590| 90 00 0e 06 0e 09 40 47 | 5e 89 16 0b 88 0e 0b 53 |......@G|^......S|
|000055a0| 89 16 0b 0a 59 85 65 00 | 0e 09 40 0e 0b 48 0e 08 |....Y.e.|..@..H..|
|000055b0| 55 85 6d 00 cf 88 82 51 | 00 88 0e 0c 85 8b 00 0e |U.m....Q|........|
|000055c0| 0b 0a 59 85 8b 00 d0 0e | 0b 08 0e 0c 3b 83 89 00 |..Y.....|....;...|
|000055d0| 0e 0c 82 8a 00 d1 23 88 | 0e 0b 0a 57 85 a0 00 08 |......#.|...W....|
|000055e0| 54 10 0e 09 41 89 16 09 | 88 82 40 00 88 08 0c 59 |T...A...|..@....Y|
|000055f0| 2a 87 22 20 5b 65 76 31 | 20 76 31 20 65 68 31 20 |*." [ev1| v1 eh1 |
|00005600| 68 31 20 65 76 32 20 76 | 32 20 65 68 32 20 68 32 |h1 ev2 v|2 eh2 h2|
|00005610| 20 77 68 61 74 20 70 20 | 6c 69 6e 65 73 20 68 20 | what p |lines h |
|00005620| 65 72 72 6f 72 20 33 32 | 20 6e 74 68 63 64 72 20 |error 32| nthcdr |
|00005630| 6e 69 6c 20 6d 61 74 68 | 2d 72 65 61 64 2d 62 69 |nil math|-read-bi|
|00005640| 67 2d 65 72 72 6f 72 20 | 22 57 68 69 74 65 73 70 |g-error |"Whitesp|
|00005650| 61 63 65 20 65 78 70 65 | 63 74 65 64 22 5d 20 35 |ace expe|cted"] 5|
|00005660| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00005670| 72 65 61 64 2d 62 69 67 | 2d 65 72 72 6f 72 20 28 |read-big|-error (|
|00005680| 68 20 76 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 73 |h v &opt|ional ms|
|00005690| 67 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c8 |g) (byte|-code ".|
|000056a0| 0a 19 18 0b c8 56 85 1d | 00 c9 08 ca 09 40 47 23 |.....V..|.....@G#|
|000056b0| 10 09 41 11 0b 53 89 13 | 88 82 04 00 88 08 0c 09 |..A..S..|........|
|000056c0| 40 47 5e 5c 5c 14 cb 0c | 0e 06 86 2e 00 cc 45 89 |@G^\\...|......E.|
|000056d0| 15 88 cd ce c7 5c 22 2a | 87 22 20 5b 70 6f 73 20 |.....\"*|." [pos |
|000056e0| 70 20 6c 69 6e 65 73 20 | 76 20 68 20 65 72 72 2d |p lines |v h err-|
|000056f0| 6d 73 67 20 6d 73 67 20 | 6e 69 6c 20 30 20 2b 20 |msg msg |nil 0 + |
|00005700| 31 20 65 72 72 6f 72 20 | 22 53 79 6e 74 61 78 20 |1 error |"Syntax |
|00005710| 65 72 72 6f 72 22 20 74 | 68 72 6f 77 20 73 79 6e |error" t|hrow syn|
|00005720| 74 61 78 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |tax] 5))|..(defun|
|00005730| 20 6d 61 74 68 2d 72 65 | 61 64 2d 62 69 67 2d 62 | math-re|ad-big-b|
|00005740| 61 6c 61 6e 63 65 20 28 | 68 20 76 20 77 68 61 74 |alance (|h v what|
|00005750| 20 26 6f 70 74 69 6f 6e | 61 6c 20 63 6f 6d 6d 61 | &option|al comma|
|00005760| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |s) (byte|-code ".|
|00005770| 0a 38 18 0c 08 47 5e 1b | ca 1d 0d cb 56 85 87 00 |.8...G^.|....V...|
|00005780| 0e 06 0b 59 83 30 00 0e | 07 83 2a 00 cc 0e 08 09 |...Y.0..|..*.....|
|00005790| cd ce 0e 07 5c 22 23 82 | 2d 00 cb 89 15 82 83 00 |....\"#.|-.......|
|000057a0| 08 0e 06 48 cf 3e 83 40 | 00 0d 54 89 15 82 7c 00 |...H.>.@|..T...|.|
|000057b0| 0e 09 85 48 00 0d ca 55 | 83 6f 00 08 0e 06 48 d0 |...H...U|.o....H.|
|000057c0| 3e 86 6c 00 08 0e 06 48 | d1 3d 85 6c 00 0e 06 54 |>.l....H|.=.l...T|
|000057d0| 0b 57 85 6c 00 08 0e 06 | 54 48 d1 3d 82 75 00 08 |.W.l....|TH.=.u..|
|000057e0| 0e 06 48 d2 3e 85 7c 00 | 0d 53 89 15 88 0e 06 54 |..H.>.|.|.S.....T|
|000057f0| 89 16 06 88 82 0b 00 88 | 0e 06 2b 87 22 20 5b 6c |........|..+." [l|
|00005800| 69 6e 65 20 76 20 6c 69 | 6e 65 73 20 6c 65 6e 20 |ine v li|nes len |
|00005810| 68 32 20 63 6f 75 6e 74 | 20 68 20 77 68 61 74 20 |h2 count| h what |
|00005820| 68 31 20 63 6f 6d 6d 61 | 73 20 31 20 30 20 6d 61 |h1 comma|s 1 0 ma|
|00005830| 74 68 2d 72 65 61 64 2d | 62 69 67 2d 65 72 72 6f |th-read-|big-erro|
|00005840| 72 20 66 6f 72 6d 61 74 | 20 22 55 6e 6d 61 74 63 |r format| "Unmatc|
|00005850| 68 65 64 20 60 25 73 27 | 22 20 28 34 30 20 39 31 |hed `%s'|" (40 91|
|00005860| 29 20 28 34 31 20 39 33 | 20 34 34 20 35 39 29 20 |) (41 93| 44 59) |
|00005870| 34 36 20 28 34 31 20 39 | 33 29 5d 20 37 29 29 0a |46 (41 9|3)] 7)).|
+--------+-------------------------+-------------------------+--------+--------+
