blob: 1d27463724a6783a9702623d29341286a2165f06 (plain)

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 30 39 30	!<arch>.#1/20...........16969090
0020	34 31 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	41..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 30 38 37 30 31 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20	1696908701..501...20....100644..
0620	31 35 30 38 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	1508......`.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 64 69 73 74 61 6e 63 65 22 20	.......(:file."vector,distance".
0880	3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 76 65 63 74 6f 72 2c 6e 6f 72 6d 22 20 22 76 65 63 74	:depends-on.("vector,norm"."vect
08a0	6f 72 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	or,package"))..................(
08c0	3a 66 69 6c 65 20 22 76 65 63 74 6f 72 2c 6e 6f 72 6d 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20	:file."vector,norm".:depends-on.
08e0	28 22 76 65 63 74 6f 72 2c 70 61 63 6b 61 67 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	("vector,package")).............
0900	20 20 20 20 20 28 3a 66 69 6c 65 20 22 76 65 63 74 6f 72 2c 70 61 63 6b 61 67 65 22 29 29 29 0a	.....(:file."vector,package"))).
0920	0a 0a 28 61 73 64 66 3a 64 65 66 73 79 73 74 65 6d 20 22 6c 69 7a 66 63 6d 2f 74 65 73 74 73 22	..(asdf:defsystem."lizfcm/tests"
0940	0a 20 20 20 20 20 20 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	.................:author."Elizab
0960	65 74 68 20 48 75 6e 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	eth.Hunt".................:licen
0980	73 65 20 22 4d 49 54 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 70 65 6e 64	se."MIT".................:depend
09a0	73 2d 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 76 65 61 6d 0a 20 20	s-on.................(:fiveam...
09c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 29 0a 20 20 20 20 20 20 20	................:lizfcm)........
09e0	20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 6f 6e 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20	.........:components............
0a00	20 20 20 20 20 28 28 3a 66 69 6c 65 20 22 74 65 73 74 73 2c 74 61 62 6c 65 22 20 3a 64 65 70 65	.....((:file."tests,table".:depe
0a20	6e 64 73 2d 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	nds-on.("tests,suite")).........
0a40	20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 74 65 73 74 73 2c 6d 61 63 65 70 73 22 20 3a	.........(:file."tests,maceps".:
0a60	64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 74 65 73 74 73 2c 73 75 69 74 65 22 29 29 0a 20 20 20 20	depends-on.("tests,suite")).....
0a80	20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 74 65 73 74 73 2c 61 70 70 72 6f	.............(:file."tests,appro
0aa0	78 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 74 65 73 74 73 2c 73 75 69 74 65 22 29 29 0a	x".:depends-on.("tests,suite")).
0ac0	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 74 65 73 74 73 2c 76	.................(:file."tests,v
0ae0	65 63 74 6f 72 22 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 74 65 73 74 73 2c 73 75 69 74 65	ector".:depends-on.("tests,suite
0b00	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 74 65 73	"))..................(:file."tes
0b20	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 3a 70 65 72	ts,suite")).................:per
0b40	66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 74 65 73 74 2d	form.................(asdf:test-
0b60	6f 70 20 28 6f 20 63 29 20 28 75 69 6f 70 3a 73 79 6d 62 6f 6c 2d 63 61 6c 6c 0a 20 20 20 20 20	op.(o.c).(uiop:symbol-call......
0b80	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	................................
0ba0	20 3a 66 69 76 65 61 6d 20 3a 72 75 6e 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.:fiveam.:run!..................
0bc0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 69 6f 70 3a 66 69 6e 64 2d	.....................(uiop:find-
0be0	73 79 6d 62 6f 6c 2a 20 3a 6c 69 7a 66 63 6d 2d 74 65 73 74 2d 73 75 69 74 65 20 3a 6c 69 7a 66	symbol*.:lizfcm-test-suite.:lizf
0c00	63 6d 2f 74 65 73 74 73 29 29 29 29 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20	cm/tests))))....#1/28...........
0c20	31 36 39 36 39 30 38 39 38 36 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20	1696908986..501...20....100644..
0c40	31 33 39 36 20 20 20 20 20 20 60 0a 74 65 73 74 73 2c 61 70 70 72 6f 78 2e 6c 69 73 70 00 00 00	1396......`.tests,approx.lisp...
0c60	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
0c80	2e 61 70 70 72 6f 78 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	.approx...(:use.:cl.........:fiv
0ca0	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......
0cc0	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
0ce0	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
0d00	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 61 70 70	)).(in-package.:lizfcm/tests.app
0d20	72 6f 78 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 20 61 70 70 72 6f 78 2d 73 75 69 74 65 0a 20 20	rox)..(def-suite.approx-suite...
0d40	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).
0d60	28 69 6e 2d 73 75 69 74 65 20 61 70 70 72 6f 78 2d 73 75 69 74 65 29 0a 0a 28 74 65 73 74 20 63	(in-suite.approx-suite)..(test.c
0d80	65 6e 74 72 61 6c 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 0a 20 20 20 20 20 20 3a 64 65 73 63	entral-derivative-at.......:desc
0da0	72 69 70 74 69 6f 6e 20 22 64 65 72 69 76 61 74 69 76 65 20 61 74 20 69 73 20 77 69 74 68 69 6e	ription."derivative.at.is.within
0dc0	20 62 6f 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	.bounds".......(let.((f.(lambda.
0de0	28 78 29 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	(x).(*.x.x))).............(x.2).
0e00	20 20 20 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	............(accepted-delta.0.02
0e20	29 0a 20 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	).............(f-prime-at-x.4)..
0e40	20 20 20 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	...........(delta.0.01))........
0e60	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 20 20 20 20 20	.(is.(within-range-p............
0e80	20 20 20 28 63 65 6e 74 72 61 6c 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 20 66 20 78 20 64 65	...(central-derivative-at.f.x.de
0ea0	6c 74 61 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	lta)...............f-prime-at-x.
0ec0	20 20 20 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	..............accepted-delta))))
0ee0	0a 0a 28 74 65 73 74 20 66 77 64 2d 64 65 72 69 76 61 74 69 76 65 2d 61 74 0a 20 20 20 20 20 20	..(test.fwd-derivative-at.......
0f00	3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 66 6f 72 77 61 72 64 20 64 65 72 69 76 61 74 69 76 65	:description."forward.derivative
0f20	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 6c 65 74	.at.is.within.bounds".......(let
0f40	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 20 20 20	.((f.(lambda.(x).(*.x.x)))......
0f60	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 65 70 74	.......(x.2).............(accept
0f80	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 2d 70 72	ed-delta.0.02).............(f-pr
0fa0	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 61 20 30	ime-at-x.4).............(delta.0
0fc0	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 67 65 2d	.01)).........(is.(within-range-
0fe0	70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 64 65 72 69 76 61 74	p...............(forward-derivat
1000	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 20 20 20	ive-at.f.x.delta)...............
1020	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 63 65 70	f-prime-at-x...............accep
1040	74 65 64 2d 64 65 6c 74 61 29 29 29 29 0a 0a 28 74 65 73 74 20 62 77 64 2d 64 65 72 69 76 61 74	ted-delta))))..(test.bwd-derivat
1060	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 62 61 63 6b 77	ive-at.......:description."backw
1080	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 75 6e	ard.derivative.at.is.within.boun
10a0	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 20 28	ds".......(let.((f.(lambda.(x).(
10c0	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 20 20	*.x.x))).............(x.2)......
10e0	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 20 20	.......(accepted-delta.0.02)....
1100	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 20 20	.........(f-prime-at-x.4).......
1120	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 73 20	......(delta.0.01)).........(is.
1140	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 28 62	(within-range-p...............(b
1160	61 63 6b 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 29	ackward-derivative-at.f.x.delta)
1180	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 20	...............f-prime-at-x.....
11a0	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 0a 0a	..........accepted-delta))))....
11c0	23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20	#1/28...........1696908124..501.
11e0	20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 31 30 39 32 20 20 20 20 20 20 60 0a 74 65 73 74	..20....100644..1092......`.test
1200	73 2c 6d 61 63 65 70 73 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,maceps.lisp...........(defpack
1220	61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 6d 61 63 65 70 73 0a 20 20 28 3a 75 73 65 20	age.lizfcm/tests.maceps...(:use.
1240	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
1260	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
1280	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
12a0	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.:
12c0	6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 6d 61 63 65 70 73 29 0a 0a 28 64 65 66 2d 73 75 69 74 65	lizfcm/tests.maceps)..(def-suite
12e0	20 6d 61 63 65 70 73 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	.maceps-suite............:in.liz
1300	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 6d 61 63 65 70 73	fcm-test-suite).(in-suite.maceps
1320	2d 73 75 69 74 65 29 0a 0a 28 74 65 73 74 20 6d 61 63 65 70 73 0a 20 20 20 20 20 20 3a 64 65 73	-suite)..(test.maceps.......:des
1340	63 72 69 70 74 69 6f 6e 20 22 64 6f 75 62 6c 65 20 70 72 65 63 69 73 69 6f 6e 20 70 72 6f 76 69	cription."double.precision.provi
1360	64 65 73 20 70 72 65 63 69 73 69 6f 6e 20 61 62 6f 75 74 20 28 6d 61 63 20 65 70 73 20 6f 66 20	des.precision.about.(mac.eps.of.
1380	73 69 6e 67 6c 65 20 70 72 65 63 69 73 69 6f 6e 29 20 73 71 75 61 72 65 64 22 0a 20 20 20 20 20	single.precision).squared"......
13a0	20 28 6c 65 74 2a 20 28 28 6d 61 63 65 70 73 2d 63 6f 6d 70 75 74 61 74 69 6f 6e 2d 64 6f 75 62	.(let*.((maceps-computation-doub
13c0	6c 65 20 28 63 6f 6d 70 75 74 65 2d 6d 61 63 65 70 73 20 28 6c 61 6d 62 64 61 20 28 78 29 20 78	le.(compute-maceps.(lambda.(x).x
13e0	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 20	)...............................
1400	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 31 2e 30 64 30 0a	..........................1.0d0.
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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 64 30 29 29 0a	........................1.0d0)).
1460	20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 65 70 73 2d 63 6f 6d 70 75 74 61 74 69 6f 6e	.............(maceps-computation
1480	2d 73 69 6e 67 6c 65 20 28 63 6f 6d 70 75 74 65 2d 6d 61 63 65 70 73 20 28 6c 61 6d 62 64 61 20	-single.(compute-maceps.(lambda.
14a0	28 78 29 20 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 20	(x).x)..........................
14c0	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 31	...............................1
14e0	2e 30 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	.0..............................
1500	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 31 2e 30 29 29	...........................1.0))
1520	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 2d 64 6f 75 62 6c 65 2d 68 20 28 63 61	..............(last-double-h.(ca
1540	64 61 72 20 28 6c 61 73 74 20 6d 61 63 65 70 73 2d 63 6f 6d 70 75 74 61 74 69 6f 6e 2d 64 6f 75	dar.(last.maceps-computation-dou
1560	62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 2d 73 69 6e 67 6c 65	ble)))..............(last-single
1580	2d 68 20 28 63 61 64 61 72 20 28 6c 61 73 74 20 6d 61 63 65 70 73 2d 63 6f 6d 70 75 74 61 74 69	-h.(cadar.(last.maceps-computati
15a0	6f 6e 2d 73 69 6e 67 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69 74 68 69	on-single)))).........(is.(withi
15c0	6e 2d 72 61 6e 67 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 6c 61 73 74 2d	n-range-p...............(-.last-
15e0	64 6f 75 62 6c 65 2d 68 20 28 2a 20 6c 61 73 74 2d 73 69 6e 67 6c 65 2d 68 20 6c 61 73 74 2d 73	double-h.(*.last-single-h.last-s
1600	69 6e 67 6c 65 2d 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20	ingle-h))...............0.......
1620	20 20 20 20 20 20 20 20 6c 61 73 74 2d 73 69 6e 67 6c 65 2d 68 29 29 29 29 0a 0a 0a 0a 0a 0a 0a	........last-single-h)))).......
1640	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 34 20 20 35 30 31 20	#1/20...........1696908124..501.
1660	20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 32 36 30 20 20 20 20 20 20 20 60 0a 74 65 73 74	..20....100644..260.......`.test
1680	73 2c 73 75 69 74 65 2e 6c 69 73 70 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 63 6c 2d	s,suite.lisp....(in-package.:cl-
16a0	75 73 65 72 29 0a 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 0a 20	user).(defpackage.lizfcm/tests..
16c0	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 29 0a 20 20 28 3a	.(:use.:cl.........:fiveam)...(:
16e0	65 78 70 6f 72 74 20 3a 72 75 6e 21 0a 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2d	export.:run!............:lizfcm-
1700	74 65 73 74 2d 73 75 69 74 65 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a 66 63 6d	test-suite)).(in-package.:lizfcm
1720	2f 74 65 73 74 73 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 20 6c 69 7a 66 63 6d 2d 74 65 73 74 2d	/tests)..(def-suite.lizfcm-test-
1740	73 75 69 74 65 0a 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 54 68 65 20 75 6c 74 69	suite.....:description."The.ulti
1760	6d 61 74 65 20 70 61 72 65 6e 74 20 74 65 73 74 20 73 75 69 74 65 22 29 0a 0a 0a 0a 0a 0a 0a 0a	mate.parent.test.suite")........
1780	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 34 20 20 35 30 31 20	#1/20...........1696908124..501.
17a0	20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 39 39 36 20 20 20 20 20 20 20 60 0a 74 65 73 74	..20....100644..996.......`.test
17c0	73 2c 74 61 62 6c 65 2e 6c 69 73 70 00 00 00 00 28 64 65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66	s,table.lisp....(defpackage.lizf
17e0	63 6d 2f 74 65 73 74 73 2e 74 61 62 6c 65 0a 20 20 28 3a 75 73 65 20 3a 63 6c 0a 20 20 20 20 20	cm/tests.table...(:use.:cl......
1800	20 20 20 3a 66 69 76 65 61 6d 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73	...:fiveam.........:lizfcm.utils
1820	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
1840	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.:
1860	6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 74 61 62 6c 65 29 0a 0a 28 64 65 66 2d 73 75 69 74 65 20	lizfcm/tests.table)..(def-suite.
1880	74 61 62 6c 65 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 66 63	table-suite............:in.lizfc
18a0	6d 2d 74 65 73 74 2d 73 75 69 74 65 29 0a 28 69 6e 2d 73 75 69 74 65 20 74 61 62 6c 65 2d 73 75	m-test-suite).(in-suite.table-su
18c0	69 74 65 29 0a 0a 28 64 65 66 75 6e 20 66 69 62 20 28 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 3c	ite)..(defun.fib.(n)...(cond.((<
18e0	20 6e 20 32 29 20 6e 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 2b 20 28 66 69 62 20 28 2d 20 6e	.n.2).n).........(t.(+.(fib.(-.n
1900	20 31 29 29 20 28 66 69 62 20 28 2d 20 6e 20 32 29 29 29 29 29 29 0a 0a 28 74 65 73 74 20 74 61	.1)).(fib.(-.n.2))))))..(test.ta
1920	62 6c 65 2d 6f 66 2d 66 69 62 2d 76 61 6c 73 0a 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69	ble-of-fib-vals.......:descripti
1940	6f 6e 20 22 74 61 62 6c 65 20 67 65 6e 65 72 61 74 65 73 20 63 6f 72 72 65 63 74 6c 79 22 0a 20	on."table.generates.correctly"..
1960	20 20 20 20 20 28 6c 65 74 2a 20 28 28 68 65 61 64 65 72 73 20 27 28 22 6e 22 20 22 66 69 62 28	.....(let*.((headers.'("n"."fib(
1980	6e 29 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 2d 76 61 6c 75 65 73 20 27 28 28	n)"))..............(n-values.'((
19a0	31 29 20 28 32 29 20 28 33 29 20 28 34 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65	1).(2).(3).(4)))..............(e
19c0	78 70 65 63 74 65 64 20 60 28 28 22 6e 22 20 22 66 69 62 28 6e 29 22 29 0a 20 20 20 20 20 20 20	xpected.`(("n"."fib(n)")........
19e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 20 2c 28 66 69 62 20 31 29 29 0a 20	..................(1.,(fib.1))..
1a00	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 32 20 2c 28 66 69 62	........................(2.,(fib
1a20	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 28 33	.2))..........................(3
1a40	20 2c 28 66 69 62 20 33 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.,(fib.3))......................
1a60	20 20 20 20 28 34 20 2c 28 66 69 62 20 34 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	....(4.,(fib.4))))..............
1a80	28 74 61 62 6c 65 64 20 28 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 3a 74 61 62 6c 65 20 28 3a 68 65	(tabled.(lizfcm.utils:table.(:he
1aa0	61 64 65 72 73 20 68 65 61 64 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	aders.headers...................
1ac0	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	................................
1ae0	20 3a 64 6f 6d 61 69 6e 2d 6f 72 64 65 72 20 28 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	.:domain-order.(n)..............
1b00	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	................................
1b20	20 20 20 20 20 20 3a 64 6f 6d 61 69 6e 2d 76 61 6c 75 65 73 20 6e 2d 76 61 6c 75 65 73 29 0a 20	......:domain-values.n-values)..
1b40	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	................................
1b60	20 20 20 20 20 20 20 20 28 66 69 62 20 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28	........(fib.n)))).........(is.(
1b80	65 71 75 61 6c 20 65 78 70 65 63 74 65 64 20 74 61 62 6c 65 64 29 29 29 29 0a 0a 0a 0a 0a 0a 0a	equal.expected.tabled)))).......
1ba0	23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20	#1/28...........1696908124..501.
1bc0	20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 38 34 34 20 20 20 20 20 20 20 60 0a 74 65 73 74	..20....100644..844.......`.test
1be0	73 2c 76 65 63 74 6f 72 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,vector.lisp...........(defpack
1c00	61 67 65 20 6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 76 65 63 74 6f 72 0a 20 20 28 3a 75 73 65 20	age.lizfcm/tests.vector...(:use.
1c20	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
1c40	66 63 6d 2e 76 65 63 74 6f 72 0a 20 20 20 20 20 20 20 20 3a 6c 69 7a 66 63 6d 2e 75 74 69 6c 73	fcm.vector.........:lizfcm.utils
1c60	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
1c80	72 74 20 3a 76 65 63 74 6f 72 2d 73 75 69 74 65 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a	rt.:vector-suite)).(in-package.:
1ca0	6c 69 7a 66 63 6d 2f 74 65 73 74 73 2e 76 65 63 74 6f 72 29 0a 0a 28 64 65 66 2d 73 75 69 74 65	lizfcm/tests.vector)..(def-suite
1cc0	20 76 65 63 74 6f 72 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	.vector-suite............:in.liz
1ce0	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 76 65 63 74 6f 72	fcm-test-suite).(in-suite.vector
1d00	2d 73 75 69 74 65 29 0a 0a 28 74 65 73 74 20 70 2d 6e 6f 72 6d 0a 20 20 20 20 20 20 3a 64 65 73	-suite)..(test.p-norm.......:des
1d20	63 72 69 70 74 69 6f 6e 20 22 63 6f 6d 70 75 74 65 73 20 70 2d 6e 6f 72 6d 22 0a 20 20 20 20 20	cription."computes.p-norm"......
1d40	20 28 6c 65 74 20 28 28 76 20 27 28 31 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c	.(let.((v.'(1.1)).............(l
1d60	65 6e 67 74 68 20 28 73 71 72 74 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 32 2d 6e	ength.(sqrt.2)).............(2-n
1d80	6f 72 6d 20 28 70 2d 6e 6f 72 6d 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 20 28 77 69	orm.(p-norm.2))).........(is.(wi
1da0	74 68 69 6e 2d 72 61 6e 67 65 2d 70 20 28 66 75 6e 63 61 6c 6c 20 32 2d 6e 6f 72 6d 20 76 29 0a	thin-range-p.(funcall.2-norm.v).
1dc0	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 6c 65 6e 67	............................leng
1de0	74 68 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 30	th.............................0
1e00	2e 30 30 30 30 31 29 29 29 29 0a 0a 28 74 65 73 74 20 76 65 63 74 6f 72 2d 64 69 73 74 61 6e 63	.00001))))..(test.vector-distanc
1e20	65 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 65 73 20 64	e.......:description."computes.d
1e40	69 73 74 61 6e 63 65 20 76 69 61 20 6e 6f 72 6d 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76	istance.via.norm".......(let.((v
1e60	31 20 27 28 30 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 76 32 20 27 28 31 20 31 29	1.'(0.0)).............(v2.'(1.1)
1e80	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 74 20 28 73 71 72 74 20 32 29 29 29 0a 20	).............(dist.(sqrt.2)))..
1ea0	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 64 69 73 74	.......(is.(within-range-p.(dist
1ec0	61 6e 63 65 20 76 31 20 76 32 20 28 70 2d 6e 6f 72 6d 20 32 29 29 0a 20 20 20 20 20 20 20 20 20	ance.v1.v2.(p-norm.2))..........
1ee0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 74 0a 20 20 20 20 20 20 20 20	...................dist.........
1f00	20 20 20 20 20 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	....................0.00001)))).
1f20	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
1f40	32 33 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 31 34 30 20 20 20 20 20	23..501...20....100644..140.....
1f60	20 20 60 0a 75 74 69 6c 73 2c 70 61 63 6b 61 67 65 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00	..`.utils,package.lisp..........
1f80	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
1fa0	65 20 6c 69 7a 66 63 6d 2e 75 74 69 6c 73 0a 20 20 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a	e.lizfcm.utils...(:use.:cl)...(:
1fc0	65 78 70 6f 72 74 20 3a 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d 70 0a 20 20 20 20 20 20 20 20 20	export.:within-range-p..........
1fe0	20 20 3a 74 61 62 6c 65 29 29 0a 0a 0a 0a 0a 0a 23 31 2f 32 30 20 20 20 20 20 20 20 20 20 20 20	..:table))......#1/20...........
2000	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..
2020	33 36 34 20 20 20 20 20 20 20 60 0a 75 74 69 6c 73 2c 74 61 62 6c 65 2e 6c 69 73 70 00 00 00 00	364.......`.utils,table.lisp....
2040	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
2060	6d 61 63 72 6f 20 74 61 62 6c 65 20 28 28 26 6b 65 79 20 68 65 61 64 65 72 73 20 64 6f 6d 61 69	macro.table.((&key.headers.domai
2080	6e 2d 6f 72 64 65 72 20 64 6f 6d 61 69 6e 2d 76 61 6c 75 65 73 29 20 26 62 6f 64 79 20 62 6f 64	n-order.domain-values).&body.bod
20a0	79 29 0a 20 20 60 28 63 6f 6e 73 0a 20 20 20 20 20 2c 68 65 61 64 65 72 73 0a 20 20 20 20 20 28	y)...`(cons......,headers......(
20c0	6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 74 75 70 6c 65 29 0a 20 20 20 20 20 20 20 20 20	mapcar.(lambda.(tuple)..........
20e0	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 2c 64 6f 6d 61 69	......(destructuring-bind.,domai
2100	6e 2d 6f 72 64 65 72 20 74 75 70 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	n-order.tuple..................(
2120	61 70 70 65 6e 64 20 74 75 70 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	append.tuple....................
2140	20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	......(list.....................
2160	20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c	.......,@body))))..............,
2180	64 6f 6d 61 69 6e 2d 76 61 6c 75 65 73 29 29 29 0a 0a 0a 0a 0a 0a 0a 0a 23 31 2f 32 38 20 20 20	domain-values)))........#1/28...
21a0	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....
21c0	31 30 30 36 34 34 20 20 31 37 32 20 20 20 20 20 20 20 60 0a 75 74 69 6c 73 2c 77 69 74 68 69 6e	100644..172.......`.utils,within
21e0	2d 72 61 6e 67 65 2e 6c 69 73 70 00 00 00 00 00 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 6c 69 7a	-range.lisp.....(in-package.:liz
2200	66 63 6d 2e 75 74 69 6c 73 29 0a 0a 28 64 65 66 75 6e 20 77 69 74 68 69 6e 2d 72 61 6e 67 65 2d	fcm.utils)..(defun.within-range-
2220	70 20 28 78 20 74 72 75 65 2d 76 61 6c 75 65 20 64 65 6c 74 61 29 0a 20 20 28 61 6e 64 20 28 3c	p.(x.true-value.delta)...(and.(<
2240	20 78 20 28 2b 20 74 72 75 65 2d 76 61 6c 75 65 20 64 65 6c 74 61 29 29 0a 20 20 20 20 20 20 20	.x.(+.true-value.delta))........
2260	28 3e 20 78 20 28 2d 20 74 72 75 65 2d 76 61 6c 75 65 20 64 65 6c 74 61 29 29 29 29 0a 0a 0a 0a	(>.x.(-.true-value.delta))))....
2280	23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20 31 36 39 36 39 30 38 31 32 34 20 20 35 30 31 20	#1/28...........1696908124..501.
22a0	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
22c0	6f 72 2c 64 69 73 74 61 6e 63 65 2e 6c 69 73 70 00 00 00 00 00 00 00 00 28 69 6e 2d 70 61 63 6b	or,distance.lisp........(in-pack
22e0	61 67 65 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 74	age.:lizfcm.vector)..(defun.dist
2300	61 6e 63 65 20 28 76 31 20 76 32 20 6e 6f 72 6d 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 20 28 6d	ance.(v1.v2.norm)...(let*.((d.(m
2320	61 70 63 61 72 20 23 27 2d 20 76 31 20 76 32 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67	apcar.#'-.v1.v2))..........(leng
2340	74 68 20 28 66 75 6e 63 61 6c 6c 20 6e 6f 72 6d 20 64 29 29 29 0a 20 20 20 20 6c 65 6e 67 74 68	th.(funcall.norm.d))).....length
2360	29 29 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 30 38 31	))......#1/20...........16969081
2380	32 34 20 20 35 30 31 20 20 20 32 30 20 20 20 20 31 30 30 36 34 34 20 20 33 30 30 20 20 20 20 20	24..501...20....100644..300.....
23a0	20 20 60 0a 76 65 63 74 6f 72 2c 6e 6f 72 6d 2e 6c 69 73 70 00 00 00 00 28 69 6e 2d 70 61 63 6b	..`.vector,norm.lisp....(in-pack
23c0	61 67 65 20 3a 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 29 0a 0a 28 64 65 66 75 6e 20 70 2d 6e 6f	age.:lizfcm.vector)..(defun.p-no
23e0	72 6d 20 28 70 29 0a 20 20 28 6c 61 6d 62 64 61 20 28 76 29 0a 20 20 20 20 28 65 78 70 74 0a 20	rm.(p)...(lambda.(v).....(expt..
2400	20 20 20 20 20 28 72 65 64 75 63 65 20 23 27 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	.....(reduce.#'+...............(
2420	6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	mapcar.(lambda.(x)..............
2440	20 20 20 20 20 20 20 20 20 20 20 28 61 62 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	...........(abs.................
2460	20 20 20 20 20 20 20 20 20 20 28 65 78 70 74 20 78 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20	..........(expt.x.p)))..........
2480	20 20 20 20 20 20 20 20 20 20 20 20 20 76 29 29 0a 20 20 20 20 20 20 28 2f 20 31 20 70 29 29 29	.............v)).......(/.1.p)))
24a0	29 0a 0a 28 64 65 66 75 6e 20 6d 61 78 2d 6e 6f 72 6d 20 28 76 29 0a 20 20 28 72 65 64 75 63 65	)..(defun.max-norm.(v)...(reduce
24c0	20 23 27 6d 61 78 20 76 29 29 0a 0a 0a 0a 0a 0a 23 31 2f 32 38 20 20 20 20 20 20 20 20 20 20 20	.#'max.v))......#1/28...........
24e0	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..
2500	31 34 38 20 20 20 20 20 20 20 60 0a 76 65 63 74 6f 72 2c 70 61 63 6b 61 67 65 2e 6c 69 73 70 00	148.......`.vector,package.lisp.
2520	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
2540	65 66 70 61 63 6b 61 67 65 20 6c 69 7a 66 63 6d 2e 76 65 63 74 6f 72 0a 20 20 28 3a 75 73 65 20	efpackage.lizfcm.vector...(:use.
2560	3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 0a 20 20 20 20 3a 70 2d 6e 6f 72 6d 0a 20 20 20 20	:cl)...(:export.....:p-norm.....
2580	3a 6d 61 78 2d 6e 6f 72 6d 0a 20 20 20 20 3a 64 69 73 74 61 6e 63 65 29 29 0a 0a 0a 0a 0a 0a 0a	:max-norm.....:distance)).......