/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-stat.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 73 74 61 74 20 | 6e 69 6c 20 28 62 79 74 |lc-stat |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 76 65 63 74 6f | 72 2d 63 6f 75 6e 74 20 |lc-vecto|r-count |
|00000070| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000080| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000090| 64 65 20 22 c0 88 c1 c2 | c3 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|000000a0| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|000000b0| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|000000c0| 65 20 22 c1 c2 c3 08 23 | 87 22 20 5b 61 72 67 20 |e "....#|." [arg |
|000000d0| 63 61 6c 63 2d 76 65 63 | 74 6f 72 2d 6f 70 20 22 |calc-vec|tor-op "|
|000000e0| 63 6f 75 6e 22 20 63 61 | 6c 63 46 75 6e 63 2d 76 |coun" ca|lcFunc-v|
|000000f0| 63 6f 75 6e 74 5d 20 34 | 29 29 20 31 31 36 5d 20 |count] 4|)) 116] |
|00000100| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|00000110| 2d 76 65 63 74 6f 72 2d | 73 75 6d 20 28 61 72 67 |-vector-|sum (arg|
|00000120| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000130| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000140| c0 88 c1 c2 c3 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |.....\".|" [nil c|
|00000150| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00000160| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00000170| 20 83 0d 00 c2 c3 c4 08 | 23 82 12 00 c2 c5 c6 08 | .......|#.......|
|00000180| 23 87 22 20 5b 61 72 67 | 20 63 61 6c 63 2d 69 73 |#." [arg| calc-is|
|00000190| 2d 68 79 70 65 72 62 6f | 6c 69 63 20 63 61 6c 63 |-hyperbo|lic calc|
|000001a0| 2d 76 65 63 74 6f 72 2d | 6f 70 20 22 76 70 72 64 |-vector-|op "vprd|
|000001b0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 76 70 72 6f 64 |" calcFu|nc-vprod|
|000001c0| 20 22 76 73 75 6d 22 20 | 63 61 6c 63 46 75 6e 63 | "vsum" |calcFunc|
|000001d0| 2d 76 73 75 6d 5d 20 36 | 29 29 20 32 39 30 5d 20 |-vsum] 6|)) 290] |
|000001e0| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|000001f0| 2d 76 65 63 74 6f 72 2d | 70 72 6f 64 75 63 74 20 |-vector-|product |
|00000200| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000210| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000220| 64 65 20 22 c1 88 c2 20 | 88 c3 08 21 87 22 20 5b |de "... |...!." [|
|00000230| 61 72 67 20 6e 69 6c 20 | 63 61 6c 63 2d 68 79 70 |arg nil |calc-hyp|
|00000240| 65 72 62 6f 6c 69 63 2d | 66 75 6e 63 20 63 61 6c |erbolic-|func cal|
|00000250| 63 2d 76 65 63 74 6f 72 | 2d 73 75 6d 5d 20 33 29 |c-vector|-sum] 3)|
|00000260| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 76 |)..(defu|n calc-v|
|00000270| 65 63 74 6f 72 2d 6d 61 | 78 20 28 61 72 67 29 20 |ector-ma|x (arg) |
|00000280| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|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 20 83 | (byte-c|ode ". .|
|000002d0| 0d 00 c2 c3 c4 08 23 82 | 12 00 c2 c5 c6 08 23 87 |......#.|......#.|
|000002e0| 22 20 5b 61 72 67 20 63 | 61 6c 63 2d 69 73 2d 69 |" [arg c|alc-is-i|
|000002f0| 6e 76 65 72 73 65 20 63 | 61 6c 63 2d 76 65 63 74 |nverse c|alc-vect|
|00000300| 6f 72 2d 6f 70 20 22 76 | 6d 69 6e 22 20 63 61 6c |or-op "v|min" cal|
|00000310| 63 46 75 6e 63 2d 76 6d | 69 6e 20 22 76 6d 61 78 |cFunc-vm|in "vmax|
|00000320| 22 20 63 61 6c 63 46 75 | 6e 63 2d 76 6d 61 78 5d |" calcFu|nc-vmax]|
|00000330| 20 36 29 29 20 36 34 30 | 5d 20 33 29 29 0a 0a 28 | 6)) 640|] 3))..(|
|00000340| 64 65 66 75 6e 20 63 61 | 6c 63 2d 76 65 63 74 6f |defun ca|lc-vecto|
|00000350| 72 2d 6d 69 6e 20 28 61 | 72 67 29 20 28 69 6e 74 |r-min (a|rg) (int|
|00000360| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|00000370| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 20 88 c3 |yte-code| "... ..|
|00000380| 08 21 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 63 61 |.!." [ar|g nil ca|
|00000390| 6c 63 2d 69 6e 76 65 72 | 74 2d 66 75 6e 63 20 63 |lc-inver|t-func c|
|000003a0| 61 6c 63 2d 76 65 63 74 | 6f 72 2d 6d 61 78 5d 20 |alc-vect|or-max] |
|000003b0| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|000003c0| 2d 76 65 63 74 6f 72 2d | 6d 65 61 6e 20 28 61 72 |-vector-|mean (ar|
|000003d0| 67 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |g) (inte|ractive |
|000003e0| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|000003f0| 22 c0 88 c1 c2 c3 5c 22 | 87 22 20 5b 6e 69 6c 20 |".....\"|." [nil |
|00000400| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|00000410| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00000420| c1 20 83 1a 00 c2 20 83 | 12 00 c3 c4 c5 08 23 82 |. .... .|......#.|
|00000430| 17 00 c3 c6 c7 08 23 82 | 2c 00 c2 20 83 27 00 c3 |......#.|,.. .'..|
|00000440| c8 c9 08 23 82 2c 00 c3 | ca cb 08 23 87 22 20 5b |...#.,..|...#." [|
|00000450| 61 72 67 20 63 61 6c 63 | 2d 69 73 2d 68 79 70 65 |arg calc|-is-hype|
|00000460| 72 62 6f 6c 69 63 20 63 | 61 6c 63 2d 69 73 2d 69 |rbolic c|alc-is-i|
|00000470| 6e 76 65 72 73 65 20 63 | 61 6c 63 2d 76 65 63 74 |nverse c|alc-vect|
|00000480| 6f 72 2d 6f 70 20 22 68 | 61 72 6d 22 20 63 61 6c |or-op "h|arm" cal|
|00000490| 63 46 75 6e 63 2d 76 68 | 6d 65 61 6e 20 22 6d 65 |cFunc-vh|mean "me|
|000004a0| 64 6e 22 20 63 61 6c 63 | 46 75 6e 63 2d 76 6d 65 |dn" calc|Func-vme|
|000004b0| 64 69 61 6e 20 22 6d 65 | 61 65 22 20 63 61 6c 63 |dian "me|ae" calc|
|000004c0| 46 75 6e 63 2d 76 6d 65 | 61 6e 65 20 22 6d 65 61 |Func-vme|ane "mea|
|000004d0| 6e 22 20 63 61 6c 63 46 | 75 6e 63 2d 76 6d 65 61 |n" calcF|unc-vmea|
|000004e0| 6e 5d 20 31 30 29 29 20 | 39 37 38 5d 20 33 29 29 |n] 10)) |978] 3))|
|000004f0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 76 65 |..(defun| calc-ve|
|00000500| 63 74 6f 72 2d 6d 65 61 | 6e 2d 65 72 72 6f 72 20 |ctor-mea|n-error |
|00000510| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000520| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000530| 64 65 20 22 c1 88 c2 20 | 88 c3 08 21 87 22 20 5b |de "... |...!." [|
|00000540| 61 72 67 20 6e 69 6c 20 | 63 61 6c 63 2d 69 6e 76 |arg nil |calc-inv|
|00000550| 65 72 74 2d 66 75 6e 63 | 20 63 61 6c 63 2d 76 65 |ert-func| calc-ve|
|00000560| 63 74 6f 72 2d 6d 65 61 | 6e 5d 20 33 29 29 0a 0a |ctor-mea|n] 3))..|
|00000570| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 76 65 63 74 |(defun c|alc-vect|
|00000580| 6f 72 2d 6d 65 64 69 61 | 6e 20 28 61 72 67 29 20 |or-media|n (arg) |
|00000590| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|000005a0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|000005b0| c2 20 88 c3 08 21 87 22 | 20 5b 61 72 67 20 6e 69 |. ...!."| [arg ni|
|000005c0| 6c 20 63 61 6c 63 2d 68 | 79 70 65 72 62 6f 6c 69 |l calc-h|yperboli|
|000005d0| 63 2d 66 75 6e 63 20 63 | 61 6c 63 2d 76 65 63 74 |c-func c|alc-vect|
|000005e0| 6f 72 2d 6d 65 61 6e 5d | 20 33 29 29 0a 0a 28 64 |or-mean]| 3))..(d|
|000005f0| 65 66 75 6e 20 63 61 6c | 63 2d 76 65 63 74 6f 72 |efun cal|c-vector|
|00000600| 2d 68 61 72 6d 6f 6e 69 | 63 2d 6d 65 61 6e 20 28 |-harmoni|c-mean (|
|00000610| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00000620| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000630| 65 20 22 c1 88 c2 20 88 | c3 20 88 c4 08 21 87 22 |e "... .|. ...!."|
|00000640| 20 5b 61 72 67 20 6e 69 | 6c 20 63 61 6c 63 2d 69 | [arg ni|l calc-i|
|00000650| 6e 76 65 72 74 2d 66 75 | 6e 63 20 63 61 6c 63 2d |nvert-fu|nc calc-|
|00000660| 68 79 70 65 72 62 6f 6c | 69 63 2d 66 75 6e 63 20 |hyperbol|ic-func |
|00000670| 63 61 6c 63 2d 76 65 63 | 74 6f 72 2d 6d 65 61 6e |calc-vec|tor-mean|
|00000680| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 4))..(|defun ca|
|00000690| 6c 63 2d 76 65 63 74 6f | 72 2d 67 65 6f 6d 65 74 |lc-vecto|r-geomet|
|000006a0| 72 69 63 2d 6d 65 61 6e | 20 28 61 72 67 29 20 28 |ric-mean| (arg) (|
|000006b0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|000006c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000006d0| c2 c3 5c 22 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |..\"." [|nil calc|
|000006e0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|000006f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 20 83 0d |(byte-co|de ". ..|
|00000700| 00 c2 c3 c4 08 23 82 12 | 00 c5 c3 c6 08 23 87 22 |.....#..|.....#."|
|00000710| 20 5b 61 72 67 20 63 61 | 6c 63 2d 69 73 2d 68 79 | [arg ca|lc-is-hy|
|00000720| 70 65 72 62 6f 6c 69 63 | 20 63 61 6c 63 2d 62 69 |perbolic| calc-bi|
|00000730| 6e 61 72 79 2d 6f 70 20 | 22 67 65 6f 6d 22 20 63 |nary-op |"geom" c|
|00000740| 61 6c 63 46 75 6e 63 2d | 61 67 6d 65 61 6e 20 63 |alcFunc-|agmean c|
|00000750| 61 6c 63 2d 76 65 63 74 | 6f 72 2d 6f 70 20 63 61 |alc-vect|or-op ca|
|00000760| 6c 63 46 75 6e 63 2d 76 | 67 6d 65 61 6e 5d 20 36 |lcFunc-v|gmean] 6|
|00000770| 29 29 20 31 37 30 30 5d | 20 33 29 29 0a 0a 28 64 |)) 1700]| 3))..(d|
|00000780| 65 66 75 6e 20 63 61 6c | 63 2d 76 65 63 74 6f 72 |efun cal|c-vector|
|00000790| 2d 73 64 65 76 20 28 61 | 72 67 29 20 28 69 6e 74 |-sdev (a|rg) (int|
|000007a0| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|000007b0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 c3 5c |yte-code| ".....\|
|000007c0| 22 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |"." [nil| calc-do|
|000007d0| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|000007e0| 74 65 2d 63 6f 64 65 20 | 22 c1 20 83 1a 00 c2 20 |te-code |". .... |
|000007f0| 83 12 00 c3 c4 c5 08 23 | 82 17 00 c3 c6 c7 08 23 |.......#|.......#|
|00000800| 82 2c 00 c2 20 83 27 00 | c3 c8 c9 08 23 82 2c 00 |.,.. .'.|....#.,.|
|00000810| c3 ca cb 08 23 87 22 20 | 5b 61 72 67 20 63 61 6c |....#." |[arg cal|
|00000820| 63 2d 69 73 2d 68 79 70 | 65 72 62 6f 6c 69 63 20 |c-is-hyp|erbolic |
|00000830| 63 61 6c 63 2d 69 73 2d | 69 6e 76 65 72 73 65 20 |calc-is-|inverse |
|00000840| 63 61 6c 63 2d 76 65 63 | 74 6f 72 2d 6f 70 20 22 |calc-vec|tor-op "|
|00000850| 70 76 61 72 22 20 63 61 | 6c 63 46 75 6e 63 2d 76 |pvar" ca|lcFunc-v|
|00000860| 70 76 61 72 20 22 76 61 | 72 22 20 63 61 6c 63 46 |pvar "va|r" calcF|
|00000870| 75 6e 63 2d 76 76 61 72 | 20 22 70 73 64 76 22 20 |unc-vvar| "psdv" |
|00000880| 63 61 6c 63 46 75 6e 63 | 2d 76 70 73 64 65 76 20 |calcFunc|-vpsdev |
|00000890| 22 73 64 65 76 22 20 63 | 61 6c 63 46 75 6e 63 2d |"sdev" c|alcFunc-|
|000008a0| 76 73 64 65 76 5d 20 31 | 30 29 29 20 31 39 34 37 |vsdev] 1|0)) 1947|
|000008b0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|000008c0| 6c 63 2d 76 65 63 74 6f | 72 2d 70 6f 70 2d 73 64 |lc-vecto|r-pop-sd|
|000008d0| 65 76 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |ev (arg)| (intera|
|000008e0| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|000008f0| 2d 63 6f 64 65 20 22 c1 | 88 c2 20 88 c3 08 21 87 |-code ".|.. ...!.|
|00000900| 22 20 5b 61 72 67 20 6e | 69 6c 20 63 61 6c 63 2d |" [arg n|il calc-|
|00000910| 69 6e 76 65 72 74 2d 66 | 75 6e 63 20 63 61 6c 63 |invert-f|unc calc|
|00000920| 2d 76 65 63 74 6f 72 2d | 73 64 65 76 5d 20 33 29 |-vector-|sdev] 3)|
|00000930| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 76 |)..(defu|n calc-v|
|00000940| 65 63 74 6f 72 2d 76 61 | 72 69 61 6e 63 65 20 28 |ector-va|riance (|
|00000950| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00000960| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000970| 65 20 22 c1 88 c2 20 88 | c3 08 21 87 22 20 5b 61 |e "... .|..!." [a|
|00000980| 72 67 20 6e 69 6c 20 63 | 61 6c 63 2d 68 79 70 65 |rg nil c|alc-hype|
|00000990| 72 62 6f 6c 69 63 2d 66 | 75 6e 63 20 63 61 6c 63 |rbolic-f|unc calc|
|000009a0| 2d 76 65 63 74 6f 72 2d | 73 64 65 76 5d 20 33 29 |-vector-|sdev] 3)|
|000009b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 76 |)..(defu|n calc-v|
|000009c0| 65 63 74 6f 72 2d 70 6f | 70 2d 76 61 72 69 61 6e |ector-po|p-varian|
|000009d0| 63 65 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |ce (arg)| (intera|
|000009e0| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|000009f0| 2d 63 6f 64 65 20 22 c1 | 88 c2 20 88 c3 20 88 c4 |-code ".|.. .. ..|
|00000a00| 08 21 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 63 61 |.!." [ar|g nil ca|
|00000a10| 6c 63 2d 69 6e 76 65 72 | 74 2d 66 75 6e 63 20 63 |lc-inver|t-func c|
|00000a20| 61 6c 63 2d 68 79 70 65 | 72 62 6f 6c 69 63 2d 66 |alc-hype|rbolic-f|
|00000a30| 75 6e 63 20 63 61 6c 63 | 2d 76 65 63 74 6f 72 2d |unc calc|-vector-|
|00000a40| 73 64 65 76 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |sdev] 4)|)..(defu|
|00000a50| 6e 20 63 61 6c 63 2d 76 | 65 63 74 6f 72 2d 63 6f |n calc-v|ector-co|
|00000a60| 76 61 72 69 61 6e 63 65 | 20 28 61 72 67 29 20 28 |variance| (arg) (|
|00000a70| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|00000a80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00000a90| c2 c3 5c 22 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |..\"." [|nil calc|
|00000aa0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00000ab0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 09 c2 3d 83 |(byte-co|de "..=.|
|00000ac0| 0a 00 c2 82 0b 00 c3 18 | c4 20 83 1d 00 c5 08 c6 |........|. ......|
|00000ad0| c7 c8 08 21 42 23 82 37 | 00 c9 20 83 2e 00 c5 08 |...!B#.7|.. .....|
|00000ae0| ca cb c8 08 21 42 23 82 | 37 00 c5 08 cc cd c8 08 |....!B#.|7.......|
|00000af0| 21 42 23 29 87 22 20 5b | 6e 20 61 72 67 20 31 20 |!B#)." [|n arg 1 |
|00000b00| 32 20 63 61 6c 63 2d 69 | 73 2d 68 79 70 65 72 62 |2 calc-i|s-hyperb|
|00000b10| 6f 6c 69 63 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |olic cal|c-enter-|
|00000b20| 72 65 73 75 6c 74 20 22 | 63 6f 72 72 22 20 63 61 |result "|corr" ca|
|00000b30| 6c 63 46 75 6e 63 2d 76 | 63 6f 72 72 20 63 61 6c |lcFunc-v|corr cal|
|00000b40| 63 2d 74 6f 70 2d 6c 69 | 73 74 2d 6e 20 63 61 6c |c-top-li|st-n cal|
|00000b50| 63 2d 69 73 2d 69 6e 76 | 65 72 73 65 20 22 70 63 |c-is-inv|erse "pc|
|00000b60| 6f 76 22 20 63 61 6c 63 | 46 75 6e 63 2d 76 70 63 |ov" calc|Func-vpc|
|00000b70| 6f 76 20 22 63 6f 76 22 | 20 63 61 6c 63 46 75 6e |ov "cov"| calcFun|
|00000b80| 63 2d 76 63 6f 76 5d 20 | 31 32 29 29 20 32 36 36 |c-vcov] |12)) 266|
|00000b90| 34 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |4] 3))..|(defun c|
|00000ba0| 61 6c 63 2d 76 65 63 74 | 6f 72 2d 70 6f 70 2d 63 |alc-vect|or-pop-c|
|00000bb0| 6f 76 61 72 69 61 6e 63 | 65 20 28 61 72 67 29 20 |ovarianc|e (arg) |
|00000bc0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00000bd0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00000be0| c2 20 88 c3 08 21 87 22 | 20 5b 61 72 67 20 6e 69 |. ...!."| [arg ni|
|00000bf0| 6c 20 63 61 6c 63 2d 69 | 6e 76 65 72 74 2d 66 75 |l calc-i|nvert-fu|
|00000c00| 6e 63 20 63 61 6c 63 2d | 76 65 63 74 6f 72 2d 63 |nc calc-|vector-c|
|00000c10| 6f 76 61 72 69 61 6e 63 | 65 5d 20 33 29 29 0a 0a |ovarianc|e] 3))..|
|00000c20| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 76 65 63 74 |(defun c|alc-vect|
|00000c30| 6f 72 2d 63 6f 72 72 65 | 6c 61 74 69 6f 6e 20 28 |or-corre|lation (|
|00000c40| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00000c50| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00000c60| 65 20 22 c1 88 c2 20 88 | c3 08 21 87 22 20 5b 61 |e "... .|..!." [a|
|00000c70| 72 67 20 6e 69 6c 20 63 | 61 6c 63 2d 68 79 70 65 |rg nil c|alc-hype|
|00000c80| 72 62 6f 6c 69 63 2d 66 | 75 6e 63 20 63 61 6c 63 |rbolic-f|unc calc|
|00000c90| 2d 76 65 63 74 6f 72 2d | 63 6f 76 61 72 69 61 6e |-vector-|covarian|
|00000ca0| 63 65 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |ce] 3)).|.(defun |
|00000cb0| 63 61 6c 63 2d 76 65 63 | 74 6f 72 2d 6f 70 20 28 |calc-vec|tor-op (|
|00000cc0| 6e 61 6d 65 20 66 75 6e | 63 20 61 72 67 29 20 28 |name fun|c arg) (|
|00000cd0| 62 79 74 65 2d 63 6f 64 | 65 20 22 09 10 c4 0a 21 |byte-cod|e "....!|
|00000ce0| 89 12 88 0a c5 57 85 11 | 00 c6 c7 21 88 c8 0a 09 |.....W..|...!....|
|00000cf0| 0b c9 0a 21 42 23 87 22 | 20 5b 63 61 6c 63 2d 61 |...!B#."| [calc-a|
|00000d00| 62 6f 72 74 65 64 2d 70 | 72 65 66 69 78 20 6e 61 |borted-p|refix na|
|00000d10| 6d 65 20 61 72 67 20 66 | 75 6e 63 20 70 72 65 66 |me arg f|unc pref|
|00000d20| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00000d30| 20 30 20 65 72 72 6f 72 | 20 22 4e 65 67 61 74 69 | 0 error| "Negati|
|00000d40| 76 65 20 61 72 67 75 6d | 65 6e 74 73 20 6e 6f 74 |ve argum|ents not|
|00000d50| 20 61 6c 6c 6f 77 65 64 | 22 20 63 61 6c 63 2d 65 | allowed|" calc-e|
|00000d60| 6e 74 65 72 2d 72 65 73 | 75 6c 74 20 63 61 6c 63 |nter-res|ult calc|
|00000d70| 2d 74 6f 70 2d 6c 69 73 | 74 2d 6e 5d 20 38 29 29 |-top-lis|t-n] 8))|
|00000d80| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00000d90| 63 2d 76 73 75 6d 20 28 | 26 72 65 73 74 20 76 65 |c-vsum (|&rest ve|
|00000da0| 63 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |cs) (byt|e-code "|
|00000db0| c1 c2 c3 08 c4 24 87 22 | 20 5b 76 65 63 73 20 6d |.....$."| [vecs m|
|00000dc0| 61 74 68 2d 72 65 64 75 | 63 65 2d 6d 61 6e 79 2d |ath-redu|ce-many-|
|00000dd0| 76 65 63 73 20 63 61 6c | 63 46 75 6e 63 2d 61 64 |vecs cal|cFunc-ad|
|00000de0| 64 20 63 61 6c 63 46 75 | 6e 63 2d 76 73 75 6d 20 |d calcFu|nc-vsum |
|00000df0| 30 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |0] 5))..|(defun c|
|00000e00| 61 6c 63 46 75 6e 63 2d | 76 70 72 6f 64 20 28 26 |alcFunc-|vprod (&|
|00000e10| 72 65 73 74 20 76 65 63 | 73 29 20 28 62 79 74 65 |rest vec|s) (byte|
|00000e20| 2d 63 6f 64 65 20 22 c1 | c2 c3 08 c4 24 87 22 20 |-code ".|....$." |
|00000e30| 5b 76 65 63 73 20 6d 61 | 74 68 2d 72 65 64 75 63 |[vecs ma|th-reduc|
|00000e40| 65 2d 6d 61 6e 79 2d 76 | 65 63 73 20 63 61 6c 63 |e-many-v|ecs calc|
|00000e50| 46 75 6e 63 2d 6d 75 6c | 20 63 61 6c 63 46 75 6e |Func-mul| calcFun|
|00000e60| 63 2d 76 70 72 6f 64 20 | 31 5d 20 35 29 29 0a 0a |c-vprod |1] 5))..|
|00000e70| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00000e80| 76 6d 61 78 20 28 26 72 | 65 73 74 20 76 65 63 73 |vmax (&r|est vecs|
|00000e90| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 08 |) (byte-|code "..|
|00000ea0| 40 21 c2 3d 83 0d 00 c3 | 82 25 00 c1 08 40 21 c4 |@!.=....|.%...@!.|
|00000eb0| 3d 83 1f 00 c5 c6 08 40 | 21 38 82 25 00 c7 c8 c9 |=......@|!8.%....|
|00000ec0| 08 ca 24 87 22 20 5b 76 | 65 63 73 20 63 61 72 2d |..$." [v|ecs car-|
|00000ed0| 73 61 66 65 20 73 64 65 | 76 20 28 76 61 72 20 69 |safe sde|v (var i|
|00000ee0| 6e 66 20 76 61 72 2d 69 | 6e 66 29 20 69 6e 74 76 |nf var-i|nf) intv|
|00000ef0| 20 33 20 6d 61 74 68 2d | 66 69 78 2d 69 6e 74 2d | 3 math-|fix-int-|
|00000f00| 69 6e 74 76 20 6d 61 74 | 68 2d 72 65 64 75 63 65 |intv mat|h-reduce|
|00000f10| 2d 6d 61 6e 79 2d 76 65 | 63 73 20 63 61 6c 63 46 |-many-ve|cs calcF|
|00000f20| 75 6e 63 2d 6d 61 78 20 | 63 61 6c 63 46 75 6e 63 |unc-max |calcFunc|
|00000f30| 2d 76 6d 61 78 20 28 6e | 65 67 20 28 76 61 72 20 |-vmax (n|eg (var |
|00000f40| 69 6e 66 20 76 61 72 2d | 69 6e 66 29 29 5d 20 38 |inf var-|inf))] 8|
|00000f50| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00000f60| 75 6e 63 2d 76 6d 69 6e | 20 28 26 72 65 73 74 20 |unc-vmin| (&rest |
|00000f70| 76 65 63 73 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |vecs) (b|yte-code|
|00000f80| 20 22 c1 08 40 21 c2 3d | 83 0d 00 c3 82 25 00 c1 | "..@!.=|.....%..|
|00000f90| 08 40 21 c4 3d 83 1f 00 | c5 c6 08 40 21 38 82 25 |.@!.=...|...@!8.%|
|00000fa0| 00 c7 c8 c9 08 ca 24 87 | 22 20 5b 76 65 63 73 20 |......$.|" [vecs |
|00000fb0| 63 61 72 2d 73 61 66 65 | 20 73 64 65 76 20 28 6e |car-safe| sdev (n|
|00000fc0| 65 67 20 28 76 61 72 20 | 69 6e 66 20 76 61 72 2d |eg (var |inf var-|
|00000fd0| 69 6e 66 29 29 20 69 6e | 74 76 20 32 20 6d 61 74 |inf)) in|tv 2 mat|
|00000fe0| 68 2d 66 69 78 2d 69 6e | 74 2d 69 6e 74 76 20 6d |h-fix-in|t-intv m|
|00000ff0| 61 74 68 2d 72 65 64 75 | 63 65 2d 6d 61 6e 79 2d |ath-redu|ce-many-|
|00001000| 76 65 63 73 20 63 61 6c | 63 46 75 6e 63 2d 6d 69 |vecs cal|cFunc-mi|
|00001010| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 76 6d 69 6e 20 |n calcFu|nc-vmin |
|00001020| 28 76 61 72 20 69 6e 66 | 20 76 61 72 2d 69 6e 66 |(var inf| var-inf|
|00001030| 29 5d 20 38 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |)] 8))..|(defun m|
|00001040| 61 74 68 2d 72 65 64 75 | 63 65 2d 6d 61 6e 79 2d |ath-redu|ce-many-|
|00001050| 76 65 63 73 20 28 66 75 | 6e 63 20 77 68 6f 6c 65 |vecs (fu|nc whole|
|00001060| 2d 66 75 6e 63 20 76 65 | 63 73 20 69 64 65 6e 74 |-func ve|cs ident|
|00001070| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 c1 |) (byte-|code "..|
|00001080| c1 c1 1c 1b 1a 18 0d cb | 5c 5c 1d 0e 06 85 9b 00 |........|\\......|
|00001090| 0e 06 40 89 13 88 cc 0b | 21 cd 3d 85 31 00 cc ce |..@.....|!.=.1...|
|000010a0| cb 0b 38 21 21 c4 3d 85 | 31 00 cb 0b 38 4a 89 13 |..8!!.=.|1...8J..|
|000010b0| 88 0b 3a 85 3b 00 0b 40 | c4 3d 83 63 00 cf 08 85 |..:.;..@|.=.c....|
|000010c0| 45 00 08 43 d0 0b 21 5c | 22 89 14 88 0c 83 5c 5c |E..C..!\|".....\\|
|000010d0| 00 d1 d2 0e 07 21 c4 0c | 42 5c 22 82 5e 00 0e 08 |.....!..|B\".^...|
|000010e0| 89 10 82 90 00 0b 3a 3f | 86 6d 00 0b 40 d3 3e 86 |......:?|.m..@.>.|
|000010f0| 73 00 d4 0b 21 83 89 00 | 08 83 83 00 d5 0e 07 08 |s...!...|........|
|00001100| 0b 23 82 84 00 0b 89 10 | 82 90 00 d6 0a 0b 43 5c |.#......|......C\|
|00001110| 22 89 12 88 0e 06 41 89 | 16 06 88 82 0c 00 29 88 |".....A.|......).|
|00001120| 08 83 bb 00 d7 08 21 89 | 10 88 0a 83 b7 00 d5 0e |......!.|........|
|00001130| 07 08 0e 0a 0a 42 23 82 | b8 00 08 82 c8 00 0a 83 |.....B#.|........|
|00001140| c6 00 0e 0a 0a 42 82 c8 | 00 0e 08 2c 87 22 20 5b |.....B..|...,." [|
|00001150| 63 6f 6e 73 74 2d 70 61 | 72 74 20 6e 69 6c 20 73 |const-pa|rt nil s|
|00001160| 79 6d 62 2d 70 61 72 74 | 20 76 61 6c 20 76 65 63 |ymb-part| val vec|
|00001170| 20 63 61 6c 63 2d 69 6e | 74 65 72 6e 61 6c 2d 70 | calc-in|ternal-p|
|00001180| 72 65 63 20 76 65 63 73 | 20 66 75 6e 63 20 69 64 |rec vecs| func id|
|00001190| 65 6e 74 20 74 20 77 68 | 6f 6c 65 2d 66 75 6e 63 |ent t wh|ole-func|
|000011a0| 20 32 20 63 61 72 2d 73 | 61 66 65 20 76 61 72 20 | 2 car-s|afe var |
|000011b0| 63 61 6c 63 2d 76 61 72 | 2d 76 61 6c 75 65 20 61 |calc-var|-value a|
|000011c0| 70 70 65 6e 64 20 6d 61 | 74 68 2d 66 6c 61 74 74 |ppend ma|th-flatt|
|000011d0| 65 6e 2d 76 65 63 74 6f | 72 20 63 61 6c 63 46 75 |en-vecto|r calcFu|
|000011e0| 6e 63 2d 72 65 64 75 63 | 65 72 20 6d 61 74 68 2d |nc-reduc|er math-|
|000011f0| 63 61 6c 63 46 75 6e 63 | 2d 74 6f 2d 76 61 72 20 |calcFunc|-to-var |
|00001200| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00001210| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00001220| 6f 6c 61 72 20 68 6d 73 | 20 64 61 74 65 20 73 64 |olar hms| date sd|
|00001230| 65 76 20 69 6e 74 76 20 | 6d 6f 64 29 20 6d 61 74 |ev intv |mod) mat|
|00001240| 68 2d 69 6e 66 69 6e 69 | 74 65 70 20 66 75 6e 63 |h-infini|tep func|
|00001250| 61 6c 6c 20 6e 63 6f 6e | 63 20 6d 61 74 68 2d 6e |all ncon|c math-n|
|00001260| 6f 72 6d 61 6c 69 7a 65 | 5d 20 31 36 29 29 0a 0a |ormalize|] 16))..|
|00001270| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00001280| 76 63 6f 75 6e 74 20 28 | 26 72 65 73 74 20 76 65 |vcount (|&rest ve|
|00001290| 63 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |cs) (byt|e-code "|
|000012a0| c2 18 09 85 61 00 09 40 | 3a 85 11 00 09 40 40 c3 |....a..@|:....@@.|
|000012b0| 3d 83 1d 00 08 c4 09 40 | 21 5c 5c 82 58 00 09 40 |=......@|!\\.X..@|
|000012c0| 3a 3f 86 29 00 09 40 40 | c5 3e 83 31 00 08 54 82 |:?.)..@@|.>.1..T.|
|000012d0| 58 00 c6 09 40 21 c7 3d | 85 44 00 c6 c8 c9 09 40 |X...@!.=|.D.....@|
|000012e0| 38 21 21 c3 3d 83 53 00 | 08 c4 c9 09 40 38 4a 21 |8!!.=.S.|....@8J!|
|000012f0| 5c 5c 82 58 00 ca 09 40 | cb 5c 22 10 09 41 89 11 |\\.X...@|.\"..A..|
|00001300| 88 82 02 00 88 08 29 87 | 22 20 5b 63 6f 75 6e 74 |......).|" [count|
|00001310| 20 76 65 63 73 20 30 20 | 76 65 63 20 6d 61 74 68 | vecs 0 |vec math|
|00001320| 2d 63 6f 75 6e 74 2d 65 | 6c 65 6d 65 6e 74 73 20 |-count-e|lements |
|00001330| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00001340| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00001350| 6f 6c 61 72 20 68 6d 73 | 20 64 61 74 65 20 73 64 |olar hms| date sd|
|00001360| 65 76 20 69 6e 74 76 20 | 6d 6f 64 29 20 63 61 72 |ev intv |mod) car|
|00001370| 2d 73 61 66 65 20 76 61 | 72 20 63 61 6c 63 2d 76 |-safe va|r calc-v|
|00001380| 61 72 2d 76 61 6c 75 65 | 20 32 20 6d 61 74 68 2d |ar-value| 2 math-|
|00001390| 72 65 6a 65 63 74 2d 61 | 72 67 20 6e 75 6d 76 65 |reject-a|rg numve|
|000013a0| 63 70 5d 20 39 29 29 0a | 0a 28 64 65 66 75 6e 20 |cp] 9)).|.(defun |
|000013b0| 6d 61 74 68 2d 63 6f 75 | 6e 74 2d 65 6c 65 6d 65 |math-cou|nt-eleme|
|000013c0| 6e 74 73 20 28 76 65 63 | 29 20 28 62 79 74 65 2d |nts (vec|) (byte-|
|000013d0| 63 6f 64 65 20 22 c2 18 | 09 41 89 11 85 28 00 09 |code "..|.A...(..|
|000013e0| 40 3a 85 14 00 09 40 40 | c1 3d 83 20 00 08 c3 09 |@:....@@|.=. ....|
|000013f0| 40 21 5c 5c 82 5c 22 00 | 08 54 89 10 88 82 02 00 |@!\\.\".|.T......|
|00001400| 88 08 29 87 22 20 5b 63 | 6f 75 6e 74 20 76 65 63 |..)." [c|ount vec|
|00001410| 20 30 20 6d 61 74 68 2d | 63 6f 75 6e 74 2d 65 6c | 0 math-|count-el|
|00001420| 65 6d 65 6e 74 73 5d 20 | 34 29 29 0a 0a 28 64 65 |ements] |4))..(de|
|00001430| 66 75 6e 20 6d 61 74 68 | 2d 66 6c 61 74 74 65 6e |fun math|-flatten|
|00001440| 2d 6d 61 6e 79 2d 76 65 | 63 73 20 28 76 65 63 73 |-many-ve|cs (vecs|
|00001450| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 09 c2 |) (byte-|code "..|
|00001460| 43 1a 18 08 85 64 00 c3 | 0a 08 40 3a 85 16 00 08 |C....d..|..@:....|
|00001470| 40 40 c2 3d 83 20 00 c4 | 08 40 21 82 5a 00 08 40 |@@.=. ..|.@!.Z..@|
|00001480| 3a 3f 86 2c 00 08 40 40 | c5 3e 83 35 00 08 40 43 |:?.,..@@|.>.5..@C|
|00001490| 82 5a 00 c6 08 40 21 c7 | 3d 85 48 00 c6 c8 c9 08 |.Z...@!.|=.H.....|
|000014a0| 40 38 21 21 c2 3d 83 55 | 00 c4 c9 08 40 38 4a 21 |@8!!.=.U|....@8J!|
|000014b0| 82 5a 00 ca 08 40 cb 5c | 22 5c 22 12 08 41 89 10 |.Z...@.\|"\"..A..|
|000014c0| 88 82 05 00 88 0a 2a 87 | 22 20 5b 70 20 76 65 63 |......*.|" [p vec|
|000014d0| 73 20 76 65 63 20 6e 63 | 6f 6e 63 20 6d 61 74 68 |s vec nc|onc math|
|000014e0| 2d 66 6c 61 74 74 65 6e | 2d 76 65 63 74 6f 72 20 |-flatten|-vector |
|000014f0| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00001500| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00001510| 6f 6c 61 72 20 68 6d 73 | 20 64 61 74 65 20 73 64 |olar hms| date sd|
|00001520| 65 76 20 69 6e 74 76 20 | 6d 6f 64 29 20 63 61 72 |ev intv |mod) car|
|00001530| 2d 73 61 66 65 20 76 61 | 72 20 63 61 6c 63 2d 76 |-safe va|r calc-v|
|00001540| 61 72 2d 76 61 6c 75 65 | 20 32 20 6d 61 74 68 2d |ar-value| 2 math-|
|00001550| 72 65 6a 65 63 74 2d 61 | 72 67 20 6e 75 6d 76 65 |reject-a|rg numve|
|00001560| 63 70 5d 20 31 31 29 29 | 0a 0a 28 64 65 66 75 6e |cp] 11))|..(defun|
|00001570| 20 63 61 6c 63 46 75 6e | 63 2d 76 66 6c 61 74 20 | calcFun|c-vflat |
|00001580| 28 26 72 65 73 74 20 76 | 65 63 73 29 20 28 62 79 |(&rest v|ecs) (by|
|00001590| 74 65 2d 63 6f 64 65 20 | 22 c1 08 21 87 22 20 5b |te-code |"..!." [|
|000015a0| 76 65 63 73 20 6d 61 74 | 68 2d 66 6c 61 74 74 65 |vecs mat|h-flatte|
|000015b0| 6e 2d 6d 61 6e 79 2d 76 | 65 63 73 5d 20 32 29 29 |n-many-v|ecs] 2))|
|000015c0| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 73 70 |..(defun| math-sp|
|000015d0| 6c 69 74 2d 73 64 65 76 | 2d 76 65 63 20 28 76 65 |lit-sdev|-vec (ve|
|000015e0| 63 20 7a 65 72 6f 2d 6f | 6b 29 20 28 62 79 74 65 |c zero-o|k) (byte|
|000015f0| 2d 63 6f 64 65 20 22 c5 | 43 c5 43 c3 0d 1c 1a 19 |-code ".|C.C.....|
|00001600| 18 0c 41 89 14 85 1d 00 | 0c 40 3a 85 1c 00 0c 40 |..A.....|.@:....@|
|00001610| 40 c8 3d 3f 85 25 00 c3 | 88 82 0a 00 88 0c 3f 83 |@.=?.%..|......?.|
|00001620| 31 00 0d c3 44 82 90 00 | 0d 41 89 15 85 84 00 0d |1...D...|.A......|
|00001630| 40 89 14 3a 85 44 00 0c | 40 c8 3d 83 5b 00 0a 86 |@..:.D..|@.=.[...|
|00001640| 58 00 c9 0c 38 08 42 10 | ca 0c 38 09 42 89 11 82 |X...8.B.|..8.B...|
|00001650| 80 00 0e 06 83 6e 00 c9 | 0c 38 08 42 10 cb 09 42 |.....n..|.8.B...B|
|00001660| 89 11 82 80 00 0a 86 7a | 00 c5 43 10 c3 11 c7 89 |.......z|..C.....|
|00001670| 12 88 0c 08 42 89 10 88 | 82 31 00 88 cc 08 21 09 |....B...|.1....!.|
|00001680| 85 8f 00 cc 09 21 44 2c | 87 22 20 5b 6d 65 61 6e |.....!D,|." [mean|
|00001690| 73 20 77 74 73 20 65 78 | 61 63 74 20 6e 69 6c 20 |s wts ex|act nil |
|000016a0| 70 20 76 65 63 20 7a 65 | 72 6f 2d 6f 6b 20 74 20 |p vec ze|ro-ok t |
|000016b0| 73 64 65 76 20 31 20 32 | 20 30 20 6e 72 65 76 65 |sdev 1 2| 0 nreve|
|000016c0| 72 73 65 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |rse] 4))|..(defun|
|000016d0| 20 63 61 6c 63 46 75 6e | 63 2d 76 6d 65 61 6e 20 | calcFun|c-vmean |
|000016e0| 28 26 72 65 73 74 20 76 | 65 63 73 29 20 28 62 79 |(&rest v|ecs) (by|
|000016f0| 74 65 2d 63 6f 64 65 20 | 22 ca cb 09 21 c2 5c 22 |te-code |"...!.\"|
|00001700| 18 08 40 1b cc 08 38 1c | 0b 47 53 1d 0d cd 55 83 |..@...8.|.GS...U.|
|00001710| 1f 00 ce c2 cf 5c 22 82 | 81 00 0d cc 55 85 2c 00 |.....\".|....U.,.|
|00001720| d0 cc 0b 38 21 d1 3d 83 | 44 00 d2 cc 0b 38 21 1e |...8!.=.|D....8!.|
|00001730| 06 d3 d4 0e 06 38 d5 0e | 06 38 5c 22 29 82 81 00 |.....8..|.8\")...|
|00001740| d6 0e 07 d4 5c 5c 1e 07 | 0c 85 52 00 0d cc 56 83 |....\\..|..R...V.|
|00001750| 78 00 d7 d8 0c 0c 23 1e | 08 d9 da d7 db cc 0e 08 |x.....#.|........|
|00001760| 23 5c 22 1e 09 dc d9 dd | d7 de 0b 0e 08 23 5c 22 |#\".....|.....#\"|
|00001770| 0e 09 5c 22 2a 82 7f 00 | dc d9 df 0b 5c 22 0d 5c |..\"*...|....\".\|
|00001780| 22 29 21 2c 87 22 20 5b | 73 70 6c 69 74 20 76 65 |")!,." [|split ve|
|00001790| 63 73 20 6e 69 6c 20 6d | 65 61 6e 73 20 77 74 73 |cs nil m|eans wts|
|000017a0| 20 6c 65 6e 20 78 20 63 | 61 6c 63 2d 69 6e 74 65 | len x c|alc-inte|
|000017b0| 72 6e 61 6c 2d 70 72 65 | 63 20 73 71 72 77 74 73 |rnal-pre|c sqrwts|
|000017c0| 20 73 75 6d 69 6e 76 73 | 71 72 77 74 73 20 6d 61 | suminvs|qrwts ma|
|000017d0| 74 68 2d 73 70 6c 69 74 | 2d 73 64 65 76 2d 76 65 |th-split|-sdev-ve|
|000017e0| 63 20 6d 61 74 68 2d 66 | 6c 61 74 74 65 6e 2d 6d |c math-f|latten-m|
|000017f0| 61 6e 79 2d 76 65 63 73 | 20 31 20 30 20 6d 61 74 |any-vecs| 1 0 mat|
|00001800| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 22 2a 4d |h-reject|-arg "*M|
|00001810| 75 73 74 20 62 65 20 61 | 74 20 6c 65 61 73 74 20 |ust be a|t least |
|00001820| 31 20 61 72 67 75 6d 65 | 6e 74 22 20 63 61 72 2d |1 argume|nt" car-|
|00001830| 73 61 66 65 20 69 6e 74 | 76 20 6d 61 74 68 2d 66 |safe int|v math-f|
|00001840| 69 78 2d 69 6e 74 2d 69 | 6e 74 76 20 63 61 6c 63 |ix-int-i|ntv calc|
|00001850| 46 75 6e 63 2d 76 6d 65 | 61 6e 20 32 20 33 20 6d |Func-vme|an 2 3 m|
|00001860| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 63 61 |ath-norm|alize ca|
|00001870| 6c 63 46 75 6e 63 2d 6d | 61 70 20 28 76 61 72 20 |lcFunc-m|ap (var |
|00001880| 6d 75 6c 20 76 61 72 2d | 6d 75 6c 29 20 63 61 6c |mul var-|mul) cal|
|00001890| 63 46 75 6e 63 2d 72 65 | 64 75 63 65 20 28 76 61 |cFunc-re|duce (va|
|000018a0| 72 20 61 64 64 20 76 61 | 72 2d 61 64 64 29 20 28 |r add va|r-add) (|
|000018b0| 76 61 72 20 64 69 76 20 | 76 61 72 2d 64 69 76 29 |var div |var-div)|
|000018c0| 20 6d 61 74 68 2d 64 69 | 76 20 28 76 61 72 20 61 | math-di|v (var a|
|000018d0| 64 64 20 76 61 72 2d 61 | 64 64 29 20 28 76 61 72 |dd var-a|dd) (var|
|000018e0| 20 64 69 76 20 76 61 72 | 2d 64 69 76 29 20 28 76 | div var|-div) (v|
|000018f0| 61 72 20 61 64 64 20 76 | 61 72 2d 61 64 64 29 5d |ar add v|ar-add)]|
|00001900| 20 31 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | 17))..(|defun ma|
|00001910| 74 68 2d 66 69 78 2d 69 | 6e 74 2d 69 6e 74 76 20 |th-fix-i|nt-intv |
|00001920| 28 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(x) (byt|e-code "|
|00001930| c1 08 21 83 0a 00 08 82 | 35 00 c2 c3 c4 08 38 c5 |..!.....|5.....8.|
|00001940| 3e 83 1a 00 c6 08 38 82 | 20 00 c7 c6 08 38 c4 5c |>.....8.| ....8.\|
|00001950| 22 c4 08 38 c8 3e 83 2e | 00 c3 08 38 82 34 00 c9 |"..8.>..|...8.4..|
|00001960| c3 08 38 c4 5c 22 46 87 | 22 20 5b 78 20 6d 61 74 |..8.\"F.|" [x mat|
|00001970| 68 2d 66 6c 6f 61 74 70 | 20 69 6e 74 76 20 33 20 |h-floatp| intv 3 |
|00001980| 31 20 28 32 20 33 29 20 | 32 20 6d 61 74 68 2d 61 |1 (2 3) |2 math-a|
|00001990| 64 64 20 28 31 20 33 29 | 20 6d 61 74 68 2d 73 75 |dd (1 3)| math-su|
|000019a0| 62 5d 20 38 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |b] 8))..|(defun c|
|000019b0| 61 6c 63 46 75 6e 63 2d | 76 6d 65 61 6e 65 20 28 |alcFunc-|vmeane (|
|000019c0| 26 72 65 73 74 20 76 65 | 63 73 29 20 28 62 79 74 |&rest ve|cs) (byt|
|000019d0| 65 2d 63 6f 64 65 20 22 | ca cb 09 21 c2 5c 22 18 |e-code "|...!.\".|
|000019e0| 08 40 1b cc 08 38 1c 0b | 47 53 1d 0d cd 55 83 1f |.@...8..|GS...U..|
|000019f0| 00 ce c2 cf 5c 22 82 81 | 00 d0 0e 06 d1 5c 5c 1e |....\"..|.....\\.|
|00001a00| 06 0c 83 56 00 d2 d3 0c | 0c 23 1e 07 d4 d5 d2 d6 |...V....|.#......|
|00001a10| cc 0e 07 23 5c 22 1e 08 | d7 d8 d4 d9 d2 da 0b 0e |...#\"..|........|
|00001a20| 07 23 5c 22 0e 08 5c 22 | db d8 cc 0e 08 5c 22 44 |.#\"..\"|.....\"D|
|00001a30| 5c 22 2a 82 7f 00 d8 d4 | dc 0b 5c 22 0d 5c 22 1e |\"*.....|..\".\".|
|00001a40| 09 d7 0e 09 db d8 dd de | d2 df d2 e0 d2 e1 0b e2 |........|........|
|00001a50| 0e 09 21 23 5c 22 d1 23 | 5c 22 e3 0d 0d 53 5c 22 |..!#\".#|\"...S\"|
|00001a60| 5c 22 44 5c 22 29 29 21 | 2c 87 22 20 5b 73 70 6c |\"D\"))!|,." [spl|
|00001a70| 69 74 20 76 65 63 73 20 | 6e 69 6c 20 6d 65 61 6e |it vecs |nil mean|
|00001a80| 73 20 77 74 73 20 6c 65 | 6e 20 63 61 6c 63 2d 69 |s wts le|n calc-i|
|00001a90| 6e 74 65 72 6e 61 6c 2d | 70 72 65 63 20 73 71 72 |nternal-|prec sqr|
|00001aa0| 77 74 73 20 73 75 6d 69 | 6e 76 73 71 72 77 74 73 |wts sumi|nvsqrwts|
|00001ab0| 20 6d 65 61 6e 20 6d 61 | 74 68 2d 73 70 6c 69 74 | mean ma|th-split|
|00001ac0| 2d 73 64 65 76 2d 76 65 | 63 20 6d 61 74 68 2d 66 |-sdev-ve|c math-f|
|00001ad0| 6c 61 74 74 65 6e 2d 6d | 61 6e 79 2d 76 65 63 73 |latten-m|any-vecs|
|00001ae0| 20 31 20 30 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 | 1 0 mat|h-reject|
|00001af0| 2d 61 72 67 20 22 2a 4d | 75 73 74 20 62 65 20 61 |-arg "*M|ust be a|
|00001b00| 74 20 6c 65 61 73 74 20 | 31 20 61 72 67 75 6d 65 |t least |1 argume|
|00001b10| 6e 74 22 20 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |nt" math|-normali|
|00001b20| 7a 65 20 32 20 63 61 6c | 63 46 75 6e 63 2d 6d 61 |ze 2 cal|cFunc-ma|
|00001b30| 70 20 28 76 61 72 20 6d | 75 6c 20 76 61 72 2d 6d |p (var m|ul var-m|
|00001b40| 75 6c 29 20 63 61 6c 63 | 46 75 6e 63 2d 72 65 64 |ul) calc|Func-red|
|00001b50| 75 63 65 20 28 76 61 72 | 20 61 64 64 20 76 61 72 |uce (var| add var|
|00001b60| 2d 61 64 64 29 20 28 76 | 61 72 20 64 69 76 20 76 |-add) (v|ar div v|
|00001b70| 61 72 2d 64 69 76 29 20 | 6d 61 74 68 2d 6d 61 6b |ar-div) |math-mak|
|00001b80| 65 2d 73 64 65 76 20 6d | 61 74 68 2d 64 69 76 20 |e-sdev m|ath-div |
|00001b90| 28 76 61 72 20 61 64 64 | 20 76 61 72 2d 61 64 64 |(var add| var-add|
|00001ba0| 29 20 28 76 61 72 20 64 | 69 76 20 76 61 72 2d 64 |) (var d|iv var-d|
|00001bb0| 69 76 29 20 63 61 6c 63 | 46 75 6e 63 2d 73 71 72 |iv) calc|Func-sqr|
|00001bc0| 74 20 28 76 61 72 20 61 | 64 64 20 76 61 72 2d 61 |t (var a|dd var-a|
|00001bd0| 64 64 29 20 63 61 6c 63 | 46 75 6e 63 2d 72 65 64 |dd) calc|Func-red|
|00001be0| 75 63 65 72 20 28 76 61 | 72 20 61 64 64 20 76 61 |ucer (va|r add va|
|00001bf0| 72 2d 61 64 64 29 20 28 | 76 61 72 20 70 6f 77 20 |r-add) (|var pow |
|00001c00| 76 61 72 2d 70 6f 77 29 | 20 28 76 61 72 20 61 62 |var-pow)| (var ab|
|00001c10| 73 20 76 61 72 2d 61 62 | 73 29 20 28 76 61 72 20 |s var-ab|s) (var |
|00001c20| 61 64 64 20 76 61 72 2d | 61 64 64 29 20 6d 61 74 |add var-|add) mat|
|00001c30| 68 2d 6e 65 67 20 6d 61 | 74 68 2d 6d 75 6c 5d 20 |h-neg ma|th-mul] |
|00001c40| 32 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |29))..(d|efun cal|
|00001c50| 63 46 75 6e 63 2d 76 6d | 65 64 69 61 6e 20 28 26 |cFunc-vm|edian (&|
|00001c60| 72 65 73 74 20 76 65 63 | 73 29 20 28 62 79 74 65 |rest vec|s) (byte|
|00001c70| 2d 63 6f 64 65 20 22 c6 | c7 09 21 41 21 18 08 1a |-code ".|..!A!...|
|00001c80| 08 47 1b c8 0b c9 5c 22 | 1c 0b ca 55 83 1e 00 cb |.G....\"|...U....|
|00001c90| c5 cc 5c 22 82 89 00 0b | cd 55 85 2a 00 ce 08 40 |..\"....|.U.*...@|
|00001ca0| 21 cf 3e 83 34 00 d0 08 | 40 21 82 89 00 0a 85 66 |!.>.4...|@!.....f|
|00001cb0| 00 ce 0a 40 21 d1 3d 85 | 48 00 d2 0a cd 0a 40 38 |...@!.=.|H.....@8|
|00001cc0| 5c 22 88 0a 40 3a 3f 86 | 55 00 0a 40 40 d3 3e 86 |\"..@:?.|U..@@.>.|
|00001cd0| 5d 00 cb 0a 40 d4 5c 22 | 88 0a 41 89 12 88 82 34 |]...@.\"|..A....4|
|00001ce0| 00 88 d5 08 d6 5c 22 89 | 10 88 d7 0b c9 5c 22 ca |.....\".|.....\".|
|00001cf0| 55 83 86 00 d8 d9 0c 53 | 08 38 0c 08 38 5c 22 c9 |U......S|.8..8\".|
|00001d00| 5c 22 82 89 00 0c 08 38 | 2c 87 22 20 5b 66 6c 61 |\".....8|,." [fla|
|00001d10| 74 20 76 65 63 73 20 70 | 20 6c 65 6e 20 68 6c 65 |t vecs p| len hle|
|00001d20| 6e 20 6e 69 6c 20 63 6f | 70 79 2d 73 65 71 75 65 |n nil co|py-seque|
|00001d30| 6e 63 65 20 6d 61 74 68 | 2d 66 6c 61 74 74 65 6e |nce math|-flatten|
|00001d40| 2d 6d 61 6e 79 2d 76 65 | 63 73 20 2f 20 32 20 30 |-many-ve|cs / 2 0|
|00001d50| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00001d60| 20 22 2a 4d 75 73 74 20 | 62 65 20 61 74 20 6c 65 | "*Must |be at le|
|00001d70| 61 73 74 20 31 20 61 72 | 67 75 6d 65 6e 74 22 20 |ast 1 ar|gument" |
|00001d80| 31 20 63 61 72 2d 73 61 | 66 65 20 28 73 64 65 76 |1 car-sa|fe (sdev|
|00001d90| 20 69 6e 74 76 29 20 63 | 61 6c 63 46 75 6e 63 2d | intv) c|alcFunc-|
|00001da0| 76 6d 65 61 6e 20 73 64 | 65 76 20 73 65 74 63 61 |vmean sd|ev setca|
|00001db0| 72 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |r (bigpo|s bigneg|
|00001dc0| 20 66 72 61 63 20 66 6c | 6f 61 74 20 68 6d 73 29 | frac fl|oat hms)|
|00001dd0| 20 61 6e 67 6c 65 70 20 | 73 6f 72 74 20 6d 61 74 | anglep |sort mat|
|00001de0| 68 2d 6c 65 73 73 70 20 | 25 20 6d 61 74 68 2d 64 |h-lessp |% math-d|
|00001df0| 69 76 20 6d 61 74 68 2d | 61 64 64 5d 20 31 36 29 |iv math-|add] 16)|
|00001e00| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00001e10| 6e 63 2d 76 67 6d 65 61 | 6e 20 28 26 72 65 73 74 |nc-vgmea|n (&rest|
|00001e20| 20 76 65 63 73 29 20 28 | 62 79 74 65 2d 63 6f 64 | vecs) (|byte-cod|
|00001e30| 65 20 22 c6 09 21 18 08 | 47 53 1a 0a c7 55 83 15 |e "..!..|GS...U..|
|00001e40| 00 c8 c3 c9 5c 22 82 35 | 00 ca 0c cb 5c 5c 1c cc |....\".5|....\\..|
|00001e50| cd 08 5c 22 1d 0a cb 55 | 83 2b 00 ce 0d 21 82 32 |..\"...U|.+...!.2|
|00001e60| 00 cf 0d d0 d1 0a 45 5c | 22 29 29 21 2a 87 22 20 |......E\|"))!*." |
|00001e70| 5b 66 6c 61 74 20 76 65 | 63 73 20 6c 65 6e 20 6e |[flat ve|cs len n|
|00001e80| 69 6c 20 63 61 6c 63 2d | 69 6e 74 65 72 6e 61 6c |il calc-|internal|
|00001e90| 2d 70 72 65 63 20 78 20 | 6d 61 74 68 2d 66 6c 61 |-prec x |math-fla|
|00001ea0| 74 74 65 6e 2d 6d 61 6e | 79 2d 76 65 63 73 20 30 |tten-man|y-vecs 0|
|00001eb0| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00001ec0| 20 22 2a 4d 75 73 74 20 | 62 65 20 61 74 20 6c 65 | "*Must |be at le|
|00001ed0| 61 73 74 20 31 20 61 72 | 67 75 6d 65 6e 74 22 20 |ast 1 ar|gument" |
|00001ee0| 6d 61 74 68 2d 6e 6f 72 | 6d 61 6c 69 7a 65 20 32 |math-nor|malize 2|
|00001ef0| 20 63 61 6c 63 46 75 6e | 63 2d 72 65 64 75 63 65 | calcFun|c-reduce|
|00001f00| 20 28 76 61 72 20 6d 75 | 6c 20 6d 61 74 68 2d 6d | (var mu|l math-m|
|00001f10| 75 6c 29 20 6d 61 74 68 | 2d 73 71 72 74 20 6d 61 |ul) math|-sqrt ma|
|00001f20| 74 68 2d 70 6f 77 20 66 | 72 61 63 20 31 5d 20 31 |th-pow f|rac 1] 1|
|00001f30| 30 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |0))..(de|fun calc|
|00001f40| 46 75 6e 63 2d 61 67 6d | 65 61 6e 20 28 61 20 62 |Func-agm|ean (a b|
|00001f50| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c6 08 |) (byte-|code "..|
|00001f60| 09 5c 22 c7 55 83 0d 00 | 08 82 8c 00 c8 08 21 83 |.\".U...|......!.|
|00001f70| 17 00 08 82 8c 00 c8 09 | 21 83 21 00 09 82 8c 00 |........|!.!.....|
|00001f80| 0a 83 2a 00 c9 20 82 8c | 00 08 3a 3f 86 34 00 08 |..*.. ..|..:?.4..|
|00001f90| 40 ca 3e 3f 83 3f 00 cb | 08 cc 5c 22 82 8c 00 09 |@.>?.?..|..\"....|
|00001fa0| 3a 3f 86 49 00 09 40 cd | 3e 3f 83 54 00 cb 09 cc |:?.I..@.|>?.T....|
|00001fb0| 5c 22 82 8c 00 ce 0c cf | 5c 5c 1c d0 d1 08 21 21 |\"......|\\....!!|
|00001fc0| 10 d0 d1 09 21 21 89 11 | 88 d2 1d d3 08 09 5c 22 |....!!..|......\"|
|00001fd0| 3f 85 87 00 d4 d5 08 09 | 5c 22 d6 5c 22 15 d7 d4 |?.......|\".\"...|
|00001fe0| 08 09 5c 22 21 11 0d 89 | 10 88 82 69 00 88 08 29 |..\"!...|...i...)|
|00001ff0| 29 21 87 22 20 5b 61 20 | 62 20 63 61 6c 63 2d 73 |)!." [a |b calc-s|
|00002000| 79 6d 62 6f 6c 69 63 2d | 6d 6f 64 65 20 74 20 63 |ymbolic-|mode t c|
|00002010| 61 6c 63 2d 69 6e 74 65 | 72 6e 61 6c 2d 70 72 65 |alc-inte|rnal-pre|
|00002020| 63 20 6d 65 61 6e 20 6d | 61 74 68 2d 63 6f 6d 70 |c mean m|ath-comp|
|00002030| 61 72 65 20 30 20 6d 61 | 74 68 2d 7a 65 72 6f 70 |are 0 ma|th-zerop|
|00002040| 20 6d 61 74 68 2d 69 6e | 65 78 61 63 74 2d 72 65 | math-in|exact-re|
|00002050| 73 75 6c 74 20 28 62 69 | 67 70 6f 73 20 62 69 67 |sult (bi|gpos big|
|00002060| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 29 20 |neg frac| float) |
|00002070| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00002080| 72 65 61 6c 70 20 28 62 | 69 67 70 6f 73 20 62 69 |realp (b|igpos bi|
|00002090| 67 6e 65 67 20 66 72 61 | 63 20 66 6c 6f 61 74 29 |gneg fra|c float)|
|000020a0| 20 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | math-no|rmalize |
|000020b0| 32 20 6d 61 74 68 2d 66 | 6c 6f 61 74 20 6d 61 74 |2 math-f|loat mat|
|000020c0| 68 2d 61 62 73 20 6e 69 | 6c 20 6d 61 74 68 2d 6e |h-abs ni|l math-n|
|000020d0| 65 61 72 6c 79 2d 65 71 | 75 61 6c 2d 66 6c 6f 61 |early-eq|ual-floa|
|000020e0| 74 20 6d 61 74 68 2d 6d | 75 6c 2d 66 6c 6f 61 74 |t math-m|ul-float|
|000020f0| 20 6d 61 74 68 2d 61 64 | 64 2d 66 6c 6f 61 74 20 | math-ad|d-float |
|00002100| 28 66 6c 6f 61 74 20 35 | 20 2d 31 29 20 6d 61 74 |(float 5| -1) mat|
|00002110| 68 2d 73 71 72 74 2d 66 | 6c 6f 61 74 5d 20 31 39 |h-sqrt-f|loat] 19|
|00002120| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00002130| 75 6e 63 2d 76 68 6d 65 | 61 6e 20 28 26 72 65 73 |unc-vhme|an (&res|
|00002140| 74 20 76 65 63 73 29 20 | 28 62 79 74 65 2d 63 6f |t vecs) |(byte-co|
|00002150| 64 65 20 22 c5 09 21 18 | 08 47 53 1a 0a c6 55 83 |de "..!.|.GS...U.|
|00002160| 15 00 c7 c3 c8 5c 22 82 | 26 00 c9 0c ca 5c 5c 1c |.....\".|&....\\.|
|00002170| cb 0a cc cd ce cf 08 5c | 22 5c 22 5c 22 29 21 2a |.......\|"\"\")!*|
|00002180| 87 22 20 5b 66 6c 61 74 | 20 76 65 63 73 20 6c 65 |." [flat| vecs le|
|00002190| 6e 20 6e 69 6c 20 63 61 | 6c 63 2d 69 6e 74 65 72 |n nil ca|lc-inter|
|000021a0| 6e 61 6c 2d 70 72 65 63 | 20 6d 61 74 68 2d 66 6c |nal-prec| math-fl|
|000021b0| 61 74 74 65 6e 2d 6d 61 | 6e 79 2d 76 65 63 73 20 |atten-ma|ny-vecs |
|000021c0| 30 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |0 math-r|eject-ar|
|000021d0| 67 20 22 2a 4d 75 73 74 | 20 62 65 20 61 74 20 6c |g "*Must| be at l|
|000021e0| 65 61 73 74 20 31 20 61 | 72 67 75 6d 65 6e 74 22 |east 1 a|rgument"|
|000021f0| 20 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | math-no|rmalize |
|00002200| 32 20 6d 61 74 68 2d 64 | 69 76 20 63 61 6c 63 46 |2 math-d|iv calcF|
|00002210| 75 6e 63 2d 72 65 64 75 | 63 65 20 28 76 61 72 20 |unc-redu|ce (var |
|00002220| 61 64 64 20 6d 61 74 68 | 2d 61 64 64 29 20 63 61 |add math|-add) ca|
|00002230| 6c 63 46 75 6e 63 2d 6d | 61 70 20 28 76 61 72 20 |lcFunc-m|ap (var |
|00002240| 69 6e 76 20 76 61 72 2d | 69 6e 76 29 5d 20 31 30 |inv var-|inv)] 10|
|00002250| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00002260| 75 6e 63 2d 76 76 61 72 | 20 28 26 72 65 73 74 20 |unc-vvar| (&rest |
|00002270| 76 65 63 73 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |vecs) (b|yte-code|
|00002280| 20 22 08 47 c2 55 85 0d | 00 c3 08 40 21 c4 3e 83 | ".G.U..|...@!.>.|
|00002290| 2a 00 c3 08 40 21 c5 3d | 83 21 00 c6 08 40 c1 5c |*...@!.=|.!...@.\|
|000022a0| 22 82 27 00 c7 c8 08 40 | 38 21 82 30 00 c9 08 c1 |".'....@|8!.0....|
|000022b0| c1 ca 24 87 22 20 5b 76 | 65 63 73 20 6e 69 6c 20 |..$." [v|ecs nil |
|000022c0| 31 20 63 61 72 2d 73 61 | 66 65 20 28 73 64 65 76 |1 car-sa|fe (sdev|
|000022d0| 20 69 6e 74 76 29 20 69 | 6e 74 76 20 6d 61 74 68 | intv) i|ntv math|
|000022e0| 2d 69 6e 74 76 2d 76 61 | 72 69 61 6e 63 65 20 6d |-intv-va|riance m|
|000022f0| 61 74 68 2d 73 71 72 20 | 32 20 6d 61 74 68 2d 63 |ath-sqr |2 math-c|
|00002300| 6f 76 61 72 69 61 6e 63 | 65 20 30 5d 20 39 29 29 |ovarianc|e 0] 9))|
|00002310| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00002320| 63 2d 76 73 64 65 76 20 | 28 26 72 65 73 74 20 76 |c-vsdev |(&rest v|
|00002330| 65 63 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ecs) (by|te-code |
|00002340| 22 08 47 c2 55 85 0d 00 | c3 08 40 21 c4 3e 83 41 |".G.U...|..@!.>.A|
|00002350| 00 c3 08 40 21 c5 3d 83 | 3a 00 c6 08 40 21 83 31 |...@!.=.|:...@!.1|
|00002360| 00 c7 c8 c9 08 40 38 ca | 08 40 38 5c 22 cb 20 5c |.....@8.|.@8\". \|
|00002370| 22 82 37 00 cc cd 08 40 | 21 21 82 3e 00 ca 08 40 |".7....@|!!.>...@|
|00002380| 38 82 49 00 cc ce 08 c1 | c1 cf 24 21 87 22 20 5b |8.I.....|..$!." [|
|00002390| 76 65 63 73 20 6e 69 6c | 20 31 20 63 61 72 2d 73 |vecs nil| 1 car-s|
|000023a0| 61 66 65 20 28 73 64 65 | 76 20 69 6e 74 76 29 20 |afe (sde|v intv) |
|000023b0| 69 6e 74 76 20 6d 61 74 | 68 2d 66 6c 6f 61 74 70 |intv mat|h-floatp|
|000023c0| 20 6d 61 74 68 2d 64 69 | 76 20 6d 61 74 68 2d 73 | math-di|v math-s|
|000023d0| 75 62 20 33 20 32 20 6d | 61 74 68 2d 73 71 72 74 |ub 3 2 m|ath-sqrt|
|000023e0| 2d 31 32 20 6d 61 74 68 | 2d 73 71 72 74 20 63 61 |-12 math|-sqrt ca|
|000023f0| 6c 63 46 75 6e 63 2d 76 | 76 61 72 20 6d 61 74 68 |lcFunc-v|var math|
|00002400| 2d 63 6f 76 61 72 69 61 | 6e 63 65 20 30 5d 20 31 |-covaria|nce 0] 1|
|00002410| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |4))..(de|fun calc|
|00002420| 46 75 6e 63 2d 76 70 76 | 61 72 20 28 26 72 65 73 |Func-vpv|ar (&res|
|00002430| 74 20 76 65 63 73 29 20 | 28 62 79 74 65 2d 63 6f |t vecs) |(byte-co|
|00002440| 64 65 20 22 08 47 c3 55 | 85 0d 00 c4 08 40 21 c5 |de ".G.U|.....@!.|
|00002450| 3e 83 2a 00 c4 08 40 21 | c6 3d 83 21 00 c7 08 40 |>.*...@!|.=.!...@|
|00002460| c1 5c 22 82 27 00 c8 c9 | 08 40 38 21 82 30 00 ca |.\".'...|.@8!.0..|
|00002470| 08 c2 c1 cb 24 87 22 20 | 5b 76 65 63 73 20 74 20 |....$." |[vecs t |
|00002480| 6e 69 6c 20 31 20 63 61 | 72 2d 73 61 66 65 20 28 |nil 1 ca|r-safe (|
|00002490| 73 64 65 76 20 69 6e 74 | 76 29 20 69 6e 74 76 20 |sdev int|v) intv |
|000024a0| 6d 61 74 68 2d 69 6e 74 | 76 2d 76 61 72 69 61 6e |math-int|v-varian|
|000024b0| 63 65 20 6d 61 74 68 2d | 73 71 72 20 32 20 6d 61 |ce math-|sqr 2 ma|
|000024c0| 74 68 2d 63 6f 76 61 72 | 69 61 6e 63 65 20 30 5d |th-covar|iance 0]|
|000024d0| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 9))..(d|efun cal|
|000024e0| 63 46 75 6e 63 2d 76 70 | 73 64 65 76 20 28 26 72 |cFunc-vp|sdev (&r|
|000024f0| 65 73 74 20 76 65 63 73 | 29 20 28 62 79 74 65 2d |est vecs|) (byte-|
|00002500| 63 6f 64 65 20 22 08 47 | c3 55 85 0d 00 c4 08 40 |code ".G|.U.....@|
|00002510| 21 c5 3e 83 41 00 c4 08 | 40 21 c6 3d 83 3a 00 c7 |!.>.A...|@!.=.:..|
|00002520| 08 40 21 83 31 00 c8 c9 | ca 08 40 38 cb 08 40 38 |.@!.1...|..@8..@8|
|00002530| 5c 22 cc 20 5c 22 82 37 | 00 cd ce 08 40 21 21 82 |\". \".7|....@!!.|
|00002540| 3e 00 cb 08 40 38 82 49 | 00 cd cf 08 c1 c2 d0 24 |>...@8.I|.......$|
|00002550| 21 87 22 20 5b 76 65 63 | 73 20 6e 69 6c 20 74 20 |!." [vec|s nil t |
|00002560| 31 20 63 61 72 2d 73 61 | 66 65 20 28 73 64 65 76 |1 car-sa|fe (sdev|
|00002570| 20 69 6e 74 76 29 20 69 | 6e 74 76 20 6d 61 74 68 | intv) i|ntv math|
|00002580| 2d 66 6c 6f 61 74 70 20 | 6d 61 74 68 2d 64 69 76 |-floatp |math-div|
|00002590| 20 6d 61 74 68 2d 73 75 | 62 20 33 20 32 20 6d 61 | math-su|b 3 2 ma|
|000025a0| 74 68 2d 73 71 72 74 2d | 31 32 20 6d 61 74 68 2d |th-sqrt-|12 math-|
|000025b0| 73 71 72 74 20 63 61 6c | 63 46 75 6e 63 2d 76 70 |sqrt cal|cFunc-vp|
|000025c0| 76 61 72 20 6d 61 74 68 | 2d 63 6f 76 61 72 69 61 |var math|-covaria|
|000025d0| 6e 63 65 20 30 5d 20 31 | 34 29 29 0a 0a 28 64 65 |nce 0] 1|4))..(de|
|000025e0| 66 75 6e 20 6d 61 74 68 | 2d 69 6e 74 76 2d 76 61 |fun math|-intv-va|
|000025f0| 72 69 61 6e 63 65 20 28 | 78 20 70 6f 70 29 20 28 |riance (|x pop) (|
|00002600| 62 79 74 65 2d 63 6f 64 | 65 20 22 c4 08 21 86 0a |byte-cod|e "..!..|
|00002610| 00 c5 08 c6 5c 22 88 c7 | 08 21 83 21 00 c8 c9 ca |....\"..|.!.!....|
|00002620| cb 08 38 cc 08 38 5c 22 | 21 cd 5c 22 82 5e 00 ce |..8..8\"|!.\".^..|
|00002630| 08 21 18 ca cb 08 38 cc | 08 38 5c 22 19 cf 09 cc |.!....8.|.8\"....|
|00002640| 5c 22 1a c8 d0 09 21 83 | 45 00 d1 d2 d3 d4 0a 21 |\"....!.|E......!|
|00002650| 0a 24 82 50 00 d1 d5 d6 | d4 0a 21 d7 0a d8 5c 22 |.$.P....|..!...\"|
|00002660| 24 0b 83 5b 00 d7 09 d8 | 5c 22 82 5c 5c 00 09 5c |$..[....|\".\\..\|
|00002670| 22 2b 87 22 20 5b 78 20 | 6c 65 6e 20 68 6c 65 6e |"+." [x |len hlen|
|00002680| 20 70 6f 70 20 6d 61 74 | 68 2d 63 6f 6e 73 74 70 | pop mat|h-constp|
|00002690| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|000026a0| 20 63 6f 6e 73 74 70 20 | 6d 61 74 68 2d 66 6c 6f | constp |math-flo|
|000026b0| 61 74 70 20 6d 61 74 68 | 2d 64 69 76 20 6d 61 74 |atp math|-div mat|
|000026c0| 68 2d 73 71 72 20 6d 61 | 74 68 2d 73 75 62 20 33 |h-sqr ma|th-sub 3|
|000026d0| 20 32 20 31 32 20 6d 61 | 74 68 2d 66 69 78 2d 69 | 2 12 ma|th-fix-i|
|000026e0| 6e 74 2d 69 6e 74 76 20 | 6d 61 74 68 2d 71 75 6f |nt-intv |math-quo|
|000026f0| 74 69 65 6e 74 20 6d 61 | 74 68 2d 65 76 65 6e 70 |tient ma|th-evenp|
|00002700| 20 63 61 6c 63 46 75 6e | 63 2d 73 75 6d 20 28 5e | calcFun|c-sum (^|
|00002710| 20 28 76 61 72 20 58 20 | 76 61 72 2d 58 29 20 32 | (var X |var-X) 2|
|00002720| 29 20 28 76 61 72 20 58 | 20 76 61 72 2d 58 29 20 |) (var X| var-X) |
|00002730| 6d 61 74 68 2d 6e 65 67 | 20 28 5e 20 28 2d 20 28 |math-neg| (^ (- (|
|00002740| 76 61 72 20 58 20 76 61 | 72 2d 58 29 20 28 2f 20 |var X va|r-X) (/ |
|00002750| 31 20 32 29 29 20 32 29 | 20 28 76 61 72 20 58 20 |1 2)) 2)| (var X |
|00002760| 76 61 72 2d 58 29 20 6d | 61 74 68 2d 61 64 64 20 |var-X) m|ath-add |
|00002770| 31 5d 20 32 31 29 29 0a | 0a 28 64 65 66 75 6e 20 |1] 21)).|.(defun |
|00002780| 63 61 6c 63 46 75 6e 63 | 2d 76 63 6f 76 20 28 76 |calcFunc|-vcov (v|
|00002790| 65 63 31 20 26 6f 70 74 | 69 6f 6e 61 6c 20 76 65 |ec1 &opt|ional ve|
|000027a0| 63 32 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |c2) (byt|e-code "|
|000027b0| c3 08 43 09 43 c2 c4 24 | 87 22 20 5b 76 65 63 31 |..C.C..$|." [vec1|
|000027c0| 20 76 65 63 32 20 6e 69 | 6c 20 6d 61 74 68 2d 63 | vec2 ni|l math-c|
|000027d0| 6f 76 61 72 69 61 6e 63 | 65 20 31 5d 20 35 29 29 |ovarianc|e 1] 5))|
|000027e0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|000027f0| 63 2d 76 70 63 6f 76 20 | 28 76 65 63 31 20 26 6f |c-vpcov |(vec1 &o|
|00002800| 70 74 69 6f 6e 61 6c 20 | 76 65 63 32 29 20 28 62 |ptional |vec2) (b|
|00002810| 79 74 65 2d 63 6f 64 65 | 20 22 c3 08 43 09 43 c2 |yte-code| "..C.C.|
|00002820| c4 24 87 22 20 5b 76 65 | 63 31 20 76 65 63 32 20 |.$." [ve|c1 vec2 |
|00002830| 74 20 6d 61 74 68 2d 63 | 6f 76 61 72 69 61 6e 63 |t math-c|ovarianc|
|00002840| 65 20 31 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |e 1] 5))|..(defun|
|00002850| 20 63 61 6c 63 46 75 6e | 63 2d 76 63 6f 72 72 20 | calcFun|c-vcorr |
|00002860| 28 76 65 63 31 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(vec1 &o|ptional |
|00002870| 76 65 63 32 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |vec2) (b|yte-code|
|00002880| 20 22 c3 08 43 09 43 c2 | c4 24 87 22 20 5b 76 65 | "..C.C.|.$." [ve|
|00002890| 63 31 20 76 65 63 32 20 | 6e 69 6c 20 6d 61 74 68 |c1 vec2 |nil math|
|000028a0| 2d 63 6f 76 61 72 69 61 | 6e 63 65 20 32 5d 20 35 |-covaria|nce 2] 5|
|000028b0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|000028c0| 63 6f 76 61 72 69 61 6e | 63 65 20 28 76 65 63 31 |covarian|ce (vec1|
|000028d0| 20 76 65 63 32 20 70 6f | 70 20 6d 6f 64 65 29 20 | vec2 po|p mode) |
|000028e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 40 86 52 |(byte-co|de ".@.R|
|000028f0| 00 09 d4 55 86 52 00 d5 | 0a 40 21 d6 3d 85 1e 00 |...U.R..|.@!.=...|
|00002900| d5 d7 d8 0a 40 38 21 21 | d9 3d 83 2b 00 d8 0a 40 |....@8!!|.=.+...@|
|00002910| 38 4a 89 12 82 2f 00 0a | 40 89 12 88 da 0a 21 86 |8J.../..|@.....!.|
|00002920| 38 00 db 20 88 dc 0a 38 | 47 dd 55 86 44 00 db 20 |8.. ...8|G.U.D.. |
|00002930| 88 de 0a d8 5c 22 43 10 | de 0a dc 5c 22 43 89 12 |....\"C.|...\"C..|
|00002940| 88 df 0b d8 5c 5c 1b e0 | e1 0a 21 c5 5c 22 1c 0c |....\\..|..!.\"..|
|00002950| 40 1e 06 dc 0c 38 1e 07 | c5 1e 08 c5 1e 09 c5 1e |@....8..|........|
|00002960| 0a c5 1e 0b c5 1e 0c 0e | 06 47 53 1e 0d 0e 0d 0e |........|.GS.....|
|00002970| 0e 83 88 00 dc 82 89 00 | d8 57 85 9a 00 e2 c5 0e |........|.W......|
|00002980| 0e 83 98 00 e3 82 99 00 | e4 5c 22 88 0e 07 86 a2 |........|.\".....|
|00002990| 00 0e 0a 85 d5 00 e5 0e | 07 83 b5 00 e6 e7 0e 07 |........|........|
|000029a0| 0e 07 23 82 b6 00 d4 0e | 0a 83 c5 00 e6 e8 0e 0a |..#.....|........|
|000029b0| 0e 0a 23 82 c6 00 d4 5c | 22 16 0b e9 ea e6 eb dc |..#....\|".......|
|000029c0| 0e 0b 23 5c 22 89 16 0c | 88 09 d4 55 86 fc 00 e0 |..#\"...|...U....|
|000029d0| e1 08 21 c5 5c 22 16 08 | 0e 08 40 16 09 d8 0c 38 |..!.\"..|..@....8|
|000029e0| 89 16 0a 88 0e 0d 0e 09 | 47 53 55 86 fc 00 db 20 |........|GSU.... |
|000029f0| 88 e6 ec 0e 06 0e 0b 83 | 19 01 ed e9 ee e6 ef 0e |........|........|
|00002a00| 06 0e 0b 23 5c 22 f0 0e | 0c 21 5c 22 82 23 01 ed |...#\"..|.!\".#..|
|00002a10| f1 f2 0e 06 5c 22 0e 0d | 5b 5c 22 23 1e 0f 09 d4 |....\"..|[\"#....|
|00002a20| 55 83 31 01 0e 0f 82 58 | 01 e6 f3 0e 09 0e 0b 83 |U.1....X|........|
|00002a30| 4d 01 ed e9 f4 e6 f5 0e | 09 0e 0b 23 5c 22 f0 0e |M.......|...#\"..|
|00002a40| 0c 21 5c 22 82 57 01 ed | f1 f6 0e 09 5c 22 0e 0d |.!\".W..|....\"..|
|00002a50| 5b 5c 22 23 1e 10 e6 f7 | 0e 0f 0e 10 23 1e 11 0e |[\"#....|....#...|
|00002a60| 0b 85 72 01 e6 f8 0e 11 | 0e 0b 23 89 16 11 88 ed |..r.....|..#.....|
|00002a70| f1 f9 0e 11 5c 22 09 d8 | 55 83 c0 01 e6 fa 0e 0f |....\"..|U.......|
|00002a80| 0e 0f 23 e6 fb 0e 10 0e | 10 23 1e 13 1e 12 0e 0b |..#.....|.#......|
|00002a90| 85 a9 01 e6 fc 0e 12 0e | 0b 23 16 12 e6 fd 0e 13 |........|.#......|
|00002aa0| 0e 0b 23 89 16 13 88 fe | ff f1 81 40 00 0e 12 5c |..#.....|...@...\|
|00002ab0| 22 f1 81 41 00 0e 13 5c | 22 5c 22 21 2a 82 ea 01 |"..A...\|"\"!*...|
|00002ac0| 0e 0b 83 dd 01 0e 0e 83 | cf 01 0e 0c 82 da 01 ed |........|........|
|00002ad0| ff 0e 0c 0e 0d 53 5c 22 | 0e 0d 5c 22 82 ea 01 0e |.....S\"|..\"....|
|00002ae0| 0e 83 e7 01 0e 0d 82 ea | 01 0e 0d 53 5c 22 2b 2e |........|...S\"+.|
|00002af0| 09 29 21 87 22 20 5b 76 | 65 63 32 20 6d 6f 64 65 |.)!." [v|ec2 mode|
|00002b00| 20 76 65 63 31 20 63 61 | 6c 63 2d 69 6e 74 65 72 | vec1 ca|lc-inter|
|00002b10| 6e 61 6c 2d 70 72 65 63 | 20 73 70 6c 69 74 31 20 |nal-prec| split1 |
|00002b20| 6e 69 6c 20 6d 65 61 6e | 73 31 20 77 74 73 31 20 |nil mean|s1 wts1 |
|00002b30| 73 70 6c 69 74 32 20 6d | 65 61 6e 73 32 20 77 74 |split2 m|eans2 wt|
|00002b40| 73 32 20 73 71 72 77 74 | 73 20 73 75 6d 69 6e 76 |s2 sqrwt|s suminv|
|00002b50| 73 71 72 77 74 73 20 6c | 65 6e 20 70 6f 70 20 64 |sqrwts l|en pop d|
|00002b60| 69 66 66 31 20 64 69 66 | 66 32 20 63 6f 76 61 72 |iff1 dif|f2 covar|
|00002b70| 20 76 61 72 31 20 76 61 | 72 32 20 30 20 63 61 72 | var1 va|r2 0 car|
|00002b80| 2d 73 61 66 65 20 76 61 | 72 20 63 61 6c 63 2d 76 |-safe va|r calc-v|
|00002b90| 61 72 2d 76 61 6c 75 65 | 20 32 20 76 65 63 20 6d |ar-value| 2 vec m|
|00002ba0| 61 74 68 2d 6d 61 74 72 | 69 78 70 20 6d 61 74 68 |ath-matr|ixp math|
|00002bb0| 2d 64 69 6d 65 6e 73 69 | 6f 6e 2d 65 72 72 6f 72 |-dimensi|on-error|
|00002bc0| 20 31 20 33 20 6d 61 74 | 68 2d 6d 61 74 2d 63 6f | 1 3 mat|h-mat-co|
|00002bd0| 6c 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |l math-n|ormalize|
|00002be0| 20 6d 61 74 68 2d 73 70 | 6c 69 74 2d 73 64 65 76 | math-sp|lit-sdev|
|00002bf0| 2d 76 65 63 20 6d 61 74 | 68 2d 66 6c 61 74 74 65 |-vec mat|h-flatte|
|00002c00| 6e 2d 6d 61 6e 79 2d 76 | 65 63 73 20 6d 61 74 68 |n-many-v|ecs math|
|00002c10| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 22 2a 4d 75 |-reject-|arg "*Mu|
|00002c20| 73 74 20 62 65 20 61 74 | 20 6c 65 61 73 74 20 31 |st be at| least 1|
|00002c30| 20 61 72 67 75 6d 65 6e | 74 22 20 22 2a 4d 75 73 | argumen|t" "*Mus|
|00002c40| 74 20 62 65 20 61 74 20 | 6c 65 61 73 74 20 32 20 |t be at |least 2 |
|00002c50| 61 72 67 75 6d 65 6e 74 | 73 22 20 6d 61 74 68 2d |argument|s" math-|
|00002c60| 61 64 64 20 63 61 6c 63 | 46 75 6e 63 2d 6d 61 70 |add calc|Func-map|
|00002c70| 20 28 76 61 72 20 6d 75 | 6c 20 76 61 72 2d 6d 75 | (var mu|l var-mu|
|00002c80| 6c 29 20 28 76 61 72 20 | 6d 75 6c 20 76 61 72 2d |l) (var |mul var-|
|00002c90| 6d 75 6c 29 20 63 61 6c | 63 46 75 6e 63 2d 72 65 |mul) cal|cFunc-re|
|00002ca0| 64 75 63 65 20 28 76 61 | 72 20 61 64 64 20 76 61 |duce (va|r add va|
|00002cb0| 72 2d 61 64 64 29 20 28 | 76 61 72 20 64 69 76 20 |r-add) (|var div |
|00002cc0| 76 61 72 2d 64 69 76 29 | 20 28 76 61 72 20 61 64 |var-div)| (var ad|
|00002cd0| 64 20 76 61 72 2d 61 64 | 64 29 20 6d 61 74 68 2d |d var-ad|d) math-|
|00002ce0| 64 69 76 20 28 76 61 72 | 20 61 64 64 20 76 61 72 |div (var| add var|
|00002cf0| 2d 61 64 64 29 20 28 76 | 61 72 20 64 69 76 20 76 |-add) (v|ar div v|
|00002d00| 61 72 2d 64 69 76 29 20 | 6d 61 74 68 2d 6e 65 67 |ar-div) |math-neg|
|00002d10| 20 63 61 6c 63 46 75 6e | 63 2d 72 65 64 75 63 65 | calcFun|c-reduce|
|00002d20| 72 20 28 76 61 72 20 61 | 64 64 20 76 61 72 2d 61 |r (var a|dd var-a|
|00002d30| 64 64 29 20 28 76 61 72 | 20 61 64 64 20 76 61 72 |dd) (var| add var|
|00002d40| 2d 61 64 64 29 20 28 76 | 61 72 20 61 64 64 20 76 |-add) (v|ar add v|
|00002d50| 61 72 2d 61 64 64 29 20 | 28 76 61 72 20 64 69 76 |ar-add) |(var div|
|00002d60| 20 76 61 72 2d 64 69 76 | 29 20 28 76 61 72 20 61 | var-div|) (var a|
|00002d70| 64 64 20 76 61 72 2d 61 | 64 64 29 20 28 76 61 72 |dd var-a|dd) (var|
|00002d80| 20 6d 75 6c 20 76 61 72 | 2d 6d 75 6c 29 20 28 76 | mul var|-mul) (v|
|00002d90| 61 72 20 64 69 76 20 76 | 61 72 2d 64 69 76 29 20 |ar div v|ar-div) |
|00002da0| 28 76 61 72 20 61 64 64 | 20 76 61 72 2d 61 64 64 |(var add| var-add|
|00002db0| 29 20 28 76 61 72 20 6d | 75 6c 20 76 61 72 2d 6d |) (var m|ul var-m|
|00002dc0| 75 6c 29 20 28 76 61 72 | 20 6d 75 6c 20 76 61 72 |ul) (var| mul var|
|00002dd0| 2d 6d 75 6c 29 20 28 76 | 61 72 20 64 69 76 20 76 |-mul) (v|ar div v|
|00002de0| 61 72 2d 64 69 76 29 20 | 28 76 61 72 20 64 69 76 |ar-div) |(var div|
|00002df0| 20 76 61 72 2d 64 69 76 | 29 20 6d 61 74 68 2d 73 | var-div|) math-s|
|00002e00| 71 72 74 20 6d 61 74 68 | 2d 6d 75 6c 20 28 76 61 |qrt math|-mul (va|
|00002e10| 72 20 61 64 64 20 76 61 | 72 2d 61 64 64 29 20 28 |r add va|r-add) (|
|00002e20| 76 61 72 20 61 64 64 20 | 76 61 72 2d 61 64 64 29 |var add |var-add)|
|00002e30| 5d 20 35 31 29 29 0a    |                         |] 51)). |        |
+--------+-------------------------+-------------------------+--------+--------+