| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 21 3c 61 72 63 68 3e 0a 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 37 30 36 | !<arch>.#1/20...........16969706 |
| 0020 | 39 33 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 32 38 20 20 20 20 20 20 | 93..501...20....100644..28...... |
| 0040 | 20 20 60 0a 5f 5f 2e 53 59 4d 44 45 46 20 53 4f 52 54 45 44 00 00 00 00 00 00 00 00 00 00 00 00 | ..`.__.SYMDEF.SORTED............ |
| 0060 | 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 39 39 31 20 20 35 30 31 20 | #1/28...........1696908991..501. |
| 0080 | 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 36 39 32 20 20 20 20 20 20 20 60 0a 61 70 70 72 | ..20....100644..692.......`.appr |
| 00a0 | 6f 78 2c 64 65 72 69 76 61 74 69 76 65 2e 6c 69 73 70 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b | ox,derivative.lisp......(in-pack |
| 00c0 | 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 | age.:lizfcm.approx)..(defun.cent |
| 00e0 | 72 61 6c 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 28 66 20 78 20 26 6f 70 74 69 6f 6e 61 6c | ral-derivative-at.(f.x.&optional |
| 0100 | 20 28 64 65 6c 74 61 20 30 2e 30 31 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 78 32 20 28 2b 20 78 | .(delta.0.01))...(let*.((x2.(+.x |
| 0120 | 20 64 65 6c 74 61 29 29 0a 20 20 20 20 20 20 20 20 20 28 78 31 20 28 2d 20 78 20 64 65 6c 74 61 | .delta))..........(x1.(-.x.delta |
| 0140 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 79 32 20 28 61 70 70 6c 79 20 66 20 28 6c 69 73 74 20 78 | ))..........(y2.(apply.f.(list.x |
| 0160 | 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 79 31 20 28 61 70 70 6c 79 20 66 20 28 6c 69 73 74 | 2)))..........(y1.(apply.f.(list |
| 0180 | 20 78 31 29 29 29 29 0a 20 20 20 20 28 2f 20 28 2d 20 79 32 20 79 31 29 0a 20 20 20 20 20 20 20 | .x1)))).....(/.(-.y2.y1)........ |
| 01a0 | 28 2d 20 78 32 20 78 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 64 65 72 | (-.x2.x1))))..(defun.forward-der |
| 01c0 | 69 76 61 74 69 76 65 2d 61 74 20 28 66 20 78 20 26 6f 70 74 69 6f 6e 61 6c 20 28 64 65 6c 74 61 | ivative-at.(f.x.&optional.(delta |
| 01e0 | 20 30 2e 30 31 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 78 32 20 28 2b 20 78 20 64 65 6c 74 61 29 | .0.01))...(let*.((x2.(+.x.delta) |
| 0200 | 29 0a 20 20 20 20 20 20 20 20 20 28 78 31 20 78 29 0a 20 20 20 20 20 20 20 20 20 28 79 32 20 28 | )..........(x1.x)..........(y2.( |
| 0220 | 61 70 70 6c 79 20 66 20 28 6c 69 73 74 20 78 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 79 31 | apply.f.(list.x2)))..........(y1 |
| 0240 | 20 28 61 70 70 6c 79 20 66 20 28 6c 69 73 74 20 78 31 29 29 29 29 0a 20 20 20 20 28 2f 20 28 2d | .(apply.f.(list.x1)))).....(/.(- |
| 0260 | 20 79 32 20 79 31 29 0a 20 20 20 20 20 20 20 28 2d 20 78 32 20 78 31 29 29 29 29 0a 0a 28 64 65 | .y2.y1)........(-.x2.x1))))..(de |
| 0280 | 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 28 66 20 78 20 | fun.backward-derivative-at.(f.x. |
| 02a0 | 26 6f 70 74 69 6f 6e 61 6c 20 28 64 65 6c 74 61 20 30 2e 30 31 29 29 0a 20 20 28 6c 65 74 2a 20 | &optional.(delta.0.01))...(let*. |
| 02c0 | 28 28 78 32 20 78 29 0a 20 20 20 20 20 20 20 20 20 28 78 31 20 28 2d 20 78 20 64 65 6c 74 61 29 | ((x2.x)..........(x1.(-.x.delta) |
| 02e0 | 29 0a 20 20 20 20 20 20 20 20 20 28 79 32 20 28 61 70 70 6c 79 20 66 20 28 6c 69 73 74 20 78 32 | )..........(y2.(apply.f.(list.x2 |
| 0300 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 79 31 20 28 61 70 70 6c 79 20 66 20 28 6c 69 73 74 20 | )))..........(y1.(apply.f.(list. |
| 0320 | 78 31 29 29 29 29 0a 20 20 20 20 28 2f 20 28 2d 20 79 32 20 79 31 29 0a 20 20 20 20 20 20 20 28 | x1)))).....(/.(-.y2.y1)........( |
| 0340 | 2d 20 78 32 20 78 31 29 29 29 29 0a 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 | -.x2.x1)))).....#1/28........... |
| 0360 | 31 36 39 36 39 30 38 31 32 33 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696908123..501...20....100644.. |
| 0380 | 33 32 34 20 20 20 20 20 20 20 60 0a 61 70 70 72 6f 78 2c 6d 61 63 65 70 73 2e 6c 69 73 70 00 00 | 324.......`.approx,maceps.lisp.. |
| 03a0 | 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 61 70 70 72 | ........(in-package.:lizfcm.appr |
| 03c0 | 6f 78 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 75 74 65 2d 6d 61 63 65 70 73 20 28 66 20 61 20 | ox)..(defun.compute-maceps.(f.a. |
| 03e0 | 69 6e 69 74 29 0a 20 20 28 6c 65 74 20 28 28 68 20 69 6e 69 74 29 0a 20 20 20 20 20 20 20 20 28 | init)...(let.((h.init).........( |
| 0400 | 65 72 72 20 69 6e 69 74 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 63 6f 6c 6c 65 63 74 20 28 6c 69 | err.init)).....(loop.collect.(li |
| 0420 | 73 74 20 61 20 68 20 65 72 72 29 0a 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 | st.a.h.err)...........do........ |
| 0440 | 20 20 20 28 73 65 74 66 20 68 20 28 2f 20 68 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(setf.h.(/.h.2).............. |
| 0460 | 20 20 20 65 72 72 20 28 61 62 73 20 28 2d 20 28 66 75 6e 63 61 6c 6c 20 66 20 28 2b 20 61 20 68 | ...err.(abs.(-.(funcall.f.(+.a.h |
| 0480 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )).............................( |
| 04a0 | 66 75 6e 63 61 6c 6c 20 66 20 61 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 | funcall.f.a))))...........while. |
| 04c0 | 28 3e 20 65 72 72 20 30 29 29 29 29 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 | (>.err.0))))....#1/28........... |
| 04e0 | 31 36 39 36 39 30 38 39 39 39 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696908999..501...20....100644.. |
| 0500 | 32 32 38 20 20 20 20 20 20 20 60 0a 61 70 70 72 6f 78 2c 70 61 63 6b 61 67 65 2e 6c 69 73 70 00 | 228.......`.approx,package.lisp. |
| 0520 | 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 63 6c 2d 75 73 65 72 29 0a 28 64 | ........(in-package.:cl-user).(d |
| 0540 | 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 0a 20 20 28 3a 75 73 65 20 | efpackage.lizfcm.approx...(:use. |
| 0560 | 3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a 63 65 6e 74 72 61 6c 2d 64 65 72 69 76 61 74 | :cl)...(:export.:central-derivat |
| 0580 | 69 76 65 2d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 77 61 72 64 2d 64 65 72 69 76 | ive-at............:forward-deriv |
| 05a0 | 61 74 69 76 65 2d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 62 61 63 6b 77 61 72 64 2d 64 65 | ative-at............:backward-de |
| 05c0 | 72 69 76 61 74 69 76 65 2d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 75 74 65 2d | rivative-at............:compute- |
| 05e0 | 6d 61 63 65 70 73 29 29 0a 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20 | maceps))........#1/20........... |
| 0600 | 31 36 39 36 39 36 39 32 37 32 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696969272..501...20....100644.. |
| 0620 | 31 35 35 36 20 20 20 20 20 20 60 0a 6c 69 7a 66 63 6d 2e 61 73 64 00 00 00 00 00 00 00 00 00 00 | 1556......`.lizfcm.asd.......... |
| 0640 | 28 61 73 64 66 3a 64 65 66 73 79 73 74 65 6d 20 22 6c 69 7a 66 63 6d 22 0a 20 20 20 20 20 20 20 | (asdf:defsystem."lizfcm"........ |
| 0660 | 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 22 30 2e 31 2e 30 22 0a 20 20 20 20 20 20 | .........:version."0.1.0"....... |
| 0680 | 20 20 20 20 20 20 20 20 20 20 3a 61 75 74 68 6f 72 20 22 45 6c 69 7a 61 62 65 74 68 20 48 75 6e | ..........:author."Elizabeth.Hun |
| 06a0 | 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 63 65 6e 73 65 20 22 4d 49 54 | t".................:license."MIT |
| 06c0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 6f 6e 65 6e 74 73 0a 20 20 | ".................:components... |
| 06e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 69 6c 65 20 22 75 74 69 6c 73 2c 77 69 74 | ..............((:file."utils,wit |
| 0700 | 68 69 6e 2d 72 61 6e 67 65 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 75 74 69 6c 73 2c 70 | hin-range".:depends-on.("utils,p |
| 0720 | 61 63 6b 61 67 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c | ackage"))..................(:fil |
| 0740 | 65 20 22 75 74 69 6c 73 2c 74 61 62 6c 65 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 75 74 | e."utils,table".:depends-on.("ut |
| 0760 | 69 6c 73 2c 70 61 63 6b 61 67 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ils,package")).................. |
| 0780 | 28 3a 66 69 6c 65 20 22 75 74 69 6c 73 2c 70 61 63 6b 61 67 65 22 29 0a 20 20 20 20 20 20 20 20 | (:file."utils,package")......... |
| 07a0 | 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 61 70 70 72 6f 78 2c 6d 61 63 65 70 73 22 20 | .........(:file."approx,maceps". |
| 07c0 | 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 61 70 70 72 6f 78 2c 70 61 63 6b 61 67 65 22 29 29 0a | :depends-on.("approx,package")). |
| 07e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 61 70 70 72 6f 78 2c | .................(:file."approx, |
| 0800 | 64 65 72 69 76 61 74 69 76 65 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 61 70 70 72 6f 78 | derivative".:depends-on.("approx |
| 0820 | 2c 70 61 63 6b 61 67 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 | ,package"))..................(:f |
| 0840 | 69 6c 65 20 22 61 70 70 72 6f 78 2c 70 61 63 6b 61 67 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ile."approx,package")........... |
| 0860 | 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 76 65 63 74 6f 72 2c 6c 65 61 73 74 2d 73 71 75 61 | .......(:file."vector,least-squa |
| 0880 | 72 65 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 76 | res")..................(:file."v |
| 08a0 | 65 63 74 6f 72 2c 64 69 73 74 61 6e 63 65 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 76 65 | ector,distance".:depends-on.("ve |
| 08c0 | 63 74 6f 72 2c 6e 6f 72 6d 22 20 22 76 65 63 74 6f 72 2c 70 61 63 6b 61 67 65 22 29 29 0a 20 20 | ctor,norm"."vector,package"))... |
| 08e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 76 65 63 74 6f 72 2c 6e 6f | ...............(:file."vector,no |
| 0900 | 72 6d 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 76 65 63 74 6f 72 2c 70 61 63 6b 61 67 65 | rm".:depends-on.("vector,package |
| 0920 | 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 76 65 63 | "))..................(:file."vec |
| 0940 | 74 6f 72 2c 70 61 63 6b 61 67 65 22 29 29 29 0a 0a 0a 28 61 73 64 66 3a 64 65 66 73 79 73 74 65 | tor,package")))...(asdf:defsyste |
| 0960 | 6d 20 22 6c 69 7a 66 63 6d 2f 74 65 73 74 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m."lizfcm/tests"................ |
| 0980 | 20 3a 61 75 74 68 6f 72 20 22 45 6c 69 7a 61 62 65 74 68 20 48 75 6e 74 22 0a 20 20 20 20 20 20 | .:author."Elizabeth.Hunt"....... |
| 09a0 | 20 20 20 20 20 20 20 20 20 20 3a 6c 69 63 65 6e 73 65 20 22 4d 49 54 22 0a 20 20 20 20 20 20 20 | ..........:license."MIT"........ |
| 09c0 | 20 20 20 20 20 20 20 20 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .........:depends-on............ |
| 09e0 | 20 20 20 20 20 28 3a 66 69 76 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(:fiveam................... |
| 0a00 | 3a 6c 69 7a 66 63 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 6f 6e | :lizfcm).................:compon |
| 0a20 | 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 69 6c 65 20 22 74 65 | ents.................((:file."te |
| 0a40 | 73 74 73 2c 74 61 62 6c 65 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 74 65 73 74 73 2c 73 | sts,table".:depends-on.("tests,s |
| 0a60 | 75 69 74 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 | uite"))..................(:file. |
| 0a80 | 22 74 65 73 74 73 2c 6d 61 63 65 70 73 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 74 65 73 | "tests,maceps".:depends-on.("tes |
| 0aa0 | 74 73 2c 73 75 69 74 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 | ts,suite"))..................(:f |
| 0ac0 | 69 6c 65 20 22 74 65 73 74 73 2c 61 70 70 72 6f 78 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 | ile."tests,approx".:depends-on.( |
| 0ae0 | 22 74 65 73 74 73 2c 73 75 69 74 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "tests,suite"))................. |
| 0b00 | 20 28 3a 66 69 6c 65 20 22 74 65 73 74 73 2c 76 65 63 74 6f 72 22 20 3a 64 65 70 65 6e 64 73 2d | .(:file."tests,vector".:depends- |
| 0b20 | 6f 6e 20 28 22 74 65 73 74 73 2c 73 75 69 74 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | on.("tests,suite"))............. |
| 0b40 | 20 20 20 20 20 28 3a 66 69 6c 65 20 22 74 65 73 74 73 2c 73 75 69 74 65 22 29 29 0a 20 20 20 20 | .....(:file."tests,suite"))..... |
| 0b60 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 65 72 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 | ............:perform............ |
| 0b80 | 20 20 20 20 20 28 61 73 64 66 3a 74 65 73 74 2d 6f 70 20 28 6f 20 63 29 20 28 75 69 6f 70 3a 73 | .....(asdf:test-op.(o.c).(uiop:s |
| 0ba0 | 79 6d 62 6f 6c 2d 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ymbol-call...................... |
| 0bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 76 65 61 6d 20 3a 72 75 6e 21 0a 20 | .................:fiveam.:run!.. |
| 0be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 0c00 | 20 20 20 20 20 28 75 69 6f 70 3a 66 69 6e 64 2d 73 79 6d 62 6f 6c 2a 20 3a 6c 69 7a 66 63 6d 2d | .....(uiop:find-symbol*.:lizfcm- |
| 0c20 | 74 65 73 74 2d 73 75 69 74 65 20 3a 6c 69 7a 66 63 6d 2f 74 65 73 74 73 29 29 29 29 0a 0a 0a 0a | test-suite.:lizfcm/tests)))).... |
| 0c40 | 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 39 38 36 20 20 35 30 31 20 | #1/28...........1696908986..501. |
| 0c60 | 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 31 33 39 36 20 20 20 20 20 20 60 0a 74 65 73 74 | ..20....100644..1396......`.test |
| 0c80 | 73 2c 61 70 70 72 6f 78 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 28 64 65 66 70 61 63 6b | s,approx.lisp...........(defpack |
| 0ca0 | 61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 61 70 70 72 6f 78 0a 20 20 28 3a 75 73 65 20 | age.lizfcm/tests.approx...(:use. |
| 0cc0 | 3a 63 6c 0a 20 20 20 20 20 20 20 20 3a 66 69 76 65 61 6d 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a | :cl.........:fiveam.........:liz |
| 0ce0 | 66 63 6d 2e 61 70 70 72 6f 78 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 | fcm.approx.........:lizfcm.utils |
| 0d00 | 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2f 74 65 73 74 73 29 0a 20 20 28 3a 65 78 70 6f | .........:lizfcm/tests)...(:expo |
| 0d20 | 72 74 20 3a 61 70 70 72 6f 78 2d 73 75 69 74 65 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a | rt.:approx-suite)).(in-package.: |
| 0d40 | 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 61 70 70 72 6f 78 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 | lizfcm/tests.approx)..(def-suite |
| 0d60 | 20 61 70 70 72 6f 78 2d 73 75 69 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 20 6c 69 7a | .approx-suite............:in.liz |
| 0d80 | 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 29 0a 28 69 6e 2d 73 75 69 74 65 20 61 70 70 72 6f 78 | fcm-test-suite).(in-suite.approx |
| 0da0 | 2d 73 75 69 74 65 29 0a 0a 28 74 65 73 74 20 63 65 6e 74 72 61 6c 2d 64 65 72 69 76 61 74 69 76 | -suite)..(test.central-derivativ |
| 0dc0 | 65 2d 61 74 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 64 65 72 69 76 61 74 | e-at.......:description."derivat |
| 0de0 | 69 76 65 20 61 74 20 69 73 20 77 69 74 68 69 6e 20 62 6f 75 6e 64 73 22 0a 20 20 20 20 20 20 28 | ive.at.is.within.bounds".......( |
| 0e00 | 6c 65 74 20 28 28 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 2a 20 78 20 78 29 29 29 0a 20 20 | let.((f.(lambda.(x).(*.x.x)))... |
| 0e20 | 20 20 20 20 20 20 20 20 20 20 28 78 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 63 | ..........(x.2).............(acc |
| 0e40 | 65 70 74 65 64 2d 64 65 6c 74 61 20 30 2e 30 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | epted-delta.0.02).............(f |
| 0e60 | 2d 70 72 69 6d 65 2d 61 74 2d 78 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 74 | -prime-at-x.4).............(delt |
| 0e80 | 61 20 30 2e 30 31 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 61 6e | a.0.01)).........(is.(within-ran |
| 0ea0 | 67 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 65 6e 74 72 61 6c 2d 64 65 72 69 | ge-p...............(central-deri |
| 0ec0 | 76 61 74 69 76 65 2d 61 74 20 66 20 78 20 64 65 6c 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 | vative-at.f.x.delta)............ |
| 0ee0 | 20 20 20 66 2d 70 72 69 6d 65 2d 61 74 2d 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 63 | ...f-prime-at-x...............ac |
| 0f00 | 63 65 70 74 65 64 2d 64 65 6c 74 61 29 29 29 29 0a 0a 28 74 65 73 74 20 66 77 64 2d 64 65 72 69 | cepted-delta))))..(test.fwd-deri |
| 0f20 | 76 61 74 69 76 65 2d 61 74 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 66 6f | vative-at.......:description."fo |
| 0f40 | 72 77 61 72 64 20 64 65 72 69 76 61 74 69 76 65 20 61 74 20 69 73 20 77 69 74 68 69 6e 20 62 6f | rward.derivative.at.is.within.bo |
| 0f60 | 75 6e 64 73 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 6c 61 6d 62 64 61 20 28 78 29 | unds".......(let.((f.(lambda.(x) |
| 0f80 | 20 28 2a 20 78 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 78 20 32 29 0a 20 20 20 | .(*.x.x))).............(x.2).... |
| 0fa0 | 20 20 20 20 20 20 20 20 20 28 61 63 63 65 70 74 65 64 2d 64 65 6c 74 61 20 30 2e 30 32 29 0a 20 | .........(accepted-delta.0.02).. |
| 0fc0 | 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 70 72 69 6d 65 2d 61 74 2d 78 20 34 29 0a 20 20 20 20 | ...........(f-prime-at-x.4)..... |
| 0fe0 | 20 20 20 20 20 20 20 20 28 64 65 6c 74 61 20 30 2e 30 31 29 29 0a 20 20 20 20 20 20 20 20 28 69 | ........(delta.0.01)).........(i |
| 1000 | 73 20 28 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.(within-range-p............... |
| 1020 | 28 66 6f 72 77 61 72 64 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 66 20 78 20 64 65 6c 74 61 | (forward-derivative-at.f.x.delta |
| 1040 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 2d 70 72 69 6d 65 2d 61 74 2d 78 0a 20 20 20 | )...............f-prime-at-x.... |
| 1060 | 20 20 20 20 20 20 20 20 20 20 20 61 63 63 65 70 74 65 64 2d 64 65 6c 74 61 29 29 29 29 0a 0a 28 | ...........accepted-delta))))..( |
| 1080 | 74 65 73 74 20 62 77 64 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 0a 20 20 20 20 20 20 3a 64 65 | test.bwd-derivative-at.......:de |
| 10a0 | 73 63 72 69 70 74 69 6f 6e 20 22 62 61 63 6b 77 61 72 64 20 64 65 72 69 76 61 74 69 76 65 20 61 | scription."backward.derivative.a |
| 10c0 | 74 20 69 73 20 77 69 74 68 69 6e 20 62 6f 75 6e 64 73 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | t.is.within.bounds".......(let.( |
| 10e0 | 28 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 2a 20 78 20 78 29 29 29 0a 20 20 20 20 20 20 20 | (f.(lambda.(x).(*.x.x)))........ |
| 1100 | 20 20 20 20 20 28 78 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 63 65 70 74 65 64 | .....(x.2).............(accepted |
| 1120 | 2d 64 65 6c 74 61 20 30 2e 30 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 70 72 69 6d | -delta.0.02).............(f-prim |
| 1140 | 65 2d 61 74 2d 78 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 74 61 20 30 2e 30 | e-at-x.4).............(delta.0.0 |
| 1160 | 31 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 0a | 1)).........(is.(within-range-p. |
| 1180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 64 65 72 69 76 61 74 69 | ..............(backward-derivati |
| 11a0 | 76 65 2d 61 74 20 66 20 78 20 64 65 6c 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | ve-at.f.x.delta)...............f |
| 11c0 | 2d 70 72 69 6d 65 2d 61 74 2d 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 63 63 65 70 74 | -prime-at-x...............accept |
| 11e0 | 65 64 2d 64 65 6c 74 61 29 29 29 29 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 | ed-delta))))....#1/28........... |
| 1200 | 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696908124..501...20....100644.. |
| 1220 | 31 30 39 32 20 20 20 20 20 20 60 0a 74 65 73 74 73 2c 6d 61 63 65 70 73 2e 6c 69 73 70 00 00 00 | 1092......`.tests,maceps.lisp... |
| 1240 | 00 00 00 00 00 00 00 00 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 | ........(defpackage.lizfcm/tests |
| 1260 | 2e 6d 61 63 65 70 73 0a 20 20 28 3a 75 73 65 20 3a 63 6c 0a 20 20 20 20 20 20 20 20 3a 66 69 76 | .maceps...(:use.:cl.........:fiv |
| 1280 | 65 61 6d 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 0a 20 20 20 20 20 | eam.........:lizfcm.approx...... |
| 12a0 | 20 20 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d | ...:lizfcm.utils.........:lizfcm |
| 12c0 | 2f 74 65 73 74 73 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a 61 70 70 72 6f 78 2d 73 75 69 74 65 | /tests)...(:export.:approx-suite |
| 12e0 | 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 6d 61 63 | )).(in-package.:lizfcm/tests.mac |
| 1300 | 65 70 73 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 20 6d 61 63 65 70 73 2d 73 75 69 74 65 0a 20 20 | eps)..(def-suite.maceps-suite... |
| 1320 | 20 20 20 20 20 20 20 20 20 3a 69 6e 20 6c 69 7a 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 29 0a | .........:in.lizfcm-test-suite). |
| 1340 | 28 69 6e 2d 73 75 69 74 65 20 6d 61 63 65 70 73 2d 73 75 69 74 65 29 0a 0a 28 74 65 73 74 20 6d | (in-suite.maceps-suite)..(test.m |
| 1360 | 61 63 65 70 73 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 64 6f 75 62 6c 65 | aceps.......:description."double |
| 1380 | 20 70 72 65 63 69 73 69 6f 6e 20 70 72 6f 76 69 64 65 73 20 70 72 65 63 69 73 69 6f 6e 20 61 62 | .precision.provides.precision.ab |
| 13a0 | 6f 75 74 20 28 6d 61 63 20 65 70 73 20 6f 66 20 73 69 6e 67 6c 65 20 70 72 65 63 69 73 69 6f 6e | out.(mac.eps.of.single.precision |
| 13c0 | 29 20 73 71 75 61 72 65 64 22 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 61 63 65 70 73 2d | ).squared".......(let*.((maceps- |
| 13e0 | 63 6f 6d 70 75 74 61 74 69 6f 6e 2d 64 6f 75 62 6c 65 20 28 63 6f 6d 70 75 74 65 2d 6d 61 63 65 | computation-double.(compute-mace |
| 1400 | 70 73 20 28 6c 61 6d 62 64 61 20 28 78 29 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ps.(lambda.(x).x)............... |
| 1420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1440 | 20 20 20 20 20 20 20 20 20 20 31 2e 30 64 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........1.0d0................. |
| 1460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1480 | 20 20 20 20 20 20 20 20 31 2e 30 64 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 | ........1.0d0))..............(ma |
| 14a0 | 63 65 70 73 2d 63 6f 6d 70 75 74 61 74 69 6f 6e 2d 73 69 6e 67 6c 65 20 28 63 6f 6d 70 75 74 65 | ceps-computation-single.(compute |
| 14c0 | 2d 6d 61 63 65 70 73 20 28 6c 61 6d 62 64 61 20 28 78 29 20 78 29 0a 20 20 20 20 20 20 20 20 20 | -maceps.(lambda.(x).x).......... |
| 14e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............1.0.............. |
| 1520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1540 | 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ...........1.0))..............(l |
| 1560 | 61 73 74 2d 64 6f 75 62 6c 65 2d 68 20 28 63 61 64 61 72 20 28 6c 61 73 74 20 6d 61 63 65 70 73 | ast-double-h.(cadar.(last.maceps |
| 1580 | 2d 63 6f 6d 70 75 74 61 74 69 6f 6e 2d 64 6f 75 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | -computation-double))).......... |
| 15a0 | 20 20 20 20 28 6c 61 73 74 2d 73 69 6e 67 6c 65 2d 68 20 28 63 61 64 61 72 20 28 6c 61 73 74 20 | ....(last-single-h.(cadar.(last. |
| 15c0 | 6d 61 63 65 70 73 2d 63 6f 6d 70 75 74 61 74 69 6f 6e 2d 73 69 6e 67 6c 65 29 29 29 29 0a 20 20 | maceps-computation-single))))... |
| 15e0 | 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 0a 20 20 20 20 20 20 | ......(is.(within-range-p....... |
| 1600 | 20 20 20 20 20 20 20 20 28 2d 20 6c 61 73 74 2d 64 6f 75 62 6c 65 2d 68 20 28 2a 20 6c 61 73 74 | ........(-.last-double-h.(*.last |
| 1620 | 2d 73 69 6e 67 6c 65 2d 68 20 6c 61 73 74 2d 73 69 6e 67 6c 65 2d 68 29 29 0a 20 20 20 20 20 20 | -single-h.last-single-h))....... |
| 1640 | 20 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 2d 73 69 6e | ........0...............last-sin |
| 1660 | 67 6c 65 2d 68 29 29 29 29 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20 | gle-h)))).......#1/20........... |
| 1680 | 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696908124..501...20....100644.. |
| 16a0 | 32 36 30 20 20 20 20 20 20 20 60 0a 74 65 73 74 73 2c 73 75 69 74 65 2e 6c 69 73 70 00 00 00 00 | 260.......`.tests,suite.lisp.... |
| 16c0 | 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 63 6c 2d 75 73 65 72 29 0a 28 64 65 66 70 61 63 6b 61 67 | (in-package.:cl-user).(defpackag |
| 16e0 | 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 0a 20 20 28 3a 75 73 65 20 3a 63 6c 0a 20 20 20 20 20 | e.lizfcm/tests...(:use.:cl...... |
| 1700 | 20 20 20 3a 66 69 76 65 61 6d 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a 72 75 6e 21 0a 20 20 20 | ...:fiveam)...(:export.:run!.... |
| 1720 | 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 29 29 0a 28 69 6e | ........:lizfcm-test-suite)).(in |
| 1740 | 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2f 74 65 73 74 73 29 0a 0a 28 64 65 66 2d 73 75 | -package.:lizfcm/tests)..(def-su |
| 1760 | 69 74 65 20 6c 69 7a 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 0a 20 20 20 20 3a 64 65 73 63 72 | ite.lizfcm-test-suite.....:descr |
| 1780 | 69 70 74 69 6f 6e 20 22 54 68 65 20 75 6c 74 69 6d 61 74 65 20 70 61 72 65 6e 74 20 74 65 73 74 | iption."The.ultimate.parent.test |
| 17a0 | 20 73 75 69 74 65 22 29 0a 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20 | .suite")........#1/20........... |
| 17c0 | 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696908124..501...20....100644.. |
| 17e0 | 39 39 36 20 20 20 20 20 20 20 60 0a 74 65 73 74 73 2c 74 61 62 6c 65 2e 6c 69 73 70 00 00 00 00 | 996.......`.tests,table.lisp.... |
| 1800 | 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 74 61 62 6c 65 0a 20 | (defpackage.lizfcm/tests.table.. |
| 1820 | 20 28 3a 75 73 65 20 3a 63 6c 0a 20 20 20 20 20 20 20 20 3a 66 69 76 65 61 6d 0a 20 20 20 20 20 | .(:use.:cl.........:fiveam...... |
| 1840 | 20 20 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d | ...:lizfcm.utils.........:lizfcm |
| 1860 | 2f 74 65 73 74 73 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a 61 70 70 72 6f 78 2d 73 75 69 74 65 | /tests)...(:export.:approx-suite |
| 1880 | 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 74 61 62 | )).(in-package.:lizfcm/tests.tab |
| 18a0 | 6c 65 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 20 74 61 62 6c 65 2d 73 75 69 74 65 0a 20 20 20 20 | le)..(def-suite.table-suite..... |
| 18c0 | 20 20 20 20 20 20 20 3a 69 6e 20 6c 69 7a 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 29 0a 28 69 | .......:in.lizfcm-test-suite).(i |
| 18e0 | 6e 2d 73 75 69 74 65 20 74 61 62 6c 65 2d 73 75 69 74 65 29 0a 0a 28 64 65 66 75 6e 20 66 69 62 | n-suite.table-suite)..(defun.fib |
| 1900 | 20 28 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 3c 20 6e 20 32 29 20 6e 29 0a 20 20 20 20 20 20 20 | .(n)...(cond.((<.n.2).n)........ |
| 1920 | 20 28 74 20 28 2b 20 28 66 69 62 20 28 2d 20 6e 20 31 29 29 20 28 66 69 62 20 28 2d 20 6e 20 32 | .(t.(+.(fib.(-.n.1)).(fib.(-.n.2 |
| 1940 | 29 29 29 29 29 29 0a 0a 28 74 65 73 74 20 74 61 62 6c 65 2d 6f 66 2d 66 69 62 2d 76 61 6c 73 0a | ))))))..(test.table-of-fib-vals. |
| 1960 | 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 74 61 62 6c 65 20 67 65 6e 65 72 61 | ......:description."table.genera |
| 1980 | 74 65 73 20 63 6f 72 72 65 63 74 6c 79 22 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 68 65 61 | tes.correctly".......(let*.((hea |
| 19a0 | 64 65 72 73 20 27 28 22 6e 22 20 22 66 69 62 28 6e 29 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ders.'("n"."fib(n)"))........... |
| 19c0 | 20 20 20 28 6e 2d 76 61 6c 75 65 73 20 27 28 28 31 29 20 28 32 29 20 28 33 29 20 28 34 29 29 29 | ...(n-values.'((1).(2).(3).(4))) |
| 19e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 65 63 74 65 64 20 60 28 28 22 6e 22 20 22 | ..............(expected.`(("n"." |
| 1a00 | 66 69 62 28 6e 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fib(n)")........................ |
| 1a20 | 20 20 28 31 20 2c 28 66 69 62 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(1.,(fib.1)).................. |
| 1a40 | 20 20 20 20 20 20 20 20 28 32 20 2c 28 66 69 62 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(2.,(fib.2))............ |
| 1a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 33 20 2c 28 66 69 62 20 33 29 29 0a 20 20 20 20 20 | ..............(3.,(fib.3))...... |
| 1a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 34 20 2c 28 66 69 62 20 34 29 29 | ....................(4.,(fib.4)) |
| 1aa0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 65 64 20 28 6c 69 7a 66 63 6d 2e | ))..............(tabled.(lizfcm. |
| 1ac0 | 75 74 69 6c 73 3a 74 61 62 6c 65 20 28 3a 68 65 61 64 65 72 73 20 68 65 61 64 65 72 73 0a 20 20 | utils:table.(:headers.headers... |
| 1ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 6d 61 69 6e 2d 6f 72 64 65 72 20 28 | .................:domain-order.( |
| 1b20 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n).............................. |
| 1b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 6d 61 69 6e 2d 76 61 | ......................:domain-va |
| 1b60 | 6c 75 65 73 20 6e 2d 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lues.n-values).................. |
| 1b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 62 20 6e 29 29 | ........................(fib.n)) |
| 1ba0 | 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 65 71 75 61 6c 20 65 78 70 65 63 74 65 64 20 74 | )).........(is.(equal.expected.t |
| 1bc0 | 61 62 6c 65 64 29 29 29 29 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 | abled)))).......#1/28........... |
| 1be0 | 31 36 39 36 39 37 30 35 32 31 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696970521..501...20....100644.. |
| 1c00 | 31 33 35 36 20 20 20 20 20 20 60 0a 74 65 73 74 73 2c 76 65 63 74 6f 72 2e 6c 69 73 70 00 00 00 | 1356......`.tests,vector.lisp... |
| 1c20 | 00 00 00 00 00 00 00 00 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 | ........(defpackage.lizfcm/tests |
| 1c40 | 2e 76 65 63 74 6f 72 0a 20 20 28 3a 75 73 65 20 3a 63 6c 0a 20 20 20 20 20 20 20 20 3a 66 69 76 | .vector...(:use.:cl.........:fiv |
| 1c60 | 65 61 6d 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 0a 20 20 20 20 20 | eam.........:lizfcm.vector...... |
| 1c80 | 20 20 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d | ...:lizfcm.utils.........:lizfcm |
| 1ca0 | 2f 74 65 73 74 73 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a 76 65 63 74 6f 72 2d 73 75 69 74 65 | /tests)...(:export.:vector-suite |
| 1cc0 | 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 76 65 63 | )).(in-package.:lizfcm/tests.vec |
| 1ce0 | 74 6f 72 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 20 76 65 63 74 6f 72 2d 73 75 69 74 65 0a 20 20 | tor)..(def-suite.vector-suite... |
| 1d00 | 20 20 20 20 20 20 20 20 20 3a 69 6e 20 6c 69 7a 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 29 0a | .........:in.lizfcm-test-suite). |
| 1d20 | 28 69 6e 2d 73 75 69 74 65 20 76 65 63 74 6f 72 2d 73 75 69 74 65 29 0a 0a 28 74 65 73 74 20 70 | (in-suite.vector-suite)..(test.p |
| 1d40 | 2d 6e 6f 72 6d 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 63 6f 6d 70 75 74 | -norm.......:description."comput |
| 1d60 | 65 73 20 70 2d 6e 6f 72 6d 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 20 27 28 31 20 31 29 | es.p-norm".......(let.((v.'(1.1) |
| 1d80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 73 71 72 74 20 32 29 29 0a | ).............(length.(sqrt.2)). |
| 1da0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 32 2d 6e 6f 72 6d 20 28 70 2d 6e 6f 72 6d 20 32 29 29 29 | ............(2-norm.(p-norm.2))) |
| 1dc0 | 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 20 28 66 75 | .........(is.(within-range-p.(fu |
| 1de0 | 6e 63 61 6c 6c 20 32 2d 6e 6f 72 6d 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ncall.2-norm.v)................. |
| 1e00 | 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............length.............. |
| 1e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 30 30 30 30 31 29 29 29 29 0a 0a 28 74 65 73 | ...............0.00001))))..(tes |
| 1e40 | 74 20 76 65 63 74 6f 72 2d 64 69 73 74 61 6e 63 65 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 | t.vector-distance.......:descrip |
| 1e60 | 74 69 6f 6e 20 22 63 6f 6d 70 75 74 65 73 20 64 69 73 74 61 6e 63 65 20 76 69 61 20 6e 6f 72 6d | tion."computes.distance.via.norm |
| 1e80 | 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 31 20 27 28 30 20 30 29 29 0a 20 20 20 20 20 20 | ".......(let.((v1.'(0.0))....... |
| 1ea0 | 20 20 20 20 20 20 28 76 32 20 27 28 31 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ......(v2.'(1.1)).............(d |
| 1ec0 | 69 73 74 20 28 73 71 72 74 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 | ist.(sqrt.2))).........(is.(with |
| 1ee0 | 69 6e 2d 72 61 6e 67 65 2d 70 20 28 64 69 73 74 61 6e 63 65 20 76 31 20 76 32 20 28 70 2d 6e 6f | in-range-p.(distance.v1.v2.(p-no |
| 1f00 | 72 6d 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rm.2)).......................... |
| 1f20 | 20 20 20 64 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...dist......................... |
| 1f40 | 20 20 20 20 30 2e 30 30 30 30 31 29 29 29 29 0a 0a 28 74 65 73 74 20 6c 65 61 73 74 2d 73 71 75 | ....0.00001))))..(test.least-squ |
| 1f60 | 61 72 65 73 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 6c 65 61 73 74 20 73 | ares.......:description."least.s |
| 1f80 | 71 75 61 72 65 73 20 69 73 20 63 6f 72 72 65 63 74 20 65 6e 6f 75 67 68 22 0a 20 20 20 20 20 20 | quares.is.correct.enough"....... |
| 1fa0 | 28 6c 65 74 20 28 28 78 20 27 28 30 20 31 20 32 20 33 20 34 29 29 0a 20 20 20 20 20 20 20 20 20 | (let.((x.'(0.1.2.3.4)).......... |
| 1fc0 | 20 20 20 28 79 20 27 28 31 20 32 20 33 20 34 20 35 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 | ...(y.'(1.2.3.4.5))).........(de |
| 1fe0 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6d 20 62 29 20 28 6c 69 7a 66 63 6d 2e 76 | structuring-bind.(m.b).(lizfcm.v |
| 2000 | 65 63 74 6f 72 3a 6c 65 61 73 74 2d 73 71 75 61 72 65 73 2d 72 65 67 20 78 20 79 29 0a 20 20 20 | ector:least-squares-reg.x.y).... |
| 2020 | 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 20 6d 20 31 20 30 | .......(is.(within-range-p.m.1.0 |
| 2040 | 2e 30 30 30 30 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 | .00001))...........(is.(within-r |
| 2060 | 61 6e 67 65 2d 70 20 62 20 31 20 30 2e 30 30 30 30 31 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 | ange-p.b.1.0.00001)))).......(le |
| 2080 | 74 20 28 28 78 20 27 28 31 20 32 20 33 20 34 20 35 20 36 20 37 29 29 0a 20 20 20 20 20 20 20 20 | t.((x.'(1.2.3.4.5.6.7))......... |
| 20a0 | 20 20 20 20 28 79 20 27 28 30 2e 35 20 33 20 32 20 33 2e 35 20 35 20 36 20 37 2e 35 29 29 29 0a | ....(y.'(0.5.3.2.3.5.5.6.7.5))). |
| 20c0 | 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6d 20 62 | ........(destructuring-bind.(m.b |
| 20e0 | 29 20 28 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 6c 65 61 73 74 2d 73 71 75 61 72 65 73 2d 72 | ).(lizfcm.vector:least-squares-r |
| 2100 | 65 67 20 78 20 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69 6e 2d 72 61 | eg.x.y)...........(is.(within-ra |
| 2120 | 6e 67 65 2d 70 20 6d 20 31 20 30 2e 33 29 29 29 29 29 20 3b 3b 20 6a 75 73 74 20 61 20 67 75 65 | nge-p.m.1.0.3))))).;;.just.a.gue |
| 2140 | 73 74 69 6d 61 74 65 20 66 6f 72 20 62 65 73 74 20 66 69 74 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 | stimate.for.best.fit....#1/28... |
| 2160 | 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 32 33 20 20 35 30 31 20 20 20 32 30 20 20 20 20 | ........1696908123..501...20.... |
| 2180 | 31 30 30 36 34 34 20 20 31 34 30 20 20 20 20 20 20 20 60 0a 75 74 69 6c 73 2c 70 61 63 6b 61 67 | 100644..140.......`.utils,packag |
| 21a0 | 65 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 63 6c 2d | e.lisp..........(in-package.:cl- |
| 21c0 | 75 73 65 72 29 0a 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 0a 20 | user).(defpackage.lizfcm.utils.. |
| 21e0 | 20 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a 77 69 74 68 69 6e 2d 72 | .(:use.:cl)...(:export.:within-r |
| 2200 | 61 6e 67 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 3a 74 61 62 6c 65 29 29 0a 0a 0a 0a 0a 0a | ange-p............:table))...... |
| 2220 | 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 32 33 20 20 35 30 31 20 | #1/20...........1696908123..501. |
| 2240 | 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 33 36 34 20 20 20 20 20 20 20 60 0a 75 74 69 6c | ..20....100644..364.......`.util |
| 2260 | 73 2c 74 61 62 6c 65 2e 6c 69 73 70 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a | s,table.lisp....(in-package.:liz |
| 2280 | 66 63 6d 2e 75 74 69 6c 73 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 74 61 62 6c 65 20 28 28 26 6b | fcm.utils)..(defmacro.table.((&k |
| 22a0 | 65 79 20 68 65 61 64 65 72 73 20 64 6f 6d 61 69 6e 2d 6f 72 64 65 72 20 64 6f 6d 61 69 6e 2d 76 | ey.headers.domain-order.domain-v |
| 22c0 | 61 6c 75 65 73 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 63 6f 6e 73 0a 20 20 20 20 | alues).&body.body)...`(cons..... |
| 22e0 | 20 2c 68 65 61 64 65 72 73 0a 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 | .,headers......(mapcar.(lambda.( |
| 2300 | 74 75 70 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 | tuple)................(destructu |
| 2320 | 72 69 6e 67 2d 62 69 6e 64 20 2c 64 6f 6d 61 69 6e 2d 6f 72 64 65 72 20 74 75 70 6c 65 0a 20 20 | ring-bind.,domain-order.tuple... |
| 2340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 74 75 70 6c 65 0a 20 20 20 | ...............(append.tuple.... |
| 2360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 | ......................(list..... |
| 2380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 | .......................,@body))) |
| 23a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 64 6f 6d 61 69 6e 2d 76 61 6c 75 65 73 29 29 29 | )..............,domain-values))) |
| 23c0 | 0a 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 | ........#1/28...........16969081 |
| 23e0 | 32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 31 37 32 20 20 20 20 20 | 24..501...20....100644..172..... |
| 2400 | 20 20 60 0a 75 74 69 6c 73 2c 77 69 74 68 69 6e 2d 72 61 6e 67 65 2e 6c 69 73 70 00 00 00 00 00 | ..`.utils,within-range.lisp..... |
| 2420 | 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 29 0a 0a 28 64 65 66 | (in-package.:lizfcm.utils)..(def |
| 2440 | 75 6e 20 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 20 28 78 20 74 72 75 65 2d 76 61 6c 75 65 20 | un.within-range-p.(x.true-value. |
| 2460 | 64 65 6c 74 61 29 0a 20 20 28 61 6e 64 20 28 3c 20 78 20 28 2b 20 74 72 75 65 2d 76 61 6c 75 65 | delta)...(and.(<.x.(+.true-value |
| 2480 | 20 64 65 6c 74 61 29 29 0a 20 20 20 20 20 20 20 28 3e 20 78 20 28 2d 20 74 72 75 65 2d 76 61 6c | .delta))........(>.x.(-.true-val |
| 24a0 | 75 65 20 64 65 6c 74 61 29 29 29 29 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 | ue.delta))))....#1/28........... |
| 24c0 | 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 | 1696908124..501...20....100644.. |
| 24e0 | 31 37 32 20 20 20 20 20 20 20 60 0a 76 65 63 74 6f 72 2c 64 69 73 74 61 6e 63 65 2e 6c 69 73 70 | 172.......`.vector,distance.lisp |
| 2500 | 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 | ........(in-package.:lizfcm.vect |
| 2520 | 6f 72 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 74 61 6e 63 65 20 28 76 31 20 76 32 20 6e 6f 72 6d | or)..(defun.distance.(v1.v2.norm |
| 2540 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 20 28 6d 61 70 63 61 72 20 23 27 2d 20 76 31 20 76 32 29 | )...(let*.((d.(mapcar.#'-.v1.v2) |
| 2560 | 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 66 75 6e 63 61 6c 6c 20 6e 6f 72 6d | )..........(length.(funcall.norm |
| 2580 | 20 64 29 29 29 0a 20 20 20 20 6c 65 6e 67 74 68 29 29 0a 0a 0a 0a 0a 0a 23 31 2f 32 30 20 20 20 | .d))).....length))......#1/20... |
| 25a0 | 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 | ........1696908124..501...20.... |
| 25c0 | 31 30 30 36 34 34 20 20 33 30 30 20 20 20 20 20 20 20 60 0a 76 65 63 74 6f 72 2c 6e 6f 72 6d 2e | 100644..300.......`.vector,norm. |
| 25e0 | 6c 69 73 70 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 | lisp....(in-package.:lizfcm.vect |
| 2600 | 6f 72 29 0a 0a 28 64 65 66 75 6e 20 70 2d 6e 6f 72 6d 20 28 70 29 0a 20 20 28 6c 61 6d 62 64 61 | or)..(defun.p-norm.(p)...(lambda |
| 2620 | 20 28 76 29 0a 20 20 20 20 28 65 78 70 74 0a 20 20 20 20 20 20 28 72 65 64 75 63 65 20 23 27 2b | .(v).....(expt.......(reduce.#'+ |
| 2640 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 | ...............(mapcar.(lambda.( |
| 2660 | 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 62 73 0a | x).........................(abs. |
| 2680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 74 20 | ..........................(expt. |
| 26a0 | 78 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 29 29 | x.p))).......................v)) |
| 26c0 | 0a 20 20 20 20 20 20 28 2f 20 31 20 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 78 2d 6e 6f | .......(/.1.p))))..(defun.max-no |
| 26e0 | 72 6d 20 28 76 29 0a 20 20 28 72 65 64 75 63 65 20 23 27 6d 61 78 20 76 29 29 0a 0a 0a 0a 0a 0a | rm.(v)...(reduce.#'max.v))...... |
| 2700 | 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 36 32 32 36 38 20 20 35 30 31 20 | #1/28...........1696962268..501. |
| 2720 | 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 31 37 32 20 20 20 20 20 20 20 60 0a 76 65 63 74 | ..20....100644..172.......`.vect |
| 2740 | 6f 72 2c 70 61 63 6b 61 67 65 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b | or,package.lisp.........(in-pack |
| 2760 | 61 67 65 20 3a 63 6c 2d 75 73 65 72 29 0a 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d | age.:cl-user).(defpackage.lizfcm |
| 2780 | 2e 76 65 63 74 6f 72 0a 20 20 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 0a | .vector...(:use.:cl)...(:export. |
| 27a0 | 20 20 20 20 3a 70 2d 6e 6f 72 6d 0a 20 20 20 20 3a 6d 61 78 2d 6e 6f 72 6d 0a 20 20 20 20 3a 64 | ....:p-norm.....:max-norm.....:d |
| 27c0 | 69 73 74 61 6e 63 65 0a 20 20 20 20 3a 6c 65 61 73 74 2d 73 71 75 61 72 65 73 2d 72 65 67 29 29 | istance.....:least-squares-reg)) |
| 27e0 | 0a 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 37 30 36 | ........#1/20...........16969706 |
| 2800 | 33 39 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 31 37 33 32 20 20 20 20 | 39..501...20....100644..1732.... |
| 2820 | 20 20 60 0a 6d 61 69 6e 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 28 6c 6f 61 64 20 22 6c | ..`.main.lisp...........(load."l |
| 2840 | 69 7a 66 63 6d 2e 61 73 64 22 29 0a 28 71 6c 3a 71 75 69 63 6b 6c 6f 61 64 20 3a 6c 69 7a 66 63 | izfcm.asd").(ql:quickload.:lizfc |
| 2860 | 6d 29 0a 0a 3b 3b 20 74 68 69 73 20 69 73 20 61 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 73 68 6f 77 | m)..;;.this.is.a.collection.show |
| 2880 | 63 61 73 69 6e 67 20 74 68 65 20 6c 69 62 72 61 72 79 20 64 65 76 65 6c 6f 70 65 64 20 66 6f 72 | casing.the.library.developed.for |
| 28a0 | 20 6d 61 74 68 34 36 31 30 2c 20 72 65 71 75 69 72 65 64 0a 3b 3b 20 66 72 6f 6d 20 74 68 65 20 | .math4610,.required.;;.from.the. |
| 28c0 | 53 68 61 72 65 64 20 4c 69 62 72 61 72 79 20 64 65 66 69 6e 69 74 69 6f 6e 0a 0a 28 64 65 66 75 | Shared.Library.definition..(defu |
| 28e0 | 6e 20 73 6d 61 63 65 70 73 20 28 29 0a 20 20 28 63 61 64 61 72 20 28 6c 61 73 74 20 28 6c 69 7a | n.smaceps.()...(cadar.(last.(liz |
| 2900 | 66 63 6d 2e 61 70 70 72 6f 78 3a 63 6f 6d 70 75 74 65 2d 6d 61 63 65 70 73 0a 20 20 20 20 20 20 | fcm.approx:compute-maceps....... |
| 2920 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 78 29 20 31 2e 30 20 31 2e | ...........(lambda.(x).x).1.0.1. |
| 2940 | 30 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 6d 61 63 65 70 73 20 28 29 0a 20 20 28 63 61 64 61 | 0))))..(defun.dmaceps.()...(cada |
| 2960 | 72 20 28 6c 61 73 74 20 28 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 3a 63 6f 6d 70 75 74 65 2d 6d | r.(last.(lizfcm.approx:compute-m |
| 2980 | 61 63 65 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | aceps..................(lambda.( |
| 29a0 | 78 29 20 78 29 20 31 2e 30 64 30 20 31 2e 30 64 30 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 32 | x).x).1.0d0.1.0d0))))..(defun.l2 |
| 29c0 | 2d 6e 6f 72 6d 20 28 76 29 0a 20 20 28 6c 65 74 20 28 28 32 2d 6e 6f 72 6d 20 28 6c 69 7a 66 63 | -norm.(v)...(let.((2-norm.(lizfc |
| 29e0 | 6d 2e 76 65 63 74 6f 72 3a 70 2d 6e 6f 72 6d 20 32 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c | m.vector:p-norm.2))).....(funcal |
| 2a00 | 6c 20 32 2d 6e 6f 72 6d 20 76 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 31 2d 6e 6f 72 6d 20 28 76 | l.2-norm.v)))..(defun.l1-norm.(v |
| 2a20 | 29 0a 20 20 28 6c 65 74 20 28 28 31 2d 6e 6f 72 6d 20 28 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 | )...(let.((1-norm.(lizfcm.vector |
| 2a40 | 3a 70 2d 6e 6f 72 6d 20 31 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 31 2d 6e 6f 72 6d | :p-norm.1))).....(funcall.1-norm |
| 2a60 | 20 76 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 6e 66 2d 6e 6f 72 6d 20 28 76 29 0a 20 20 28 6c | .v)))..(defun.linf-norm.(v)...(l |
| 2a80 | 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 6d 61 78 2d 6e 6f 72 6d 20 76 29 29 0a 0a 28 64 65 66 75 | izfcm.vector:max-norm.v))..(defu |
| 2aa0 | 6e 20 6c 32 2d 64 69 73 74 61 6e 63 65 20 28 76 31 20 76 32 29 0a 20 20 28 6c 65 74 20 28 28 32 | n.l2-distance.(v1.v2)...(let.((2 |
| 2ac0 | 2d 6e 6f 72 6d 20 28 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 70 2d 6e 6f 72 6d 20 32 29 29 29 | -norm.(lizfcm.vector:p-norm.2))) |
| 2ae0 | 0a 20 20 20 20 28 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 64 69 73 74 61 6e 63 65 20 76 31 20 | .....(lizfcm.vector:distance.v1. |
| 2b00 | 76 32 20 32 2d 6e 6f 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 31 2d 64 69 73 74 61 6e 63 65 | v2.2-norm)))..(defun.l1-distance |
| 2b20 | 20 28 76 31 20 76 32 29 0a 20 20 28 6c 65 74 20 28 28 31 2d 6e 6f 72 6d 20 28 6c 69 7a 66 63 6d | .(v1.v2)...(let.((1-norm.(lizfcm |
| 2b40 | 2e 76 65 63 74 6f 72 3a 70 2d 6e 6f 72 6d 20 31 29 29 29 0a 20 20 20 20 28 6c 69 7a 66 63 6d 2e | .vector:p-norm.1))).....(lizfcm. |
| 2b60 | 76 65 63 74 6f 72 3a 64 69 73 74 61 6e 63 65 20 76 31 20 76 32 20 31 2d 6e 6f 72 6d 29 29 29 0a | vector:distance.v1.v2.1-norm))). |
| 2b80 | 0a 28 64 65 66 75 6e 20 6c 69 6e 66 2d 64 69 73 74 61 6e 63 65 20 28 76 31 20 76 32 29 0a 20 20 | .(defun.linf-distance.(v1.v2)... |
| 2ba0 | 28 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 64 69 73 74 61 6e 63 65 20 76 31 20 76 32 20 27 6c | (lizfcm.vector:distance.v1.v2.'l |
| 2bc0 | 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 6d 61 78 2d 6e 6f 72 6d 29 29 0a 0a 28 64 65 66 75 6e 20 | izfcm.vector:max-norm))..(defun. |
| 2be0 | 66 20 28 78 29 0a 20 20 28 2f 20 28 2d 20 78 20 31 29 20 28 2b 20 78 20 31 29 29 29 0a 0a 28 64 | f.(x)...(/.(-.x.1).(+.x.1)))..(d |
| 2c00 | 65 66 75 6e 20 66 70 72 69 6d 65 20 28 78 29 0a 20 20 28 2f 20 32 20 28 65 78 70 74 20 28 2b 20 | efun.fprime.(x)...(/.2.(expt.(+. |
| 2c20 | 78 20 31 29 20 32 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 68 6f 77 63 61 73 65 20 28 73 | x.1).2)))..(defmacro.showcase.(s |
| 2c40 | 2d 65 78 70 72 29 0a 20 20 60 28 66 6f 72 6d 61 74 20 74 20 22 7e 61 20 3d 20 7e 61 7e 25 22 20 | -expr)...`(format.t."~a.=.~a~%". |
| 2c60 | 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 61 22 20 73 2d 65 78 70 72 29 20 2c 73 2d 65 78 70 | ,(format.nil."~a".s-expr).,s-exp |
| 2c80 | 72 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6e 20 28 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 | r))..(defun.main.()...(showcase. |
| 2ca0 | 28 73 6d 61 63 65 70 73 29 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 64 6d 61 63 65 70 73 29 | (smaceps))...(showcase.(dmaceps) |
| 2cc0 | 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c 32 2d 6e 6f 72 6d 20 27 28 31 20 32 29 29 29 0a | )...(showcase.(l2-norm.'(1.2))). |
| 2ce0 | 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c 31 2d 6e 6f 72 6d 20 27 28 31 20 32 29 29 29 0a 20 20 | ..(showcase.(l1-norm.'(1.2)))... |
| 2d00 | 28 73 68 6f 77 63 61 73 65 20 28 6c 69 6e 66 2d 6e 6f 72 6d 20 27 28 31 20 32 29 29 29 0a 20 20 | (showcase.(linf-norm.'(1.2)))... |
| 2d20 | 28 73 68 6f 77 63 61 73 65 20 28 6c 31 2d 64 69 73 74 61 6e 63 65 20 27 28 31 20 32 29 20 27 28 | (showcase.(l1-distance.'(1.2).'( |
| 2d40 | 2d 33 20 34 29 29 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c 32 2d 64 69 73 74 61 6e 63 65 | -3.4)))...(showcase.(l2-distance |
| 2d60 | 20 27 28 31 20 32 29 20 27 28 2d 33 20 34 29 29 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c | .'(1.2).'(-3.4)))...(showcase.(l |
| 2d80 | 69 6e 66 2d 64 69 73 74 61 6e 63 65 20 27 28 31 20 32 29 20 27 28 2d 33 20 34 29 29 29 0a 20 20 | inf-distance.'(1.2).'(-3.4)))... |
| 2da0 | 28 73 68 6f 77 63 61 73 65 20 28 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 3a 6c 65 61 73 74 2d 73 | (showcase.(lizfcm.vector:least-s |
| 2dc0 | 71 75 61 72 65 73 2d 72 65 67 20 27 28 31 20 32 20 33 20 34 20 35 20 36 20 37 29 0a 20 20 20 20 | quares-reg.'(1.2.3.4.5.6.7)..... |
| 2de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e00 | 20 20 20 20 20 20 20 20 20 27 28 30 2e 35 20 33 20 32 20 33 2e 35 20 35 20 36 20 37 2e 35 29 29 | .........'(0.5.3.2.3.5.5.6.7.5)) |
| 2e20 | 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 3a 66 6f 72 | )...(showcase.(lizfcm.approx:for |
| 2e40 | 77 61 72 64 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 27 66 20 31 20 30 2e 30 30 30 30 31 29 | ward-derivative-at.'f.1.0.00001) |
| 2e60 | 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 3a 63 65 6e | )...(showcase.(lizfcm.approx:cen |
| 2e80 | 74 72 61 6c 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 27 66 20 31 20 30 2e 30 30 30 30 31 29 | tral-derivative-at.'f.1.0.00001) |
| 2ea0 | 29 0a 20 20 28 73 68 6f 77 63 61 73 65 20 28 6c 69 7a 66 63 6d 2e 61 70 70 72 6f 78 3a 62 61 63 | )...(showcase.(lizfcm.approx:bac |
| 2ec0 | 6b 77 61 72 64 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 27 66 20 31 20 30 2e 30 30 30 30 31 | kward-derivative-at.'f.1.0.00001 |
| 2ee0 | 29 29 29 0a 0a 0a 0a 0a 23 31 2f 33 36 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 36 32 32 | ))).....#1/36...........16969622 |
| 2f00 | 37 37 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 36 38 20 20 20 20 20 20 | 77..501...20....100644..68...... |
| 2f20 | 20 20 60 0a 76 65 63 74 6f 72 2c 6c 65 61 73 74 2d 73 71 75 61 72 65 73 2d 72 65 67 2e 6c 69 73 | ..`.vector,least-squares-reg.lis |
| 2f40 | 70 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 | p.......(in-package.:lizfcm.vect |
| 2f60 | 6f 72 29 0a 0a 0a 0a 0a 23 31 2f 33 36 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 36 39 33 | or).....#1/36...........16969693 |
| 2f80 | 38 38 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 35 32 34 20 20 20 20 20 | 88..501...20....100644..524..... |
| 2fa0 | 20 20 60 0a 76 65 63 74 6f 72 2c 6c 65 61 73 74 2d 73 71 75 61 72 65 73 2e 6c 69 73 70 00 00 00 | ..`.vector,least-squares.lisp... |
| 2fc0 | 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 | ........(in-package.:lizfcm.vect |
| 2fe0 | 6f 72 29 0a 0a 28 64 65 66 75 6e 20 6c 65 61 73 74 2d 73 71 75 61 72 65 73 2d 72 65 67 20 28 78 | or)..(defun.least-squares-reg.(x |
| 3000 | 20 79 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 20 28 6c 65 6e 67 74 68 20 78 29 29 0a 20 20 20 20 | .y)...(let*.((n.(length.x))..... |
| 3020 | 20 20 20 20 20 28 73 75 6d 2d 79 20 28 72 65 64 75 63 65 20 23 27 2b 20 79 29 29 0a 20 20 20 20 | .....(sum-y.(reduce.#'+.y))..... |
| 3040 | 20 20 20 20 20 28 73 75 6d 2d 78 20 28 72 65 64 75 63 65 20 23 27 2b 20 78 29 29 0a 20 20 20 20 | .....(sum-x.(reduce.#'+.x))..... |
| 3060 | 20 20 20 20 20 28 73 75 6d 2d 78 79 20 28 72 65 64 75 63 65 20 23 27 2b 20 28 6d 61 70 63 61 72 | .....(sum-xy.(reduce.#'+.(mapcar |
| 3080 | 20 23 27 2a 20 78 20 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 75 6d 2d 78 73 71 75 61 72 | .#'*.x.y)))..........(sum-xsquar |
| 30a0 | 65 64 20 28 72 65 64 75 63 65 20 23 27 2b 20 28 6d 61 70 63 61 72 20 23 27 2a 20 78 20 78 29 29 | ed.(reduce.#'+.(mapcar.#'*.x.x)) |
| 30c0 | 29 0a 20 20 20 20 20 20 20 20 20 28 62 20 28 2f 20 28 2d 20 28 2a 20 73 75 6d 2d 79 20 73 75 6d | )..........(b.(/.(-.(*.sum-y.sum |
| 30e0 | 2d 78 73 71 75 61 72 65 64 29 20 28 2a 20 73 75 6d 2d 78 20 73 75 6d 2d 78 79 29 29 0a 20 20 20 | -xsquared).(*.sum-x.sum-xy)).... |
| 3100 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 2a 20 6e 20 73 75 6d 2d 78 73 71 75 61 72 65 64 | ............(-.(*.n.sum-xsquared |
| 3120 | 29 20 28 2a 20 73 75 6d 2d 78 20 73 75 6d 2d 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 | ).(*.sum-x.sum-x))))..........(a |
| 3140 | 20 28 2f 20 28 2d 20 28 2a 20 6e 20 73 75 6d 2d 78 79 29 20 28 2a 20 73 75 6d 2d 78 20 73 75 6d | .(/.(-.(*.n.sum-xy).(*.sum-x.sum |
| 3160 | 2d 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 2a 20 6e 20 73 75 6d 2d | -y))................(-.(*.n.sum- |
| 3180 | 78 73 71 75 61 72 65 64 29 20 28 2a 20 73 75 6d 2d 78 20 73 75 6d 2d 78 29 29 29 29 29 0a 20 20 | xsquared).(*.sum-x.sum-x)))))... |
| 31a0 | 20 20 28 6c 69 73 74 20 61 20 62 29 29 29 0a 0a | ..(list.a.b))).. |
 |
index : math-4610.git | |
| fundamentals of numerical analysis |
| summaryrefslogtreecommitdiff |
blob: cb3411787bc26666d48c980786295cea622231f0 (plain)