home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 31.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 61 6c 67 2d 33 | 20 6e 69 6c 20 28 62 79 |lc-alg-3| nil (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c0 87 22 20 5b 6e 69 |te-code |".." [ni|
|00000050| 6c 5d 20 31 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |l] 1))..|(defun c|
|00000060| 61 6c 63 2d 66 69 6e 64 | 2d 72 6f 6f 74 20 28 76 |alc-find|-root (v|
|00000070| 61 72 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |ar) (int|eractive|
|00000080| 20 22 73 56 61 72 69 61 | 62 6c 65 28 73 29 20 74 | "sVaria|ble(s) t|
|00000090| 6f 20 73 6f 6c 76 65 20 | 66 6f 72 3a 20 22 29 20 |o solve |for: ") |
|000000a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|000000b0| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|000000c0| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|000000d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 20 83 09 00 |byte-cod|e ". ...|
|000000e0| c3 82 0a 00 c4 18 c5 09 | c6 5c 22 86 16 00 c5 09 |........|.\".....|
|000000f0| c7 5c 22 83 2b 00 c8 c9 | ca 08 cb cc 21 cb cd 21 |.\".+...|....!..!|
|00000100| cb c9 21 46 23 82 64 00 | ce cf 09 5c 22 85 37 00 |..!F#.d.|...\".7.|
|00000110| ce d0 09 5c 22 3f 83 43 | 00 d1 d2 09 d3 51 21 82 |...\"?.C|.....Q!.|
|00000120| 46 00 d1 09 21 19 d4 09 | 21 d5 3d 85 55 00 d5 d6 |F...!...|!.=.U...|
|00000130| cd 09 38 5c 22 88 c8 cd | ca 08 cb c9 21 09 cb cd |..8\"...|....!...|
|00000140| 21 46 23 29 29 87 22 20 | 5b 66 75 6e 63 20 76 61 |!F#))." |[func va|
|00000150| 72 20 63 61 6c 63 2d 69 | 73 2d 68 79 70 65 72 62 |r calc-i|s-hyperb|
|00000160| 6f 6c 69 63 20 63 61 6c | 63 46 75 6e 63 2d 77 72 |olic cal|cFunc-wr|
|00000170| 6f 6f 74 20 63 61 6c 63 | 46 75 6e 63 2d 72 6f 6f |oot calc|Func-roo|
|00000180| 74 20 65 71 75 61 6c 20 | 22 22 20 22 24 22 20 63 |t equal |"" "$" c|
|00000190| 61 6c 63 2d 65 6e 74 65 | 72 2d 72 65 73 75 6c 74 |alc-ente|r-result|
|000001a0| 20 32 20 22 72 6f 6f 74 | 22 20 63 61 6c 63 2d 74 | 2 "root|" calc-t|
|000001b0| 6f 70 2d 6e 20 33 20 31 | 20 73 74 72 69 6e 67 2d |op-n 3 1| string-|
|000001c0| 6d 61 74 63 68 20 22 2c | 5c 5c 7c 5b 5e 20 5d 20 |match ",|\\|[^ ] |
|000001d0| 2b 5b 5e 20 5d 22 20 22 | 5c 5c 5b 22 20 6d 61 74 |+[^ ]" "|\\[" mat|
|000001e0| 68 2d 72 65 61 64 2d 65 | 78 70 72 20 22 5b 22 20 |h-read-e|xpr "[" |
|000001f0| 22 5d 22 20 63 61 72 2d | 73 61 66 65 20 65 72 72 |"]" car-|safe err|
|00000200| 6f 72 20 22 42 61 64 20 | 66 6f 72 6d 61 74 20 69 |or "Bad |format i|
|00000210| 6e 20 65 78 70 72 65 73 | 73 69 6f 6e 3a 20 25 73 |n expres|sion: %s|
|00000220| 22 5d 20 32 32 29 29 20 | 31 31 37 5d 20 33 29 29 |"] 22)) |117] 3))|
|00000230| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 66 69 |..(defun| calc-fi|
|00000240| 6e 64 2d 6d 69 6e 69 6d | 75 6d 20 28 76 61 72 29 |nd-minim|um (var)|
|00000250| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 73 | (intera|ctive "s|
|00000260| 56 61 72 69 61 62 6c 65 | 28 73 29 20 74 6f 20 6d |Variable|(s) to m|
|00000270| 69 6e 69 6d 69 7a 65 20 | 6f 76 65 72 3a 20 22 29 |inimize |over: ")|
|00000280| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00000290| c2 c3 5c 22 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |..\"." [|nil calc|
|000002a0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|000002b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 20 83 12 |(byte-co|de ". ..|
|000002c0| 00 c4 20 83 0e 00 c5 82 | 0f 00 c6 82 1c 00 c4 20 |.. .....|....... |
|000002d0| 83 1b 00 c7 82 1c 00 c8 | c3 20 83 25 00 c9 82 26 |........|. .%...&|
|000002e0| 00 ca 19 18 cb 0a cc 5c | 22 86 33 00 cb 0a cd 5c |.......\|".3....\|
|000002f0| 22 83 48 00 ce cf 09 08 | d0 d1 21 d0 d2 21 d0 cf |".H.....|..!..!..|
|00000300| 21 46 23 82 81 00 d3 d4 | 0a 5c 22 85 54 00 d3 d5 |!F#.....|.\".T...|
|00000310| 0a 5c 22 3f 83 60 00 d6 | d7 0a d8 51 21 82 63 00 |.\"?.`..|...Q!.c.|
|00000320| d6 0a 21 1a d9 0a 21 da | 3d 85 72 00 da db d2 0a |..!...!.|=.r.....|
|00000330| 38 5c 22 88 ce d2 09 08 | d0 cf 21 0a d0 d2 21 46 |8\".....|..!...!F|
|00000340| 23 29 2a 87 22 20 5b 66 | 75 6e 63 20 74 61 67 20 |#)*." [f|unc tag |
|00000350| 76 61 72 20 63 61 6c 63 | 2d 69 73 2d 69 6e 76 65 |var calc|-is-inve|
|00000360| 72 73 65 20 63 61 6c 63 | 2d 69 73 2d 68 79 70 65 |rse calc|-is-hype|
|00000370| 72 62 6f 6c 69 63 20 63 | 61 6c 63 46 75 6e 63 2d |rbolic c|alcFunc-|
|00000380| 77 6d 61 78 69 6d 69 7a | 65 20 63 61 6c 63 46 75 |wmaximiz|e calcFu|
|00000390| 6e 63 2d 6d 61 78 69 6d | 69 7a 65 20 63 61 6c 63 |nc-maxim|ize calc|
|000003a0| 46 75 6e 63 2d 77 6d 69 | 6e 69 6d 69 7a 65 20 63 |Func-wmi|nimize c|
|000003b0| 61 6c 63 46 75 6e 63 2d | 6d 69 6e 69 6d 69 7a 65 |alcFunc-|minimize|
|000003c0| 20 22 6d 61 78 22 20 22 | 6d 69 6e 22 20 65 71 75 | "max" "|min" equ|
|000003d0| 61 6c 20 22 22 20 22 24 | 22 20 63 61 6c 63 2d 65 |al "" "$|" calc-e|
|000003e0| 6e 74 65 72 2d 72 65 73 | 75 6c 74 20 32 20 63 61 |nter-res|ult 2 ca|
|000003f0| 6c 63 2d 74 6f 70 2d 6e | 20 33 20 31 20 73 74 72 |lc-top-n| 3 1 str|
|00000400| 69 6e 67 2d 6d 61 74 63 | 68 20 22 2c 5c 5c 7c 5b |ing-matc|h ",\\|[|
|00000410| 5e 20 5d 20 2b 5b 5e 20 | 5d 22 20 22 5c 5c 5b 22 |^ ] +[^ |]" "\\["|
|00000420| 20 6d 61 74 68 2d 72 65 | 61 64 2d 65 78 70 72 20 | math-re|ad-expr |
|00000430| 22 5b 22 20 22 5d 22 20 | 63 61 72 2d 73 61 66 65 |"[" "]" |car-safe|
|00000440| 20 65 72 72 6f 72 20 22 | 42 61 64 20 66 6f 72 6d | error "|Bad form|
|00000450| 61 74 20 69 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |at in ex|pression|
|00000460| 3a 20 25 73 22 5d 20 32 | 35 29 29 20 35 39 31 5d |: %s"] 2|5)) 591]|
|00000470| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|00000480| 63 2d 66 69 6e 64 2d 6d | 61 78 69 6d 75 6d 20 28 |c-find-m|aximum (|
|00000490| 76 61 72 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |var) (in|teractiv|
|000004a0| 65 20 22 73 56 61 72 69 | 61 62 6c 65 20 74 6f 20 |e "sVari|able to |
|000004b0| 6d 61 78 69 6d 69 7a 65 | 20 6f 76 65 72 3a 20 22 |maximize| over: "|
|000004c0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|000004d0| c2 20 88 c3 08 21 87 22 | 20 5b 76 61 72 20 6e 69 |. ...!."| [var ni|
|000004e0| 6c 20 63 61 6c 63 2d 69 | 6e 76 65 72 74 2d 66 75 |l calc-i|nvert-fu|
|000004f0| 6e 63 20 63 61 6c 63 2d | 66 69 6e 64 2d 6d 69 6e |nc calc-|find-min|
|00000500| 69 6d 75 6d 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |imum] 3)|)..(defu|
|00000510| 6e 20 63 61 6c 63 2d 70 | 6f 6c 79 2d 69 6e 74 65 |n calc-p|oly-inte|
|00000520| 72 70 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |rp (arg)| (intera|
|00000530| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00000540| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 c3 5c 22 87 22 |-code ".|....\"."|
|00000550| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|00000560| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00000570| 63 6f 64 65 20 22 c2 c3 | 21 18 09 3a 86 12 00 09 |code "..|!..:....|
|00000580| c4 3d 86 12 00 09 c3 3d | 83 20 00 c5 c6 c3 c3 5c |.=.....=|. .....\|
|00000590| 22 42 89 10 82 28 00 09 | 3f 86 28 00 c7 c8 21 88 |"B...(..|?.(...!.|
|000005a0| c9 20 83 3b 00 ca cb cc | cd 08 c2 cb 21 45 23 82 |. .;....|....!E#.|
|000005b0| 45 00 ca cb ce cf 08 c2 | cb 21 45 23 29 87 22 20 |E.......|.!E#)." |
|000005c0| 5b 64 61 74 61 20 61 72 | 67 20 63 61 6c 63 2d 74 |[data ar|g calc-t|
|000005d0| 6f 70 20 32 20 30 20 76 | 65 63 20 63 61 6c 63 2d |op 2 0 v|ec calc-|
|000005e0| 74 6f 70 2d 6c 69 73 74 | 20 65 72 72 6f 72 20 22 |top-list| error "|
|000005f0| 42 61 64 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |Bad pref|ix argum|
|00000600| 65 6e 74 22 20 63 61 6c | 63 2d 69 73 2d 68 79 70 |ent" cal|c-is-hyp|
|00000610| 65 72 62 6f 6c 69 63 20 | 63 61 6c 63 2d 65 6e 74 |erbolic |calc-ent|
|00000620| 65 72 2d 72 65 73 75 6c | 74 20 31 20 22 72 61 74 |er-resul|t 1 "rat|
|00000630| 69 22 20 63 61 6c 63 46 | 75 6e 63 2d 72 61 74 69 |i" calcF|unc-rati|
|00000640| 6e 74 20 22 70 6f 6c 69 | 22 20 63 61 6c 63 46 75 |nt "poli|" calcFu|
|00000650| 6e 63 2d 70 6f 6c 69 6e | 74 5d 20 31 33 29 29 20 |nc-polin|t] 13)) |
|00000660| 31 33 32 30 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |1320] 3)|)..(defu|
|00000670| 6e 20 63 61 6c 63 2d 63 | 75 72 76 65 2d 66 69 74 |n calc-c|urve-fit|
|00000680| 20 28 61 72 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 | (arg &o|ptional |
|00000690| 6d 6f 64 65 6c 20 63 6f | 65 66 6e 61 6d 65 73 20 |model co|efnames |
|000006a0| 76 61 72 6e 61 6d 65 73 | 29 20 28 69 6e 74 65 72 |varnames|) (inter|
|000006b0| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|000006c0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 c3 5c 22 87 |e-code "|.....\".|
|000006d0| 22 20 5b 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 20 28 |" [nil c|alc-do (|
|000006e0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|000006f0| 2d 63 6f 64 65 20 22 c1 | 89 10 88 dd 20 83 0d 00 |-code ".|.... ...|
|00000700| de 82 17 00 df 20 83 16 | 00 e0 82 17 00 e1 c1 e2 |..... ..|........|
|00000710| c1 c1 c1 c1 c1 e3 1e 0a | 1e 09 1e 08 1e 07 1e 06 |........|........|
|00000720| 1d 1c 1b 1a 0e 0b 3f 85 | 35 05 e4 e5 0c 0e 0a 38 |......?.|5......8|
|00000730| 0e 09 83 42 00 e6 82 43 | 00 e7 23 88 72 89 13 88 |...B...C|..#.r...|
|00000740| 0b e8 55 83 54 00 e9 20 | 82 31 05 0b ea 55 83 66 |..U.T.. |.1...U.f|
|00000750| 00 eb 0c 54 0e 0a 47 5c | 22 89 14 82 31 05 0b ec |...T..G\|"...1...|
|00000760| 3e 83 75 00 0e 09 3f 89 | 16 09 82 31 05 0b ed 3d |>.u...?.|...1...=|
|00000770| 83 81 00 ee 89 15 82 84 | 00 e2 89 15 88 0e 0c 3f |........|.......?|
|00000780| 83 97 00 0d 54 15 ef 0d | 21 89 16 08 82 f0 00 0e |....T...|!.......|
|00000790| 0c 3a 86 a1 00 0e 0c e2 | 3d 83 ce 00 0d f0 5c 5c |.:......|=.....\\|
|000007a0| 15 ef 0d 21 16 08 f1 0e | 08 21 83 c0 00 f2 0e 08 |...!....|.!......|
|000007b0| ef 0d 53 21 43 5c 22 82 | c8 00 f3 0e 08 ef 0d 53 |..S!C\".|.......S|
|000007c0| 21 45 89 16 08 82 f0 00 | f4 0e 0c 21 89 16 0c e2 |!E......|...!....|
|000007d0| 56 83 ed 00 f3 f5 0e 0c | 0d 54 5c 22 42 16 08 0d |V.......|.T\"B...|
|000007e0| 0e 0c 5c 5c 89 15 82 f0 | 00 f6 f7 21 88 f1 0e 08 |..\\....|...!....|
|000007f0| 21 86 03 01 0e 08 41 41 | 3f 86 03 01 f6 f8 21 88 |!.....AA|?.....!.|
|00000800| 0e 08 47 f0 5a 16 06 c1 | 16 0e c1 89 16 0f 88 c1 |..G.Z...|........|
|00000810| 86 31 05 0b f9 55 83 3c | 01 fa 0e 06 0e 06 54 0e |.1...U.<|......T.|
|00000820| 09 85 29 01 e2 23 88 fb | 0e 0e f3 ee 0e 0f 41 42 |..)..#..|......AB|
|00000830| 42 5c 22 89 16 0b 82 31 | 05 0b fc 59 85 45 01 0b |B\"....1|...Y.E..|
|00000840| fd 58 83 6a 01 fa ee fe | 0b ff 81 40 00 23 0e 09 |.X.j....|...@.#..|
|00000850| 85 57 01 e2 23 88 81 41 | 00 0e 0e 41 ee 0e 0f 38 |.W..#..A|...A...8|
|00000860| 5c 22 89 16 0b 82 31 05 | 0b 81 42 00 55 83 93 01 |\"....1.|..B.U...|
|00000870| fa ee ee 0e 08 38 47 53 | 0e 09 85 80 01 e2 23 88 |.....8GS|......#.|
|00000880| 81 41 00 0e 0e 41 ee 0e | 0f 38 5c 22 89 16 0b 82 |.A...A..|.8\"....|
|00000890| 31 05 0b 81 43 00 55 83 | cb 01 fa 0e 06 0e 06 54 |1...C.U.|.......T|
|000008a0| 0e 09 85 a7 01 ee 23 88 | fb ee 0e 0e 38 81 44 00 |......#.|....8.D.|
|000008b0| 81 45 00 81 46 00 81 47 | 00 0e 0f f3 0e 0e 41 41 |.E..F..G|......AA|
|000008c0| 42 23 5c 22 5c 22 89 16 | 0b 82 31 05 0b 81 48 00 |B#\"\"..|..1...H.|
|000008d0| 55 83 03 02 fa 0e 06 0e | 06 54 0e 09 85 df 01 ee |U.......|.T......|
|000008e0| 23 88 fb ee 0e 0e 38 81 | 44 00 81 49 00 81 46 00 |#.....8.|D..I..F.|
|000008f0| 81 4a 00 f3 0e 0e 41 41 | 42 0e 0f 23 5c 22 5c 22 |.J....AA|B..#\"\"|
|00000900| 89 16 0b 82 31 05 0b 81 | 4b 00 3e 83 50 02 fa 0e |....1...|K.>.P...|
|00000910| 06 0e 06 54 0e 09 85 17 | 02 ee 23 88 fb ee 0e 0e |...T....|..#.....|
|00000920| 38 81 44 00 81 4c 00 81 | 46 00 0b 81 4d 00 3d 83 |8.D..L..|F...M.=.|
|00000930| 35 02 81 4e 00 82 38 02 | 81 4f 00 81 46 00 81 50 |5..N..8.|.O..F..P|
|00000940| 00 f3 0e 0e 41 41 42 0e | 0f 23 5c 22 5c 22 5c 22 |....AAB.|.#\"\"\"|
|00000950| 89 16 0b 82 31 05 0b 81 | 51 00 3e 83 95 02 fa 0e |....1...|Q.>.....|
|00000960| 06 0e 06 54 0e 09 85 64 | 02 e2 23 88 fb 0e 0e f3 |...T...d|..#.....|
|00000970| ee 0e 0f 41 42 42 5c 22 | 89 16 0b 88 0b 81 52 00 |...ABB\"|......R.|
|00000980| 3d 83 86 02 81 53 00 0e | 0b 44 82 8f 02 81 54 00 |=....S..|.D....T.|
|00000990| 81 55 00 0e 0b 45 89 16 | 0b 82 31 05 0b 81 56 00 |.U...E..|..1...V.|
|000009a0| 3e 83 d1 02 fa 0e 06 0e | 06 54 0e 09 85 a9 02 e2 |>.......|.T......|
|000009b0| 23 88 fb 0e 0e f3 ee 81 | 46 00 0b 81 57 00 3d 83 |#.......|F...W.=.|
|000009c0| c1 02 81 58 00 82 c4 02 | 81 59 00 0e 0f 5c 22 41 |...X....|.Y...\"A|
|000009d0| 42 42 5c 22 89 16 0b 82 | 31 05 0b 81 5a 00 55 83 |BB\"....|1...Z.U.|
|000009e0| 31 03 fa 0e 06 81 5b 00 | f0 0e 06 5c 22 54 0e 09 |1.....[.|...\"T..|
|000009f0| 85 ea 02 e2 23 88 0e 0e | 0e 0f 1e 11 1e 10 ee 0e |....#...|........|
|00000a00| 10 38 89 16 0b 88 0e 11 | 41 16 11 0e 10 41 41 89 |.8......|A....AA.|
|00000a10| 16 10 85 2d 03 81 5c 5c | 00 0e 0b 81 5b 00 0e 10 |...-..\\|....[...|
|00000a20| 40 81 54 00 fe 0e 11 40 | ee 0e 10 38 45 f0 45 45 |@.T....@|...8E.EE|
|00000a30| 5c 22 89 16 0b 88 82 fc | 02 2a 82 31 05 0b 81 5d |\"......|.*.1...]|
|00000a40| 00 55 83 5e 03 81 5e 00 | 81 5f 00 21 16 0b 81 60 |.U.^..^.|._.!...`|
|00000a50| 00 16 0f 81 61 00 89 16 | 0e 88 fa ee 0e 0e 47 53 |....a...|......GS|
|00000a60| 0e 09 85 5a 03 ee 23 82 | 31 05 0b 81 62 00 3e 83 |...Z..#.|1...b.>.|
|00000a70| 2d 05 c1 1e 12 c1 1e 13 | 0b 81 63 00 3d 83 da 03 |-.......|..c.=...|
|00000a80| 0e 15 1e 14 e2 1e 16 e2 | 1e 17 81 64 00 e7 81 65 |........|...d...e|
|00000a90| 00 5c 22 89 16 0b 88 81 | 66 00 0e 0b 47 ee 5c 22 |.\".....|f...G.\"|
|00000aa0| 85 9a 03 f6 81 67 00 21 | 88 0e 0b 40 16 0b cd 89 |.....g.!|...@....|
|00000ab0| 16 13 88 0e 16 e2 56 83 | c4 03 f3 81 68 00 0e 15 |......V.|....h...|
|00000ac0| 47 0e 16 5a 81 69 00 0e | 15 21 5c 22 42 89 16 0e |G..Z.i..|.!\"B...|
|00000ad0| 82 d6 03 0e 17 e2 56 85 | d6 03 f3 81 6a 00 0e 17 |......V.|....j...|
|00000ae0| 21 42 89 16 0e 2b 82 7b | 04 0b 81 6b 00 3d 83 ec |!B...+.{|...k.=..|
|00000af0| 03 81 6c 00 81 6d 00 21 | 82 01 04 0b 81 6e 00 3d |..l..m.!|.....n.=|
|00000b00| 83 fe 03 81 6c 00 81 6f | 00 21 82 01 04 ef ee 21 |....l..o|.!.....!|
|00000b10| 89 16 0b 88 0e 0b 86 0f | 04 f6 81 70 00 21 88 81 |........|...p.!..|
|00000b20| 71 00 0e 0b 21 85 7b 04 | 0e 0b 47 81 72 00 3e 85 |q...!.{.|..G.r.>.|
|00000b30| 4e 04 81 73 00 ee 0e 0b | 38 21 3f 85 4e 04 81 71 |N..s....|8!?.N..q|
|00000b40| 00 f0 0e 0b 38 21 85 4e | 04 81 74 00 0e 0b 38 3f |....8!.N|..t...8?|
|00000b50| 86 4e 04 81 71 00 81 74 | 00 0e 0b 38 21 83 76 04 |.N..q..t|...8!.v.|
|00000b60| f0 0e 0b 38 16 0f 81 74 | 00 0e 0b 38 86 6a 04 f3 |...8...t|...8.j..|
|00000b70| 81 75 00 0e 0b 0e 0f 5c | 22 42 16 0e ee 0e 0b 38 |.u.....\|"B.....8|
|00000b80| 89 16 0b 82 7b 04 f6 81 | 76 00 21 88 0e 0f 86 14 |....{...|v.!.....|
|00000b90| 05 81 77 00 0e 0b 21 81 | 78 00 3d 1e 18 0e 0e 83 |..w...!.|x.=.....|
|00000ba0| b3 04 fa 0e 18 83 9e 04 | 0e 06 54 82 a0 04 0e 06 |........|..T.....|
|00000bb0| 0e 0e 47 53 81 75 00 0e | 0b 0e 0e 5c 22 c1 0e 18 |..GS.u..|...\"...|
|00000bc0| 25 82 13 05 81 75 00 0e | 0b c1 5c 22 1e 19 c1 1e |%....u..|..\"....|
|00000bd0| 1a fe 0e 19 47 0e 06 0e | 18 83 ce 04 f0 82 cf 04 |....G...|........|
|00000be0| ee 23 1d c1 1e 1b 0d e2 | 57 85 df 04 f6 81 79 00 |.#......|W.....y.|
|00000bf0| 21 88 81 68 00 0d 0e 19 | 5c 22 89 16 1b 88 0e 1b |!..h....|\"......|
|00000c00| 41 89 16 1a 88 81 7a 00 | 0e 1b c1 5c 22 88 fa 0e |A.....z.|...\"...|
|00000c10| 18 83 06 05 0e 06 54 82 | 08 05 0e 06 0e 19 47 0e |......T.|......G.|
|00000c20| 1a 0e 19 0e 18 25 2c 29 | 88 0e 13 85 29 05 81 7b |.....%,)|....)..{|
|00000c30| 00 f3 0e 0b 0e 0f 0e 0e | 46 81 7c 00 5c 22 2a 82 |........|F.|.\"*.|
|00000c40| 31 05 81 7d 00 20 88 82 | 2d 00 88 cd 1e 1c 81 7e |1..}. ..|-......~|
|00000c50| 00 0d 81 7f 00 0a 21 81 | 80 00 c1 4f 81 81 00 0a |......!.|...O....|
|00000c60| 0e 0b 0e 0f 47 f0 55 83 | 5c 5c 05 ee 0e 0f 38 82 |....G.U.|\\....8.|
|00000c70| 5e 05 0e 0f 0e 0e 47 f0 | 55 83 6d 05 ee 0e 0e 38 |^.....G.|U.m....8|
|00000c80| 82 6f 05 0e 0e 0e 08 25 | 23 88 0e 1c 3a 85 87 05 |.o.....%|#...:...|
|00000c90| 81 7b 00 81 82 00 0e 1c | 21 81 83 00 5c 22 29 2e |.{......|!...\").|
|00000ca0| 09 87 22 20 5b 63 61 6c | 63 2d 61 62 6f 72 74 65 |.." [cal|c-aborte|
|00000cb0| 64 2d 70 72 65 66 69 78 | 20 6e 69 6c 20 66 75 6e |d-prefix| nil fun|
|00000cc0| 63 20 6b 65 79 20 77 68 | 69 63 68 20 6e 20 6e 76 |c key wh|ich n nv|
|00000cd0| 61 72 73 20 74 65 6d 70 | 20 64 61 74 61 20 68 6f |ars temp| data ho|
|00000ce0| 6d 6f 67 20 6d 73 67 73 | 20 6d 6f 64 65 6c 20 61 |mog msgs| model a|
|00000cf0| 72 67 20 74 20 63 6f 65 | 66 6e 61 6d 65 73 20 76 |rg t coe|fnames v|
|00000d00| 61 72 6e 61 6d 65 73 20 | 63 20 76 20 64 65 66 76 |arnames |c v defv|
|00000d10| 61 72 73 20 72 65 63 6f | 72 64 2d 65 6e 74 72 79 |ars reco|rd-entry|
|00000d20| 20 63 61 6c 63 2d 64 6f | 6c 6c 61 72 2d 76 61 6c | calc-do|llar-val|
|00000d30| 75 65 73 20 63 61 6c 63 | 2d 61 72 67 2d 76 61 6c |ues calc|-arg-val|
|00000d40| 75 65 73 20 63 61 6c 63 | 2d 64 6f 6c 6c 61 72 2d |ues calc|-dollar-|
|00000d50| 75 73 65 64 20 63 61 6c | 63 2d 68 61 73 68 65 73 |used cal|c-hashes|
|00000d60| 2d 75 73 65 64 20 77 69 | 74 68 2d 79 20 63 6f 65 |-used wi|th-y coe|
|00000d70| 66 73 20 76 61 72 73 20 | 70 20 63 61 6c 63 2d 66 |fs vars |p calc-f|
|00000d80| 69 74 2d 74 6f 2d 74 72 | 61 69 6c 20 63 61 6c 63 |it-to-tr|ail calc|
|00000d90| 2d 69 73 2d 69 6e 76 65 | 72 73 65 20 63 61 6c 63 |-is-inve|rse calc|
|00000da0| 46 75 6e 63 2d 78 66 69 | 74 20 63 61 6c 63 2d 69 |Func-xfi|t calc-i|
|00000db0| 73 2d 68 79 70 65 72 62 | 6f 6c 69 63 20 63 61 6c |s-hyperb|olic cal|
|00000dc0| 63 46 75 6e 63 2d 65 66 | 69 74 20 63 61 6c 63 46 |cFunc-ef|it calcF|
|00000dd0| 75 6e 63 2d 66 69 74 20 | 30 20 28 22 28 50 72 65 |unc-fit |0 ("(Pre|
|00000de0| 73 73 20 3f 20 66 6f 72 | 20 68 65 6c 70 29 22 20 |ss ? for| help)" |
|00000df0| 22 31 20 3d 20 6c 69 6e | 65 61 72 20 6f 72 20 6d |"1 = lin|ear or m|
|00000e00| 75 6c 74 69 6c 69 6e 65 | 61 72 22 20 22 32 2d 39 |ultiline|ar" "2-9|
|00000e10| 20 3d 20 70 6f 6c 79 6e | 6f 6d 69 61 6c 20 66 69 | = polyn|omial fi|
|00000e20| 74 73 3b 20 69 20 3d 20 | 69 6e 74 65 72 70 6f 6c |ts; i = |interpol|
|00000e30| 61 74 69 6e 67 20 70 6f | 6c 79 6e 6f 6d 69 61 6c |ating po|lynomial|
|00000e40| 22 20 22 70 20 3d 20 61 | 20 78 5e 62 2c 20 5e 20 |" "p = a| x^b, ^ |
|00000e50| 3d 20 61 20 62 5e 78 22 | 20 22 65 20 3d 20 61 20 |= a b^x"| "e = a |
|00000e60| 65 78 70 28 62 20 78 29 | 2c 20 78 20 3d 20 65 78 |exp(b x)|, x = ex|
|00000e70| 70 28 61 20 2b 20 62 20 | 78 29 2c 20 6c 20 3d 20 |p(a + b |x), l = |
|00000e80| 61 20 2b 20 62 20 6c 6e | 28 78 29 22 20 22 45 20 |a + b ln|(x)" "E |
|00000e90| 3d 20 61 20 31 30 5e 28 | 62 20 78 29 2c 20 58 20 |= a 10^(|b x), X |
|00000ea0| 3d 20 31 30 5e 28 61 20 | 2b 20 62 20 78 29 2c 20 |= 10^(a |+ b x), |
|00000eb0| 4c 20 3d 20 61 20 2b 20 | 62 20 6c 6f 67 31 30 28 |L = a + |b log10(|
|00000ec0| 78 29 22 20 22 71 20 3d | 20 61 20 2b 20 62 20 28 |x)" "q =| a + b (|
|00000ed0| 78 2d 63 29 5e 32 22 20 | 22 67 20 3d 20 28 61 2f |x-c)^2" |"g = (a/|
|00000ee0| 62 20 73 71 72 74 28 32 | 20 70 69 29 29 20 65 78 |b sqrt(2| pi)) ex|
|00000ef0| 70 28 2d 30 2e 35 2a 28 | 28 78 2d 63 29 2f 62 29 |p(-0.5*(|(x-c)/b)|
|00000f00| 5e 32 29 22 20 22 68 20 | 70 72 65 66 69 78 20 3d |^2)" "h |prefix =|
|00000f10| 20 68 6f 6d 6f 67 65 6e | 65 6f 75 73 20 6d 6f 64 | homogen|eous mod|
|00000f20| 65 6c 20 28 6e 6f 20 63 | 6f 6e 73 74 61 6e 74 20 |el (no c|onstant |
|00000f30| 74 65 72 6d 29 22 20 22 | 27 20 3d 20 61 6c 67 20 |term)" "|' = alg |
|00000f40| 65 6e 74 72 79 2c 20 24 | 20 3d 20 73 74 61 63 6b |entry, $| = stack|
|00000f50| 2c 20 75 20 3d 20 4d 6f | 64 65 6c 31 2c 20 55 20 |, u = Mo|del1, U |
|00000f60| 3d 20 4d 6f 64 65 6c 32 | 22 29 20 6d 65 73 73 61 |= Model2|") messa|
|00000f70| 67 65 20 22 46 69 74 20 | 74 6f 20 6d 6f 64 65 6c |ge "Fit |to model|
|00000f80| 3a 20 25 73 3a 25 73 22 | 20 22 20 68 22 20 22 22 |: %s:%s"| " h" ""|
|00000f90| 20 37 20 6b 65 79 62 6f | 61 72 64 2d 71 75 69 74 | 7 keybo|ard-quit|
|00000fa0| 20 36 33 20 25 20 28 31 | 30 34 20 37 32 29 20 33 | 63 % (1|04 72) 3|
|00000fb0| 36 20 31 20 63 61 6c 63 | 2d 74 6f 70 20 32 20 6d |6 1 calc|-top 2 m|
|00000fc0| 61 74 68 2d 6d 61 74 72 | 69 78 70 20 61 70 70 65 |ath-matr|ixp appe|
|00000fd0| 6e 64 20 76 65 63 20 70 | 72 65 66 69 78 2d 6e 75 |nd vec p|refix-nu|
|00000fe0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 63 61 6c 63 |meric-va|lue calc|
|00000ff0| 2d 74 6f 70 2d 6c 69 73 | 74 20 65 72 72 6f 72 20 |-top-lis|t error |
|00001000| 22 42 61 64 20 70 72 65 | 66 69 78 20 61 72 67 75 |"Bad pre|fix argu|
|00001010| 6d 65 6e 74 22 20 22 44 | 61 74 61 20 6d 61 74 72 |ment" "D|ata matr|
|00001020| 69 78 20 69 73 20 6e 6f | 74 20 61 20 6d 61 74 72 |ix is no|t a matr|
|00001030| 69 78 21 22 20 34 39 20 | 63 61 6c 63 2d 67 65 74 |ix!" 49 |calc-get|
|00001040| 2d 66 69 74 2d 76 61 72 | 69 61 62 6c 65 73 20 6d |-fit-var|iables m|
|00001050| 61 74 68 2d 6d 75 6c 20 | 35 30 20 35 37 20 2d 20 |ath-mul |50 57 - |
|00001060| 34 38 20 2d 31 20 6d 61 | 74 68 2d 62 75 69 6c 64 |48 -1 ma|th-build|
|00001070| 2d 70 6f 6c 79 6e 6f 6d | 69 61 6c 2d 65 78 70 72 |-polynom|ial-expr|
|00001080| 20 31 30 35 20 31 31 32 | 20 63 61 6c 63 46 75 6e | 105 112| calcFun|
|00001090| 63 2d 72 65 64 75 63 65 | 20 28 76 61 72 20 6d 75 |c-reduce| (var mu|
|000010a0| 6c 20 76 61 72 2d 6d 75 | 6c 29 20 63 61 6c 63 46 |l var-mu|l) calcF|
|000010b0| 75 6e 63 2d 6d 61 70 20 | 28 76 61 72 20 70 6f 77 |unc-map |(var pow|
|000010c0| 20 76 61 72 2d 70 6f 77 | 29 20 39 34 20 28 76 61 | var-pow|) 94 (va|
|000010d0| 72 20 6d 75 6c 20 76 61 | 72 2d 6d 75 6c 29 20 28 |r mul va|r-mul) (|
|000010e0| 76 61 72 20 70 6f 77 20 | 76 61 72 2d 70 6f 77 29 |var pow |var-pow)|
|000010f0| 20 28 31 30 31 20 36 39 | 29 20 28 76 61 72 20 6d | (101 69|) (var m|
|00001100| 75 6c 20 76 61 72 2d 6d | 75 6c 29 20 31 30 31 20 |ul var-m|ul) 101 |
|00001110| 28 76 61 72 20 65 78 70 | 20 76 61 72 2d 65 78 70 |(var exp| var-exp|
|00001120| 29 20 28 63 61 6c 63 46 | 75 6e 63 2d 6c 61 6d 62 |) (calcF|unc-lamb|
|00001130| 64 61 20 28 76 61 72 20 | 61 20 76 61 72 2d 61 29 |da (var |a var-a)|
|00001140| 20 28 5e 20 31 30 20 28 | 76 61 72 20 61 20 76 61 | (^ 10 (|var a va|
|00001150| 72 2d 61 29 29 29 20 28 | 76 61 72 20 6d 75 6c 20 |r-a))) (|var mul |
|00001160| 76 61 72 2d 6d 75 6c 29 | 20 28 31 32 30 20 38 38 |var-mul)| (120 88|
|00001170| 29 20 31 32 30 20 63 61 | 6c 63 46 75 6e 63 2d 65 |) 120 ca|lcFunc-e|
|00001180| 78 70 20 5e 20 31 30 20 | 28 31 30 38 20 37 36 29 |xp ^ 10 |(108 76)|
|00001190| 20 31 30 38 20 28 76 61 | 72 20 6c 6e 20 76 61 72 | 108 (va|r ln var|
|000011a0| 2d 6c 6e 29 20 28 76 61 | 72 20 6c 6f 67 31 30 20 |-ln) (va|r log10 |
|000011b0| 76 61 72 2d 6c 6f 67 31 | 30 29 20 31 31 33 20 2a |var-log1|0) 113 *|
|000011c0| 20 6d 61 74 68 2d 61 64 | 64 20 31 30 33 20 6d 61 | math-ad|d 103 ma|
|000011d0| 74 68 2d 72 65 61 64 2d | 65 78 70 72 20 22 28 41 |th-read-|expr "(A|
|000011e0| 46 69 74 20 2f 20 42 46 | 69 74 20 73 71 72 74 28 |Fit / BF|it sqrt(|
|000011f0| 32 20 70 69 29 29 20 65 | 78 70 28 2d 30 2e 35 20 |2 pi)) e|xp(-0.5 |
|00001200| 2a 20 28 28 58 46 69 74 | 20 2d 20 43 46 69 74 29 |* ((XFit| - CFit)|
|00001210| 20 2f 20 42 46 69 74 29 | 5e 32 29 22 20 28 76 65 | / BFit)|^2)" (ve|
|00001220| 63 20 28 76 61 72 20 58 | 46 69 74 20 76 61 72 2d |c (var X|Fit var-|
|00001230| 58 46 69 74 29 29 20 28 | 76 65 63 20 28 76 61 72 |XFit)) (|vec (var|
|00001240| 20 41 46 69 74 20 76 61 | 72 2d 41 46 69 74 29 20 | AFit va|r-AFit) |
|00001250| 28 76 61 72 20 42 46 69 | 74 20 76 61 72 2d 42 46 |(var BFi|t var-BF|
|00001260| 69 74 29 20 28 76 61 72 | 20 43 46 69 74 20 76 61 |it) (var| CFit va|
|00001270| 72 2d 43 46 69 74 29 29 | 20 28 33 36 20 33 39 20 |r-CFit))| (36 39 |
|00001280| 31 31 37 20 38 35 29 20 | 33 39 20 63 61 6c 63 2d |117 85) |39 calc-|
|00001290| 64 6f 2d 61 6c 67 2d 65 | 6e 74 72 79 20 22 4d 6f |do-alg-e|ntry "Mo|
|000012a0| 64 65 6c 20 66 6f 72 6d | 75 6c 61 3a 20 22 20 2f |del form|ula: " /|
|000012b0| 3d 20 22 42 61 64 20 66 | 6f 72 6d 61 74 22 20 6e |= "Bad f|ormat" n|
|000012c0| 74 68 63 64 72 20 72 65 | 76 65 72 73 65 20 63 61 |thcdr re|verse ca|
|000012d0| 6c 63 2d 69 6e 76 65 6e | 74 2d 61 72 67 73 20 31 |lc-inven|t-args 1|
|000012e0| 31 37 20 63 61 6c 63 2d | 76 61 72 2d 76 61 6c 75 |17 calc-|var-valu|
|000012f0| 65 20 76 61 72 2d 4d 6f | 64 65 6c 31 20 38 35 20 |e var-Mo|del1 85 |
|00001300| 76 61 72 2d 4d 6f 64 65 | 6c 32 20 22 55 73 65 72 |var-Mode|l2 "User|
|00001310| 20 6d 6f 64 65 6c 20 6e | 6f 74 20 79 65 74 20 64 | model n|ot yet d|
|00001320| 65 66 69 6e 65 64 22 20 | 6d 61 74 68 2d 76 65 63 |efined" |math-vec|
|00001330| 74 6f 72 70 20 28 33 20 | 34 29 20 6d 61 74 68 2d |torp (3 |4) math-|
|00001340| 6f 62 6a 76 65 63 70 20 | 33 20 6d 61 74 68 2d 61 |objvecp |3 math-a|
|00001350| 6c 6c 2d 76 61 72 73 2d | 62 75 74 20 22 49 6e 63 |ll-vars-|but "Inc|
|00001360| 6f 72 72 65 63 74 20 6d | 6f 64 65 6c 20 73 70 65 |orrect m|odel spe|
|00001370| 63 69 66 69 65 72 22 20 | 63 61 72 2d 73 61 66 65 |cifier" |car-safe|
|00001380| 20 63 61 6c 63 46 75 6e | 63 2d 65 71 20 22 4e 6f | calcFun|c-eq "No|
|00001390| 74 20 65 6e 6f 75 67 68 | 20 76 61 72 69 61 62 6c |t enough| variabl|
|000013a0| 65 73 20 69 6e 20 6d 6f | 64 65 6c 22 20 73 65 74 |es in mo|del" set|
|000013b0| 63 64 72 20 63 61 6c 63 | 2d 72 65 63 6f 72 64 20 |cdr calc|-record |
|000013c0| 22 6d 6f 64 6c 22 20 62 | 65 65 70 20 63 61 6c 63 |"modl" b|eep calc|
|000013d0| 2d 65 6e 74 65 72 2d 72 | 65 73 75 6c 74 20 73 79 |-enter-r|esult sy|
|000013e0| 6d 62 6f 6c 2d 6e 61 6d | 65 20 39 20 6c 69 73 74 |mbol-nam|e 9 list|
|000013f0| 20 63 61 6c 63 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | calc-no|rmalize |
|00001400| 22 70 61 72 6d 22 5d 20 | 38 33 29 29 20 31 36 37 |"parm"] |83)) 167|
|00001410| 32 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |2] 3))..|(defun c|
|00001420| 61 6c 63 2d 69 6e 76 65 | 6e 74 2d 69 6e 64 65 70 |alc-inve|nt-indep|
|00001430| 65 6e 64 65 6e 74 2d 76 | 61 72 69 61 62 6c 65 73 |endent-v|ariables|
|00001440| 20 28 6e 20 26 6f 70 74 | 69 6f 6e 61 6c 20 62 75 | (n &opt|ional bu|
|00001450| 74 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |t) (byte|-code ".|
|00001460| 08 09 c3 c4 24 87 22 20 | 5b 6e 20 62 75 74 20 63 |....$." |[n but c|
|00001470| 61 6c 63 2d 69 6e 76 65 | 6e 74 2d 76 61 72 69 61 |alc-inve|nt-varia|
|00001480| 62 6c 65 73 20 28 78 20 | 79 20 7a 20 74 29 20 22 |bles (x |y z t) "|
|00001490| 78 22 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |x"] 5)).|.(defun |
|000014a0| 63 61 6c 63 2d 69 6e 76 | 65 6e 74 2d 70 61 72 61 |calc-inv|ent-para|
|000014b0| 6d 65 74 65 72 2d 76 61 | 72 69 61 62 6c 65 73 20 |meter-va|riables |
|000014c0| 28 6e 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 75 74 |(n &opti|onal but|
|000014d0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |) (byte-|code "..|
|000014e0| 09 c3 c4 24 87 22 20 5b | 6e 20 62 75 74 20 63 61 |...$." [|n but ca|
|000014f0| 6c 63 2d 69 6e 76 65 6e | 74 2d 76 61 72 69 61 62 |lc-inven|t-variab|
|00001500| 6c 65 73 20 28 61 20 62 | 20 63 20 64 29 20 22 61 |les (a b| c d) "a|
|00001510| 22 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |"] 5))..|(defun c|
|00001520| 61 6c 63 2d 69 6e 76 65 | 6e 74 2d 76 61 72 69 61 |alc-inve|nt-varia|
|00001530| 62 6c 65 73 20 28 6e 75 | 6d 20 62 75 74 20 6e 61 |bles (nu|m but na|
|00001540| 6d 65 73 20 62 61 73 65 | 29 20 28 62 79 74 65 2d |mes base|) (byte-|
|00001550| 63 6f 64 65 20 22 c1 0b | ca c1 1d 1c 1a 18 0a ca |code "..|........|
|00001560| 56 85 10 00 0e 06 85 4e | 00 cb 0e 06 3a 83 20 00 |V......N|....:. .|
|00001570| 0e 06 40 82 27 00 0e 07 | 0c 54 89 14 50 21 89 15 |..@.'...|.T..P!..|
|00001580| 88 cc cd 0e 08 42 0d 5c | 22 86 3d 00 0d 08 42 10 |.....B.\|".=...B.|
|00001590| 0a 53 89 12 88 0e 06 39 | 86 4a 00 0e 06 41 89 16 |.S.....9|.J...A..|
|000015a0| 06 88 82 08 00 88 0a ca | 55 83 5b 00 ce 08 21 82 |........|U.[...!.|
|000015b0| 63 00 cf 0b 0e 08 c9 0e | 07 24 2c 87 22 20 5b 76 |c.......|.$,." [v|
|000015c0| 61 72 73 20 6e 69 6c 20 | 6e 20 6e 75 6d 20 6e 6e |ars nil |n num nn|
|000015d0| 20 76 61 72 20 6e 61 6d | 65 73 20 62 61 73 65 20 | var nam|es base |
|000015e0| 62 75 74 20 74 20 30 20 | 6d 61 74 68 2d 62 75 69 |but t 0 |math-bui|
|000015f0| 6c 64 2d 76 61 72 2d 6e | 61 6d 65 20 6d 61 74 68 |ld-var-n|ame math|
|00001600| 2d 65 78 70 72 2d 63 6f | 6e 74 61 69 6e 73 20 76 |-expr-co|ntains v|
|00001610| 65 63 20 6e 72 65 76 65 | 72 73 65 20 63 61 6c 63 |ec nreve|rse calc|
|00001620| 2d 69 6e 76 65 6e 74 2d | 76 61 72 69 61 62 6c 65 |-invent-|variable|
|00001630| 73 5d 20 38 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |s] 8))..|(defun c|
|00001640| 61 6c 63 2d 67 65 74 2d | 66 69 74 2d 76 61 72 69 |alc-get-|fit-vari|
|00001650| 61 62 6c 65 73 20 28 6e | 76 20 6e 63 20 26 6f 70 |ables (n|v nc &op|
|00001660| 74 69 6f 6e 61 6c 20 64 | 65 66 76 20 64 65 66 63 |tional d|efv defc|
|00001670| 20 77 69 74 68 2d 79 20 | 68 6f 6d 6f 67 29 20 28 | with-y |homog) (|
|00001680| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 09 83 0a 00 |byte-cod|e ".....|
|00001690| 0a 54 82 0b 00 0a 55 86 | 12 00 cd ce 21 88 cf 0b |.T....U.|....!...|
|000016a0| 21 85 1e 00 0b 14 c5 89 | 13 88 0c 85 29 00 0e 06 |!.......|....)...|
|000016b0| 53 89 16 06 88 0b 86 33 | 00 d0 08 21 89 13 88 0e |S......3|...!....|
|000016c0| 07 86 41 00 d1 0e 06 0b | 5c 22 89 16 07 88 d2 d3 |..A.....|\"......|
|000016d0| d4 d5 d6 d7 d8 0b 5c 22 | d9 23 d5 d6 d7 da 0e 07 |......\"|.#......|
|000016e0| 5c 22 d9 23 23 21 c5 1e | 09 1e 08 db dc 0e 08 5c |\".##!..|.......\|
|000016f0| 22 83 6c 00 dd 0e 08 21 | 82 73 00 dd de 0e 08 df |".l....!|.s......|
|00001700| 51 21 89 16 08 88 e0 0e | 08 21 cd 3d 85 87 00 cd |Q!......|.!.=....|
|00001710| e1 e2 0e 08 38 5c 22 88 | e3 0e 08 21 86 92 00 cd |....8\".|...!....|
|00001720| e4 21 88 e5 0e 08 e6 5c | 22 83 aa 00 e7 0b 42 16 |.!.....\|".....B.|
|00001730| 08 e7 0e 07 42 89 16 09 | 82 e1 00 e3 e8 0e 08 38 |....B...|.......8|
|00001740| 21 83 da 00 0e 08 47 e9 | 55 85 c1 00 e3 e2 0e 08 |!.....G.|U.......|
|00001750| 38 21 83 d4 00 e2 0e 08 | 38 16 09 e8 0e 08 38 89 |8!......|8.....8.|
|00001760| 16 08 82 d7 00 cd ea 21 | 82 e1 00 e7 0e 07 42 89 |.......!|......B.|
|00001770| 16 09 88 08 0e 08 47 53 | 55 86 09 01 09 3f 85 f7 |......GS|U....?..|
|00001780| 00 08 54 0e 08 47 53 55 | 86 09 01 cd eb 08 08 e8 |..T..GSU|........|
|00001790| 55 83 07 01 ec 82 08 01 | ed 23 88 0e 06 0e 09 47 |U.......|.#.....G|
|000017a0| 53 55 86 25 01 cd ee 0e | 06 0e 06 e8 55 83 23 01 |SU.%....|....U.#.|
|000017b0| ec 82 24 01 ed 23 88 0c | 85 34 01 e7 0c 0e 09 41 |..$..#..|.4.....A|
|000017c0| 42 42 89 16 09 88 0e 0a | 85 47 01 ef 0e 0b 0e 0a |BB......|.G......|
|000017d0| 41 0e 08 41 23 89 16 0b | 88 0e 0c 85 5a 01 ef 0e |A..A#...|....Z...|
|000017e0| 0b 0e 0c 41 0e 09 41 23 | 89 16 0b 88 0e 08 16 0a |...A..A#|........|
|000017f0| 0e 09 89 16 0c 2a 87 22 | 20 5b 6e 76 20 77 69 74 |.....*."| [nv wit|
|00001800| 68 2d 79 20 6e 76 61 72 | 73 20 64 65 66 76 20 68 |h-y nvar|s defv h|
|00001810| 6f 6d 6f 67 20 6e 69 6c | 20 6e 63 20 64 65 66 63 |omog nil| nc defc|
|00001820| 20 76 61 72 73 20 63 6f | 65 66 73 20 76 61 72 6e | vars co|efs varn|
|00001830| 61 6d 65 73 20 6d 6f 64 | 65 6c 20 63 6f 65 66 6e |ames mod|el coefn|
|00001840| 61 6d 65 73 20 65 72 72 | 6f 72 20 22 57 72 6f 6e |ames err|or "Wron|
|00001850| 67 20 6e 75 6d 62 65 72 | 20 6f 66 20 64 61 74 61 |g number| of data|
|00001860| 20 76 65 63 74 6f 72 73 | 20 66 6f 72 20 74 68 69 | vectors| for thi|
|00001870| 73 20 74 79 70 65 20 6f | 66 20 6d 6f 64 65 6c 22 |s type o|f model"|
|00001880| 20 69 6e 74 65 67 65 72 | 70 20 63 61 6c 63 2d 69 | integer|p calc-i|
|00001890| 6e 76 65 6e 74 2d 69 6e | 64 65 70 65 6e 64 65 6e |nvent-in|dependen|
|000018a0| 74 2d 76 61 72 69 61 62 | 6c 65 73 20 63 61 6c 63 |t-variab|les calc|
|000018b0| 2d 69 6e 76 65 6e 74 2d | 70 61 72 61 6d 65 74 65 |-invent-|paramete|
|000018c0| 72 2d 76 61 72 69 61 62 | 6c 65 73 20 72 65 61 64 |r-variab|les read|
|000018d0| 2d 73 74 72 69 6e 67 20 | 66 6f 72 6d 61 74 20 22 |-string |format "|
|000018e0| 46 69 74 74 69 6e 67 20 | 76 61 72 69 61 62 6c 65 |Fitting |variable|
|000018f0| 73 3a 20 28 64 65 66 61 | 75 6c 74 20 25 73 3b 20 |s: (defa|ult %s; |
|00001900| 25 73 29 20 22 20 6d 61 | 70 63 6f 6e 63 61 74 20 |%s) " ma|pconcat |
|00001910| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 6d 61 70 63 |symbol-n|ame mapc|
|00001920| 61 72 20 28 6c 61 6d 62 | 64 61 20 28 76 29 20 28 |ar (lamb|da (v) (|
|00001930| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 38 87 22 |byte-cod|e "..8."|
|00001940| 20 5b 76 20 31 5d 20 32 | 29 29 20 22 2c 22 20 28 | [v 1] 2|)) "," (|
|00001950| 6c 61 6d 62 64 61 20 28 | 76 29 20 28 62 79 74 65 |lambda (|v) (byte|
|00001960| 2d 63 6f 64 65 20 22 c1 | 08 38 87 22 20 5b 76 20 |-code ".|.8." [v |
|00001970| 31 5d 20 32 29 29 20 73 | 74 72 69 6e 67 2d 6d 61 |1] 2)) s|tring-ma|
|00001980| 74 63 68 20 22 5c 5c 5b | 22 20 6d 61 74 68 2d 72 |tch "\\[|" math-r|
|00001990| 65 61 64 2d 65 78 70 72 | 20 22 5b 22 20 22 5d 22 |ead-expr| "[" "]"|
|000019a0| 20 63 61 72 2d 73 61 66 | 65 20 22 42 61 64 20 66 | car-saf|e "Bad f|
|000019b0| 6f 72 6d 61 74 20 69 6e | 20 65 78 70 72 65 73 73 |ormat in| express|
|000019c0| 69 6f 6e 3a 20 25 73 22 | 20 32 20 6d 61 74 68 2d |ion: %s"| 2 math-|
|000019d0| 76 65 63 74 6f 72 70 20 | 22 45 78 70 65 63 74 65 |vectorp |"Expecte|
|000019e0| 64 20 61 20 76 61 72 69 | 61 62 6c 65 20 6f 72 20 |d a vari|able or |
|000019f0| 76 65 63 74 6f 72 20 6f | 66 20 76 61 72 69 61 62 |vector o|f variab|
|00001a00| 6c 65 73 22 20 65 71 75 | 61 6c 20 28 76 65 63 29 |les" equ|al (vec)|
|00001a10| 20 76 65 63 20 31 20 33 | 20 22 45 78 70 65 63 74 | vec 1 3| "Expect|
|00001a20| 65 64 20 69 6e 64 65 70 | 65 6e 64 65 6e 74 20 76 |ed indep|endent v|
|00001a30| 61 72 69 61 62 6c 65 73 | 20 76 65 63 74 6f 72 2c |ariables| vector,|
|00001a40| 20 74 68 65 6e 20 70 61 | 72 61 6d 65 74 65 72 73 | then pa|rameters|
|00001a50| 20 76 65 63 74 6f 72 22 | 20 22 45 78 70 65 63 74 | vector"| "Expect|
|00001a60| 65 64 20 25 64 20 69 6e | 64 65 70 65 6e 64 65 6e |ed %d in|dependen|
|00001a70| 74 20 76 61 72 69 61 62 | 6c 65 25 73 22 20 22 22 |t variab|le%s" ""|
|00001a80| 20 22 73 22 20 22 45 78 | 70 65 63 74 65 64 20 25 | "s" "Ex|pected %|
|00001a90| 64 20 70 61 72 61 6d 65 | 74 65 72 20 76 61 72 69 |d parame|ter vari|
|00001aa0| 61 62 6c 65 25 73 22 20 | 6d 61 74 68 2d 6d 75 6c |able%s" |math-mul|
|00001ab0| 74 69 2d 73 75 62 73 74 | 5d 20 32 38 29 29 0a 0a |ti-subst|] 28))..|
|00001ac0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 6e 65 77 74 |(defun m|ath-newt|
|00001ad0| 6f 6e 2d 72 6f 6f 74 20 | 28 65 78 70 72 20 64 65 |on-root |(expr de|
|00001ae0| 72 69 76 20 67 75 65 73 | 73 20 6f 72 69 67 2d 67 |riv gues|s orig-g|
|00001af0| 75 65 73 73 20 6c 69 6d | 69 74 29 20 28 62 79 74 |uess lim|it) (byt|
|00001b00| 65 2d 63 6f 64 65 20 22 | 08 c9 3d 85 0a 00 ca cb |e-code "|..=.....|
|00001b10| 09 5c 22 88 09 1a cc 1b | cc 1c cd 0d 21 13 cd 0e |.\".....|....!...|
|00001b20| 06 21 89 14 88 0b 3a 3f | 86 26 00 0b 40 ce 3e 85 |.!....:?|.&..@.>.|
|00001b30| 5c 5c 00 0c 3a 3f 86 33 | 00 0c 40 cf 3e 85 5c 5c |\\..:?.3|..@.>.\\|
|00001b40| 00 0c 3a 83 58 00 0c 40 | d0 3e 3f 85 55 00 0c 40 |..:.X..@|.>?.U..@|
|00001b50| d1 3d 83 52 00 d2 0c 38 | d3 3d 82 55 00 d4 0c 21 |.=.R...8|.=.U...!|
|00001b60| 82 5b 00 0c d3 3d 3f 83 | a5 00 d5 09 d6 0b 0c 5c |.[...=?.|.......\|
|00001b70| 22 5c 22 89 13 88 d7 09 | d8 0b 21 89 13 5c 22 83 |"\".....|..!..\".|
|00001b80| 81 00 0b 89 12 88 d9 0b | cd 0d 21 45 82 a2 00 da |........|..!E....|
|00001b90| db d5 0b 0e 07 5c 22 21 | 0e 08 5c 22 dc 55 83 9e |.....\"!|..\".U..|
|00001ba0| 00 dd 0d 0e 06 0b 0e 07 | 0e 08 25 82 a2 00 de 0b |........|..%.....|
|00001bb0| df 5c 22 82 a9 00 de 0b | e0 5c 22 2b 87 22 20 5b |.\".....|.\"+." [|
|00001bc0| 63 61 6c 63 2d 64 69 73 | 70 6c 61 79 2d 77 6f 72 |calc-dis|play-wor|
|00001bd0| 6b 69 6e 67 2d 6d 65 73 | 73 61 67 65 20 67 75 65 |king-mes|sage gue|
|00001be0| 73 73 20 76 61 72 2d 44 | 55 4d 4d 59 20 6e 65 78 |ss var-D|UMMY nex|
|00001bf0| 74 20 64 76 61 6c 20 65 | 78 70 72 20 64 65 72 69 |t dval e|xpr deri|
|00001c00| 76 20 6f 72 69 67 2d 67 | 75 65 73 73 20 6c 69 6d |v orig-g|uess lim|
|00001c10| 69 74 20 6c 6f 74 73 20 | 6d 61 74 68 2d 64 6f 2d |it lots |math-do-|
|00001c20| 77 6f 72 6b 69 6e 67 20 | 22 6e 65 77 74 6f 6e 22 |working |"newton"|
|00001c30| 20 6e 69 6c 20 6d 61 74 | 68 2d 65 76 61 6c 75 61 | nil mat|h-evalua|
|00001c40| 74 65 2d 65 78 70 72 20 | 28 62 69 67 70 6f 73 20 |te-expr |(bigpos |
|00001c50| 62 69 67 6e 65 67 20 66 | 72 61 63 20 66 6c 6f 61 |bigneg f|rac floa|
|00001c60| 74 20 63 70 6c 78 20 70 | 6f 6c 61 72 29 20 28 62 |t cplx p|olar) (b|
|00001c70| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00001c80| 63 20 66 6c 6f 61 74 20 | 63 70 6c 78 20 70 6f 6c |c float |cplx pol|
|00001c90| 61 72 29 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |ar) (big|pos bign|
|00001ca0| 65 67 29 20 66 6c 6f 61 | 74 20 31 20 30 20 6d 61 |eg) floa|t 1 0 ma|
|00001cb0| 74 68 2d 7a 65 72 6f 70 | 20 6d 61 74 68 2d 73 75 |th-zerop| math-su|
|00001cc0| 62 20 6d 61 74 68 2d 64 | 69 76 20 6d 61 74 68 2d |b math-d|iv math-|
|00001cd0| 6e 65 61 72 6c 79 2d 65 | 71 75 61 6c 20 6d 61 74 |nearly-e|qual mat|
|00001ce0| 68 2d 66 6c 6f 61 74 20 | 76 65 63 20 6d 61 74 68 |h-float |vec math|
|00001cf0| 2d 63 6f 6d 70 61 72 65 | 20 6d 61 74 68 2d 61 62 |-compare| math-ab|
|00001d00| 73 2d 61 70 70 72 6f 78 | 20 2d 31 20 6d 61 74 68 |s-approx| -1 math|
|00001d10| 2d 6e 65 77 74 6f 6e 2d | 72 6f 6f 74 20 6d 61 74 |-newton-|root mat|
|00001d20| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 22 2a 4e |h-reject|-arg "*N|
|00001d30| 65 77 74 6f 6e 27 73 20 | 6d 65 74 68 6f 64 20 66 |ewton's |method f|
|00001d40| 61 69 6c 65 64 20 74 6f | 20 63 6f 6e 76 65 72 67 |ailed to| converg|
|00001d50| 65 22 20 22 2a 4e 65 77 | 74 6f 6e 27 73 20 6d 65 |e" "*New|ton's me|
|00001d60| 74 68 6f 64 20 65 6e 63 | 6f 75 6e 74 65 72 65 64 |thod enc|ountered|
|00001d70| 20 61 20 73 69 6e 67 75 | 6c 61 72 69 74 79 22 5d | a singu|larity"]|
|00001d80| 20 31 38 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | 18))..(|defun ma|
|00001d90| 74 68 2d 6e 65 77 74 6f | 6e 2d 73 65 61 72 63 68 |th-newto|n-search|
|00001da0| 2d 72 6f 6f 74 20 28 65 | 78 70 72 20 64 65 72 69 |-root (e|xpr deri|
|00001db0| 76 20 67 75 65 73 73 20 | 76 67 75 65 73 73 20 6f |v guess |vguess o|
|00001dc0| 73 74 65 70 20 6f 6f 73 | 74 65 70 20 6c 6f 77 20 |step oos|tep low |
|00001dd0| 76 6c 6f 77 20 68 69 67 | 68 20 76 68 69 67 68 29 |vlow hig|h vhigh)|
|00001de0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 09 c3 ce | (byte-c|ode "...|
|00001df0| ce ce ce 1e 07 1e 06 1d | 1c 1a 18 09 83 26 00 0e |........|.....&..|
|00001e00| 08 d3 3d 85 23 00 d4 d5 | d6 d7 0e 09 0e 0a 46 5c |..=.#...|......F\|
|00001e10| 22 82 96 00 0e 08 d3 3d | 85 37 00 d4 d8 d6 d7 0e |"......=|.7......|
|00001e20| 09 0e 0a 46 5c 22 88 d9 | da 0e 0a 0e 09 5c 22 db |...F\"..|.....\".|
|00001e30| 5c 22 16 0b dc 0e 09 0e | 0b 5c 22 11 09 10 dd 0e |\"......|.\".....|
|00001e40| 0d 21 89 16 0c 88 0e 0c | 3a 3f 86 60 00 0e 0c 40 |.!......|:?.`...@|
|00001e50| de 3e 86 96 00 d9 0e 0b | df 5c 22 16 0b dc 0e 09 |.>......|.\".....|
|00001e60| 0e 0b 5c 22 11 09 10 dd | 0e 0d 21 89 16 0c 88 e0 |..\"....|..!.....|
|00001e70| 0e 0c 21 86 96 00 d9 0e | 0b e1 5c 22 16 0b dc 0e |..!.....|..\"....|
|00001e80| 09 0e 0b 5c 22 11 09 10 | ce 89 16 0c 88 0e 0c 86 |...\"...|........|
|00001e90| a3 00 dd 0e 0d 21 89 16 | 0c 88 0e 0c 3a 3f 86 b0 |.....!..|....:?..|
|00001ea0| 00 0e 0c 40 e2 3e 86 b7 | 00 e3 09 e4 5c 22 88 e5 |...@.>..|....\"..|
|00001eb0| 0e 0c 21 89 16 0c 88 0e | 0f 3a 83 01 01 0e 0f 40 |..!.....|.:.....@|
|00001ec0| e6 3d 86 fe 00 0e 0f 40 | e7 3d 3f 85 fe 00 0e 0f |.=.....@|.=?.....|
|00001ed0| 40 e8 3e 83 fa 00 e9 0e | 0f 38 3a 83 f1 00 e9 0e |@.>.....|.8:.....|
|00001ee0| 0f 38 40 e6 3d 82 f7 00 | e9 0e 0f 38 d7 57 82 fe |.8@.=...|...8.W..|
|00001ef0| 00 ea 0e 0f 21 82 05 01 | 0e 0f d7 57 0e 0c 3a 83 |....!...|...W..:.|
|00001f00| 46 01 0e 0c 40 e7 3d 86 | 43 01 0e 0c 40 e6 3d 3f |F...@.=.|C...@.=?|
|00001f10| 85 43 01 0e 0c 40 eb 3e | 83 3f 01 e9 0e 0c 38 3a |.C...@.>|.?....8:|
|00001f20| 83 36 01 e9 0e 0c 38 40 | e7 3d 82 3c 01 e9 0e 0c |.6....8@|.=.<....|
|00001f30| 38 d7 56 82 43 01 ec 0e | 0c 21 82 4a 01 0e 0c d7 |8.V.C...|.!.J....|
|00001f40| 56 89 14 3d 83 5b 01 09 | 16 0a 0e 0c 89 16 10 82 |V..=.[..|........|
|00001f50| b3 01 0e 10 3a 83 9c 01 | 0e 10 40 e6 3d 86 99 01 |....:...|..@.=...|
|00001f60| 0e 10 40 e7 3d 3f 85 99 | 01 0e 10 40 ed 3e 83 95 |..@.=?..|...@.>..|
|00001f70| 01 e9 0e 10 38 3a 83 8c | 01 e9 0e 10 38 40 e6 3d |....8:..|....8@.=|
|00001f80| 82 92 01 e9 0e 10 38 d7 | 57 82 99 01 ea 0e 10 21 |......8.|W......!|
|00001f90| 82 a0 01 0e 10 d7 57 0c | 3d 83 b0 01 09 16 09 0e |......W.|=.......|
|00001fa0| 0c 89 16 0f 82 b3 01 ce | 89 12 88 0e 0c 3a 83 db |........|.....:..|
|00001fb0| 01 0e 0c 40 ee 3e 3f 85 | d8 01 0e 0c 40 ef 3d 83 |...@.>?.|....@.=.|
|00001fc0| d4 01 e9 0e 0c 38 d7 3d | 82 d8 01 f0 0e 0c 21 82 |.....8.=|......!.|
|00001fd0| df 01 0e 0c d7 3d 86 e8 | 01 f1 0e 09 0e 0a 5c 22 |.....=..|......\"|
|00001fe0| 83 f3 01 f2 09 0e 0c 45 | 82 32 04 dd 0e 11 21 89 |.......E|.2....!.|
|00001ff0| 15 88 0d 3a 3f 86 04 02 | 0d 40 f3 3e 85 53 02 0d |...:?...|.@.>.S..|
|00002000| 3a 83 29 02 0d 40 f4 3e | 3f 85 26 02 0d 40 ef 3d |:.)..@.>|?.&..@.=|
|00002010| 83 23 02 e9 0d 38 d7 3d | 82 26 02 f0 0d 21 82 2c |.#...8.=|.&...!.,|
|00002020| 02 0d d7 3d 3f 85 53 02 | f5 0e 0c e5 0d 21 5c 22 |...=?.S.|.....!\"|
|00002030| 15 da 09 0d 5c 22 89 16 | 06 85 53 02 f6 0e 0a 0e |....\"..|..S.....|
|00002040| 06 5c 22 3f 85 53 02 f6 | 0e 06 0e 09 5c 22 3f 83 |.\"?.S..|....\"?.|
|00002050| ec 02 0e 06 10 dd 0e 0d | 21 89 16 07 88 0e 07 3a |........|!......:|
|00002060| 83 88 02 0e 07 40 f7 3e | 3f 85 85 02 0e 07 40 ef |.....@.>|?.....@.|
|00002070| 3d 83 81 02 e9 0e 07 38 | d7 3d 82 85 02 f0 0e 07 |=......8|.=......|
|00002080| 21 82 8c 02 0e 07 d7 3d | 86 94 02 f1 0e 06 09 5c |!......=|.......\|
|00002090| 22 83 a0 02 f2 0e 06 0e | 07 45 82 e9 02 0a 85 b9 |".......|.E......|
|000020a0| 02 f6 f8 0e 12 86 b1 02 | da 0e 0a 0e 09 5c 22 21 |........|.....\"!|
|000020b0| f8 d9 f9 0d 5c 22 21 5c | 22 83 d3 02 fa 0e 0d 0e |....\"!\|".......|
|000020c0| 11 ce ce ce 0e 0b 0e 09 | 0e 0f 0e 0a 0e 10 26 0a |........|......&.|
|000020d0| 82 e9 02 fa 0e 0d 0e 11 | 0e 06 0e 07 0d 0e 0b 0e |........|........|
|000020e0| 09 0e 0f 0e 0a 0e 10 26 | 0a 82 32 04 0e 0f 3a 83 |.......&|..2...:.|
|000020f0| 2d 03 0e 0f 40 e7 3d 86 | 2a 03 0e 0f 40 e6 3d 3f |-...@.=.|*...@.=?|
|00002100| 85 2a 03 0e 0f 40 fb 3e | 83 26 03 e9 0e 0f 38 3a |.*...@.>|.&....8:|
|00002110| 83 1d 03 e9 0e 0f 38 40 | e7 3d 82 23 03 e9 0e 0f |......8@|.=.#....|
|00002120| 38 d7 56 82 2a 03 ec 0e | 0f 21 82 31 03 0e 0f d7 |8.V.*...|.!.1....|
|00002130| 56 85 79 03 0e 10 3a 83 | 75 03 0e 10 40 e7 3d 86 |V.y...:.|u...@.=.|
|00002140| 72 03 0e 10 40 e6 3d 3f | 85 72 03 0e 10 40 fc 3e |r...@.=?|.r...@.>|
|00002150| 83 6e 03 e9 0e 10 38 3a | 83 65 03 e9 0e 10 38 40 |.n....8:|.e....8@|
|00002160| e7 3d 82 6b 03 e9 0e 10 | 38 d7 56 82 72 03 ec 0e |.=.k....|8.V.r...|
|00002170| 10 21 82 79 03 0e 10 d7 | 56 86 09 04 0e 0f 3a 83 |.!.y....|V.....:.|
|00002180| bd 03 0e 0f 40 e6 3d 86 | ba 03 0e 0f 40 e7 3d 3f |....@.=.|....@.=?|
|00002190| 85 ba 03 0e 0f 40 fd 3e | 83 b6 03 e9 0e 0f 38 3a |.....@.>|......8:|
|000021a0| 83 ad 03 e9 0e 0f 38 40 | e6 3d 82 b3 03 e9 0e 0f |......8@|.=......|
|000021b0| 38 d7 57 82 ba 03 ea 0e | 0f 21 82 c1 03 0e 0f d7 |8.W.....|.!......|
|000021c0| 57 85 09 04 0e 10 3a 83 | 05 04 0e 10 40 e6 3d 86 |W.....:.|....@.=.|
|000021d0| 02 04 0e 10 40 e7 3d 3f | 85 02 04 0e 10 40 fe 3e |....@.=?|.....@.>|
|000021e0| 83 fe 03 e9 0e 10 38 3a | 83 f5 03 e9 0e 10 38 40 |......8:|......8@|
|000021f0| e6 3d 82 fb 03 e9 0e 10 | 38 d7 57 82 02 04 ea 0e |.=......|8.W.....|
|00002200| 10 21 82 09 04 0e 10 d7 | 57 83 1e 04 ff 0e 0d 0e |.!......|W.......|
|00002210| 11 0e 09 0e 0f 0e 0a 0e | 10 26 06 82 32 04 fa 0e |........|.&..2...|
|00002220| 0d 0e 11 ce ce ce 0e 0b | 0e 09 0e 0f 0e 0a 0e 10 |........|........|
|00002230| 26 0a 2e 06 87 22 20 5b | 76 61 72 2d 44 55 4d 4d |&...." [|var-DUMM|
|00002240| 59 20 67 75 65 73 73 20 | 62 65 74 74 65 72 20 74 |Y guess |better t|
|00002250| 20 70 6f 73 20 73 74 65 | 70 20 6e 65 78 74 20 76 | pos ste|p next v|
|00002260| 6e 65 78 74 20 63 61 6c | 63 2d 64 69 73 70 6c 61 |next cal|c-displa|
|00002270| 79 2d 77 6f 72 6b 69 6e | 67 2d 6d 65 73 73 61 67 |y-workin|g-messag|
|00002280| 65 20 6c 6f 77 20 68 69 | 67 68 20 6f 73 74 65 70 |e low hi|gh ostep|
|00002290| 20 76 67 75 65 73 73 20 | 65 78 70 72 20 6e 69 6c | vguess |expr nil|
|000022a0| 20 76 6c 6f 77 20 76 68 | 69 67 68 20 64 65 72 69 | vlow vh|igh deri|
|000022b0| 76 20 6f 6f 73 74 65 70 | 20 6c 6f 74 73 20 6d 61 |v oostep| lots ma|
|000022c0| 74 68 2d 64 6f 2d 77 6f | 72 6b 69 6e 67 20 22 6e |th-do-wo|rking "n|
|000022d0| 65 77 74 6f 6e 22 20 69 | 6e 74 76 20 30 20 22 62 |ewton" i|ntv 0 "b|
|000022e0| 69 73 65 63 74 22 20 6d | 61 74 68 2d 6d 75 6c 2d |isect" m|ath-mul-|
|000022f0| 66 6c 6f 61 74 20 6d 61 | 74 68 2d 73 75 62 2d 66 |float ma|th-sub-f|
|00002300| 6c 6f 61 74 20 28 66 6c | 6f 61 74 20 35 20 2d 31 |loat (fl|oat 5 -1|
|00002310| 29 20 6d 61 74 68 2d 61 | 64 64 2d 66 6c 6f 61 74 |) math-a|dd-float|
|00002320| 20 6d 61 74 68 2d 65 76 | 61 6c 75 61 74 65 2d 65 | math-ev|aluate-e|
|00002330| 78 70 72 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |xpr (big|pos bign|
|00002340| 65 67 20 66 72 61 63 20 | 66 6c 6f 61 74 29 20 28 |eg frac |float) (|
|00002350| 66 6c 6f 61 74 20 36 20 | 2d 31 29 20 6d 61 74 68 |float 6 |-1) math|
|00002360| 2d 72 65 61 6c 70 20 28 | 66 6c 6f 61 74 20 31 32 |-realp (|float 12|
|00002370| 33 34 35 36 20 2d 35 29 | 20 28 62 69 67 70 6f 73 |3456 -5)| (bigpos|
|00002380| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00002390| 61 74 29 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |at) math|-reject-|
|000023a0| 61 72 67 20 22 2a 4e 65 | 77 74 6f 6e 27 73 20 6d |arg "*Ne|wton's m|
|000023b0| 65 74 68 6f 64 20 65 6e | 63 6f 75 6e 74 65 72 65 |ethod en|countere|
|000023c0| 64 20 61 20 73 69 6e 67 | 75 6c 61 72 69 74 79 22 |d a sing|ularity"|
|000023d0| 20 6d 61 74 68 2d 66 6c | 6f 61 74 20 62 69 67 6e | math-fl|oat bign|
|000023e0| 65 67 20 62 69 67 70 6f | 73 20 28 66 72 61 63 20 |eg bigpo|s (frac |
|000023f0| 66 6c 6f 61 74 29 20 31 | 20 6d 61 74 68 2d 6e 65 |float) 1| math-ne|
|00002400| 67 70 20 28 66 72 61 63 | 20 66 6c 6f 61 74 29 20 |gp (frac| float) |
|00002410| 6d 61 74 68 2d 70 6f 73 | 70 20 28 66 72 61 63 20 |math-pos|p (frac |
|00002420| 66 6c 6f 61 74 29 20 28 | 62 69 67 70 6f 73 20 62 |float) (|bigpos b|
|00002430| 69 67 6e 65 67 29 20 66 | 6c 6f 61 74 20 6d 61 74 |igneg) f|loat mat|
|00002440| 68 2d 7a 65 72 6f 70 20 | 6d 61 74 68 2d 6e 65 61 |h-zerop |math-nea|
|00002450| 72 6c 79 2d 65 71 75 61 | 6c 20 76 65 63 20 28 62 |rly-equa|l vec (b|
|00002460| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00002470| 63 20 66 6c 6f 61 74 29 | 20 28 62 69 67 70 6f 73 |c float)| (bigpos|
|00002480| 20 62 69 67 6e 65 67 29 | 20 6d 61 74 68 2d 64 69 | bigneg)| math-di|
|00002490| 76 2d 66 6c 6f 61 74 20 | 6d 61 74 68 2d 6c 65 73 |v-float |math-les|
|000024a0| 73 70 2d 66 6c 6f 61 74 | 20 28 62 69 67 70 6f 73 |sp-float| (bigpos|
|000024b0| 20 62 69 67 6e 65 67 29 | 20 6d 61 74 68 2d 61 62 | bigneg)| math-ab|
|000024c0| 73 20 28 66 6c 6f 61 74 | 20 32 20 30 29 20 6d 61 |s (float| 2 0) ma|
|000024d0| 74 68 2d 6e 65 77 74 6f | 6e 2d 73 65 61 72 63 68 |th-newto|n-search|
|000024e0| 2d 72 6f 6f 74 20 28 66 | 72 61 63 20 66 6c 6f 61 |-root (f|rac floa|
|000024f0| 74 29 20 28 66 72 61 63 | 20 66 6c 6f 61 74 29 20 |t) (frac| float) |
|00002500| 28 66 72 61 63 20 66 6c | 6f 61 74 29 20 28 66 72 |(frac fl|oat) (fr|
|00002510| 61 63 20 66 6c 6f 61 74 | 29 20 6d 61 74 68 2d 73 |ac float|) math-s|
|00002520| 65 61 72 63 68 2d 72 6f | 6f 74 5d 20 35 33 29 29 |earch-ro|ot] 53))|
|00002530| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 73 65 |..(defun| math-se|
|00002540| 61 72 63 68 2d 72 6f 6f | 74 20 28 65 78 70 72 20 |arch-roo|t (expr |
|00002550| 64 65 72 69 76 20 6c 6f | 77 20 76 6c 6f 77 20 68 |deriv lo|w vlow h|
|00002560| 69 67 68 20 76 68 69 67 | 68 29 20 28 62 79 74 65 |igh vhig|h) (byte|
|00002570| 2d 63 6f 64 65 20 22 c7 | 18 09 83 39 01 db 09 dc |-code ".|...9....|
|00002580| 3d 83 13 00 0c dd 5c 5c | 82 14 00 de 09 dc 3d 83 |=.....\\|......=.|
|00002590| 1e 00 df 82 1f 00 e0 c7 | c7 c7 c7 1e 0a 1e 09 1e |........|........|
|000025a0| 08 1e 06 1d 1b 1a e1 0e | 0b 21 85 39 00 e1 0e 0c |........|.!.9....|
|000025b0| 21 86 47 00 e2 0e 0b 21 | 85 47 00 e2 0e 0c 21 85 |!.G....!|.G....!.|
|000025c0| 10 01 0e 0d e3 3d 85 5b | 00 e4 e5 e6 db 0e 0e 0e |.....=.[|........|
|000025d0| 0f 46 5c 22 88 0a 54 89 | 12 0b 56 85 6f 00 e7 e6 |.F\"..T.|..V.o...|
|000025e0| db 0e 0e 0e 0f 46 e8 5c | 22 88 0a 0c 55 85 79 00 |.....F.\|"...U.y.|
|000025f0| e9 89 15 88 ea eb 0e 0f | 0e 0e 5c 22 0d 5c 22 89 |........|..\".\".|
|00002600| 16 0a 88 0e 0a 3a 83 ae | 00 0e 0a 40 ec 3e 3f 85 |.....:..|...@.>?.|
|00002610| ab 00 0e 0a 40 ed 3d 83 | a7 00 ee 0e 0a 38 db 3d |....@.=.|.....8.=|
|00002620| 82 ab 00 ef 0e 0a 21 82 | b2 00 0e 0a db 3d 83 c0 |......!.|.....=..|
|00002630| 00 f0 0e 0f dd 5c 22 89 | 16 0f 82 0c 01 f1 f2 0e |.....\".|........|
|00002640| 0b 21 f2 0e 0c 21 5c 22 | 83 ee 00 d0 16 09 0e 0e |.!...!\"|........|
|00002650| 16 06 f3 0e 0e 0e 0a 5c | 22 16 0e 0e 0e 16 11 0e |.......\|".......|
|00002660| 0b 16 08 f4 0e 12 21 89 | 16 0b 82 0c 01 c7 16 09 |......!.|........|
|00002670| 0e 0f 16 06 f5 0e 0f 0e | 0a 5c 22 16 0f 0e 0f 16 |........|.\".....|
|00002680| 11 0e 0c 16 08 f4 0e 12 | 21 89 16 0c 88 82 2e 00 |........|!.......|
|00002690| 88 0e 06 85 30 01 0e 09 | 83 27 01 0e 06 16 0f 0e |....0...|.'......|
|000026a0| 08 89 16 0c 82 30 01 0e | 06 16 0e 0e 08 89 16 0b |.....0..|........|
|000026b0| 88 d0 89 10 2e 07 82 8b | 02 0e 0b 3a 3f 86 45 01 |........|...:?.E.|
|000026c0| 0e 0b 40 f6 3e 86 4d 01 | e7 0e 0b f7 5c 22 88 0e |..@.>.M.|....\"..|
|000026d0| 0c 3a 3f 86 5a 01 0e 0c | 40 f8 3e 86 62 01 e7 0e |.:?.Z...|@.>.b...|
|000026e0| 0c f7 5c 22 88 0e 0e 0e | 0f 44 0e 0b 0e 0c 44 0e |..\"....|.D....D.|
|000026f0| 0b 3a 83 ae 01 0e 0b 40 | f9 3d 86 ab 01 0e 0b 40 |.:.....@|.=.....@|
|00002700| fa 3d 3f 85 ab 01 0e 0b | 40 fb 3e 83 a7 01 ee 0e |.=?.....|@.>.....|
|00002710| 0b 38 3a 83 9e 01 ee 0e | 0b 38 40 f9 3d 82 a4 01 |.8:.....|.8@.=...|
|00002720| ee 0e 0b 38 db 56 82 ab | 01 e1 0e 0b 21 82 b2 01 |...8.V..|....!...|
|00002730| 0e 0b db 56 db eb 0e 0f | 0e 0e 5c 22 c7 c7 c7 1e |...V....|..\"....|
|00002740| 11 1e 19 1e 18 1e 17 1e | 16 1e 15 1e 14 1e 13 0e |........|........|
|00002750| 16 54 89 16 16 fc 58 85 | d9 01 08 3f 85 89 02 0e |.T....X.|...?....|
|00002760| 13 16 18 0e 14 16 19 ea | 0e 17 fd 5c 22 89 16 17 |........|...\"...|
|00002770| 88 0e 18 41 85 f5 01 08 | 3f 85 85 02 0e 19 40 3a |...A....|?.....@:|
|00002780| 3f 86 06 02 0e 19 40 40 | fe 3e 85 14 02 0e 18 40 |?.....@@|.>.....@|
|00002790| 16 0e 0e 19 40 89 16 0b | 88 ff 0e 18 40 0e 17 5c |....@...|....@..\|
|000027a0| 22 16 0f 0e 0f 16 11 f4 | 0e 12 21 89 16 0c 88 0e |".......|..!.....|
|000027b0| 0d e3 3d 85 38 02 e4 81 | 40 00 0e 0f 5c 22 88 0e |..=.8...|@...\"..|
|000027c0| 0c 3a 3f 86 47 02 0e 0c | 40 81 41 00 3e 85 51 02 |.:?.G...|@.A.>.Q.|
|000027d0| e2 0e 0c 21 0e 15 3d 83 | 5a 02 d0 89 10 82 81 02 |...!..=.|Z.......|
|000027e0| 81 42 00 0e 18 0e 0f 0e | 18 41 42 5c 22 88 81 42 |.B......|.AB\"..B|
|000027f0| 00 0e 19 0e 0c 0e 19 41 | 42 5c 22 88 0e 18 41 41 |.......A|B\"...AA|
|00002800| 16 18 0e 19 41 41 89 16 | 19 88 82 ed 01 88 82 cc |....AA..|........|
|00002810| 01 2e 08 88 08 83 34 03 | 0e 0c 3a 83 b9 02 0e 0c |......4.|..:.....|
|00002820| 40 81 43 00 3e 3f 85 b6 | 02 0e 0c 40 ed 3d 83 b2 |@.C.>?..|...@.=..|
|00002830| 02 ee 0e 0c 38 db 3d 82 | b6 02 ef 0e 0c 21 82 bd |....8.=.|.....!..|
|00002840| 02 0e 0c db 3d 83 cb 02 | 81 44 00 0e 0f 0e 0c 45 |....=...|.D.....E|
|00002850| 82 31 03 0e 0b 3a 83 f4 | 02 0e 0b 40 81 45 00 3e |.1...:..|...@.E.>|
|00002860| 3f 85 f1 02 0e 0b 40 ed | 3d 83 ed 02 ee 0e 0b 38 |?.....@.|=......8|
|00002870| db 3d 82 f1 02 ef 0e 0b | 21 82 f8 02 0e 0b db 3d |.=......|!......=|
|00002880| 83 06 03 81 44 00 0e 0e | 0e 0b 45 82 31 03 0e 1a |....D...|..E.1...|
|00002890| 83 23 03 81 46 00 0e 12 | 0e 1a c7 c7 c7 c7 0e 0e |.#..F...|........|
|000028a0| 0e 0b 0e 0f 0e 0c 26 0a | 82 31 03 81 47 00 0e 12 |......&.|.1..G...|
|000028b0| 0e 0e 0e 0b 0e 0f 0e 0c | 25 82 42 03 e7 e6 81 48 |........|%.B....H|
|000028c0| 00 0e 0e 0e 0f 46 81 49 | 00 5c 22 29 87 22 20 5b |.....F.I|.\")." [|
|000028d0| 66 6f 75 6e 64 20 72 6f | 6f 74 2d 77 69 64 65 6e |found ro|ot-widen|
|000028e0| 20 69 74 65 72 73 20 69 | 74 65 72 6c 69 6d 20 63 | iters i|terlim c|
|000028f0| 61 6c 63 2d 69 6e 74 65 | 72 6e 61 6c 2d 70 72 65 |alc-inte|rnal-pre|
|00002900| 63 20 66 61 63 74 6f 72 | 20 70 72 65 76 20 6e 69 |c factor| prev ni|
|00002910| 6c 20 76 70 72 65 76 20 | 77 61 73 6c 6f 77 20 64 |l vprev |waslow d|
|00002920| 69 66 66 20 76 6c 6f 77 | 20 76 68 69 67 68 20 63 |iff vlow| vhigh c|
|00002930| 61 6c 63 2d 64 69 73 70 | 6c 61 79 2d 77 6f 72 6b |alc-disp|lay-work|
|00002940| 69 6e 67 2d 6d 65 73 73 | 61 67 65 20 6c 6f 77 20 |ing-mess|age low |
|00002950| 68 69 67 68 20 74 20 76 | 61 72 2d 44 55 4d 4d 59 |high t v|ar-DUMMY|
|00002960| 20 65 78 70 72 20 78 76 | 61 6c 73 20 79 76 61 6c | expr xv|als yval|
|00002970| 73 20 70 6f 73 20 6c 65 | 76 65 6c 73 20 73 74 65 |s pos le|vels ste|
|00002980| 70 20 78 70 20 79 70 20 | 64 65 72 69 76 20 30 20 |p xp yp |deriv 0 |
|00002990| 70 6f 69 6e 74 20 31 30 | 20 32 30 20 28 66 6c 6f |point 10| 20 (flo|
|000029a0| 61 74 20 39 20 30 29 20 | 28 66 6c 6f 61 74 20 31 |at 9 0) |(float 1|
|000029b0| 36 20 2d 31 29 20 6d 61 | 74 68 2d 70 6f 73 70 20 |6 -1) ma|th-posp |
|000029c0| 6d 61 74 68 2d 6e 65 67 | 70 20 6c 6f 74 73 20 6d |math-neg|p lots m|
|000029d0| 61 74 68 2d 64 6f 2d 77 | 6f 72 6b 69 6e 67 20 22 |ath-do-w|orking "|
|000029e0| 77 69 64 65 6e 22 20 69 | 6e 74 76 20 6d 61 74 68 |widen" i|ntv math|
|000029f0| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 22 2a 55 6e |-reject-|arg "*Un|
|00002a00| 61 62 6c 65 20 74 6f 20 | 62 72 61 63 6b 65 74 20 |able to |bracket |
|00002a10| 72 6f 6f 74 22 20 28 66 | 6c 6f 61 74 20 31 36 20 |root" (f|loat 16 |
|00002a20| 2d 31 29 20 6d 61 74 68 | 2d 6d 75 6c 2d 66 6c 6f |-1) math|-mul-flo|
|00002a30| 61 74 20 6d 61 74 68 2d | 73 75 62 2d 66 6c 6f 61 |at math-|sub-floa|
|00002a40| 74 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |t (bigpo|s bigneg|
|00002a50| 29 20 66 6c 6f 61 74 20 | 31 20 6d 61 74 68 2d 7a |) float |1 math-z|
|00002a60| 65 72 6f 70 20 63 61 6c | 63 46 75 6e 63 2d 69 6e |erop cal|cFunc-in|
|00002a70| 63 72 20 6d 61 74 68 2d | 6c 65 73 73 70 2d 66 6c |cr math-|lessp-fl|
|00002a80| 6f 61 74 20 6d 61 74 68 | 2d 61 62 73 20 6d 61 74 |oat math|-abs mat|
|00002a90| 68 2d 73 75 62 20 6d 61 | 74 68 2d 65 76 61 6c 75 |h-sub ma|th-evalu|
|00002aa0| 61 74 65 2d 65 78 70 72 | 20 6d 61 74 68 2d 61 64 |ate-expr| math-ad|
|00002ab0| 64 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |d (bigpo|s bigneg|
|00002ac0| 20 66 72 61 63 20 66 6c | 6f 61 74 29 20 72 65 61 | frac fl|oat) rea|
|00002ad0| 6c 70 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |lp (bigp|os bigne|
|00002ae0| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 29 20 62 69 |g frac f|loat) bi|
|00002af0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 28 66 72 61 |gpos big|neg (fra|
|00002b00| 63 20 66 6c 6f 61 74 29 | 20 35 20 28 66 6c 6f 61 |c float)| 5 (floa|
|00002b10| 74 20 34 39 37 20 2d 33 | 29 20 28 62 69 67 70 6f |t 497 -3|) (bigpo|
|00002b20| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|00002b30| 6f 61 74 29 20 6d 61 74 | 68 2d 61 64 64 2d 66 6c |oat) mat|h-add-fl|
|00002b40| 6f 61 74 20 22 73 65 61 | 72 63 68 22 20 28 62 69 |oat "sea|rch" (bi|
|00002b50| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|00002b60| 20 66 6c 6f 61 74 29 20 | 73 65 74 63 64 72 20 28 | float) |setcdr (|
|00002b70| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 29 20 76 |bigpos b|igneg) v|
|00002b80| 65 63 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |ec (bigp|os bigne|
|00002b90| 67 29 20 6d 61 74 68 2d | 6e 65 77 74 6f 6e 2d 73 |g) math-|newton-s|
|00002ba0| 65 61 72 63 68 2d 72 6f | 6f 74 20 6d 61 74 68 2d |earch-ro|ot math-|
|00002bb0| 62 69 73 65 63 74 2d 72 | 6f 6f 74 20 33 20 22 2a |bisect-r|oot 3 "*|
|00002bc0| 55 6e 61 62 6c 65 20 74 | 6f 20 66 69 6e 64 20 61 |Unable t|o find a|
|00002bd0| 20 73 69 67 6e 20 63 68 | 61 6e 67 65 20 69 6e 20 | sign ch|ange in |
|00002be0| 74 68 69 73 20 69 6e 74 | 65 72 76 61 6c 22 5d 20 |this int|erval"] |
|00002bf0| 34 31 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 |41))..(d|efun mat|
|00002c00| 68 2d 62 69 73 65 63 74 | 2d 72 6f 6f 74 20 28 65 |h-bisect|-root (e|
|00002c10| 78 70 72 20 6c 6f 77 20 | 76 6c 6f 77 20 68 69 67 |xpr low |vlow hig|
|00002c20| 68 20 76 68 69 67 68 29 | 20 28 62 79 74 65 2d 63 |h vhigh)| (byte-c|
|00002c30| 6f 64 65 20 22 cb 09 0a | 5c 22 0c 3a 83 3d 00 0c |ode "...|\".:.=..|
|00002c40| 40 cc 3d 86 3a 00 0c 40 | cd 3d 3f 85 3a 00 0c 40 |@.=.:..@|.=?.:..@|
|00002c50| ce 3e 83 37 00 cf 0c 38 | 3a 83 2f 00 cf 0c 38 40 |.>.7...8|:./...8@|
|00002c60| cc 3d 82 34 00 cf 0c 38 | d0 56 82 3a 00 d1 0c 21 |.=.4...8|.V.:...!|
|00002c70| 82 40 00 0c d0 56 d2 d2 | d2 1e 07 1e 06 1d 1b 18 |.@...V..|........|
|00002c80| d3 0a d4 08 d5 5c 22 10 | d6 0a 08 5c 22 89 16 06 |.....\".|...\"...|
|00002c90| 5c 22 86 92 00 0e 06 15 | d7 0e 08 21 89 16 07 88 |\"......|...!....|
|00002ca0| 0e 07 3a 83 8e 00 0e 07 | 40 d8 3e 3f 85 8b 00 0e |..:.....|@.>?....|
|00002cb0| 07 40 d9 3d 83 87 00 cf | 0e 07 38 d0 3d 82 8b 00 |.@.=....|..8.=...|
|00002cc0| da 0e 07 21 82 92 00 0e | 07 d0 3d 3f 85 03 01 0e |...!....|..=?....|
|00002cd0| 09 db 3d 85 a2 00 dc dd | 0e 06 5c 22 88 0e 07 3a |..=.....|..\"...:|
|00002ce0| 83 e4 00 0e 07 40 cc 3d | 86 e1 00 0e 07 40 cd 3d |.....@.=|.....@.=|
|00002cf0| 3f 85 e1 00 0e 07 40 de | 3e 83 dd 00 cf 0e 07 38 |?.....@.|>......8|
|00002d00| 3a 83 d4 00 cf 0e 07 38 | 40 cc 3d 82 da 00 cf 0e |:......8|@.=.....|
|00002d10| 07 38 d0 56 82 e1 00 d1 | 0e 07 21 82 e8 00 0e 07 |.8.V....|..!.....|
|00002d20| d0 56 0b 3d 83 f7 00 0e | 06 11 0e 07 89 14 82 ff |.V.=....|........|
|00002d30| 00 0e 06 12 0e 07 89 16 | 0a 88 82 4a 00 88 df 0e |........|...J....|
|00002d40| 06 0e 07 45 2d 87 22 20 | 5b 73 74 65 70 20 68 69 |...E-." |[step hi|
|00002d50| 67 68 20 6c 6f 77 20 70 | 6f 73 20 76 68 69 67 68 |gh low p|os vhigh|
|00002d60| 20 76 61 72 2d 44 55 4d | 4d 59 20 6d 69 64 20 76 | var-DUM|MY mid v|
|00002d70| 6d 69 64 20 65 78 70 72 | 20 63 61 6c 63 2d 64 69 |mid expr| calc-di|
|00002d80| 73 70 6c 61 79 2d 77 6f | 72 6b 69 6e 67 2d 6d 65 |splay-wo|rking-me|
|00002d90| 73 73 61 67 65 20 76 6c | 6f 77 20 6d 61 74 68 2d |ssage vl|ow math-|
|00002da0| 73 75 62 2d 66 6c 6f 61 | 74 20 62 69 67 70 6f 73 |sub-floa|t bigpos|
|00002db0| 20 62 69 67 6e 65 67 20 | 28 66 72 61 63 20 66 6c | bigneg |(frac fl|
|00002dc0| 6f 61 74 29 20 31 20 30 | 20 6d 61 74 68 2d 70 6f |oat) 1 0| math-po|
|00002dd0| 73 70 20 6e 69 6c 20 6d | 61 74 68 2d 6e 65 61 72 |sp nil m|ath-near|
|00002de0| 6c 79 2d 65 71 75 61 6c | 20 6d 61 74 68 2d 6d 75 |ly-equal| math-mu|
|00002df0| 6c 2d 66 6c 6f 61 74 20 | 28 66 6c 6f 61 74 20 35 |l-float |(float 5|
|00002e00| 20 2d 31 29 20 6d 61 74 | 68 2d 61 64 64 2d 66 6c | -1) mat|h-add-fl|
|00002e10| 6f 61 74 20 6d 61 74 68 | 2d 65 76 61 6c 75 61 74 |oat math|-evaluat|
|00002e20| 65 2d 65 78 70 72 20 28 | 62 69 67 70 6f 73 20 62 |e-expr (|bigpos b|
|00002e30| 69 67 6e 65 67 29 20 66 | 6c 6f 61 74 20 6d 61 74 |igneg) f|loat mat|
|00002e40| 68 2d 7a 65 72 6f 70 20 | 6c 6f 74 73 20 6d 61 74 |h-zerop |lots mat|
|00002e50| 68 2d 64 6f 2d 77 6f 72 | 6b 69 6e 67 20 22 62 69 |h-do-wor|king "bi|
|00002e60| 73 65 63 74 22 20 28 66 | 72 61 63 20 66 6c 6f 61 |sect" (f|rac floa|
|00002e70| 74 29 20 76 65 63 5d 20 | 31 32 29 29 0a 0a 28 64 |t) vec] |12))..(d|
|00002e80| 65 66 75 6e 20 6d 61 74 | 68 2d 6e 65 77 74 6f 6e |efun mat|h-newton|
|00002e90| 2d 6d 75 6c 74 69 20 28 | 65 78 70 72 20 6a 61 63 |-multi (|expr jac|
|00002ea0| 6f 62 20 6e 20 67 75 65 | 73 73 20 6f 72 69 67 2d |ob n gue|ss orig-|
|00002eb0| 67 75 65 73 73 20 6c 69 | 6d 69 74 29 20 28 62 79 |guess li|mit) (by|
|00002ec0| 74 65 2d 63 6f 64 65 20 | 22 cf 0a ce ce ce ce 1e |te-code |".......|
|00002ed0| 06 1d 1c 1b 19 18 09 41 | 11 08 54 89 10 0e 07 57 |.......A|..T....W|
|00002ee0| 85 27 00 d0 0e 08 08 48 | 38 09 40 4c 88 82 0d 00 |.'.....H|8.@L....|
|00002ef0| 88 d1 0e 09 21 14 d1 0e | 0a 21 89 15 88 d2 0c 21 |....!...|.!.....!|
|00002f00| 85 3d 00 d2 0d 21 86 44 | 00 d3 0a d4 5c 22 88 d5 |.=...!.D|....\"..|
|00002f10| 0a d6 d7 d8 0c 21 21 d7 | 0d 21 5c 22 5c 22 16 06 |.....!!.|.!\"\"..|
|00002f20| 0a 11 0e 06 89 13 88 0e | 0b d9 3d 85 67 00 da db |........|..=.g...|
|00002f30| 0e 06 5c 22 88 09 41 11 | 0b 41 89 13 85 78 00 dc |..\"..A.|.A...x..|
|00002f40| 09 40 0b 40 5c 22 85 80 | 00 ce 88 82 68 00 88 09 |.@.@\"..|....h...|
|00002f50| 83 af 00 dd de df 0e 06 | 0e 0c 5c 22 21 0e 0d 5c |........|..\"!..\|
|00002f60| 22 cf 55 83 a8 00 e0 0e | 09 0e 0a 0e 07 0e 06 0e |".U.....|........|
|00002f70| 0c 0e 0d 26 06 82 ac 00 | d3 ce e1 5c 22 82 b4 00 |...&....|...\"...|
|00002f80| e2 0e 06 0c 45 2e 06 87 | 22 20 5b 6d 20 70 20 67 |....E...|" [m p g|
|00002f90| 75 65 73 73 20 70 32 20 | 65 78 70 72 2d 76 61 6c |uess p2 |expr-val|
|00002fa0| 20 6a 61 63 6f 62 2d 76 | 61 6c 20 6e 65 78 74 20 | jacob-v|al next |
|00002fb0| 6e 20 6d 61 74 68 2d 72 | 6f 6f 74 2d 76 61 72 73 |n math-r|oot-vars|
|00002fc0| 20 65 78 70 72 20 6a 61 | 63 6f 62 20 63 61 6c 63 | expr ja|cob calc|
|00002fd0| 2d 64 69 73 70 6c 61 79 | 2d 77 6f 72 6b 69 6e 67 |-display|-working|
|00002fe0| 2d 6d 65 73 73 61 67 65 | 20 6f 72 69 67 2d 67 75 |-message| orig-gu|
|00002ff0| 65 73 73 20 6c 69 6d 69 | 74 20 6e 69 6c 20 2d 31 |ess limi|t nil -1|
|00003000| 20 32 20 6d 61 74 68 2d | 65 76 61 6c 75 61 74 65 | 2 math-|evaluate|
|00003010| 2d 65 78 70 72 20 6d 61 | 74 68 2d 63 6f 6e 73 74 |-expr ma|th-const|
|00003020| 70 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |p math-r|eject-ar|
|00003030| 67 20 22 2a 4e 65 77 74 | 6f 6e 27 73 20 6d 65 74 |g "*Newt|on's met|
|00003040| 68 6f 64 20 65 6e 63 6f | 75 6e 74 65 72 65 64 20 |hod enco|untered |
|00003050| 61 20 73 69 6e 67 75 6c | 61 72 69 74 79 22 20 6d |a singul|arity" m|
|00003060| 61 74 68 2d 61 64 64 20 | 6d 61 74 68 2d 64 69 76 |ath-add |math-div|
|00003070| 20 6d 61 74 68 2d 66 6c | 6f 61 74 20 6d 61 74 68 | math-fl|oat math|
|00003080| 2d 6e 65 67 20 6c 6f 74 | 73 20 6d 61 74 68 2d 64 |-neg lot|s math-d|
|00003090| 6f 2d 77 6f 72 6b 69 6e | 67 20 22 6e 65 77 74 6f |o-workin|g "newto|
|000030a0| 6e 22 20 6d 61 74 68 2d | 6e 65 61 72 6c 79 2d 65 |n" math-|nearly-e|
|000030b0| 71 75 61 6c 20 6d 61 74 | 68 2d 63 6f 6d 70 61 72 |qual mat|h-compar|
|000030c0| 65 20 6d 61 74 68 2d 61 | 62 73 2d 61 70 70 72 6f |e math-a|bs-appro|
|000030d0| 78 20 6d 61 74 68 2d 73 | 75 62 20 6d 61 74 68 2d |x math-s|ub math-|
|000030e0| 6e 65 77 74 6f 6e 2d 6d | 75 6c 74 69 20 22 2a 4e |newton-m|ulti "*N|
|000030f0| 65 77 74 6f 6e 27 73 20 | 6d 65 74 68 6f 64 20 66 |ewton's |method f|
|00003100| 61 69 6c 65 64 20 74 6f | 20 63 6f 6e 76 65 72 67 |ailed to| converg|
|00003110| 65 22 20 76 65 63 5d 20 | 32 32 29 29 0a 0a 28 64 |e" vec] |22))..(d|
|00003120| 65 66 76 61 72 20 6d 61 | 74 68 2d 72 6f 6f 74 2d |efvar ma|th-root-|
|00003130| 76 61 72 73 20 5b 28 76 | 61 72 20 44 55 4d 4d 59 |vars [(v|ar DUMMY|
|00003140| 20 76 61 72 2d 44 55 4d | 4d 59 29 5d 29 0a 0a 28 | var-DUM|MY)])..(|
|00003150| 64 65 66 75 6e 20 6d 61 | 74 68 2d 66 69 6e 64 2d |defun ma|th-find-|
|00003160| 72 6f 6f 74 20 28 65 78 | 70 72 20 76 61 72 20 67 |root (ex|pr var g|
|00003170| 75 65 73 73 20 72 6f 6f | 74 2d 77 69 64 65 6e 29 |uess roo|t-widen)|
|00003180| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 d7 08 21 | (byte-c|ode "..!|
|00003190| d8 3d 83 c4 01 08 47 53 | c3 c3 d8 43 c3 c3 c3 c3 |.=....GS|...C....|
|000031a0| 1e 09 1e 08 1e 07 1e 06 | 1d 1c 1a 19 d7 0e 0a 21 |........|.......!|
|000031b0| d8 3d 86 2d 00 d9 0e 0a | da 5c 22 88 0e 0a 47 09 |.=.-....|.\"...G.|
|000031c0| 54 55 86 39 00 db 20 88 | dc 08 21 89 10 88 09 0e |TU.9.. .|..!.....|
|000031d0| 0b 47 59 85 67 00 dd de | df 0e 0b 47 21 50 21 1e |.GY.g...|...G!P!.|
|000031e0| 0c e0 0e 0b e1 ca 0e 0c | 0e 0c 45 21 5c 22 89 16 |........|..E!\"..|
|000031f0| 0b 29 88 82 40 00 88 e2 | 89 16 08 88 0e 08 54 89 |.)..@...|......T.|
|00003200| 16 08 09 57 85 85 00 e3 | 0e 0b 0e 08 48 38 c3 4c |...W....|....H8.L|
|00003210| 88 82 6d 00 88 e2 16 08 | 0e 0a 89 16 06 88 0e 08 |..m.....|........|
|00003220| 54 16 08 0e 06 41 89 16 | 06 85 d4 00 d7 0e 06 40 |T....A..|.......@|
|00003230| 21 ca 3d 86 ac 00 d9 0e | 0a e4 5c 22 88 08 89 16 |!.=.....|..\"....|
|00003240| 07 88 0e 07 41 89 16 07 | 85 d0 00 e5 0e 07 e6 0e |....A...|........|
|00003250| 07 40 0e 06 40 0e 0b 0e | 08 48 23 5c 22 88 82 b2 |.@..@...|.H#\"...|
|00003260| 00 88 82 8f 00 88 d7 0e | 0d 21 d8 3d 86 e3 00 d9 |........|.!.=....|
|00003270| 0e 0d da 5c 22 88 0e 0d | 47 09 54 55 86 ef 00 db |...\"...|G.TU....|
|00003280| 20 88 dc 0e 0d 21 16 0d | 0e 0d 89 16 06 88 0e 06 | ....!..|........|
|00003290| 41 89 16 06 85 29 01 0e | 0d 40 3a 3f 86 13 01 0e |A....)..|.@:?....|
|000032a0| 0d 40 40 e7 3e 86 1b 01 | d9 0e 0d e8 5c 22 88 e5 |.@@.>...|....\"..|
|000032b0| 0e 06 e9 0e 06 40 21 5c | 22 88 82 fc 00 88 08 89 |.....@!\|".......|
|000032c0| 16 06 88 0e 06 41 89 16 | 06 85 9c 01 ea d7 0e 06 |.....A..|........|
|000032d0| 40 21 0e 0e 5c 22 85 54 | 01 e5 0e 06 eb ec 0e 06 |@!..\".T|........|
|000032e0| 40 38 e3 0e 06 40 38 5c | 22 5c 22 88 e5 0e 06 ed |@8...@8\|"\".....|
|000032f0| 0e 06 40 21 5c 22 88 d8 | 43 16 09 e2 89 16 08 88 |..@!\"..|C.......|
|00003300| 0e 08 54 89 16 08 09 57 | 85 91 01 ee 0e 09 ed ef |..T....W|........|
|00003310| 0e 06 40 0e 0b 0e 08 48 | c3 cf 24 86 8a 01 d9 08 |..@....H|..$.....|
|00003320| f0 5c 22 21 43 5c 22 88 | 82 68 01 88 ee 0d 0e 09 |.\"!C\".|.h......|
|00003330| 43 5c 22 88 82 2f 01 88 | f1 0e 0d 21 89 16 08 88 |C\"../..|...!....|
|00003340| f2 08 0d 09 0e 0d 0e 0d | f3 0e 08 21 83 b8 01 f4 |........|...!....|
|00003350| 82 bd 01 f5 0e 08 f6 5c | 22 26 06 2e 08 82 71 05 |.......\|"&....q.|
|00003360| d7 0e 0a 21 ca 3d 86 d2 | 01 d9 0e 0a e4 5c 22 88 |...!.=..|.....\".|
|00003370| f7 08 0e 0a 5c 22 86 df | 01 d9 08 f8 5c 22 88 ea |....\"..|....\"..|
|00003380| 08 40 0e 0e 5c 22 85 f3 | 01 eb ec 08 38 e3 08 38 |.@..\"..|....8..8|
|00003390| 5c 22 89 10 88 f9 0e 10 | e3 5c 5c 1e 10 e6 08 0e |\"......|.\\.....|
|000033a0| 0a fa 23 89 10 88 c3 1a | c3 1c ed 08 21 18 ef 08 |..#.....|....!...|
|000033b0| fb c3 cf 24 1e 11 c3 1e | 12 c3 1e 13 c3 1e 14 c3 |...$....|........|
|000033c0| 1e 15 0e 11 85 2c 02 ed | 0e 11 21 89 16 11 88 e9 |.....,..|..!.....|
|000033d0| 0e 0d 21 89 16 0d 88 fc | 0e 0d 21 85 3e 02 0e 11 |..!.....|..!.>...|
|000033e0| 83 5f 02 fd 08 0e 11 0e | 0d 0e 0d f3 0e 0d 21 83 |._......|......!.|
|000033f0| 54 02 fe 82 5b 02 f5 f1 | 0e 0d 21 ff 5c 22 25 82 |T...[...|..!.\"%.|
|00003400| 6d 05 0e 0d 3a 3f 86 6d | 02 0e 0d 40 81 40 00 3e |m...:?.m|...@.@.>|
|00003410| 83 8d 02 0e 0d 16 12 0e | 0d 16 13 0e 0d 14 ed 08 |........|........|
|00003420| 21 16 14 0e 14 16 15 81 | 41 00 89 16 16 82 14 03 |!.......|A.......|
|00003430| 0e 0d 40 81 42 00 3d 83 | fc 02 81 43 00 0e 0d 21 |..@.B.=.|...C...!|
|00003440| 86 a7 02 d9 0e 0d 81 44 | 00 5c 22 88 e3 0e 0d 38 |.......D|.\"....8|
|00003450| 16 12 81 45 00 0e 0d 38 | 89 16 13 88 ec 0e 0d 38 |...E...8|.......8|
|00003460| 81 46 00 3e 85 cf 02 81 | 47 00 0e 12 ec 0e 13 23 |.F.>....|G......#|
|00003470| 89 16 12 88 ec 0e 0d 38 | 81 48 00 3e 85 e7 02 81 |.......8|.H.>....|
|00003480| 47 00 0e 13 e2 0e 12 23 | 89 16 13 88 0e 12 14 ed |G......#|........|
|00003490| 08 21 16 14 0e 13 14 ed | 08 21 89 16 15 82 14 03 |.!......|.!......|
|000034a0| 81 49 00 0e 0d 21 83 0d | 03 d9 81 4a 00 21 82 14 |.I...!..|...J.!..|
|000034b0| 03 d9 0e 0d 81 4b 00 5c | 22 88 0e 14 3a 83 42 03 |.....K.\|"...:.B.|
|000034c0| 0e 14 40 81 4c 00 3e 3f | 85 3f 03 0e 14 40 81 4d |..@.L.>?|.?...@.M|
|000034d0| 00 3d 83 3b 03 ec 0e 14 | 38 81 4e 00 3d 82 3f 03 |.=.;....|8.N.=.?.|
|000034e0| f3 0e 14 21 82 48 03 0e | 14 81 4e 00 3d 83 54 03 |...!.H..|..N.=.T.|
|000034f0| d8 0e 12 0e 14 45 82 6d | 05 0e 15 3a 83 81 03 0e |.....E.m|...:....|
|00003500| 15 40 81 4f 00 3e 3f 85 | 7e 03 0e 15 40 81 4d 00 |.@.O.>?.|~...@.M.|
|00003510| 3d 83 7a 03 ec 0e 15 38 | 81 4e 00 3d 82 7e 03 f3 |=.z....8|.N.=.~..|
|00003520| 0e 15 21 82 87 03 0e 15 | 81 4e 00 3d 83 93 03 d8 |..!.....|.N.=....|
|00003530| 0e 13 0e 15 45 82 6d 05 | 0e 11 85 b7 03 0e 14 3a |....E.m.|.......:|
|00003540| 3f 86 a6 03 0e 14 40 81 | 50 00 3e 85 b7 03 0e 15 |?.....@.|P.>.....|
|00003550| 3a 3f 86 b7 03 0e 15 40 | 81 51 00 3e 83 d1 03 81 |:?.....@|.Q.>....|
|00003560| 52 00 08 0e 11 c3 c3 c3 | c3 0e 12 0e 14 0e 13 0e |R.......|........|
|00003570| 15 26 0a 82 6d 05 0e 14 | 3a 83 1e 04 0e 14 40 81 |.&..m...|:.....@.|
|00003580| 53 00 3d 86 1b 04 0e 14 | 40 81 54 00 3d 3f 85 1b |S.=.....|@.T.=?..|
|00003590| 04 0e 14 40 81 55 00 3e | 83 15 04 ec 0e 14 38 3a |...@.U.>|......8:|
|000035a0| 83 0a 04 ec 0e 14 38 40 | 81 53 00 3d 82 12 04 ec |......8@|.S.=....|
|000035b0| 0e 14 38 81 4e 00 56 82 | 1b 04 81 56 00 0e 14 21 |..8.N.V.|...V...!|
|000035c0| 82 24 04 0e 14 81 4e 00 | 56 85 7a 04 0e 15 3a 83 |.$....N.|V.z...:.|
|000035d0| 74 04 0e 15 40 81 53 00 | 3d 86 71 04 0e 15 40 81 |t...@.S.|=.q...@.|
|000035e0| 54 00 3d 3f 85 71 04 0e | 15 40 81 57 00 3e 83 6b |T.=?.q..|.@.W.>.k|
|000035f0| 04 ec 0e 15 38 3a 83 60 | 04 ec 0e 15 38 40 81 53 |....8:.`|....8@.S|
|00003600| 00 3d 82 68 04 ec 0e 15 | 38 81 4e 00 56 82 71 04 |.=.h....|8.N.V.q.|
|00003610| 81 56 00 0e 15 21 82 7a | 04 0e 15 81 4e 00 56 86 |.V...!.z|....N.V.|
|00003620| 4a 05 0e 14 3a 83 ca 04 | 0e 14 40 81 54 00 3d 86 |J...:...|..@.T.=.|
|00003630| c7 04 0e 14 40 81 53 00 | 3d 3f 85 c7 04 0e 14 40 |....@.S.|=?.....@|
|00003640| 81 58 00 3e 83 c1 04 ec | 0e 14 38 3a 83 b6 04 ec |.X.>....|..8:....|
|00003650| 0e 14 38 40 81 54 00 3d | 82 be 04 ec 0e 14 38 81 |..8@.T.=|......8.|
|00003660| 4e 00 57 82 c7 04 81 59 | 00 0e 14 21 82 d0 04 0e |N.W....Y|...!....|
|00003670| 14 81 4e 00 57 85 26 05 | 0e 15 3a 83 20 05 0e 15 |..N.W.&.|..:. ...|
|00003680| 40 81 54 00 3d 86 1d 05 | 0e 15 40 81 53 00 3d 3f |@.T.=...|..@.S.=?|
|00003690| 85 1d 05 0e 15 40 81 5a | 00 3e 83 17 05 ec 0e 15 |.....@.Z|.>......|
|000036a0| 38 3a 83 0c 05 ec 0e 15 | 38 40 81 54 00 3d 82 14 |8:......|8@.T.=..|
|000036b0| 05 ec 0e 15 38 81 4e 00 | 57 82 1d 05 81 59 00 0e |....8.N.|W....Y..|
|000036c0| 15 21 82 26 05 0e 15 81 | 4e 00 57 86 4a 05 0e 14 |.!.&....|N.W.J...|
|000036d0| 3a 3f 86 37 05 0e 14 40 | 81 5b 00 3e 3f 86 4a 05 |:?.7...@|.[.>?.J.|
|000036e0| 0e 15 3a 3f 86 49 05 0e | 15 40 81 5c 5c 00 3e 3f |..:?.I..|.@.\\.>?|
|000036f0| 83 60 05 81 5d 00 08 0e | 11 0e 12 0e 14 0e 13 0e |.`..]...|........|
|00003700| 15 26 06 82 6d 05 81 5e | 00 08 0e 12 0e 14 0e 13 |.&..m..^|........|
|00003710| 0e 15 25 2e 08 29 21 87 | 22 20 5b 65 78 70 72 20 |..%..)!.|" [expr |
|00003720| 6e 20 63 61 6c 63 2d 73 | 79 6d 62 6f 6c 69 63 2d |n calc-s|ymbolic-|
|00003730| 6d 6f 64 65 20 6e 69 6c | 20 76 61 72 2d 44 55 4d |mode nil| var-DUM|
|00003740| 4d 59 20 6a 61 63 6f 62 | 20 70 20 70 32 20 6d 20 |MY jacob| p p2 m |
|00003750| 72 6f 77 20 76 61 72 20 | 6d 61 74 68 2d 72 6f 6f |row var |math-roo|
|00003760| 74 2d 76 61 72 73 20 73 | 79 6d 62 20 67 75 65 73 |t-vars s|ymb gues|
|00003770| 73 20 63 61 6c 63 2d 74 | 77 65 61 6b 2d 65 71 6e |s calc-t|weak-eqn|
|00003780| 2d 74 61 62 6c 65 20 74 | 20 63 61 6c 63 2d 69 6e |-table t| calc-in|
|00003790| 74 65 72 6e 61 6c 2d 70 | 72 65 63 20 64 65 72 69 |ternal-p|rec deri|
|000037a0| 76 20 6c 6f 77 20 68 69 | 67 68 20 76 6c 6f 77 20 |v low hi|gh vlow |
|000037b0| 76 68 69 67 68 20 72 6f | 6f 74 2d 77 69 64 65 6e |vhigh ro|ot-widen|
|000037c0| 20 63 61 72 2d 73 61 66 | 65 20 76 65 63 20 6d 61 | car-saf|e vec ma|
|000037d0| 74 68 2d 72 65 6a 65 63 | 74 2d 61 72 67 20 76 65 |th-rejec|t-arg ve|
|000037e0| 63 74 6f 72 70 20 6d 61 | 74 68 2d 64 69 6d 65 6e |ctorp ma|th-dimen|
|000037f0| 73 69 6f 6e 2d 65 72 72 | 6f 72 20 63 6f 70 79 2d |sion-err|or copy-|
|00003800| 73 65 71 75 65 6e 63 65 | 20 69 6e 74 65 72 6e 20 |sequence| intern |
|00003810| 22 6d 61 74 68 2d 72 6f | 6f 74 2d 76 22 20 69 6e |"math-ro|ot-v" in|
|00003820| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 76 63 6f 6e |t-to-str|ing vcon|
|00003830| 63 61 74 20 76 65 63 74 | 6f 72 20 2d 31 20 32 20 |cat vect|or -1 2 |
|00003840| 22 2a 45 78 70 65 63 74 | 65 64 20 61 20 76 61 72 |"*Expect|ed a var|
|00003850| 69 61 62 6c 65 22 20 73 | 65 74 63 61 72 20 6d 61 |iable" s|etcar ma|
|00003860| 74 68 2d 65 78 70 72 2d | 73 75 62 73 74 20 28 62 |th-expr-|subst (b|
|00003870| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 20 66 72 61 |igpos bi|gneg fra|
|00003880| 63 20 66 6c 6f 61 74 20 | 63 70 6c 78 20 70 6f 6c |c float |cplx pol|
|00003890| 61 72 29 20 6e 75 6d 62 | 65 72 70 20 6d 61 74 68 |ar) numb|erp math|
|000038a0| 2d 66 6c 6f 61 74 20 61 | 73 73 71 20 6d 61 74 68 |-float a|ssq math|
|000038b0| 2d 73 75 62 20 31 20 6d | 61 74 68 2d 65 76 61 6c |-sub 1 m|ath-eval|
|000038c0| 75 61 74 65 2d 65 78 70 | 72 20 6e 63 6f 6e 63 20 |uate-exp|r nconc |
|000038d0| 63 61 6c 63 46 75 6e 63 | 2d 64 65 72 69 76 20 22 |calcFunc|-deriv "|
|000038e0| 2a 46 6f 72 6d 75 6c 61 | 73 20 6d 75 73 74 20 62 |*Formula|s must b|
|000038f0| 65 20 64 69 66 66 65 72 | 65 6e 74 69 61 62 6c 65 |e differ|entiable|
|00003900| 22 20 6d 61 74 68 2d 61 | 62 73 2d 61 70 70 72 6f |" math-a|bs-appro|
|00003910| 78 20 6d 61 74 68 2d 6e | 65 77 74 6f 6e 2d 6d 75 |x math-n|ewton-mu|
|00003920| 6c 74 69 20 6d 61 74 68 | 2d 7a 65 72 6f 70 20 28 |lti math|-zerop (|
|00003930| 66 6c 6f 61 74 20 31 20 | 33 29 20 6d 61 74 68 2d |float 1 |3) math-|
|00003940| 6d 75 6c 20 31 30 20 6d | 61 74 68 2d 65 78 70 72 |mul 10 m|ath-expr|
|00003950| 2d 63 6f 6e 74 61 69 6e | 73 20 22 2a 46 6f 72 6d |-contain|s "*Form|
|00003960| 75 6c 61 20 64 6f 65 73 | 20 6e 6f 74 20 63 6f 6e |ula does| not con|
|00003970| 74 61 69 6e 20 73 70 65 | 63 69 66 69 65 64 20 76 |tain spe|cified v|
|00003980| 61 72 69 61 62 6c 65 22 | 20 6d 61 74 68 2d 6e 6f |ariable"| math-no|
|00003990| 72 6d 61 6c 69 7a 65 20 | 28 76 61 72 20 44 55 4d |rmalize |(var DUM|
|000039a0| 4d 59 20 76 61 72 2d 44 | 55 4d 4d 59 29 20 28 76 |MY var-D|UMMY) (v|
|000039b0| 61 72 20 44 55 4d 4d 59 | 20 76 61 72 2d 44 55 4d |ar DUMMY| var-DUM|
|000039c0| 4d 59 29 20 6d 61 74 68 | 2d 6e 75 6d 62 65 72 70 |MY) math|-numberp|
|000039d0| 20 6d 61 74 68 2d 6e 65 | 77 74 6f 6e 2d 72 6f 6f | math-ne|wton-roo|
|000039e0| 74 20 28 66 6c 6f 61 74 | 20 31 20 36 29 20 31 30 |t (float| 1 6) 10|
|000039f0| 30 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |0 (bigpo|s bigneg|
|00003a00| 20 66 72 61 63 20 66 6c | 6f 61 74 29 20 70 6f 69 | frac fl|oat) poi|
|00003a10| 6e 74 20 69 6e 74 76 20 | 6d 61 74 68 2d 63 6f 6e |nt intv |math-con|
|00003a20| 73 74 70 20 63 6f 6e 73 | 74 70 20 33 20 28 30 20 |stp cons|tp 3 (0 |
|00003a30| 31 29 20 63 61 6c 63 46 | 75 6e 63 2d 69 6e 63 72 |1) calcF|unc-incr|
|00003a40| 20 28 30 20 32 29 20 6d | 61 74 68 2d 63 6f 6d 70 | (0 2) m|ath-comp|
|00003a50| 6c 65 78 70 20 22 2a 43 | 6f 6d 70 6c 65 78 20 72 |lexp "*C|omplex r|
|00003a60| 6f 6f 74 20 66 69 6e 64 | 65 72 20 6d 75 73 74 20 |oot find|er must |
|00003a70| 68 61 76 65 20 64 65 72 | 69 76 61 74 69 76 65 22 |have der|ivative"|
|00003a80| 20 72 65 61 6c 70 20 28 | 62 69 67 70 6f 73 20 62 | realp (|bigpos b|
|00003a90| 69 67 6e 65 67 29 20 66 | 6c 6f 61 74 20 30 20 28 |igneg) f|loat 0 (|
|00003aa0| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 29 20 28 |bigpos b|igneg) (|
|00003ab0| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00003ac0| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00003ad0| 6c 61 72 29 20 28 62 69 | 67 70 6f 73 20 62 69 67 |lar) (bi|gpos big|
|00003ae0| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 63 |neg frac| float c|
|00003af0| 70 6c 78 20 70 6f 6c 61 | 72 29 20 6d 61 74 68 2d |plx pola|r) math-|
|00003b00| 6e 65 77 74 6f 6e 2d 73 | 65 61 72 63 68 2d 72 6f |newton-s|earch-ro|
|00003b10| 6f 74 20 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |ot bigpo|s bigneg|
|00003b20| 20 28 66 72 61 63 20 66 | 6c 6f 61 74 29 20 6d 61 | (frac f|loat) ma|
|00003b30| 74 68 2d 70 6f 73 70 20 | 28 66 72 61 63 20 66 6c |th-posp |(frac fl|
|00003b40| 6f 61 74 29 20 28 66 72 | 61 63 20 66 6c 6f 61 74 |oat) (fr|ac float|
|00003b50| 29 20 6d 61 74 68 2d 6e | 65 67 70 20 28 66 72 61 |) math-n|egp (fra|
|00003b60| 63 20 66 6c 6f 61 74 29 | 20 28 62 69 67 70 6f 73 |c float)| (bigpos|
|00003b70| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00003b80| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 29 20 28 |at cplx |polar) (|
|00003b90| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00003ba0| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00003bb0| 6c 61 72 29 20 6d 61 74 | 68 2d 73 65 61 72 63 68 |lar) mat|h-search|
|00003bc0| 2d 72 6f 6f 74 20 6d 61 | 74 68 2d 62 69 73 65 63 |-root ma|th-bisec|
|00003bd0| 74 2d 72 6f 6f 74 5d 20 | 37 36 29 29 0a 0a 28 64 |t-root] |76))..(d|
|00003be0| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 72 6f |efun cal|cFunc-ro|
|00003bf0| 6f 74 20 28 65 78 70 72 | 20 76 61 72 20 67 75 65 |ot (expr| var gue|
|00003c00| 73 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ss) (byt|e-code "|
|00003c10| c4 08 09 0a c3 24 87 22 | 20 5b 65 78 70 72 20 76 |.....$."| [expr v|
|00003c20| 61 72 20 67 75 65 73 73 | 20 6e 69 6c 20 6d 61 74 |ar guess| nil mat|
|00003c30| 68 2d 66 69 6e 64 2d 72 | 6f 6f 74 5d 20 35 29 29 |h-find-r|oot] 5))|
|00003c40| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00003c50| 63 2d 77 72 6f 6f 74 20 | 28 65 78 70 72 20 76 61 |c-wroot |(expr va|
|00003c60| 72 20 67 75 65 73 73 29 | 20 28 62 79 74 65 2d 63 |r guess)| (byte-c|
|00003c70| 6f 64 65 20 22 c4 08 09 | 0a c3 24 87 22 20 5b 65 |ode "...|..$." [e|
|00003c80| 78 70 72 20 76 61 72 20 | 67 75 65 73 73 20 74 20 |xpr var |guess t |
|00003c90| 6d 61 74 68 2d 66 69 6e | 64 2d 72 6f 6f 74 5d 20 |math-fin|d-root] |
|00003ca0| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |5))..(de|fun math|
|00003cb0| 2d 6d 69 6e 2d 65 76 61 | 6c 20 28 65 78 70 72 20 |-min-eva|l (expr |
|00003cc0| 61 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |a) (byte|-code ".|
|00003cd0| 3a 85 09 00 08 40 c5 3d | 83 28 00 c6 19 09 54 11 |:....@.=|.(....T.|
|00003ce0| 08 41 89 10 85 24 00 c7 | 0a 09 48 38 08 40 4c 88 |.A...$..|..H8.@L.|
|00003cf0| 82 0e 00 29 82 2b 00 08 | 89 13 88 c8 0c 21 89 10 |...).+..|.....!..|
|00003d00| 88 08 3a 3f 86 3c 00 08 | 40 c9 3e 83 45 00 ca 08 |..:?.<..|@.>.E...|
|00003d10| 21 82 54 00 08 40 cb 3d | 83 50 00 08 82 54 00 cc |!.T..@.=|.P...T..|
|00003d20| 08 cd 5c 22 87 22 20 5b | 61 20 6d 20 6d 61 74 68 |..\"." [|a m math|
|00003d30| 2d 6d 69 6e 2d 76 61 72 | 73 20 76 61 72 2d 44 55 |-min-var|s var-DU|
|00003d40| 4d 4d 59 20 65 78 70 72 | 20 76 65 63 20 2d 31 20 |MMY expr| vec -1 |
|00003d50| 32 20 6d 61 74 68 2d 65 | 76 61 6c 75 61 74 65 2d |2 math-e|valuate-|
|00003d60| 65 78 70 72 20 28 62 69 | 67 70 6f 73 20 62 69 67 |expr (bi|gpos big|
|00003d70| 6e 65 67 20 66 72 61 63 | 29 20 6d 61 74 68 2d 66 |neg frac|) math-f|
|00003d80| 6c 6f 61 74 20 66 6c 6f | 61 74 20 6d 61 74 68 2d |loat flo|at math-|
|00003d90| 72 65 6a 65 63 74 2d 61 | 72 67 20 72 65 61 6c 70 |reject-a|rg realp|
|00003da0| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 5))..(|defun ma|
|00003db0| 74 68 2d 77 69 64 65 6e | 2d 6d 69 6e 20 28 65 78 |th-widen|-min (ex|
|00003dc0| 70 72 20 61 20 62 29 20 | 28 62 79 74 65 2d 63 6f |pr a b) |(byte-co|
|00003dd0| 64 65 20 22 c1 d6 c1 c1 | c1 c1 c1 c1 c1 c1 c1 c1 |de "....|........|
|00003de0| c1 c1 c1 1e 0f 1e 0e 1e | 0d 1e 0c 1e 0b 1e 0a 1e |........|........|
|00003df0| 09 1e 08 1e 07 1e 06 1d | 1c 1b 1a 18 0e 10 86 35 |........|.......5|
|00003e00| 00 d7 0e 11 d8 5c 22 89 | 16 10 88 d9 0e 12 0e 11 |.....\".|........|
|00003e10| 5c 22 15 d9 0e 12 0e 10 | 5c 22 89 16 06 88 da 0d |\"......|\"......|
|00003e20| 0e 06 5c 22 85 66 00 0e | 11 16 08 0e 10 16 11 0e |..\".f..|........|
|00003e30| 08 16 10 0d 16 09 0e 06 | 15 0e 09 89 16 06 88 db |........|........|
|00003e40| 0e 10 dc dd de 0e 10 0e | 11 5c 22 5c 22 5c 22 14 |........|.\"\"\".|
|00003e50| d9 0e 12 0c 5c 22 89 16 | 07 88 08 3f 85 89 00 da |....\"..|...?....|
|00003e60| 0e 07 0e 06 5c 22 85 2c | 02 0e 13 df 3d 85 9c 00 |....\".,|....=...|
|00003e70| e0 e1 e2 e3 0e 11 0c 46 | 5c 22 88 0a 53 89 12 e3 |.......F|\"..S...|
|00003e80| 55 85 ae 00 e4 c1 e5 e6 | 0e 14 5c 22 5c 22 88 de |U.......|..\"\"..|
|00003e90| 0e 10 0c 5c 22 16 0d de | 0e 10 0e 11 5c 22 16 0e |...\"...|....\"..|
|00003ea0| dc 0e 0e de 0e 06 0e 07 | 5c 22 5c 22 16 0a dc 0e |........|\"\"....|
|00003eb0| 0d de 0e 06 0d 5c 22 5c | 22 16 0b de 0e 0b 0e 0a |.....\"\|".......|
|00003ec0| 5c 22 89 16 0f 88 da e7 | 0e 0f 21 e8 5c 22 85 f8 |\"......|..!.\"..|
|00003ed0| 00 e9 0e 0f 21 83 f4 00 | ea 82 f5 00 eb 89 16 0f |....!...|........|
|00003ee0| 88 de 0e 10 ec de dc 0e | 0d 0e 0b 5c 22 dc 0e 0e |........|...\"...|
|00003ef0| 0e 0a 5c 22 5c 22 dc ed | 0e 0f 5c 22 5c 22 5c 22 |..\"\"..|..\"\"\"|
|00003f00| 16 08 db 0e 10 dc ee 0e | 0d 5c 22 5c 22 16 0c e9 |........|.\"\"...|
|00003f10| 0e 0d 21 89 13 88 0b 83 | 33 01 da 0e 10 0e 08 5c |..!.....|3......\|
|00003f20| 22 82 39 01 da 0e 08 0e | 10 5c 22 83 fe 01 0b 83 |".9.....|.\".....|
|00003f30| 48 01 da 0e 08 0c 5c 22 | 82 4d 01 da 0c 0e 08 5c |H.....\"|.M.....\|
|00003f40| 22 83 a1 01 da d9 0e 12 | 0e 08 5c 22 89 16 09 0e |".......|..\"....|
|00003f50| 07 5c 22 83 75 01 0e 10 | 16 11 0e 06 15 0e 08 16 |.\".u...|........|
|00003f60| 10 0e 09 16 06 d5 89 10 | 82 9e 01 da 0e 06 0e 09 |........|........|
|00003f70| 5c 22 83 8b 01 0e 08 14 | 0e 09 16 07 d5 89 10 82 |\"......|........|
|00003f80| 9e 01 db 0c dc ef 0e 0d | 5c 22 5c 22 16 08 d9 0e |........|\"\"....|
|00003f90| 12 0e 08 5c 22 89 16 09 | 82 fb 01 0b 83 ae 01 da |...\"...|........|
|00003fa0| 0e 08 0e 0c 5c 22 82 b4 | 01 da 0e 0c 0e 08 5c 22 |....\"..|......\"|
|00003fb0| 83 ee 01 da d9 0e 12 0e | 08 5c 22 89 16 09 0e 07 |........|.\".....|
|00003fc0| 5c 22 85 eb 01 0c 16 10 | 0e 07 16 06 0e 08 14 0e |\"......|........|
|00003fd0| 09 16 07 db 0c dc f0 de | 0e 10 0c 5c 22 5c 22 5c |........|...\"\"\|
|00003fe0| 22 16 08 d9 0e 12 0e 08 | 5c 22 89 16 09 82 fb 01 |".......|\"......|
|00003ff0| 0e 0c 16 08 d9 0e 12 0e | 08 5c 22 89 16 09 82 11 |........|.\".....|
|00004000| 02 db 0c dc f1 0e 0d 5c | 22 5c 22 16 08 d9 0e 12 |.......\|"\".....|
|00004010| 0e 08 5c 22 89 16 09 88 | 0e 10 16 11 0e 06 15 0c |..\"....|........|
|00004020| 16 10 0e 07 16 06 0e 08 | 14 0e 09 89 16 07 88 82 |........|........|
|00004030| 7e 00 88 da 0e 11 0c 5c | 22 83 45 02 f2 0e 11 0d |~......\|".E.....|
|00004040| 0e 10 0e 06 0c 0e 07 26 | 06 82 52 02 f2 0c 0e 07 |.......&|..R.....|
|00004050| 0e 10 0e 06 0e 11 0d 26 | 06 2e 0f 87 22 20 5b 64 |.......&|...." [d|
|00004060| 6f 6e 65 20 6e 69 6c 20 | 69 74 65 72 73 20 69 6e |one nil |iters in|
|00004070| 63 72 20 63 20 76 61 20 | 76 62 20 76 63 20 75 20 |cr c va |vb vc u |
|00004080| 76 75 20 72 20 71 20 75 | 6c 69 6d 20 62 63 20 62 |vu r q u|lim bc b|
|00004090| 61 20 71 72 20 62 20 61 | 20 65 78 70 72 20 63 61 |a qr b a| expr ca|
|000040a0| 6c 63 2d 64 69 73 70 6c | 61 79 2d 77 6f 72 6b 69 |lc-displ|ay-worki|
|000040b0| 6e 67 2d 6d 65 73 73 61 | 67 65 20 6d 61 74 68 2d |ng-messa|ge math-|
|000040c0| 6d 69 6e 2d 6f 72 2d 6d | 61 78 20 74 20 33 30 20 |min-or-m|ax t 30 |
|000040d0| 6d 61 74 68 2d 6d 75 6c | 20 28 66 6c 6f 61 74 20 |math-mul| (float |
|000040e0| 31 30 31 20 2d 32 29 20 | 6d 61 74 68 2d 6d 69 6e |101 -2) |math-min|
|000040f0| 2d 65 76 61 6c 20 6d 61 | 74 68 2d 6c 65 73 73 70 |-eval ma|th-lessp|
|00004100| 2d 66 6c 6f 61 74 20 6d | 61 74 68 2d 61 64 64 2d |-float m|ath-add-|
|00004110| 66 6c 6f 61 74 20 6d 61 | 74 68 2d 6d 75 6c 2d 66 |float ma|th-mul-f|
|00004120| 6c 6f 61 74 20 28 66 6c | 6f 61 74 20 31 36 31 38 |loat (fl|oat 1618|
|00004130| 30 33 20 2d 35 29 20 6d | 61 74 68 2d 73 75 62 2d |03 -5) m|ath-sub-|
|00004140| 66 6c 6f 61 74 20 6c 6f | 74 73 20 6d 61 74 68 2d |float lo|ts math-|
|00004150| 64 6f 2d 77 6f 72 6b 69 | 6e 67 20 22 77 69 64 65 |do-worki|ng "wide|
|00004160| 6e 22 20 69 6e 74 76 20 | 30 20 6d 61 74 68 2d 72 |n" intv |0 math-r|
|00004170| 65 6a 65 63 74 2d 61 72 | 67 20 66 6f 72 6d 61 74 |eject-ar|g format|
|00004180| 20 22 2a 55 6e 61 62 6c | 65 20 74 6f 20 66 69 6e | "*Unabl|e to fin|
|00004190| 64 20 61 20 25 73 20 6e | 65 61 72 20 74 68 65 20 |d a %s n|ear the |
|000041a0| 69 6e 74 65 72 76 61 6c | 22 20 6d 61 74 68 2d 61 |interval|" math-a|
|000041b0| 62 73 20 28 66 6c 6f 61 | 74 20 31 20 2d 32 30 29 |bs (floa|t 1 -20)|
|000041c0| 20 6d 61 74 68 2d 6e 65 | 67 70 20 28 66 6c 6f 61 | math-ne|gp (floa|
|000041d0| 74 20 2d 31 20 2d 32 30 | 29 20 28 66 6c 6f 61 74 |t -1 -20|) (float|
|000041e0| 20 31 20 2d 32 30 29 20 | 6d 61 74 68 2d 64 69 76 | 1 -20) |math-div|
|000041f0| 2d 66 6c 6f 61 74 20 28 | 66 6c 6f 61 74 20 32 20 |-float (|float 2 |
|00004200| 30 29 20 28 66 6c 6f 61 | 74 20 2d 31 20 32 29 20 |0) (floa|t -1 2) |
|00004210| 28 66 6c 6f 61 74 20 2d | 31 36 31 38 30 33 20 2d |(float -|161803 -|
|00004220| 35 29 20 28 66 6c 6f 61 | 74 20 2d 31 36 31 38 30 |5) (floa|t -16180|
|00004230| 33 20 2d 35 29 20 28 66 | 6c 6f 61 74 20 2d 31 36 |3 -5) (f|loat -16|
|00004240| 31 38 30 33 20 2d 35 29 | 20 6c 69 73 74 5d 20 36 |1803 -5)| list] 6|
|00004250| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |2))..(de|fun math|
|00004260| 2d 6e 61 72 72 6f 77 2d | 6d 69 6e 20 28 65 78 70 |-narrow-|min (exp|
|00004270| 72 20 61 20 63 20 69 6e | 74 76 29 20 28 62 79 74 |r a c in|tv) (byt|
|00004280| 65 2d 63 6f 64 65 20 22 | 09 0a 44 d1 0c 09 5c 22 |e-code "|..D...\"|
|00004290| d1 0c 0a 5c 22 44 d2 d3 | 0a 09 5c 22 c8 c8 c8 c8 |...\"D..|..\"....|
|000042a0| 1e 0b 1e 0a 1e 09 1e 07 | 1e 06 1d 1b 18 0d 54 89 |........|......T.|
|000042b0| 15 d4 58 85 2e 00 0e 07 | 3f 85 e3 00 08 16 09 0b |..X.....|?.......|
|000042c0| 16 0a d5 0e 06 d6 5c 22 | 89 16 06 88 0e 09 41 85 |......\"|......A.|
|000042d0| 49 00 0e 07 3f 85 df 00 | d7 0e 09 40 0e 06 5c 22 |I...?...|...@..\"|
|000042e0| 89 16 0b 88 0e 0c d8 3d | 85 63 00 d9 da 0e 0b 5c |.......=|.c.....\|
|000042f0| 22 88 db 0e 09 0e 0b 0e | 09 41 42 5c 22 88 db 0e |".......|.AB\"...|
|00004300| 0a d1 0c 0e 0b 5c 22 0e | 0a 41 42 5c 22 88 dc dd |.....\".|.AB\"...|
|00004310| 0e 0a 38 0e 0a 40 5c 22 | 85 93 00 dc dd 0e 0a 38 |..8..@\"|.......8|
|00004320| de 0e 0a 38 5c 22 83 9d | 00 cd 89 16 07 82 db 00 |...8\"..|........|
|00004330| 0e 09 41 16 09 0e 0a 41 | 89 16 0a 88 0e 0a 41 41 |..A....A|......AA|
|00004340| 85 c6 00 dc dd 0e 0a 38 | 0e 0a 40 5c 22 85 c6 00 |.......8|..@\"...|
|00004350| dc dd 0e 0a 38 de 0e 0a | 38 5c 22 83 d0 00 cd 89 |....8...|8\".....|
|00004360| 16 07 82 db 00 0e 09 41 | 16 09 0e 0a 41 89 16 0a |.......A|....A...|
|00004370| 88 82 40 00 88 82 5c 22 | 00 88 0e 07 83 05 01 df |..@...\"|........|
|00004380| 0e 09 40 0e 0a 40 dd 0e | 09 38 dd 0e 0a 38 de 0e |..@..@..|.8...8..|
|00004390| 09 38 de 0e 0a 38 26 06 | 82 85 01 dc 0b 40 dd 0b |.8...8&.|.....@..|
|000043a0| 38 5c 22 83 42 01 dd 0e | 0e 38 e0 3e 85 3f 01 0b |8\".B...|.8.>.?..|
|000043b0| 40 1e 0f 0b 41 89 13 85 | 29 01 dc 0e 0f 0b 40 5c |@...A...|).....@\|
|000043c0| 22 85 31 01 c8 88 82 1c | 01 88 0b 3f 85 3e 01 de |".1.....|...?.>..|
|000043d0| 0e 0e 38 0e 0f 44 29 82 | 7a 01 dd 0e 0e 38 e1 3e |..8..D).|z....8.>|
|000043e0| 85 7a 01 e2 0b 21 89 13 | 85 7a 01 0b 40 1e 0f 0b |.z...!..|.z..@...|
|000043f0| 41 89 13 85 64 01 dc 0e | 0f 0b 40 5c 22 85 6c 01 |A...d...|..@\".l.|
|00004400| c8 88 82 57 01 88 0b 3f | 85 79 01 e3 0e 0e 38 0e |...W...?|.y....8.|
|00004410| 0f 44 29 86 85 01 e4 c8 | e5 e6 0e 10 5c 22 5c 22 |.D).....|....\"\"|
|00004420| 2e 08 87 22 20 5b 78 76 | 61 6c 73 20 61 20 63 20 |..." [xv|als a c |
|00004430| 79 76 61 6c 73 20 65 78 | 70 72 20 6c 65 76 65 6c |yvals ex|pr level|
|00004440| 73 20 73 74 65 70 20 66 | 6f 75 6e 64 20 6e 69 6c |s step f|ound nil|
|00004450| 20 78 70 20 79 70 20 62 | 20 63 61 6c 63 2d 64 69 | xp yp b| calc-di|
|00004460| 73 70 6c 61 79 2d 77 6f | 72 6b 69 6e 67 2d 6d 65 |splay-wo|rking-me|
|00004470| 73 73 61 67 65 20 74 20 | 69 6e 74 76 20 6d 69 6e |ssage t |intv min|
|00004480| 20 6d 61 74 68 2d 6d 69 | 6e 2d 6f 72 2d 6d 61 78 | math-mi|n-or-max|
|00004490| 20 6d 61 74 68 2d 6d 69 | 6e 2d 65 76 61 6c 20 30 | math-mi|n-eval 0|
|000044a0| 20 6d 61 74 68 2d 73 75 | 62 2d 66 6c 6f 61 74 20 | math-su|b-float |
|000044b0| 35 20 6d 61 74 68 2d 6d | 75 6c 2d 66 6c 6f 61 74 |5 math-m|ul-float|
|000044c0| 20 28 66 6c 6f 61 74 20 | 34 39 37 20 2d 33 29 20 | (float |497 -3) |
|000044d0| 6d 61 74 68 2d 61 64 64 | 2d 66 6c 6f 61 74 20 6c |math-add|-float l|
|000044e0| 6f 74 73 20 6d 61 74 68 | 2d 64 6f 2d 77 6f 72 6b |ots math|-do-work|
|000044f0| 69 6e 67 20 22 73 65 61 | 72 63 68 22 20 73 65 74 |ing "sea|rch" set|
|00004500| 63 64 72 20 6d 61 74 68 | 2d 6c 65 73 73 70 2d 66 |cdr math|-lessp-f|
|00004510| 6c 6f 61 74 20 31 20 32 | 20 6c 69 73 74 20 28 32 |loat 1 2| list (2|
|00004520| 20 33 29 20 28 31 20 33 | 29 20 6e 72 65 76 65 72 | 3) (1 3|) nrever|
|00004530| 73 65 20 33 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |se 3 mat|h-reject|
|00004540| 2d 61 72 67 20 66 6f 72 | 6d 61 74 20 22 2a 55 6e |-arg for|mat "*Un|
|00004550| 61 62 6c 65 20 74 6f 20 | 66 69 6e 64 20 61 20 25 |able to |find a %|
|00004560| 73 20 69 6e 20 74 68 65 | 20 69 6e 74 65 72 76 61 |s in the| interva|
|00004570| 6c 22 5d 20 32 33 29 29 | 0a 0a 28 64 65 66 75 6e |l"] 23))|..(defun|
|00004580| 20 6d 61 74 68 2d 62 72 | 65 6e 74 2d 6d 69 6e 20 | math-br|ent-min |
|00004590| 28 65 78 70 72 20 70 72 | 65 63 20 61 20 76 61 20 |(expr pr|ec a va |
|000045a0| 78 20 76 78 20 62 20 76 | 62 29 20 28 62 79 74 65 |x vx b v|b) (byte|
|000045b0| 2d 63 6f 64 65 20 22 dd | de df 09 5c 22 5c 5c 0b |-code ".|...\"\\.|
|000045c0| 0d 0b 0d e0 e1 e2 09 5a | 45 e0 e1 e3 09 5a 45 e4 |.......Z|E....ZE.|
|000045d0| d8 d8 d8 d8 d8 d8 d8 d8 | d8 d8 d8 1e 15 1e 14 1e |........|........|
|000045e0| 13 1e 12 1e 11 1e 10 1e | 0f 1e 0e 1e 0d 1e 0c 1e |........|........|
|000045f0| 0b 1e 0a 1e 09 1e 08 1e | 07 1e 06 1c 1a 18 e5 e6 |........|........|
|00004600| e7 0e 16 0e 17 5c 22 5c | 22 16 0d e7 0e 09 e5 0e |.....\"\|".......|
|00004610| 08 e8 0b 21 5c 22 5c 22 | 16 0e e5 0e 0e e9 5c 22 |...!\"\"|......\"|
|00004620| 89 16 0f 88 ea eb 0e 0f | e5 ec eb 0e 17 0e 16 5c |........|.......\|
|00004630| 22 5c 22 5c 22 e8 eb 0b | 0e 0d 5c 22 21 5c 22 85 |"\"\"...|..\"!\".|
|00004640| 7e 02 08 53 89 10 ed 55 | 85 90 00 ee d8 ef f0 0e |~..S...U|........|
|00004650| 19 5c 22 5c 22 88 0e 1a | f1 3d 85 9c 00 f2 f3 0b |.\"\"...|.=......|
|00004660| 5c 22 88 ea e8 0e 0a 21 | 0e 0e 5c 22 83 ca 00 ea |\".....!|..\"....|
|00004670| 0b 0e 0d 5c 22 83 b8 00 | eb 0e 17 0b 5c 22 82 bd |...\"...|....\"..|
|00004680| 00 eb 0e 16 0b 5c 22 16 | 0a e5 f4 0e 0a 5c 22 89 |.....\".|.....\".|
|00004690| 16 1b 82 c1 01 eb 0b 0a | 5c 22 16 15 e5 0e 15 eb |........|\"......|
|000046a0| 0d 0e 07 5c 22 5c 22 16 | 13 eb 0b 0e 06 5c 22 16 |...\"\".|.....\".|
|000046b0| 14 e5 0e 14 eb 0d 0c 5c | 22 5c 22 16 12 eb e5 0e |.......\|"\".....|
|000046c0| 14 0e 12 5c 22 e5 0e 15 | 0e 13 5c 22 5c 22 16 11 |...\"...|..\"\"..|
|000046d0| e5 f5 eb 0e 12 0e 13 5c | 22 5c 22 89 16 12 88 f6 |.......\|"\".....|
|000046e0| 0e 12 21 83 1a 01 f7 0e | 11 21 89 16 11 82 21 01 |..!.....|.!....!.|
|000046f0| f7 0e 12 21 89 16 12 88 | 0e 0a 16 10 0e 1b 89 16 |...!....|........|
|00004700| 0a 88 ea e8 0e 11 21 e8 | e5 f8 e5 0e 12 0e 10 5c |......!.|.......\|
|00004710| 22 5c 22 21 5c 22 85 5d | 01 ea e5 0e 12 eb 0e 16 |"\"!\".]|........|
|00004720| 0b 5c 22 5c 22 0e 11 5c | 22 85 5d 01 ea 0e 11 e5 |.\"\"..\|".].....|
|00004730| 0e 12 eb 0e 17 0b 5c 22 | 5c 22 5c 22 83 a2 01 f9 |......\"|\"\"....|
|00004740| 0e 11 0e 12 5c 22 16 1b | e7 0b 0e 1b 5c 22 89 16 |....\"..|....\"..|
|00004750| 0b 88 ea eb 0e 0b 0e 16 | 5c 22 0e 0f 5c 22 86 88 |........|\"..\"..|
|00004760| 01 ea eb 0e 17 0e 0b 5c | 22 0e 0f 5c 22 85 9f 01 |.......\|"..\"...|
|00004770| ea 0e 0d 0b 5c 22 83 9a | 01 f7 0e 0e 21 82 9c 01 |....\"..|....!...|
|00004780| 0e 0e 89 16 1b 82 c1 01 | ea 0b 0e 0d 5c 22 83 b2 |........|....\"..|
|00004790| 01 eb 0e 17 0b 5c 22 82 | b7 01 eb 0e 16 0b 5c 22 |.....\".|......\"|
|000047a0| 16 0a e5 fa 0e 0a 5c 22 | 89 16 1b 88 e7 0b ea e8 |......\"|........|
|000047b0| 0e 1b 21 0e 0e 5c 22 83 | e2 01 fb 0e 1b 21 83 dd |..!..\".|.....!..|
|000047c0| 01 f7 0e 0e 21 82 df 01 | 0e 0e 82 e4 01 0e 1b 5c |....!...|.......\|
|000047d0| 22 16 0b fc 0e 1c 0e 0b | 5c 22 89 16 0c 88 ea 0d |".......|\"......|
|000047e0| 0e 0c 5c 22 83 55 02 ea | 0e 0b 0b 5c 22 83 09 02 |..\".U..|...\"...|
|000047f0| 0e 0b 89 16 16 82 0e 02 | 0e 0b 89 16 17 88 fd 0a |........|........|
|00004800| 0b 5c 22 86 1c 02 ea 0c | 0e 0c 5c 22 3f 83 2f 02 |.\".....|..\"?./.|
|00004810| 0a 16 06 0c 16 07 0e 0b | 12 0e 0c 89 14 82 52 02 |........|......R.|
|00004820| fd 0e 06 0b 5c 22 86 46 | 02 fd 0e 06 0a 5c 22 86 |....\".F|.....\".|
|00004830| 46 02 ea 0e 07 0e 0c 5c | 22 3f 85 52 02 0e 0b 16 |F......\|"?.R....|
|00004840| 06 0e 0c 89 16 07 82 7a | 02 ea 0e 0b 0b 5c 22 83 |.......z|.....\".|
|00004850| 64 02 0b 89 16 17 82 68 | 02 0b 89 16 16 88 0a 16 |d......h|........|
|00004860| 06 0c 16 07 0b 12 0d 14 | 0e 0b 13 0e 0c 89 15 88 |........|........|
|00004870| 82 45 00 88 fe 0b 0d 45 | 2e 13 87 22 20 5b 69 74 |.E.....E|..." [it|
|00004880| 65 72 73 20 70 72 65 63 | 20 77 20 78 20 76 77 20 |ers prec| w x vw |
|00004890| 76 78 20 76 20 76 76 20 | 74 6f 6c 20 7a 65 70 73 |vx v vv |tol zeps|
|000048a0| 20 65 20 75 20 76 75 20 | 78 6d 20 74 6f 6c 31 20 | e u vu |xm tol1 |
|000048b0| 74 6f 6c 32 20 65 74 65 | 6d 70 20 70 20 71 20 72 |tol2 ete|mp p q r|
|000048c0| 20 78 76 20 78 77 20 61 | 20 62 20 6e 69 6c 20 6d | xv xw a| b nil m|
|000048d0| 61 74 68 2d 6d 69 6e 2d | 6f 72 2d 6d 61 78 20 63 |ath-min-|or-max c|
|000048e0| 61 6c 63 2d 64 69 73 70 | 6c 61 79 2d 77 6f 72 6b |alc-disp|lay-work|
|000048f0| 69 6e 67 2d 6d 65 73 73 | 61 67 65 20 64 20 65 78 |ing-mess|age d ex|
|00004900| 70 72 20 32 30 20 2a 20 | 35 20 66 6c 6f 61 74 20 |pr 20 * |5 float |
|00004910| 31 20 2d 31 20 2d 35 20 | 28 66 6c 6f 61 74 20 30 |1 -1 -5 |(float 0|
|00004920| 20 30 29 20 6d 61 74 68 | 2d 6d 75 6c 2d 66 6c 6f | 0) math|-mul-flo|
|00004930| 61 74 20 28 66 6c 6f 61 | 74 20 35 20 2d 31 29 20 |at (floa|t 5 -1) |
|00004940| 6d 61 74 68 2d 61 64 64 | 2d 66 6c 6f 61 74 20 6d |math-add|-float m|
|00004950| 61 74 68 2d 61 62 73 20 | 28 66 6c 6f 61 74 20 32 |ath-abs |(float 2|
|00004960| 20 30 29 20 6d 61 74 68 | 2d 6c 65 73 73 70 2d 66 | 0) math|-lessp-f|
|00004970| 6c 6f 61 74 20 6d 61 74 | 68 2d 73 75 62 2d 66 6c |loat mat|h-sub-fl|
|00004980| 6f 61 74 20 28 66 6c 6f | 61 74 20 35 20 2d 31 29 |oat (flo|at 5 -1)|
|00004990| 20 30 20 6d 61 74 68 2d | 72 65 6a 65 63 74 2d 61 | 0 math-|reject-a|
|000049a0| 72 67 20 66 6f 72 6d 61 | 74 20 22 2a 55 6e 61 62 |rg forma|t "*Unab|
|000049b0| 6c 65 20 74 6f 20 63 6f | 6e 76 65 72 67 65 20 6f |le to co|nverge o|
|000049c0| 6e 20 61 20 25 73 22 20 | 6c 6f 74 73 20 6d 61 74 |n a %s" |lots mat|
|000049d0| 68 2d 64 6f 2d 77 6f 72 | 6b 69 6e 67 20 22 62 72 |h-do-wor|king "br|
|000049e0| 65 6e 74 22 20 28 66 6c | 6f 61 74 20 33 38 31 39 |ent" (fl|oat 3819|
|000049f0| 36 36 20 2d 36 29 20 28 | 66 6c 6f 61 74 20 32 20 |66 -6) (|float 2 |
|00004a00| 30 29 20 6d 61 74 68 2d | 70 6f 73 70 20 6d 61 74 |0) math-|posp mat|
|00004a10| 68 2d 6e 65 67 2d 66 6c | 6f 61 74 20 28 66 6c 6f |h-neg-fl|oat (flo|
|00004a20| 61 74 20 35 20 2d 31 29 | 20 6d 61 74 68 2d 64 69 |at 5 -1)| math-di|
|00004a30| 76 2d 66 6c 6f 61 74 20 | 28 66 6c 6f 61 74 20 33 |v-float |(float 3|
|00004a40| 38 31 39 36 36 20 2d 36 | 29 20 6d 61 74 68 2d 6e |81966 -6|) math-n|
|00004a50| 65 67 70 20 6d 61 74 68 | 2d 6d 69 6e 2d 65 76 61 |egp math|-min-eva|
|00004a60| 6c 20 65 71 75 61 6c 20 | 76 65 63 5d 20 37 36 29 |l equal |vec] 76)|
|00004a70| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 70 |)..(defu|n math-p|
|00004a80| 6f 77 65 6c 6c 2d 6d 69 | 6e 20 28 65 78 70 72 20 |owell-mi|n (expr |
|00004a90| 6e 20 67 75 65 73 73 65 | 73 20 70 72 65 63 29 20 |n guesse|s prec) |
|00004aa0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 d4 09 0a 5c |(byte-co|de "...\|
|00004ab0| 22 18 d5 d6 0a 5c 22 1b | d7 d8 d9 0d 5c 22 42 1c |"....\".|....\"B.|
|00004ac0| 0c 1e 06 da d6 0e 08 5b | 45 1e 07 db 09 0c 5c 22 |.......[|E.....\"|
|00004ad0| 1e 09 dc 1e 0a dc 1e 0b | dc 1e 0c dc 1e 0d dc 1e |........|........|
|00004ae0| 0e dc 1e 0f dc 1e 10 dc | 1e 11 dc 1e 12 0e 09 16 |........|........|
|00004af0| 0a dd 16 0f de 16 10 dd | 89 16 0e 88 0e 0e 54 89 |........|......T.|
|00004b00| 16 0e 0a 58 85 9c 00 0e | 09 16 0c df 08 0c e0 0b |...X....|........|
|00004b10| 0e 0e 5c 22 0a 0e 08 25 | 16 12 0e 08 1e 13 e1 0e |..\"...%|........|
|00004b20| 12 40 21 29 14 e2 0e 12 | 38 16 09 e3 e4 0e 0c 0e |.@!)....|8.......|
|00004b30| 09 5c 22 21 89 16 11 88 | e5 0e 10 0e 11 5c 22 85 |.\"!....|.....\".|
|00004b40| 98 00 0e 11 16 10 0e 0e | 89 16 0f 88 82 4c 00 88 |........|.....L..|
|00004b50| e5 e6 0e 07 e7 e3 0e 0a | 21 e3 0e 09 21 5c 22 5c |........|!...!\"\|
|00004b60| 22 e6 e8 e3 e4 0e 0a 0e | 09 5c 22 21 5c 22 5c 22 |".......|.\"!\"\"|
|00004b70| 85 4e 01 e9 ea eb 0c 5c | 22 0e 06 5c 22 16 0b e9 |.N.....\|"..\"...|
|00004b80| 0c 0e 06 5c 22 16 0d 0c | 16 06 db 09 0e 0b 5c 22 |...\"...|......\"|
|00004b90| 89 16 0c 88 e5 0e 0c 0e | 0a 5c 22 85 0d 01 e5 e6 |........|.\".....|
|00004ba0| e6 ec e7 e4 0e 0a e6 ed | 0e 09 5c 22 5c 22 0e 0c |........|..\"\"..|
|00004bb0| 5c 22 5c 22 ee e4 e4 0e | 0a 0e 09 5c 22 0e 10 5c |\"\"....|...\"..\|
|00004bc0| 22 21 5c 22 e6 0e 10 ee | e4 0e 0a 0e 0c 5c 22 21 |"!\"....|.....\"!|
|00004bd0| 5c 22 5c 22 85 4a 01 df | 08 0c 0e 0d 0a 0e 08 25 |\"\".J..|.......%|
|00004be0| 16 12 0e 12 40 14 e2 0e | 12 38 16 09 dd 89 16 0e |....@...|.8......|
|00004bf0| 88 0e 0e 54 89 16 0e 0a | 58 85 4a 01 ef f0 0e 0f |...T....|X.J.....|
|00004c00| 0e 0e 0b 38 5c 22 0e 0e | d6 0e 12 38 38 5c 22 88 |...8\"..|...88\".|
|00004c10| 82 2a 01 88 82 3d 00 88 | d7 0c 0e 09 45 2e 0f 87 |.*...=..|....E...|
|00004c20| 22 20 5b 66 31 64 69 6d | 20 65 78 70 72 20 6e 20 |" [f1dim| expr n |
|00004c30| 78 69 20 70 20 67 75 65 | 73 73 65 73 20 70 74 20 |xi p gue|sses pt |
|00004c40| 66 74 6f 6c 20 70 72 65 | 63 20 66 72 65 74 20 66 |ftol pre|c fret f|
|00004c50| 70 20 70 74 74 20 66 70 | 74 74 20 78 69 74 20 69 |p ptt fp|tt xit i|
|00004c60| 20 69 62 69 67 20 64 65 | 6c 20 64 69 66 66 20 72 | ibig de|l diff r|
|00004c70| 65 73 20 63 61 6c 63 2d | 69 6e 74 65 72 6e 61 6c |es calc-|internal|
|00004c80| 2d 70 72 65 63 20 6d 61 | 74 68 2d 6c 69 6e 65 2d |-prec ma|th-line-|
|00004c90| 6d 69 6e 2d 66 75 6e 63 | 20 63 61 6c 63 46 75 6e |min-func| calcFun|
|00004ca0| 63 2d 69 64 6e 20 31 20 | 76 65 63 20 6d 61 70 63 |c-idn 1 |vec mapc|
|00004cb0| 61 72 20 63 61 72 20 66 | 6c 6f 61 74 20 6d 61 74 |ar car f|loat mat|
|00004cc0| 68 2d 6d 69 6e 2d 65 76 | 61 6c 20 6e 69 6c 20 30 |h-min-ev|al nil 0|
|00004cd0| 20 28 66 6c 6f 61 74 20 | 30 20 30 29 20 6d 61 74 | (float |0 0) mat|
|00004ce0| 68 2d 6c 69 6e 65 2d 6d | 69 6e 20 6d 61 74 68 2d |h-line-m|in math-|
|00004cf0| 6d 61 74 2d 63 6f 6c 20 | 6d 61 74 68 2d 6e 6f 72 |mat-col |math-nor|
|00004d00| 6d 61 6c 69 7a 65 20 32 | 20 6d 61 74 68 2d 61 62 |malize 2| math-ab|
|00004d10| 73 20 6d 61 74 68 2d 73 | 75 62 2d 66 6c 6f 61 74 |s math-s|ub-float|
|00004d20| 20 6d 61 74 68 2d 6c 65 | 73 73 70 2d 66 6c 6f 61 | math-le|ssp-floa|
|00004d30| 74 20 6d 61 74 68 2d 6d | 75 6c 2d 66 6c 6f 61 74 |t math-m|ul-float|
|00004d40| 20 6d 61 74 68 2d 61 64 | 64 2d 66 6c 6f 61 74 20 | math-ad|d-float |
|00004d50| 28 66 6c 6f 61 74 20 32 | 20 30 29 20 6d 61 74 68 |(float 2| 0) math|
|00004d60| 2d 73 75 62 20 6d 61 74 | 68 2d 6d 75 6c 20 28 66 |-sub mat|h-mul (f|
|00004d70| 6c 6f 61 74 20 32 20 30 | 29 20 28 66 6c 6f 61 74 |loat 2 0|) (float|
|00004d80| 20 32 20 30 29 20 28 66 | 6c 6f 61 74 20 32 20 30 | 2 0) (f|loat 2 0|
|00004d90| 29 20 6d 61 74 68 2d 73 | 71 72 2d 66 6c 6f 61 74 |) math-s|qr-float|
|00004da0| 20 73 65 74 63 61 72 20 | 6e 74 68 63 64 72 5d 20 | setcar |nthcdr] |
|00004db0| 34 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 |44))..(d|efun mat|
|00004dc0| 68 2d 6c 69 6e 65 2d 6d | 69 6e 2d 66 75 6e 63 20 |h-line-m|in-func |
|00004dd0| 28 65 78 70 72 20 6e 29 | 20 28 62 79 74 65 2d 63 |(expr n)| (byte-c|
|00004de0| 6f 64 65 20 22 c4 18 08 | 54 89 10 09 57 85 24 00 |ode "...|T...W.$.|
|00004df0| c5 0a 08 48 38 c6 c7 c8 | c9 ca 08 54 45 45 c9 cb |...H8...|...TEE..|
|00004e00| 08 54 45 45 4c 88 82 02 | 00 88 cc 0b 21 29 87 22 |.TEEL...|....!)."|
|00004e10| 20 5b 6d 20 6e 20 6d 61 | 74 68 2d 6d 69 6e 2d 76 | [m n ma|th-min-v|
|00004e20| 61 72 73 20 65 78 70 72 | 20 2d 31 20 32 20 2b 20 |ars expr| -1 2 + |
|00004e30| 2a 20 28 76 61 72 20 44 | 55 4d 4d 59 20 76 61 72 |* (var D|UMMY var|
|00004e40| 2d 44 55 4d 4d 59 29 20 | 63 61 6c 63 46 75 6e 63 |-DUMMY) |calcFunc|
|00004e50| 2d 6d 72 6f 77 20 28 76 | 61 72 20 6c 69 6e 65 2d |-mrow (v|ar line-|
|00004e60| 78 69 20 6c 69 6e 65 2d | 78 69 29 20 28 76 61 72 |xi line-|xi) (var|
|00004e70| 20 6c 69 6e 65 2d 70 20 | 6c 69 6e 65 2d 70 29 20 | line-p |line-p) |
|00004e80| 6d 61 74 68 2d 65 76 61 | 6c 75 61 74 65 2d 65 78 |math-eva|luate-ex|
|00004e90| 70 72 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 |pr] 8)).|.(defun |
|00004ea0| 6d 61 74 68 2d 6c 69 6e | 65 2d 6d 69 6e 20 28 66 |math-lin|e-min (f|
|00004eb0| 31 64 69 6d 20 6c 69 6e | 65 2d 70 20 6c 69 6e 65 |1dim lin|e-p line|
|00004ec0| 2d 78 69 20 6e 20 70 72 | 65 63 29 20 28 62 79 74 |-xi n pr|ec) (byt|
|00004ed0| 65 2d 63 6f 64 65 20 22 | c1 18 ca 0b 21 1a cb 0a |e-code "|....!...|
|00004ee0| cc cd 23 1c ce cf 0a 0e | 06 0c 24 1d d0 d1 0d 38 |..#.....|..$....8|
|00004ef0| 0e 08 5c 22 1e 07 d2 0e | 09 0e 07 5c 22 0e 07 d3 |..\"....|...\"...|
|00004f00| 0d 38 45 2d 87 22 20 5b | 76 61 72 2d 44 55 4d 4d |.8E-." [|var-DUMM|
|00004f10| 59 20 6e 69 6c 20 65 78 | 70 72 20 66 31 64 69 6d |Y nil ex|pr f1dim|
|00004f20| 20 70 61 72 61 6d 73 20 | 72 65 73 20 70 72 65 63 | params |res prec|
|00004f30| 20 78 69 20 6c 69 6e 65 | 2d 78 69 20 6c 69 6e 65 | xi line|-xi line|
|00004f40| 2d 70 20 6d 61 74 68 2d | 65 76 61 6c 75 61 74 65 |-p math-|evaluate|
|00004f50| 2d 65 78 70 72 20 6d 61 | 74 68 2d 77 69 64 65 6e |-expr ma|th-widen|
|00004f60| 2d 6d 69 6e 20 28 66 6c | 6f 61 74 20 30 20 30 29 |-min (fl|oat 0 0)|
|00004f70| 20 28 66 6c 6f 61 74 20 | 31 20 30 29 20 61 70 70 | (float |1 0) app|
|00004f80| 6c 79 20 6d 61 74 68 2d | 62 72 65 6e 74 2d 6d 69 |ly math-|brent-mi|
|00004f90| 6e 20 6d 61 74 68 2d 6d | 75 6c 20 31 20 6d 61 74 |n math-m|ul 1 mat|
|00004fa0| 68 2d 61 64 64 20 32 5d | 20 39 29 29 0a 0a 28 64 |h-add 2]| 9))..(d|
|00004fb0| 65 66 76 61 72 20 6d 61 | 74 68 2d 6d 69 6e 2d 76 |efvar ma|th-min-v|
|00004fc0| 61 72 73 20 5b 28 76 61 | 72 20 44 55 4d 4d 59 20 |ars [(va|r DUMMY |
|00004fd0| 76 61 72 2d 44 55 4d 4d | 59 29 5d 29 0a 0a 28 64 |var-DUMM|Y)])..(d|
|00004fe0| 65 66 75 6e 20 6d 61 74 | 68 2d 66 69 6e 64 2d 6d |efun mat|h-find-m|
|00004ff0| 69 6e 69 6d 75 6d 20 28 | 65 78 70 72 20 76 61 72 |inimum (|expr var|
|00005000| 20 67 75 65 73 73 20 6d | 69 6e 2d 77 69 64 65 6e | guess m|in-widen|
|00005010| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 18 |) (byte-|code "..|
|00005020| d5 1a c1 1b d6 0d 21 1c | c1 1e 06 c1 1e 07 d6 0d |......!.|........|
|00005030| 21 86 1b 00 d4 0d 44 89 | 15 88 d6 0e 08 21 86 2a |!.....D.|.....!.*|
|00005040| 00 d4 0e 08 44 89 16 08 | 88 0d 47 0e 08 47 55 86 |....D...|..G..GU.|
|00005050| 36 00 d7 20 88 0d 41 15 | 0e 08 41 89 16 08 85 4b |6.. ..A.|..A....K|
|00005060| 01 d8 0d 40 21 c5 3d 86 | 52 00 d9 0e 09 40 da 5c |...@!.=.|R....@.\|
|00005070| 22 88 db 0e 0a 0d 40 5c | 22 86 61 00 d9 0d 40 dc |".....@\|".a...@.|
|00005080| 5c 22 88 0a 54 0e 0b 47 | 59 85 8a 00 dd de df 0e |\"..T..G|Y.......|
|00005090| 0b 47 21 50 21 1e 0c e0 | 0e 0b e1 c5 0e 0c 0e 0c |.G!P!...|........|
|000050a0| 45 21 5c 22 89 16 0b 29 | 88 82 62 00 88 e2 0e 0b |E!\"...)|..b.....|
|000050b0| 0a 48 38 c1 4c 88 e2 0e | 0b 0a 54 48 38 c1 4c 88 |.H8.L...|..TH8.L.|
|000050c0| e3 0e 08 40 21 83 e3 00 | e4 0e 0a 0d 40 e5 0e 0b |...@!...|....@...|
|000050d0| 0a 48 e6 0e 0b 0a 54 48 | e7 45 45 23 16 0a e8 e9 |.H....TH|.EE#....|
|000050e0| 0e 08 40 21 21 1e 06 e2 | 0e 06 38 c1 c1 45 ea 0e |..@!!...|..8..E..|
|000050f0| 06 38 c1 c1 cd 46 0e 07 | 42 42 29 16 07 0a e2 5c |.8...F..|BB)....\|
|00005100| 5c 89 12 82 47 01 e4 0e | 0a 0d 40 0e 0b 0a 48 23 |\...G...|..@...H#|
|00005110| 16 0a eb 0e 08 40 21 83 | 02 01 e8 0e 08 40 21 c1 |.....@!.|.....@!.|
|00005120| c1 45 82 3e 01 d8 0e 08 | 40 21 ec 3d 85 11 01 ed |.E.>....|@!.=....|
|00005130| 0e 08 40 21 83 38 01 ee | ef e2 0e 08 40 38 f0 0e |..@!.8..|....@8..|
|00005140| 08 40 38 5c 22 f1 5c 22 | e8 e2 0e 08 40 38 21 e8 |.@8\".\"|....@8!.|
|00005150| f0 0e 08 40 38 21 0e 08 | 40 46 82 3e 01 d9 0e 08 |...@8!..|@F.>....|
|00005160| 40 f2 5c 22 0e 07 42 16 | 07 0a 54 89 12 88 82 37 |@.\"..B.|..T....7|
|00005170| 00 88 f3 0e 07 21 16 07 | f4 0e 0a 21 89 16 0a 88 |.....!..|...!....|
|00005180| 0a ea 55 83 e1 01 ea 0e | 07 40 38 83 94 01 0e 0f |..U.....|.@8.....|
|00005190| 83 7e 01 f5 0e 0a ea 0e | 07 40 38 e2 0e 07 40 38 |.~......|.@8...@8|
|000051a0| 23 82 91 01 f6 0e 0a ea | 0e 07 40 38 e2 0e 07 40 |#.......|..@8...@|
|000051b0| 38 f0 0e 07 40 38 24 82 | 9d 01 f5 0e 0a 0e 07 40 |8...@8$.|.......@|
|000051c0| 40 c1 23 1e 0e 0e 11 1e | 10 0e 0e 41 41 83 c2 01 |@.#.....|...AA...|
|000051d0| f7 0e 11 0e 11 e2 5c 5c | 5c 5c 1e 11 f8 f9 0e 0a |......\\|\\......|
|000051e0| 0e 10 0e 0e 24 29 21 82 | c6 01 d4 0e 0e 42 1e 12 |....$)!.|.....B..|
|000051f0| 0c 83 db 01 d4 d4 ea 0e | 12 38 44 e2 0e 12 38 45 |........|.8D...8E|
|00005200| 82 dd 01 0e 12 2b 82 64 | 02 0e 11 1e 10 f7 0e 11 |.....+.d|........|
|00005210| 0e 11 e2 5c 5c 5c 5c 1e | 11 fa 0e 0a 0a 0e 07 0e |...\\\\.|........|
|00005220| 10 24 29 21 1e 12 ea 0e | 12 38 1e 13 d4 43 1e 14 |.$)!....|.8...C..|
|00005230| 0e 13 41 89 16 13 85 49 | 02 f0 0e 07 40 38 83 36 |..A....I|....@8.6|
|00005240| 02 fb 0e 14 f7 fc 0e 13 | 40 ea 0e 13 38 45 21 43 |........|@...8E!C|
|00005250| 5c 22 88 0e 13 41 16 13 | 0e 07 41 89 16 07 82 3e |\"...A..|..A....>|
|00005260| 02 fb 0e 14 0e 13 40 43 | 5c 22 88 0e 07 41 89 16 |......@C|\"...A..|
|00005270| 07 88 82 06 02 88 0c 83 | 59 02 d4 0e 14 e2 0e 12 |........|Y.......|
|00005280| 38 45 82 63 02 d4 ea 0e | 14 38 e2 0e 12 38 45 2c |8E.c....|.8...8E,|
|00005290| 2e 06 87 22 20 5b 63 61 | 6c 63 2d 73 79 6d 62 6f |..." [ca|lc-symbo|
|000052a0| 6c 69 63 2d 6d 6f 64 65 | 20 6e 69 6c 20 6e 20 76 |lic-mode| nil n v|
|000052b0| 61 72 2d 44 55 4d 4d 59 | 20 69 73 76 65 63 20 76 |ar-DUMMY| isvec v|
|000052c0| 61 72 20 67 20 67 75 65 | 73 73 65 73 20 67 75 65 |ar g gue|sses gue|
|000052d0| 73 73 20 76 67 20 65 78 | 70 72 20 6d 61 74 68 2d |ss vg ex|pr math-|
|000052e0| 6d 69 6e 2d 76 61 72 73 | 20 73 79 6d 62 20 74 20 |min-vars| symb t |
|000052f0| 70 61 72 61 6d 73 20 6d | 69 6e 2d 77 69 64 65 6e |params m|in-widen|
|00005300| 20 70 72 65 63 20 63 61 | 6c 63 2d 69 6e 74 65 72 | prec ca|lc-inter|
|00005310| 6e 61 6c 2d 70 72 65 63 | 20 72 65 73 20 70 20 76 |nal-prec| res p v|
|00005320| 65 63 20 30 20 6d 61 74 | 68 2d 76 65 63 74 6f 72 |ec 0 mat|h-vector|
|00005330| 70 20 6d 61 74 68 2d 64 | 69 6d 65 6e 73 69 6f 6e |p math-d|imension|
|00005340| 2d 65 72 72 6f 72 20 63 | 61 72 2d 73 61 66 65 20 |-error c|ar-safe |
|00005350| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00005360| 22 2a 45 78 70 65 63 74 | 65 64 20 61 20 76 61 72 |"*Expect|ed a var|
|00005370| 69 61 62 6c 65 22 20 6d | 61 74 68 2d 65 78 70 72 |iable" m|ath-expr|
|00005380| 2d 63 6f 6e 74 61 69 6e | 73 20 22 2a 46 6f 72 6d |-contain|s "*Form|
|00005390| 75 6c 61 20 64 6f 65 73 | 20 6e 6f 74 20 63 6f 6e |ula does| not con|
|000053a0| 74 61 69 6e 20 73 70 65 | 63 69 66 69 65 64 20 76 |tain spe|cified v|
|000053b0| 61 72 69 61 62 6c 65 22 | 20 69 6e 74 65 72 6e 20 |ariable"| intern |
|000053c0| 22 6d 61 74 68 2d 6d 69 | 6e 2d 76 22 20 69 6e 74 |"math-mi|n-v" int|
|000053d0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 76 63 6f 6e 63 |-to-stri|ng vconc|
|000053e0| 61 74 20 76 65 63 74 6f | 72 20 32 20 6d 61 74 68 |at vecto|r 2 math|
|000053f0| 2d 63 6f 6d 70 6c 65 78 | 70 20 6d 61 74 68 2d 65 |-complex|p math-e|
|00005400| 78 70 72 2d 73 75 62 73 | 74 20 2b 20 2a 20 28 63 |xpr-subs|t + * (c|
|00005410| 70 6c 78 20 30 20 31 29 | 20 6d 61 74 68 2d 66 6c |plx 0 1)| math-fl|
|00005420| 6f 61 74 20 6d 61 74 68 | 2d 63 6f 6d 70 6c 65 78 |oat math|-complex|
|00005430| 20 31 20 6d 61 74 68 2d | 72 65 61 6c 70 20 69 6e | 1 math-|realp in|
|00005440| 74 76 20 6d 61 74 68 2d | 63 6f 6e 73 74 70 20 6d |tv math-|constp m|
|00005450| 61 74 68 2d 6d 75 6c 20 | 6d 61 74 68 2d 61 64 64 |ath-mul |math-add|
|00005460| 20 33 20 28 66 6c 6f 61 | 74 20 35 20 2d 31 29 20 | 3 (floa|t 5 -1) |
|00005470| 72 65 61 6c 70 20 6e 72 | 65 76 65 72 73 65 20 6d |realp nr|everse m|
|00005480| 61 74 68 2d 65 76 61 6c | 75 61 74 65 2d 65 78 70 |ath-eval|uate-exp|
|00005490| 72 20 6d 61 74 68 2d 77 | 69 64 65 6e 2d 6d 69 6e |r math-w|iden-min|
|000054a0| 20 6d 61 74 68 2d 6e 61 | 72 72 6f 77 2d 6d 69 6e | math-na|rrow-min|
|000054b0| 20 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | math-no|rmalize |
|000054c0| 61 70 70 6c 79 20 6d 61 | 74 68 2d 62 72 65 6e 74 |apply ma|th-brent|
|000054d0| 2d 6d 69 6e 20 6d 61 74 | 68 2d 70 6f 77 65 6c 6c |-min mat|h-powell|
|000054e0| 2d 6d 69 6e 20 6e 63 6f | 6e 63 20 63 70 6c 78 5d |-min nco|nc cplx]|
|000054f0| 20 34 33 29 29 0a 0a 28 | 73 65 74 71 20 6d 61 74 | 43))..(|setq mat|
|00005500| 68 2d 6d 69 6e 2d 6f 72 | 2d 6d 61 78 20 22 6d 69 |h-min-or|-max "mi|
|00005510| 6e 69 6d 75 6d 22 29 0a | 0a 28 64 65 66 75 6e 20 |nimum").|.(defun |
|00005520| 63 61 6c 63 46 75 6e 63 | 2d 6d 69 6e 69 6d 69 7a |calcFunc|-minimiz|
|00005530| 65 20 28 65 78 70 72 20 | 76 61 72 20 67 75 65 73 |e (expr |var gues|
|00005540| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c6 |s) (byte|-code ".|
|00005550| 08 c7 5c 22 c8 5d c9 19 | 18 ca cb 0a 21 cb 0b 21 |..\".]..|....!..!|
|00005560| cb 0c 21 c5 24 2a 87 22 | 20 5b 63 61 6c 63 2d 69 |..!.$*."| [calc-i|
|00005570| 6e 74 65 72 6e 61 6c 2d | 70 72 65 63 20 6d 61 74 |nternal-|prec mat|
|00005580| 68 2d 6d 69 6e 2d 6f 72 | 2d 6d 61 78 20 65 78 70 |h-min-or|-max exp|
|00005590| 72 20 76 61 72 20 67 75 | 65 73 73 20 6e 69 6c 20 |r var gu|ess nil |
|000055a0| 2f 20 32 20 33 20 22 6d | 69 6e 69 6d 75 6d 22 20 |/ 2 3 "m|inimum" |
|000055b0| 6d 61 74 68 2d 66 69 6e | 64 2d 6d 69 6e 69 6d 75 |math-fin|d-minimu|
|000055c0| 6d 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |m math-n|ormalize|
|000055d0| 5d 20 39 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 9))..(|defun ca|
|000055e0| 6c 63 46 75 6e 63 2d 77 | 6d 69 6e 69 6d 69 7a 65 |lcFunc-w|minimize|
|000055f0| 20 28 65 78 70 72 20 76 | 61 72 20 67 75 65 73 73 | (expr v|ar guess|
|00005600| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c6 08 |) (byte-|code "..|
|00005610| c7 5c 22 c8 5d c9 19 18 | ca cb 0a 21 cb 0b 21 cb |.\".]...|...!..!.|
|00005620| 0c 21 c5 24 2a 87 22 20 | 5b 63 61 6c 63 2d 69 6e |.!.$*." |[calc-in|
|00005630| 74 65 72 6e 61 6c 2d 70 | 72 65 63 20 6d 61 74 68 |ternal-p|rec math|
|00005640| 2d 6d 69 6e 2d 6f 72 2d | 6d 61 78 20 65 78 70 72 |-min-or-|max expr|
|00005650| 20 76 61 72 20 67 75 65 | 73 73 20 74 20 2f 20 32 | var gue|ss t / 2|
|00005660| 20 33 20 22 6d 69 6e 69 | 6d 75 6d 22 20 6d 61 74 | 3 "mini|mum" mat|
|00005670| 68 2d 66 69 6e 64 2d 6d | 69 6e 69 6d 75 6d 20 6d |h-find-m|inimum m|
|00005680| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 5d 20 39 |ath-norm|alize] 9|
|00005690| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|000056a0| 75 6e 63 2d 6d 61 78 69 | 6d 69 7a 65 20 28 65 78 |unc-maxi|mize (ex|
|000056b0| 70 72 20 76 61 72 20 67 | 75 65 73 73 29 20 28 62 |pr var g|uess) (b|
|000056c0| 79 74 65 2d 63 6f 64 65 | 20 22 c7 08 c8 5c 22 c9 |yte-code| "...\".|
|000056d0| 5d 18 ca 19 cb cc cd 0b | 21 21 cc 0c 21 cc 0d 21 |].......|!!..!..!|
|000056e0| c6 24 1a ce cf 0a 38 cd | c8 0a 38 21 45 2b 87 22 |.$....8.|..8!E+."|
|000056f0| 20 5b 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d | [calc-i|nternal-|
|00005700| 70 72 65 63 20 6d 61 74 | 68 2d 6d 69 6e 2d 6f 72 |prec mat|h-min-or|
|00005710| 2d 6d 61 78 20 72 65 73 | 20 65 78 70 72 20 76 61 |-max res| expr va|
|00005720| 72 20 67 75 65 73 73 20 | 6e 69 6c 20 2f 20 32 20 |r guess |nil / 2 |
|00005730| 33 20 22 6d 61 78 69 6d | 75 6d 22 20 6d 61 74 68 |3 "maxim|um" math|
|00005740| 2d 66 69 6e 64 2d 6d 69 | 6e 69 6d 75 6d 20 6d 61 |-find-mi|nimum ma|
|00005750| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 6d 61 74 |th-norma|lize mat|
|00005760| 68 2d 6e 65 67 20 76 65 | 63 20 31 5d 20 31 31 29 |h-neg ve|c 1] 11)|
|00005770| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00005780| 6e 63 2d 77 6d 61 78 69 | 6d 69 7a 65 20 28 65 78 |nc-wmaxi|mize (ex|
|00005790| 70 72 20 76 61 72 20 67 | 75 65 73 73 29 20 28 62 |pr var g|uess) (b|
|000057a0| 79 74 65 2d 63 6f 64 65 | 20 22 c7 08 c8 5c 22 c9 |yte-code| "...\".|
|000057b0| 5d 18 ca 19 cb cc cd 0b | 21 21 cc 0c 21 cc 0d 21 |].......|!!..!..!|
|000057c0| c6 24 1a ce cf 0a 38 cd | c8 0a 38 21 45 2b 87 22 |.$....8.|..8!E+."|
|000057d0| 20 5b 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d | [calc-i|nternal-|
|000057e0| 70 72 65 63 20 6d 61 74 | 68 2d 6d 69 6e 2d 6f 72 |prec mat|h-min-or|
|000057f0| 2d 6d 61 78 20 72 65 73 | 20 65 78 70 72 20 76 61 |-max res| expr va|
|00005800| 72 20 67 75 65 73 73 20 | 74 20 2f 20 32 20 33 20 |r guess |t / 2 3 |
|00005810| 22 6d 61 78 69 6d 75 6d | 22 20 6d 61 74 68 2d 66 |"maximum|" math-f|
|00005820| 69 6e 64 2d 6d 69 6e 69 | 6d 75 6d 20 6d 61 74 68 |ind-mini|mum math|
|00005830| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 6d 61 74 68 2d |-normali|ze math-|
|00005840| 6e 65 67 20 76 65 63 20 | 31 5d 20 31 31 29 29 0a |neg vec |1] 11)).|
|00005850| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00005860| 2d 70 6f 6c 69 6e 74 20 | 28 64 61 74 61 20 78 29 |-polint |(data x)|
|00005870| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c5 08 21 | (byte-c|ode "..!|
|00005880| 86 0a 00 c6 08 c7 5c 22 | 88 08 47 c8 55 86 16 00 |......\"|..G.U...|
|00005890| c6 08 c9 5c 22 88 ca 08 | 38 47 cb 56 86 24 00 c6 |...\"...|8G.V.$..|
|000058a0| 08 cc 5c 22 88 cd 09 21 | 85 32 00 ce 09 21 86 32 |..\"...!|.2...!.2|
|000058b0| 00 0a 83 3f 00 cf d0 d1 | 09 41 5c 22 42 82 63 00 |...?....|.A\"B.c.|
|000058c0| d2 09 21 86 4d 00 0a 86 | 4d 00 c6 09 d3 5c 22 88 |..!.M...|M....\".|
|000058d0| d4 0b cb 5c 5c 1b cf d5 | ca 08 38 41 cb 08 38 41 |...\\...|..8A..8A|
|000058e0| 09 c4 24 42 29 21 87 22 | 20 5b 64 61 74 61 20 78 |..$B)!."| [data x|
|000058f0| 20 6d 61 74 68 2d 65 78 | 70 61 6e 64 2d 66 6f 72 | math-ex|pand-for|
|00005900| 6d 75 6c 61 73 20 63 61 | 6c 63 2d 69 6e 74 65 72 |mulas ca|lc-inter|
|00005910| 6e 61 6c 2d 70 72 65 63 | 20 6e 69 6c 20 6d 61 74 |nal-prec| nil mat|
|00005920| 68 2d 6d 61 74 72 69 78 | 70 20 6d 61 74 68 2d 72 |h-matrix|p math-r|
|00005930| 65 6a 65 63 74 2d 61 72 | 67 20 6d 61 74 72 69 78 |eject-ar|g matrix|
|00005940| 70 20 33 20 22 2a 57 72 | 6f 6e 67 20 6e 75 6d 62 |p 3 "*Wr|ong numb|
|00005950| 65 72 20 6f 66 20 64 61 | 74 61 20 72 6f 77 73 22 |er of da|ta rows"|
|00005960| 20 31 20 32 20 22 2a 54 | 6f 6f 20 66 65 77 20 64 | 1 2 "*T|oo few d|
|00005970| 61 74 61 20 70 6f 69 6e | 74 73 22 20 6d 61 74 68 |ata poin|ts" math|
|00005980| 2d 76 65 63 74 6f 72 70 | 20 6d 61 74 68 2d 63 6f |-vectorp| math-co|
|00005990| 6e 73 74 70 20 76 65 63 | 20 6d 61 70 63 61 72 20 |nstp vec| mapcar |
|000059a0| 28 6c 61 6d 62 64 61 20 | 28 78 29 20 28 62 79 74 |(lambda |(x) (byt|
|000059b0| 65 2d 63 6f 64 65 20 22 | c2 08 09 5c 22 87 22 20 |e-code "|...\"." |
|000059c0| 5b 64 61 74 61 20 78 20 | 63 61 6c 63 46 75 6e 63 |[data x |calcFunc|
|000059d0| 2d 70 6f 6c 69 6e 74 5d | 20 33 29 29 20 6d 61 74 |-polint]| 3)) mat|
|000059e0| 68 2d 6f 62 6a 65 63 74 | 70 20 6f 62 6a 65 63 74 |h-object|p object|
|000059f0| 70 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |p math-n|ormalize|
|00005a00| 20 6d 61 74 68 2d 70 6f | 6c 79 2d 69 6e 74 65 72 | math-po|ly-inter|
|00005a10| 70 5d 20 31 36 29 29 0a | 0a 28 70 75 74 20 28 71 |p] 16)).|.(put (q|
|00005a20| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 70 6f |uote cal|cFunc-po|
|00005a30| 6c 69 6e 74 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |lint) (q|uote mat|
|00005a40| 68 2d 65 78 70 61 6e 64 | 61 62 6c 65 29 20 74 29 |h-expand|able) t)|
|00005a50| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00005a60| 63 2d 72 61 74 69 6e 74 | 20 28 64 61 74 61 20 78 |c-ratint| (data x|
|00005a70| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c4 08 |) (byte-|code "..|
|00005a80| 21 86 0a 00 c5 08 c6 5c | 22 88 08 47 c7 55 86 16 |!......\|"..G.U..|
|00005a90| 00 c5 08 c8 5c 22 88 c9 | 08 38 47 ca 56 86 24 00 |....\"..|.8G.V.$.|
|00005aa0| c5 08 cb 5c 22 88 cc 09 | 21 85 32 00 cd 09 21 86 |...\"...|!.2...!.|
|00005ab0| 32 00 0a 83 3f 00 ce cf | d0 09 41 5c 22 42 82 68 |2...?...|..A\"B.h|
|00005ac0| 00 d1 09 21 86 4d 00 0a | 86 4d 00 c5 09 d2 5c 22 |...!.M..|.M....\"|
|00005ad0| 88 d3 0b ca 5c 5c 1b ce | d4 c9 08 38 41 ca 08 38 |....\\..|...8A..8|
|00005ae0| 41 09 c9 08 38 41 41 41 | 24 42 29 21 87 22 20 5b |A...8AAA|$B)!." [|
|00005af0| 64 61 74 61 20 78 20 6d | 61 74 68 2d 65 78 70 61 |data x m|ath-expa|
|00005b00| 6e 64 2d 66 6f 72 6d 75 | 6c 61 73 20 63 61 6c 63 |nd-formu|las calc|
|00005b10| 2d 69 6e 74 65 72 6e 61 | 6c 2d 70 72 65 63 20 6d |-interna|l-prec m|
|00005b20| 61 74 68 2d 6d 61 74 72 | 69 78 70 20 6d 61 74 68 |ath-matr|ixp math|
|00005b30| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 6d 61 74 72 |-reject-|arg matr|
|00005b40| 69 78 70 20 33 20 22 2a | 57 72 6f 6e 67 20 6e 75 |ixp 3 "*|Wrong nu|
|00005b50| 6d 62 65 72 20 6f 66 20 | 64 61 74 61 20 72 6f 77 |mber of |data row|
|00005b60| 73 22 20 31 20 32 20 22 | 2a 54 6f 6f 20 66 65 77 |s" 1 2 "|*Too few|
|00005b70| 20 64 61 74 61 20 70 6f | 69 6e 74 73 22 20 6d 61 | data po|ints" ma|
|00005b80| 74 68 2d 76 65 63 74 6f | 72 70 20 6d 61 74 68 2d |th-vecto|rp math-|
|00005b90| 63 6f 6e 73 74 70 20 76 | 65 63 20 6d 61 70 63 61 |constp v|ec mapca|
|00005ba0| 72 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 62 |r (lambd|a (x) (b|
|00005bb0| 79 74 65 2d 63 6f 64 65 | 20 22 c2 08 09 5c 22 87 |yte-code| "...\".|
|00005bc0| 22 20 5b 64 61 74 61 20 | 78 20 63 61 6c 63 46 75 |" [data |x calcFu|
|00005bd0| 6e 63 2d 72 61 74 69 6e | 74 5d 20 33 29 29 20 6d |nc-ratin|t] 3)) m|
|00005be0| 61 74 68 2d 6f 62 6a 65 | 63 74 70 20 6f 62 6a 65 |ath-obje|ctp obje|
|00005bf0| 63 74 70 20 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |ctp math|-normali|
|00005c00| 7a 65 20 6d 61 74 68 2d | 70 6f 6c 79 2d 69 6e 74 |ze math-|poly-int|
|00005c10| 65 72 70 5d 20 31 37 29 | 29 0a 0a 28 70 75 74 20 |erp] 17)|)..(put |
|00005c20| 28 71 75 6f 74 65 20 63 | 61 6c 63 46 75 6e 63 2d |(quote c|alcFunc-|
|00005c30| 72 61 74 69 6e 74 29 20 | 28 71 75 6f 74 65 20 6d |ratint) |(quote m|
|00005c40| 61 74 68 2d 65 78 70 61 | 6e 64 61 62 6c 65 29 20 |ath-expa|ndable) |
|00005c50| 74 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |t)..(def|un math-|
|00005c60| 70 6f 6c 79 2d 69 6e 74 | 65 72 70 20 28 78 61 20 |poly-int|erp (xa |
|00005c70| 79 61 20 78 20 72 61 74 | 70 29 20 28 62 79 74 65 |ya x rat|p) (byte|
|00005c80| 2d 63 6f 64 65 20 22 09 | 47 c3 c3 c3 d5 0e 07 21 |-code ".|G......!|
|00005c90| d5 0e 07 21 d6 d6 c3 c3 | 09 c3 c3 c3 c3 1e 11 1e |...!....|........|
|00005ca0| 10 1e 0f 1e 0e 1e 0d 1e | 0c 1e 0b 1e 0a 1e 09 1e |........|........|
|00005cb0| 08 1e 06 1d 1c 1a 18 0e | 09 54 89 16 09 08 58 85 |........|.T....X.|
|00005cc0| 6a 00 d7 0e 0d 40 0e 12 | 5c 22 0d 42 15 0e 0d 41 |j....@..|\".B...A|
|00005cd0| 16 0d d8 0d 40 21 89 16 | 11 88 0a 3f 86 5c 5c 00 |....@!..|...?.\\.|
|00005ce0| d9 0e 11 0a 5c 22 85 66 | 00 0e 11 12 0e 09 89 14 |....\".f|........|
|00005cf0| 88 82 30 00 88 da 0d 21 | 15 0c 53 14 0c 0e 07 38 |..0....!|..S....8|
|00005d00| 89 16 0b 88 db 0a 21 83 | 87 00 0e 0b d6 44 82 8b |......!.|.....D..|
|00005d10| 01 0e 0a 54 89 16 0a 08 | 57 85 85 01 d6 16 09 0d |...T....|W.......|
|00005d20| 16 0d dc 0e 0a 0d 5c 22 | 16 0e 0e 06 16 0f 0e 08 |......\"|........|
|00005d30| 89 16 10 88 0e 09 54 89 | 16 09 08 0e 0a 5a 58 85 |......T.|.....ZX.|
|00005d40| 57 01 0e 13 83 fd 00 dd | de 0e 0d 40 0e 10 40 5c |W.......|...@..@\|
|00005d50| 22 0e 0e 40 5c 22 1e 14 | dd d7 df 0e 0f 38 0e 10 |"..@\"..|.....8..|
|00005d60| 40 5c 22 d7 0e 14 df 0e | 0f 38 5c 22 5c 22 89 16 |@\".....|.8\"\"..|
|00005d70| 11 88 e0 0e 10 de df 0e | 0f 38 0e 11 5c 22 5c 22 |........|.8..\"\"|
|00005d80| 88 e0 0e 0f de 0e 14 0e | 11 5c 22 5c 22 29 82 3d |........|.\"\").=|
|00005d90| 01 e1 0e 0d 40 0e 0e 40 | 5c 22 85 0e 01 e2 e3 09 |....@..@|\"......|
|00005da0| 42 e4 5c 22 88 dd d7 df | 0e 0f 38 0e 10 40 5c 22 |B.\"....|..8..@\"|
|00005db0| d7 0e 0d 40 0e 0e 40 5c | 22 5c 22 89 16 11 88 e0 |...@..@\|"\".....|
|00005dc0| 0e 10 de 0e 0e 40 0e 11 | 5c 22 5c 22 88 e0 0e 0f |.....@..|\"\"....|
|00005dd0| de 0e 0d 40 0e 11 5c 22 | 5c 22 88 0e 0f 41 16 0f |...@..\"|\"...A..|
|00005de0| 0e 10 41 16 10 0e 0d 41 | 16 0d 0e 0e 41 89 16 0e |..A....A|....A...|
|00005df0| 88 82 a9 00 88 0c 0c 5c | 5c 08 0e 0a 5a 57 83 6d |.......\|\...ZW.m|
|00005e00| 01 0c 0e 06 38 89 16 0c | 82 77 01 0c 53 14 0c 0e |....8...|.w..S...|
|00005e10| 08 38 89 16 0c 88 e5 0e | 0b 0e 0c 5c 22 89 16 0b |.8......|...\"...|
|00005e20| 88 82 87 00 88 0e 0b 0e | 0c 44 2e 0f 87 22 20 5b |........|.D..." [|
|00005e30| 6e 20 78 61 20 64 69 66 | 20 6e 69 6c 20 6e 73 20 |n xa dif| nil ns |
|00005e40| 78 61 78 20 63 20 79 61 | 20 64 20 69 20 6d 20 79 |xax c ya| d i m y|
|00005e50| 20 64 79 20 78 70 20 78 | 70 6d 20 63 70 20 64 70 | dy xp x|pm cp dp|
|00005e60| 20 74 65 6d 70 20 78 20 | 72 61 74 70 20 74 32 20 | temp x |ratp t2 |
|00005e70| 63 6f 70 79 2d 73 65 71 | 75 65 6e 63 65 20 30 20 |copy-seq|uence 0 |
|00005e80| 6d 61 74 68 2d 73 75 62 | 20 6d 61 74 68 2d 61 62 |math-sub| math-ab|
|00005e90| 73 20 6d 61 74 68 2d 6c | 65 73 73 70 20 6e 72 65 |s math-l|essp nre|
|00005ea0| 76 65 72 73 65 20 6d 61 | 74 68 2d 7a 65 72 6f 70 |verse ma|th-zerop|
|00005eb0| 20 6e 74 68 63 64 72 20 | 6d 61 74 68 2d 64 69 76 | nthcdr |math-div|
|00005ec0| 20 6d 61 74 68 2d 6d 75 | 6c 20 31 20 73 65 74 63 | math-mu|l 1 setc|
|00005ed0| 61 72 20 6d 61 74 68 2d | 65 71 75 61 6c 20 6d 61 |ar math-|equal ma|
|00005ee0| 74 68 2d 72 65 6a 65 63 | 74 2d 61 72 67 20 76 65 |th-rejec|t-arg ve|
|00005ef0| 63 20 22 2a 44 75 70 6c | 69 63 61 74 65 20 58 20 |c "*Dupl|icate X |
|00005f00| 76 61 6c 75 65 73 22 20 | 6d 61 74 68 2d 61 64 64 |values" |math-add|
|00005f10| 5d 20 33 31 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |] 31))..|(defun c|
|00005f20| 61 6c 63 46 75 6e 63 2d | 6e 69 6e 74 65 67 20 28 |alcFunc-|ninteg (|
|00005f30| 65 78 70 72 20 76 61 72 | 20 6c 6f 20 68 69 29 20 |expr var| lo hi) |
|00005f40| 28 62 79 74 65 2d 63 6f | 64 65 20 22 cb 08 21 10 |(byte-co|de "..!.|
|00005f50| cb 09 21 89 11 88 cc 08 | 21 86 1a 00 cd 08 21 86 |..!.....|!.....!.|
|00005f60| 1a 00 ce 08 cf 5c 22 88 | cc 09 21 86 2b 00 cd 09 |.....\".|..!.+...|
|00005f70| 21 86 2b 00 ce 09 cf 5c | 22 88 d0 09 08 5c 22 83 |!.+....\|"....\".|
|00005f80| 3e 00 d1 d2 0a 0b 09 08 | 24 21 82 ca 00 d3 0a 0b |>.......|$!......|
|00005f90| d4 23 89 12 88 c5 c5 c5 | d5 1e 08 1e 07 1e 06 1c |.#......|........|
|00005fa0| cb 0a 21 89 12 88 d6 08 | d7 5c 22 85 7f 00 d0 09 |..!.....|.\".....|
|00005fb0| d8 5c 22 83 69 00 09 82 | 6a 00 d9 1e 09 da db 0a |.\".i...|j.......|
|00005fc0| dc 08 21 dc 0e 09 21 dd | 25 16 08 0e 09 89 10 29 |..!...!.|%......)|
|00005fd0| 88 d6 09 de 5c 22 85 ac | 00 d0 df 08 5c 22 83 92 |....\"..|....\"..|
|00005fe0| 00 08 82 93 00 e0 1e 0a | e1 0e 08 da db 0a dc 0e |........|........|
|00005ff0| 0a 21 dc 09 21 dd 25 5c | 22 16 08 0e 0a 89 11 29 |.!..!.%\|"......)|
|00006000| 88 e2 08 09 5c 22 86 c6 | 00 e1 0e 08 da db 0a dc |....\"..|........|
|00006010| 08 21 dc 09 21 c5 25 5c | 22 89 16 08 88 0e 08 2c |.!..!.%\|"......,|
|00006020| 87 22 20 5b 6c 6f 20 68 | 69 20 65 78 70 72 20 76 |." [lo h|i expr v|
|00006030| 61 72 20 76 61 72 2d 44 | 55 4d 4d 59 20 6e 69 6c |ar var-D|UMMY nil|
|00006040| 20 63 61 6c 63 2d 73 79 | 6d 62 6f 6c 69 63 2d 6d | calc-sy|mbolic-m|
|00006050| 6f 64 65 20 63 61 6c 63 | 2d 70 72 65 66 65 72 2d |ode calc|-prefer-|
|00006060| 66 72 61 63 20 73 75 6d | 20 74 68 69 20 74 6c 6f |frac sum| thi tlo|
|00006070| 20 6d 61 74 68 2d 65 76 | 61 6c 75 61 74 65 2d 65 | math-ev|aluate-e|
|00006080| 78 70 72 20 6d 61 74 68 | 2d 6e 75 6d 62 65 72 70 |xpr math|-numberp|
|00006090| 20 6d 61 74 68 2d 69 6e | 66 69 6e 69 74 65 70 20 | math-in|finitep |
|000060a0| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|000060b0| 6e 75 6d 62 65 72 70 20 | 6d 61 74 68 2d 6c 65 73 |numberp |math-les|
|000060c0| 73 70 20 6d 61 74 68 2d | 6e 65 67 20 63 61 6c 63 |sp math-|neg calc|
|000060d0| 46 75 6e 63 2d 6e 69 6e | 74 65 67 20 6d 61 74 68 |Func-nin|teg math|
|000060e0| 2d 65 78 70 72 2d 73 75 | 62 73 74 20 28 76 61 72 |-expr-su|bst (var|
|000060f0| 20 44 55 4d 4d 59 20 76 | 61 72 2d 44 55 4d 4d 59 | DUMMY v|ar-DUMMY|
|00006100| 29 20 30 20 65 71 75 61 | 6c 20 28 6e 65 67 20 28 |) 0 equa|l (neg (|
|00006110| 76 61 72 20 69 6e 66 20 | 76 61 72 2d 69 6e 66 29 |var inf |var-inf)|
|00006120| 29 20 28 66 6c 6f 61 74 | 20 2d 32 20 30 29 20 28 |) (float| -2 0) (|
|00006130| 66 6c 6f 61 74 20 2d 32 | 20 30 29 20 6d 61 74 68 |float -2| 0) math|
|00006140| 2d 6e 69 6e 74 65 67 2d | 72 6f 6d 62 65 72 67 20 |-ninteg-|romberg |
|00006150| 6d 61 74 68 2d 6e 69 6e | 74 65 67 2d 6d 69 64 70 |math-nin|teg-midp|
|00006160| 6f 69 6e 74 20 6d 61 74 | 68 2d 66 6c 6f 61 74 20 |oint mat|h-float |
|00006170| 69 6e 66 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |inf (var| inf var|
|00006180| 2d 69 6e 66 29 20 28 66 | 6c 6f 61 74 20 32 20 30 |-inf) (f|loat 2 0|
|00006190| 29 20 28 66 6c 6f 61 74 | 20 32 20 30 29 20 6d 61 |) (float| 2 0) ma|
|000061a0| 74 68 2d 61 64 64 20 6d | 61 74 68 2d 65 71 75 61 |th-add m|ath-equa|
|000061b0| 6c 5d 20 33 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |l] 35)).|.(defun |
|000061c0| 6d 61 74 68 2d 6e 69 6e | 74 65 67 2d 72 6f 6d 62 |math-nin|teg-romb|
|000061d0| 65 72 67 20 28 66 75 6e | 63 20 65 78 70 72 20 6c |erg (fun|c expr l|
|000061e0| 6f 20 68 69 20 6d 6f 64 | 65 29 20 28 62 79 74 65 |o hi mod|e) (byte|
|000061f0| 2d 63 6f 64 65 20 22 d0 | c2 c2 d1 c2 0e 07 c2 1e |-code ".|........|
|00006200| 08 1e 06 1d 1c 1b 19 18 | d2 0e 07 d3 5c 5c 1e 07 |........|....\\..|
|00006210| 0d 3f 85 23 00 0c 54 89 | 14 d4 58 85 84 00 d5 0b |.?.#..T.|..X.....|
|00006220| d6 0e 09 0e 0a 0e 0b 0e | 0c 0e 0d 25 43 5c 22 13 |........|...%C\".|
|00006230| d5 09 08 43 5c 22 89 11 | 88 0c d7 59 85 6b 00 d8 |...C\"..|...Y.k..|
|00006240| 09 0b d9 c2 24 1e 0e da | db dc 0e 0e 38 21 dd db |....$...|....8!..|
|00006250| 0e 0e 40 21 0e 06 5b 5c | 22 5c 22 85 6a 00 0c 16 |..@!..[\|"\".j...|
|00006260| 0f 0e 0e 40 89 15 29 88 | 0c de 59 85 79 00 0b 41 |...@..).|..Y.y..A|
|00006270| 13 09 41 89 11 88 df 08 | e0 5c 22 89 10 88 82 18 |..A.....|.\".....|
|00006280| 00 86 91 00 0d 86 91 00 | e1 c2 e2 e3 21 5c 22 29 |........|....!\")|
|00006290| 21 2e 07 87 22 20 5b 63 | 75 72 68 20 68 20 6e 69 |!..." [c|urh h ni|
|000062a0| 6c 20 73 20 6a 20 73 73 | 20 70 72 65 63 20 63 61 |l s j ss| prec ca|
|000062b0| 6c 63 2d 69 6e 74 65 72 | 6e 61 6c 2d 70 72 65 63 |lc-inter|nal-prec|
|000062c0| 20 69 6e 74 65 67 2d 74 | 65 6d 70 20 66 75 6e 63 | integ-t|emp func|
|000062d0| 20 65 78 70 72 20 6c 6f | 20 68 69 20 6d 6f 64 65 | expr lo| hi mode|
|000062e0| 20 72 65 73 20 6d 61 74 | 68 2d 6e 69 6e 74 65 67 | res mat|h-ninteg|
|000062f0| 2d 63 6f 6e 76 65 72 67 | 65 6e 63 65 20 28 66 6c |-converg|ence (fl|
|00006300| 6f 61 74 20 31 20 30 29 | 20 30 20 6d 61 74 68 2d |oat 1 0)| 0 math-|
|00006310| 6e 6f 72 6d 61 6c 69 7a | 65 20 32 20 38 20 6e 63 |normaliz|e 2 8 nc|
|00006320| 6f 6e 63 20 66 75 6e 63 | 61 6c 6c 20 33 20 6d 61 |onc func|all 3 ma|
|00006330| 74 68 2d 70 6f 6c 79 2d | 69 6e 74 65 72 70 20 28 |th-poly-|interp (|
|00006340| 66 6c 6f 61 74 20 30 20 | 30 29 20 6d 61 74 68 2d |float 0 |0) math-|
|00006350| 6c 65 73 73 70 20 6d 61 | 74 68 2d 61 62 73 20 31 |lessp ma|th-abs 1|
|00006360| 20 63 61 6c 63 46 75 6e | 63 2d 73 63 66 20 35 20 | calcFun|c-scf 5 |
|00006370| 6d 61 74 68 2d 64 69 76 | 2d 66 6c 6f 61 74 20 28 |math-div|-float (|
|00006380| 66 6c 6f 61 74 20 39 20 | 30 29 20 6d 61 74 68 2d |float 9 |0) math-|
|00006390| 72 65 6a 65 63 74 2d 61 | 72 67 20 66 6f 72 6d 61 |reject-a|rg forma|
|000063a0| 74 20 22 2a 49 6e 74 65 | 67 72 61 6c 20 66 61 69 |t "*Inte|gral fai|
|000063b0| 6c 65 64 20 74 6f 20 63 | 6f 6e 76 65 72 67 65 22 |led to c|onverge"|
|000063c0| 5d 20 31 34 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |] 14))..|(defun m|
|000063d0| 61 74 68 2d 6e 69 6e 74 | 65 67 2d 65 76 61 6c 75 |ath-nint|eg-evalu|
|000063e0| 61 74 65 20 28 65 78 70 | 72 20 78 20 6d 6f 64 65 |ate (exp|r x mode|
|000063f0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c5 |) (byte-|code "..|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
