home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 63.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 61 6c 67 2d 32 | 20 6e 69 6c 20 28 62 79 |lc-alg-2| 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 64 65 72 69 | 76 61 74 69 76 65 20 28 |alc-deri|vative (|
|00000070| 76 61 72 20 6e 75 6d 29 | 20 28 69 6e 74 65 72 61 |var num)| (intera|
|00000080| 63 74 69 76 65 20 22 73 | 44 69 66 66 65 72 65 6e |ctive "s|Differen|
|00000090| 74 69 61 74 65 20 77 69 | 74 68 20 72 65 73 70 65 |tiate wi|th respe|
|000000a0| 63 74 20 74 6f 3a 20 0a | 70 22 29 20 28 62 79 74 |ct to: .|p") (byt|
|000000b0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 c3 5c 22 87 |e-code "|.....\".|
|000000c0| 22 20 5b 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 20 28 |" [nil c|alc-do (|
|000000d0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|000000e0| 2d 63 6f 64 65 20 22 08 | c5 57 85 09 00 c6 c7 21 |-code ".|.W.....!|
|000000f0| 88 c8 20 83 13 00 c9 82 | 14 00 ca cb cb 1b 1a 19 |.. .....|........|
|00000100| cc 0c cd 5c 22 86 24 00 | cc 0c ce 5c 22 83 35 00 |...\".$.|...\".5.|
|00000110| cf 12 d0 cf 21 13 d0 d1 | 21 89 14 82 51 00 d2 0c |....!...|!...Q...|
|00000120| 21 89 14 88 d3 0c 21 c6 | 3d 85 49 00 c6 d4 d1 0c |!.....!.|=.I.....|
|00000130| 38 5c 22 88 d1 12 d0 d1 | 21 89 13 88 08 53 89 10 |8\".....|!....S..|
|00000140| c5 59 85 65 00 09 0b 0c | 45 89 13 88 82 52 00 88 |.Y.e....|E....R..|
|00000150| d5 0a d6 0b 23 2b 87 22 | 20 5b 6e 75 6d 20 66 75 |....#+."| [num fu|
|00000160| 6e 63 20 6e 20 65 78 70 | 72 20 76 61 72 20 30 20 |nc n exp|r var 0 |
|00000170| 65 72 72 6f 72 20 22 4f | 72 64 65 72 20 6f 66 20 |error "O|rder of |
|00000180| 64 65 72 69 76 61 74 69 | 76 65 20 6d 75 73 74 20 |derivati|ve must |
|00000190| 62 65 20 70 6f 73 69 74 | 69 76 65 22 20 63 61 6c |be posit|ive" cal|
|000001a0| 63 2d 69 73 2d 68 79 70 | 65 72 62 6f 6c 69 63 20 |c-is-hyp|erbolic |
|000001b0| 63 61 6c 63 46 75 6e 63 | 2d 74 64 65 72 69 76 20 |calcFunc|-tderiv |
|000001c0| 63 61 6c 63 46 75 6e 63 | 2d 64 65 72 69 76 20 6e |calcFunc|-deriv n|
|000001d0| 69 6c 20 65 71 75 61 6c | 20 22 22 20 22 24 22 20 |il equal| "" "$" |
|000001e0| 32 20 63 61 6c 63 2d 74 | 6f 70 2d 6e 20 31 20 6d |2 calc-t|op-n 1 m|
|000001f0| 61 74 68 2d 72 65 61 64 | 2d 65 78 70 72 20 63 61 |ath-read|-expr ca|
|00000200| 72 2d 73 61 66 65 20 22 | 42 61 64 20 66 6f 72 6d |r-safe "|Bad form|
|00000210| 61 74 20 69 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |at in ex|pression|
|00000220| 3a 20 25 73 22 20 63 61 | 6c 63 2d 65 6e 74 65 72 |: %s" ca|lc-enter|
|00000230| 2d 72 65 73 75 6c 74 20 | 22 64 65 72 76 22 5d 20 |-result |"derv"] |
|00000240| 31 34 29 29 20 31 31 37 | 5d 20 33 29 29 0a 0a 28 |14)) 117|] 3))..(|
|00000250| 64 65 66 75 6e 20 63 61 | 6c 63 2d 69 6e 74 65 67 |defun ca|lc-integ|
|00000260| 72 61 6c 20 28 76 61 72 | 29 20 28 69 6e 74 65 72 |ral (var|) (inter|
|00000270| 61 63 74 69 76 65 20 22 | 73 49 6e 74 65 67 72 61 |active "|sIntegra|
|00000280| 74 69 6f 6e 20 76 61 72 | 69 61 62 6c 65 3a 20 22 |tion var|iable: "|
|00000290| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|000002a0| c1 c2 c3 5c 22 87 22 20 | 5b 6e 69 6c 20 63 61 6c |...\"." |[nil cal|
|000002b0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000002c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 c2 | (byte-c|ode "...|
|000002d0| 5c 22 86 0b 00 c1 08 c3 | 5c 22 83 1d 00 c4 c5 c6 |\"......|\"......|
|000002e0| c7 c8 c5 21 c8 c9 21 45 | 23 82 3b 00 ca 08 21 18 |...!..!E|#.;...!.|
|000002f0| cb 08 21 cc 3d 85 2f 00 | cc cd c9 08 38 5c 22 88 |..!.=./.|....8\".|
|00000300| c4 c9 c6 c7 c8 c9 21 08 | 45 23 29 87 22 20 5b 76 |......!.|E#)." [v|
|00000310| 61 72 20 65 71 75 61 6c | 20 22 22 20 22 24 22 20 |ar equal| "" "$" |
|00000320| 63 61 6c 63 2d 65 6e 74 | 65 72 2d 72 65 73 75 6c |calc-ent|er-resul|
|00000330| 74 20 32 20 22 69 6e 74 | 67 22 20 63 61 6c 63 46 |t 2 "int|g" calcF|
|00000340| 75 6e 63 2d 69 6e 74 65 | 67 20 63 61 6c 63 2d 74 |unc-inte|g calc-t|
|00000350| 6f 70 2d 6e 20 31 20 6d | 61 74 68 2d 72 65 61 64 |op-n 1 m|ath-read|
|00000360| 2d 65 78 70 72 20 63 61 | 72 2d 73 61 66 65 20 65 |-expr ca|r-safe e|
|00000370| 72 72 6f 72 20 22 42 61 | 64 20 66 6f 72 6d 61 74 |rror "Ba|d format|
|00000380| 20 69 6e 20 65 78 70 72 | 65 73 73 69 6f 6e 3a 20 | in expr|ession: |
|00000390| 25 73 22 5d 20 31 35 29 | 29 20 36 32 30 5d 20 33 |%s"] 15)|) 620] 3|
|000003a0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000003b0| 6e 75 6d 2d 69 6e 74 65 | 67 72 61 6c 20 28 26 6f |num-inte|gral (&o|
|000003c0| 70 74 69 6f 6e 61 6c 20 | 76 61 72 6e 61 6d 65 20 |ptional |varname |
|000003d0| 6c 6f 77 6e 61 6d 65 20 | 68 69 67 68 6e 61 6d 65 |lowname |highname|
|000003e0| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|000003f0| 73 49 6e 74 65 67 72 61 | 74 69 6f 6e 20 76 61 72 |sIntegra|tion var|
|00000400| 69 61 62 6c 65 3a 20 22 | 29 20 28 62 79 74 65 2d |iable: "|) (byte-|
|00000410| 63 6f 64 65 20 22 c0 88 | c4 c5 c6 c7 c0 09 0a 0b |code "..|........|
|00000420| 26 07 87 22 20 5b 6e 69 | 6c 20 76 61 72 6e 61 6d |&.." [ni|l varnam|
|00000430| 65 20 6c 6f 77 6e 61 6d | 65 20 68 69 67 68 6e 61 |e lownam|e highna|
|00000440| 6d 65 20 63 61 6c 63 2d | 74 61 62 75 6c 61 72 2d |me calc-|tabular-|
|00000450| 63 6f 6d 6d 61 6e 64 20 | 63 61 6c 63 46 75 6e 63 |command |calcFunc|
|00000460| 2d 6e 69 6e 74 65 67 20 | 22 49 6e 74 65 67 72 61 |-ninteg |"Integra|
|00000470| 74 69 6f 6e 22 20 22 6e | 69 6e 74 22 5d 20 38 29 |tion" "n|int"] 8)|
|00000480| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 73 |)..(defu|n calc-s|
|00000490| 75 6d 6d 61 74 69 6f 6e | 20 28 61 72 67 20 26 6f |ummation| (arg &o|
|000004a0| 70 74 69 6f 6e 61 6c 20 | 76 61 72 6e 61 6d 65 20 |ptional |varname |
|000004b0| 6c 6f 77 6e 61 6d 65 20 | 68 69 67 68 6e 61 6d 65 |lowname |highname|
|000004c0| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|000004d0| 50 0a 73 53 75 6d 6d 61 | 74 69 6f 6e 20 76 61 72 |P.sSumma|tion var|
|000004e0| 69 61 62 6c 65 3a 20 22 | 29 20 28 62 79 74 65 2d |iable: "|) (byte-|
|000004f0| 63 6f 64 65 20 22 c4 88 | c5 c6 c7 c8 08 09 0a 0b |code "..|........|
|00000500| 26 07 87 22 20 5b 61 72 | 67 20 76 61 72 6e 61 6d |&.." [ar|g varnam|
|00000510| 65 20 6c 6f 77 6e 61 6d | 65 20 68 69 67 68 6e 61 |e lownam|e highna|
|00000520| 6d 65 20 6e 69 6c 20 63 | 61 6c 63 2d 74 61 62 75 |me nil c|alc-tabu|
|00000530| 6c 61 72 2d 63 6f 6d 6d | 61 6e 64 20 63 61 6c 63 |lar-comm|and calc|
|00000540| 46 75 6e 63 2d 73 75 6d | 20 22 53 75 6d 6d 61 74 |Func-sum| "Summat|
|00000550| 69 6f 6e 22 20 22 73 75 | 6d 22 5d 20 38 29 29 0a |ion" "su|m"] 8)).|
|00000560| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 61 6c 74 |.(defun |calc-alt|
|00000570| 2d 73 75 6d 6d 61 74 69 | 6f 6e 20 28 61 72 67 20 |-summati|on (arg |
|00000580| 26 6f 70 74 69 6f 6e 61 | 6c 20 76 61 72 6e 61 6d |&optiona|l varnam|
|00000590| 65 20 6c 6f 77 6e 61 6d | 65 20 68 69 67 68 6e 61 |e lownam|e highna|
|000005a0| 6d 65 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |me) (int|eractive|
|000005b0| 20 22 50 0a 73 53 75 6d | 6d 61 74 69 6f 6e 20 76 | "P.sSum|mation v|
|000005c0| 61 72 69 61 62 6c 65 3a | 20 22 29 20 28 62 79 74 |ariable:| ") (byt|
|000005d0| 65 2d 63 6f 64 65 20 22 | c4 88 c5 c6 c7 c8 08 09 |e-code "|........|
|000005e0| 0a 0b 26 07 87 22 20 5b | 61 72 67 20 76 61 72 6e |..&.." [|arg varn|
|000005f0| 61 6d 65 20 6c 6f 77 6e | 61 6d 65 20 68 69 67 68 |ame lown|ame high|
|00000600| 6e 61 6d 65 20 6e 69 6c | 20 63 61 6c 63 2d 74 61 |name nil| calc-ta|
|00000610| 62 75 6c 61 72 2d 63 6f | 6d 6d 61 6e 64 20 63 61 |bular-co|mmand ca|
|00000620| 6c 63 46 75 6e 63 2d 61 | 73 75 6d 20 22 53 75 6d |lcFunc-a|sum "Sum|
|00000630| 6d 61 74 69 6f 6e 22 20 | 22 61 73 75 6d 22 5d 20 |mation" |"asum"] |
|00000640| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |8))..(de|fun calc|
|00000650| 2d 70 72 6f 64 75 63 74 | 20 28 61 72 67 20 26 6f |-product| (arg &o|
|00000660| 70 74 69 6f 6e 61 6c 20 | 76 61 72 6e 61 6d 65 20 |ptional |varname |
|00000670| 6c 6f 77 6e 61 6d 65 20 | 68 69 67 68 6e 61 6d 65 |lowname |highname|
|00000680| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000690| 50 0a 73 49 6e 64 65 78 | 20 76 61 72 69 61 62 6c |P.sIndex| variabl|
|000006a0| 65 3a 20 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |e: ") (b|yte-code|
|000006b0| 20 22 c4 88 c5 c6 c7 c8 | 08 09 0a 0b 26 07 87 22 | "......|....&.."|
|000006c0| 20 5b 61 72 67 20 76 61 | 72 6e 61 6d 65 20 6c 6f | [arg va|rname lo|
|000006d0| 77 6e 61 6d 65 20 68 69 | 67 68 6e 61 6d 65 20 6e |wname hi|ghname n|
|000006e0| 69 6c 20 63 61 6c 63 2d | 74 61 62 75 6c 61 72 2d |il calc-|tabular-|
|000006f0| 63 6f 6d 6d 61 6e 64 20 | 63 61 6c 63 46 75 6e 63 |command |calcFunc|
|00000700| 2d 70 72 6f 64 20 22 49 | 6e 64 65 78 22 20 22 70 |-prod "I|ndex" "p|
|00000710| 72 6f 64 22 5d 20 38 29 | 29 0a 0a 28 64 65 66 75 |rod"] 8)|)..(defu|
|00000720| 6e 20 63 61 6c 63 2d 74 | 61 62 75 6c 61 74 65 20 |n calc-t|abulate |
|00000730| 28 61 72 67 20 26 6f 70 | 74 69 6f 6e 61 6c 20 76 |(arg &op|tional v|
|00000740| 61 72 6e 61 6d 65 20 6c | 6f 77 6e 61 6d 65 20 68 |arname l|owname h|
|00000750| 69 67 68 6e 61 6d 65 29 | 20 28 69 6e 74 65 72 61 |ighname)| (intera|
|00000760| 63 74 69 76 65 20 22 50 | 0a 73 49 6e 64 65 78 20 |ctive "P|.sIndex |
|00000770| 76 61 72 69 61 62 6c 65 | 3a 20 22 29 20 28 62 79 |variable|: ") (by|
|00000780| 74 65 2d 63 6f 64 65 20 | 22 c4 88 c5 c6 c7 c8 08 |te-code |".......|
|00000790| 09 0a 0b 26 07 87 22 20 | 5b 61 72 67 20 76 61 72 |...&.." |[arg var|
|000007a0| 6e 61 6d 65 20 6c 6f 77 | 6e 61 6d 65 20 68 69 67 |name low|name hig|
|000007b0| 68 6e 61 6d 65 20 6e 69 | 6c 20 63 61 6c 63 2d 74 |hname ni|l calc-t|
|000007c0| 61 62 75 6c 61 72 2d 63 | 6f 6d 6d 61 6e 64 20 63 |abular-c|ommand c|
|000007d0| 61 6c 63 46 75 6e 63 2d | 74 61 62 6c 65 20 22 49 |alcFunc-|table "I|
|000007e0| 6e 64 65 78 22 20 22 74 | 61 62 6c 22 5d 20 38 29 |ndex" "t|abl"] 8)|
|000007f0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 74 |)..(defu|n calc-t|
|00000800| 61 62 75 6c 61 72 2d 63 | 6f 6d 6d 61 6e 64 20 28 |abular-c|ommand (|
|00000810| 66 75 6e 63 20 70 72 6f | 6d 70 74 20 70 72 65 66 |func pro|mpt pref|
|00000820| 69 78 20 61 72 67 20 76 | 61 72 6e 61 6d 65 20 6c |ix arg v|arname l|
|00000830| 6f 77 6e 61 6d 65 20 68 | 69 67 68 6e 61 6d 65 29 |owname h|ighname)|
|00000840| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|00000850| 5c 22 87 22 20 5b 63 61 | 6c 63 2d 64 6f 20 28 6c |\"." [ca|lc-do (l|
|00000860| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00000870| 63 6f 64 65 20 22 c2 c2 | c2 c2 c2 c2 d0 c2 1e 08 |code "..|........|
|00000880| 1e 07 1e 06 1d 1c 1b 19 | 18 0e 09 3a 83 20 00 d0 |........|...:. ..|
|00000890| 89 16 06 82 24 00 d1 89 | 16 06 88 d2 0e 0a d3 5c |....$...|.......\|
|000008a0| 22 86 38 00 d2 0e 0a d4 | 5c 22 86 38 00 0e 0a 3f |".8.....|\".8...?|
|000008b0| 83 5a 00 d5 0e 06 d0 5c | 5c 21 13 d5 0e 06 d6 5c |.Z.....\|\!.....\|
|000008c0| 5c 21 11 d5 0e 06 d7 5c | 5c 21 10 0e 06 d8 5c 5c |\!.....\|\!....\\|
|000008d0| 89 16 07 82 76 01 0e 0a | 3b 83 67 00 d9 0e 0a 21 |....v...|;.g....!|
|000008e0| 82 69 00 0e 0a 89 10 88 | da 08 21 db 3d 85 7a 00 |.i......|..!.=.z.|
|000008f0| db dc d0 08 38 5c 22 88 | 0e 0b 86 8c 00 dd 0e 0c |....8\".|........|
|00000900| de 0e 0a df 52 21 89 16 | 0b 88 d2 0e 0b d3 5c 22 |....R!..|......\"|
|00000910| 86 9a 00 d2 0e 0b d4 5c | 22 83 b5 00 d5 0e 06 d0 |.......\|".......|
|00000920| 5c 5c 21 13 d5 0e 06 d6 | 5c 5c 21 11 0e 06 d7 5c |\\!.....|\\!....\|
|00000930| 5c 89 16 07 82 76 01 0e | 0b 3b 83 c2 00 d9 0e 0b |\....v..|.;......|
|00000940| 21 82 c4 00 0e 0b 89 11 | 88 da 09 21 db 3d 85 d5 |!.......|...!.=..|
|00000950| 00 db dc d0 09 38 5c 22 | 88 0e 0d 86 ec 00 dd e0 |.....8\"|........|
|00000960| 0e 0c de 0e 0a df 0e 0b | e1 26 06 21 89 16 0d 88 |........|.&.!....|
|00000970| d2 0e 0d d3 5c 22 86 fa | 00 d2 0e 0d d4 5c 22 83 |....\"..|.....\".|
|00000980| 0e 01 d5 0e 06 d0 5c 5c | 21 13 0e 06 d6 5c 5c 89 |......\\|!....\\.|
|00000990| 16 07 82 76 01 0e 0d 3b | 83 1b 01 d9 0e 0d 21 82 |...v...;|......!.|
|000009a0| 1d 01 0e 0d 89 13 88 da | 0b 21 db 3d 85 2e 01 db |........|.!.=....|
|000009b0| dc d0 0b 38 5c 22 88 0e | 09 3a 85 76 01 dd e0 0e |...8\"..|.:.v....|
|000009c0| 0c de 0e 0a df 0e 0b e1 | 0e 0d e2 26 08 21 89 15 |........|...&.!..|
|000009d0| 88 d2 0d d3 5c 22 86 54 | 01 d2 0d d4 5c 22 83 62 |....\".T|....\".b|
|000009e0| 01 d5 d0 21 14 d6 89 16 | 07 82 76 01 d9 0d 21 89 |...!....|..v...!.|
|000009f0| 14 88 da 0c 21 db 3d 85 | 76 01 db dc d0 0c 38 5c |....!.=.|v.....8\|
|00000a00| 22 88 0c 86 94 01 0e 09 | 3a 83 89 01 d5 d0 21 89 |".......|:.....!.|
|00000a10| 14 82 94 01 0e 09 85 94 | 01 e3 0e 09 21 89 14 88 |........|....!...|
|00000a20| d5 0e 07 21 89 16 08 88 | e4 0e 07 0e 0e e5 e6 0e |...!....|........|
|00000a30| 0f 0e 08 08 09 0b 25 0c | 85 b2 01 0c 43 5c 22 23 |......%.|....C\"#|
|00000a40| 2e 08 87 22 20 5b 76 61 | 72 20 6c 6f 77 20 6e 69 |..." [va|r low ni|
|00000a50| 6c 20 68 69 67 68 20 73 | 74 65 70 20 73 74 65 70 |l high s|tep step|
|00000a60| 6e 61 6d 65 20 73 74 65 | 70 6e 75 6d 20 6e 75 6d |name ste|pnum num|
|00000a70| 20 65 78 70 72 20 61 72 | 67 20 76 61 72 6e 61 6d | expr ar|g varnam|
|00000a80| 65 20 6c 6f 77 6e 61 6d | 65 20 70 72 6f 6d 70 74 |e lownam|e prompt|
|00000a90| 20 68 69 67 68 6e 61 6d | 65 20 70 72 65 66 69 78 | highnam|e prefix|
|00000aa0| 20 66 75 6e 63 20 31 20 | 30 20 65 71 75 61 6c 20 | func 1 |0 equal |
|00000ab0| 22 22 20 22 24 22 20 63 | 61 6c 63 2d 74 6f 70 2d |"" "$" c|alc-top-|
|00000ac0| 6e 20 32 20 33 20 34 20 | 6d 61 74 68 2d 72 65 61 |n 2 3 4 |math-rea|
|00000ad0| 64 2d 65 78 70 72 20 63 | 61 72 2d 73 61 66 65 20 |d-expr c|ar-safe |
|00000ae0| 65 72 72 6f 72 20 22 42 | 61 64 20 66 6f 72 6d 61 |error "B|ad forma|
|00000af0| 74 20 69 6e 20 65 78 70 | 72 65 73 73 69 6f 6e 3a |t in exp|ression:|
|00000b00| 20 25 73 22 20 72 65 61 | 64 2d 73 74 72 69 6e 67 | %s" rea|d-string|
|00000b10| 20 22 20 76 61 72 69 61 | 62 6c 65 3a 20 22 20 22 | " varia|ble: " "|
|00000b20| 2c 20 66 72 6f 6d 3a 20 | 22 20 63 6f 6e 63 61 74 |, from: |" concat|
|00000b30| 20 22 2c 20 74 6f 3a 20 | 22 20 22 2c 20 73 74 65 | ", to: |" ", ste|
|00000b40| 70 3a 20 22 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |p: " pre|fix-nume|
|00000b50| 72 69 63 2d 76 61 6c 75 | 65 20 63 61 6c 63 2d 65 |ric-valu|e calc-e|
|00000b60| 6e 74 65 72 2d 72 65 73 | 75 6c 74 20 61 70 70 65 |nter-res|ult appe|
|00000b70| 6e 64 20 6c 69 73 74 5d | 20 34 35 29 29 20 32 30 |nd list]| 45)) 20|
|00000b80| 36 34 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |64] 3)).|.(defun |
|00000b90| 63 61 6c 63 2d 73 6f 6c | 76 65 2d 66 6f 72 20 28 |calc-sol|ve-for (|
|00000ba0| 76 61 72 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |var) (in|teractiv|
|00000bb0| 65 20 22 73 56 61 72 69 | 61 62 6c 65 20 74 6f 20 |e "sVari|able to |
|00000bc0| 73 6f 6c 76 65 20 66 6f | 72 3a 20 22 29 20 28 62 |solve fo|r: ") (b|
|00000bd0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 c3 5c |yte-code| ".....\|
|00000be0| 22 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |"." [nil| calc-do|
|00000bf0| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00000c00| 74 65 2d 63 6f 64 65 20 | 22 c2 20 83 12 00 c3 20 |te-code |". .... |
|00000c10| 83 0e 00 c4 82 0f 00 c5 | 82 1c 00 c3 20 83 1b 00 |........|.... ...|
|00000c20| c6 82 1c 00 c7 18 c8 09 | c9 5c 22 86 28 00 c8 09 |........|.\".(...|
|00000c30| ca 5c 22 83 3a 00 cb cc | cd 08 ce cc 21 ce cf 21 |.\".:...|....!..!|
|00000c40| 45 23 82 70 00 d0 d1 09 | 5c 22 85 46 00 d0 d2 09 |E#.p....|\".F....|
|00000c50| 5c 22 3f 83 52 00 d3 d4 | 09 d5 51 21 82 55 00 d3 |\"?.R...|..Q!.U..|
|00000c60| 09 21 19 d6 09 21 d7 3d | 85 64 00 d7 d8 cf 09 38 |.!...!.=|.d.....8|
|00000c70| 5c 22 88 cb cf cd 08 ce | cf 21 09 45 23 29 29 87 |\"......|.!.E#)).|
|00000c80| 22 20 5b 66 75 6e 63 20 | 76 61 72 20 63 61 6c 63 |" [func |var calc|
|00000c90| 2d 69 73 2d 69 6e 76 65 | 72 73 65 20 63 61 6c 63 |-is-inve|rse calc|
|00000ca0| 2d 69 73 2d 68 79 70 65 | 72 62 6f 6c 69 63 20 63 |-is-hype|rbolic c|
|00000cb0| 61 6c 63 46 75 6e 63 2d | 66 66 69 6e 76 20 63 61 |alcFunc-|ffinv ca|
|00000cc0| 6c 63 46 75 6e 63 2d 66 | 69 6e 76 20 63 61 6c 63 |lcFunc-f|inv calc|
|00000cd0| 46 75 6e 63 2d 66 73 6f | 6c 76 65 20 63 61 6c 63 |Func-fso|lve calc|
|00000ce0| 46 75 6e 63 2d 73 6f 6c | 76 65 20 65 71 75 61 6c |Func-sol|ve equal|
|00000cf0| 20 22 22 20 22 24 22 20 | 63 61 6c 63 2d 65 6e 74 | "" "$" |calc-ent|
|00000d00| 65 72 2d 72 65 73 75 6c | 74 20 32 20 22 73 6f 6c |er-resul|t 2 "sol|
|00000d10| 76 22 20 63 61 6c 63 2d | 74 6f 70 2d 6e 20 31 20 |v" calc-|top-n 1 |
|00000d20| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 2c 5c |string-m|atch ",\|
|00000d30| 5c 7c 5b 5e 20 5d 20 2b | 5b 5e 20 5d 22 20 22 5c |\|[^ ] +|[^ ]" "\|
|00000d40| 5c 5b 22 20 6d 61 74 68 | 2d 72 65 61 64 2d 65 78 |\[" math|-read-ex|
|00000d50| 70 72 20 22 5b 22 20 22 | 5d 22 20 63 61 72 2d 73 |pr "[" "|]" car-s|
|00000d60| 61 66 65 20 65 72 72 6f | 72 20 22 42 61 64 20 66 |afe erro|r "Bad f|
|00000d70| 6f 72 6d 61 74 20 69 6e | 20 65 78 70 72 65 73 73 |ormat in| express|
|00000d80| 69 6f 6e 3a 20 25 73 22 | 5d 20 32 31 29 29 20 32 |ion: %s"|] 21)) 2|
|00000d90| 39 38 32 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |982] 3))|..(defun|
|00000da0| 20 63 61 6c 63 2d 70 6f | 6c 79 2d 72 6f 6f 74 73 | calc-po|ly-roots|
|00000db0| 20 28 76 61 72 29 20 28 | 69 6e 74 65 72 61 63 74 | (var) (|interact|
|00000dc0| 69 76 65 20 22 73 56 61 | 72 69 61 62 6c 65 20 74 |ive "sVa|riable t|
|00000dd0| 6f 20 73 6f 6c 76 65 20 | 66 6f 72 3a 20 22 29 20 |o solve |for: ") |
|00000de0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00000df0| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|00000e00| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00000e10| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 c2 5c 22 |byte-cod|e "...\"|
|00000e20| 86 0b 00 c1 08 c3 5c 22 | 83 1d 00 c4 c5 c6 c7 c8 |......\"|........|
|00000e30| c5 21 c8 c9 21 45 23 82 | 53 00 ca cb 08 5c 22 85 |.!..!E#.|S....\".|
|00000e40| 29 00 ca cc 08 5c 22 3f | 83 35 00 cd ce 08 cf 51 |)....\"?|.5.....Q|
|00000e50| 21 82 38 00 cd 08 21 18 | d0 08 21 d1 3d 85 47 00 |!.8...!.|..!.=.G.|
|00000e60| d1 d2 c9 08 38 5c 22 88 | c4 c9 c6 c7 c8 c9 21 08 |....8\".|......!.|
|00000e70| 45 23 29 87 22 20 5b 76 | 61 72 20 65 71 75 61 6c |E#)." [v|ar equal|
|00000e80| 20 22 22 20 22 24 22 20 | 63 61 6c 63 2d 65 6e 74 | "" "$" |calc-ent|
|00000e90| 65 72 2d 72 65 73 75 6c | 74 20 32 20 22 70 72 74 |er-resul|t 2 "prt|
|00000ea0| 73 22 20 63 61 6c 63 46 | 75 6e 63 2d 72 6f 6f 74 |s" calcF|unc-root|
|00000eb0| 73 20 63 61 6c 63 2d 74 | 6f 70 2d 6e 20 31 20 73 |s calc-t|op-n 1 s|
|00000ec0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 2c 5c 5c |tring-ma|tch ",\\|
|00000ed0| 7c 5b 5e 20 5d 20 2b 5b | 5e 20 5d 22 20 22 5c 5c ||[^ ] +[|^ ]" "\\|
|00000ee0| 5b 22 20 6d 61 74 68 2d | 72 65 61 64 2d 65 78 70 |[" math-|read-exp|
|00000ef0| 72 20 22 5b 22 20 22 5d | 22 20 63 61 72 2d 73 61 |r "[" "]|" car-sa|
|00000f00| 66 65 20 65 72 72 6f 72 | 20 22 42 61 64 20 66 6f |fe error| "Bad fo|
|00000f10| 72 6d 61 74 20 69 6e 20 | 65 78 70 72 65 73 73 69 |rmat in |expressi|
|00000f20| 6f 6e 3a 20 25 73 22 5d | 20 31 38 29 29 20 33 35 |on: %s"]| 18)) 35|
|00000f30| 31 31 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |11] 3)).|.(defun |
|00000f40| 63 61 6c 63 2d 74 61 79 | 6c 6f 72 20 28 76 61 72 |calc-tay|lor (var|
|00000f50| 20 6e 74 65 72 6d 73 29 | 20 28 69 6e 74 65 72 61 | nterms)| (intera|
|00000f60| 63 74 69 76 65 20 22 73 | 54 61 79 6c 6f 72 20 65 |ctive "s|Taylor e|
|00000f70| 78 70 61 6e 73 69 6f 6e | 20 76 61 72 69 61 62 6c |xpansion| variabl|
|00000f80| 65 3a 20 0a 4e 4e 75 6d | 62 65 72 20 6f 66 20 74 |e: .NNum|ber of t|
|00000f90| 65 72 6d 73 3a 20 22 29 | 20 28 62 79 74 65 2d 63 |erms: ")| (byte-c|
|00000fa0| 6f 64 65 20 22 c0 88 c1 | c2 c3 5c 22 87 22 20 5b |ode "...|..\"." [|
|00000fb0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00000fc0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00000fd0| 64 65 20 22 c2 08 21 18 | c3 08 21 c4 3d 85 12 00 |de "..!.|..!.=...|
|00000fe0| c4 c5 c6 08 38 5c 22 88 | c7 c6 c8 c9 ca c6 21 08 |....8\".|......!.|
|00000ff0| cb 09 21 46 23 29 87 22 | 20 5b 76 61 72 20 6e 74 |..!F#)."| [var nt|
|00001000| 65 72 6d 73 20 6d 61 74 | 68 2d 72 65 61 64 2d 65 |erms mat|h-read-e|
|00001010| 78 70 72 20 63 61 72 2d | 73 61 66 65 20 65 72 72 |xpr car-|safe err|
|00001020| 6f 72 20 22 42 61 64 20 | 66 6f 72 6d 61 74 20 69 |or "Bad |format i|
|00001030| 6e 20 65 78 70 72 65 73 | 73 69 6f 6e 3a 20 25 73 |n expres|sion: %s|
|00001040| 22 20 31 20 63 61 6c 63 | 2d 65 6e 74 65 72 2d 72 |" 1 calc|-enter-r|
|00001050| 65 73 75 6c 74 20 22 74 | 79 6c 72 22 20 63 61 6c |esult "t|ylr" cal|
|00001060| 63 46 75 6e 63 2d 74 61 | 79 6c 6f 72 20 63 61 6c |cFunc-ta|ylor cal|
|00001070| 63 2d 74 6f 70 2d 6e 20 | 70 72 65 66 69 78 2d 6e |c-top-n |prefix-n|
|00001080| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 5d 20 31 32 |umeric-v|alue] 12|
|00001090| 29 29 20 33 39 32 36 5d | 20 33 29 29 0a 0a 28 64 |)) 3926]| 3))..(d|
|000010a0| 65 66 75 6e 20 6d 61 74 | 68 2d 64 65 72 69 76 61 |efun mat|h-deriva|
|000010b0| 74 69 76 65 20 28 65 78 | 70 72 29 20 28 62 79 74 |tive (ex|pr) (byt|
|000010c0| 65 2d 63 6f 64 65 20 22 | d4 08 09 5c 22 83 0b 00 |e-code "|...\"...|
|000010d0| d5 82 ea 03 08 3a 3f 86 | 15 00 08 40 d6 3e 86 42 |.....:?.|...@.>.B|
|000010e0| 00 08 40 d7 3d 86 42 00 | 08 40 d8 3d 85 42 00 0a |..@.=.B.|.@.=.B..|
|000010f0| 3f 86 42 00 d9 08 21 86 | 42 00 da 20 88 db d5 dc |?.B...!.|B.. ....|
|00001100| dd 08 38 0b 5c 22 86 40 | 00 0c 38 3e 83 49 00 de |..8.\".@|..8>.I..|
|00001110| 82 ea 03 08 40 df 3d 83 | 5f 00 e0 e1 d5 08 38 21 |....@.=.|_.....8!|
|00001120| e1 dd 08 38 21 5c 22 82 | ea 03 08 40 e2 3d 83 75 |...8!\".|...@.=.u|
|00001130| 00 e3 e1 d5 08 38 21 e1 | dd 08 38 21 5c 22 82 ea |.....8!.|..8!\"..|
|00001140| 03 08 40 e4 3e 83 8c 00 | 08 40 e1 d5 08 38 21 e1 |..@.>...|.@...8!.|
|00001150| dd 08 38 21 45 82 ea 03 | 08 40 e5 3d 83 9d 00 e6 |..8!E...|.@.=....|
|00001160| e1 d5 08 38 21 21 82 ea | 03 08 40 e7 3d 83 bd 00 |...8!!..|..@.=...|
|00001170| e0 e8 dd 08 38 e1 d5 08 | 38 21 5c 22 e8 d5 08 38 |....8...|8!\"...8|
|00001180| e1 dd 08 38 21 5c 22 5c | 22 82 ea 03 08 40 e9 3d |...8!\"\|"....@.=|
|00001190| 83 e4 00 e3 ea e1 d5 08 | 38 21 dd 08 38 5c 22 ea |........|8!..8\".|
|000011a0| e8 d5 08 38 e1 dd 08 38 | 21 5c 22 eb dd 08 38 21 |...8...8|!\"...8!|
|000011b0| 5c 22 5c 22 82 ea 03 08 | 40 ec 3d 83 81 01 e1 d5 |\"\"....|@.=.....|
|000011c0| 08 38 21 e1 dd 08 38 21 | 1e 06 1d 0d 3a 83 1a 01 |.8!...8!|....:...|
|000011d0| 0d 40 ed 3e 3f 85 17 01 | 0d 40 ee 3d 83 14 01 d5 |.@.>?...|.@.=....|
|000011e0| 0d 38 de 3d 82 17 01 ef | 0d 21 82 1d 01 0d de 3d |.8.=....|.!.....=|
|000011f0| 86 37 01 e8 dd 08 38 e8 | f0 ec d5 08 38 e0 dd 08 |.7....8.|....8...|
|00001200| 38 f1 5c 22 45 21 0d 5c | 22 5c 22 89 15 88 0e 06 |8.\"E!.\|"\".....|
|00001210| 3a 83 5f 01 0e 06 40 f2 | 3e 3f 85 5c 5c 01 0e 06 |:._...@.|>?.\\...|
|00001220| 40 ee 3d 83 58 01 d5 0e | 06 38 de 3d 82 5c 5c 01 |@.=.X...|.8.=.\\.|
|00001230| ef 0e 06 21 82 63 01 0e | 06 de 3d 86 77 01 e8 f0 |...!.c..|..=.w...|
|00001240| f3 d5 08 38 44 21 e8 08 | 0e 06 5c 22 5c 22 89 16 |...8D!..|..\"\"..|
|00001250| 06 88 e0 0d 0e 06 5c 22 | 2a 82 ea 03 08 40 f4 3d |......\"|*....@.=|
|00001260| 83 90 01 e1 d5 08 38 21 | 82 ea 03 08 40 f5 3d 83 |......8!|....@.=.|
|00001270| 9e 01 f6 e1 08 5c 22 82 | ea 03 08 40 f7 3e 85 a9 |.....\".|...@.>..|
|00001280| 01 08 47 dd 55 83 b7 01 | 08 40 e1 d5 08 38 21 44 |..G.U...|.@...8!D|
|00001290| 82 ea 03 08 40 f8 3e 85 | c2 01 08 47 f9 55 83 e3 |....@.>.|...G.U..|
|000012a0| 01 e1 d5 08 38 21 1e 07 | fa 0e 07 21 83 d7 01 de |....8!..|...!....|
|000012b0| 82 df 01 08 40 0e 07 dd | 08 38 45 29 82 ea 03 08 |....@...|.8E)....|
|000012c0| 40 39 85 56 02 08 47 dd | 55 83 45 02 08 40 e1 4e |@9.V..G.|U.E..@.N|
|000012d0| 1e 09 0e 09 85 41 02 e1 | d5 08 38 21 1e 0a 0e 0a |.....A..|..8!....|
|000012e0| 3a 83 29 02 0e 0a 40 fb | 3e 3f 85 26 02 0e 0a 40 |:.)...@.|>?.&...@|
|000012f0| ee 3d 83 5c 22 02 d5 0e | 0a 38 de 3d 82 26 02 ef |.=.\"...|.8.=.&..|
|00001300| 0e 0a 21 82 2d 02 0e 0a | de 3d 83 35 02 0e 0a 82 |..!.-...|.=.5....|
|00001310| 40 02 e8 fc 0e 09 d5 08 | 38 5c 22 0e 0a 5c 22 29 |@.......|8\"..\")|
|00001320| 29 82 56 02 08 40 fd 4e | 1e 09 0e 09 85 55 02 fc |).V..@.N|.....U..|
|00001330| 0e 09 08 5c 22 29 86 ea | 03 0e 0b fe 3d 3f 85 7e |...\")..|....=?.~|
|00001340| 02 ff 08 21 1e 0c 0e 0c | 85 7d 02 fe 1e 0b 81 40 |...!....|.}.....@|
|00001350| 00 81 41 00 8d 29 86 7d | 02 e1 0e 0c 21 29 86 ea |..A..).}|....!)..|
|00001360| 03 08 3a 3f 86 8d 02 08 | 40 81 42 00 3e 86 9b 02 |..:?....|@.B.>...|
|00001370| 08 40 d8 3d 86 9b 02 08 | 40 39 3f 83 c1 02 0e 0b |.@.=....|@9?.....|
|00001380| 83 ae 02 81 43 00 81 40 | 00 cd 5c 22 82 be 02 0a |....C..@|..\"....|
|00001390| 83 b8 02 81 44 00 82 bb | 02 81 45 00 08 09 45 82 |....D...|..E...E.|
|000013a0| ea 03 de 08 d5 cd 1e 11 | 1e 10 1e 0f 1e 0e 0e 0f |........|........|
|000013b0| 41 89 16 0f 85 e6 03 e1 | 0e 0f 40 21 89 16 11 3a |A.......|..@!...:|
|000013c0| 83 1d 03 e1 0e 0f 40 21 | 89 16 11 40 81 46 00 3e |......@!|...@.F.>|
|000013d0| 3f 85 1a 03 e1 0e 0f 40 | 21 89 16 11 40 ee 3d 83 |?......@|!...@.=.|
|000013e0| 10 03 d5 e1 0e 0f 40 21 | 89 16 11 38 de 3d 82 1a |......@!|...8.=..|
|000013f0| 03 ef e1 0e 0f 40 21 89 | 16 11 21 82 27 03 e1 0e |.....@!.|..!.'...|
|00001400| 0f 40 21 89 16 11 de 3d | 86 db 03 81 47 00 81 48 |.@!....=|....G..H|
|00001410| 00 08 40 21 81 49 00 0e | 10 d5 56 83 46 03 81 4a |..@!.I..|..V.F..J|
|00001420| 00 0e 10 21 82 49 03 81 | 4b 00 51 21 08 47 dd 55 |...!.I..|K.Q!.G.U|
|00001430| 83 58 03 81 4c 00 82 8f | 03 08 47 f9 55 83 65 03 |.X..L...|..G.U.e.|
|00001440| 81 4d 00 82 8f 03 08 47 | 81 4e 00 55 83 74 03 81 |.M.....G|.N.U.t..|
|00001450| 4f 00 82 8f 03 08 47 81 | 50 00 55 83 83 03 81 51 |O.....G.|P.U....Q|
|00001460| 00 82 8f 03 08 47 81 52 | 00 55 85 8f 03 81 53 00 |.....G.R|.U....S.|
|00001470| 1e 13 1e 12 e0 0e 0e e8 | 0e 11 0e 12 0e 13 4e 1e |........|......N.|
|00001480| 09 0e 13 85 b2 03 0e 09 | 85 b2 03 81 54 00 0e 09 |........|....T...|
|00001490| 08 41 5c 22 86 d4 03 0e | 0b 85 c1 03 0e 12 81 55 |.A\"....|.......U|
|000014a0| 00 4e 3f 83 cf 03 81 43 | 00 81 40 00 cd 5c 22 82 |.N?....C|..@..\".|
|000014b0| d4 03 0e 12 08 41 42 29 | 5c 22 5c 22 89 16 0e 2a |.....AB)|\"\"...*|
|000014c0| 88 0e 10 54 89 16 10 88 | 82 cd 02 88 0e 0e 2c 87 |...T....|......,.|
|000014d0| 22 20 5b 65 78 70 72 20 | 64 65 72 69 76 2d 76 61 |" [expr |deriv-va|
|000014e0| 72 20 64 65 72 69 76 2d | 74 6f 74 61 6c 20 6d 61 |r deriv-|total ma|
|000014f0| 74 68 2d 64 65 63 6c 73 | 2d 63 61 63 68 65 20 6d |th-decls|-cache m|
|00001500| 61 74 68 2d 64 65 63 6c | 73 2d 61 6c 6c 20 64 75 |ath-decl|s-all du|
|00001510| 20 64 76 20 64 20 74 20 | 68 61 6e 64 6c 65 72 20 | dv d t |handler |
|00001520| 64 65 72 69 76 20 64 65 | 72 69 76 2d 73 79 6d 62 |deriv de|riv-symb|
|00001530| 20 65 78 70 20 6e 69 6c | 20 61 63 63 75 6d 20 61 | exp nil| accum a|
|00001540| 72 67 20 6e 20 64 65 72 | 76 20 66 75 6e 63 20 70 |rg n der|v func p|
|00001550| 72 6f 70 20 65 71 75 61 | 6c 20 31 20 28 62 69 67 |rop equa|l 1 (big|
|00001560| 70 6f 73 20 62 69 67 6e | 65 67 20 66 72 61 63 20 |pos bign|eg frac |
|00001570| 66 6c 6f 61 74 20 63 70 | 6c 78 20 70 6f 6c 61 72 |float cp|lx polar|
|00001580| 20 68 6d 73 29 20 73 64 | 65 76 20 76 61 72 20 6d | hms) sd|ev var m|
|00001590| 61 74 68 2d 63 6f 6e 73 | 74 2d 76 61 72 20 6d 61 |ath-cons|t-var ma|
|000015a0| 74 68 2d 73 65 74 75 70 | 2d 64 65 63 6c 61 72 61 |th-setup|-declara|
|000015b0| 74 69 6f 6e 73 20 63 6f | 6e 73 74 20 61 73 73 71 |tions co|nst assq|
|000015c0| 20 32 20 30 20 2b 20 6d | 61 74 68 2d 61 64 64 20 | 2 0 + m|ath-add |
|000015d0| 6d 61 74 68 2d 64 65 72 | 69 76 61 74 69 76 65 20 |math-der|ivative |
|000015e0| 2d 20 6d 61 74 68 2d 73 | 75 62 20 28 63 61 6c 63 |- math-s|ub (calc|
|000015f0| 46 75 6e 63 2d 65 71 20 | 63 61 6c 63 46 75 6e 63 |Func-eq |calcFunc|
|00001600| 2d 6e 65 71 20 63 61 6c | 63 46 75 6e 63 2d 6c 74 |-neq cal|cFunc-lt|
|00001610| 20 63 61 6c 63 46 75 6e | 63 2d 67 74 20 63 61 6c | calcFun|c-gt cal|
|00001620| 63 46 75 6e 63 2d 6c 65 | 71 20 63 61 6c 63 46 75 |cFunc-le|q calcFu|
|00001630| 6e 63 2d 67 65 71 29 20 | 6e 65 67 20 6d 61 74 68 |nc-geq) |neg math|
|00001640| 2d 6e 65 67 20 2a 20 6d | 61 74 68 2d 6d 75 6c 20 |-neg * m|ath-mul |
|00001650| 2f 20 6d 61 74 68 2d 64 | 69 76 20 6d 61 74 68 2d |/ math-d|iv math-|
|00001660| 73 71 72 20 5e 20 28 62 | 69 67 70 6f 73 20 62 69 |sqr ^ (b|igpos bi|
|00001670| 67 6e 65 67 29 20 66 6c | 6f 61 74 20 6d 61 74 68 |gneg) fl|oat math|
|00001680| 2d 7a 65 72 6f 70 20 6d | 61 74 68 2d 6e 6f 72 6d |-zerop m|ath-norm|
|00001690| 61 6c 69 7a 65 20 2d 31 | 20 28 62 69 67 70 6f 73 |alize -1| (bigpos|
|000016a0| 20 62 69 67 6e 65 67 29 | 20 63 61 6c 63 46 75 6e | bigneg)| calcFun|
|000016b0| 63 2d 6c 6e 20 25 20 76 | 65 63 20 6d 61 74 68 2d |c-ln % v|ec math-|
|000016c0| 6d 61 70 2d 76 65 63 20 | 28 63 61 6c 63 46 75 6e |map-vec |(calcFun|
|000016d0| 63 2d 63 6f 6e 6a 20 63 | 61 6c 63 46 75 6e 63 2d |c-conj c|alcFunc-|
|000016e0| 72 65 20 63 61 6c 63 46 | 75 6e 63 2d 69 6d 29 20 |re calcF|unc-im) |
|000016f0| 28 63 61 6c 63 46 75 6e | 63 2d 73 75 62 73 63 72 |(calcFun|c-subscr|
|00001700| 20 63 61 6c 63 46 75 6e | 63 2d 6d 72 6f 77 20 63 | calcFun|c-mrow c|
|00001710| 61 6c 63 46 75 6e 63 2d | 6d 63 6f 6c 29 20 33 20 |alcFunc-|mcol) 3 |
|00001720| 6d 61 74 68 2d 6e 75 6d | 62 65 72 70 20 28 62 69 |math-num|berp (bi|
|00001730| 67 70 6f 73 20 62 69 67 | 6e 65 67 29 20 66 75 6e |gpos big|neg) fun|
|00001740| 63 61 6c 6c 20 6d 61 74 | 68 2d 64 65 72 69 76 61 |call mat|h-deriva|
|00001750| 74 69 76 65 2d 6e 20 70 | 72 65 2d 65 78 70 61 6e |tive-n p|re-expan|
|00001760| 64 20 6d 61 74 68 2d 65 | 78 70 61 6e 64 2d 66 6f |d math-e|xpand-fo|
|00001770| 72 6d 75 6c 61 20 6d 61 | 74 68 2d 64 65 72 69 76 |rmula ma|th-deriv|
|00001780| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|00001790| 87 22 20 5b 65 78 70 72 | 20 6d 61 74 68 2d 64 65 |." [expr| math-de|
|000017a0| 72 69 76 61 74 69 76 65 | 5d 20 32 29 20 28 62 69 |rivative|] 2) (bi|
|000017b0| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|000017c0| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|000017d0| 72 20 68 6d 73 20 64 61 | 74 65 20 73 64 65 76 20 |r hms da|te sdev |
|000017e0| 69 6e 74 76 20 6d 6f 64 | 20 76 65 63 29 20 74 68 |intv mod| vec) th|
|000017f0| 72 6f 77 20 63 61 6c 63 | 46 75 6e 63 2d 74 64 65 |row calc|Func-tde|
|00001800| 72 69 76 20 63 61 6c 63 | 46 75 6e 63 2d 64 65 72 |riv calc|Func-der|
|00001810| 69 76 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |iv (bigp|os bigne|
|00001820| 67 29 20 69 6e 74 65 72 | 6e 20 73 79 6d 62 6f 6c |g) inter|n symbol|
|00001830| 2d 6e 61 6d 65 20 22 27 | 22 20 69 6e 74 2d 74 6f |-name "'|" int-to|
|00001840| 2d 73 74 72 69 6e 67 20 | 22 22 20 6d 61 74 68 2d |-string |"" math-|
|00001850| 64 65 72 69 76 61 74 69 | 76 65 2d 31 20 6d 61 74 |derivati|ve-1 mat|
|00001860| 68 2d 64 65 72 69 76 61 | 74 69 76 65 2d 32 20 34 |h-deriva|tive-2 4|
|00001870| 20 6d 61 74 68 2d 64 65 | 72 69 76 61 74 69 76 65 | math-de|rivative|
|00001880| 2d 33 20 35 20 6d 61 74 | 68 2d 64 65 72 69 76 61 |-3 5 mat|h-deriva|
|00001890| 74 69 76 65 2d 34 20 36 | 20 6d 61 74 68 2d 64 65 |tive-4 6| math-de|
|000018a0| 72 69 76 61 74 69 76 65 | 2d 35 20 61 70 70 6c 79 |rivative|-5 apply|
|000018b0| 20 63 61 6c 63 2d 75 73 | 65 72 2d 64 65 66 6e 5d | calc-us|er-defn]|
|000018c0| 20 37 30 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 70))..(|defun ca|
|000018d0| 6c 63 46 75 6e 63 2d 64 | 65 72 69 76 20 28 65 78 |lcFunc-d|eriv (ex|
|000018e0| 70 72 20 64 65 72 69 76 | 2d 76 61 72 20 26 6f 70 |pr deriv|-var &op|
|000018f0| 74 69 6f 6e 61 6c 20 64 | 65 72 69 76 2d 76 61 6c |tional d|eriv-val|
|00001900| 75 65 20 64 65 72 69 76 | 2d 73 79 6d 62 29 20 28 |ue deriv|-symb) (|
|00001910| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 18 c5 c6 8d |byte-cod|e ".....|
|00001920| 1a c7 0a 21 c8 3d 86 18 | 00 0a 3f 86 18 00 c9 0a |...!.=..|..?.....|
|00001930| 21 89 12 88 0a 85 2a 00 | 0b 83 29 00 ca 0a 0c 0b |!.....*.|..).....|
|00001940| 23 82 2a 00 0a 2a 87 22 | 20 5b 64 65 72 69 76 2d |#.*..*."| [deriv-|
|00001950| 74 6f 74 61 6c 20 6e 69 | 6c 20 72 65 73 20 64 65 |total ni|l res de|
|00001960| 72 69 76 2d 76 61 6c 75 | 65 20 64 65 72 69 76 2d |riv-valu|e deriv-|
|00001970| 76 61 72 20 6d 61 74 68 | 2d 64 65 72 69 76 20 28 |var math|-deriv (|
|00001980| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 21 87 22 |byte-cod|e "..!."|
|00001990| 20 5b 65 78 70 72 20 6d | 61 74 68 2d 64 65 72 69 | [expr m|ath-deri|
|000019a0| 76 61 74 69 76 65 5d 20 | 32 29 20 63 61 72 2d 73 |vative] |2) car-s|
|000019b0| 61 66 65 20 63 61 6c 63 | 46 75 6e 63 2d 64 65 72 |afe calc|Func-der|
|000019c0| 69 76 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |iv math-|normaliz|
|000019d0| 65 20 6d 61 74 68 2d 65 | 78 70 72 2d 73 75 62 73 |e math-e|xpr-subs|
|000019e0| 74 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |t] 6))..|(defun c|
|000019f0| 61 6c 63 46 75 6e 63 2d | 74 64 65 72 69 76 20 28 |alcFunc-|tderiv (|
|00001a00| 65 78 70 72 20 64 65 72 | 69 76 2d 76 61 72 20 26 |expr der|iv-var &|
|00001a10| 6f 70 74 69 6f 6e 61 6c | 20 64 65 72 69 76 2d 76 |optional| deriv-v|
|00001a20| 61 6c 75 65 20 64 65 72 | 69 76 2d 73 79 6d 62 29 |alue der|iv-symb)|
|00001a30| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c5 20 88 | (byte-c|ode ". .|
|00001a40| c1 18 c6 c7 8d 1a c8 0a | 21 c9 3d 86 1b 00 0a 3f |........|!.=....?|
|00001a50| 86 1b 00 ca 0a 21 89 12 | 88 0a 85 2d 00 0b 83 2c |.....!..|...-...,|
|00001a60| 00 cb 0a 0c 0b 23 82 2d | 00 0a 2a 87 22 20 5b 64 |.....#.-|..*." [d|
|00001a70| 65 72 69 76 2d 74 6f 74 | 61 6c 20 74 20 72 65 73 |eriv-tot|al t res|
|00001a80| 20 64 65 72 69 76 2d 76 | 61 6c 75 65 20 64 65 72 | deriv-v|alue der|
|00001a90| 69 76 2d 76 61 72 20 6d | 61 74 68 2d 73 65 74 75 |iv-var m|ath-setu|
|00001aa0| 70 2d 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 20 6d |p-declar|ations m|
|00001ab0| 61 74 68 2d 64 65 72 69 | 76 20 28 62 79 74 65 2d |ath-deri|v (byte-|
|00001ac0| 63 6f 64 65 20 22 c1 08 | 21 87 22 20 5b 65 78 70 |code "..|!." [exp|
|00001ad0| 72 20 6d 61 74 68 2d 64 | 65 72 69 76 61 74 69 76 |r math-d|erivativ|
|00001ae0| 65 5d 20 32 29 20 63 61 | 72 2d 73 61 66 65 20 63 |e] 2) ca|r-safe c|
|00001af0| 61 6c 63 46 75 6e 63 2d | 74 64 65 72 69 76 20 6d |alcFunc-|tderiv m|
|00001b00| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 6d 61 |ath-norm|alize ma|
|00001b10| 74 68 2d 65 78 70 72 2d | 73 75 62 73 74 5d 20 37 |th-expr-|subst] 7|
|00001b20| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00001b30| 63 61 6c 63 46 75 6e 63 | 2d 69 6e 76 5c 27 29 20 |calcFunc|-inv\') |
|00001b40| 28 71 75 6f 74 65 20 6d | 61 74 68 2d 64 65 72 69 |(quote m|ath-deri|
|00001b50| 76 61 74 69 76 65 2d 31 | 29 20 28 66 75 6e 63 74 |vative-1|) (funct|
|00001b60| 69 6f 6e 20 28 6c 61 6d | 62 64 61 20 28 75 29 20 |ion (lam|bda (u) |
|00001b70| 28 6d 61 74 68 2d 6e 65 | 67 20 28 6d 61 74 68 2d |(math-ne|g (math-|
|00001b80| 64 69 76 20 31 20 28 6d | 61 74 68 2d 73 71 72 20 |div 1 (m|ath-sqr |
|00001b90| 75 29 29 29 29 29 29 0a | 0a 28 70 75 74 20 28 71 |u)))))).|.(put (q|
|00001ba0| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 73 71 |uote cal|cFunc-sq|
|00001bb0| 72 74 5c 27 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |rt\') (q|uote mat|
|00001bc0| 68 2d 64 65 72 69 76 61 | 74 69 76 65 2d 31 29 20 |h-deriva|tive-1) |
|00001bd0| 28 66 75 6e 63 74 69 6f | 6e 20 28 6c 61 6d 62 64 |(functio|n (lambd|
|00001be0| 61 20 28 75 29 20 28 6d | 61 74 68 2d 64 69 76 20 |a (u) (m|ath-div |
|00001bf0| 31 20 28 6d 61 74 68 2d | 6d 75 6c 20 32 20 28 6c |1 (math-|mul 2 (l|
|00001c00| 69 73 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 46 |ist (quo|te calcF|
|00001c10| 75 6e 63 2d 73 71 72 74 | 29 20 75 29 29 29 29 29 |unc-sqrt|) u)))))|
|00001c20| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |)..(put |(quote c|
|00001c30| 61 6c 63 46 75 6e 63 2d | 64 65 67 5c 27 29 20 28 |alcFunc-|deg\') (|
|00001c40| 71 75 6f 74 65 20 6d 61 | 74 68 2d 64 65 72 69 76 |quote ma|th-deriv|
|00001c50| 61 74 69 76 65 2d 31 29 | 20 28 66 75 6e 63 74 69 |ative-1)| (functi|
|00001c60| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 75 29 20 28 |on (lamb|da (u) (|
|00001c70| 6d 61 74 68 2d 64 69 76 | 2d 66 6c 6f 61 74 20 28 |math-div|-float (|
|00001c80| 71 75 6f 74 65 20 28 66 | 6c 6f 61 74 20 31 38 20 |quote (f|loat 18 |
|00001c90| 31 29 29 20 28 6d 61 74 | 68 2d 70 69 29 29 29 29 |1)) (mat|h-pi))))|
|00001ca0| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |)..(put |(quote c|
|00001cb0| 61 6c 63 46 75 6e 63 2d | 72 61 64 5c 27 29 20 28 |alcFunc-|rad\') (|
|00001cc0| 71 75 6f 74 65 20 6d 61 | 74 68 2d 64 65 72 69 76 |quote ma|th-deriv|
|00001cd0| 61 74 69 76 65 2d 31 29 | 20 28 66 75 6e 63 74 69 |ative-1)| (functi|
|00001ce0| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 75 29 20 28 |on (lamb|da (u) (|
|00001cf0| 6d 61 74 68 2d 70 69 2d | 6f 76 65 72 2d 31 38 30 |math-pi-|over-180|
|00001d00| 29 29 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 |))))..(p|ut (quot|
|00001d10| 65 20 63 61 6c 63 46 75 | 6e 63 2d 6c 6e 5c 27 29 |e calcFu|nc-ln\')|
|00001d20| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 64 65 72 | (quote |math-der|
|00001d30| 69 76 61 74 69 76 65 2d | 31 29 20 28 66 75 6e 63 |ivative-|1) (func|
|00001d40| 74 69 6f 6e 20 28 6c 61 | 6d 62 64 61 20 28 75 29 |tion (la|mbda (u)|
|00001d50| 20 28 6d 61 74 68 2d 64 | 69 76 20 31 20 75 29 29 | (math-d|iv 1 u))|
|00001d60| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00001d70| 63 61 6c 63 46 75 6e 63 | 2d 6c 6f 67 31 30 5c 27 |calcFunc|-log10\'|
|00001d80| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 64 65 |) (quote| math-de|
|00001d90| 72 69 76 61 74 69 76 65 | 2d 31 29 20 28 66 75 6e |rivative|-1) (fun|
|00001da0| 63 74 69 6f 6e 20 28 6c | 61 6d 62 64 61 20 28 75 |ction (l|ambda (u|
|00001db0| 29 20 28 6d 61 74 68 2d | 64 69 76 20 28 6d 61 74 |) (math-|div (mat|
|00001dc0| 68 2d 64 69 76 20 31 20 | 28 6d 61 74 68 2d 6e 6f |h-div 1 |(math-no|
|00001dd0| 72 6d 61 6c 69 7a 65 20 | 28 71 75 6f 74 65 20 28 |rmalize |(quote (|
|00001de0| 63 61 6c 63 46 75 6e 63 | 2d 6c 6e 20 31 30 29 29 |calcFunc|-ln 10))|
|00001df0| 29 29 20 75 29 29 29 29 | 0a 0a 28 70 75 74 20 28 |)) u))))|..(put (|
|00001e00| 71 75 6f 74 65 20 63 61 | 6c 63 46 75 6e 63 2d 6c |quote ca|lcFunc-l|
|00001e10| 6e 70 31 5c 27 29 20 28 | 71 75 6f 74 65 20 6d 61 |np1\') (|quote ma|
|00001e20| 74 68 2d 64 65 72 69 76 | 61 74 69 76 65 2d 31 29 |th-deriv|ative-1)|
|00001e30| 20 28 66 75 6e 63 74 69 | 6f 6e 20 28 6c 61 6d 62 | (functi|on (lamb|
|00001e40| 64 61 20 28 75 29 20 28 | 6d 61 74 68 2d 64 69 76 |da (u) (|math-div|
|00001e50| 20 31 20 28 6d 61 74 68 | 2d 61 64 64 20 75 20 31 | 1 (math|-add u 1|
|00001e60| 29 29 29 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |)))))..(|put (quo|
|00001e70| 74 65 20 63 61 6c 63 46 | 75 6e 63 2d 6c 6f 67 5c |te calcF|unc-log\|
|00001e80| 27 29 20 28 71 75 6f 74 | 65 20 6d 61 74 68 2d 64 |') (quot|e math-d|
|00001e90| 65 72 69 76 61 74 69 76 | 65 2d 32 29 20 28 66 75 |erivativ|e-2) (fu|
|00001ea0| 6e 63 74 69 6f 6e 20 28 | 6c 61 6d 62 64 61 20 28 |nction (|lambda (|
|00001eb0| 78 20 62 29 20 28 61 6e | 64 20 28 6e 6f 74 20 28 |x b) (an|d (not (|
|00001ec0| 4d 61 74 68 2d 7a 65 72 | 6f 70 20 62 29 29 20 28 |Math-zer|op b)) (|
|00001ed0| 6c 65 74 20 28 28 6c 6e | 76 20 28 6d 61 74 68 2d |let ((ln|v (math-|
|00001ee0| 6e 6f 72 6d 61 6c 69 7a | 65 20 28 6c 69 73 74 20 |normaliz|e (list |
|00001ef0| 28 71 75 6f 74 65 20 63 | 61 6c 63 46 75 6e 63 2d |(quote c|alcFunc-|
|00001f00| 6c 6e 29 20 62 29 29 29 | 29 20 28 6d 61 74 68 2d |ln) b)))|) (math-|
|00001f10| 64 69 76 20 31 20 28 6d | 61 74 68 2d 6d 75 6c 20 |div 1 (m|ath-mul |
|00001f20| 6c 6e 76 20 78 29 29 29 | 29 29 29 29 0a 0a 28 70 |lnv x)))|))))..(p|
|00001f30| 75 74 20 28 71 75 6f 74 | 65 20 63 61 6c 63 46 75 |ut (quot|e calcFu|
|00001f40| 6e 63 2d 6c 6f 67 5c 27 | 32 29 20 28 71 75 6f 74 |nc-log\'|2) (quot|
|00001f50| 65 20 6d 61 74 68 2d 64 | 65 72 69 76 61 74 69 76 |e math-d|erivativ|
|00001f60| 65 2d 32 29 20 28 66 75 | 6e 63 74 69 6f 6e 20 28 |e-2) (fu|nction (|
|00001f70| 6c 61 6d 62 64 61 20 28 | 78 20 62 29 20 28 6c 65 |lambda (|x b) (le|
|00001f80| 74 20 28 28 6c 6e 76 20 | 28 6c 69 73 74 20 28 71 |t ((lnv |(list (q|
|00001f90| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 6c 6e |uote cal|cFunc-ln|
|00001fa0| 29 20 62 29 29 29 20 28 | 6d 61 74 68 2d 6e 65 67 |) b))) (|math-neg|
|00001fb0| 20 28 6d 61 74 68 2d 64 | 69 76 20 28 6c 69 73 74 | (math-d|iv (list|
|00001fc0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|00001fd0| 2d 6c 6f 67 29 20 78 20 | 62 29 20 28 6d 61 74 68 |-log) x |b) (math|
|00001fe0| 2d 6d 75 6c 20 6c 6e 76 | 20 62 29 29 29 29 29 29 |-mul lnv| b))))))|
|00001ff0| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |)..(put |(quote c|
|00002000| 61 6c 63 46 75 6e 63 2d | 65 78 70 5c 27 29 20 28 |alcFunc-|exp\') (|
|00002010| 71 75 6f 74 65 20 6d 61 | 74 68 2d 64 65 72 69 76 |quote ma|th-deriv|
|00002020| 61 74 69 76 65 2d 31 29 | 20 28 66 75 6e 63 74 69 |ative-1)| (functi|
|00002030| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 75 29 20 28 |on (lamb|da (u) (|
|00002040| 6d 61 74 68 2d 6e 6f 72 | 6d 61 6c 69 7a 65 20 28 |math-nor|malize (|
|00002050| 6c 69 73 74 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |list (qu|ote calc|
|00002060| 46 75 6e 63 2d 65 78 70 | 29 20 75 29 29 29 29 29 |Func-exp|) u)))))|
|00002070| 0a 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 63 61 |..(put (|quote ca|
|00002080| 6c 63 46 75 6e 63 2d 65 | 78 70 6d 31 5c 27 29 20 |lcFunc-e|xpm1\') |
|00002090| 28 71 75 6f 74 65 20 6d | 61 74 68 2d 64 65 72 69 |(quote m|ath-deri|
|000020a0| 76 61 74 69 76 65 2d 31 | 29 20 28 66 75 6e 63 74 |vative-1|) (funct|
|000020b0| 69 6f 6e 20 28 6c 61 6d | 62 64 61 20 28 75 29 20 |ion (lam|bda (u) |
|000020c0| 28 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 |(math-no|rmalize |
|000020d0| 28 6c 69 73 74 20 28 71 | 75 6f 74 65 20 63 61 6c |(list (q|uote cal|
|000020e0| 63 46 75 6e 63 2d 65 78 | 70 6d 31 29 20 75 29 29 |cFunc-ex|pm1) u))|
|000020f0| 29 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |)))..(pu|t (quote|
|00002100| 20 63 61 6c 63 46 75 6e | 63 2d 73 69 6e 5c 27 29 | calcFun|c-sin\')|
|00002110| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 64 65 72 | (quote |math-der|
|00002120| 69 76 61 74 69 76 65 2d | 31 29 20 28 66 75 6e 63 |ivative-|1) (func|
|00002130| 74 69 6f 6e 20 28 6c 61 | 6d 62 64 61 20 28 75 29 |tion (la|mbda (u)|
|00002140| 20 28 6d 61 74 68 2d 74 | 6f 2d 72 61 64 69 61 6e | (math-t|o-radian|
|00002150| 73 2d 32 20 28 6d 61 74 | 68 2d 6e 6f 72 6d 61 6c |s-2 (mat|h-normal|
|00002160| 69 7a 65 20 28 6c 69 73 | 74 20 28 71 75 6f 74 65 |ize (lis|t (quote|
|00002170| 20 63 61 6c 63 46 75 6e | 63 2d 63 6f 73 29 20 75 | calcFun|c-cos) u|
|00002180| 29 29 29 29 29 29 0a 0a | 28 70 75 74 20 28 71 75 |))))))..|(put (qu|
|00002190| 6f 74 65 20 63 61 6c 63 | 46 75 6e 63 2d 63 6f 73 |ote calc|Func-cos|
|000021a0| 5c 27 29 20 28 71 75 6f | 74 65 20 6d 61 74 68 2d |\') (quo|te math-|
|000021b0| 64 65 72 69 76 61 74 69 | 76 65 2d 31 29 20 28 66 |derivati|ve-1) (f|
|000021c0| 75 6e 63 74 69 6f 6e 20 | 28 6c 61 6d 62 64 61 20 |unction |(lambda |
|000021d0| 28 75 29 20 28 6d 61 74 | 68 2d 6e 65 67 20 28 6d |(u) (mat|h-neg (m|
|000021e0| 61 74 68 2d 74 6f 2d 72 | 61 64 69 61 6e 73 2d 32 |ath-to-r|adians-2|
|000021f0| 20 28 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 | (math-n|ormalize|
|00002200| 20 28 6c 69 73 74 20 28 | 71 75 6f 74 65 20 63 61 | (list (|quote ca|
|00002210| 6c 63 46 75 6e 63 2d 73 | 69 6e 29 20 75 29 29 29 |lcFunc-s|in) u)))|
|00002220| 29 29 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 |))))..(p|ut (quot|
|00002230| 65 20 63 61 6c 63 46 75 | 6e 63 2d 74 61 6e 5c 27 |e calcFu|nc-tan\'|
|00002240| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 64 65 |) (quote| math-de|
|00002250| 72 69 76 61 74 69 76 65 | 2d 31 29 20 28 66 75 6e |rivative|-1) (fun|
|00002260| 63 74 69 6f 6e 20 28 6c | 61 6d 62 64 61 20 28 75 |ction (l|ambda (u|
|00002270| 29 20 28 6d 61 74 68 2d | 74 6f 2d 72 61 64 69 61 |) (math-|to-radia|
|00002280| 6e 73 2d 32 20 28 6d 61 | 74 68 2d 64 69 76 20 31 |ns-2 (ma|th-div 1|
|00002290| 20 28 6d 61 74 68 2d 73 | 71 72 20 28 6d 61 74 68 | (math-s|qr (math|
|000022a0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 28 6c 69 73 74 |-normali|ze (list|
|000022b0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|000022c0| 2d 63 6f 73 29 20 75 29 | 29 29 29 29 29 29 29 0a |-cos) u)|))))))).|
|000022d0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|000022e0| 63 46 75 6e 63 2d 61 72 | 63 73 69 6e 5c 27 29 20 |cFunc-ar|csin\') |
|000022f0| 28 71 75 6f 74 65 20 6d | 61 74 68 2d 64 65 72 69 |(quote m|ath-deri|
|00002300| 76 61 74 69 76 65 2d 31 | 29 20 28 66 75 6e 63 74 |vative-1|) (funct|
|00002310| 69 6f 6e 20 28 6c 61 6d | 62 64 61 20 28 75 29 20 |ion (lam|bda (u) |
|00002320| 28 6d 61 74 68 2d 66 72 | 6f 6d 2d 72 61 64 69 61 |(math-fr|om-radia|
|00002330| 6e 73 2d 32 20 28 6d 61 | 74 68 2d 64 69 76 20 31 |ns-2 (ma|th-div 1|
|00002340| 20 28 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 | (math-n|ormalize|
|00002350| 20 28 6c 69 73 74 20 28 | 71 75 6f 74 65 20 63 61 | (list (|quote ca|
|00002360| 6c 63 46 75 6e 63 2d 73 | 71 72 74 29 20 28 6d 61 |lcFunc-s|qrt) (ma|
|00002370| 74 68 2d 73 75 62 20 31 | 20 28 6d 61 74 68 2d 73 |th-sub 1| (math-s|
|00002380| 71 72 20 75 29 29 29 29 | 29 29 29 29 29 0a 0a 28 |qr u))))|)))))..(|
|00002390| 70 75 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 46 |put (quo|te calcF|
|000023a0| 75 6e 63 2d 61 72 63 63 | 6f 73 5c 27 29 20 28 71 |unc-arcc|os\') (q|
|000023b0| 75 6f 74 65 20 6d 61 74 | 68 2d 64 65 72 69 76 61 |uote mat|h-deriva|
|000023c0| 74 69 76 65 2d 31 29 20 | 28 66 75 6e 63 74 69 6f |tive-1) |(functio|
|000023d0| 6e 20 28 6c 61 6d 62 64 | 61 20 28 75 29 20 28 6d |n (lambd|a (u) (m|
|000023e0| 61 74 68 2d 66 72 6f 6d | 2d 72 61 64 69 61 6e 73 |ath-from|-radians|
|000023f0| 2d 32 20 28 6d 61 74 68 | 2d 64 69 76 20 2d 31 20 |-2 (math|-div -1 |
|00002400| 28 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 |(math-no|rmalize |
|00002410| 28 6c 69 73 74 20 28 71 | 75 6f 74 65 20 63 61 6c |(list (q|uote cal|
|00002420| 63 46 75 6e 63 2d 73 71 | 72 74 29 20 28 6d 61 74 |cFunc-sq|rt) (mat|
|00002430| 68 2d 73 75 62 20 31 20 | 28 6d 61 74 68 2d 73 71 |h-sub 1 |(math-sq|
|00002440| 72 20 75 29 29 29 29 29 | 29 29 29 29 0a 0a 28 70 |r u)))))|))))..(p|
|00002450| 75 74 20 28 71 75 6f 74 | 65 20 63 61 6c 63 46 75 |ut (quot|e calcFu|
|00002460| 6e 63 2d 61 72 63 74 61 | 6e 5c 27 29 20 28 71 75 |nc-arcta|n\') (qu|
|00002470| 6f 74 65 20 6d 61 74 68 | 2d 64 65 72 69 76 61 74 |ote math|-derivat|
|00002480| 69 76 65 2d 31 29 20 28 | 66 75 6e 63 74 69 6f 6e |ive-1) (|function|
|00002490| 20 28 6c 61 6d 62 64 61 | 20 28 75 29 20 28 6d 61 | (lambda| (u) (ma|
|000024a0| 74 68 2d 66 72 6f 6d 2d | 72 61 64 69 61 6e 73 2d |th-from-|radians-|
|000024b0| 32 20 28 6d 61 74 68 2d | 64 69 76 20 31 20 28 6d |2 (math-|div 1 (m|
|000024c0| 61 74 68 2d 61 64 64 20 | 31 20 28 6d 61 74 68 2d |ath-add |1 (math-|
|000024d0| 73 71 72 20 75 29 29 29 | 29 29 29 29 0a 0a 28 70 |sqr u)))|))))..(p|
|000024e0| 75 74 20 28 71 75 6f 74 | 65 20 63 61 6c 63 46 75 |ut (quot|e calcFu|
|000024f0| 6e 63 2d 73 69 6e 68 5c | 27 29 20 28 71 75 6f 74 |nc-sinh\|') (quot|
|00002500| 65 20 6d 61 74 68 2d 64 | 65 72 69 76 61 74 69 76 |e math-d|erivativ|
|00002510| 65 2d 31 29 20 28 66 75 | 6e 63 74 69 6f 6e 20 28 |e-1) (fu|nction (|
|00002520| 6c 61 6d 62 64 61 20 28 | 75 29 20 28 6d 61 74 68 |lambda (|u) (math|
|00002530| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 28 6c 69 73 74 |-normali|ze (list|
|00002540| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|00002550| 2d 63 6f 73 68 29 20 75 | 29 29 29 29 29 0a 0a 28 |-cosh) u|)))))..(|
|00002560| 70 75 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 46 |put (quo|te calcF|
|00002570| 75 6e 63 2d 63 6f 73 68 | 5c 27 29 20 28 71 75 6f |unc-cosh|\') (quo|
|00002580| 74 65 20 6d 61 74 68 2d | 64 65 72 69 76 61 74 69 |te math-|derivati|
|00002590| 76 65 2d 31 29 20 28 66 | 75 6e 63 74 69 6f 6e 20 |ve-1) (f|unction |
|000025a0| 28 6c 61 6d 62 64 61 20 | 28 75 29 20 28 6d 61 74 |(lambda |(u) (mat|
|000025b0| 68 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 28 6c 69 73 |h-normal|ize (lis|
|000025c0| 74 20 28 71 75 6f 74 65 | 20 63 61 6c 63 46 75 6e |t (quote| calcFun|
|000025d0| 63 2d 73 69 6e 68 29 20 | 75 29 29 29 29 29 0a 0a |c-sinh) |u)))))..|
|000025e0| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |(put (qu|ote calc|
|000025f0| 46 75 6e 63 2d 74 61 6e | 68 5c 27 29 20 28 71 75 |Func-tan|h\') (qu|
|00002600| 6f 74 65 20 6d 61 74 68 | 2d 64 65 72 69 76 61 74 |ote math|-derivat|
|00002610| 69 76 65 2d 31 29 20 28 | 66 75 6e 63 74 69 6f 6e |ive-1) (|function|
|00002620| 20 28 6c 61 6d 62 64 61 | 20 28 75 29 20 28 6d 61 | (lambda| (u) (ma|
|00002630| 74 68 2d 64 69 76 20 31 | 20 28 6d 61 74 68 2d 73 |th-div 1| (math-s|
|00002640| 71 72 20 28 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |qr (math|-normali|
|00002650| 7a 65 20 28 6c 69 73 74 | 20 28 71 75 6f 74 65 20 |ze (list| (quote |
|00002660| 63 61 6c 63 46 75 6e 63 | 2d 63 6f 73 68 29 20 75 |calcFunc|-cosh) u|
|00002670| 29 29 29 29 29 29 29 0a | 0a 28 70 75 74 20 28 71 |))))))).|.(put (q|
|00002680| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |uote cal|cFunc-ar|
|00002690| 63 73 69 6e 68 5c 27 29 | 20 28 71 75 6f 74 65 20 |csinh\')| (quote |
|000026a0| 6d 61 74 68 2d 64 65 72 | 69 76 61 74 69 76 65 2d |math-der|ivative-|
|000026b0| 31 29 20 28 66 75 6e 63 | 74 69 6f 6e 20 28 6c 61 |1) (func|tion (la|
|000026c0| 6d 62 64 61 20 28 75 29 | 20 28 6d 61 74 68 2d 64 |mbda (u)| (math-d|
|000026d0| 69 76 20 31 20 28 6d 61 | 74 68 2d 6e 6f 72 6d 61 |iv 1 (ma|th-norma|
|000026e0| 6c 69 7a 65 20 28 6c 69 | 73 74 20 28 71 75 6f 74 |lize (li|st (quot|
|000026f0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 73 71 72 74 29 |e calcFu|nc-sqrt)|
|00002700| 20 28 6d 61 74 68 2d 61 | 64 64 20 28 6d 61 74 68 | (math-a|dd (math|
|00002710| 2d 73 71 72 20 75 29 20 | 31 29 29 29 29 29 29 29 |-sqr u) |1)))))))|
|00002720| 0a 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 63 61 |..(put (|quote ca|
|00002730| 6c 63 46 75 6e 63 2d 61 | 72 63 63 6f 73 68 5c 27 |lcFunc-a|rccosh\'|
|00002740| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 64 65 |) (quote| math-de|
|00002750| 72 69 76 61 74 69 76 65 | 2d 31 29 20 28 66 75 6e |rivative|-1) (fun|
|00002760| 63 74 69 6f 6e 20 28 6c | 61 6d 62 64 61 20 28 75 |ction (l|ambda (u|
|00002770| 29 20 28 6d 61 74 68 2d | 64 69 76 20 31 20 28 6d |) (math-|div 1 (m|
|00002780| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 28 6c |ath-norm|alize (l|
|00002790| 69 73 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 46 |ist (quo|te calcF|
|000027a0| 75 6e 63 2d 73 71 72 74 | 29 20 28 6d 61 74 68 2d |unc-sqrt|) (math-|
|000027b0| 61 64 64 20 28 6d 61 74 | 68 2d 73 71 72 20 75 29 |add (mat|h-sqr u)|
|000027c0| 20 2d 31 29 29 29 29 29 | 29 29 0a 0a 28 70 75 74 | -1)))))|))..(put|
|000027d0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|000027e0| 2d 61 72 63 74 61 6e 68 | 5c 27 29 20 28 71 75 6f |-arctanh|\') (quo|
|000027f0| 74 65 20 6d 61 74 68 2d | 64 65 72 69 76 61 74 69 |te math-|derivati|
|00002800| 76 65 2d 31 29 20 28 66 | 75 6e 63 74 69 6f 6e 20 |ve-1) (f|unction |
|00002810| 28 6c 61 6d 62 64 61 20 | 28 75 29 20 28 6d 61 74 |(lambda |(u) (mat|
|00002820| 68 2d 64 69 76 20 31 20 | 28 6d 61 74 68 2d 73 75 |h-div 1 |(math-su|
|00002830| 62 20 31 20 28 6d 61 74 | 68 2d 73 71 72 20 75 29 |b 1 (mat|h-sqr u)|
|00002840| 29 29 29 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |)))))..(|put (quo|
|00002850| 74 65 20 63 61 6c 63 46 | 75 6e 63 2d 62 65 72 6e |te calcF|unc-bern|
|00002860| 5c 27 32 29 20 28 71 75 | 6f 74 65 20 6d 61 74 68 |\'2) (qu|ote math|
|00002870| 2d 64 65 72 69 76 61 74 | 69 76 65 2d 32 29 20 28 |-derivat|ive-2) (|
|00002880| 66 75 6e 63 74 69 6f 6e | 20 28 6c 61 6d 62 64 61 |function| (lambda|
|00002890| 20 28 6e 20 78 29 20 28 | 6d 61 74 68 2d 6d 75 6c | (n x) (|math-mul|
|000028a0| 20 6e 20 28 6c 69 73 74 | 20 28 71 75 6f 74 65 20 | n (list| (quote |
|000028b0| 63 61 6c 63 46 75 6e 63 | 2d 62 65 72 6e 29 20 28 |calcFunc|-bern) (|
|000028c0| 6d 61 74 68 2d 61 64 64 | 20 6e 20 2d 31 29 20 78 |math-add| n -1) x|
|000028d0| 29 29 29 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |)))))..(|put (quo|
|000028e0| 74 65 20 63 61 6c 63 46 | 75 6e 63 2d 65 75 6c 65 |te calcF|unc-eule|
|000028f0| 72 5c 27 32 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |r\'2) (q|uote mat|
|00002900| 68 2d 64 65 72 69 76 61 | 74 69 76 65 2d 32 29 20 |h-deriva|tive-2) |
|00002910| 28 66 75 6e 63 74 69 6f | 6e 20 28 6c 61 6d 62 64 |(functio|n (lambd|
|00002920| 61 20 28 6e 20 78 29 20 | 28 6d 61 74 68 2d 6d 75 |a (n x) |(math-mu|
|00002930| 6c 20 6e 20 28 6c 69 73 | 74 20 28 71 75 6f 74 65 |l n (lis|t (quote|
|00002940| 20 63 61 6c 63 46 75 6e | 63 2d 65 75 6c 65 72 29 | calcFun|c-euler)|
|00002950| 20 28 6d 61 74 68 2d 61 | 64 64 20 6e 20 2d 31 29 | (math-a|dd n -1)|
|00002960| 20 78 29 29 29 29 29 0a | 0a 28 70 75 74 20 28 71 | x))))).|.(put (q|
|00002970| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 67 61 |uote cal|cFunc-ga|
|00002980| 6d 6d 61 67 5c 27 32 29 | 20 28 71 75 6f 74 65 20 |mmag\'2)| (quote |
|00002990| 6d 61 74 68 2d 64 65 72 | 69 76 61 74 69 76 65 2d |math-der|ivative-|
|000029a0| 32 29 20 28 66 75 6e 63 | 74 69 6f 6e 20 28 6c 61 |2) (func|tion (la|
|000029b0| 6d 62 64 61 20 28 61 20 | 78 29 20 28 6d 61 74 68 |mbda (a |x) (math|
|000029c0| 2d 64 65 72 69 76 2d 67 | 61 6d 6d 61 20 61 20 78 |-deriv-g|amma a x|
|000029d0| 20 31 29 29 29 29 0a 0a | 28 70 75 74 20 28 71 75 | 1))))..|(put (qu|
|000029e0| 6f 74 65 20 63 61 6c 63 | 46 75 6e 63 2d 67 61 6d |ote calc|Func-gam|
|000029f0| 6d 61 47 5c 27 32 29 20 | 28 71 75 6f 74 65 20 6d |maG\'2) |(quote m|
|00002a00| 61 74 68 2d 64 65 72 69 | 76 61 74 69 76 65 2d 32 |ath-deri|vative-2|
|00002a10| 29 20 28 66 75 6e 63 74 | 69 6f 6e 20 28 6c 61 6d |) (funct|ion (lam|
|00002a20| 62 64 61 20 28 61 20 78 | 29 20 28 6d 61 74 68 2d |bda (a x|) (math-|
|00002a30| 64 65 72 69 76 2d 67 61 | 6d 6d 61 20 61 20 78 20 |deriv-ga|mma a x |
|00002a40| 2d 31 29 29 29 29 0a 0a | 28 70 75 74 20 28 71 75 |-1))))..|(put (qu|
|00002a50| 6f 74 65 20 63 61 6c 63 | 46 75 6e 63 2d 67 61 6d |ote calc|Func-gam|
|00002a60| 6d 61 50 5c 27 32 29 20 | 28 71 75 6f 74 65 20 6d |maP\'2) |(quote m|
|00002a70| 61 74 68 2d 64 65 72 69 | 76 61 74 69 76 65 2d 32 |ath-deri|vative-2|
|00002a80| 29 20 28 66 75 6e 63 74 | 69 6f 6e 20 28 6c 61 6d |) (funct|ion (lam|
|00002a90| 62 64 61 20 28 61 20 78 | 29 20 28 6d 61 74 68 2d |bda (a x|) (math-|
|00002aa0| 64 65 72 69 76 2d 67 61 | 6d 6d 61 20 61 20 78 20 |deriv-ga|mma a x |
|00002ab0| 28 6d 61 74 68 2d 64 69 | 76 20 31 20 28 6d 61 74 |(math-di|v 1 (mat|
|00002ac0| 68 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 28 6c 69 73 |h-normal|ize (lis|
|00002ad0| 74 20 28 71 75 6f 74 65 | 20 63 61 6c 63 46 75 6e |t (quote| calcFun|
|00002ae0| 63 2d 67 61 6d 6d 61 29 | 20 61 29 29 29 29 29 29 |c-gamma)| a))))))|
|00002af0| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |)..(put |(quote c|
|00002b00| 61 6c 63 46 75 6e 63 2d | 67 61 6d 6d 61 51 5c 27 |alcFunc-|gammaQ\'|
|00002b10| 32 29 20 28 71 75 6f 74 | 65 20 6d 61 74 68 2d 64 |2) (quot|e math-d|
|00002b20| 65 72 69 76 61 74 69 76 | 65 2d 32 29 20 28 66 75 |erivativ|e-2) (fu|
|00002b30| 6e 63 74 69 6f 6e 20 28 | 6c 61 6d 62 64 61 20 28 |nction (|lambda (|
|00002b40| 61 20 78 29 20 28 6d 61 | 74 68 2d 64 65 72 69 76 |a x) (ma|th-deriv|
|00002b50| 2d 67 61 6d 6d 61 20 61 | 20 78 20 28 6d 61 74 68 |-gamma a| x (math|
|00002b60| 2d 64 69 76 20 2d 31 20 | 28 6d 61 74 68 2d 6e 6f |-div -1 |(math-no|
|00002b70| 72 6d 61 6c 69 7a 65 20 | 28 6c 69 73 74 20 28 71 |rmalize |(list (q|
|00002b80| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 67 61 |uote cal|cFunc-ga|
|00002b90| 6d 6d 61 29 20 61 29 29 | 29 29 29 29 29 0a 0a 28 |mma) a))|)))))..(|
|00002ba0| 64 65 66 75 6e 20 6d 61 | 74 68 2d 64 65 72 69 76 |defun ma|th-deriv|
|00002bb0| 2d 67 61 6d 6d 61 20 28 | 61 20 78 20 73 63 61 6c |-gamma (|a x scal|
|00002bc0| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |e) (byte|-code ".|
|00002bd0| 08 c3 c4 09 c5 0a c6 5c | 22 5c 22 c7 c8 09 21 44 |.......\|"\"...!D|
|00002be0| 5c 22 5c 22 87 22 20 5b | 73 63 61 6c 65 20 78 20 |\"\"." [|scale x |
|00002bf0| 61 20 6d 61 74 68 2d 6d | 75 6c 20 6d 61 74 68 2d |a math-m|ul math-|
|00002c00| 70 6f 77 20 6d 61 74 68 | 2d 61 64 64 20 2d 31 20 |pow math|-add -1 |
|00002c10| 63 61 6c 63 46 75 6e 63 | 2d 65 78 70 20 6d 61 74 |calcFunc|-exp mat|
|00002c20| 68 2d 6e 65 67 5d 20 39 | 29 29 0a 0a 28 70 75 74 |h-neg] 9|))..(put|
|00002c30| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|00002c40| 2d 62 65 74 61 42 5c 27 | 29 20 28 71 75 6f 74 65 |-betaB\'|) (quote|
|00002c50| 20 6d 61 74 68 2d 64 65 | 72 69 76 61 74 69 76 65 | math-de|rivative|
|00002c60| 2d 33 29 20 28 66 75 6e | 63 74 69 6f 6e 20 28 6c |-3) (fun|ction (l|
|00002c70| 61 6d 62 64 61 20 28 78 | 20 61 20 62 29 20 28 6d |ambda (x| a b) (m|
|00002c80| 61 74 68 2d 64 65 72 69 | 76 2d 62 65 74 61 20 78 |ath-deri|v-beta x|
|00002c90| 20 61 20 62 20 31 29 29 | 29 29 0a 0a 28 70 75 74 | a b 1))|))..(put|
|00002ca0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|00002cb0| 2d 62 65 74 61 49 5c 27 | 29 20 28 71 75 6f 74 65 |-betaI\'|) (quote|
|00002cc0| 20 6d 61 74 68 2d 64 65 | 72 69 76 61 74 69 76 65 | math-de|rivative|
|00002cd0| 2d 33 29 20 28 66 75 6e | 63 74 69 6f 6e 20 28 6c |-3) (fun|ction (l|
|00002ce0| 61 6d 62 64 61 20 28 78 | 20 61 20 62 29 20 28 6d |ambda (x| a b) (m|
|00002cf0| 61 74 68 2d 64 65 72 69 | 76 2d 62 65 74 61 20 78 |ath-deri|v-beta x|
|00002d00| 20 61 20 62 20 28 6d 61 | 74 68 2d 64 69 76 20 31 | a b (ma|th-div 1|
|00002d10| 20 28 6c 69 73 74 20 28 | 71 75 6f 74 65 20 63 61 | (list (|quote ca|
|00002d20| 6c 63 46 75 6e 63 2d 62 | 65 74 61 29 20 61 20 62 |lcFunc-b|eta) a b|
|00002d30| 29 29 29 29 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |))))))..|(defun m|
|00002d40| 61 74 68 2d 64 65 72 69 | 76 2d 62 65 74 61 20 28 |ath-deri|v-beta (|
|00002d50| 78 20 61 20 62 20 73 63 | 61 6c 65 29 20 28 62 79 |x a b sc|ale) (by|
|00002d60| 74 65 2d 63 6f 64 65 20 | 22 c4 c4 c5 08 c6 09 c7 |te-code |".......|
|00002d70| 5c 22 5c 22 c5 c8 c9 08 | 5c 22 c6 0a c7 5c 22 5c |\"\"....|\"...\"\|
|00002d80| 22 5c 22 0b 5c 22 87 22 | 20 5b 78 20 61 20 62 20 |"\".\"."| [x a b |
|00002d90| 73 63 61 6c 65 20 6d 61 | 74 68 2d 6d 75 6c 20 6d |scale ma|th-mul m|
|00002da0| 61 74 68 2d 70 6f 77 20 | 6d 61 74 68 2d 61 64 64 |ath-pow |math-add|
|00002db0| 20 2d 31 20 6d 61 74 68 | 2d 73 75 62 20 31 5d 20 | -1 math|-sub 1] |
|00002dc0| 31 31 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 |11))..(p|ut (quot|
|00002dd0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 65 72 66 5c 27 |e calcFu|nc-erf\'|
|00002de0| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 64 65 |) (quote| math-de|
|00002df0| 72 69 76 61 74 69 76 65 | 2d 31 29 20 28 66 75 6e |rivative|-1) (fun|
|00002e00| 63 74 69 6f 6e 20 28 6c | 61 6d 62 64 61 20 28 78 |ction (l|ambda (x|
|00002e10| 29 20 28 6d 61 74 68 2d | 64 69 76 20 32 20 28 6d |) (math-|div 2 (m|
|00002e20| 61 74 68 2d 6d 75 6c 20 | 28 6c 69 73 74 20 28 71 |ath-mul |(list (q|
|00002e30| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 65 78 |uote cal|cFunc-ex|
|00002e40| 70 29 20 28 6d 61 74 68 | 2d 73 71 72 20 78 29 29 |p) (math|-sqr x))|
|00002e50| 20 28 69 66 20 63 61 6c | 63 2d 73 79 6d 62 6f 6c | (if cal|c-symbol|
|00002e60| 69 63 2d 6d 6f 64 65 20 | 28 71 75 6f 74 65 20 28 |ic-mode |(quote (|
|00002e70| 63 61 6c 63 46 75 6e 63 | 2d 73 71 72 74 20 28 76 |calcFunc|-sqrt (v|
|00002e80| 61 72 20 70 69 20 76 61 | 72 2d 70 69 29 29 29 20 |ar pi va|r-pi))) |
|00002e90| 28 6d 61 74 68 2d 73 71 | 72 74 2d 70 69 29 29 29 |(math-sq|rt-pi)))|
|00002ea0| 29 29 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 |))))..(p|ut (quot|
|00002eb0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 65 72 66 63 5c |e calcFu|nc-erfc\|
|00002ec0| 27 29 20 28 71 75 6f 74 | 65 20 6d 61 74 68 2d 64 |') (quot|e math-d|
|00002ed0| 65 72 69 76 61 74 69 76 | 65 2d 31 29 20 28 66 75 |erivativ|e-1) (fu|
|00002ee0| 6e 63 74 69 6f 6e 20 28 | 6c 61 6d 62 64 61 20 28 |nction (|lambda (|
|00002ef0| 78 29 20 28 6d 61 74 68 | 2d 64 69 76 20 2d 32 20 |x) (math|-div -2 |
|00002f00| 28 6d 61 74 68 2d 6d 75 | 6c 20 28 6c 69 73 74 20 |(math-mu|l (list |
|00002f10| 28 71 75 6f 74 65 20 63 | 61 6c 63 46 75 6e 63 2d |(quote c|alcFunc-|
|00002f20| 65 78 70 29 20 28 6d 61 | 74 68 2d 73 71 72 20 78 |exp) (ma|th-sqr x|
|00002f30| 29 29 20 28 69 66 20 63 | 61 6c 63 2d 73 79 6d 62 |)) (if c|alc-symb|
|00002f40| 6f 6c 69 63 2d 6d 6f 64 | 65 20 28 71 75 6f 74 65 |olic-mod|e (quote|
|00002f50| 20 28 63 61 6c 63 46 75 | 6e 63 2d 73 71 72 74 20 | (calcFu|nc-sqrt |
|00002f60| 28 76 61 72 20 70 69 20 | 76 61 72 2d 70 69 29 29 |(var pi |var-pi))|
|00002f70| 29 20 28 6d 61 74 68 2d | 73 71 72 74 2d 70 69 29 |) (math-|sqrt-pi)|
|00002f80| 29 29 29 29 29 29 0a 0a | 28 70 75 74 20 28 71 75 |))))))..|(put (qu|
|00002f90| 6f 74 65 20 63 61 6c 63 | 46 75 6e 63 2d 62 65 73 |ote calc|Func-bes|
|00002fa0| 4a 5c 27 32 29 20 28 71 | 75 6f 74 65 20 6d 61 74 |J\'2) (q|uote mat|
|00002fb0| 68 2d 64 65 72 69 76 61 | 74 69 76 65 2d 32 29 20 |h-deriva|tive-2) |
|00002fc0| 28 66 75 6e 63 74 69 6f | 6e 20 28 6c 61 6d 62 64 |(functio|n (lambd|
|00002fd0| 61 20 28 76 20 7a 29 20 | 28 6d 61 74 68 2d 64 69 |a (v z) |(math-di|
|00002fe0| 76 20 28 6d 61 74 68 2d | 73 75 62 20 28 6c 69 73 |v (math-|sub (lis|
|00002ff0| 74 20 28 71 75 6f 74 65 | 20 63 61 6c 63 46 75 6e |t (quote| calcFun|
|00003000| 63 2d 62 65 73 4a 29 20 | 28 6d 61 74 68 2d 61 64 |c-besJ) |(math-ad|
|00003010| 64 20 76 20 2d 31 29 20 | 7a 29 20 28 6c 69 73 74 |d v -1) |z) (list|
|00003020| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 46 75 6e 63 | (quote |calcFunc|
|00003030| 2d 62 65 73 4a 29 20 28 | 6d 61 74 68 2d 61 64 64 |-besJ) (|math-add|
|00003040| 20 76 20 31 29 20 7a 29 | 29 20 32 29 29 29 29 0a | v 1) z)|) 2)))).|
|00003050| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|00003060| 63 46 75 6e 63 2d 62 65 | 73 59 5c 27 32 29 20 28 |cFunc-be|sY\'2) (|
|00003070| 71 75 6f 74 65 20 6d 61 | 74 68 2d 64 65 72 69 76 |quote ma|th-deriv|
|00003080| 61 74 69 76 65 2d 32 29 | 20 28 66 75 6e 63 74 69 |ative-2)| (functi|
|00003090| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 76 20 7a 29 |on (lamb|da (v z)|
|000030a0| 20 28 6d 61 74 68 2d 64 | 69 76 20 28 6d 61 74 68 | (math-d|iv (math|
|000030b0| 2d 73 75 62 20 28 6c 69 | 73 74 20 28 71 75 6f 74 |-sub (li|st (quot|
|000030c0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 62 65 73 59 29 |e calcFu|nc-besY)|
|000030d0| 20 28 6d 61 74 68 2d 61 | 64 64 20 76 20 2d 31 29 | (math-a|dd v -1)|
|000030e0| 20 7a 29 20 28 6c 69 73 | 74 20 28 71 75 6f 74 65 | z) (lis|t (quote|
|000030f0| 20 63 61 6c 63 46 75 6e | 63 2d 62 65 73 59 29 20 | calcFun|c-besY) |
|00003100| 28 6d 61 74 68 2d 61 64 | 64 20 76 20 31 29 20 7a |(math-ad|d v 1) z|
|00003110| 29 29 20 32 29 29 29 29 | 0a 0a 28 70 75 74 20 28 |)) 2))))|..(put (|
|00003120| 71 75 6f 74 65 20 63 61 | 6c 63 46 75 6e 63 2d 73 |quote ca|lcFunc-s|
|00003130| 75 6d 29 20 28 71 75 6f | 74 65 20 6d 61 74 68 2d |um) (quo|te math-|
|00003140| 64 65 72 69 76 61 74 69 | 76 65 2d 6e 29 20 28 66 |derivati|ve-n) (f|
|00003150| 75 6e 63 74 69 6f 6e 20 | 28 6c 61 6d 62 64 61 20 |unction |(lambda |
|00003160| 28 65 78 70 72 29 20 28 | 69 66 20 28 6d 61 74 68 |(expr) (|if (math|
|00003170| 2d 65 78 70 72 2d 63 6f | 6e 74 61 69 6e 73 20 28 |-expr-co|ntains (|
|00003180| 63 6f 6e 73 20 28 71 75 | 6f 74 65 20 76 65 63 29 |cons (qu|ote vec)|
|00003190| 20 28 63 64 72 20 28 63 | 64 72 20 65 78 70 72 29 | (cdr (c|dr expr)|
|000031a0| 29 29 20 64 65 72 69 76 | 2d 76 61 72 29 20 28 74 |)) deriv|-var) (t|
|000031b0| 68 72 6f 77 20 28 71 75 | 6f 74 65 20 6d 61 74 68 |hrow (qu|ote math|
|000031c0| 2d 64 65 72 69 76 29 20 | 6e 69 6c 29 20 28 63 6f |-deriv) |nil) (co|
|000031d0| 6e 73 20 28 71 75 6f 74 | 65 20 63 61 6c 63 46 75 |ns (quot|e calcFu|
|000031e0| 6e 63 2d 73 75 6d 29 20 | 28 63 6f 6e 73 20 28 6d |nc-sum) |(cons (m|
|000031f0| 61 74 68 2d 64 65 72 69 | 76 61 74 69 76 65 20 28 |ath-deri|vative (|
|00003200| 6e 74 68 20 31 20 65 78 | 70 72 29 29 20 28 63 64 |nth 1 ex|pr)) (cd|
|00003210| 72 20 28 63 64 72 20 65 | 78 70 72 29 29 29 29 29 |r (cdr e|xpr)))))|
|00003220| 29 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |)))..(pu|t (quote|
|00003230| 20 63 61 6c 63 46 75 6e | 63 2d 70 72 6f 64 29 20 | calcFun|c-prod) |
|00003240| 28 71 75 6f 74 65 20 6d | 61 74 68 2d 64 65 72 69 |(quote m|ath-deri|
|00003250| 76 61 74 69 76 65 2d 6e | 29 20 28 66 75 6e 63 74 |vative-n|) (funct|
|00003260| 69 6f 6e 20 28 6c 61 6d | 62 64 61 20 28 65 78 70 |ion (lam|bda (exp|
|00003270| 72 29 20 28 69 66 20 28 | 6d 61 74 68 2d 65 78 70 |r) (if (|math-exp|
|00003280| 72 2d 63 6f 6e 74 61 69 | 6e 73 20 28 63 6f 6e 73 |r-contai|ns (cons|
|00003290| 20 28 71 75 6f 74 65 20 | 76 65 63 29 20 28 63 64 | (quote |vec) (cd|
|000032a0| 72 20 28 63 64 72 20 65 | 78 70 72 29 29 29 20 64 |r (cdr e|xpr))) d|
|000032b0| 65 72 69 76 2d 76 61 72 | 29 20 28 74 68 72 6f 77 |eriv-var|) (throw|
|000032c0| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 64 65 72 | (quote |math-der|
|000032d0| 69 76 29 20 6e 69 6c 29 | 20 28 6d 61 74 68 2d 6d |iv) nil)| (math-m|
|000032e0| 75 6c 20 65 78 70 72 20 | 28 63 6f 6e 73 20 28 71 |ul expr |(cons (q|
|000032f0| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 73 75 |uote cal|cFunc-su|
|00003300| 6d 29 20 28 63 6f 6e 73 | 20 28 6d 61 74 68 2d 64 |m) (cons| (math-d|
|00003310| 69 76 20 28 6d 61 74 68 | 2d 64 65 72 69 76 61 74 |iv (math|-derivat|
|00003320| 69 76 65 20 28 6e 74 68 | 20 31 20 65 78 70 72 29 |ive (nth| 1 expr)|
|00003330| 29 20 28 6e 74 68 20 31 | 20 65 78 70 72 29 29 20 |) (nth 1| expr)) |
|00003340| 28 63 64 72 20 28 63 64 | 72 20 65 78 70 72 29 29 |(cdr (cd|r expr))|
|00003350| 29 29 29 29 29 29 29 0a | 0a 28 70 75 74 20 28 71 |))))))).|.(put (q|
|00003360| 75 6f 74 65 20 63 61 6c | 63 46 75 6e 63 2d 69 6e |uote cal|cFunc-in|
|00003370| 74 65 67 29 20 28 71 75 | 6f 74 65 20 6d 61 74 68 |teg) (qu|ote math|
|00003380| 2d 64 65 72 69 76 61 74 | 69 76 65 2d 6e 29 20 28 |-derivat|ive-n) (|
|00003390| 66 75 6e 63 74 69 6f 6e | 20 28 6c 61 6d 62 64 61 |function| (lambda|
|000033a0| 20 28 65 78 70 72 29 20 | 28 69 66 20 28 3d 20 28 | (expr) |(if (= (|
|000033b0| 6c 65 6e 67 74 68 20 65 | 78 70 72 29 20 33 29 20 |length e|xpr) 3) |
|000033c0| 28 69 66 20 28 65 71 75 | 61 6c 20 28 6e 74 68 20 |(if (equ|al (nth |
|000033d0| 32 20 65 78 70 72 29 20 | 64 65 72 69 76 2d 76 61 |2 expr) |deriv-va|
|000033e0| 72 29 20 28 6e 74 68 20 | 31 20 65 78 70 72 29 20 |r) (nth |1 expr) |
|000033f0| 28 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 |(math-no|rmalize |
|00003400| 28 6c 69 73 74 20 28 71 | 75 6f 74 65 20 63 61 6c |(list (q|uote cal|
|00003410| 63 46 75 6e 63 2d 69 6e | 74 65 67 29 20 28 6d 61 |cFunc-in|teg) (ma|
|00003420| 74 68 2d 64 65 72 69 76 | 61 74 69 76 65 20 28 6e |th-deriv|ative (n|
|00003430| 74 68 20 31 20 65 78 70 | 72 29 29 20 28 6e 74 68 |th 1 exp|r)) (nth|
|00003440| 20 32 20 65 78 70 72 29 | 29 29 29 20 28 69 66 20 | 2 expr)|))) (if |
|00003450| 28 3d 20 28 6c 65 6e 67 | 74 68 20 65 78 70 72 29 |(= (leng|th expr)|
|00003460| 20 35 29 20 28 6c 65 74 | 20 28 28 6c 6f 77 65 72 | 5) (let| ((lower|
|00003470| 20 28 6d 61 74 68 2d 65 | 78 70 72 2d 73 75 62 73 | (math-e|xpr-subs|
|00003480| 74 20 28 6e 74 68 20 31 | 20 65 78 70 72 29 20 28 |t (nth 1| expr) (|
|00003490| 6e 74 68 20 32 20 65 78 | 70 72 29 20 28 6e 74 68 |nth 2 ex|pr) (nth|
|000034a0| 20 33 20 65 78 70 72 29 | 29 29 20 28 75 70 70 65 | 3 expr)|)) (uppe|
|000034b0| 72 20 28 6d 61 74 68 2d | 65 78 70 72 2d 73 75 62 |r (math-|expr-sub|
|000034c0| 73 74 20 28 6e 74 68 20 | 31 20 65 78 70 72 29 20 |st (nth |1 expr) |
|000034d0| 28 6e 74 68 20 32 20 65 | 78 70 72 29 20 28 6e 74 |(nth 2 e|xpr) (nt|
|000034e0| 68 20 34 20 65 78 70 72 | 29 29 29 29 20 28 6d 61 |h 4 expr|)))) (ma|
|000034f0| 74 68 2d 61 64 64 20 28 | 6d 61 74 68 2d 73 75 62 |th-add (|math-sub|
|00003500| 20 28 6d 61 74 68 2d 6d | 75 6c 20 75 70 70 65 72 | (math-m|ul upper|
|00003510| 20 28 6d 61 74 68 2d 64 | 65 72 69 76 61 74 69 76 | (math-d|erivativ|
|00003520| 65 20 28 6e 74 68 20 34 | 20 65 78 70 72 29 29 29 |e (nth 4| expr)))|
|00003530| 20 28 6d 61 74 68 2d 6d | 75 6c 20 6c 6f 77 65 72 | (math-m|ul lower|
|00003540| 20 28 6d 61 74 68 2d 64 | 65 72 69 76 61 74 69 76 | (math-d|erivativ|
|00003550| 65 20 28 6e 74 68 20 33 | 20 65 78 70 72 29 29 29 |e (nth 3| expr)))|
|00003560| 29 20 28 69 66 20 28 65 | 71 75 61 6c 20 28 6e 74 |) (if (e|qual (nt|
|00003570| 68 20 32 20 65 78 70 72 | 29 20 64 65 72 69 76 2d |h 2 expr|) deriv-|
|00003580| 76 61 72 29 20 30 20 28 | 6d 61 74 68 2d 6e 6f 72 |var) 0 (|math-nor|
|00003590| 6d 61 6c 69 7a 65 20 28 | 6c 69 73 74 20 28 71 75 |malize (|list (qu|
|000035a0| 6f 74 65 20 63 61 6c 63 | 46 75 6e 63 2d 69 6e 74 |ote calc|Func-int|
|000035b0| 65 67 29 20 28 6d 61 74 | 68 2d 64 65 72 69 76 61 |eg) (mat|h-deriva|
|000035c0| 74 69 76 65 20 28 6e 74 | 68 20 31 20 65 78 70 72 |tive (nt|h 1 expr|
|000035d0| 29 29 20 28 6e 74 68 20 | 32 20 65 78 70 72 29 20 |)) (nth |2 expr) |
|000035e0| 28 6e 74 68 20 33 20 65 | 78 70 72 29 20 28 6e 74 |(nth 3 e|xpr) (nt|
|000035f0| 68 20 34 20 65 78 70 72 | 29 29 29 29 29 29 29 29 |h 4 expr|))))))))|
|00003600| 29 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |)))..(pu|t (quote|
|00003610| 20 63 61 6c 63 46 75 6e | 63 2d 69 66 29 20 28 71 | calcFun|c-if) (q|
|00003620| 75 6f 74 65 20 6d 61 74 | 68 2d 64 65 72 69 76 61 |uote mat|h-deriva|
|00003630| 74 69 76 65 2d 6e 29 20 | 28 66 75 6e 63 74 69 6f |tive-n) |(functio|
|00003640| 6e 20 28 6c 61 6d 62 64 | 61 20 28 65 78 70 72 29 |n (lambd|a (expr)|
|00003650| 20 28 61 6e 64 20 28 3d | 20 28 6c 65 6e 67 74 68 | (and (=| (length|
|00003660| 20 65 78 70 72 29 20 34 | 29 20 28 6c 69 73 74 20 | expr) 4|) (list |
|00003670| 28 71 75 6f 74 65 20 63 | 61 6c 63 46 75 6e 63 2d |(quote c|alcFunc-|
|00003680| 69 66 29 20 28 6e 74 68 | 20 31 20 65 78 70 72 29 |if) (nth| 1 expr)|
|00003690| 20 28 6d 61 74 68 2d 64 | 65 72 69 76 61 74 69 76 | (math-d|erivativ|
|000036a0| 65 20 28 6e 74 68 20 32 | 20 65 78 70 72 29 29 20 |e (nth 2| expr)) |
|000036b0| 28 6d 61 74 68 2d 64 65 | 72 69 76 61 74 69 76 65 |(math-de|rivative|
|000036c0| 20 28 6e 74 68 20 33 20 | 65 78 70 72 29 29 29 29 | (nth 3 |expr))))|
|000036d0| 29 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |)))..(pu|t (quote|
|000036e0| 20 63 61 6c 63 46 75 6e | 63 2d 73 75 62 73 63 72 | calcFun|c-subscr|
|000036f0| 29 20 28 71 75 6f 74 65 | 20 6d 61 74 68 2d 64 65 |) (quote| math-de|
|00003700| 72 69 76 61 74 69 76 65 | 2d 6e 29 20 28 66 75 6e |rivative|-n) (fun|
|00003710| 63 74 69 6f 6e 20 28 6c | 61 6d 62 64 61 20 28 65 |ction (l|ambda (e|
|00003720| 78 70 72 29 20 28 61 6e | 64 20 28 3d 20 28 6c 65 |xpr) (an|d (= (le|
|00003730| 6e 67 74 68 20 65 78 70 | 72 29 20 33 29 20 28 6c |ngth exp|r) 3) (l|
|00003740| 69 73 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 46 |ist (quo|te calcF|
|00003750| 75 6e 63 2d 73 75 62 73 | 63 72 29 20 28 6e 74 68 |unc-subs|cr) (nth|
|00003760| 20 31 20 65 78 70 72 29 | 20 28 6d 61 74 68 2d 64 | 1 expr)| (math-d|
|00003770| 65 72 69 76 61 74 69 76 | 65 20 28 6e 74 68 20 32 |erivativ|e (nth 2|
|00003780| 20 65 78 70 72 29 29 29 | 29 29 29 29 0a 0a 28 73 | expr)))|))))..(s|
|00003790| 65 74 71 20 6d 61 74 68 | 2d 69 6e 74 65 67 2d 76 |etq math|-integ-v|
|000037a0| 61 72 20 28 71 75 6f 74 | 65 20 28 76 61 72 20 58 |ar (quot|e (var X|
|000037b0| 20 2d 2d 2d 29 29 29 0a | 0a 28 73 65 74 71 20 6d | ---))).|.(setq m|
|000037c0| 61 74 68 2d 69 6e 74 65 | 67 2d 76 61 72 2d 32 20 |ath-inte|g-var-2 |
|000037d0| 28 71 75 6f 74 65 20 28 | 76 61 72 20 59 20 2d 2d |(quote (|var Y --|
|000037e0| 2d 29 29 29 0a 0a 28 73 | 65 74 71 20 6d 61 74 68 |-)))..(s|etq math|
|000037f0| 2d 69 6e 74 65 67 2d 76 | 61 72 73 20 28 6c 69 73 |-integ-v|ars (lis|
|00003800| 74 20 28 71 75 6f 74 65 | 20 66 29 20 6d 61 74 68 |t (quote| f) math|
|00003810| 2d 69 6e 74 65 67 2d 76 | 61 72 20 6d 61 74 68 2d |-integ-v|ar math-|
|00003820| 69 6e 74 65 67 2d 76 61 | 72 2d 32 29 29 0a 0a 28 |integ-va|r-2))..(|
|00003830| 73 65 74 71 20 6d 61 74 | 68 2d 69 6e 74 65 67 2d |setq mat|h-integ-|
|00003840| 76 61 72 2d 6c 69 73 74 | 20 28 6c 69 73 74 20 6d |var-list| (list m|
|00003850| 61 74 68 2d 69 6e 74 65 | 67 2d 76 61 72 29 29 0a |ath-inte|g-var)).|
|00003860| 0a 28 73 65 74 71 20 6d | 61 74 68 2d 69 6e 74 65 |.(setq m|ath-inte|
|00003870| 67 2d 76 61 72 2d 6c 69 | 73 74 2d 6c 69 73 74 20 |g-var-li|st-list |
|00003880| 28 6c 69 73 74 20 6d 61 | 74 68 2d 69 6e 74 65 67 |(list ma|th-integ|
|00003890| 2d 76 61 72 2d 6c 69 73 | 74 29 29 0a 0a 28 64 65 |-var-lis|t))..(de|
|000038a0| 66 6d 61 63 72 6f 20 6d | 61 74 68 2d 74 72 61 63 |fmacro m|ath-trac|
|000038b0| 69 6e 67 2d 69 6e 74 65 | 67 72 61 6c 20 28 26 72 |ing-inte|gral (&r|
|000038c0| 65 73 74 20 70 61 72 74 | 73 29 20 28 62 79 74 65 |est part|s) (byte|
|000038d0| 2d 63 6f 64 65 20 22 c1 | c2 c3 c4 c5 c6 c1 c7 c8 |-code ".|........|
|000038e0| 45 c9 08 42 ca 26 06 45 | 87 22 20 5b 70 61 72 74 |E..B.&.E|." [part|
|000038f0| 73 20 61 6e 64 20 74 72 | 61 63 65 2d 62 75 66 66 |s and tr|ace-buff|
|00003900| 65 72 20 6c 69 73 74 20 | 73 61 76 65 2d 65 78 63 |er list |save-exc|
|00003910| 75 72 73 69 6f 6e 20 28 | 73 65 74 2d 62 75 66 66 |ursion (|set-buff|
|00003920| 65 72 20 74 72 61 63 65 | 2d 62 75 66 66 65 72 29 |er trace|-buffer)|
|00003930| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 70 6f 69 | (goto-c|har (poi|
|00003940| 6e 74 2d 6d 61 78 29 29 | 20 28 62 6f 6c 70 29 20 |nt-max))| (bolp) |
|00003950| 28 69 6e 73 65 72 74 20 | 28 6d 61 6b 65 2d 73 74 |(insert |(make-st|
|00003960| 72 69 6e 67 20 28 2d 20 | 6d 61 74 68 2d 69 6e 74 |ring (- |math-int|
|00003970| 65 67 72 61 6c 2d 6c 69 | 6d 69 74 20 6d 61 74 68 |egral-li|mit math|
|00003980| 2d 69 6e 74 65 67 2d 6c | 65 76 65 6c 29 20 33 32 |-integ-l|evel) 32|
|00003990| 29 20 28 66 6f 72 6d 61 | 74 20 22 25 32 64 20 22 |) (forma|t "%2d "|
|000039a0| 20 6d 61 74 68 2d 69 6e | 74 65 67 2d 64 65 70 74 | math-in|teg-dept|
|000039b0| 68 29 20 28 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |h) (make|-string |
|000039c0| 6d 61 74 68 2d 69 6e 74 | 65 67 2d 6c 65 76 65 6c |math-int|eg-level|
|000039d0| 20 33 32 29 29 20 69 6e | 73 65 72 74 20 28 73 69 | 32)) in|sert (si|
|000039e0| 74 2d 66 6f 72 20 30 29 | 5d 20 39 29 29 0a 0a 28 |t-for 0)|] 9))..(|
|000039f0| 64 65 66 75 6e 20 6d 61 | 74 68 2d 69 6e 74 65 67 |defun ma|th-integ|
|00003a00| 72 61 6c 20 28 65 78 70 | 72 20 26 6f 70 74 69 6f |ral (exp|r &optio|
|00003a10| 6e 61 6c 20 73 69 6d 70 | 6c 69 66 79 20 73 61 6d |nal simp|lify sam|
|00003a20| 65 2d 61 73 2d 61 62 6f | 76 65 29 20 28 62 79 74 |e-as-abo|ve) (byt|
|00003a30| 65 2d 63 6f 64 65 20 22 | 09 18 d1 0a 0b 5c 22 19 |e-code "|.....\".|
|00003a40| 0c 54 1c d2 1d 0e 06 85 | 3e 00 8a 0e 06 71 88 64 |.T......|>....q.d|
|00003a50| 62 88 6e 85 30 00 d3 d4 | 0e 07 0e 08 5a d5 5c 22 |b.n.0...|....Z.\"|
|00003a60| d6 d7 0c 5c 22 d4 0e 08 | d5 5c 22 23 88 d3 d8 d9 |...\"...|.\"#....|
|00003a70| 0a da 5c 22 db 23 88 dc | dd 21 29 88 09 85 b6 00 |..\".#..|.!).....|
|00003a80| 0e 06 85 76 00 8a 0e 06 | 71 88 64 62 88 6e 85 67 |...v....|q.db.n.g|
|00003a90| 00 d3 d4 0e 07 0e 08 5a | d5 5c 22 d6 d7 0c 5c 22 |.......Z|.\"...\"|
|00003aa0| d4 0e 08 d5 5c 22 23 88 | d3 de d9 df 09 38 da 5c |....\"#.|.....8.\|
|00003ab0| 22 5c 22 88 dc dd 21 29 | 88 df 09 38 3a 85 81 00 |"\"...!)|...8:...|
|00003ac0| e0 09 21 88 0e 06 85 b6 | 00 8a 0e 06 71 88 64 62 |..!.....|....q.db|
|00003ad0| 88 6e 85 a6 00 d3 d4 0e | 07 0e 08 5a d5 5c 22 d6 |.n......|...Z.\".|
|00003ae0| d7 0c 5c 22 d4 0e 08 d5 | 5c 22 23 88 d3 e1 d9 df |..\"....|\"#.....|
|00003af0| 09 38 da 5c 22 e2 23 88 | dc dd 21 29 88 09 85 d3 |.8.\".#.|..!)....|
|00003b00| 00 df 09 38 d2 3d 3f 85 | d3 00 e3 df 09 38 21 3f |...8.=?.|.....8!?|
|00003b10| 86 d3 00 df 09 38 0e 08 | 59 86 3a 02 e4 0a 21 85 |.....8..|Y.:...!.|
|00003b20| e1 00 c9 89 15 88 ca 86 | 3a 02 e5 8e c9 1e 0b 0e |........|:.......|
|00003b30| 0c e6 3d 85 03 01 e7 e8 | 21 88 d6 e9 ea 0a dd 5c |..=.....|!......\|
|00003b40| 22 5c 22 89 16 0b 88 eb | 0e 0b 21 88 09 83 1b 01 |"\".....|..!.....|
|00003b50| ec 09 41 0e 0d 83 16 01 | ed 08 21 82 17 01 ee 5c |..A.....|..!....\|
|00003b60| 22 82 2f 01 0a 0e 0d 83 | 27 01 ed 08 21 82 28 01 |"./.....|'...!.(.|
|00003b70| ee 44 11 09 0b 42 89 13 | 88 0e 0e ef 3d 83 db 01 |.D...B..|....=...|
|00003b80| 0e 06 85 63 01 8a 0e 06 | 71 88 64 62 88 6e 85 5b |...c....|q.db.n.[|
|00003b90| 01 d3 d4 0e 07 0e 08 5a | d5 5c 22 d6 d7 0c 5c 22 |.......Z|.\"...\"|
|00003ba0| d4 0e 08 d5 5c 22 23 88 | f0 63 88 dc dd 21 29 88 |....\"#.|.c...!).|
|00003bb0| f1 0a 21 89 10 88 f2 08 | 0a 5c 22 83 a4 01 0e 06 |..!.....|.\".....|
|00003bc0| 85 9d 01 8a 0e 06 71 88 | 64 62 88 6e 85 95 01 d3 |......q.|db.n....|
|00003bd0| d4 0e 07 0e 08 5a d5 5c | 22 d6 d7 0c 5c 22 d4 0e |.....Z.\|"...\"..|
|00003be0| 08 d5 5c 22 23 88 f3 63 | 88 dc dd 21 29 88 f4 0a |..\"#..c|...!)...|
|00003bf0| 21 82 d6 01 0e 06 85 d0 | 01 8a 0e 06 71 88 64 62 |!.......|....q.db|
|00003c00| 88 6e 85 c8 01 d3 d4 0e | 07 0e 08 5a d5 5c 22 d6 |.n......|...Z.\".|
|00003c10| d7 0c 5c 22 d4 0e 08 d5 | 5c 22 23 88 f5 63 88 dc |..\"....|\"#..c..|
|00003c20| dd 21 29 88 f6 08 f7 ca | 23 89 15 82 2c 02 f4 0a |.!).....|#...,...|
|00003c30| 21 89 15 86 2c 02 0e 0e | f7 3d 86 2c 02 f1 0a 21 |!...,...|.=.,...!|
|00003c40| 18 f2 08 0a 5c 22 86 2b | 02 0e 06 85 23 02 8a 0e |....\".+|....#...|
|00003c50| 06 71 88 64 62 88 6e 85 | 19 02 d3 d4 0e 07 0e 08 |.q.db.n.|........|
|00003c60| 5a d5 5c 22 d6 d7 0c 5c | 22 d4 0e 08 d5 5c 22 23 |Z.\"...\|"....\"#|
|00003c70| 88 d3 f8 f9 5c 22 88 dc | dd 21 29 88 f6 08 f7 ca |....\"..|.!).....|
|00003c80| 23 89 15 29 29 88 0e 0c | e6 3d 85 39 02 eb 0e 0b |#..))...|.=.9....|
|00003c90| 21 29 88 09 89 15 88 fa | df 0d 38 21 85 52 02 df |!)......|..8!.R..|
|00003ca0| 0d 38 dd 48 89 15 88 82 | 3f 02 88 df 0d 38 fb 3e |.8.H....|?....8.>|
|00003cb0| 83 68 02 ec 0d 41 fc 5c | 22 88 fd fe 0d 45 82 72 |.h...A.\|"....E.r|
|00003cc0| 02 df 0d 38 3a 85 72 02 | df 0d 38 89 15 88 0e 06 |...8:.r.|..8.....|
|00003cd0| 85 ae 02 8a 0e 06 71 88 | 64 62 88 6e 85 99 02 d3 |......q.|db.n....|
|00003ce0| d4 0e 07 0e 08 5a d5 5c | 22 d6 d7 0c 5c 22 d4 0e |.....Z.\|"...\"..|
|00003cf0| 08 d5 5c 22 23 88 d3 ff | d9 0a da 5c 22 81 40 00 |..\"#...|...\".@.|
|00003d00| d9 0d da 5c 22 e2 25 88 | dc dd 21 29 88 0d 2c 87 |...\".%.|..!)..,.|
|00003d10| 22 20 5b 73 69 6d 70 20 | 63 75 72 2d 72 65 63 6f |" [simp |cur-reco|
|00003d20| 72 64 20 65 78 70 72 20 | 6d 61 74 68 2d 69 6e 74 |rd expr |math-int|
|00003d30| 65 67 72 61 6c 2d 63 61 | 63 68 65 20 6d 61 74 68 |egral-ca|che math|
|00003d40| 2d 69 6e 74 65 67 2d 64 | 65 70 74 68 20 76 61 6c |-integ-d|epth val|
|00003d50| 20 74 72 61 63 65 2d 62 | 75 66 66 65 72 20 6d 61 | trace-b|uffer ma|
|00003d60| 74 68 2d 69 6e 74 65 67 | 72 61 6c 2d 6c 69 6d 69 |th-integ|ral-limi|
|00003d70| 74 20 6d 61 74 68 2d 69 | 6e 74 65 67 2d 6c 65 76 |t math-i|nteg-lev|
|00003d80| 65 6c 20 6e 69 6c 20 74 | 20 6d 61 74 68 2d 69 6e |el nil t| math-in|
|00003d90| 74 65 67 2d 6d 73 67 20 | 63 61 6c 63 2d 64 69 73 |teg-msg |calc-dis|
|00003da0| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 6d 65 73 |play-wor|king-mes|
|00003db0| 73 61 67 65 20 73 61 6d | 65 2d 61 73 2d 61 62 6f |sage sam|e-as-abo|
|00003dc0| 76 65 20 73 69 6d 70 6c | 69 66 79 20 6d 61 74 68 |ve simpl|ify math|
|00003dd0| 2d 65 6e 61 62 6c 65 2d | 73 75 62 73 74 20 6d 61 |-enable-|subst ma|
|00003de0| 74 68 2d 61 6e 79 2d 73 | 75 62 73 74 73 20 61 73 |th-any-s|ubsts as|
|00003df0| 73 6f 63 20 63 61 6e 63 | 65 6c 6c 65 64 20 69 6e |soc canc|elled in|
|00003e00| 73 65 72 74 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |sert mak|e-string|
|00003e10| 20 33 32 20 66 6f 72 6d | 61 74 20 22 25 32 64 20 | 32 form|at "%2d |
|00003e20| 22 20 22 49 6e 74 65 67 | 72 61 74 69 6e 67 20 22 |" "Integ|rating "|
|00003e30| 20 6d 61 74 68 2d 66 6f | 72 6d 61 74 2d 76 61 6c | math-fo|rmat-val|
|00003e40| 75 65 20 31 30 30 30 20 | 22 2e 2e 2e 0a 22 20 73 |ue 1000 |"...." s|
|00003e50| 69 74 2d 66 6f 72 20 30 | 20 22 46 6f 75 6e 64 20 |it-for 0| "Found |
|00003e60| 22 20 31 20 6d 61 74 68 | 2d 72 65 70 6c 61 63 65 |" 1 math|-replace|
|00003e70| 2d 69 6e 74 65 67 72 61 | 6c 2d 70 61 72 74 73 20 |-integra|l-parts |
|00003e80| 22 20 3d 3e 20 22 20 22 | 0a 22 20 69 6e 74 65 67 |" => " "|." integ|
|00003e90| 65 72 70 20 6d 61 74 68 | 2d 69 6e 74 65 67 72 61 |erp math|-integra|
|00003ea0| 6c 2d 63 6f 6e 74 61 69 | 6e 73 2d 70 61 72 74 73 |l-contai|ns-parts|
|00003eb0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c5 08 | ((byte-|code "..|
|00003ec0| 41 09 86 15 00 0a 86 0d | 00 0b 3f 83 14 00 0c 82 |A.......|..?.....|
|00003ed0| 15 00 c6 5c 22 87 22 20 | 5b 63 75 72 2d 72 65 63 |...\"." |[cur-rec|
|00003ee0| 6f 72 64 20 76 61 6c 20 | 6d 61 74 68 2d 65 6e 61 |ord val |math-ena|
|00003ef0| 62 6c 65 2d 73 75 62 73 | 74 20 6d 61 74 68 2d 61 |ble-subs|t math-a|
|00003f00| 6e 79 2d 73 75 62 73 74 | 73 20 6d 61 74 68 2d 69 |ny-subst|s math-i|
|00003f10| 6e 74 65 67 2d 6c 65 76 | 65 6c 20 73 65 74 63 61 |nteg-lev|el setca|
|00003f20| 72 20 63 61 6e 63 65 6c | 6c 65 64 5d 20 33 29 29 |r cancel|led] 3))|
|00003f30| 20 6c 6f 74 73 20 63 61 | 6c 63 2d 73 65 74 2d 63 | lots ca|lc-set-c|
|00003f40| 6f 6d 6d 61 6e 64 2d 66 | 6c 61 67 20 63 6c 65 61 |ommand-f|lag clea|
|00003f50| 72 2d 6d 65 73 73 61 67 | 65 20 22 57 6f 72 6b 69 |r-messag|e "Worki|
|00003f60| 6e 67 2e 2e 2e 20 49 6e | 74 65 67 72 61 74 69 6e |ng... In|tegratin|
|00003f70| 67 20 25 73 22 20 6d 61 | 74 68 2d 66 6f 72 6d 61 |g %s" ma|th-forma|
|00003f80| 74 2d 66 6c 61 74 2d 65 | 78 70 72 20 6d 65 73 73 |t-flat-e|xpr mess|
|00003f90| 61 67 65 20 73 65 74 63 | 61 72 20 76 65 63 74 6f |age setc|ar vecto|
|00003fa0| 72 20 62 75 73 79 20 79 | 65 73 20 22 53 69 6d 70 |r busy y|es "Simp|
|00003fb0| 6c 69 66 79 69 6e 67 2e | 2e 2e 22 20 6d 61 74 68 |lifying.|.." math|
|00003fc0| 2d 73 69 6d 70 6c 69 66 | 79 20 65 71 75 61 6c 20 |-simplif|y equal |
|00003fd0| 22 20 6e 6f 20 63 68 61 | 6e 67 65 0a 22 20 6d 61 |" no cha|nge." ma|
|00003fe0| 74 68 2d 64 6f 2d 69 6e | 74 65 67 72 61 6c 20 22 |th-do-in|tegral "|
|00003ff0| 20 73 69 6d 70 6c 69 66 | 69 65 64 0a 22 20 6d 61 | simplif|ied." ma|
|00004000| 74 68 2d 69 6e 74 65 67 | 72 61 6c 20 6e 6f 20 22 |th-integ|ral no "|
|00004010| 54 72 79 69 6e 67 20 61 | 67 61 69 6e 20 61 66 74 |Trying a|gain aft|
|00004020| 65 72 20 22 20 22 73 69 | 6d 70 6c 69 66 69 63 61 |er " "si|mplifica|
|00004030| 74 69 6f 6e 2e 2e 2e 0a | 22 20 76 65 63 74 6f 72 |tion....|" vector|
|00004040| 70 20 28 70 61 72 74 73 | 20 70 61 72 74 73 32 29 |p (parts| parts2)|
|00004050| 20 70 61 72 74 73 32 20 | 76 61 72 20 50 41 52 54 | parts2 |var PART|
|00004060| 53 20 22 49 6e 74 65 67 | 72 61 6c 20 6f 66 20 22 |S "Integ|ral of "|
|00004070| 20 22 20 20 69 73 20 20 | 22 5d 20 37 36 29 29 0a | " is |"] 76)).|
|00004080| 0a 28 64 65 66 76 61 72 | 20 6d 61 74 68 2d 69 6e |.(defvar| math-in|
|00004090| 74 65 67 72 61 6c 2d 63 | 61 63 68 65 20 6e 69 6c |tegral-c|ache nil|
|000040a0| 29 0a 0a 28 64 65 66 76 | 61 72 20 6d 61 74 68 2d |)..(defv|ar math-|
|000040b0| 69 6e 74 65 67 72 61 6c | 2d 63 61 63 68 65 2d 73 |integral|-cache-s|
|000040c0| 74 61 74 65 20 6e 69 6c | 29 0a 0a 28 64 65 66 75 |tate nil|)..(defu|
|000040d0| 6e 20 6d 61 74 68 2d 69 | 6e 74 65 67 72 61 6c 2d |n math-i|ntegral-|
|000040e0| 63 6f 6e 74 61 69 6e 73 | 2d 70 61 72 74 73 20 28 |contains|-parts (|
|000040f0| 65 78 70 72 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |expr) (b|yte-code|
|00004100| 20 22 08 3a 3f 86 0a 00 | 08 40 c1 3e 83 24 00 c2 | ".:?...|.@.>.$..|
|00004110| 08 21 c3 3d 85 21 00 c4 | 08 38 c5 3d 85 21 00 c6 |.!.=.!..|.8.=.!..|
|00004120| 08 38 3c 82 3a 00 08 41 | 89 10 85 30 00 c7 08 40 |.8<.:..A|...0...@|
|00004130| 21 3f 85 38 00 c8 88 82 | 24 00 88 08 87 22 20 5b |!?.8....|$...." [|
|00004140| 65 78 70 72 20 28 62 69 | 67 70 6f 73 20 62 69 67 |expr (bi|gpos big|
|00004150| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 63 |neg frac| float c|
|00004160| 70 6c 78 20 70 6f 6c 61 | 72 20 68 6d 73 20 64 61 |plx pola|r hms da|
|00004170| 74 65 20 6d 6f 64 20 76 | 61 72 29 20 63 61 72 2d |te mod v|ar) car-|
|00004180| 73 61 66 65 20 76 61 72 | 20 31 20 50 41 52 54 53 |safe var| 1 PARTS|
|00004190| 20 32 20 6d 61 74 68 2d | 69 6e 74 65 67 72 61 6c | 2 math-|integral|
|000041a0| 2d 63 6f 6e 74 61 69 6e | 73 2d 70 61 72 74 73 20 |-contain|s-parts |
|000041b0| 6e 69 6c 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |nil] 3))|..(defun|
|000041c0| 20 6d 61 74 68 2d 72 65 | 70 6c 61 63 65 2d 69 6e | math-re|place-in|
|000041d0| 74 65 67 72 61 6c 2d 70 | 61 72 74 73 20 28 65 78 |tegral-p|arts (ex|
|000041e0| 70 72 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |pr) (byt|e-code "|
|000041f0| 08 3a 3f 86 0a 00 08 40 | c2 3e 86 5f 00 08 41 89 |.:?....@|.>._..A.|
|00004200| 10 85 5f 00 08 40 3a 85 | 5b 00 08 40 40 c3 3d 83 |.._..@:.|[..@@.=.|
|00004210| 57 00 c4 08 40 38 c5 3d | 85 54 00 c6 08 40 38 3a |W...@8.=|.T...@8:|
|00004220| 85 54 00 c4 c6 08 40 38 | 38 3c 83 4f 00 c7 08 c4 |.T....@8|8<.O....|
|00004230| c6 08 40 38 38 5c 22 88 | c8 c9 08 42 21 82 54 00 |..@88\".|...B!.T.|
|00004240| c7 09 41 ca 5c 22 82 5b | 00 c8 08 40 21 88 82 0d |..A.\".[|...@!...|
|00004250| 00 87 22 20 5b 65 78 70 | 72 20 63 75 72 2d 72 65 |.." [exp|r cur-re|
|00004260| 63 6f 72 64 20 28 62 69 | 67 70 6f 73 20 62 69 67 |cord (bi|gpos big|
|00004270| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 63 |neg frac| float c|
|00004280| 70 6c 78 20 70 6f 6c 61 | 72 20 68 6d 73 20 64 61 |plx pola|r hms da|
|00004290| 74 65 20 6d 6f 64 20 76 | 61 72 29 20 76 61 72 20 |te mod v|ar) var |
|000042a0| 31 20 50 41 52 54 53 20 | 32 20 73 65 74 63 61 72 |1 PARTS |2 setcar|
|000042b0| 20 6d 61 74 68 2d 72 65 | 70 6c 61 63 65 2d 69 6e | math-re|place-in|
|000042c0| 74 65 67 72 61 6c 2d 70 | 61 72 74 73 20 66 6f 6f |tegral-p|arts foo|
|000042d0| 20 63 61 6e 63 65 6c 6c | 65 64 5d 20 36 29 29 0a | cancell|ed] 6)).|
|000042e0| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 64 6f 2d |.(defun |math-do-|
|000042f0| 69 6e 74 65 67 72 61 6c | 20 28 65 78 70 72 29 20 |integral| (expr) |
|00004300| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c5 c5 19 18 |(byte-co|de "....|
|00004310| d4 0a 0b 5c 22 3f 83 13 | 00 d5 0a 0b 5c 22 82 45 |...\"?..|....\".E|
|00004320| 03 d6 0a 0b 5c 22 83 23 | 00 d7 d8 0a 21 d9 5c 22 |....\".#|....!.\"|
|00004330| 82 45 03 0a 40 da 3d 83 | 45 00 db dc 0a 38 21 89 |.E..@.=.|E....8!.|
|00004340| 10 85 42 00 db d9 0a 38 | 21 89 11 85 42 00 dd 08 |..B....8|!...B...|
|00004350| 09 5c 22 82 45 03 0a 40 | de 3d 83 67 00 db dc 0a |.\".E..@|.=.g....|
|00004360| 38 21 89 10 85 64 00 db | d9 0a 38 21 89 11 85 64 |8!...d..|..8!...d|
|00004370| 00 df 08 09 5c 22 82 45 | 03 0a 40 e0 3d 83 7e 00 |....\".E|..@.=.~.|
|00004380| db dc 0a 38 21 89 10 85 | 7b 00 e1 08 21 82 45 03 |...8!...|{...!.E.|
|00004390| 0a 40 e2 3d 83 13 01 d4 | dc 0a 38 0b 5c 22 3f 83 |.@.=....|..8.\"?.|
|000043a0| a2 00 db d9 0a 38 21 89 | 10 85 9f 00 d5 dc 0a 38 |.....8!.|.......8|
|000043b0| 08 5c 22 82 10 01 d4 d9 | 0a 38 0b 5c 22 3f 83 bf |.\".....|.8.\"?..|
|000043c0| 00 db dc 0a 38 21 89 10 | 85 bc 00 d5 08 d9 0a 38 |....8!..|.......8|
|000043d0| 5c 22 82 10 01 e3 dc 0a | 38 21 e4 3e 83 e9 00 db |\"......|8!.>....|
|000043e0| dc 0a 38 40 d5 dc dc 0a | 38 38 d9 0a 38 5c 22 d5 |..8@....|88..8\".|
|000043f0| d9 dc 0a 38 38 d9 0a 38 | 5c 22 45 e5 c4 23 82 10 |...88..8|\"E..#..|
|00004400| 01 e3 d9 0a 38 21 e6 3e | 85 10 01 db d9 0a 38 40 |....8!.>|......8@|
|00004410| d5 dc d9 0a 38 38 dc 0a | 38 5c 22 d5 d9 d9 0a 38 |....88..|8\"....8|
|00004420| 38 dc 0a 38 5c 22 45 e5 | c4 23 82 45 03 0a 40 e7 |8..8\"E.|.#.E..@.|
|00004430| 3d 83 46 02 d4 dc 0a 38 | 0b 5c 22 3f 85 2b 01 e8 |=.F....8|.\"?.+..|
|00004440| dc 0a 38 dc 5c 22 3f 83 | 44 01 db d7 dc d9 0a 38 |..8.\"?.|D......8|
|00004450| 5c 22 21 89 10 85 41 01 | d5 dc 0a 38 08 5c 22 82 |\"!...A.|...8.\".|
|00004460| 43 02 d4 d9 0a 38 0b 5c | 22 3f 83 61 01 db dc 0a |C....8.\|"?.a....|
|00004470| 38 21 89 10 85 5e 01 d7 | 08 d9 0a 38 5c 22 82 43 |8!...^..|...8\".C|
|00004480| 02 e3 dc 0a 38 21 e2 3d | 85 74 01 d4 dc dc 0a 38 |....8!.=|.t.....8|
|00004490| 38 0b 5c 22 3f 83 93 01 | db d7 d9 dc 0a 38 38 d9 |8.\"?...|.....88.|
|000044a0| 0a 38 5c 22 21 89 10 85 | 90 01 d5 08 dc dc 0a 38 |.8\"!...|.......8|
|000044b0| 38 5c 22 82 43 02 e3 dc | 0a 38 21 e2 3d 85 a6 01 |8\".C...|.8!.=...|
|000044c0| d4 d9 dc 0a 38 38 0b 5c | 22 3f 83 c5 01 db d7 dc |....88.\|"?......|
|000044d0| dc 0a 38 38 d9 0a 38 5c | 22 21 89 10 85 c2 01 d5 |..88..8\|"!......|
|000044e0| 08 d9 dc 0a 38 38 5c 22 | 82 43 02 e3 d9 0a 38 21 |....88\"|.C....8!|
|000044f0| e2 3d 85 d8 01 d4 dc d9 | 0a 38 38 0b 5c 22 3f 83 |.=......|.88.\"?.|
|00004500| f7 01 db d7 dc 0a 38 d9 | d9 0a 38 38 5c 22 21 89 |......8.|..88\"!.|
|00004510| 10 85 f4 01 d7 08 dc d9 | 0a 38 38 5c 22 82 43 02 |........|.88\".C.|
|00004520| e3 d9 0a 38 21 e2 3d 85 | 0a 02 d4 d9 d9 0a 38 38 |...8!.=.|......88|
|00004530| 0b 5c 22 3f 83 29 02 db | d7 dc 0a 38 dc d9 0a 38 |.\"?.)..|...8...8|
|00004540| 38 5c 22 21 89 10 85 26 | 02 d7 08 d9 d9 0a 38 38 |8\"!...&|......88|
|00004550| 5c 22 82 43 02 e3 d9 0a | 38 21 e9 3d 85 43 02 db |\".C....|8!.=.C..|
|00004560| d5 dc 0a 38 e9 e1 dc d9 | 0a 38 38 21 44 5c 22 21 |...8....|.88!D\"!|
|00004570| 82 45 03 0a 40 ea 3d 85 | 45 03 d4 dc 0a 38 0b 5c |.E..@.=.|E....8.\|
|00004580| 22 3f 83 8a 02 eb d9 0a | 38 0b dc 23 89 10 85 72 |"?......|8..#...r|
|00004590| 02 d7 0a d5 dc 08 38 ec | ed dc 0a 38 44 21 5c 22 |......8.|...8D!\"|
|000045a0| 5c 22 86 87 02 db e9 d5 | d9 0a 38 ec ed dc 0a 38 |\"......|..8....8|
|000045b0| 44 21 5c 22 44 e5 c4 23 | 82 45 03 d4 d9 0a 38 0b |D!\"D..#|.E....8.|
|000045c0| 5c 22 3f 85 45 03 ee d9 | 0a 38 21 85 a1 02 d9 0a |\"?.E...|.8!.....|
|000045d0| 38 ef 57 83 b7 02 db e7 | dc f0 dc 0a 38 d9 0a 38 |8.W.....|....8..8|
|000045e0| 5b 5c 22 45 c5 c4 23 82 | 45 03 eb dc 0a 38 0b dc |[\"E..#.|E....8..|
|000045f0| 23 89 10 85 dc 02 dd d9 | 0a 38 dc 5c 22 89 11 85 |#.......|.8.\"...|
|00004600| dc 02 d7 f0 dc 0a 38 09 | 5c 22 d5 09 dc 08 38 5c |......8.|\"....8\|
|00004610| 22 5c 22 86 45 03 d9 0a | 38 3a 83 28 03 d9 0a 38 |"\".E...|8:.(...8|
|00004620| 40 f1 3d 86 25 03 d9 0a | 38 40 f2 3d 3f 85 25 03 |@.=.%...|8@.=?.%.|
|00004630| d9 0a 38 40 f3 3e 83 20 | 03 dc d9 0a 38 38 3a 83 |..8@.>. |....88:.|
|00004640| 16 03 dc d9 0a 38 38 40 | f1 3d 82 1d 03 dc d9 0a |.....88@|.=......|
|00004650| 38 38 ef 57 82 25 03 f4 | d9 0a 38 21 82 2d 03 d9 |88.W.%..|..8!.-..|
|00004660| 0a 38 ef 57 85 41 03 db | d7 dc f0 dc 0a 38 e1 d9 |.8.W.A..|.....8..|
|00004670| 0a 38 21 5c 22 5c 22 c5 | c4 23 86 45 03 c5 86 7e |.8!\"\".|.#.E...~|
|00004680| 05 eb 0a 0b f5 23 89 10 | 85 84 03 ef dc 1e 07 1e |.....#..|........|
|00004690| 06 08 85 80 03 dd 0e 06 | d7 d5 08 40 f0 0b 0e 07 |........|...@....|
|000046a0| 5c 22 5c 22 0e 07 5c 22 | 5c 22 16 06 08 41 89 10 |\"\"..\"|\"...A..|
|000046b0| 85 7c 03 0e 07 54 89 16 | 07 88 82 58 03 88 0e 06 |.|...T..|...X....|
|000046c0| 2a 86 7e 05 0a 47 d9 55 | 83 c1 03 0a 40 39 85 be |*.~..G.U|....@9..|
|000046d0| 03 0a 40 db 4e 89 10 85 | be 03 08 85 ab 03 f6 08 |..@.N...|........|
|000046e0| 40 dc 0a 38 5c 22 89 11 | 3f 85 b6 03 08 41 89 10 |@..8\"..|?....A..|
|000046f0| 88 82 9d 03 88 09 85 be | 03 ec 09 21 82 fb 03 0a |........|...!....|
|00004700| 47 f7 55 85 fb 03 0a 40 | 39 85 fb 03 0a 40 f8 4e |G.U....@|9....@.N|
|00004710| 89 10 85 fb 03 08 85 e8 | 03 f6 08 40 dc 0a 38 d9 |........|...@..8.|
|00004720| 0a 38 23 89 11 3f 85 f3 | 03 08 41 89 10 88 82 d7 |.8#..?..|..A.....|
|00004730| 03 88 09 85 fb 03 ec 09 | 21 86 7e 05 f9 0a 0b 5c |........|!.~....\|
|00004740| 22 85 19 04 fa 0a 0b 5c | 22 89 10 85 19 04 d6 08 |"......\|".......|
|00004750| 0a 5c 22 3f 85 19 04 db | 08 21 86 7e 05 0e 08 85 |.\"?....|.!.~....|
|00004760| a5 04 fb 4b fc 0a 0b 45 | c5 c5 1e 0c 1e 0b 1e 0a |...K...E|........|
|00004770| 1e 09 fd 8e fb fe 4d 88 | ff 0e 0a 81 40 00 dc 23 |......M.|....@..#|
|00004780| 89 16 0b 88 fb 0e 09 4d | 88 d6 0e 0b 0e 0a 5c 22 |.......M|......\"|
|00004790| 3f 85 a3 04 81 41 00 0e | 0b 81 42 00 5c 22 89 16 |?....A..|..B.\"..|
|000047a0| 0c 83 94 04 0e 0c 47 81 | 43 00 3e 85 91 04 81 44 |......G.|C.>....D|
|000047b0| 00 81 45 00 0e 0c 41 5c | 22 1e 0d 81 46 00 0a 0e |..E...A\|"...F...|
|000047c0| 0d 40 c4 d9 0e 0d 38 86 | 8b 04 81 47 00 0b 44 f7 |.@....8.|...G..D.|
|000047d0| 0e 0d 38 25 29 82 a3 04 | 81 41 00 0e 0b 81 48 00 |..8%)...|.A....H.|
|000047e0| 5c 22 3f 85 a3 04 0e 0b | 29 2c 86 7e 05 81 49 00 |\"?.....|),.~..I.|
|000047f0| 81 4a 00 81 4b 00 0a 40 | 21 5c 22 85 5b 05 81 4b |.J..K..@|!\".[..K|
|00004800| 00 0a 40 21 0a ef c5 c5 | 1e 11 1e 10 1e 07 1e 0f |..@!....|........|
|00004810| 1e 0e 0e 07 54 16 07 0e | 0f 41 89 16 0f 85 08 05 |....T...|.A......|
|00004820| d6 0e 0f 40 0b 5c 22 83 | f7 04 0e 10 83 ef 04 c4 |...@.\".|........|
|00004830| 89 16 11 82 f4 04 0e 07 | 89 16 10 82 04 05 d4 0e |........|........|
|00004840| 0f 40 0b 5c 22 85 04 05 | c4 89 16 11 88 82 cc 04 |.@.\"...|........|
|00004850| 88 0e 10 85 5a 05 0e 11 | 3f 85 5a 05 0e 10 dc 55 |....Z...|?.Z....U|
|00004860| 83 21 05 81 4a 00 82 2a | 05 81 4c 00 81 4d 00 0e |.!..J..*|..L..M..|
|00004870| 10 5c 22 1e 12 81 49 00 | 0e 12 81 4e 00 50 0e 0e |.\"...I.|...N.P..|
|00004880| 5c 22 85 59 05 81 4f 00 | 0e 0e ef 81 50 00 ef 21 |\".Y..O.|....P..!|
|00004890| 4f 0e 0e 81 50 00 ef 21 | 0e 12 47 5c 5c c5 4f 50 |O...P..!|..G\\.OP|
|000048a0| 21 0a 41 42 29 2d 86 7e | 05 0e 13 ef 56 85 6a 05 |!.AB)-.~|....V.j.|
|000048b0| 81 51 00 0a 21 86 7e 05 | 81 52 00 0a 21 1e 0b 0e |.Q..!.~.|.R..!...|
|000048c0| 0b 85 7d 05 db 0e 0b 21 | 29 2a 87 22 20 5b 74 31 |..}....!|)*." [t1|
|000048d0| 20 74 32 20 65 78 70 72 | 20 6d 61 74 68 2d 69 6e | t2 expr| math-in|
|000048e0| 74 65 67 2d 76 61 72 20 | 74 20 6e 69 6c 20 61 63 |teg-var |t nil ac|
|000048f0| 63 75 6d 20 6e 20 68 61 | 73 2d 72 75 6c 65 73 20 |cum n ha|s-rules |
|00004900| 6d 61 74 68 2d 6f 6c 64 | 2d 69 6e 74 65 67 20 69 |math-old|-integ i|
|00004910| 6e 70 75 74 20 72 65 73 | 20 70 61 72 74 20 70 61 |nput res| part pa|
|00004920| 72 74 73 20 6e 61 6d 65 | 20 70 20 77 68 69 63 68 |rts name| p which|
|00004930| 20 62 61 64 20 70 72 69 | 6d 65 20 6d 61 74 68 2d | bad pri|me math-|
|00004940| 69 6e 74 65 67 2d 6c 65 | 76 65 6c 20 6d 61 74 68 |integ-le|vel math|
|00004950| 2d 65 78 70 72 2d 63 6f | 6e 74 61 69 6e 73 20 6d |-expr-co|ntains m|
|00004960| 61 74 68 2d 6d 75 6c 20 | 65 71 75 61 6c 20 6d 61 |ath-mul |equal ma|
|00004970| 74 68 2d 64 69 76 20 6d | 61 74 68 2d 73 71 72 20 |th-div m|ath-sqr |
|00004980| 32 20 2b 20 6d 61 74 68 | 2d 69 6e 74 65 67 72 61 |2 + math|-integra|
|00004990| 6c 20 31 20 6d 61 74 68 | 2d 61 64 64 20 2d 20 6d |l 1 math|-add - m|
|000049a0| 61 74 68 2d 73 75 62 20 | 6e 65 67 20 6d 61 74 68 |ath-sub |neg math|
|000049b0| 2d 6e 65 67 20 2a 20 63 | 61 72 2d 73 61 66 65 20 |-neg * c|ar-safe |
|000049c0| 28 2b 20 2d 29 20 79 65 | 73 20 28 2b 20 2d 29 20 |(+ -) ye|s (+ -) |
|000049d0| 2f 20 6d 61 74 68 2d 65 | 71 75 61 6c 2d 69 6e 74 |/ math-e|qual-int|
|000049e0| 20 63 61 6c 63 46 75 6e | 63 2d 65 78 70 20 5e 20 | calcFun|c-exp ^ |
|000049f0| 6d 61 74 68 2d 69 73 2d | 70 6f 6c 79 6e 6f 6d 69 |math-is-|polynomi|
|00004a00| 61 6c 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |al math-|normaliz|
|00004a10| 65 20 63 61 6c 63 46 75 | 6e 63 2d 6c 6e 20 69 6e |e calcFu|nc-ln in|
|00004a20| 74 65 67 65 72 70 20 30 | 20 6d 61 74 68 2d 70 6f |tegerp 0| math-po|
|00004a30| 77 20 62 69 67 6e 65 67 | 20 62 69 67 70 6f 73 20 |w bigneg| bigpos |
|00004a40| 28 66 72 61 63 20 66 6c | 6f 61 74 29 20 6d 61 74 |(frac fl|oat) mat|
|00004a50| 68 2d 6e 65 67 70 20 32 | 30 20 66 75 6e 63 61 6c |h-negp 2|0 funcal|
|00004a60| 6c 20 33 20 6d 61 74 68 | 2d 69 6e 74 65 67 72 61 |l 3 math|-integra|
|00004a70| 6c 2d 32 20 6d 61 74 68 | 2d 72 61 74 70 6f 6c 79 |l-2 math|-ratpoly|
|00004a80| 2d 70 20 63 61 6c 63 46 | 75 6e 63 2d 61 70 61 72 |-p calcF|unc-apar|
|00004a90| 74 20 63 61 6c 63 46 75 | 6e 63 2d 69 6e 74 65 67 |t calcFu|nc-integ|
|00004aa0| 20 63 61 6c 63 46 75 6e | 63 2d 69 6e 74 65 67 74 | calcFun|c-integt|
|00004ab0| 72 79 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ry ((byt|e-code "|
|00004ac0| c1 08 4d 87 22 20 5b 6d | 61 74 68 2d 6f 6c 64 2d |..M." [m|ath-old-|
|00004ad0| 69 6e 74 65 67 20 63 61 | 6c 63 46 75 6e 63 2d 69 |integ ca|lcFunc-i|
|00004ae0| 6e 74 65 67 5d 20 32 29 | 29 20 6d 61 74 68 2d 73 |nteg] 2)|) math-s|
|00004af0| 75 62 2d 69 6e 74 65 67 | 72 61 74 69 6f 6e 20 6d |ub-integ|ration m|
|00004b00| 61 74 68 2d 72 65 77 72 | 69 74 65 20 28 76 61 72 |ath-rewr|ite (var|
|00004b10| 20 49 6e 74 65 67 52 75 | 6c 65 73 20 76 61 72 2d | IntegRu|les var-|
|00004b20| 49 6e 74 65 67 52 75 6c | 65 73 29 20 6d 61 74 68 |IntegRul|es) math|
|00004b30| 2d 65 78 70 72 2d 63 61 | 6c 6c 73 20 28 63 61 6c |-expr-ca|lls (cal|
|00004b40| 63 46 75 6e 63 2d 69 6e | 74 65 67 73 75 62 73 74 |cFunc-in|tegsubst|
|00004b50| 29 20 28 33 20 34 20 35 | 29 20 6d 61 70 63 61 72 |) (3 4 5|) mapcar|
|00004b60| 20 28 6c 61 6d 62 64 61 | 20 28 78 29 20 28 62 79 | (lambda| (x) (by|
|00004b70| 74 65 2d 63 6f 64 65 20 | 22 c3 08 c4 09 38 0a 23 |te-code |"....8.#|
|00004b80| 87 22 20 5b 78 20 70 61 | 72 74 20 6d 61 74 68 2d |." [x pa|rt math-|
|00004b90| 69 6e 74 65 67 2d 76 61 | 72 20 6d 61 74 68 2d 65 |integ-va|r math-e|
|00004ba0| 78 70 72 2d 73 75 62 73 | 74 20 32 5d 20 34 29 29 |xpr-subs|t 2] 4))|
|00004bb0| 20 6d 61 74 68 2d 69 6e | 74 65 67 72 61 74 65 2d | math-in|tegrate-|
|00004bc0| 62 79 2d 73 75 62 73 74 | 69 74 75 74 69 6f 6e 20 |by-subst|itution |
|00004bd0| 63 61 6c 63 46 75 6e 63 | 2d 69 6e 74 65 67 66 61 |calcFunc|-integfa|
|00004be0| 69 6c 65 64 20 28 63 61 | 6c 63 46 75 6e 63 2d 69 |iled (ca|lcFunc-i|
|00004bf0| 6e 74 65 67 74 72 79 20 | 63 61 6c 63 46 75 6e 63 |ntegtry |calcFunc|
|00004c00| 2d 69 6e 74 65 67 66 61 | 69 6c 65 64 29 20 73 74 |-integfa|iled) st|
|00004c10| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 27 22 20 73 |ring-mat|ch "'" s|
|00004c20| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 20 66 6f 72 6d 61 |ymbol-na|me forma|
|00004c30| 74 20 22 27 25 64 22 20 | 22 5c 5c 28 27 5b 27 30 |t "'%d" |"\\('['0|
|00004c40| 2d 39 5d 2a 5c 5c 7c 24 | 5c 5c 29 22 20 69 6e 74 |-9]*\\|$|\\)" int|
|00004c50| 65 72 6e 20 6d 61 74 63 | 68 2d 62 65 67 69 6e 6e |ern matc|h-beginn|
|00004c60| 69 6e 67 20 6d 61 74 68 | 2d 64 6f 2d 69 6e 74 65 |ing math|-do-inte|
|00004c70| 67 72 61 6c 2d 6d 65 74 | 68 6f 64 73 20 6d 61 74 |gral-met|hods mat|
|00004c80| 68 2d 65 78 70 61 6e 64 | 2d 66 6f 72 6d 75 6c 61 |h-expand|-formula|
|00004c90| 5d 20 31 31 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |] 114)).|.(defun |
|00004ca0| 6d 61 74 68 2d 73 75 62 | 2d 69 6e 74 65 67 72 61 |math-sub|-integra|
|00004cb0| 74 69 6f 6e 20 28 65 78 | 70 72 20 26 72 65 73 74 |tion (ex|pr &rest|
|00004cc0| 20 72 65 73 74 29 20 28 | 62 79 74 65 2d 63 6f 64 | rest) (|byte-cod|
|00004cd0| 65 20 22 08 3f 86 0f 00 | 09 0a 57 85 0f 00 08 40 |e ".?...|..W....@|
|00004ce0| 0b 3d 83 18 00 c7 0c 21 | 82 2f 00 c8 0e 06 0c 08 |.=.....!|./......|
|00004cf0| 23 1d 09 0a 55 86 2a 00 | c9 0d ca 5c 22 3f 85 2e |#...U.*.|...\"?..|
|00004d00| 00 0d 29 86 35 00 cb 0c | 44 87 22 20 5b 72 65 73 |..).5...|D." [res|
|00004d10| 74 20 6d 61 74 68 2d 69 | 6e 74 65 67 2d 6c 65 76 |t math-i|nteg-lev|
|00004d20| 65 6c 20 6d 61 74 68 2d | 69 6e 74 65 67 72 61 6c |el math-|integral|
|00004d30| 2d 6c 69 6d 69 74 20 6d | 61 74 68 2d 69 6e 74 65 |-limit m|ath-inte|
|00004d40| 67 2d 76 61 72 20 65 78 | 70 72 20 72 65 73 20 6d |g-var ex|pr res m|
|00004d50| 61 74 68 2d 6f 6c 64 2d | 69 6e 74 65 67 20 6d 61 |ath-old-|integ ma|
|00004d60| 74 68 2d 69 6e 74 65 67 | 72 61 6c 20 61 70 70 6c |th-integ|ral appl|
|00004d70| 79 20 6d 61 74 68 2d 65 | 78 70 72 2d 63 61 6c 6c |y math-e|xpr-call|
|00004d80| 73 20 63 61 6c 63 46 75 | 6e 63 2d 69 6e 74 65 67 |s calcFu|nc-integ|
|00004d90| 20 63 61 6c 63 46 75 6e | 63 2d 69 6e 74 65 67 66 | calcFun|c-integf|
|00004da0| 61 69 6c 65 64 5d 20 35 | 29 29 0a 0a 28 64 65 66 |ailed] 5|))..(def|
|00004db0| 75 6e 20 6d 61 74 68 2d | 64 6f 2d 69 6e 74 65 67 |un math-|do-integ|
|00004dc0| 72 61 6c 2d 6d 65 74 68 | 6f 64 73 20 28 65 78 70 |ral-meth|ods (exp|
|00004dd0| 72 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |r) (byte|-code ".|
|00004de0| c9 1a 18 0b 83 0e 00 cf | 0c 21 82 11 00 d0 0c 21 |........|.!.....!|
|00004df0| 86 b5 01 d1 0c 21 89 12 | 1d 0d 85 2e 00 0d 40 40 |.....!..|......@@|
|00004e00| d2 3e 85 2e 00 d3 d4 0d | 40 38 0e 06 5c 22 85 39 |.>......|@8..\".9|
|00004e10| 00 0d 41 89 15 88 82 1a | 00 88 0d 3f 29 85 57 00 |..A.....|...?).W.|
|00004e20| d5 0c 21 85 4a 00 d6 0c | c7 5c 22 86 57 00 d7 0c |..!.J...|.\".W...|
|00004e30| d8 d9 0e 06 da 5c 22 44 | 5c 22 86 b5 01 0a 1d 0d |.....\"D|\"......|
|00004e40| 85 70 00 0d 40 40 db 3e | 85 70 00 d3 d4 0d 40 38 |.p..@@.>|.p....@8|
|00004e50| 0e 06 5c 22 85 7b 00 0d | 41 89 15 88 82 5c 5c 00 |..\".{..|A....\\.|
|00004e60| 88 0d 3f 29 85 99 00 d5 | 0c 21 85 8c 00 d6 0c c7 |..?)....|.!......|
|00004e70| 5c 22 86 99 00 d7 0c dc | d9 0e 06 da 5c 22 44 5c |\"......|....\"D\|
|00004e80| 22 86 b5 01 0a 1d c9 89 | 16 08 88 0d 85 c7 00 d3 |".......|........|
|00004e90| 0d 40 0e 06 5c 22 86 c7 | 00 0d 40 40 dd 3d 85 c7 |.@..\"..|..@@.=..|
|00004ea0| 00 de d4 0d 40 89 16 0a | 38 0e 06 da 23 89 16 08 |....@...|8...#...|
|00004eb0| 85 d2 00 0d 41 89 15 88 | 82 a3 00 88 0d 3f 85 da |....A...|.....?..|
|00004ec0| 00 0e 08 29 85 ab 01 0e | 08 41 41 83 a6 01 df da |...)....|.AA.....|
|00004ed0| 0e 08 38 21 83 29 01 e0 | e1 da 0e 08 38 21 21 1e |..8!.)..|....8!!.|
|00004ee0| 0b d9 d4 0e 08 38 e2 e3 | 0e 0b 5c 22 5c 22 1e 0c |.....8..|..\"\"..|
|00004ef0| e0 e4 0e 08 40 e5 0e 0c | 21 5c 22 21 1e 0d d7 0c |....@...|!\"!....|
|00004f00| e6 e7 e4 e2 0e 0b 0e 06 | 5c 22 0e 0c 5c 22 0e 0d |........|\"..\"..|
|00004f10| 5c 22 44 5c 22 2b 82 a3 | 01 e0 da 0e 08 38 21 1e |\"D\"+..|.....8!.|
|00004f20| 0b d9 d4 0e 08 38 e2 da | 0e 0b 5c 22 5c 22 1e 0c |.....8..|..\"\"..|
|00004f30| e8 0e 08 40 e5 0e 0c 21 | 5c 22 1e 0e c9 85 59 01 |...@...!|\"....Y.|
|00004f40| 0e 0c e9 3d 85 58 01 0e | 0b d4 3d 3f 83 6c 01 d7 |...=.X..|..=?.l..|
|00004f50| 0c e4 e2 0e 0b 0e 06 5c | 22 0e 0c 5c 22 5c 22 82 |.......\|"..\"\".|
|00004f60| a2 01 df 0e 0e 21 83 8d | 01 d7 0c ea e7 e4 e2 0e |.....!..|........|
|00004f70| 0b 0e 06 5c 22 0e 0c 5c | 22 e0 e1 0e 0e 21 21 5c |...\"..\|"....!!\|
|00004f80| 22 44 5c 22 82 a2 01 d7 | 0c eb e7 e4 e2 0e 0b 0e |"D\"....|........|
|00004f90| 06 5c 22 0e 0c 5c 22 e0 | 0e 0e 21 5c 22 44 5c 22 |.\"..\".|..!\"D\"|
|00004fa0| 2b 82 ab 01 d7 0c 0e 0a | 5c 22 86 b5 01 d6 0c 21 |+.......|\".....!|
|00004fb0| 86 b5 01 c9 2a 87 22 20 | 5b 73 6f 2d 66 61 72 20 |....*." |[so-far |
|00004fc0| 6d 61 74 68 2d 69 6e 74 | 65 67 2d 76 61 72 2d 6c |math-int|eg-var-l|
|00004fd0| 69 73 74 2d 6c 69 73 74 | 20 72 61 74 2d 69 6e 20 |ist-list| rat-in |
|00004fe0| 6d 61 74 68 2d 65 6e 61 | 62 6c 65 2d 73 75 62 73 |math-ena|ble-subs|
|00004ff0| 74 20 65 78 70 72 20 70 | 20 6d 61 74 68 2d 69 6e |t expr p| math-in|
|00005000| 74 65 67 2d 76 61 72 20 | 74 20 74 31 20 6e 69 6c |teg-var |t t1 nil|
|00005010| 20 74 32 20 63 20 64 20 | 61 20 61 61 20 6d 61 74 | t2 c d |a aa mat|
|00005020| 68 2d 69 6e 74 65 67 2d | 74 72 79 2d 73 75 62 73 |h-integ-|try-subs|
|00005030| 74 69 74 75 74 69 6f 6e | 73 20 6d 61 74 68 2d 69 |titution|s math-i|
|00005040| 6e 74 65 67 2d 74 72 79 | 2d 6c 69 6e 65 61 72 2d |nteg-try|-linear-|
|00005050| 73 75 62 73 74 69 74 75 | 74 69 6f 6e 73 20 6d 61 |substitu|tions ma|
|00005060| 74 68 2d 65 78 70 72 2d | 72 61 74 69 6f 6e 61 6c |th-expr-|rational|
|00005070| 2d 69 6e 20 28 63 61 6c | 63 46 75 6e 63 2d 73 69 |-in (cal|cFunc-si|
|00005080| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 63 6f 73 20 63 |n calcFu|nc-cos c|
|00005090| 61 6c 63 46 75 6e 63 2d | 74 61 6e 29 20 65 71 75 |alcFunc-|tan) equ|
|000050a0| 61 6c 20 31 20 6d 61 74 | 68 2d 69 6e 74 65 67 2d |al 1 mat|h-integ-|
|000050b0| 70 61 72 74 73 2d 65 61 | 73 79 20 6d 61 74 68 2d |parts-ea|sy math-|
|000050c0| 69 6e 74 65 67 2d 74 72 | 79 2d 70 61 72 74 73 20 |integ-tr|y-parts |
|000050d0| 6d 61 74 68 2d 69 6e 74 | 65 67 72 61 74 65 2d 62 |math-int|egrate-b|
|000050e0| 79 2d 67 6f 6f 64 2d 73 | 75 62 73 74 69 74 75 74 |y-good-s|ubstitut|
|000050f0| 69 6f 6e 20 63 61 6c 63 | 46 75 6e 63 2d 74 61 6e |ion calc|Func-tan|
|00005100| 20 6d 61 74 68 2d 64 69 | 76 20 32 20 28 63 61 6c | math-di|v 2 (cal|
|00005110| 63 46 75 6e 63 2d 73 69 | 6e 68 20 63 61 6c 63 46 |cFunc-si|nh calcF|
|00005120| 75 6e 63 2d 63 6f 73 68 | 20 63 61 6c 63 46 75 6e |unc-cosh| calcFun|
|00005130| 63 2d 74 61 6e 68 20 63 | 61 6c 63 46 75 6e 63 2d |c-tanh c|alcFunc-|
|00005140| 65 78 70 29 20 63 61 6c | 63 46 75 6e 63 2d 74 61 |exp) cal|cFunc-ta|
|00005150| 6e 68 20 63 61 6c 63 46 | 75 6e 63 2d 73 71 72 74 |nh calcF|unc-sqrt|
|00005160| 20 6d 61 74 68 2d 69 73 | 2d 70 6f 6c 79 6e 6f 6d | math-is|-polynom|
|00005170| 69 61 6c 20 6d 61 74 68 | 2d 67 75 65 73 73 2d 69 |ial math|-guess-i|
|00005180| 66 2d 6e 65 67 20 6d 61 | 74 68 2d 73 71 72 74 20 |f-neg ma|th-sqrt |
|00005190| 6d 61 74 68 2d 6e 65 67 | 20 6d 61 74 68 2d 6d 75 |math-neg| math-mu|
|000051a0| 6c 20 2d 32 20 6d 61 74 | 68 2d 61 64 64 20 6d 61 |l -2 mat|h-add ma|
|000051b0| 74 68 2d 73 71 72 20 63 | 61 6c 63 46 75 6e 63 2d |th-sqr c|alcFunc-|
|000051c0| 61 72 63 73 69 6e 20 6d | 61 74 68 2d 64 69 76 2d |arcsin m|ath-div-|
|000051d0| 74 68 72 75 20 6d 61 74 | 68 2d 73 75 62 20 30 20 |thru mat|h-sub 0 |
|000051e0| 63 61 6c 63 46 75 6e 63 | 2d 61 72 63 63 6f 73 68 |calcFunc|-arccosh|
|000051f0| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 63 73 69 6e | calcFun|c-arcsin|
|00005200| 68 5d 20 35 31 29 29 0a | 0a 28 64 65 66 75 6e 20 |h] 51)).|.(defun |
|00005210| 6d 61 74 68 2d 69 6e 74 | 65 67 2d 70 61 72 74 73 |math-int|eg-parts|
|00005220| 2d 65 61 73 79 20 28 65 | 78 70 72 29 20 28 62 79 |-easy (e|xpr) (by|
|00005230| 74 65 2d 63 6f 64 65 20 | 22 08 3a 3f 86 0a 00 08 |te-code |".:?....|
|00005240| 40 c2 3e 83 11 00 c1 82 | 66 00 08 40 c3 3e 83 28 |@.>.....|f..@.>.(|
|00005250| 00 c4 c5 08 38 21 85 25 | 00 c4 c6 08 38 21 82 66 |....8!.%|....8!.f|
|00005260| 00 08 40 c7 3d 83 3f 00 | c4 c5 08 38 21 85 3c 00 |..@.=.?.|...8!.<.|
|00005270| c8 c6 08 38 21 82 66 00 | 08 40 c9 3d 83 56 00 ca |...8!.f.|.@.=.V..|
|00005280| c6 08 38 21 85 53 00 c4 | c5 08 38 21 82 66 00 08 |..8!.S..|..8!.f..|
|00005290| 40 cb 3d 83 65 00 c4 c5 | 08 38 21 82 66 00 c1 87 |@.=.e...|.8!.f...|
|000052a0| 22 20 5b 65 78 70 72 20 | 74 20 28 62 69 67 70 6f |" [expr |t (bigpo|
|000052b0| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|000052c0| 6f 61 74 20 63 70 6c 78 | 20 70 6f 6c 61 72 20 68 |oat cplx| polar h|
|000052d0| 6d 73 20 64 61 74 65 20 | 6d 6f 64 20 76 61 72 29 |ms date |mod var)|
|000052e0| 20 28 2b 20 2d 20 2a 29 | 20 6d 61 74 68 2d 69 6e | (+ - *)| math-in|
|000052f0| 74 65 67 2d 70 61 72 74 | 73 2d 65 61 73 79 20 31 |teg-part|s-easy 1|
|00005300| 20 32 20 2f 20 6d 61 74 | 68 2d 61 74 6f 6d 69 63 | 2 / mat|h-atomic|
|00005310| 2d 66 61 63 74 6f 72 70 | 20 5e 20 6e 61 74 6e 75 |-factorp| ^ natnu|
|00005320| 6d 70 20 6e 65 67 5d 20 | 39 29 29 0a 0a 28 64 65 |mp neg] |9))..(de|
|00005330| 66 75 6e 20 6d 61 74 68 | 2d 69 6e 74 65 67 2d 74 |fun math|-integ-t|
|00005340| 72 79 2d 70 61 72 74 73 | 20 28 65 78 70 72 20 26 |ry-parts| (expr &|
|00005350| 6f 70 74 69 6f 6e 61 6c | 20 6d 61 74 68 2d 67 6f |optional| math-go|
|00005360| 6f 64 2d 70 61 72 74 73 | 29 20 28 62 79 74 65 2d |od-parts|) (byte-|
|00005370| 63 6f 64 65 20 22 c6 09 | 21 18 c7 08 09 5c 22 3f |code "..|!....\"?|
|00005380| 85 0f 00 c8 08 21 29 86 | 96 00 09 40 c9 3d 85 52 |.....!).|...@.=.R|
|00005390| 00 ca cb 09 38 0b 5c 22 | 86 29 00 c7 cc 09 38 0c |....8.\"|.)....8.|
|000053a0| 5c 22 1a 0a 85 36 00 cd | cb 09 38 cc 09 38 5c 22 |\"...6..|..8..8\"|
|000053b0| 86 51 00 cd cc 09 38 cb | 09 38 5c 22 86 51 00 0a |.Q....8.|.8\".Q..|
|000053c0| 3f 85 51 00 cd cb 09 38 | cc 09 38 5c 22 29 86 96 |?.Q....8|..8\")..|
|000053d0| 00 09 40 ce 3d 85 7c 00 | cf cb 09 38 0b 5c 22 85 |..@.=.|.|...8.\".|
|000053e0| 7c 00 d0 cb cc 09 38 5c | 22 1d cd cb 09 38 0d 5c ||.....8\|"....8.\|
|000053f0| 22 86 7b 00 cd 0d cb 09 | 38 5c 22 29 86 96 00 09 |".{.....|8\")....|
|00005400| 40 d1 3d 85 96 00 cd d2 | cb 09 38 d3 cc 09 38 cb |@.=.....|..8...8.|
|00005410| 5c 22 5c 22 cb 09 38 5c | 22 87 22 20 5b 65 78 70 |\"\"..8\|"." [exp|
|00005420| 20 65 78 70 72 20 66 69 | 72 73 74 2d 62 61 64 20 | expr fi|rst-bad |
|00005430| 6d 61 74 68 2d 69 6e 74 | 65 67 2d 76 61 72 20 6d |math-int|eg-var m|
|00005440| 61 74 68 2d 70 72 65 76 | 2d 70 61 72 74 73 2d 76 |ath-prev|-parts-v|
|00005450| 20 72 65 63 69 70 20 63 | 61 6c 63 46 75 6e 63 2d | recip c|alcFunc-|
|00005460| 65 78 70 61 6e 64 20 65 | 71 75 61 6c 20 6d 61 74 |expand e|qual mat|
|00005470| 68 2d 69 6e 74 65 67 72 | 61 6c 20 2a 20 6d 61 74 |h-integr|al * mat|
|00005480| 68 2d 70 6f 6c 79 6e 6f | 6d 69 61 6c 2d 70 20 31 |h-polyno|mial-p 1|
|00005490| 20 32 20 6d 61 74 68 2d | 69 6e 74 65 67 72 61 74 | 2 math-|integrat|
|000054a0| 65 2d 62 79 2d 70 61 72 | 74 73 20 2f 20 6d 61 74 |e-by-par|ts / mat|
|000054b0| 68 2d 65 78 70 72 2d 63 | 6f 6e 74 61 69 6e 73 20 |h-expr-c|ontains |
|000054c0| 6d 61 74 68 2d 64 69 76 | 20 5e 20 6d 61 74 68 2d |math-div| ^ math-|
|000054d0| 70 6f 77 20 6d 61 74 68 | 2d 73 75 62 5d 20 31 38 |pow math|-sub] 18|
|000054e0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|000054f0| 69 6e 74 65 67 72 61 74 | 65 2d 62 79 2d 70 61 72 |integrat|e-by-par|
|00005500| 74 73 20 28 75 20 76 70 | 72 69 6d 65 29 20 28 62 |ts (u vp|rime) (b|
|00005510| 79 74 65 2d 63 6f 64 65 | 20 22 09 86 08 00 d1 0a |yte-code| "......|
|00005520| 0b 5c 22 83 0f 00 08 82 | 11 00 08 53 c5 cd cd 1e |.\".....|...S....|
|00005530| 07 1e 06 1c 18 08 d2 59 | 85 e3 00 d3 8e d4 0e 08 |.......Y|........|
|00005540| 41 d5 5c 22 88 0e 09 85 | 60 00 8a 0e 09 71 88 64 |A.\"....|`....q.d|
|00005550| 62 88 6e 85 4c 00 d6 d7 | 0e 0a 08 5a d8 5c 22 d9 |b.n.L...|...Z.\".|
|00005560| da 0e 0b 5c 22 d7 08 d8 | 5c 22 23 88 d6 db dc 0a |...\"...|\"#.....|
|00005570| dd 5c 22 de dc 0e 0c dd | 5c 22 df 25 88 e0 d2 21 |.\".....|\".%...!|
|00005580| 29 88 e1 0e 0c 21 89 16 | 06 85 e2 00 e2 0a 0b cd |)....!..|........|
|00005590| c5 24 89 16 07 85 e2 00 | 0e 06 1e 0e e1 e3 0e 06 |.$......|........|
|000055a0| 0e 07 5c 22 e4 5c 22 29 | 89 16 07 85 e2 00 e5 e3 |..\".\")|........|
|000055b0| 0a 0e 06 5c 22 0e 07 5c | 22 89 16 07 85 e2 00 e6 |...\"..\|".......|
|000055c0| 0e 08 38 d5 3d 83 aa 00 | e7 0e 07 21 82 e2 00 e8 |..8.=...|...!....|
|000055d0| e9 0e 08 45 16 06 ea e5 | 0e 06 0e 07 5c 22 0e 06 |...E....|....\"..|
|000055e0| 45 16 0f cd 1e 10 eb e5 | 0e 06 0e 07 5c 22 d2 0e |E.......|....\"..|
|000055f0| 06 cd 24 29 89 16 07 88 | 0e 07 85 e2 00 ec 0e 07 |..$)....|........|
|00005600| 21 3f 85 e2 00 ed 0e 07 | 21 29 2c 87 22 20 5b 6d |!?......|!),." [m|
|00005610| 61 74 68 2d 69 6e 74 65 | 67 2d 6c 65 76 65 6c 20 |ath-inte|g-level |
|00005620| 6d 61 74 68 2d 67 6f 6f | 64 2d 70 61 72 74 73 20 |math-goo|d-parts |
|00005630| 75 20 6d 61 74 68 2d 69 | 6e 74 65 67 2d 76 61 72 |u math-i|nteg-var|
|00005640| 20 6d 61 74 68 2d 64 6f | 69 6e 67 2d 70 61 72 74 | math-do|ing-part|
|00005650| 73 20 74 20 76 20 74 65 | 6d 70 20 63 75 72 2d 72 |s t v te|mp cur-r|
|00005660| 65 63 6f 72 64 20 74 72 | 61 63 65 2d 62 75 66 66 |ecord tr|ace-buff|
|00005670| 65 72 20 6d 61 74 68 2d | 69 6e 74 65 67 72 61 6c |er math-|integral|
|00005680| 2d 6c 69 6d 69 74 20 6d | 61 74 68 2d 69 6e 74 65 |-limit m|ath-inte|
|00005690| 67 2d 64 65 70 74 68 20 | 76 70 72 69 6d 65 20 6e |g-depth |vprime n|
|000056a0| 69 6c 20 6d 61 74 68 2d | 70 72 65 76 2d 70 61 72 |il math-|prev-par|
|000056b0| 74 73 2d 76 20 76 61 72 | 2d 74 68 69 6e 67 20 63 |ts-v var|-thing c|
|000056c0| 61 6c 63 2d 6e 65 78 74 | 2d 77 68 79 20 6d 61 74 |alc-next|-why mat|
|000056d0| 68 2d 70 6f 6c 79 6e 6f | 6d 69 61 6c 2d 70 20 30 |h-polyno|mial-p 0|
|000056e0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 08 | ((byte-|code "..|
|000056f0| 41 c2 5c 22 87 22 20 5b | 63 75 72 2d 72 65 63 6f |A.\"." [|cur-reco|
|00005700| 72 64 20 73 65 74 63 61 | 72 20 62 75 73 79 5d 20 |rd setca|r busy] |
|00005710| 33 29 29 20 73 65 74 63 | 61 72 20 70 61 72 74 73 |3)) setc|ar parts|
|00005720| 20 69 6e 73 65 72 74 20 | 6d 61 6b 65 2d 73 74 72 | insert |make-str|
|00005730| 69 6e 67 20 33 32 20 66 | 6f 72 6d 61 74 20 22 25 |ing 32 f|ormat "%|
|00005740| 32 64 20 22 20 22 49 6e | 74 65 67 72 61 74 69 6e |2d " "In|tegratin|
|00005750| 67 20 62 79 20 70 61 72 | 74 73 2c 20 75 20 3d 20 |g by par|ts, u = |
|00005760| 22 20 6d 61 74 68 2d 66 | 6f 72 6d 61 74 2d 76 61 |" math-f|ormat-va|
|00005770| 6c 75 65 20 31 30 30 30 | 20 22 2c 20 76 27 20 3d |lue 1000| ", v' =|
|00005780| 20 22 20 22 0a 22 20 73 | 69 74 2d 66 6f 72 20 6d | " "." s|it-for m|
|00005790| 61 74 68 2d 69 6e 74 65 | 67 72 61 6c 20 63 61 6c |ath-inte|gral cal|
|000057a0| 63 46 75 6e 63 2d 64 65 | 72 69 76 20 6d 61 74 68 |cFunc-de|riv math|
|000057b0| 2d 6d 75 6c 20 79 65 73 | 20 6d 61 74 68 2d 73 75 |-mul yes| math-su|
|000057c0| 62 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 65 78 70 |b 1 calc|Func-exp|
|000057d0| 61 6e 64 20 76 61 72 20 | 50 41 52 54 53 20 76 65 |and var |PARTS ve|
|000057e0| 63 20 6d 61 74 68 2d 73 | 6f 6c 76 65 2d 66 6f 72 |c math-s|olve-for|
|000057f0| 20 69 6e 74 65 67 65 72 | 70 20 6d 61 74 68 2d 73 | integer|p math-s|
|00005800| 69 6d 70 6c 69 66 79 2d | 65 78 74 65 6e 64 65 64 |implify-|extended|
|00005810| 5d 20 32 34 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |] 24))..|(defun m|
|00005820| 61 74 68 2d 69 6e 74 65 | 67 72 61 74 65 2d 62 79 |ath-inte|grate-by|
|00005830| 2d 73 75 62 73 74 69 74 | 75 74 69 6f 6e 20 28 65 |-substit|ution (e|
|00005840| 78 70 72 20 75 20 26 6f | 70 74 69 6f 6e 61 6c 20 |xpr u &o|ptional |
|00005850| 75 73 65 72 20 75 69 6e | 76 20 75 69 6e 76 70 72 |user uin|v uinvpr|
|00005860| 69 6d 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ime) (by|te-code |
|00005870| 22 08 c6 56 85 14 00 08 | c7 5a c6 5d 18 c8 09 0a |"..V....|.Z.]....|
|00005880| 0b 0c 0d 25 29 87 22 20 | 5b 6d 61 74 68 2d 69 6e |...%)." |[math-in|
|00005890| 74 65 67 2d 6c 65 76 65 | 6c 20 65 78 70 72 20 75 |teg-leve|l expr u|
|000058a0| 20 75 73 65 72 20 75 69 | 6e 76 20 75 69 6e 76 70 | user ui|nv uinvp|
|000058b0| 72 69 6d 65 20 30 20 32 | 20 6d 61 74 68 2d 69 6e |rime 0 2| math-in|
|000058c0| 74 65 67 72 61 74 65 2d | 62 79 2d 67 6f 6f 64 2d |tegrate-|by-good-|
|000058d0| 73 75 62 73 74 69 74 75 | 74 69 6f 6e 5d 20 36 29 |substitu|tion] 6)|
|000058e0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 69 |)..(defu|n math-i|
|000058f0| 6e 74 65 67 72 61 74 65 | 2d 62 79 2d 67 6f 6f 64 |ntegrate|-by-good|
|00005900| 2d 73 75 62 73 74 69 74 | 75 74 69 6f 6e 20 28 65 |-substit|ution (e|
|00005910| 78 70 72 20 75 20 26 6f | 70 74 69 6f 6e 61 6c 20 |xpr u &o|ptional |
|00005920| 75 73 65 72 20 75 69 6e | 76 20 75 69 6e 76 70 72 |user uin|v uinvpr|
|00005930| 69 6d 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ime) (by|te-code |
|00005940| 22 c1 c9 c9 1b 1a 18 0c | 83 13 00 d1 0c 0d 0e 06 |".......|........|
|00005950| 23 82 1f 00 c9 1e 07 d2 | 0e 08 0e 06 0d c9 24 29 |#.......|......$)|
|00005960| 89 14 85 ba 00 0e 0a 85 | 58 00 8a 0e 0a 71 88 64 |........|X....q.d|
|00005970| 62 88 6e 85 49 00 d3 d4 | 0e 0b 0e 0c 5a d5 5c 22 |b.n.I...|....Z.\"|
|00005980| d6 d7 0e 0d 5c 22 d4 0e | 0c d5 5c 22 23 88 d3 d8 |....\"..|..\"#...|
|00005990| d9 0e 08 da 5c 22 db 23 | 88 dc dd 21 29 88 de 0e |....\".#|...!)...|
|000059a0| 08 0d c9 0e 0e 3f 24 89 | 12 85 80 00 df d1 d1 d1 |.....?$.|........|
|000059b0| e0 0e 0f 0a 5c 22 0e 08 | 0e 06 23 0d 0c 23 0e 06 |....\"..|..#..#..|
|000059c0| 0d 23 e1 5c 22 89 13 86 | af 00 0e 10 86 91 00 de |.#.\"...|........|
|000059d0| 0c 0e 06 0d 0e 0e 3f 24 | 89 12 85 af 00 df e2 d1 |......?$|........|
|000059e0| d1 d1 0e 0f 0e 08 0e 06 | 23 0d 0c 23 0e 06 0d 23 |........|#..#...#|
|000059f0| 0a 5c 22 e1 5c 22 89 13 | 85 ba 00 e3 d1 0b 0d 0e |.\".\"..|........|
|00005a00| 08 23 21 2b 87 22 20 5b | 6d 61 74 68 2d 6c 69 76 |.#!+." [|math-liv|
|00005a10| 69 6e 67 2d 64 61 6e 67 | 65 72 6f 75 73 6c 79 20 |ing-dang|erously |
|00005a20| 74 20 64 65 72 69 76 20 | 74 65 6d 70 20 75 69 6e |t deriv |temp uin|
|00005a30| 76 20 6d 61 74 68 2d 69 | 6e 74 65 67 2d 76 61 72 |v math-i|nteg-var|
|00005a40| 20 6d 61 74 68 2d 69 6e | 74 65 67 2d 76 61 72 2d | math-in|teg-var-|
|00005a50| 32 20 63 61 6c 63 2d 6e | 65 78 74 2d 77 68 79 20 |2 calc-n|ext-why |
|00005a60| 75 20 6e 69 6c 20 74 72 | 61 63 65 2d 62 75 66 66 |u nil tr|ace-buff|
|00005a70| 65 72 20 6d 61 74 68 2d | 69 6e 74 65 67 72 61 6c |er math-|integral|
|00005a80| 2d 6c 69 6d 69 74 20 6d | 61 74 68 2d 69 6e 74 65 |-limit m|ath-inte|
|00005a90| 67 2d 6c 65 76 65 6c 20 | 6d 61 74 68 2d 69 6e 74 |g-level |math-int|
|00005aa0| 65 67 2d 64 65 70 74 68 | 20 75 73 65 72 20 65 78 |eg-depth| user ex|
|00005ab0| 70 72 20 75 69 6e 76 70 | 72 69 6d 65 20 6d 61 74 |pr uinvp|rime mat|
|00005ac0| 68 2d 65 78 70 72 2d 73 | 75 62 73 74 20 6d 61 74 |h-expr-s|ubst mat|
|00005ad0| 68 2d 73 6f 6c 76 65 2d | 66 6f 72 20 69 6e 73 65 |h-solve-|for inse|
|00005ae0| 72 74 20 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 33 |rt make-|string 3|
|00005af0| 32 20 66 6f 72 6d 61 74 | 20 22 25 32 64 20 22 20 |2 format| "%2d " |
|00005b00| 22 49 6e 74 65 67 72 61 | 74 69 6e 67 20 62 79 20 |"Integra|ting by |
|00005b10| 73 75 62 73 74 69 74 75 | 74 69 6f 6e 2c 20 75 20 |substitu|tion, u |
|00005b20| 3d 20 22 20 6d 61 74 68 | 2d 66 6f 72 6d 61 74 2d |= " math|-format-|
|00005b30| 76 61 6c 75 65 20 31 30 | 30 30 20 22 0a 22 20 73 |value 10|00 "." s|
|00005b40| 69 74 2d 66 6f 72 20 30 | 20 63 61 6c 63 46 75 6e |it-for 0| calcFun|
|00005b50| 63 2d 64 65 72 69 76 20 | 6d 61 74 68 2d 69 6e 74 |c-deriv |math-int|
|00005b60| 65 67 72 61 6c 20 6d 61 | 74 68 2d 64 69 76 20 79 |egral ma|th-div y|
|00005b70| 65 73 20 6d 61 74 68 2d | 6d 75 6c 20 6d 61 74 68 |es math-|mul math|
|00005b80| 2d 73 69 6d 70 6c 69 66 | 79 2d 65 78 74 65 6e 64 |-simplif|y-extend|
|00005b90| 65 64 5d 20 32 36 29 29 | 0a 0a 28 64 65 66 75 6e |ed] 26))|..(defun|
|00005ba0| 20 6d 61 74 68 2d 69 6e | 74 65 67 2d 74 72 79 2d | math-in|teg-try-|
|00005bb0| 6c 69 6e 65 61 72 2d 73 | 75 62 73 74 69 74 75 74 |linear-s|ubstitut|
|00005bc0| 69 6f 6e 73 20 28 73 75 | 62 2d 65 78 70 72 29 20 |ions (su|b-expr) |
|00005bd0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 3a 3f 86 |(byte-co|de ".:?.|
|00005be0| 0a 00 08 40 c6 3e 3f 85 | 80 00 08 40 c7 3e 3f 85 |...@.>?.|...@.>?.|
|00005bf0| 62 00 08 40 c8 3d 85 5c | 22 00 c9 ca 08 38 21 3f |b..@.=.\|"....8!?|
|00005c00| 85 62 00 cb 08 09 5c 22 | 85 62 00 c3 1a 08 41 89 |.b....\"|.b....A.|
|00005c10| 10 85 57 00 cc 08 40 09 | 5c 22 3f 86 57 00 cd 08 |..W...@.|\"?.W...|
|00005c20| 40 0c 5c 22 86 57 00 08 | 40 43 0c 42 89 14 88 ce |@.\".W..|@C.B....|
|00005c30| 0d 08 40 5c 22 89 12 3f | 85 5f 00 c3 88 82 2f 00 |..@\"..?|._..../.|
|00005c40| 88 0a 29 86 80 00 c3 1a | 08 41 89 10 85 75 00 cf |..).....|.A...u..|
|00005c50| 08 40 21 89 12 3f 85 7d | 00 c3 88 82 67 00 88 0a |.@!..?.}|....g...|
|00005c60| 29 87 22 20 5b 73 75 62 | 2d 65 78 70 72 20 6d 61 |)." [sub|-expr ma|
|00005c70| 74 68 2d 69 6e 74 65 67 | 2d 76 61 72 20 72 65 73 |th-integ|-var res|
|00005c80| 20 6e 69 6c 20 73 6f 2d | 66 61 72 20 65 78 70 72 | nil so-|far expr|
|00005c90| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00005ca0| 66 72 61 63 20 66 6c 6f | 61 74 20 63 70 6c 78 20 |frac flo|at cplx |
|00005cb0| 70 6f 6c 61 72 20 68 6d | 73 20 64 61 74 65 20 6d |polar hm|s date m|
|00005cc0| 6f 64 20 76 61 72 29 20 | 28 2b 20 2d 20 2a 20 2f |od var) |(+ - * /|
|00005cd0| 20 6e 65 67 29 20 5e 20 | 69 6e 74 65 67 65 72 70 | neg) ^ |integerp|
|00005ce0| 20 32 20 6d 61 74 68 2d | 65 78 70 72 2d 63 6f 6e | 2 math-|expr-con|
|00005cf0| 74 61 69 6e 73 20 6d 61 | 74 68 2d 6c 69 6e 65 61 |tains ma|th-linea|
|00005d00| 72 2d 69 6e 20 61 73 73 | 6f 63 20 6d 61 74 68 2d |r-in ass|oc math-|
|00005d10| 69 6e 74 65 67 72 61 74 | 65 2d 62 79 2d 73 75 62 |integrat|e-by-sub|
|00005d20| 73 74 69 74 75 74 69 6f | 6e 20 6d 61 74 68 2d 69 |stitutio|n math-i|
|00005d30| 6e 74 65 67 2d 74 72 79 | 2d 6c 69 6e 65 61 72 2d |nteg-try|-linear-|
|00005d40| 73 75 62 73 74 69 74 75 | 74 69 6f 6e 73 5d 20 38 |substitu|tions] 8|
|00005d50| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00005d60| 69 6e 74 65 67 2d 74 72 | 79 2d 73 75 62 73 74 69 |integ-tr|y-substi|
|00005d70| 74 75 74 69 6f 6e 73 20 | 28 73 75 62 2d 65 78 70 |tutions |(sub-exp|
|00005d80| 72 20 26 6f 70 74 69 6f | 6e 61 6c 20 61 6c 6c 6f |r &optio|nal allo|
|00005d90| 77 2d 72 61 74 29 20 28 | 62 79 74 65 2d 63 6f 64 |w-rat) (|byte-cod|
|00005da0| 65 20 22 08 3a 3f 86 0a | 00 08 40 c8 3e 3f 85 9f |e ".:?..|..@.>?..|
|00005db0| 00 c9 08 09 5c 22 3f 85 | 9f 00 ca 08 0a 5c 22 85 |....\"?.|.....\".|
|00005dc0| 9f 00 08 40 cb 3e 3f 85 | 32 00 08 40 cc 3d 85 31 |...@.>?.|2..@.=.1|
|00005dd0| 00 cd ce 08 38 21 3f 83 | 3b 00 c4 89 13 82 40 00 |....8!?.|;.....@.|
|00005de0| 0b c5 89 13 88 85 76 00 | 08 0e 06 3d 3f 85 76 00 |......v.|...=?.v.|
|00005df0| cf 0e 06 08 5c 22 86 76 | 00 08 40 cc 3d 85 76 00 |....\".v|..@.=.v.|
|00005e00| cd ce 08 38 21 85 76 00 | ce 08 38 d0 57 85 76 00 |...8!.v.|..8.W.v.|
|00005e10| d1 d2 d3 08 38 ce 08 38 | 5b 5c 22 c4 5c 22 86 9f |....8..8|[\".\"..|
|00005e20| 00 c5 1e 07 08 43 09 42 | 89 11 88 08 41 89 10 85 |.....C.B|....A...|
|00005e30| 93 00 d1 08 40 0b 5c 22 | 89 16 07 3f 85 9b 00 c5 |....@.\"|...?....|
|00005e40| 88 82 83 00 88 0e 07 29 | 87 22 20 5b 73 75 62 2d |.......)|." [sub-|
|00005e50| 65 78 70 72 20 73 6f 2d | 66 61 72 20 6d 61 74 68 |expr so-|far math|
|00005e60| 2d 69 6e 74 65 67 2d 76 | 61 72 20 61 6c 6c 6f 77 |-integ-v|ar allow|
|00005e70| 2d 72 61 74 20 74 20 6e | 69 6c 20 65 78 70 72 20 |-rat t n|il expr |
|00005e80| 72 65 73 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |res (big|pos bign|
|00005e90| 65 67 20 66 72 61 63 20 | 66 6c 6f 61 74 20 63 70 |eg frac |float cp|
|00005ea0| 6c 78 20 70 6f 6c 61 72 | 20 68 6d 73 20 64 61 74 |lx polar| hms dat|
|00005eb0| 65 20 6d 6f 64 20 76 61 | 72 29 20 61 73 73 6f 63 |e mod va|r) assoc|
|00005ec0| 20 6d 61 74 68 2d 65 78 | 70 72 2d 63 6f 6e 74 61 | math-ex|pr-conta|
|00005ed0| 69 6e 73 20 28 2b 20 2d | 20 2a 20 2f 20 6e 65 67 |ins (+ -| * / neg|
|00005ee0| 29 20 5e 20 69 6e 74 65 | 67 65 72 70 20 32 20 6d |) ^ inte|gerp 2 m|
|00005ef0| 61 74 68 2d 69 6e 74 65 | 67 72 61 74 65 2d 62 79 |ath-inte|grate-by|
|00005f00| 2d 73 75 62 73 74 69 74 | 75 74 69 6f 6e 20 30 20 |-substit|ution 0 |
|00005f10| 6d 61 74 68 2d 69 6e 74 | 65 67 2d 74 72 79 2d 73 |math-int|eg-try-s|
|00005f20| 75 62 73 74 69 74 75 74 | 69 6f 6e 73 20 6d 61 74 |ubstitut|ions mat|
|00005f30| 68 2d 70 6f 77 20 31 5d | 20 31 30 29 29 0a 0a 28 |h-pow 1]| 10))..(|
|00005f40| 64 65 66 75 6e 20 6d 61 | 74 68 2d 65 78 70 72 2d |defun ma|th-expr-|
|00005f50| 72 61 74 69 6f 6e 61 6c | 2d 69 6e 20 28 65 78 70 |rational|-in (exp|
|00005f60| 72 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |r) (byte|-code ".|
|00005f70| 18 c3 0a 21 88 c4 c5 08 | 5c 22 29 87 22 20 5b 70 |...!....|\")." [p|
|00005f80| 61 72 74 73 20 6e 69 6c | 20 65 78 70 72 20 6d 61 |arts nil| expr ma|
|00005f90| 74 68 2d 65 78 70 72 2d | 72 61 74 69 6f 6e 61 6c |th-expr-|rational|
|00005fa0| 2d 69 6e 2d 72 65 63 20 | 6d 61 70 63 61 72 20 63 |-in-rec |mapcar c|
|00005fb0| 61 72 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |ar] 4)).|.(defun |
|00005fc0| 6d 61 74 68 2d 65 78 70 | 72 2d 72 61 74 69 6f 6e |math-exp|r-ration|
|00005fd0| 61 6c 2d 69 6e 2d 72 65 | 63 20 28 65 78 70 72 29 |al-in-re|c (expr)|
|00005fe0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 3a 3f | (byte-c|ode ".:?|
|00005ff0| 86 0a 00 08 40 c4 3e 83 | 25 00 c5 08 09 5c 22 85 |....@.>.|%....\".|
|00006000| 5c 22 00 c6 08 0a 5c 22 | 3f 85 5c 22 00 08 43 0a |\"....\"|?.\"..C.|
|00006010| 42 89 12 82 7f 00 08 40 | c7 3e 86 38 00 08 40 c8 |B......@|.>.8..@.|
|00006020| 3d 85 38 00 c9 ca 08 38 | 21 83 4f 00 cb cc 08 38 |=.8....8|!.O....8|
|00006030| 21 88 ca 08 38 85 4c 00 | cb ca 08 38 21 82 7f 00 |!...8.L.|...8!...|
|00006040| 08 40 c8 3d 85 5d 00 cd | ca 08 38 21 ca 3d 83 6a |.@.=.]..|..8!.=.j|
|00006050| 00 cb ce cc 08 38 44 21 | 82 7f 00 c6 08 0a 5c 22 |.....8D!|......\"|
|00006060| 3f 85 7f 00 cf 08 09 5c | 22 85 7f 00 08 43 0a 42 |?......\|"....C.B|
|00006070| 89 12 87 22 20 5b 65 78 | 70 72 20 6d 61 74 68 2d |..." [ex|pr math-|
|00006080| 69 6e 74 65 67 2d 76 61 | 72 20 70 61 72 74 73 20 |integ-va|r parts |
|00006090| 74 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |t (bigpo|s bigneg|
|000060a0| 20 66 72 61 63 20 66 6c | 6f 61 74 20 63 70 6c 78 | frac fl|oat cplx|
|000060b0| 20 70 6f 6c 61 72 20 68 | 6d 73 20 64 61 74 65 20 | polar h|ms date |
|000060c0| 6d 6f 64 20 76 61 72 29 | 20 65 71 75 61 6c 20 61 |mod var)| equal a|
|000060d0| 73 73 6f 63 20 28 2b 20 | 2d 20 2a 20 2f 20 6e 65 |ssoc (+ |- * / ne|
|000060e0| 67 29 20 5e 20 69 6e 74 | 65 67 65 72 70 20 32 20 |g) ^ int|egerp 2 |
|000060f0| 6d 61 74 68 2d 65 78 70 | 72 2d 72 61 74 69 6f 6e |math-exp|r-ration|
|00006100| 61 6c 2d 69 6e 2d 72 65 | 63 20 31 20 6d 61 74 68 |al-in-re|c 1 math|
|00006110| 2d 71 75 61 72 74 65 72 | 2d 69 6e 74 65 67 65 72 |-quarter|-integer|
|00006120| 20 63 61 6c 63 46 75 6e | 63 2d 73 71 72 74 20 6d | calcFun|c-sqrt m|
|00006130| 61 74 68 2d 65 78 70 72 | 2d 63 6f 6e 74 61 69 6e |ath-expr|-contain|
|00006140| 73 5d 20 31 31 29 29 0a | 0a 28 64 65 66 75 6e 20 |s] 11)).|.(defun |
|00006150| 6d 61 74 68 2d 65 78 70 | 72 2d 63 61 6c 6c 73 20 |math-exp|r-calls |
|00006160| 28 65 78 70 72 20 66 75 | 6e 63 73 20 26 6f 70 74 |(expr fu|ncs &opt|
|00006170| 69 6f 6e 61 6c 20 61 72 | 67 2d 63 6f 6e 74 61 69 |ional ar|g-contai|
|00006180| 6e 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ns) (byt|e-code "|
|00006190| 08 3a 85 5f 00 08 40 09 | 3e 86 21 00 08 40 c5 3d |.:._..@.|>.!..@.=|
|000061a0| 85 21 00 09 40 c6 3d 85 | 21 00 c7 c8 08 38 21 c8 |.!..@.=.|!....8!.|
|000061b0| 3d 83 34 00 0a 3f 86 2d | 00 c9 08 0a 5c 22 85 31 |=.4..?.-|....\".1|
|000061c0| 00 08 82 5f 00 08 3a 3f | 86 3e 00 08 40 ca 3e 3f |..._..:?|.>..@.>?|
|000061d0| 85 5f 00 c4 1b 08 41 89 | 10 85 54 00 cb 08 40 09 |._....A.|..T...@.|
|000061e0| 0a 23 89 13 3f 85 5c 5c | 00 c4 88 82 44 00 88 0b |.#..?.\\|....D...|
|000061f0| 29 87 22 20 5b 65 78 70 | 72 20 66 75 6e 63 73 20 |)." [exp|r funcs |
|00006200| 61 72 67 2d 63 6f 6e 74 | 61 69 6e 73 20 72 65 73 |arg-cont|ains res|
|00006210| 20 6e 69 6c 20 5e 20 63 | 61 6c 63 46 75 6e 63 2d | nil ^ c|alcFunc-|
|00006220| 73 71 72 74 20 6d 61 74 | 68 2d 71 75 61 72 74 65 |sqrt mat|h-quarte|
|00006230| 72 2d 69 6e 74 65 67 65 | 72 20 32 20 6d 61 74 68 |r-intege|r 2 math|
|00006240| 2d 65 78 70 72 2d 63 6f | 6e 74 61 69 6e 73 20 28 |-expr-co|ntains (|
|00006250| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00006260| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00006270| 6c 61 72 20 68 6d 73 20 | 64 61 74 65 20 6d 6f 64 |lar hms |date mod|
|00006280| 20 76 61 72 29 20 6d 61 | 74 68 2d 65 78 70 72 2d | var) ma|th-expr-|
|00006290| 63 61 6c 6c 73 5d 20 36 | 29 29 0a 0a 28 64 65 66 |calls] 6|))..(def|
|000062a0| 75 6e 20 6d 61 74 68 2d | 66 69 78 2d 63 6f 6e 73 |un math-|fix-cons|
|000062b0| 74 2d 74 65 72 6d 73 20 | 28 65 78 70 72 20 65 78 |t-terms |(expr ex|
|000062c0| 63 65 70 74 2d 76 61 72 | 73 29 20 28 62 79 74 65 |cept-var|s) (byte|
|000062d0| 2d 63 6f 64 65 20 22 c3 | 08 09 5c 22 3f 83 0c 00 |-code ".|..\"?...|
|000062e0| c4 82 4e 00 08 3a 3f 86 | 16 00 08 40 c5 3e 83 1d |..N..:?.|...@.>..|
|000062f0| 00 08 82 4e 00 08 40 c6 | 3d 83 35 00 c7 c8 c9 08 |...N..@.|=.5.....|
|00006300| 38 09 5c 22 c8 ca 08 38 | 09 5c 22 5c 22 82 4e 00 |8.\"...8|.\"\".N.|
|00006310| 08 40 cb 3d 83 4d 00 cc | c8 c9 08 38 09 5c 22 c8 |.@.=.M..|...8.\".|
|00006320| ca 08 38 09 5c 22 5c 22 | 82 4e 00 08 87 22 20 5b |..8.\"\"|.N..." [|
|00006330| 65 78 70 72 20 65 78 63 | 65 70 74 2d 76 61 72 73 |expr exc|ept-vars|
|00006340| 20 74 20 6d 61 74 68 2d | 65 78 70 72 2d 64 65 70 | t math-|expr-dep|
|00006350| 65 6e 64 73 20 30 20 28 | 62 69 67 70 6f 73 20 62 |ends 0 (|bigpos b|
|00006360| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00006370| 20 63 70 6c 78 20 70 6f | 6c 61 72 20 68 6d 73 20 | cplx po|lar hms |
|00006380| 64 61 74 65 20 6d 6f 64 | 20 76 61 72 29 20 2b 20 |date mod| var) + |
|00006390| 6d 61 74 68 2d 61 64 64 | 20 6d 61 74 68 2d 66 69 |math-add| math-fi|
|000063a0| 78 2d 63 6f 6e 73 74 2d | 74 65 72 6d 73 20 31 20 |x-const-|terms 1 |
|000063b0| 32 20 2d 20 6d 61 74 68 | 2d 73 75 62 5d 20 31 30 |2 - math|-sub] 10|
|000063c0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000063d0| 64 75 6d 70 2d 69 6e 74 | 65 67 72 61 6c 2d 63 61 |dump-int|egral-ca|
|000063e0| 63 68 65 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |che (&op|tional a|
|000063f0| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
