Garbo

home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / science / xlspstrd.sit / xlisp.help.small < prev next >
MacBinary | 1991-02-09 | 34.8 KB | [TEXT/MACA]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Feb 9 09:30:25 1991, modified Sat Feb 9 09:30:25 1991, creator MacWrite, type ASCII, 34993 bytes "xlisp.help.small" , at 0x8931 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MACA]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 78 6c 69 73 70 2e | 68 65 6c 70 2e 73 6d 61 |..xlisp.|help.sma|
|00000010| 6c 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ll......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 41 43 | 41 01 00 00 00 00 00 00 |.TEXTMAC|A.......|
|00000050| 00 00 00 00 00 88 b1 00 | 00 01 7e a3 d9 b8 01 a3 |........|..~.....|
|00000060| d9 b8 01 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 74 cb 00 00 |........|....t...|
|00000080| 28 2a 4f 42 4a 45 43 54 | 2a 20 4f 42 4a 45 43 54 |(*OBJECT|* OBJECT|
|00000090| 20 50 52 4f 54 4f 29 0d | 22 54 68 65 20 72 6f 6f | PROTO).|"The roo|
|000000a0| 74 20 6f 62 6a 65 63 74 | 2e 22 0d 28 57 49 4e 44 |t object|.".(WIND|
|000000b0| 4f 57 2d 50 52 4f 54 4f | 20 20 4f 42 4a 45 43 54 |OW-PROTO|  OBJECT|
|000000c0| 20 50 52 4f 54 4f 29 0d | 22 57 69 6e 64 6f 77 20 | PROTO).|"Window |
|000000d0| 70 72 6f 74 6f 74 79 70 | 65 2e 22 0d 28 47 52 41 |prototyp|e.".(GRA|
|000000e0| 50 48 2d 57 49 4e 44 4f | 57 2d 50 52 4f 54 4f 20 |PH-WINDO|W-PROTO |
|000000f0| 20 4f 42 4a 45 43 54 20 | 50 52 4f 54 4f 29 0d 22 | OBJECT |PROTO)."|
|00000100| 42 61 73 69 63 20 67 72 | 61 70 68 69 63 73 20 77 |Basic gr|aphics w|
|00000110| 69 6e 64 6f 77 20 70 72 | 6f 74 6f 74 79 70 65 2e |indow pr|ototype.|
|00000120| 22 0d 28 47 52 41 50 48 | 2d 50 52 4f 54 4f 20 20 |".(GRAPH|-PROTO  |
|00000130| 4f 42 4a 45 43 54 20 50 | 52 4f 54 4f 29 0d 22 42 |OBJECT P|ROTO)."B|
|00000140| 61 73 69 63 20 67 72 61 | 70 68 69 63 73 20 77 69 |asic gra|phics wi|
|00000150| 6e 64 6f 77 20 70 72 6f | 74 6f 74 79 70 65 2e 22 |ndow pro|totype."|
|00000160| 0d 28 53 50 49 4e 2d 50 | 52 4f 54 4f 20 20 4f 42 |.(SPIN-P|ROTO  OB|
|00000170| 4a 45 43 54 20 50 52 4f | 54 4f 29 0d 22 52 6f 74 |JECT PRO|TO)."Rot|
|00000180| 61 74 69 6e 67 20 70 6c | 6f 74 22 0d 28 53 43 41 |ating pl|ot".(SCA|
|00000190| 54 4d 41 54 2d 50 52 4f | 54 4f 20 20 4f 42 4a 45 |TMAT-PRO|TO  OBJE|
|000001a0| 43 54 20 50 52 4f 54 4f | 29 0d 22 53 63 61 74 74 |CT PROTO|)."Scatt|
|000001b0| 65 72 70 6c 6f 74 20 6d | 61 74 72 69 78 22 0d 28 |erplot m|atrix".(|
|000001c0| 4e 41 4d 45 2d 4c 49 53 | 54 2d 50 52 4f 54 4f 20 |NAME-LIS|T-PROTO |
|000001d0| 20 4f 42 4a 45 43 54 20 | 50 52 4f 54 4f 29 0d 22 | OBJECT |PROTO)."|
|000001e0| 4e 61 6d 65 20 6c 69 73 | 74 22 0d 28 48 49 53 54 |Name lis|t".(HIST|
|000001f0| 4f 47 52 41 4d 2d 50 52 | 4f 54 4f 20 20 4f 42 4a |OGRAM-PR|OTO  OBJ|
|00000200| 45 43 54 20 50 52 4f 54 | 4f 29 0d 22 48 69 73 74 |ECT PROT|O)."Hist|
|00000210| 6f 67 72 61 6d 22 0d 28 | 53 43 41 54 54 45 52 50 |ogram".(|SCATTERP|
|00000220| 4c 4f 54 2d 50 52 4f 54 | 4f 20 20 4f 42 4a 45 43 |LOT-PROT|O  OBJEC|
|00000230| 54 20 50 72 6f 74 6f 29 | 0d 22 53 63 61 74 74 65 |T Proto)|."Scatte|
|00000240| 72 70 6c 6f 74 22 0d 2b | 0d 22 41 72 67 73 3a 20 |rplot".+|."Args: |
|00000250| 28 26 72 65 73 74 20 6e | 75 6d 62 65 72 73 29 5c |(&rest n|umbers)\|
|00000260| 6e 52 65 74 75 72 6e 73 | 20 74 68 65 20 73 75 6d |nReturns| the sum|
|00000270| 20 6f 66 20 69 74 73 20 | 61 72 67 75 6d 65 6e 74 | of its |argument|
|00000280| 73 2e 20 20 57 69 74 68 | 20 6e 6f 20 61 72 67 73 |s.  With| no args|
|00000290| 2c 20 72 65 74 75 72 6e | 73 20 30 2e 20 56 65 63 |, return|s 0. Vec|
|000002a0| 74 6f 72 69 7a 65 64 2e | 22 0d 2d 0d 22 41 72 67 |torized.|".-."Arg|
|000002b0| 73 3a 20 28 6e 75 6d 62 | 65 72 20 26 72 65 73 74 |s: (numb|er &rest|
|000002c0| 20 6d 6f 72 65 2d 6e 75 | 6d 62 65 72 73 29 5c 6e | more-nu|mbers)\n|
|000002d0| 53 75 62 74 72 61 63 74 | 73 20 74 68 65 20 73 65 |Subtract|s the se|
|000002e0| 63 6f 6e 64 20 61 6e 64 | 20 61 6c 6c 20 73 75 62 |cond and| all sub|
|000002f0| 73 65 71 75 65 6e 74 20 | 4e 55 4d 42 45 52 73 20 |sequent |NUMBERs |
|00000300| 66 72 6f 6d 20 74 68 65 | 20 66 69 72 73 74 2e 20 |from the| first. |
|00000310| 57 69 74 68 20 6f 6e 65 | 20 61 72 67 2c 5c 6e 6e |With one| arg,\nn|
|00000320| 65 67 61 74 65 73 20 69 | 74 2e 20 56 65 63 74 6f |egates i|t. Vecto|
|00000330| 72 69 7a 65 64 2e 22 0d | 2a 0d 22 41 72 67 73 3a |rized.".|*."Args:|
|00000340| 20 28 26 72 65 73 74 20 | 6e 75 6d 62 65 72 73 29 | (&rest |numbers)|
|00000350| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 70 72 |\nReturn|s the pr|
|00000360| 6f 64 75 63 74 20 6f 66 | 20 69 74 73 20 61 72 67 |oduct of| its arg|
|00000370| 75 6d 65 6e 74 73 2e 20 | 57 69 74 68 20 6e 6f 20 |uments. |With no |
|00000380| 61 72 67 73 2c 20 72 65 | 74 75 72 6e 73 20 31 2e |args, re|turns 1.|
|00000390| 20 56 65 63 74 6f 72 69 | 7a 65 64 2e 22 0d 2f 0d | Vectori|zed."./.|
|000003a0| 22 41 72 67 73 3a 20 28 | 6e 75 6d 62 65 72 20 26 |"Args: (|number &|
|000003b0| 72 65 73 74 20 6d 6f 72 | 65 2d 6e 75 6d 62 65 72 |rest mor|e-number|
|000003c0| 73 29 5c 6e 44 69 76 69 | 64 65 73 20 74 68 65 20 |s)\nDivi|des the |
|000003d0| 66 69 72 73 74 20 4e 55 | 4d 42 45 52 20 28 65 6c |first NU|MBER (el|
|000003e0| 65 6d 65 6e 74 2d 77 69 | 73 65 29 20 62 79 20 65 |ement-wi|se) by e|
|000003f0| 61 63 68 20 6f 66 20 74 | 68 65 20 73 75 62 73 65 |ach of t|he subse|
|00000400| 71 75 65 6e 74 20 4e 55 | 4d 42 45 52 53 2e 5c 6e |quent NU|MBERS.\n|
|00000410| 57 69 74 68 20 6f 6e 65 | 20 61 72 67 2c 20 72 65 |With one| arg, re|
|00000420| 74 75 72 6e 73 20 69 74 | 73 20 72 65 63 69 70 72 |turns it|s recipr|
|00000430| 6f 63 61 6c 2e 20 56 65 | 63 74 6f 72 69 7a 65 64 |ocal. Ve|ctorized|
|00000440| 2e 22 0d 5e 0d 22 41 72 | 67 73 3a 20 28 62 61 73 |.".^."Ar|gs: (bas|
|00000450| 65 2d 6e 75 6d 62 65 72 | 20 70 6f 77 65 72 2d 6e |e-number| power-n|
|00000460| 75 6d 62 65 72 29 5c 6e | 52 65 74 75 72 6e 73 20 |umber)\n|Returns |
|00000470| 42 41 53 45 2d 4e 55 4d | 42 45 52 20 72 61 69 73 |BASE-NUM|BER rais|
|00000480| 65 64 20 74 6f 20 74 68 | 65 20 70 6f 77 65 72 20 |ed to th|e power |
|00000490| 50 4f 57 45 52 2d 4e 55 | 4d 42 45 52 2e 20 56 65 |POWER-NU|MBER. Ve|
|000004a0| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 2a 2a 0d 22 41 |ctorized|.".**."A|
|000004b0| 72 67 73 3a 20 28 62 61 | 73 65 2d 6e 75 6d 62 65 |rgs: (ba|se-numbe|
|000004c0| 72 20 70 6f 77 65 72 2d | 6e 75 6d 62 65 72 29 5c |r power-|number)\|
|000004d0| 6e 52 65 74 75 72 6e 73 | 20 42 41 53 45 2d 4e 55 |nReturns| BASE-NU|
|000004e0| 4d 42 45 52 20 72 61 69 | 73 65 64 20 74 6f 20 74 |MBER rai|sed to t|
|000004f0| 68 65 20 70 6f 77 65 72 | 20 50 4f 57 45 52 2d 4e |he power| POWER-N|
|00000500| 55 4d 42 45 52 2e 20 56 | 65 63 74 6f 72 69 7a 65 |UMBER. V|ectorize|
|00000510| 64 2e 22 0d 3c 0d 22 41 | 72 67 73 3a 20 28 26 72 |d.".<."A|rgs: (&r|
|00000520| 65 73 74 20 6e 75 6d 62 | 65 72 73 29 5c 6e 52 65 |est numb|ers)\nRe|
|00000530| 74 75 72 6e 73 20 54 20 | 69 66 20 4e 55 4d 42 45 |turns T |if NUMBE|
|00000540| 52 53 20 61 72 65 20 69 | 6e 20 73 74 72 69 63 74 |RS are i|n strict|
|00000550| 6c 79 20 69 6e 63 72 65 | 61 73 69 6e 67 20 6f 72 |ly incre|asing or|
|00000560| 64 65 72 3b 20 4e 49 4c | 20 6f 74 68 65 72 77 69 |der; NIL| otherwi|
|00000570| 73 65 2e 5c 6e 56 65 63 | 74 6f 72 69 7a 65 64 2e |se.\nVec|torized.|
|00000580| 22 0d 3c 3d 0d 22 41 72 | 67 73 3a 20 28 26 72 65 |".<=."Ar|gs: (&re|
|00000590| 73 74 20 6e 75 6d 62 65 | 72 73 29 5c 6e 52 65 74 |st numbe|rs)\nRet|
|000005a0| 75 72 6e 73 20 54 20 69 | 66 20 4e 55 4d 42 45 52 |urns T i|f NUMBER|
|000005b0| 53 20 61 72 65 20 69 6e | 20 6e 6f 6e 64 65 63 72 |S are in| nondecr|
|000005c0| 65 61 73 69 6e 67 20 6f | 72 64 65 72 3b 20 4e 49 |easing o|rder; NI|
|000005d0| 4c 20 6f 74 68 65 72 77 | 69 73 65 2e 20 56 65 63 |L otherw|ise. Vec|
|000005e0| 74 6f 72 69 7a 65 64 2e | 22 0d 3d 0d 22 41 72 67 |torized.|".=."Arg|
|000005f0| 73 3a 20 28 26 72 65 73 | 74 20 6e 75 6d 62 65 72 |s: (&res|t number|
|00000600| 73 29 5c 6e 52 65 74 75 | 72 6e 73 20 54 20 69 66 |s)\nRetu|rns T if|
|00000610| 20 4e 55 4d 42 45 52 53 | 20 61 72 65 20 61 6c 6c | NUMBERS| are all|
|00000620| 20 65 71 75 61 6c 3b 20 | 4e 49 4c 20 6f 74 68 65 | equal; |NIL othe|
|00000630| 72 77 69 73 65 2e 20 56 | 65 63 74 6f 72 69 7a 65 |rwise. V|ectorize|
|00000640| 64 2e 22 0d 2f 3d 0d 22 | 41 72 67 73 3a 20 28 26 |d."./=."|Args: (&|
|00000650| 72 65 73 74 20 6e 75 6d | 62 65 72 73 29 5c 6e 52 |rest num|bers)\nR|
|00000660| 65 74 75 72 6e 73 20 54 | 20 69 66 20 4e 55 4d 42 |eturns T| if NUMB|
|00000670| 45 52 53 20 6e 6f 20 74 | 77 6f 20 61 64 6a 61 63 |ERS no t|wo adjac|
|00000680| 65 6e 74 20 6e 75 6d 62 | 65 72 73 20 61 72 65 20 |ent numb|ers are |
|00000690| 65 71 75 61 6c 3b 20 4e | 49 4c 20 6f 74 68 65 72 |equal; N|IL other|
|000006a0| 77 69 73 65 2e 20 56 65 | 63 74 6f 72 69 7a 65 64 |wise. Ve|ctorized|
|000006b0| 2e 22 0d 3e 3d 0d 22 41 | 72 67 73 3a 20 28 26 72 |.".>=."A|rgs: (&r|
|000006c0| 65 73 74 20 6e 75 6d 62 | 65 72 73 29 5c 6e 52 65 |est numb|ers)\nRe|
|000006d0| 74 75 72 6e 73 20 54 20 | 69 66 20 4e 55 4d 42 45 |turns T |if NUMBE|
|000006e0| 52 53 20 61 72 65 20 69 | 6e 20 6e 6f 6e 69 6e 63 |RS are i|n noninc|
|000006f0| 72 65 61 73 69 6e 67 20 | 6f 72 64 65 72 3b 20 4e |reasing |order; N|
|00000700| 49 4c 20 6f 74 68 65 72 | 77 69 73 65 2e 20 56 65 |IL other|wise. Ve|
|00000710| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 3e 0d 22 41 72 |ctorized|.".>."Ar|
|00000720| 67 73 3a 20 28 26 72 65 | 73 74 20 6e 75 6d 62 65 |gs: (&re|st numbe|
|00000730| 72 73 29 5c 6e 52 65 74 | 75 72 6e 73 20 54 20 69 |rs)\nRet|urns T i|
|00000740| 66 20 4e 55 4d 42 45 52 | 53 20 61 72 65 20 69 6e |f NUMBER|S are in|
|00000750| 20 73 74 72 69 63 74 6c | 79 20 64 65 63 72 65 61 | strictl|y decrea|
|00000760| 73 69 6e 67 20 6f 72 64 | 65 72 3b 20 4e 49 4c 20 |sing ord|er; NIL |
|00000770| 6f 74 68 65 72 77 69 73 | 65 2e 20 56 65 63 74 6f |otherwis|e. Vecto|
|00000780| 72 69 7a 65 64 2e 22 0d | 41 42 53 0d 22 41 72 67 |rized.".|ABS."Arg|
|00000790| 73 3a 20 28 6e 75 6d 62 | 65 72 29 5c 6e 52 65 74 |s: (numb|er)\nRet|
|000007a0| 75 72 6e 73 20 74 68 65 | 20 61 62 73 6f 6c 75 74 |urns the| absolut|
|000007b0| 65 20 76 61 6c 75 65 20 | 6f 72 20 6d 6f 64 75 6c |e value |or modul|
|000007c0| 75 73 20 6f 66 20 4e 55 | 4d 42 45 52 2e 20 56 65 |us of NU|MBER. Ve|
|000007d0| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 41 43 4f 53 0d |ctorized|.".ACOS.|
|000007e0| 22 41 72 67 73 3a 20 28 | 6e 75 6d 62 65 72 29 5c |"Args: (|number)\|
|000007f0| 6e 52 65 74 75 72 6e 73 | 20 74 68 65 20 61 72 63 |nReturns| the arc|
|00000800| 20 63 6f 73 69 6e 65 20 | 6f 66 20 4e 55 4d 42 45 | cosine |of NUMBE|
|00000810| 52 2e 20 56 65 63 74 6f | 72 69 7a 65 64 2e 22 0d |R. Vecto|rized.".|
|00000820| 41 53 49 4e 0d 22 41 72 | 67 73 3a 20 28 6e 75 6d |ASIN."Ar|gs: (num|
|00000830| 62 65 72 29 5c 6e 52 65 | 74 75 72 6e 73 20 74 68 |ber)\nRe|turns th|
|00000840| 65 20 61 72 63 20 73 69 | 6e 65 20 6f 66 20 4e 55 |e arc si|ne of NU|
|00000850| 4d 42 45 52 2e 20 56 65 | 63 74 6f 72 69 7a 65 64 |MBER. Ve|ctorized|
|00000860| 2e 22 0d 41 54 41 4e 0d | 22 41 72 67 73 3a 20 28 |.".ATAN.|"Args: (|
|00000870| 6e 75 6d 62 65 72 29 5c | 6e 52 65 74 75 72 6e 73 |number)\|nReturns|
|00000880| 20 74 68 65 20 61 72 63 | 20 74 61 6e 67 65 6e 74 | the arc| tangent|
|00000890| 20 6f 66 20 4e 55 4d 42 | 45 52 2e 20 56 65 63 74 | of NUMB|ER. Vect|
|000008a0| 6f 72 69 7a 65 64 2e 22 | 0d 43 45 49 4c 49 4e 47 |orized."|.CEILING|
|000008b0| 0d 22 41 72 67 73 3a 20 | 28 6e 75 6d 62 65 72 29 |."Args: |(number)|
|000008c0| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 73 6d |\nReturn|s the sm|
|000008d0| 61 6c 6c 65 73 74 20 69 | 6e 74 65 67 65 72 28 73 |allest i|nteger(s|
|000008e0| 29 20 6e 6f 74 20 6c 65 | 73 73 20 74 68 61 6e 20 |) not le|ss than |
|000008f0| 6f 72 20 4e 55 4d 42 45 | 52 2e 20 56 65 63 74 6f |or NUMBE|R. Vecto|
|00000900| 72 69 7a 65 64 2e 22 0d | 43 4f 4d 50 4c 45 58 0d |rized.".|COMPLEX.|
|00000910| 22 41 72 67 73 3a 20 28 | 72 65 61 6c 70 61 72 74 |"Args: (|realpart|
|00000920| 20 26 6f 70 74 69 6f 6e | 61 6c 20 28 69 6d 61 67 | &option|al (imag|
|00000930| 70 61 72 74 20 30 29 29 | 5c 6e 52 65 74 75 72 6e |part 0))|\nReturn|
|00000940| 73 20 61 20 63 6f 6d 70 | 6c 65 78 20 6e 75 6d 62 |s a comp|lex numb|
|00000950| 65 72 20 77 69 74 68 20 | 74 68 65 20 67 69 76 65 |er with |the give|
|00000960| 6e 20 72 65 61 6c 20 61 | 6e 64 20 69 6d 61 67 69 |n real a|nd imagi|
|00000970| 6e 61 72 79 20 70 61 72 | 74 73 2e 22 0d 43 4f 4e |nary par|ts.".CON|
|00000980| 4a 55 47 41 54 45 0d 22 | 41 72 67 73 3a 20 28 6e |JUGATE."|Args: (n|
|00000990| 75 6d 62 65 72 29 5c 6e | 52 65 74 75 72 6e 73 20 |umber)\n|Returns |
|000009a0| 74 68 65 20 63 6f 6d 70 | 6c 65 78 20 63 6f 6e 6a |the comp|lex conj|
|000009b0| 75 67 61 74 65 20 6f 66 | 20 4e 55 4d 42 45 52 2e |ugate of| NUMBER.|
|000009c0| 22 0d 43 4f 53 0d 22 41 | 72 67 73 3a 20 28 72 61 |".COS."A|rgs: (ra|
|000009d0| 64 69 61 6e 73 29 5c 6e | 52 65 74 75 72 6e 73 20 |dians)\n|Returns |
|000009e0| 74 68 65 20 63 6f 73 69 | 6e 65 20 6f 66 20 52 41 |the cosi|ne of RA|
|000009f0| 44 49 41 4e 53 2e 20 56 | 65 63 74 6f 72 69 7a 65 |DIANS. V|ectorize|
|00000a00| 64 2e 22 0d 45 58 50 0d | 22 41 72 67 73 3a 20 28 |d.".EXP.|"Args: (|
|00000a10| 78 29 5c 6e 43 61 6c 63 | 75 6c 61 74 65 73 20 65 |x)\nCalc|ulates e|
|00000a20| 20 72 61 69 73 65 64 20 | 74 6f 20 74 68 65 20 70 | raised |to the p|
|00000a30| 6f 77 65 72 20 78 2c 20 | 77 68 65 72 65 20 65 20 |ower x, |where e |
|00000a40| 69 73 20 74 68 65 20 62 | 61 73 65 20 6f 66 20 6e |is the b|ase of n|
|00000a50| 61 74 75 72 61 6c 5c 6e | 6c 6f 67 61 72 69 74 68 |atural\n|logarith|
|00000a60| 6d 73 2e 20 56 65 63 74 | 6f 72 69 7a 65 64 2e 22 |ms. Vect|orized."|
|00000a70| 0d 45 58 50 54 0d 22 41 | 72 67 73 3a 20 28 62 61 |.EXPT."A|rgs: (ba|
|00000a80| 73 65 2d 6e 75 6d 62 65 | 72 20 70 6f 77 65 72 2d |se-numbe|r power-|
|00000a90| 6e 75 6d 62 65 72 29 5c | 6e 52 65 74 75 72 6e 73 |number)\|nReturns|
|00000aa0| 20 42 41 53 45 2d 4e 55 | 4d 42 45 52 20 72 61 69 | BASE-NU|MBER rai|
|00000ab0| 73 65 64 20 74 6f 20 74 | 68 65 20 70 6f 77 65 72 |sed to t|he power|
|00000ac0| 20 50 4f 57 45 52 2d 4e | 55 4d 42 45 52 2e 20 56 | POWER-N|UMBER. V|
|00000ad0| 65 63 74 6f 72 69 7a 65 | 64 2e 22 0d 46 4c 4f 41 |ectorize|d.".FLOA|
|00000ae0| 54 0d 22 41 72 67 73 3a | 20 28 6e 75 6d 62 65 72 |T."Args:| (number|
|00000af0| 29 5c 6e 43 6f 6e 76 65 | 72 74 73 20 72 65 61 6c |)\nConve|rts real|
|00000b00| 20 6e 75 6d 62 65 72 20 | 74 6f 20 61 20 66 6c 6f | number |to a flo|
|00000b10| 61 74 69 6e 67 2d 70 6f | 69 6e 74 20 6e 75 6d 62 |ating-po|int numb|
|00000b20| 65 72 2e 20 20 49 66 20 | 4e 55 4d 42 45 52 20 69 |er.  If |NUMBER i|
|00000b30| 73 5c 6e 61 6c 72 65 61 | 64 79 20 61 20 66 6c 6f |s\nalrea|dy a flo|
|00000b40| 61 74 2c 20 46 4c 4f 41 | 54 20 73 69 6d 70 6c 79 |at, FLOA|T simply|
|00000b50| 20 72 65 74 75 72 6e 73 | 20 4e 55 4d 42 45 52 2e | returns| NUMBER.|
|00000b60| 20 56 65 63 74 6f 72 69 | 7a 65 64 2e 22 0d 46 4c | Vectori|zed.".FL|
|00000b70| 4f 4f 52 0d 22 41 72 67 | 73 3a 20 28 6e 75 6d 62 |OOR."Arg|s: (numb|
|00000b80| 65 72 29 5c 6e 52 65 74 | 75 72 6e 73 20 74 68 65 |er)\nRet|urns the|
|00000b90| 20 6c 61 72 67 65 73 74 | 20 69 6e 74 65 67 65 72 | largest| integer|
|00000ba0| 28 20 6e 6f 74 20 6c 61 | 72 67 65 72 20 74 68 61 |( not la|rger tha|
|00000bb0| 6e 20 74 68 65 20 4e 55 | 4d 42 45 52 2e 20 56 65 |n the NU|MBER. Ve|
|00000bc0| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 49 4d 41 47 50 |ctorized|.".IMAGP|
|00000bd0| 41 52 54 0d 22 41 72 67 | 73 3a 20 28 6e 75 6d 62 |ART."Arg|s: (numb|
|00000be0| 65 72 29 5c 6e 45 78 74 | 72 61 63 74 73 20 74 68 |er)\nExt|racts th|
|00000bf0| 65 20 69 6d 61 67 69 6e | 61 72 79 20 70 61 72 74 |e imagin|ary part|
|00000c00| 20 6f 66 20 4e 55 4d 42 | 45 52 2e 22 0d 4c 4f 47 | of NUMB|ER.".LOG|
|00000c10| 0d 22 41 72 67 73 3a 20 | 28 6e 75 6d 62 65 72 29 |."Args: |(number)|
|00000c20| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 6e 61 |\nReturn|s the na|
|00000c30| 74 75 72 61 6c 20 6c 6f | 67 61 72 69 74 68 6d 28 |tural lo|garithm(|
|00000c40| 73 29 20 6f 66 20 4e 55 | 4d 42 45 52 2e 20 56 65 |s) of NU|MBER. Ve|
|00000c50| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 4c 4f 47 2d 47 |ctorized|.".LOG-G|
|00000c60| 41 4d 4d 41 0d 22 41 72 | 67 73 3a 20 28 78 29 5c |AMMA."Ar|gs: (x)\|
|00000c70| 6e 52 65 74 75 72 6e 73 | 20 74 68 65 20 6c 6f 67 |nReturns| the log|
|00000c80| 20 67 61 6d 6d 61 20 66 | 75 6e 63 74 69 6f 6e 20 | gamma f|unction |
|00000c90| 6f 66 20 58 2e 20 56 65 | 63 74 6f 72 69 7a 65 64 |of X. Ve|ctorized|
|00000ca0| 2e 22 0d 4d 41 58 0d 22 | 41 72 67 73 3a 20 28 6e |.".MAX."|Args: (n|
|00000cb0| 75 6d 62 65 72 20 26 72 | 65 73 74 20 6d 6f 72 65 |umber &r|est more|
|00000cc0| 2d 6e 75 6d 62 65 72 73 | 29 5c 6e 52 65 74 75 72 |-numbers|)\nRetur|
|00000cd0| 6e 73 20 74 68 65 20 67 | 72 65 61 74 65 73 74 20 |ns the g|reatest |
|00000ce0| 6f 66 20 69 74 73 20 61 | 72 67 75 6d 65 6e 74 73 |of its a|rguments|
|00000cf0| 2e 20 56 65 63 74 6f 72 | 20 72 65 64 75 63 69 6e |. Vector| reducin|
|00000d00| 67 22 0d 4d 49 4e 0d 22 | 41 72 67 73 3a 20 28 6e |g".MIN."|Args: (n|
|00000d10| 75 6d 62 65 72 20 26 72 | 65 73 74 20 6d 6f 72 65 |umber &r|est more|
|00000d20| 2d 6e 75 6d 62 65 72 73 | 29 5c 6e 52 65 74 75 72 |-numbers|)\nRetur|
|00000d30| 6e 73 20 74 68 65 20 6c | 65 61 73 74 20 6f 66 20 |ns the l|east of |
|00000d40| 69 74 73 20 61 72 67 75 | 6d 65 6e 74 73 2e 20 56 |its argu|ments. V|
|00000d50| 65 63 74 6f 72 20 72 65 | 64 75 63 69 6e 67 22 0d |ector re|ducing".|
|00000d60| 50 48 41 53 45 0d 22 41 | 72 67 73 3a 20 28 6e 75 |PHASE."A|rgs: (nu|
|00000d70| 6d 62 65 72 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |mber)\nR|eturns t|
|00000d80| 68 65 20 61 6e 67 6c 65 | 20 70 61 72 74 20 6f 66 |he angle| part of|
|00000d90| 20 74 68 65 20 70 6f 6c | 61 72 20 72 65 70 72 65 | the pol|ar repre|
|00000da0| 73 65 6e 74 61 74 69 6f | 6e 20 6f 66 20 61 20 63 |sentatio|n of a c|
|00000db0| 6f 6d 70 6c 65 78 20 6e | 75 6d 62 65 72 2e 5c 6e |omplex n|umber.\n|
|00000dc0| 46 6f 72 20 6e 6f 6e 2d | 63 6f 6d 70 6c 65 78 20 |For non-|complex |
|00000dd0| 6e 75 6d 62 65 72 73 2c | 20 74 68 69 73 20 69 73 |numbers,| this is|
|00000de0| 20 30 2e 22 0d 50 4d 41 | 58 0d 22 41 72 67 73 3a | 0.".PMA|X."Args:|
|00000df0| 20 28 26 72 65 73 74 20 | 69 74 65 6d 73 29 5c 6e | (&rest |items)\n|
|00000e00| 50 61 72 61 6c 6c 65 6c | 20 6d 61 78 69 6d 75 6d |Parallel| maximum|
|00000e10| 20 6f 66 20 49 54 45 4d | 53 2e 20 56 65 63 74 6f | of ITEM|S. Vecto|
|00000e20| 72 69 7a 65 64 2e 22 0d | 50 4d 49 4e 0d 22 41 72 |rized.".|PMIN."Ar|
|00000e30| 67 73 3a 20 28 26 72 65 | 73 74 20 69 74 65 6d 73 |gs: (&re|st items|
|00000e40| 29 5c 6e 50 61 72 61 6c | 6c 65 6c 20 6d 69 6e 69 |)\nParal|lel mini|
|00000e50| 6d 75 6d 20 6f 66 20 49 | 54 45 4d 53 2e 20 56 65 |mum of I|TEMS. Ve|
|00000e60| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 50 52 4f 44 0d |ctorized|.".PROD.|
|00000e70| 22 41 72 67 73 3a 20 28 | 26 72 65 73 74 20 6e 75 |"Args: (|&rest nu|
|00000e80| 6d 62 65 72 2d 64 61 74 | 61 29 5c 6e 52 65 74 75 |mber-dat|a)\nRetu|
|00000e90| 72 6e 73 20 74 68 65 20 | 70 72 6f 64 75 63 74 20 |rns the |product |
|00000ea0| 6f 66 20 61 6c 6c 20 74 | 68 65 20 65 6c 65 6d 65 |of all t|he eleme|
|00000eb0| 6e 74 73 20 6f 66 20 69 | 74 73 20 61 72 67 75 6d |nts of i|ts argum|
|00000ec0| 65 6e 74 73 2e 20 52 65 | 74 75 72 6e 73 20 31 20 |ents. Re|turns 1 |
|00000ed0| 69 66 20 74 68 65 72 65 | 5c 6e 61 72 65 20 6e 6f |if there|\nare no|
|00000ee0| 20 61 72 67 75 6d 65 6e | 74 73 2e 20 56 65 63 74 | argumen|ts. Vect|
|00000ef0| 6f 72 20 72 65 64 75 63 | 69 6e 67 2e 22 0d 52 41 |or reduc|ing.".RA|
|00000f00| 4e 44 4f 4d 0d 22 41 72 | 67 73 3a 20 28 6e 75 6d |NDOM."Ar|gs: (num|
|00000f10| 62 65 72 29 5c 6e 47 65 | 6e 65 72 61 74 65 73 20 |ber)\nGe|nerates |
|00000f20| 61 20 75 6e 69 66 6f 72 | 6d 6c 79 20 64 69 73 74 |a unifor|mly dist|
|00000f30| 72 69 62 75 74 65 64 20 | 70 73 65 75 64 6f 2d 72 |ributed |pseudo-r|
|00000f40| 61 6e 64 6f 6d 20 6e 75 | 6d 62 65 72 20 62 65 74 |andom nu|mber bet|
|00000f50| 77 65 65 6e 20 7a 65 72 | 6f 20 28 69 6e 63 6c 75 |ween zer|o (inclu|
|00000f60| 73 69 76 65 29 5c 6e 61 | 6e 64 20 4e 55 4d 42 45 |sive)\na|nd NUMBE|
|00000f70| 52 20 28 65 78 63 6c 75 | 73 69 76 65 29 2e 20 56 |R (exclu|sive). V|
|00000f80| 65 63 74 6f 72 69 7a 65 | 64 2e 22 0d 52 45 41 4c |ectorize|d.".REAL|
|00000f90| 50 41 52 54 0d 22 41 72 | 67 73 3a 20 28 6e 75 6d |PART."Ar|gs: (num|
|00000fa0| 62 65 72 29 5c 6e 45 78 | 74 72 61 63 74 73 20 74 |ber)\nEx|tracts t|
|00000fb0| 68 65 20 72 65 61 6c 20 | 70 61 72 74 20 6f 66 20 |he real |part of |
|00000fc0| 4e 55 4d 42 45 52 2e 22 | 0d 4d 4f 44 0d 22 41 72 |NUMBER."|.MOD."Ar|
|00000fd0| 67 73 3a 20 28 78 20 79 | 29 5c 6e 52 65 74 75 72 |gs: (x y|)\nRetur|
|00000fe0| 6e 73 20 78 20 6d 6f 64 | 20 79 2e 20 56 65 63 74 |ns x mod| y. Vect|
|00000ff0| 6f 72 69 7a 65 64 2e 22 | 0d 52 45 4d 0d 22 41 72 |orized."|.REM."Ar|
|00001000| 67 73 3a 20 28 78 20 79 | 29 5c 6e 52 65 74 75 72 |gs: (x y|)\nRetur|
|00001010| 6e 73 20 74 68 65 20 72 | 65 6d 61 69 6e 64 65 72 |ns the r|emainder|
|00001020| 20 6f 66 20 64 69 76 69 | 64 69 6e 67 20 78 20 62 | of divi|ding x b|
|00001030| 79 20 79 2e 20 56 65 63 | 74 6f 72 69 7a 65 64 2e |y y. Vec|torized.|
|00001040| 22 0d 52 4f 55 4e 44 0d | 22 41 72 67 73 3a 20 28 |".ROUND.|"Args: (|
|00001050| 6e 75 6d 62 65 72 29 5c | 6e 52 6f 75 6e 64 73 20 |number)\|nRounds |
|00001060| 4e 55 4d 42 45 52 20 74 | 6f 20 6e 65 61 72 65 73 |NUMBER t|o neares|
|00001070| 74 20 69 6e 74 65 67 65 | 72 2e 20 56 65 63 74 6f |t intege|r. Vecto|
|00001080| 72 69 7a 65 64 2e 22 0d | 53 49 4e 0d 22 41 72 67 |rized.".|SIN."Arg|
|00001090| 73 3a 20 28 72 61 64 69 | 61 6e 73 29 5c 6e 52 65 |s: (radi|ans)\nRe|
|000010a0| 74 75 72 6e 73 20 74 68 | 65 20 73 69 6e 65 20 6f |turns th|e sine o|
|000010b0| 66 20 52 41 44 49 41 4e | 53 2e 20 56 65 63 74 6f |f RADIAN|S. Vecto|
|000010c0| 72 69 7a 65 64 2e 22 0d | 53 51 52 54 0d 22 41 72 |rized.".|SQRT."Ar|
|000010d0| 67 73 3a 20 28 6e 75 6d | 62 65 72 29 5c 6e 52 65 |gs: (num|ber)\nRe|
|000010e0| 74 75 72 6e 73 20 74 68 | 65 20 73 71 75 61 72 65 |turns th|e square|
|000010f0| 20 72 6f 6f 74 20 6f 66 | 20 4e 55 4d 42 45 52 2e | root of| NUMBER.|
|00001100| 20 56 65 63 74 6f 72 69 | 7a 65 64 2e 22 0d 53 55 | Vectori|zed.".SU|
|00001110| 4d 0d 22 41 72 67 73 3a | 20 28 26 72 65 73 74 20 |M."Args:| (&rest |
|00001120| 6e 75 6d 62 65 72 2d 64 | 61 74 61 29 5c 6e 52 65 |number-d|ata)\nRe|
|00001130| 74 75 72 6e 73 20 74 68 | 65 20 73 75 6d 20 6f 66 |turns th|e sum of|
|00001140| 20 61 6c 6c 20 74 68 65 | 20 65 6c 65 6d 65 6e 74 | all the| element|
|00001150| 73 20 6f 66 20 69 74 73 | 20 61 72 67 75 6d 65 6e |s of its| argumen|
|00001160| 74 73 2e 20 52 65 74 75 | 72 6e 73 20 30 20 69 66 |ts. Retu|rns 0 if|
|00001170| 20 74 68 65 72 65 5c 6e | 61 72 65 20 6e 6f 20 61 | there\n|are no a|
|00001180| 72 67 75 6d 65 6e 74 73 | 2e 20 56 65 63 74 6f 72 |rguments|. Vector|
|00001190| 20 72 65 64 75 63 69 6e | 67 2e 22 0d 54 41 4e 0d | reducin|g.".TAN.|
|000011a0| 22 41 72 67 73 3a 20 28 | 72 61 64 69 61 6e 73 29 |"Args: (|radians)|
|000011b0| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 74 61 |\nReturn|s the ta|
|000011c0| 6e 67 65 6e 74 20 6f 66 | 20 52 41 44 49 41 4e 53 |ngent of| RADIANS|
|000011d0| 2e 20 56 65 63 74 6f 72 | 69 7a 65 64 2e 22 0d 54 |. Vector|ized.".T|
|000011e0| 52 55 4e 43 41 54 45 0d | 22 41 72 67 73 3a 20 28 |RUNCATE.|"Args: (|
|000011f0| 6e 75 6d 62 65 72 29 5c | 6e 52 65 74 75 72 6e 73 |number)\|nReturns|
|00001200| 20 72 65 61 6c 20 4e 55 | 4d 42 45 52 20 61 73 20 | real NU|MBER as |
|00001210| 61 6e 20 69 6e 74 65 67 | 65 72 2c 20 72 6f 75 6e |an integ|er, roun|
|00001220| 64 65 64 20 74 6f 77 61 | 72 64 20 30 2e 20 56 65 |ded towa|rd 0. Ve|
|00001230| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 44 45 46 0d 22 |ctorized|.".DEF."|
|00001240| 53 79 6e 74 61 78 3a 20 | 28 64 65 66 20 76 61 72 |Syntax: |(def var|
|00001250| 20 66 6f 72 6d 29 5c 6e | 56 41 52 20 69 73 20 6e | form)\n|VAR is n|
|00001260| 6f 74 20 65 76 61 6c 75 | 61 74 65 64 20 61 6e 64 |ot evalu|ated and|
|00001270| 20 6d 75 73 74 20 62 65 | 20 61 20 73 79 6d 62 6f | must be| a symbo|
|00001280| 6c 2e 20 20 41 73 73 69 | 67 6e 73 20 74 68 65 20 |l.  Assi|gns the |
|00001290| 76 61 6c 75 65 20 6f 66 | 20 46 4f 52 4d 20 74 6f |value of| FORM to|
|000012a0| 5c 6e 56 41 52 20 61 6e | 64 20 61 64 64 73 20 56 |\nVAR an|d adds V|
|000012b0| 41 52 20 74 6f 20 74 68 | 65 20 6c 69 73 74 20 2a |AR to th|e list *|
|000012c0| 56 41 52 49 41 42 4c 45 | 53 2a 20 6f 66 20 64 65 |VARIABLE|S* of de|
|000012d0| 66 27 65 64 20 76 61 72 | 69 61 62 6c 65 73 2e 20 |f'ed var|iables. |
|000012e0| 52 65 74 75 72 6e 73 20 | 56 41 52 2e 5c 6e 49 66 |Returns |VAR.\nIf|
|000012f0| 20 56 41 52 20 69 73 20 | 61 6c 72 65 61 64 79 20 | VAR is |already |
|00001300| 62 6f 75 6e 64 20 61 6e | 64 20 74 68 65 20 67 6c |bound an|d the gl|
|00001310| 6f 62 61 6c 20 76 61 72 | 69 61 62 6c 65 20 2a 41 |obal var|iable *A|
|00001320| 53 4b 2d 4f 4e 2d 52 45 | 44 45 46 49 4e 45 2a 5c |SK-ON-RE|DEFINE*\|
|00001330| 6e 69 73 20 6e 6f 74 20 | 6e 69 6c 20 74 68 65 6e |nis not |nil then|
|00001340| 20 79 6f 75 20 61 72 65 | 20 61 73 6b 65 64 20 69 | you are| asked i|
|00001350| 66 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 72 65 |f you wa|nt to re|
|00001360| 64 65 66 69 6e 65 20 74 | 68 65 20 76 61 72 69 61 |define t|he varia|
|00001370| 62 6c 65 2e 22 0d 49 53 | 45 51 0d 22 41 72 67 73 |ble.".IS|EQ."Args|
|00001380| 3a 20 28 6e 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6d |: (n &op|tional m|
|00001390| 29 0d 57 69 74 68 20 6f | 6e 65 20 61 72 67 75 6d |).With o|ne argum|
|000013a0| 61 6e 74 20 72 65 74 75 | 72 6e 73 20 61 20 6c 69 |ant retu|rns a li|
|000013b0| 73 74 20 6f 66 20 63 6f | 6e 73 65 63 75 74 69 76 |st of co|nsecutiv|
|000013c0| 65 20 69 6e 74 65 67 65 | 72 73 20 66 72 6f 6d 20 |e intege|rs from |
|000013d0| 30 20 74 6f 20 4e 20 2d | 20 31 2e 0d 57 69 74 68 |0 to N -| 1..With|
|000013e0| 20 74 77 6f 20 72 65 74 | 75 72 6e 73 20 61 20 6c | two ret|urns a l|
|000013f0| 69 73 74 20 6f 66 20 63 | 6f 6e 73 65 63 75 74 69 |ist of c|onsecuti|
|00001400| 76 65 20 69 6e 74 65 67 | 65 72 73 20 66 72 6f 6d |ve integ|ers from|
|00001410| 20 4e 20 74 6f 20 4d 2e | 0d 45 78 61 6d 70 6c 65 | N to M.|.Example|
|00001420| 73 3a 20 28 69 73 65 71 | 20 34 29 20 72 65 74 75 |s: (iseq| 4) retu|
|00001430| 72 6e 73 20 28 30 20 31 | 20 32 20 33 29 0d 20 20 |rns (0 1| 2 3).  |
|00001440| 20 20 20 20 20 20 20 20 | 28 69 73 65 71 20 33 20 |        |(iseq 3 |
|00001450| 37 29 20 20 72 65 74 75 | 72 6e 73 20 28 33 20 34 |7)  retu|rns (3 4|
|00001460| 20 35 20 36 20 37 29 0d | 20 20 20 20 20 20 20 20 | 5 6 7).|        |
|00001470| 20 20 28 69 73 65 71 20 | 33 20 2d 33 29 20 72 65 |  (iseq |3 -3) re|
|00001480| 74 75 72 6e 73 20 28 33 | 20 32 20 31 20 30 20 2d |turns (3| 2 1 0 -|
|00001490| 31 20 2d 32 20 2d 33 29 | 22 0d 4c 49 53 54 0d 22 |1 -2 -3)|".LIST."|
|000014a0| 41 72 67 73 3a 20 28 26 | 72 65 73 74 20 61 72 67 |Args: (&|rest arg|
|000014b0| 73 29 5c 6e 52 65 74 75 | 72 6e 73 20 61 20 6c 69 |s)\nRetu|rns a li|
|000014c0| 73 74 20 6f 66 20 69 74 | 73 20 61 72 67 75 6d 65 |st of it|s argume|
|000014d0| 6e 74 73 22 0d 52 45 50 | 45 41 54 0d 22 5c 6e 41 |nts".REP|EAT."\nA|
|000014e0| 72 67 73 3a 20 28 76 61 | 6c 73 20 74 69 6d 65 73 |rgs: (va|ls times|
|000014f0| 29 5c 6e 52 65 70 65 61 | 74 73 20 56 41 4c 53 2e |)\nRepea|ts VALS.|
|00001500| 20 49 66 20 54 49 4d 45 | 53 20 69 73 20 61 20 6e | If TIME|S is a n|
|00001510| 75 6d 62 65 72 20 61 6e | 64 20 56 41 4c 53 20 69 |umber an|d VALS i|
|00001520| 73 20 61 20 6e 6f 6e 2d | 6e 75 6c 6c 2c 20 6e 6f |s a non-|null, no|
|00001530| 6e 2d 61 72 72 61 79 20 | 61 74 6f 6d 2c 20 61 20 |n-array |atom, a |
|00001540| 6c 69 73 74 5c 6e 6f 66 | 20 6c 65 6e 67 74 68 20 |list\nof| length |
|00001550| 54 49 4d 45 53 20 77 69 | 74 68 20 61 6c 6c 20 65 |TIMES wi|th all e|
|00001560| 6c 65 6d 65 6e 74 73 20 | 65 71 20 74 6f 20 56 41 |lements |eq to VA|
|00001570| 4c 53 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 20 |LS is re|turned. |
|00001580| 49 66 20 56 41 4c 53 20 | 69 73 20 61 20 6c 69 73 |If VALS |is a lis|
|00001590| 74 20 61 6e 64 5c 6e 54 | 49 4d 45 53 20 69 73 20 |t and\nT|IMES is |
|000015a0| 61 20 6e 75 6d 62 65 72 | 20 74 68 65 6e 20 56 41 |a number| then VA|
|000015b0| 4c 53 20 69 73 20 61 70 | 70 65 6e 64 65 64 20 54 |LS is ap|pended T|
|000015c0| 49 4d 45 53 20 74 69 6d | 65 73 2e 20 49 66 20 54 |IMES tim|es. If T|
|000015d0| 49 4d 45 53 20 69 73 20 | 61 20 6c 69 73 74 20 6f |IMES is |a list o|
|000015e0| 66 20 6e 75 6d 62 65 72 | 73 5c 6e 74 68 65 6e 20 |f number|s\nthen |
|000015f0| 56 41 4c 53 20 6d 75 73 | 74 20 62 65 20 61 20 6c |VALS mus|t be a l|
|00001600| 69 73 74 20 6f 66 20 65 | 71 75 61 6c 20 6c 65 6e |ist of e|qual len|
|00001610| 67 74 68 20 61 6e 64 20 | 74 68 65 20 73 69 6d 70 |gth and |the simp|
|00001620| 6c 65 72 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 72 |ler vers|ion of r|
|00001630| 65 70 65 61 74 20 69 73 | 5c 6e 6d 61 70 70 65 64 |epeat is|\nmapped|
|00001640| 20 64 6f 77 6e 20 74 68 | 65 20 74 77 6f 20 6c 69 | down th|e two li|
|00001650| 73 74 73 2e 5c 6e 45 78 | 61 6d 70 6c 65 73 3a 20 |sts.\nEx|amples: |
|00001660| 28 72 65 70 65 61 74 20 | 32 20 35 29 20 20 20 20 |(repeat |2 5)    |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 72 65 74 |        |     ret|
|00001680| 75 72 6e 73 20 28 32 20 | 32 20 32 20 32 20 32 29 |urns (2 |2 2 2 2)|
|00001690| 5c 6e 20 20 20 20 20 20 | 20 20 20 20 28 72 65 70 |\n      |    (rep|
|000016a0| 65 61 74 20 27 28 31 20 | 32 29 20 33 29 20 20 20 |eat '(1 |2) 3)   |
|000016b0| 20 20 20 20 20 20 20 20 | 20 72 65 74 75 72 6e 73 |        | returns|
|000016c0| 20 28 31 20 32 20 31 20 | 32 20 31 20 32 29 5c 6e | (1 2 1 |2 1 2)\n|
|000016d0| 5c 74 20 20 28 72 65 70 | 65 61 74 20 27 28 34 20 |\t  (rep|eat '(4 |
|000016e0| 35 20 36 29 20 27 28 31 | 20 32 20 33 29 29 20 20 |5 6) '(1| 2 3))  |
|000016f0| 20 72 65 74 75 72 6e 73 | 20 28 34 20 35 20 35 20 | returns| (4 5 5 |
|00001700| 36 20 36 20 36 29 5c 6e | 5c 74 20 20 28 72 65 70 |6 6 6)\n|\t  (rep|
|00001710| 65 61 74 20 27 28 28 34 | 29 20 28 35 20 36 29 29 |eat '((4|) (5 6))|
|00001720| 20 27 28 32 20 33 29 29 | 20 72 65 74 75 72 6e 73 | '(2 3))| returns|
|00001730| 20 28 34 20 34 20 35 20 | 36 20 35 20 36 20 35 20 | (4 4 5 |6 5 6 5 |
|00001740| 36 29 22 0d 53 41 4d 50 | 4c 45 0d 22 41 72 67 73 |6)".SAMP|LE."Args|
|00001750| 3a 20 28 78 20 6e 20 26 | 6f 70 74 69 6f 6e 61 6c |: (x n &|optional|
|00001760| 20 28 72 65 70 6c 61 63 | 65 20 6e 69 6c 29 29 0d | (replac|e nil)).|
|00001770| 52 65 74 75 72 6e 73 20 | 61 20 6c 69 73 74 20 6f |Returns |a list o|
|00001780| 66 20 61 20 72 61 6e 64 | 6f 6d 20 73 61 6d 70 6c |f a rand|om sampl|
|00001790| 65 20 6f 66 20 73 69 7a | 65 20 4e 20 66 72 6f 6d |e of siz|e N from|
|000017a0| 20 73 65 71 75 65 6e 63 | 65 20 58 20 64 72 61 77 | sequenc|e X draw|
|000017b0| 6e 20 77 69 74 68 20 6f | 72 0d 77 69 74 68 6f 75 |n with o|r.withou|
|000017c0| 74 20 72 65 70 6c 61 63 | 65 6d 65 6e 74 2e 22 0d |t replac|ement.".|
|000017d0| 53 45 4c 45 43 54 0d 22 | 5c 6e 41 72 67 73 3a 20 |SELECT."|\nArgs: |
|000017e0| 28 61 20 26 72 65 73 74 | 20 69 6e 64 69 63 65 73 |(a &rest| indices|
|000017f0| 29 5c 6e 41 20 63 61 6e | 20 62 65 20 61 20 6c 69 |)\nA can| be a li|
|00001800| 73 74 20 6f 72 20 61 6e | 20 61 72 72 61 79 2e 20 |st or an| array. |
|00001810| 49 66 20 41 20 69 73 20 | 61 20 6c 69 73 74 20 61 |If A is |a list a|
|00001820| 6e 64 20 49 4e 44 49 43 | 45 53 20 69 73 20 61 20 |nd INDIC|ES is a |
|00001830| 73 69 6e 67 6c 65 20 6e | 75 6d 62 65 72 5c 6e 74 |single n|umber\nt|
|00001840| 68 65 6e 20 74 68 65 20 | 61 70 70 72 6f 70 72 69 |hen the |appropri|
|00001850| 61 74 65 20 65 6c 65 6d | 65 6e 74 20 6f 66 20 41 |ate elem|ent of A|
|00001860| 20 69 73 20 72 65 74 75 | 72 6e 65 64 2e 20 49 66 | is retu|rned. If|
|00001870| 20 20 69 73 20 61 20 6c | 69 73 74 20 61 6e 64 20 |  is a l|ist and |
|00001880| 49 4e 44 49 43 45 53 20 | 69 73 5c 6e 61 20 6c 69 |INDICES |is\na li|
|00001890| 73 74 20 6f 66 20 6e 75 | 6d 62 65 72 73 20 74 68 |st of nu|mbers th|
|000018a0| 65 6e 20 74 68 65 20 73 | 75 62 6c 69 73 74 20 6f |en the s|ublist o|
|000018b0| 66 20 74 68 65 20 63 6f | 72 72 65 73 70 6f 6e 64 |f the co|rrespond|
|000018c0| 69 6e 67 20 65 6c 65 6d | 65 6e 74 73 20 69 73 20 |ing elem|ents is |
|000018d0| 72 65 74 75 72 6e 65 64 | 2e 5c 6e 49 66 20 41 20 |returned|.\nIf A |
|000018e0| 69 6e 20 61 6e 20 61 72 | 72 61 79 20 74 68 65 6e |in an ar|ray then|
|000018f0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 49 | the num|ber of I|
|00001900| 4e 44 49 43 45 53 20 6d | 75 73 74 20 6d 61 74 63 |NDICES m|ust matc|
|00001910| 68 20 74 68 65 20 41 52 | 52 41 59 2d 52 41 4e 4b |h the AR|RAY-RANK|
|00001920| 20 6f 66 20 41 2e 5c 6e | 49 66 20 65 61 63 68 20 | of A.\n|If each |
|00001930| 69 6e 64 65 78 20 69 73 | 20 61 20 6e 75 6d 62 65 |index is| a numbe|
|00001940| 72 20 74 68 65 6e 20 74 | 68 65 20 61 70 70 72 6f |r then t|he appro|
|00001950| 70 72 69 61 74 65 20 61 | 72 72 61 79 20 65 6c 65 |priate a|rray ele|
|00001960| 6d 65 6e 74 20 69 73 20 | 72 65 74 75 72 6e 65 64 |ment is |returned|
|00001970| 2e 5c 6e 4f 74 68 65 72 | 77 69 73 65 20 74 68 65 |.\nOther|wise the|
|00001980| 20 49 4e 44 49 43 45 53 | 20 6d 75 73 74 20 61 6c | INDICES| must al|
|00001990| 6c 20 62 65 20 6c 69 73 | 74 73 20 6f 66 20 6e 75 |l be lis|ts of nu|
|000019a0| 6d 62 65 72 73 20 61 6e | 64 20 74 68 65 20 63 6f |mbers an|d the co|
|000019b0| 72 72 65 73 70 6f 6e 64 | 69 6e 67 5c 6e 73 75 62 |rrespond|ing\nsub|
|000019c0| 6d 61 74 72 69 78 20 6f | 66 20 41 20 69 73 20 72 |matrix o|f A is r|
|000019d0| 65 74 75 72 6e 65 64 2e | 20 53 45 4c 45 43 54 20 |eturned.| SELECT |
|000019e0| 63 61 6e 20 62 65 20 75 | 73 65 64 20 69 6e 20 73 |can be u|sed in s|
|000019f0| 65 74 66 2e 22 0d 55 4e | 44 45 46 0d 22 41 72 67 |etf.".UN|DEF."Arg|
|00001a00| 73 3a 20 28 73 79 6d 62 | 6f 6c 29 5c 6e 49 66 20 |s: (symb|ol)\nIf |
|00001a10| 53 59 4d 42 4f 4c 20 69 | 73 20 61 20 64 65 66 69 |SYMBOL i|s a defi|
|00001a20| 6e 65 64 20 76 61 72 69 | 61 62 6c 65 20 69 74 20 |ned vari|able it |
|00001a30| 69 73 20 75 6e 62 6f 75 | 6e 64 20 61 6e 64 20 72 |is unbou|nd and r|
|00001a40| 65 6d 6f 76 65 64 20 66 | 72 6f 6d 20 74 68 65 20 |emoved f|rom the |
|00001a50| 6c 69 73 74 20 6f 66 5c | 6e 64 65 66 69 6e 65 64 |list of\|ndefined|
|00001a60| 20 76 61 72 69 61 62 6c | 65 73 20 61 6e 64 20 72 | variabl|es and r|
|00001a70| 65 74 75 72 6e 73 20 53 | 59 4d 42 4f 4c 2e 22 0d |eturns S|YMBOL.".|
|00001a80| 56 45 43 54 4f 52 0d 22 | 41 72 67 73 3a 20 28 7b |VECTOR."|Args: ({|
|00001a90| 69 74 65 6d 7d 2a 29 5c | 6e 52 65 74 75 72 6e 73 |item}*)\|nReturns|
|00001aa0| 20 61 20 76 65 63 74 6f | 72 20 77 69 74 68 20 49 | a vecto|r with I|
|00001ab0| 54 45 4d 73 20 61 73 20 | 65 6c 65 6d 65 6e 74 73 |TEMs as |elements|
|00001ac0| 2e 22 0d 57 48 49 43 48 | 0d 22 41 72 67 73 3a 20 |.".WHICH|."Args: |
|00001ad0| 28 78 29 5c 6e 58 20 69 | 73 20 61 6e 20 61 72 72 |(x)\nX i|s an arr|
|00001ae0| 61 79 20 6f 72 20 61 20 | 6c 69 73 74 2e 20 52 65 |ay or a |list. Re|
|00001af0| 74 75 72 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |turns a |list of |
|00001b00| 74 68 65 20 69 6e 64 69 | 63 65 73 20 77 68 65 72 |the indi|ces wher|
|00001b10| 65 20 58 20 69 73 20 6e | 6f 74 20 4e 49 4c 2e 22 |e X is n|ot NIL."|
|00001b20| 0d 42 45 54 41 2d 43 44 | 46 0d 22 41 72 67 73 3a |.BETA-CD|F."Args:|
|00001b30| 20 28 78 20 61 6c 70 68 | 61 20 62 65 74 61 29 5c | (x alph|a beta)\|
|00001b40| 6e 52 65 74 75 72 6e 73 | 20 74 68 65 20 76 61 6c |nReturns| the val|
|00001b50| 75 65 20 6f 66 20 74 68 | 65 20 42 65 74 61 28 41 |ue of th|e Beta(A|
|00001b60| 4c 50 48 41 2c 20 42 45 | 54 41 29 20 64 69 73 74 |LPHA, BE|TA) dist|
|00001b70| 72 69 62 75 74 69 6f 6e | 20 66 75 6e 63 74 69 6f |ribution| functio|
|00001b80| 6e 20 61 74 20 58 2e 5c | 6e 56 65 63 74 6f 72 69 |n at X.\|nVectori|
|00001b90| 7a 65 64 2e 22 0d 42 45 | 54 41 2d 44 45 4e 53 0d |zed.".BE|TA-DENS.|
|00001ba0| 22 41 72 67 73 3a 20 28 | 78 20 61 6c 70 68 61 20 |"Args: (|x alpha |
|00001bb0| 62 65 74 61 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |beta)\nR|eturns t|
|00001bc0| 68 65 20 64 65 6e 73 69 | 74 79 20 61 74 20 58 20 |he densi|ty at X |
|00001bd0| 6f 66 20 74 68 65 20 42 | 65 74 61 28 41 4c 50 48 |of the B|eta(ALPH|
|00001be0| 41 2c 20 42 45 54 41 29 | 20 64 69 73 74 72 69 62 |A, BETA)| distrib|
|00001bf0| 75 74 69 6f 6e 2e 20 56 | 65 63 74 6f 72 69 7a 65 |ution. V|ectorize|
|00001c00| 64 2e 22 0d 42 45 54 41 | 2d 51 55 41 4e 54 0d 22 |d.".BETA|-QUANT."|
|00001c10| 41 72 67 73 3a 20 28 70 | 20 61 6c 70 68 61 20 62 |Args: (p| alpha b|
|00001c20| 65 74 61 29 5c 6e 52 65 | 74 75 72 6e 73 20 74 68 |eta)\nRe|turns th|
|00001c30| 65 20 50 2d 74 68 20 71 | 75 61 6e 74 69 6c 65 20 |e P-th q|uantile |
|00001c40| 6f 66 20 74 68 65 20 42 | 65 74 61 28 41 4c 50 48 |of the B|eta(ALPH|
|00001c50| 41 2c 20 42 45 54 41 29 | 20 64 69 73 74 72 69 62 |A, BETA)| distrib|
|00001c60| 75 74 69 6f 6e 2e 20 56 | 65 63 74 6f 72 69 7a 65 |ution. V|ectorize|
|00001c70| 64 2e 22 0d 42 49 4e 4f | 4d 49 41 4c 2d 43 44 46 |d.".BINO|MIAL-CDF|
|00001c80| 0d 22 41 72 67 73 20 28 | 78 20 6e 20 70 29 5c 6e |."Args (|x n p)\n|
|00001c90| 52 65 74 75 72 6e 73 20 | 76 61 6c 75 65 20 6f 66 |Returns |value of|
|00001ca0| 20 74 68 65 20 42 69 6e | 6f 6d 69 61 6c 28 4e 2c | the Bin|omial(N,|
|00001cb0| 20 50 29 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e | P) dist|ribution|
|00001cc0| 20 66 75 6e 63 74 69 6f | 6e 20 61 74 20 58 2e 20 | functio|n at X. |
|00001cd0| 56 65 63 74 6f 72 69 7a | 65 64 2e 22 0d 42 49 4e |Vectoriz|ed.".BIN|
|00001ce0| 4f 4d 49 41 4c 2d 50 4d | 46 0d 22 41 72 67 73 20 |OMIAL-PM|F."Args |
|00001cf0| 28 6b 20 6e 20 70 29 5c | 6e 52 65 74 75 72 6e 73 |(k n p)\|nReturns|
|00001d00| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 42 69 | value o|f the Bi|
|00001d10| 6e 6f 6d 69 61 6c 28 4e | 2c 20 50 29 20 70 6d 66 |nomial(N|, P) pmf|
|00001d20| 20 66 75 6e 63 74 69 6f | 6e 20 61 74 20 69 6e 74 | functio|n at int|
|00001d30| 65 67 65 72 20 4b 2e 20 | 56 65 63 74 6f 72 69 7a |eger K. |Vectoriz|
|00001d40| 65 64 2e 22 0d 42 49 4e | 4f 4d 49 41 4c 2d 51 55 |ed.".BIN|OMIAL-QU|
|00001d50| 41 4e 54 0d 22 41 72 67 | 73 3a 20 28 78 20 6e 20 |ANT."Arg|s: (x n |
|00001d60| 70 29 5c 6e 52 65 74 75 | 72 6e 73 20 78 2d 74 68 |p)\nRetu|rns x-th|
|00001d70| 20 71 75 61 6e 74 69 6c | 65 20 28 6c 65 66 74 20 | quantil|e (left |
|00001d80| 63 6f 6e 74 69 6e 75 6f | 75 73 20 69 6e 76 65 72 |continuo|us inver|
|00001d90| 73 65 29 20 6f 66 20 42 | 69 6e 6f 6d 69 61 6c 28 |se) of B|inomial(|
|00001da0| 4e 2c 20 50 29 20 63 64 | 66 2e 5c 6e 56 65 63 74 |N, P) cd|f.\nVect|
|00001db0| 6f 72 69 7a 65 64 2e 22 | 0d 42 49 4e 4f 4d 49 41 |orized."|.BINOMIA|
|00001dc0| 4c 2d 52 41 4e 44 0d 22 | 41 72 67 73 3a 20 28 6b |L-RAND."|Args: (k|
|00001dd0| 20 6e 20 70 29 5c 6e 52 | 65 74 75 72 6e 73 20 6c | n p)\nR|eturns l|
|00001de0| 69 73 74 20 6f 66 20 4b | 20 64 72 61 77 73 20 66 |ist of K| draws f|
|00001df0| 72 6f 6d 20 74 68 65 20 | 42 69 6e 6f 6d 69 61 6c |rom the |Binomial|
|00001e00| 28 4e 2c 20 50 29 20 64 | 69 73 74 72 69 62 75 74 |(N, P) d|istribut|
|00001e10| 69 6f 6e 2e 20 56 65 63 | 74 6f 72 69 7a 65 64 2e |ion. Vec|torized.|
|00001e20| 22 0d 43 41 55 43 48 59 | 2d 43 44 46 0d 22 41 72 |".CAUCHY|-CDF."Ar|
|00001e30| 67 73 3a 20 28 78 29 5c | 6e 52 65 74 75 72 6e 73 |gs: (x)\|nReturns|
|00001e40| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 74 68 | the val|ue of th|
|00001e50| 65 20 73 74 61 6e 64 61 | 72 64 20 43 61 75 63 68 |e standa|rd Cauch|
|00001e60| 79 20 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 66 |y distri|bution f|
|00001e70| 75 6e 63 74 69 6f 6e 20 | 61 74 20 58 2e 5c 6e 56 |unction |at X.\nV|
|00001e80| 65 63 74 6f 72 69 7a 65 | 64 2e 22 0d 43 41 55 43 |ectorize|d.".CAUC|
|00001e90| 48 59 2d 44 45 4e 53 0d | 22 41 72 67 73 3a 20 28 |HY-DENS.|"Args: (|
|00001ea0| 78 29 5c 6e 52 65 74 75 | 72 6e 73 20 74 68 65 20 |x)\nRetu|rns the |
|00001eb0| 64 65 6e 73 69 74 79 20 | 61 74 20 58 20 6f 66 20 |density |at X of |
|00001ec0| 74 68 65 20 73 74 61 6e | 64 61 72 64 20 43 61 75 |the stan|dard Cau|
|00001ed0| 63 68 79 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e |chy dist|ribution|
|00001ee0| 2e 20 56 65 63 74 6f 72 | 69 7a 65 64 2e 22 0d 43 |. Vector|ized.".C|
|00001ef0| 41 55 43 48 59 2d 51 55 | 41 4e 54 0d 22 41 72 67 |AUCHY-QU|ANT."Arg|
|00001f00| 73 20 28 70 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |s (p)\nR|eturns t|
|00001f10| 68 65 20 50 2d 74 68 20 | 71 75 61 6e 74 69 6c 65 |he P-th |quantile|
|00001f20| 28 73 29 20 6f 66 20 74 | 68 65 20 73 74 61 6e 64 |(s) of t|he stand|
|00001f30| 61 72 64 20 43 61 75 63 | 68 79 20 64 69 73 74 72 |ard Cauc|hy distr|
|00001f40| 69 62 75 74 69 6f 6e 2e | 20 56 65 63 74 6f 72 69 |ibution.| Vectori|
|00001f50| 7a 65 64 2e 22 0d 43 48 | 49 53 51 2d 43 44 46 0d |zed.".CH|ISQ-CDF.|
|00001f60| 22 41 72 67 73 3a 20 28 | 78 20 64 66 29 5c 6e 52 |"Args: (|x df)\nR|
|00001f70| 65 74 75 72 6e 73 20 74 | 68 65 20 76 61 6c 75 65 |eturns t|he value|
|00001f80| 20 6f 66 20 74 68 65 20 | 43 68 69 2d 53 71 75 61 | of the |Chi-Squa|
|00001f90| 72 65 28 44 46 29 20 64 | 69 73 74 72 69 62 75 74 |re(DF) d|istribut|
|00001fa0| 69 6f 6e 20 66 75 6e 63 | 74 69 6f 6e 20 61 74 20 |ion func|tion at |
|00001fb0| 58 2e 20 56 65 63 74 6f | 72 69 7a 65 64 2e 22 0d |X. Vecto|rized.".|
|00001fc0| 43 48 49 53 51 2d 44 45 | 4e 53 0d 22 41 72 67 73 |CHISQ-DE|NS."Args|
|00001fd0| 3a 20 28 78 20 61 6c 70 | 68 61 29 5c 6e 52 65 74 |: (x alp|ha)\nRet|
|00001fe0| 75 72 6e 73 20 74 68 65 | 20 64 65 6e 73 69 74 79 |urns the| density|
|00001ff0| 20 61 74 20 58 20 6f 66 | 20 74 68 65 20 43 68 69 | at X of| the Chi|
|00002000| 2d 53 71 75 61 72 65 28 | 44 46 29 20 64 69 73 74 |-Square(|DF) dist|
|00002010| 72 69 62 75 74 69 6f 6e | 2e 20 56 65 63 74 6f 72 |ribution|. Vector|
|00002020| 69 7a 65 64 2e 22 0d 43 | 48 49 53 51 2d 51 55 41 |ized.".C|HISQ-QUA|
|00002030| 4e 54 0d 22 41 72 67 73 | 3a 20 28 70 20 64 66 29 |NT."Args|: (p df)|
|00002040| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 50 2d |\nReturn|s the P-|
|00002050| 74 68 20 71 75 61 6e 74 | 69 6c 65 20 6f 66 20 74 |th quant|ile of t|
|00002060| 68 65 20 43 68 69 2d 53 | 71 75 61 72 65 28 44 46 |he Chi-S|quare(DF|
|00002070| 29 20 64 69 73 74 72 69 | 62 75 74 69 6f 6e 2e 20 |) distri|bution. |
|00002080| 56 65 63 74 6f 72 69 7a | 65 64 2e 22 0d 46 2d 43 |Vectoriz|ed.".F-C|
|00002090| 44 46 0d 22 41 72 67 73 | 3a 20 28 78 20 6e 64 66 |DF."Args|: (x ndf|
|000020a0| 20 64 64 66 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 | ddf)\nR|eturns t|
|000020b0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |he value| of the |
|000020c0| 46 28 4e 44 46 2c 20 44 | 44 46 29 20 64 69 73 74 |F(NDF, D|DF) dist|
|000020d0| 72 69 62 75 74 69 6f 6e | 20 66 75 6e 63 74 69 6f |ribution| functio|
|000020e0| 6e 20 61 74 20 58 2e 20 | 56 65 63 74 6f 72 69 7a |n at X. |Vectoriz|
|000020f0| 65 64 2e 22 0d 46 2d 44 | 45 4e 53 0d 22 41 72 67 |ed.".F-D|ENS."Arg|
|00002100| 73 3a 20 28 78 20 6e 64 | 66 20 64 64 66 29 5c 6e |s: (x nd|f ddf)\n|
|00002110| 52 65 74 75 72 6e 73 20 | 74 68 65 20 64 65 6e 73 |Returns |the dens|
|00002120| 69 74 79 20 61 74 20 58 | 20 6f 66 20 74 68 65 20 |ity at X| of the |
|00002130| 46 28 4e 44 46 2c 20 44 | 44 46 29 20 64 69 73 74 |F(NDF, D|DF) dist|
|00002140| 72 69 62 75 74 69 6f 6e | 2e 20 56 65 63 74 6f 72 |ribution|. Vector|
|00002150| 69 7a 65 64 2e 22 0d 46 | 2d 51 55 41 4e 54 0d 22 |ized.".F|-QUANT."|
|00002160| 41 72 67 73 3a 20 28 70 | 20 6e 64 66 20 64 64 66 |Args: (p| ndf ddf|
|00002170| 29 5c 6e 52 65 74 75 72 | 6e 73 20 74 68 65 20 50 |)\nRetur|ns the P|
|00002180| 2d 74 68 20 71 75 61 6e | 74 69 6c 65 20 6f 66 20 |-th quan|tile of |
|00002190| 74 68 65 20 46 28 4e 44 | 46 2c 20 44 44 46 29 20 |the F(ND|F, DDF) |
|000021a0| 64 69 73 74 72 69 62 75 | 74 69 6f 6e 2e 20 56 65 |distribu|tion. Ve|
|000021b0| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 47 41 4d 4d 41 |ctorized|.".GAMMA|
|000021c0| 2d 43 44 46 0d 22 41 72 | 67 73 3a 20 28 78 20 61 |-CDF."Ar|gs: (x a|
|000021d0| 6c 70 68 61 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |lpha)\nR|eturns t|
|000021e0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |he value| of the |
|000021f0| 47 61 6d 6d 61 28 61 6c | 70 68 61 2c 20 31 29 20 |Gamma(al|pha, 1) |
|00002200| 64 69 73 74 72 69 62 75 | 74 69 6f 6e 20 66 75 6e |distribu|tion fun|
|00002210| 63 74 69 6f 6e 20 61 74 | 20 58 2e 5c 6e 56 65 63 |ction at| X.\nVec|
|00002220| 74 6f 72 69 7a 65 64 2e | 22 0d 47 41 4d 4d 41 2d |torized.|".GAMMA-|
|00002230| 44 45 4e 53 0d 22 41 72 | 67 73 3a 20 28 78 20 61 |DENS."Ar|gs: (x a|
|00002240| 6c 70 68 61 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |lpha)\nR|eturns t|
|00002250| 68 65 20 64 65 6e 73 69 | 74 79 20 61 74 20 58 20 |he densi|ty at X |
|00002260| 6f 66 20 74 68 65 20 47 | 61 6d 6d 61 28 41 4c 50 |of the G|amma(ALP|
|00002270| 48 41 2c 20 31 29 20 64 | 69 73 74 72 69 62 75 74 |HA, 1) d|istribut|
|00002280| 69 6f 6e 2e 20 56 65 63 | 74 6f 72 69 7a 65 64 2e |ion. Vec|torized.|
|00002290| 22 0d 47 41 4d 4d 41 2d | 51 55 41 4e 54 0d 22 41 |".GAMMA-|QUANT."A|
|000022a0| 72 67 73 3a 20 28 70 20 | 61 6c 70 68 61 29 5c 6e |rgs: (p |alpha)\n|
|000022b0| 52 65 74 75 72 6e 73 20 | 74 68 65 20 50 2d 74 68 |Returns |the P-th|
|000022c0| 20 71 75 61 6e 74 69 6c | 65 20 6f 66 20 74 68 65 | quantil|e of the|
|000022d0| 20 47 61 6d 6d 61 28 41 | 4c 50 48 41 2c 20 31 29 | Gamma(A|LPHA, 1)|
|000022e0| 20 64 69 73 74 72 69 62 | 75 74 69 6f 6e 2e 20 56 | distrib|ution. V|
|000022f0| 65 63 74 6f 72 69 7a 65 | 64 2e 22 0d 4e 4f 52 4d |ectorize|d.".NORM|
|00002300| 41 4c 2d 43 44 46 0d 22 | 41 72 67 73 3a 20 28 78 |AL-CDF."|Args: (x|
|00002310| 29 5c 6e 52 65 74 75 72 | 6e 73 20 74 68 65 20 76 |)\nRetur|ns the v|
|00002320| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 73 74 61 6e |alue of |the stan|
|00002330| 64 61 72 64 20 6e 6f 72 | 6d 61 6c 20 64 69 73 74 |dard nor|mal dist|
|00002340| 72 69 62 75 74 69 6f 6e | 20 66 75 6e 63 74 69 6f |ribution| functio|
|00002350| 6e 20 61 74 20 58 2e 5c | 6e 56 65 63 74 6f 72 69 |n at X.\|nVectori|
|00002360| 7a 65 64 2e 22 0d 42 49 | 56 4e 4f 52 4d 2d 43 44 |zed.".BI|VNORM-CD|
|00002370| 46 0d 22 41 72 67 73 3a | 20 28 78 20 79 20 72 29 |F."Args:| (x y r)|
|00002380| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 76 61 |\nReturn|s the va|
|00002390| 6c 75 65 20 6f 66 20 74 | 68 65 20 73 74 61 6e 64 |lue of t|he stand|
|000023a0| 61 72 64 20 62 69 76 61 | 72 69 61 74 65 20 6e 6f |ard biva|riate no|
|000023b0| 72 6d 61 6c 20 64 69 73 | 74 72 69 62 75 74 69 6f |rmal dis|tributio|
|000023c0| 6e 20 66 75 6e 63 74 69 | 6f 6e 20 5c 6e 77 69 74 |n functi|on \nwit|
|000023d0| 68 20 63 6f 72 72 65 6c | 61 74 69 6f 6e 20 52 20 |h correl|ation R |
|000023e0| 61 74 20 28 58 2c 20 59 | 29 2e 20 56 65 63 74 6f |at (X, Y|). Vecto|
|000023f0| 72 69 7a 65 64 2e 22 0d | 4e 4f 52 4d 41 4c 2d 44 |rized.".|NORMAL-D|
|00002400| 45 4e 53 0d 22 41 72 67 | 73 3a 20 28 78 29 5c 6e |ENS."Arg|s: (x)\n|
|00002410| 52 65 74 75 72 6e 73 20 | 74 68 65 20 64 65 6e 73 |Returns |the dens|
|00002420| 69 74 79 20 61 74 20 58 | 20 6f 66 20 74 68 65 20 |ity at X| of the |
|00002430| 73 74 61 6e 64 61 72 64 | 20 6e 6f 72 6d 61 6c 20 |standard| normal |
|00002440| 64 69 73 74 72 69 62 75 | 74 69 6f 6e 2e 20 56 65 |distribu|tion. Ve|
|00002450| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 4e 4f 52 4d 41 |ctorized|.".NORMA|
|00002460| 4c 2d 51 55 41 4e 54 0d | 22 41 72 67 73 20 28 70 |L-QUANT.|"Args (p|
|00002470| 29 5c 6e 52 65 74 75 72 | 6e 73 20 74 68 65 20 50 |)\nRetur|ns the P|
|00002480| 2d 74 68 20 71 75 61 6e | 74 69 6c 65 20 6f 66 20 |-th quan|tile of |
|00002490| 74 68 65 20 73 74 61 6e | 64 61 72 64 20 6e 6f 72 |the stan|dard nor|
|000024a0| 6d 61 6c 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e |mal dist|ribution|
|000024b0| 2e 20 56 65 63 74 6f 72 | 69 7a 65 64 2e 22 0d 4f |. Vector|ized.".O|
|000024c0| 52 44 45 52 0d 22 41 72 | 67 73 20 28 78 29 5c 6e |RDER."Ar|gs (x)\n|
|000024d0| 52 65 74 75 72 6e 73 20 | 61 20 73 65 71 75 65 6e |Returns |a sequen|
|000024e0| 63 65 20 6f 66 20 74 68 | 65 20 69 6e 64 69 63 65 |ce of th|e indice|
|000024f0| 73 20 6f 66 20 65 6c 65 | 6d 65 6e 74 73 20 69 6e |s of ele|ments in|
|00002500| 20 74 68 65 20 73 65 71 | 75 65 6e 63 65 20 6f 66 | the seq|uence of|
|00002510| 20 6e 75 6d 62 65 72 73 | 5c 6e 6f 72 20 73 74 72 | numbers|\nor str|
|00002520| 69 6e 67 73 20 58 20 69 | 6e 20 6f 72 64 65 72 2e |ings X i|n order.|
|00002530| 22 0d 50 4f 49 53 53 4f | 4e 2d 43 44 46 0d 22 41 |".POISSO|N-CDF."A|
|00002540| 72 67 73 20 28 78 20 6d | 75 29 5c 6e 52 65 74 75 |rgs (x m|u)\nRetu|
|00002550| 72 6e 73 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |rns valu|e of the|
|00002560| 20 50 6f 69 73 73 6f 6e | 28 4d 55 29 20 64 69 73 | Poisson|(MU) dis|
|00002570| 74 72 69 62 75 74 69 6f | 6e 20 66 75 6e 63 74 69 |tributio|n functi|
|00002580| 6f 6e 20 61 74 20 58 2e | 20 56 65 63 74 6f 72 69 |on at X.| Vectori|
|00002590| 7a 65 64 2e 22 0d 50 4f | 49 53 53 4f 4e 2d 50 4d |zed.".PO|ISSON-PM|
|000025a0| 46 0d 22 41 72 67 73 20 | 28 6b 20 6d 75 29 5c 6e |F."Args |(k mu)\n|
|000025b0| 52 65 74 75 72 6e 73 20 | 76 61 6c 75 65 20 6f 66 |Returns |value of|
|000025c0| 20 74 68 65 20 50 6f 69 | 73 73 6f 6e 28 4d 55 29 | the Poi|sson(MU)|
|000025d0| 20 70 6d 66 20 66 75 6e | 63 74 69 6f 6e 20 61 74 | pmf fun|ction at|
|000025e0| 20 69 6e 74 65 67 65 72 | 20 4b 2e 20 56 65 63 74 | integer| K. Vect|
|000025f0| 6f 72 69 7a 65 64 2e 22 | 0d 50 4f 49 53 53 4f 4e |orized."|.POISSON|
|00002600| 2d 51 55 41 4e 54 0d 22 | 41 72 67 73 3a 20 28 78 |-QUANT."|Args: (x|
|00002610| 20 6d 75 29 5c 6e 52 65 | 74 75 72 6e 73 20 78 2d | mu)\nRe|turns x-|
|00002620| 74 68 20 71 75 61 6e 74 | 69 6c 65 20 28 6c 65 66 |th quant|ile (lef|
|00002630| 74 20 63 6f 6e 74 69 6e | 75 6f 75 73 20 69 6e 76 |t contin|uous inv|
|00002640| 65 72 73 65 29 20 6f 66 | 20 50 6f 69 73 73 6f 6e |erse) of| Poisson|
|00002650| 28 4d 55 29 20 63 64 66 | 2e 5c 6e 56 65 63 74 6f |(MU) cdf|.\nVecto|
|00002660| 72 69 7a 65 64 2e 22 0d | 50 4f 49 53 53 4f 4e 2d |rized.".|POISSON-|
|00002670| 52 41 4e 44 0d 22 41 72 | 67 73 3a 20 28 6b 20 6d |RAND."Ar|gs: (k m|
|00002680| 75 29 5c 6e 52 65 74 75 | 72 6e 73 20 6c 69 73 74 |u)\nRetu|rns list|
|00002690| 20 6f 66 20 4b 20 64 72 | 61 77 73 20 66 72 6f 6d | of K dr|aws from|
|000026a0| 20 74 68 65 20 50 6f 69 | 73 73 6f 6e 28 4d 55 29 | the Poi|sson(MU)|
|000026b0| 20 64 69 73 74 72 69 62 | 75 74 69 6f 6e 2e 20 56 | distrib|ution. V|
|000026c0| 65 63 74 6f 72 69 7a 65 | 64 2e 22 0d 52 41 4e 4b |ectorize|d.".RANK|
|000026d0| 0d 22 41 72 67 73 20 28 | 78 29 5c 6e 52 65 74 75 |."Args (|x)\nRetu|
|000026e0| 72 6e 73 20 61 20 73 65 | 71 75 65 6e 63 65 20 77 |rns a se|quence w|
|000026f0| 69 74 68 20 74 68 65 20 | 65 6c 65 6d 65 6e 74 73 |ith the |elements|
|00002700| 20 6f 66 20 74 68 65 20 | 6c 69 73 74 20 6f 72 20 | of the |list or |
|00002710| 61 72 72 61 79 20 6f 66 | 20 6e 75 6d 62 65 72 73 |array of| numbers|
|00002720| 20 6f 72 5c 6e 73 74 72 | 69 6e 67 73 20 58 20 72 | or\nstr|ings X r|
|00002730| 65 70 6c 61 63 65 64 20 | 62 79 20 74 68 65 69 72 |eplaced |by their|
|00002740| 20 72 61 6e 6b 73 2e 22 | 0d 53 4f 52 54 2d 44 41 | ranks."|.SORT-DA|
|00002750| 54 41 0d 22 41 72 67 73 | 3a 20 28 73 65 71 75 65 |TA."Args|: (seque|
|00002760| 6e 63 65 29 5c 6e 52 65 | 74 75 72 6e 73 20 61 20 |nce)\nRe|turns a |
|00002770| 73 65 71 75 65 6e 63 65 | 20 77 69 74 68 20 74 68 |sequence| with th|
|00002780| 65 20 6e 75 6d 62 65 72 | 73 20 6f 72 20 73 74 72 |e number|s or str|
|00002790| 69 6e 67 73 20 69 6e 20 | 74 68 65 20 73 65 71 75 |ings in |the sequ|
|000027a0| 65 6e 63 65 20 58 20 69 | 6e 20 6f 72 64 65 72 2e |ence X i|n order.|
|000027b0| 22 0d 54 2d 43 44 46 0d | 22 41 72 67 73 3a 20 28 |".T-CDF.|"Args: (|
|000027c0| 78 20 64 66 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |x df)\nR|eturns t|
|000027d0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |he value| of the |
|000027e0| 54 28 44 46 29 20 64 69 | 73 74 72 69 62 75 74 69 |T(DF) di|stributi|
|000027f0| 6f 6e 20 66 75 6e 63 74 | 69 6f 6e 20 61 74 20 58 |on funct|ion at X|
|00002800| 2e 20 56 65 63 74 6f 72 | 69 7a 65 64 2e 22 0d 54 |. Vector|ized.".T|
|00002810| 2d 44 45 4e 53 0d 22 41 | 72 67 73 3a 20 28 78 20 |-DENS."A|rgs: (x |
|00002820| 61 6c 70 68 61 29 5c 6e | 52 65 74 75 72 6e 73 20 |alpha)\n|Returns |
|00002830| 74 68 65 20 64 65 6e 73 | 69 74 79 20 61 74 20 58 |the dens|ity at X|
|00002840| 20 6f 66 20 74 68 65 20 | 54 28 44 46 29 20 64 69 | of the |T(DF) di|
|00002850| 73 74 72 69 62 75 74 69 | 6f 6e 2e 20 56 65 63 74 |stributi|on. Vect|
|00002860| 6f 72 69 7a 65 64 2e 22 | 0d 54 2d 51 55 41 4e 54 |orized."|.T-QUANT|
|00002870| 0d 22 41 72 67 73 3a 20 | 28 70 20 64 66 29 5c 6e |."Args: |(p df)\n|
|00002880| 52 65 74 75 72 6e 73 20 | 74 68 65 20 50 2d 74 68 |Returns |the P-th|
|00002890| 20 71 75 61 6e 74 69 6c | 65 20 6f 66 20 74 68 65 | quantil|e of the|
|000028a0| 20 54 28 44 46 29 20 64 | 69 73 74 72 69 62 75 74 | T(DF) d|istribut|
|000028b0| 69 6f 6e 2e 20 56 65 63 | 74 6f 72 69 7a 65 64 2e |ion. Vec|torized.|
|000028c0| 22 0d 55 4e 49 46 4f 52 | 4d 2d 52 41 4e 44 0d 22 |".UNIFOR|M-RAND."|
|000028d0| 41 72 67 73 3a 20 28 6e | 29 5c 6e 52 65 74 75 72 |Args: (n|)\nRetur|
|000028e0| 6e 73 20 61 20 6c 69 73 | 74 20 6f 66 20 4e 20 75 |ns a lis|t of N u|
|000028f0| 6e 69 66 6f 72 6d 20 72 | 61 6e 64 6f 6d 20 76 61 |niform r|andom va|
|00002900| 72 69 61 62 6c 65 73 20 | 66 72 6f 6d 20 74 68 65 |riables |from the|
|00002910| 20 72 61 6e 67 65 20 28 | 30 2c 20 31 29 2e 5c 6e | range (|0, 1).\n|
|00002920| 56 65 63 74 6f 72 69 7a | 65 64 2e 22 0d 4e 4f 52 |Vectoriz|ed.".NOR|
|00002930| 4d 41 4c 2d 52 41 4e 44 | 0d 22 41 72 67 73 3a 20 |MAL-RAND|."Args: |
|00002940| 28 6e 29 0d 52 65 74 75 | 72 6e 73 20 61 20 6c 69 |(n).Retu|rns a li|
|00002950| 73 74 20 6f 66 20 4e 20 | 73 74 61 6e 64 61 72 64 |st of N |standard|
|00002960| 20 6e 6f 72 6d 61 6c 20 | 72 61 6e 64 6f 6d 20 6e | normal |random n|
|00002970| 75 6d 62 65 72 73 2e 20 | 56 65 63 74 6f 72 69 7a |umbers. |Vectoriz|
|00002980| 65 64 2e 22 0d 43 41 55 | 43 48 59 2d 52 41 4e 44 |ed.".CAU|CHY-RAND|
|00002990| 0d 22 41 72 67 73 3a 20 | 28 6e 29 0d 52 65 74 75 |."Args: |(n).Retu|
|000029a0| 72 6e 73 20 61 20 6c 69 | 73 74 20 6f 66 20 4e 20 |rns a li|st of N |
|000029b0| 73 74 61 6e 64 61 72 64 | 20 43 61 75 63 68 79 20 |standard| Cauchy |
|000029c0| 72 61 6e 64 6f 6d 20 6e | 75 6d 62 65 72 73 2e 20 |random n|umbers. |
|000029d0| 56 65 63 74 6f 72 69 7a | 65 64 2e 22 0d 54 2d 52 |Vectoriz|ed.".T-R|
|000029e0| 41 4e 44 0d 22 41 72 67 | 73 3a 20 28 6e 20 64 66 |AND."Arg|s: (n df|
|000029f0| 29 0d 52 65 74 75 72 6e | 73 20 61 20 6c 69 73 74 |).Return|s a list|
|00002a00| 20 6f 66 20 4e 20 54 28 | 44 46 29 20 72 61 6e 64 | of N T(|DF) rand|
|00002a10| 6f 6d 20 76 61 72 69 61 | 62 6c 65 73 2e 20 56 65 |om varia|bles. Ve|
|00002a20| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 46 2d 52 41 4e |ctorized|.".F-RAN|
|00002a30| 44 0d 22 41 72 67 73 3a | 20 28 6e 20 6e 64 66 20 |D."Args:| (n ndf |
|00002a40| 64 64 66 29 0d 52 65 74 | 75 72 6e 73 20 61 20 6c |ddf).Ret|urns a l|
|00002a50| 69 73 74 20 6f 66 20 4e | 20 46 28 4e 44 46 2c 20 |ist of N| F(NDF, |
|00002a60| 44 44 46 29 20 72 61 6e | 64 6f 6d 20 76 61 72 69 |DDF) ran|dom vari|
|00002a70| 61 62 6c 65 73 2e 20 56 | 65 63 74 6f 72 69 7a 65 |ables. V|ectorize|
|00002a80| 64 2e 22 0d 47 41 4d 4d | 41 2d 52 41 4e 44 0d 22 |d.".GAMM|A-RAND."|
|00002a90| 41 72 67 73 3a 20 28 6e | 20 61 29 0d 52 65 74 75 |Args: (n| a).Retu|
|00002aa0| 72 6e 73 20 61 20 6c 69 | 73 74 20 6f 66 20 4e 20 |rns a li|st of N |
|00002ab0| 47 61 6d 6d 61 28 41 2c | 20 31 29 20 72 61 6e 64 |Gamma(A,| 1) rand|
|00002ac0| 6f 6d 20 76 61 72 69 61 | 62 6c 65 73 2e 20 56 65 |om varia|bles. Ve|
|00002ad0| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 43 48 49 53 51 |ctorized|.".CHISQ|
|00002ae0| 2d 52 41 4e 44 0d 22 41 | 72 67 73 3a 20 28 6e 20 |-RAND."A|rgs: (n |
|00002af0| 64 66 29 0d 52 65 74 75 | 72 6e 73 20 61 20 6c 69 |df).Retu|rns a li|
|00002b00| 73 74 20 6f 66 20 4e 20 | 43 68 69 2d 53 71 75 61 |st of N |Chi-Squa|
|00002b10| 72 65 28 44 46 29 20 72 | 61 6e 64 6f 6d 20 76 61 |re(DF) r|andom va|
|00002b20| 72 69 61 62 6c 65 73 2e | 20 56 65 63 74 6f 72 69 |riables.| Vectori|
|00002b30| 7a 65 64 2e 22 0d 42 45 | 54 41 2d 52 41 4e 44 0d |zed.".BE|TA-RAND.|
|00002b40| 22 41 72 67 73 3a 20 28 | 6e 20 61 20 62 29 0d 52 |"Args: (|n a b).R|
|00002b50| 65 74 75 72 6e 73 20 61 | 20 6c 69 73 74 20 6f 66 |eturns a| list of|
|00002b60| 20 4e 20 62 65 74 61 28 | 41 2c 20 42 29 20 72 61 | N beta(|A, B) ra|
|00002b70| 6e 64 6f 6d 20 76 61 72 | 69 61 62 6c 65 73 2e 20 |ndom var|iables. |
|00002b80| 56 65 63 74 6f 72 69 7a | 65 64 2e 22 0d 48 49 53 |Vectoriz|ed.".HIS|
|00002b90| 54 4f 47 52 41 4d 0d 22 | 41 72 67 73 3a 20 28 64 |TOGRAM."|Args: (d|
|00002ba0| 61 74 61 20 26 6b 65 79 | 20 28 74 69 74 6c 65 20 |ata &key| (title |
|00002bb0| 22 48 69 73 74 6f 67 72 | 61 6d 22 29 29 5c 6e 4f |"Histogr|am"))\nO|
|00002bc0| 70 65 6e 73 20 61 20 77 | 69 6e 64 6f 77 20 77 69 |pens a w|indow wi|
|00002bd0| 74 68 20 61 20 68 69 73 | 74 6f 67 72 61 6d 20 6f |th a his|togram o|
|00002be0| 66 20 44 41 54 41 2e 20 | 54 49 54 4c 45 20 69 73 |f DATA. |TITLE is|
|00002bf0| 20 74 68 65 20 77 69 6e | 64 6f 77 20 74 69 74 6c | the win|dow titl|
|00002c00| 65 2e 20 54 68 65 20 6e | 75 6d 62 65 72 5c 6e 6f |e. The n|umber\no|
|00002c10| 66 20 62 69 6e 73 20 75 | 73 65 64 20 63 61 6e 20 |f bins u|sed can |
|00002c20| 62 65 20 61 64 6a 75 73 | 74 65 64 20 75 73 69 6e |be adjus|ted usin|
|00002c30| 67 20 74 68 65 20 68 69 | 73 74 6f 67 72 61 6d 20 |g the hi|stogram |
|00002c40| 6d 65 6e 75 2e 20 54 68 | 65 20 68 69 73 74 6f 67 |menu. Th|e histog|
|00002c50| 72 61 6d 20 63 61 6e 20 | 62 65 5c 6e 6c 69 6e 6b |ram can |be\nlink|
|00002c60| 65 64 20 74 6f 20 6f 74 | 68 65 72 20 70 6c 6f 74 |ed to ot|her plot|
|00002c70| 73 20 77 69 74 68 20 74 | 68 65 20 6c 69 6e 6b 2d |s with t|he link-|
|00002c80| 76 69 65 77 73 20 63 6f | 6d 6d 61 6e 64 2e 20 52 |views co|mmand. R|
|00002c90| 65 74 75 72 6e 73 20 61 | 20 70 6c 6f 74 20 6f 62 |eturns a| plot ob|
|00002ca0| 6a 65 63 74 2e 22 0d 4c | 49 4e 4b 2d 56 49 45 57 |ject.".L|INK-VIEW|
|00002cb0| 53 0d 22 41 72 67 73 3a | 20 28 26 72 65 73 74 20 |S."Args:| (&rest |
|00002cc0| 70 6c 6f 74 73 29 5c 6e | 4c 69 6e 6b 73 20 74 68 |plots)\n|Links th|
|00002cd0| 65 20 61 72 67 75 6d 65 | 6e 74 20 70 6c 6f 74 73 |e argume|nt plots|
|00002ce0| 3a 20 61 6e 79 20 63 68 | 61 6e 67 65 20 69 6e 20 |: any ch|ange in |
|00002cf0| 68 69 6c 69 74 69 6e 67 | 20 6f 72 20 76 69 73 69 |hiliting| or visi|
|00002d00| 62 69 6c 69 74 79 20 6f | 66 20 70 6f 69 6e 74 73 |bility o|f points|
|00002d10| 20 69 6e 5c 6e 74 68 65 | 20 63 75 72 72 65 6e 74 | in\nthe| current|
|00002d20| 20 70 6c 6f 74 20 69 73 | 20 70 72 6f 70 61 67 61 | plot is| propaga|
|00002d30| 74 65 64 20 74 6f 20 74 | 68 65 20 6f 74 68 65 72 |ted to t|he other|
|00002d40| 20 70 6c 6f 74 73 2e 22 | 0d 4e 41 4d 45 2d 4c 49 | plots."|.NAME-LI|
|00002d50| 53 54 0d 22 41 72 67 73 | 3a 20 28 6e 61 6d 65 73 |ST."Args|: (names|
|00002d60| 20 26 6b 65 79 20 28 74 | 69 74 6c 65 20 22 4e 61 | &key (t|itle "Na|
|00002d70| 6d 65 20 4c 69 73 74 22 | 29 29 5c 6e 4e 41 4d 45 |me List"|))\nNAME|
|00002d80| 53 20 69 73 20 61 20 6e | 75 6d 62 65 72 20 6f 72 |S is a n|umber or|
|00002d90| 20 61 20 6c 69 73 74 20 | 6f 66 20 63 68 61 72 61 | a list |of chara|
|00002da0| 63 74 65 72 20 73 74 72 | 69 6e 67 73 2e 20 4f 70 |cter str|ings. Op|
|00002db0| 65 6e 73 20 61 20 77 69 | 6e 64 6f 77 20 77 69 74 |ens a wi|ndow wit|
|00002dc0| 68 20 61 20 6c 69 73 74 | 5c 6e 6f 66 20 74 68 65 |h a list|\nof the|
|00002dd0| 20 73 75 70 70 6c 69 65 | 64 20 63 68 61 72 61 63 | supplie|d charac|
|00002de0| 74 65 72 20 73 74 72 69 | 6e 67 73 20 6f 72 20 65 |ter stri|ngs or e|
|00002df0| 6e 74 72 69 65 73 20 6e | 75 6d 62 65 72 65 64 20 |ntries n|umbered |
|00002e00| 66 72 6f 6d 20 30 20 74 | 6f 20 4e 41 4d 45 53 20 |from 0 t|o NAMES |
|00002e10| 2d 20 31 2e 5c 6e 54 68 | 69 73 20 64 69 73 70 6c |- 1.\nTh|is displ|
|00002e20| 61 79 20 63 61 6e 20 62 | 65 20 6c 69 6e 6b 65 64 |ay can b|e linked|
|00002e30| 20 74 6f 20 70 6c 6f 74 | 73 20 77 69 74 68 20 74 | to plot|s with t|
|00002e40| 68 65 20 6c 69 6e 6b 2d | 76 69 65 77 73 20 66 75 |he link-|views fu|
|00002e50| 6e 63 74 69 6f 6e 2e 20 | 52 65 74 75 72 6e 73 20 |nction. |Returns |
|00002e60| 61 5c 6e 70 6c 6f 74 20 | 6f 62 6a 65 63 74 2e 22 |a\nplot |object."|
|00002e70| 0d 50 4c 4f 54 2d 46 55 | 4e 43 54 49 4f 4e 0d 22 |.PLOT-FU|NCTION."|
|00002e80| 41 72 67 73 3a 20 28 66 | 20 78 6d 69 6e 20 78 6d |Args: (f| xmin xm|
|00002e90| 61 78 20 26 6f 70 74 69 | 6f 6e 61 6c 20 28 6e 75 |ax &opti|onal (nu|
|00002ea0| 6d 2d 70 6f 69 6e 74 73 | 20 35 30 29 29 5c 6e 50 |m-points| 50))\nP|
|00002eb0| 6c 6f 74 73 20 66 75 6e | 63 74 69 6f 6e 20 46 20 |lots fun|ction F |
|00002ec0| 6f 66 20 6f 6e 65 20 72 | 65 61 6c 20 76 61 72 69 |of one r|eal vari|
|00002ed0| 61 62 6c 65 20 6f 76 65 | 72 20 74 68 65 20 72 61 |able ove|r the ra|
|00002ee0| 6e 67 65 20 62 65 74 77 | 65 65 6e 20 78 6d 69 6e |nge betw|een xmin|
|00002ef0| 20 61 6e 64 20 78 6d 61 | 78 2e 5c 6e 54 68 65 20 | and xma|x.\nThe |
|00002f00| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 65 76 61 6c |function| is eval|
|00002f10| 75 61 74 65 64 20 61 74 | 20 4e 55 4d 2d 50 4f 49 |uated at| NUM-POI|
|00002f20| 4e 54 53 20 70 6f 69 6e | 74 73 2e 22 0d 50 4c 4f |NTS poin|ts.".PLO|
|00002f30| 54 2d 4c 49 4e 45 53 0d | 22 41 72 67 73 3a 20 28 |T-LINES.|"Args: (|
|00002f40| 78 20 79 20 26 6b 65 79 | 20 28 74 69 74 6c 65 20 |x y &key| (title |
|00002f50| 22 4c 69 6e 65 20 50 6c | 6f 74 22 29 20 76 61 72 |"Line Pl|ot") var|
|00002f60| 69 61 62 6c 65 2d 6c 61 | 62 65 6c 73 20 74 79 70 |iable-la|bels typ|
|00002f70| 65 20 77 69 64 74 68 20 | 63 6f 6c 6f 72 29 5c 6e |e width |color)\n|
|00002f80| 4f 70 65 6e 73 20 61 20 | 77 69 6e 64 6f 77 20 77 |Opens a |window w|
|00002f90| 69 74 68 20 61 20 63 6f | 6e 6e 65 63 74 65 64 20 |ith a co|nnected |
|00002fa0| 6c 69 6e 65 20 70 6c 6f | 74 20 6f 66 20 58 20 76 |line plo|t of X v|
|00002fb0| 73 20 59 2c 20 77 68 65 | 72 65 20 58 20 61 6e 64 |s Y, whe|re X and|
|00002fc0| 20 59 20 61 72 65 5c 6e | 63 6f 6d 70 6f 75 6e 64 | Y are\n|compound|
|00002fd0| 20 6e 75 6d 62 65 72 2d | 64 61 74 61 2e 20 56 41 | number-|data. VA|
|00002fe0| 52 49 41 42 4c 45 2d 4c | 41 42 45 4c 53 2c 20 69 |RIABLE-L|ABELS, i|
|00002ff0| 66 20 73 75 70 70 6c 69 | 65 64 2c 20 73 68 6f 75 |f suppli|ed, shou|
|00003000| 6c 64 20 62 65 20 6c 69 | 73 74 73 20 6f 66 5c 6e |ld be li|sts of\n|
|00003010| 63 68 61 72 61 63 74 65 | 72 20 73 74 72 69 6e 67 |characte|r string|
|00003020| 73 2e 20 54 49 54 4c 45 | 20 69 73 20 74 68 65 20 |s. TITLE| is the |
|00003030| 77 69 6e 64 6f 77 20 74 | 69 74 6c 65 2e 20 54 68 |window t|itle. Th|
|00003040| 65 20 70 6c 6f 74 20 63 | 61 6e 20 62 65 20 6c 69 |e plot c|an be li|
|00003050| 6e 6b 65 64 20 74 6f 5c | 6e 6f 74 68 65 72 20 70 |nked to\|nother p|
|00003060| 6c 6f 74 73 20 77 69 74 | 68 20 74 68 65 20 6c 69 |lots wit|h the li|
|00003070| 6e 6b 2d 76 69 65 77 73 | 20 63 6f 6d 6d 61 6e 64 |nk-views| command|
|00003080| 2e 20 52 65 74 75 72 6e | 73 20 61 20 70 6c 6f 74 |. Return|s a plot|
|00003090| 20 6f 62 6a 65 63 74 2e | 22 0d 50 4c 4f 54 2d 50 | object.|".PLOT-P|
|000030a0| 4f 49 4e 54 53 0d 22 41 | 72 67 73 3a 20 28 78 20 |OINTS."A|rgs: (x |
|000030b0| 79 20 26 6b 65 79 20 28 | 74 69 74 6c 65 20 22 53 |y &key (|title "S|
|000030c0| 63 61 74 74 65 72 20 50 | 6c 6f 74 22 29 20 76 61 |catter P|lot") va|
|000030d0| 72 69 61 62 6c 65 2d 6c | 61 62 65 6c 73 20 70 6f |riable-l|abels po|
|000030e0| 69 6e 74 2d 6c 61 62 65 | 6c 73 20 73 79 6d 62 6f |int-labe|ls symbo|
|000030f0| 6c 20 63 6f 6c 6f 72 29 | 5c 6e 4f 70 65 6e 73 20 |l color)|\nOpens |
|00003100| 61 20 77 69 6e 64 6f 77 | 20 77 69 74 68 20 61 20 |a window| with a |
|00003110| 73 63 61 74 74 65 72 20 | 70 6c 6f 74 20 6f 66 20 |scatter |plot of |
|00003120| 58 20 76 73 20 59 2c 20 | 77 68 65 72 65 20 58 20 |X vs Y, |where X |
|00003130| 61 6e 64 20 59 20 61 72 | 65 20 63 6f 6d 70 6f 75 |and Y ar|e compou|
|00003140| 6e 64 5c 6e 6e 75 6d 62 | 65 72 2d 64 61 74 61 2e |nd\nnumb|er-data.|
|00003150| 20 56 41 52 49 41 42 4c | 45 2d 4c 41 42 45 4c 53 | VARIABL|E-LABELS|
|00003160| 20 61 6e 64 20 50 4f 49 | 4e 54 2d 4c 41 42 45 4c | and POI|NT-LABEL|
|00003170| 53 2c 20 69 66 20 73 75 | 70 70 6c 69 65 64 2c 20 |S, if su|pplied, |
|00003180| 73 68 6f 75 6c 64 20 62 | 65 20 6c 69 73 74 73 20 |should b|e lists |
|00003190| 6f 66 5c 6e 63 68 61 72 | 61 63 74 65 72 20 73 74 |of\nchar|acter st|
|000031a0| 72 69 6e 67 73 2e 20 54 | 49 54 4c 45 20 69 73 20 |rings. T|ITLE is |
|000031b0| 74 68 65 20 77 69 6e 64 | 6f 77 20 74 69 74 6c 65 |the wind|ow title|
|000031c0| 2e 20 54 68 65 20 70 6c | 6f 74 20 63 61 6e 20 62 |. The pl|ot can b|
|000031d0| 65 20 6c 69 6e 6b 65 64 | 20 74 6f 5c 6e 6f 74 68 |e linked| to\noth|
|000031e0| 65 72 20 70 6c 6f 74 73 | 20 77 69 74 68 20 74 68 |er plots| with th|
|000031f0| 65 20 6c 69 6e 6b 2d 76 | 69 65 77 73 20 63 6f 6d |e link-v|iews com|
|00003200| 6d 61 6e 64 2e 20 52 65 | 74 75 72 6e 73 20 61 20 |mand. Re|turns a |
|00003210| 70 6c 6f 74 20 6f 62 6a | 65 63 74 2e 22 0d 53 43 |plot obj|ect.".SC|
|00003220| 41 54 54 45 52 50 4c 4f | 54 2d 4d 41 54 52 49 58 |ATTERPLO|T-MATRIX|
|00003230| 0d 22 41 72 67 73 3a 20 | 28 64 61 74 61 20 26 6b |."Args: |(data &k|
|00003240| 65 79 20 28 74 69 74 6c | 65 20 22 53 70 69 6e 6e |ey (titl|e "Spinn|
|00003250| 69 6e 67 20 50 6c 6f 74 | 22 29 20 76 61 72 69 61 |ing Plot|") varia|
|00003260| 62 6c 65 2d 6c 61 62 65 | 6c 73 20 70 6f 69 6e 74 |ble-labe|ls point|
|00003270| 2d 6c 61 62 65 6c 73 5c | 6e 20 20 20 20 20 20 20 |-labels\|n       |
|00003280| 20 20 20 20 20 20 20 20 | 20 20 28 73 63 61 6c 65 |        |  (scale|
|00003290| 20 74 29 29 5c 6e 44 41 | 54 41 20 69 73 20 61 20 | t))\nDA|TA is a |
|000032a0| 6c 69 73 74 20 6f 66 20 | 74 77 6f 20 6f 72 20 6d |list of |two or m|
|000032b0| 6f 72 65 20 63 6f 6d 70 | 6f 75 6e 64 20 6e 75 6d |ore comp|ound num|
|000032c0| 62 65 72 2d 64 61 74 61 | 20 6f 62 6a 65 63 74 73 |ber-data| objects|
|000032d0| 20 6f 66 20 65 71 75 61 | 6c 20 6c 65 6e 67 74 68 | of equa|l length|
|000032e0| 2e 5c 6e 4f 70 65 6e 73 | 20 61 20 77 69 6e 64 6f |.\nOpens| a windo|
|000032f0| 77 20 77 69 74 68 20 61 | 20 62 72 75 73 68 61 62 |w with a| brushab|
|00003300| 6c 65 20 73 63 61 74 74 | 65 72 20 70 6c 6f 74 20 |le scatt|er plot |
|00003310| 6d 61 74 72 69 78 20 6f | 66 20 74 68 65 20 65 6c |matrix o|f the el|
|00003320| 65 6d 65 6e 74 73 20 6f | 66 20 44 41 54 41 2e 5c |ements o|f DATA.\|
|00003330| 6e 56 41 52 49 41 42 4c | 45 2d 4c 41 42 45 4c 53 |nVARIABL|E-LABELS|
|00003340| 20 61 6e 64 20 50 4f 49 | 4e 54 2d 4c 41 42 45 4c | and POI|NT-LABEL|
|00003350| 53 2c 20 69 66 20 73 75 | 70 70 6c 69 65 64 2c 20 |S, if su|pplied, |
|00003360| 73 68 6f 75 6c 64 20 62 | 65 20 6c 69 73 74 73 20 |should b|e lists |
|00003370| 6f 66 20 63 68 61 72 61 | 63 74 65 72 20 73 74 72 |of chara|cter str|
|00003380| 69 6e 67 73 2e 5c 6e 54 | 49 54 4c 45 20 69 73 20 |ings.\nT|ITLE is |
|00003390| 74 68 65 20 77 69 6e 64 | 6f 77 20 74 69 74 6c 65 |the wind|ow title|
|000033a0| 2e 20 49 66 20 73 63 61 | 6c 65 20 69 73 20 4e 49 |. If sca|le is NI|
|000033b0| 4c 20 64 61 74 61 20 61 | 72 65 20 61 73 73 75 6d |L data a|re assum|
|000033c0| 65 64 20 74 6f 20 62 65 | 20 62 65 74 77 65 65 6e |ed to be| between|
|000033d0| 20 2d 31 5c 6e 61 6e 64 | 20 31 2e 54 68 65 20 70 | -1\nand| 1.The p|
|000033e0| 6c 6f 74 20 63 61 6e 20 | 62 65 20 6c 69 6e 6b 65 |lot can |be linke|
|000033f0| 64 20 74 6f 20 6f 74 68 | 65 72 20 70 6c 6f 74 73 |d to oth|er plots|
|00003400| 20 77 69 74 68 20 74 68 | 65 20 6c 69 6e 6b 2d 76 | with th|e link-v|
|00003410| 69 65 77 73 20 63 6f 6d | 6d 61 6e 64 2e 5c 6e 52 |iews com|mand.\nR|
|00003420| 65 74 75 72 6e 73 20 61 | 20 70 6c 6f 74 20 6f 62 |eturns a| plot ob|
|00003430| 6a 65 63 74 2e 22 0d 53 | 50 49 4e 2d 50 4c 4f 54 |ject.".S|PIN-PLOT|
|00003440| 0d 22 41 72 67 73 3a 20 | 28 64 61 74 61 20 26 6b |."Args: |(data &k|
|00003450| 65 79 20 28 74 69 74 6c | 65 20 22 53 70 69 6e 6e |ey (titl|e "Spinn|
|00003460| 69 6e 67 20 50 6c 6f 74 | 22 29 20 76 61 72 69 61 |ing Plot|") varia|
|00003470| 62 6c 65 2d 6c 61 62 65 | 6c 73 20 70 6f 69 6e 74 |ble-labe|ls point|
|00003480| 2d 6c 61 62 65 6c 73 5c | 6e 20 20 20 20 20 20 20 |-labels\|n       |
|00003490| 20 20 20 20 20 20 20 20 | 20 20 28 73 63 61 6c 65 |        |  (scale|
|000034a0| 20 74 29 29 5c 6e 44 41 | 54 41 20 69 73 20 61 20 | t))\nDA|TA is a |
|000034b0| 6c 69 73 74 20 6f 66 20 | 74 68 72 65 65 20 63 6f |list of |three co|
|000034c0| 6d 70 6f 75 6e 64 20 6e | 75 6d 62 65 72 2d 64 61 |mpound n|umber-da|
|000034d0| 74 61 20 6f 62 6a 65 63 | 74 73 20 6f 66 20 65 71 |ta objec|ts of eq|
|000034e0| 75 61 6c 20 6c 65 6e 67 | 74 68 2e 20 4f 70 65 6e |ual leng|th. Open|
|000034f0| 73 5c 6e 61 20 77 69 6e | 64 6f 77 20 77 69 74 68 |s\na win|dow with|
|00003500| 20 61 20 72 6f 74 61 74 | 69 6e 67 20 70 6c 6f 74 | a rotat|ing plot|
|00003510| 20 6f 66 20 74 68 65 20 | 74 68 72 65 65 20 65 6c | of the |three el|
|00003520| 65 6d 65 6e 74 73 20 6f | 66 20 44 41 54 41 2e 20 |ements o|f DATA. |
|00003530| 56 41 52 49 41 42 4c 45 | 2d 4c 41 42 45 4c 53 5c |VARIABLE|-LABELS\|
|00003540| 6e 61 6e 64 20 50 4f 49 | 4e 54 2d 4c 41 42 45 4c |nand POI|NT-LABEL|
|00003550| 53 2c 20 69 66 20 73 75 | 70 70 6c 69 65 64 2c 20 |S, if su|pplied, |
|00003560| 73 68 6f 75 6c 64 20 62 | 65 20 6c 69 73 74 73 20 |should b|e lists |
|00003570| 6f 66 20 63 68 61 72 61 | 63 74 65 72 20 73 74 72 |of chara|cter str|
|00003580| 69 6e 67 73 2e 20 54 49 | 54 4c 45 5c 6e 69 73 20 |ings. TI|TLE\nis |
|00003590| 74 68 65 20 77 69 6e 64 | 6f 77 20 74 69 74 6c 65 |the wind|ow title|
|000035a0| 2e 20 49 66 20 73 63 61 | 6c 65 20 69 73 20 4e 49 |. If sca|le is NI|
|000035b0| 4c 20 64 61 74 61 20 61 | 72 65 20 61 73 73 75 6d |L data a|re assum|
|000035c0| 65 64 20 74 6f 20 62 65 | 20 62 65 74 77 65 65 6e |ed to be| between|
|000035d0| 20 2d 31 20 61 6e 64 20 | 31 2e 5c 6e 54 68 65 20 | -1 and |1.\nThe |
|000035e0| 70 6c 6f 74 20 63 61 6e | 20 62 65 20 6c 69 6e 6b |plot can| be link|
|000035f0| 65 64 20 74 6f 20 6f 74 | 68 65 72 20 70 6c 6f 74 |ed to ot|her plot|
|00003600| 73 20 77 69 74 68 20 74 | 68 65 20 6c 69 6e 6b 2d |s with t|he link-|
|00003610| 76 69 65 77 73 20 63 6f | 6d 6d 61 6e 64 2e 20 52 |views co|mmand. R|
|00003620| 65 74 75 72 6e 73 5c 6e | 61 20 70 6c 6f 74 20 6f |eturns\n|a plot o|
|00003630| 62 6a 65 63 74 2e 22 0d | 28 47 52 41 50 48 2d 50 |bject.".|(GRAPH-P|
|00003640| 52 4f 54 4f 20 4f 42 4a | 45 43 54 20 3a 41 44 44 |ROTO OBJ|ECT :ADD|
|00003650| 2d 4c 49 4e 45 53 29 0d | 22 4d 65 74 68 6f 64 20 |-LINES).|"Method |
|00003660| 61 72 67 73 3a 20 28 6c | 69 6e 65 73 20 26 6b 65 |args: (l|ines &ke|
|00003670| 79 20 74 79 70 65 20 28 | 64 72 61 77 20 74 29 29 |y type (|draw t))|
|00003680| 5c 6e 41 64 64 73 20 6c | 69 6e 65 73 20 74 6f 20 |\nAdds l|ines to |
|00003690| 70 6c 6f 74 2e 20 4c 49 | 4e 45 53 20 69 73 20 61 |plot. LI|NES is a|
|000036a0| 20 6c 69 73 74 20 6f 66 | 20 73 65 71 75 65 6e 63 | list of| sequenc|
|000036b0| 65 73 2c 20 74 68 65 20 | 63 6f 6f 72 64 69 6e 61 |es, the |coordina|
|000036c0| 74 65 73 20 6f 66 20 74 | 68 65 20 6c 69 6e 65 20 |tes of t|he line |
|000036d0| 73 74 61 72 74 73 2e 5c | 6e 54 59 50 45 20 69 73 |starts.\|nTYPE is|
|000036e0| 20 6e 6f 72 6d 61 6c 20 | 6f 72 20 64 61 73 68 65 | normal |or dashe|
|000036f0| 64 2e 20 49 66 20 44 52 | 41 57 20 69 73 20 74 72 |d. If DR|AW is tr|
|00003700| 75 65 20 74 68 65 20 6e | 65 77 20 6c 69 6e 65 73 |ue the n|ew lines|
|00003710| 20 61 72 65 20 61 64 64 | 65 64 20 74 6f 20 74 68 | are add|ed to th|
|00003720| 65 20 73 63 72 65 65 6e | 2e 22 0d 28 47 52 41 50 |e screen|.".(GRAP|
|00003730| 48 2d 50 52 4f 54 4f 20 | 4f 42 4a 45 43 54 20 3a |H-PROTO |OBJECT :|
|00003740| 41 44 44 2d 50 4f 49 4e | 54 53 29 0d 22 4d 65 74 |ADD-POIN|TS)."Met|
|00003750| 68 6f 64 20 61 72 67 73 | 3a 20 28 70 6f 69 6e 74 |hod args|: (point|
|00003760| 73 20 26 6b 65 79 20 70 | 6f 69 6e 74 2d 6c 61 62 |s &key p|oint-lab|
|00003770| 65 6c 73 20 28 64 72 61 | 77 20 74 29 29 5c 6e 41 |els (dra|w t))\nA|
|00003780| 64 64 73 20 70 6f 69 6e | 74 73 20 74 6f 20 70 6c |dds poin|ts to pl|
|00003790| 6f 74 2e 20 50 4f 49 4e | 54 53 20 69 73 20 61 20 |ot. POIN|TS is a |
|000037a0| 6c 69 73 74 20 6f 66 20 | 73 65 71 75 65 6e 63 65 |list of |sequence|
|000037b0| 73 2c 20 50 4f 49 4e 54 | 2d 4c 41 42 45 4c 53 20 |s, POINT|-LABELS |
|000037c0| 61 20 6c 69 73 74 20 6f | 66 5c 6e 73 74 72 69 6e |a list o|f\nstrin|
|000037d0| 67 73 2e 20 49 66 20 44 | 52 41 57 20 69 73 20 74 |gs. If D|RAW is t|
|000037e0| 72 75 65 20 74 68 65 20 | 6e 65 77 20 70 6f 69 6e |rue the |new poin|
|000037f0| 74 73 20 61 72 65 20 61 | 64 64 65 64 20 74 6f 20 |ts are a|dded to |
|00003800| 74 68 65 20 73 63 72 65 | 65 6e 2e 22 0d 28 47 52 |the scre|en.".(GR|
|00003810| 41 50 48 2d 50 52 4f 54 | 4f 20 4f 42 4a 45 43 54 |APH-PROT|O OBJECT|
|00003820| 20 3a 41 44 4a 55 53 54 | 2d 54 4f 2d 44 41 54 41 | :ADJUST|-TO-DATA|
|00003830| 29 0d 22 4d 65 74 68 6f | 64 20 61 72 67 73 3a 20 |)."Metho|d args: |
|00003840| 28 26 6b 65 79 20 28 64 | 72 61 77 20 74 29 29 5c |(&key (d|raw t))\|
|00003850| 6e 53 65 74 73 20 72 61 | 6e 67 65 73 20 74 6f 20 |nSets ra|nges to |
|00003860| 74 68 65 20 61 63 74 75 | 61 6c 20 72 61 6e 67 65 |the actu|al range|
|00003870| 20 6f 66 20 76 61 72 69 | 61 62 6c 65 73 20 69 6e | of vari|ables in|
|00003880| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 63 6f | the ori|ginal co|
|00003890| 6f 72 64 69 6e 61 74 65 | 5c 6e 73 79 73 74 65 6d |ordinate|\nsystem|
|000038a0| 2e 20 49 66 20 44 52 41 | 57 20 69 73 20 74 72 75 |. If DRA|W is tru|
|000038b0| 65 20 73 65 6e 64 73 20 | 3a 52 45 53 49 5a 45 20 |e sends |:RESIZE |
|000038c0| 61 6e 64 20 3a 52 45 44 | 52 41 57 20 6d 65 73 73 |and :RED|RAW mess|
|000038d0| 61 67 65 73 2e 22 0d 28 | 47 52 41 50 48 2d 50 52 |ages.".(|GRAPH-PR|
|000038e0| 4f 54 4f 20 4f 42 4a 45 | 43 54 20 3a 41 50 50 4c |OTO OBJE|CT :APPL|
|000038f0| 59 2d 54 52 41 4e 53 46 | 4f 52 4d 41 54 49 4f 4e |Y-TRANSF|ORMATION|
|00003900| 29 0d 22 4d 65 74 68 6f | 64 20 61 72 67 73 3a 20 |)."Metho|d args: |
|00003910| 28 61 20 26 6b 65 79 20 | 64 72 61 77 29 5c 6e 41 |(a &key |draw)\nA|
|00003920| 70 70 6c 69 65 73 20 6d | 61 74 72 69 78 20 41 20 |pplies m|atrix A |
|00003930| 74 6f 20 63 75 72 72 65 | 6e 74 20 74 72 61 6e 73 |to curre|nt trans|
|00003940| 66 6f 72 6d 61 74 69 6f | 6e 2e 20 49 66 20 64 72 |formatio|n. If dr|
|00003950| 61 77 20 69 73 20 74 72 | 75 65 20 74 68 65 20 3a |aw is tr|ue the :|
|00003960| 52 45 44 52 41 57 2d 43 | 4f 4e 54 45 4e 54 5c 6e |REDRAW-C|ONTENT\n|
|00003970| 6d 65 73 73 61 67 65 20 | 69 73 20 73 65 6e 74 2e |message |is sent.|
|00003980| 22 0d 28 47 52 41 50 48 | 2d 50 52 4f 54 4f 20 4f |".(GRAPH|-PROTO O|
|00003990| 42 4a 45 43 54 20 3a 43 | 4c 45 41 52 29 0d 22 5c |BJECT :C|LEAR)."\|
|000039a0| 6e 4d 65 73 73 61 67 65 | 20 61 72 67 73 3a 20 28 |nMessage| args: (|
|000039b0| 26 6f 70 74 69 6f 6e 61 | 6c 20 28 64 72 61 77 20 |&optiona|l (draw |
|000039c0| 74 29 29 5c 6e 43 6c 65 | 61 72 73 20 74 68 65 20 |t))\nCle|ars the |
|000039d0| 70 6c 6f 74 20 64 61 74 | 61 2e 20 49 66 20 44 52 |plot dat|a. If DR|
|000039e0| 41 57 20 69 73 20 6e 69 | 6c 20 74 68 65 20 70 6c |AW is ni|l the pl|
|000039f0| 6f 74 20 69 73 20 72 65 | 64 72 61 77 6e 3b 20 6f |ot is re|drawn; o|
|00003a00| 74 68 65 72 77 69 73 65 | 20 69 74 73 5c 6e 63 75 |therwise| its\ncu|
|00003a10| 72 72 65 6e 74 20 73 63 | 72 65 65 6e 20 69 6d 61 |rrent sc|reen ima|
|00003a20| 67 65 20 72 65 6d 61 69 | 6e 73 20 75 6e 63 68 61 |ge remai|ns uncha|
|00003a30| 6e 67 65 64 2e 22 0d 28 | 47 52 41 50 48 2d 50 52 |nged.".(|GRAPH-PR|
|00003a40| 4f 54 4f 20 4f 42 4a 45 | 43 54 20 3a 43 4c 45 41 |OTO OBJE|CT :CLEA|
|00003a50| 52 2d 4c 49 4e 45 53 29 | 0d 22 4d 65 74 68 6f 64 |R-LINES)|."Method|
|00003a60| 20 61 72 67 73 3a 20 28 | 26 6b 65 79 20 28 64 72 | args: (|&key (dr|
|00003a70| 61 77 20 74 29 29 5c 6e | 52 65 6d 6f 76 65 73 20 |aw t))\n|Removes |
|00003a80| 61 6c 6c 20 6c 69 6e 65 | 73 20 66 72 6f 6d 20 74 |all line|s from t|
|00003a90| 68 65 20 70 6c 6f 74 2e | 20 49 66 20 44 52 41 57 |he plot.| If DRAW|
|00003aa0| 20 69 73 20 74 72 75 65 | 20 74 68 65 20 3a 52 45 | is true| the :RE|
|00003ab0| 44 52 41 57 2d 43 4f 4e | 54 45 4e 54 5c 6e 6d 65 |DRAW-CON|TENT\nme|
|00003ac0| 73 73 61 67 65 20 69 73 | 20 73 65 6e 74 2e 22 0d |ssage is| sent.".|
|00003ad0| 28 47 52 41 50 48 2d 50 | 52 4f 54 4f 20 4f 42 4a |(GRAPH-P|ROTO OBJ|
|00003ae0| 45 43 54 20 3a 43 4c 45 | 41 52 2d 50 4f 49 4e 54 |ECT :CLE|AR-POINT|
|00003af0| 53 29 0d 22 4d 65 74 68 | 6f 64 20 61 72 67 73 3a |S)."Meth|od args:|
|00003b00| 20 28 26 6b 65 79 20 28 | 64 72 61 77 20 74 29 29 | (&key (|draw t))|
|00003b10| 5c 6e 52 65 6d 6f 76 65 | 73 20 61 6c 6c 20 70 6f |\nRemove|s all po|
|00003b20| 69 6e 74 73 20 66 72 6f | 6d 20 74 68 65 20 70 6c |ints fro|m the pl|
|00003b30| 6f 74 2e 20 49 66 20 44 | 52 41 57 20 69 73 20 74 |ot. If D|RAW is t|
|00003b40| 72 75 65 20 74 68 65 20 | 3a 52 45 44 52 41 57 2d |rue the |:REDRAW-|
|00003b50| 43 4f 4e 54 45 4e 54 5c | 6e 6d 65 73 73 61 67 65 |CONTENT\|nmessage|
|00003b60| 20 69 73 20 73 65 6e 74 | 2e 22 0d 28 47 52 41 50 | is sent|.".(GRAP|
|00003b70| 48 2d 50 52 4f 54 4f 20 | 4f 42 4a 45 43 54 20 3a |H-PROTO |OBJECT :|
|00003b80| 45 52 41 53 45 2d 53 45 | 4c 45 43 54 49 4f 4e 29 |ERASE-SE|LECTION)|
|00003b90| 0d 22 4d 65 74 68 6f 64 | 20 61 72 67 73 3a 20 28 |."Method| args: (|
|00003ba0| 29 5c 6e 53 65 74 73 20 | 73 65 6c 65 63 74 65 64 |)\nSets |selected|
|00003bb0| 20 70 6f 69 6e 74 73 20 | 73 74 61 74 65 73 20 74 | points |states t|
|00003bc0| 6f 20 69 6e 76 69 73 69 | 62 6c 65 20 61 6e 64 20 |o invisi|ble and |
|00003bd0| 73 65 6e 64 73 20 3a 41 | 44 4a 55 53 54 2d 50 4f |sends :A|DJUST-PO|
|00003be0| 49 4e 54 2d 53 43 52 45 | 45 4e 2d 53 54 41 54 45 |INT-SCRE|EN-STATE|
|00003bf0| 53 20 6d 65 73 73 61 67 | 65 2e 22 0d 28 47 52 41 |S messag|e.".(GRA|
|00003c00| 50 48 2d 50 52 4f 54 4f | 20 4f 42 4a 45 43 54 20 |PH-PROTO| OBJECT |
|00003c10| 3a 49 44 4c 45 2d 4f 4e | 29 0d 22 5c 6e 4d 65 74 |:IDLE-ON|)."\nMet|
|00003c20| 68 6f 64 20 61 72 67 73 | 3a 20 28 26 6f 70 74 69 |hod args|: (&opti|
|00003c30| 6f 6e 61 6c 20 6f 6e 29 | 5c 6e 53 65 74 73 20 6f |onal on)|\nSets o|
|00003c40| 72 20 72 65 74 75 72 6e | 73 20 69 64 6c 69 6e 67 |r return|s idling|
|00003c50| 20 73 74 61 74 65 2e 20 | 4f 6e 20 6d 65 61 6e 73 | state. |On means|
|00003c60| 20 3a 64 6f 2d 69 64 6c | 65 20 6d 65 74 68 6f 64 | :do-idl|e method|
|00003c70| 20 69 73 20 73 65 6e 74 | 20 65 61 63 68 20 70 61 | is sent| each pa|
|00003c80| 73 73 20 74 68 72 6f 75 | 67 68 5c 6e 74 68 65 20 |ss throu|gh\nthe |
|00003c90| 65 76 65 6e 74 20 6c 6f | 6f 70 2e 22 0d 28 47 52 |event lo|op.".(GR|
|00003ca0| 41 50 48 2d 50 52 4f 54 | 4f 20 4f 42 4a 45 43 54 |APH-PROT|O OBJECT|
|00003cb0| 20 3a 4c 49 4e 4b 45 44 | 29 0d 22 4d 65 74 68 6f | :LINKED|)."Metho|
|00003cc0| 64 20 61 72 73 3a 20 28 | 26 6f 70 74 69 6f 6e 61 |d ars: (|&optiona|
|00003cd0| 6c 20 6f 6e 29 5c 6e 53 | 65 74 73 20 6f 72 20 72 |l on)\nS|ets or r|
|00003ce0| 65 74 72 69 65 76 65 73 | 20 70 6c 6f 74 27 73 20 |etrieves| plot's |
|00003cf0| 6c 69 6e 6b 69 6e 67 20 | 73 74 61 74 65 2e 22 0d |linking |state.".|
|00003d00| 28 47 52 41 50 48 2d 50 | 52 4f 54 4f 20 4f 42 4a |(GRAPH-P|ROTO OBJ|
|00003d10| 45 43 54 20 3a 4e 55 4d | 2d 4c 49 4e 45 53 29 0d |ECT :NUM|-LINES).|
|00003d20| 22 4d 65 74 68 6f 64 20 | 61 72 67 73 3a 20 28 29 |"Method |args: ()|
|00003d30| 5c 6e 52 65 74 75 72 6e | 73 20 74 68 65 20 6e 75 |\nReturn|s the nu|
|00003d40| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 20 73 74 61 |mber of |line sta|
|00003d50| 72 74 73 20 69 6e 20 74 | 68 65 20 70 6c 6f 74 2e |rts in t|he plot.|
|00003d60| 22 0d 28 47 52 41 50 48 | 2d 50 52 4f 54 4f 20 4f |".(GRAPH|-PROTO O|
|00003d70| 42 4a 45 43 54 20 3a 4e | 55 4d 2d 50 4f 49 4e 54 |BJECT :N|UM-POINT|
|00003d80| 53 29 0d 22 4d 65 74 68 | 6f 64 20 61 72 67 73 3a |S)."Meth|od args:|
|00003d90| 20 28 29 5c 6e 52 65 74 | 75 72 6e 73 20 74 68 65 | ()\nRet|urns the|
|00003da0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 70 6f 69 6e 74 | number |of point|
|00003db0| 73 20 69 6e 20 74 68 65 | 20 70 6c 6f 74 2e 22 0d |s in the| plot.".|
|00003dc0| 28 47 52 41 50 48 2d 50 | 52 4f 54 4f 20 4f 42 4a |(GRAPH-P|ROTO OBJ|
|00003dd0| 45 43 54 20 3a 4e 55 4d | 2d 56 41 52 49 41 42 4c |ECT :NUM|-VARIABL|
|00003de0| 45 53 29 0d 22 4d 65 74 | 68 6f 64 20 61 72 67 73 |ES)."Met|hod args|
|00003df0| 3a 20 28 29 5c 6e 52 65 | 74 75 72 6e 73 20 74 68 |: ()\nRe|turns th|
|00003e00| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 76 61 72 69 |e number| of vari|
|00003e10| 61 62 6c 65 73 20 69 6e | 20 74 68 65 20 70 6c 6f |ables in| the plo|
|00003e20| 74 2e 22 0d 28 47 52 41 | 50 48 2d 50 52 4f 54 4f |t.".(GRA|PH-PROTO|
|00003e30| 20 4f 42 4a 45 43 54 20 | 3a 50 4f 49 4e 54 2d 48 | OBJECT |:POINT-H|
|00003e40| 49 4c 49 54 45 44 29 0d | 22 4d 65 74 68 6f 64 20 |ILITED).|"Method |
|00003e50| 61 72 67 73 3a 20 28 70 | 6f 69 6e 74 20 26 6f 70 |args: (p|oint &op|
|00003e60| 74 69 6f 6e 61 6c 20 68 | 69 6c 69 74 65 64 29 5c |tional h|ilited)\|
|00003e70| 6e 53 65 74 73 20 6f 72 | 20 72 65 74 75 72 6e 73 |nSets or| returns|
|00003e80| 20 68 69 67 68 6c 69 67 | 68 74 69 6e 67 20 73 74 | highlig|hting st|
|00003e90| 61 74 75 73 20 28 74 72 | 75 65 20 6f 72 20 4e 49 |atus (tr|ue or NI|
|00003ea0| 4c 29 20 6f 66 20 50 4f | 49 4e 54 2e 20 53 65 6e |L) of PO|INT. Sen|
|00003eb0| 64 73 20 5c 6e 3a 41 44 | 4a 55 53 54 2d 50 4f 49 |ds \n:AD|JUST-POI|
|00003ec0| 4e 54 2d 53 43 52 45 45 | 4e 2d 53 54 41 54 45 53 |NT-SCREE|N-STATES|
|00003ed0| 20 6d 65 73 73 61 67 65 | 20 69 66 20 73 74 61 74 | message| if stat|
|00003ee0| 65 73 20 61 72 65 20 73 | 65 74 2e 20 56 65 63 74 |es are s|et. Vect|
|00003ef0| 6f 72 69 7a 65 64 2e 22 | 0d 28 47 52 41 50 48 2d |orized."|.(GRAPH-|
|00003f00| 50 52 4f 54 4f 20 4f 42 | 4a 45 43 54 20 3a 50 4f |PROTO OB|JECT :PO|
|00003f10| 49 4e 54 2d 4c 41 42 45 | 4c 29 0d 22 4d 65 74 68 |INT-LABE|L)."Meth|
|00003f20| 6f 64 20 61 72 67 73 3a | 20 28 70 6f 69 6e 74 20 |od args:| (point |
|00003f30| 26 6f 70 74 69 6f 6e 61 | 6c 20 6c 61 62 65 6c 29 |&optiona|l label)|
|00003f40| 5c 6e 53 65 74 73 20 6f | 72 20 72 65 74 72 69 65 |\nSets o|r retrie|
|00003f50| 76 65 73 20 6c 61 62 65 | 6c 20 6f 66 20 70 6f 69 |ves labe|l of poi|
|00003f60| 6e 74 20 50 4f 49 4e 54 | 2e 20 56 65 63 74 6f 72 |nt POINT|. Vector|
|00003f70| 69 7a 65 64 2e 22 0d 28 | 47 52 41 50 48 2d 50 52 |ized.".(|GRAPH-PR|
|00003f80| 4f 54 4f 20 4f 42 4a 45 | 43 54 20 3a 50 4f 49 4e |OTO OBJE|CT :POIN|
|00003f90| 54 2d 53 45 4c 45 43 54 | 45 44 29 0d 22 4d 65 74 |T-SELECT|ED)."Met|
|00003fa0| 68 6f 64 20 61 72 67 73 | 3a 20 28 70 6f 69 6e 74 |hod args|: (point|
|00003fb0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 65 6c 65 63 | &option|al selec|
|00003fc0| 74 65 64 29 5c 6e 53 65 | 74 73 20 6f 72 20 72 65 |ted)\nSe|ts or re|
|00003fd0| 74 75 72 6e 73 20 73 65 | 6c 65 63 74 69 6f 6e 20 |turns se|lection |
|00003fe0| 73 74 61 74 75 73 20 28 | 74 72 75 65 20 6f 72 20 |status (|true or |
|00003ff0| 4e 49 4c 29 20 6f 66 20 | 50 4f 49 4e 54 2e 20 53 |NIL) of |POINT. S|
|00004000| 65 6e 64 73 20 5c 6e 3a | 41 44 4a 55 53 54 2d 50 |ends \n:|ADJUST-P|
|00004010| 4f 49 4e 54 2d 53 43 52 | 45 45 4e 2d 53 54 41 54 |OINT-SCR|EEN-STAT|
|00004020| 45 53 20 6d 65 73 73 61 | 67 65 20 69 66 20 73 74 |ES messa|ge if st|
|00004030| 61 74 65 73 20 61 72 65 | 20 73 65 74 2e 20 56 65 |ates are| set. Ve|
|00004040| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 28 47 52 41 50 |ctorized|.".(GRAP|
|00004050| 48 2d 50 52 4f 54 4f 20 | 4f 42 4a 45 43 54 20 3a |H-PROTO |OBJECT :|
|00004060| 50 4f 49 4e 54 2d 53 48 | 4f 57 49 4e 47 29 0d 22 |POINT-SH|OWING)."|
|00004070| 4d 65 74 68 6f 64 20 61 | 72 67 73 3a 20 28 70 6f |Method a|rgs: (po|
|00004080| 69 6e 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 65 |int &opt|ional se|
|00004090| 6c 65 63 74 65 64 29 5c | 6e 53 65 74 73 20 6f 72 |lected)\|nSets or|
|000040a0| 20 72 65 74 75 72 6e 73 | 20 76 69 73 69 62 69 6c | returns| visibil|
|000040b0| 69 74 79 20 73 74 61 74 | 75 73 20 28 74 72 75 65 |ity stat|us (true|
|000040c0| 20 6f 72 20 4e 49 4c 29 | 20 6f 66 20 50 4f 49 4e | or NIL)| of POIN|
|000040d0| 54 2e 20 53 65 6e 64 73 | 20 5c 6e 3a 41 44 4a 55 |T. Sends| \n:ADJU|
|000040e0| 53 54 2d 50 4f 49 4e 54 | 2d 53 43 52 45 45 4e 2d |ST-POINT|-SCREEN-|
|000040f0| 53 54 41 54 45 53 20 6d | 65 73 73 61 67 65 20 69 |STATES m|essage i|
|00004100| 66 20 73 74 61 74 65 73 | 20 61 72 65 20 73 65 74 |f states| are set|
|00004110| 2e 20 56 65 63 74 6f 72 | 69 7a 65 64 2e 22 0d 28 |. Vector|ized.".(|
|00004120| 47 52 41 50 48 2d 50 52 | 4f 54 4f 20 4f 42 4a 45 |GRAPH-PR|OTO OBJE|
|00004130| 43 54 20 3a 50 4f 49 4e | 54 2d 53 59 4d 42 4f 4c |CT :POIN|T-SYMBOL|
|00004140| 29 0d 22 4d 65 74 68 6f | 64 20 61 72 67 73 3a 20 |)."Metho|d args: |
|00004150| 28 70 6f 69 6e 74 20 26 | 6f 70 74 69 6f 6e 61 6c |(point &|optional|
|00004160| 20 73 79 6d 62 6f 6c 29 | 5c 6e 53 65 74 73 20 6f | symbol)|\nSets o|
|00004170| 72 20 72 65 74 72 69 65 | 76 65 73 20 73 79 6d 62 |r retrie|ves symb|
|00004180| 6f 6c 20 6f 66 20 70 6f | 69 6e 74 20 50 4f 49 4e |ol of po|int POIN|
|00004190| 54 2e 20 56 65 63 74 6f | 72 69 7a 65 64 2e 22 0d |T. Vecto|rized.".|
|000041a0| 28 47 52 41 50 48 2d 50 | 52 4f 54 4f 20 4f 42 4a |(GRAPH-P|ROTO OBJ|
|000041b0| 45 43 54 20 3a 52 41 4e | 47 45 29 0d 22 4d 65 74 |ECT :RAN|GE)."Met|
|000041c0| 68 6f 64 20 61 72 67 73 | 3a 20 28 69 6e 64 65 78 |hod args|: (index|
|000041d0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6c 6f 77 20 68 | &option|al low h|
|000041e0| 69 67 68 29 5c 6e 53 65 | 74 73 20 6f 72 20 72 65 |igh)\nSe|ts or re|
|000041f0| 74 72 69 65 76 65 73 20 | 76 61 72 69 61 62 6c 65 |trieves |variable|
|00004200| 27 73 20 6f 72 69 67 69 | 6e 61 6c 20 63 6f 6f 72 |'s origi|nal coor|
|00004210| 64 69 6e 61 74 65 20 72 | 61 6e 67 65 2e 20 56 65 |dinate r|ange. Ve|
|00004220| 63 74 6f 72 69 7a 65 64 | 2e 22 0d 28 47 52 41 50 |ctorized|.".(GRAP|
|00004230| 48 2d 50 52 4f 54 4f 20 | 4f 42 4a 45 43 54 20 3a |H-PROTO |OBJECT :|
|00004240| 52 4f 54 41 54 45 2d 32 | 29 0d 22 4d 65 74 68 6f |ROTATE-2|)."Metho|
|00004250| 64 20 61 72 67 73 3a 20 | 28 76 61 72 31 20 76 61 |d args: |(var1 va|
|00004260| 72 32 20 61 6e 67 6c 65 | 20 26 6b 65 79 20 28 64 |r2 angle| &key (d|
|00004270| 72 61 77 20 74 29 29 5c | 6e 52 6f 74 61 74 65 73 |raw t))\|nRotates|
|00004280| 20 69 6e 74 20 74 68 65 | 20 70 6c 61 6e 65 20 6f | int the| plane o|
|00004290| 66 20 76 61 72 69 61 62 | 6c 65 73 20 77 69 74 68 |f variab|les with|
|000042a0| 20 69 6e 64 69 63 65 73 | 20 56 41 52 31 20 61 6e | indices| VAR1 an|
|000042b0| 64 20 56 41 52 32 20 62 | 79 20 41 4e 47 4c 45 2c |d VAR2 b|y ANGLE,|
|000042c0| 20 69 6e 5c 6e 72 61 64 | 69 61 6e 73 2e 20 73 65 | in\nrad|ians. se|
|000042d0| 6e 64 73 20 74 68 65 20 | 3a 52 45 44 52 41 57 2d |nds the |:REDRAW-|
|000042e0| 43 4f 4e 54 45 4e 54 20 | 6d 65 73 73 61 67 65 20 |CONTENT |message |
|000042f0| 69 66 20 44 52 57 41 20 | 69 73 20 74 72 75 65 2e |if DRWA |is true.|
|00004300| 22 0d 28 47 52 41 50 48 | 2d 50 52 4f 54 4f 20 4f |".(GRAPH|-PROTO O|
|00004310| 42 4a 45 43 54 20 3a 53 | 45 4c 45 43 54 49 4f 4e |BJECT :S|ELECTION|
|00004320| 29 0d 22 4d 65 74 68 6f | 64 20 61 72 67 73 3a 20 |)."Metho|d args: |
|00004330| 28 29 5c 6e 52 65 74 75 | 72 6e 20 69 6e 64 69 63 |()\nRetu|rn indic|
|00004340| 65 73 20 6f 66 20 63 75 | 72 72 65 6e 74 20 73 65 |es of cu|rrent se|
|00004350| 6c 65 63 74 69 6f 6e 2e | 22 0d 28 47 52 41 50 48 |lection.|".(GRAPH|
|00004360| 2d 50 52 4f 54 4f 20 4f | 42 4a 45 43 54 20 3a 53 |-PROTO O|BJECT :S|
|00004370| 48 4f 57 2d 41 4c 4c 2d | 50 4f 49 4e 54 53 29 0d |HOW-ALL-|POINTS).|
|00004380| 22 4d 65 74 68 6f 64 20 | 61 72 67 73 3a 20 28 29 |"Method |args: ()|
|00004390| 5c 6e 53 65 74 73 20 61 | 6c 6c 20 70 6f 69 6e 74 |\nSets a|ll point|
|000043a0| 20 73 74 61 74 65 73 20 | 74 6f 20 6e 6f 72 6d 61 | states |to norma|
|000043b0| 6c 20 61 6e 64 20 73 65 | 6e 64 73 20 3a 41 44 4a |l and se|nds :ADJ|
|000043c0| 55 53 54 2d 50 4f 49 4e | 54 2d 53 43 52 45 45 4e |UST-POIN|T-SCREEN|
|000043d0| 2d 53 54 41 54 45 53 20 | 6d 65 73 73 61 67 65 20 |-STATES |message |
|000043e0| 22 0d 28 47 52 41 50 48 | 2d 50 52 4f 54 4f 20 4f |".(GRAPH|-PROTO O|
|000043f0| 42 4a 45 43 54 20 3a 53 | 48 4f 57 49 4e 47 2d 4c |BJECT :S|HOWING-L|
|00004400| 41 42 45 4c 53 29 0d 22 | 4d 65 74 68 6f 64 20 61 |ABELS)."|Method a|
|00004410| 72 67 73 3a 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |rgs: (&o|ptional |
|00004420| 73 68 6f 77 69 6e 67 29 | 5c 6e 53 65 74 73 20 6f |showing)|\nSets o|
|00004430| 72 20 72 65 74 72 69 65 | 76 65 73 20 63 75 72 72 |r retrie|ves curr|
|00004440| 65 6e 74 20 6c 61 62 65 | 6c 69 6e 67 20 73 74 61 |ent labe|ling sta|
|00004450| 74 65 20 28 74 72 75 65 | 20 6f 72 20 4e 49 4c 29 |te (true| or NIL)|
|00004460| 2e 22 0d 28 47 52 41 50 | 48 2d 50 52 4f 54 4f 20 |.".(GRAP|H-PROTO |
|00004470| 4f 42 4a 45 43 54 20 3a | 54 49 54 4c 45 29 0d 22 |OBJECT :|TITLE)."|
|00004480| 4d 65 74 68 6f 64 20 61 | 72 67 73 3a 20 28 26 6f |Method a|rgs: (&o|
|00004490| 70 74 69 6f 6e 61 6c 20 | 73 74 72 69 6e 67 29 5c |ptional |string)\|
|000044a0| 6e 53 65 74 73 20 6f 72 | 20 72 65 74 72 69 65 76 |nSets or| retriev|
|000044b0| 65 73 20 77 69 6e 64 6f | 77 20 74 69 74 6c 65 2e |es windo|w title.|
|000044c0| 22 0d 28 47 52 41 50 48 | 2d 50 52 4f 54 4f 20 4f |".(GRAPH|-PROTO O|
|000044d0| 42 4a 45 43 54 20 3a 54 | 52 41 4e 53 46 4f 52 4d |BJECT :T|RANSFORM|
|000044e0| 41 54 49 4f 4e 29 0d 22 | 4d 65 74 68 6f 64 20 61 |ATION)."|Method a|
|000044f0| 72 67 73 3a 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |rgs: (&o|ptional |
|00004500| 61 20 26 6b 65 79 20 28 | 64 72 61 77 20 74 29 29 |a &key (|draw t))|
|00004510| 5c 6e 53 65 74 73 20 6f | 72 20 72 65 74 72 69 65 |\nSets o|r retrie|
|00004520| 76 65 73 20 74 72 61 6e | 73 66 6f 72 6d 61 74 69 |ves tran|sformati|
|00004530| 6f 6e 2e 20 41 20 73 68 | 6f 75 6c 64 20 62 65 20 |on. A sh|ould be |
|00004540| 61 20 6d 61 74 72 69 78 | 20 6f 72 20 4e 49 4c 2e |a matrix| or NIL.|
|00004550| 20 49 66 20 64 72 61 77 | 20 69 73 20 74 72 75 65 | If draw| is true|
|00004560| 5c 6e 74 68 65 20 3a 52 | 45 44 52 41 57 2d 43 4f |\nthe :R|EDRAW-CO|
|00004570| 4e 54 45 4e 54 20 6d 65 | 73 73 61 67 65 20 69 73 |NTENT me|ssage is|
|00004580| 20 73 65 6e 74 2e 22 0d | 28 47 52 41 50 48 2d 50 | sent.".|(GRAPH-P|
|00004590| 52 4f 54 4f 20 4f 42 4a | 45 43 54 20 3a 56 41 52 |ROTO OBJ|ECT :VAR|
|000045a0| 49 41 42 4c 45 2d 4c 41 | 42 45 4c 29 0d 22 4d 65 |IABLE-LA|BEL)."Me|
|000045b0| 74 68 6f 64 20 61 72 67 | 73 3a 20 28 76 61 72 20 |thod arg|s: (var |
|000045c0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6c 61 62 65 6c 29 |&optiona|l label)|
|000045d0| 5c 6e 53 65 74 73 20 6f | 72 20 72 65 74 75 72 6e |\nSets o|r return|
|000045e0| 73 20 6c 61 62 65 6c 20 | 66 6f 72 20 76 61 72 69 |s label |for vari|
|000045f0| 61 62 6c 65 20 77 69 74 | 68 20 69 6e 64 65 78 20 |able wit|h index |
|00004600| 56 41 52 2e 20 56 65 63 | 74 6f 72 69 7a 65 64 2e |VAR. Vec|torized.|
|00004610| 22 0d 28 48 49 53 54 4f | 47 52 41 4d 2d 50 52 4f |".(HISTO|GRAM-PRO|
|00004620| 54 4f 20 4f 42 4a 45 43 | 54 20 3a 41 44 44 2d 50 |TO OBJEC|T :ADD-P|
|00004630| 4f 49 4e 54 53 29 0d 22 | 4d 65 74 68 6f 64 20 61 |OINTS)."|Method a|
|00004640| 72 67 73 3a 20 28 70 6f | 69 6e 74 73 20 28 64 72 |rgs: (po|ints (dr|
|00004650| 61 77 20 74 29 29 5c 6e | 41 64 64 73 20 70 6f 69 |aw t))\n|Adds poi|
|00004660| 6e 74 73 20 74 6f 20 70 | 6c 6f 74 2e 20 50 4f 49 |nts to p|lot. POI|
|00004670| 4e 54 53 20 69 73 20 61 | 20 73 65 71 75 65 6e 63 |NTS is a| sequenc|
|00004680| 65 20 6f 72 20 61 20 6c | 69 73 74 20 6f 66 20 73 |e or a l|ist of s|
|00004690| 65 71 75 65 6e 63 65 73 | 2e 20 49 66 20 44 52 41 |equences|. If DRA|
|000046a0| 57 20 69 73 5c 6e 74 72 | 75 65 20 74 68 65 20 6e |W is\ntr|ue the n|
|000046b0| 65 77 20 70 6f 69 6e 74 | 73 20 61 72 65 20 61 64 |ew point|s are ad|
|000046c0| 64 65 64 20 74 6f 20 74 | 68 65 20 73 63 72 65 65 |ded to t|he scree|
|000046d0| 6e 2e 22 0d 28 48 49 53 | 54 4f 47 52 41 4d 2d 50 |n.".(HIS|TOGRAM-P|
|000046e0| 52 4f 54 4f 20 4f 42 4a | 45 43 54 20 3a 4e 55 4d |ROTO OBJ|ECT :NUM|
|000046f0| 2d 42 49 4e 53 29 0d 22 | 4d 65 74 68 6f 64 20 61 |-BINS)."|Method a|
|00004700| 72 67 73 3a 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |rgs: (&o|ptional |
|00004710| 62 69 6e 73 20 26 6b 65 | 79 20 28 64 72 61 77 20 |bins &ke|y (draw |
|00004720| 74 29 29 5c 6e 53 65 74 | 73 20 6f 72 20 72 65 74 |t))\nSet|s or ret|
|00004730| 72 69 65 76 65 73 20 6e | 75 6d 62 65 72 20 6f 66 |rieves n|umber of|
|00004740| 20 62 69 6e 73 20 69 6e | 20 74 68 65 20 68 69 73 | bins in| the his|
|00004750| 74 6f 67 72 61 6d 2e 20 | 53 65 6e 64 73 20 3a 52 |togram. |Sends :R|
|00004760| 45 44 52 41 57 2d 43 4f | 4e 54 45 4e 54 20 6d 65 |EDRAW-CO|NTENT me|
|00004770| 73 73 61 67 65 5c 6e 69 | 66 20 44 52 41 57 20 69 |ssage\ni|f DRAW i|
|00004780| 73 20 74 72 75 65 2e 22 | 0d 28 4e 41 4d 45 2d 4c |s true."|.(NAME-L|
|00004790| 49 53 54 2d 50 52 4f 54 | 4f 20 4f 42 4a 45 43 54 |IST-PROT|O OBJECT|
|000047a0| 20 3a 41 44 44 2d 50 4f | 49 4e 54 53 29 0d 22 4d | :ADD-PO|INTS)."M|
|000047b0| 65 74 68 6f 64 20 61 72 | 67 73 3a 20 28 70 6f 69 |ethod ar|gs: (poi|
|000047c0| 6e 74 73 20 26 6b 65 79 | 20 70 6f 69 6e 74 2d 6c |nts &key| point-l|
|000047d0| 61 62 65 6c 73 20 28 64 | 72 61 77 20 74 29 29 5c |abels (d|raw t))\|
|000047e0| 6e 41 64 64 73 20 70 6f | 69 6e 74 73 20 74 6f 20 |nAdds po|ints to |
|000047f0| 70 6c 6f 74 2e 20 50 4f | 49 4e 54 53 20 69 73 20 |plot. PO|INTS is |
|00004800| 61 20 6e 75 6d 62 65 72 | 20 6f 72 20 61 20 6c 69 |a number| or a li|
|00004810| 73 74 20 6f 66 20 73 65 | 71 75 65 6e 63 65 73 2c |st of se|quences,|
|00004820| 20 50 4f 49 4e 54 2d 4c | 41 42 45 4c 53 20 61 20 | POINT-L|ABELS a |
|00004830| 6c 69 73 74 20 6f 66 5c | 6e 73 74 72 69 6e 67 73 |list of\|nstrings|
|00004840| 2e 20 49 66 20 44 52 41 | 57 20 69 73 20 74 72 75 |. If DRA|W is tru|
|00004850| 65 20 74 68 65 20 6e 65 | 77 20 70 6f 69 6e 74 73 |e the ne|w points|
|00004860| 20 61 72 65 20 61 64 64 | 65 64 20 74 6f 20 74 68 | are add|ed to th|
|00004870| 65 20 73 63 72 65 65 6e | 2e 22 0d 28 53 43 41 54 |e screen|.".(SCAT|
|00004880| 54 45 52 50 4c 4f 54 2d | 50 52 4f 54 4f 20 4f 42 |TERPLOT-|PROTO OB|
|00004890| 4a 45 43 54 20 3a 41 44 | 44 2d 4c 49 4e 45 53 29 |JECT :AD|D-LINES)|
|000048a0| 0d 22 4d 65 74 68 6f 64 | 20 61 72 67 73 3a 20 28 |."Method| args: (|
|000048b0| 6c 69 6e 65 73 20 26 6b | 65 79 20 74 79 70 65 20 |lines &k|ey type |
|000048c0| 28 64 72 61 77 20 74 29 | 29 0d 6f 72 3a 20 20 20 |(draw t)|).or:   |
|000048d0| 20 20 20 20 20 20 20 28 | 78 20 79 20 20 26 6b 65 |       (|x y  &ke|
|000048e0| 79 20 70 6f 69 6e 74 2d | 6c 61 62 65 6c 73 20 28 |y point-|labels (|
|000048f0| 64 72 61 77 20 74 29 29 | 0d 41 64 64 73 20 6c 69 |draw t))|.Adds li|
|00004900| 6e 65 73 20 74 6f 20 70 | 6c 6f 74 2e 20 4c 49 4e |nes to p|lot. LIN|
|00004910| 45 53 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |ES is a |list of |
|00004920| 73 65 71 75 65 6e 63 65 | 73 2c 20 74 68 65 20 0d |sequence|s, the .|
|00004930| 63 6f 6f 72 64 69 6e 61 | 74 65 73 20 6f 66 20 74 |coordina|tes of t|
|00004940| 68 65 20 6c 69 6e 65 20 | 20 73 74 61 72 74 73 2e |he line | starts.|
|00004950| 20 54 59 50 45 20 69 73 | 20 6e 6f 72 6d 61 6c 20 | TYPE is| normal |
|00004960| 6f 72 20 64 61 73 68 65 | 64 2e 20 49 66 0d 44 52 |or dashe|d. If.DR|
|00004970| 41 57 20 69 73 20 74 72 | 75 65 20 74 68 65 20 6e |AW is tr|ue the n|
|00004980| 65 77 20 6c 69 6e 65 73 | 20 61 72 65 20 61 64 64 |ew lines| are add|
|00004990| 65 64 20 74 6f 20 74 68 | 65 20 73 63 72 65 65 6e |ed to th|e screen|
|000049a0| 2e 20 46 6f 72 20 61 20 | 32 44 0d 70 6c 6f 74 20 |. For a |2D.plot |
|000049b0| 50 4f 49 4e 54 53 20 63 | 61 6e 20 62 65 20 72 65 |POINTS c|an be re|
|000049c0| 70 6c 61 63 65 64 20 62 | 79 20 74 77 6f 20 73 65 |placed b|y two se|
|000049d0| 71 75 65 6e 63 65 73 20 | 58 20 61 6e 64 20 59 2e |quences |X and Y.|
|000049e0| 22 0d 28 53 43 41 54 54 | 45 52 50 4c 4f 54 2d 50 |".(SCATT|ERPLOT-P|
|000049f0| 52 4f 54 4f 20 4f 42 4a | 45 43 54 20 3a 41 44 44 |ROTO OBJ|ECT :ADD|
|00004a00| 2d 50 4f 49 4e 54 53 29 | 0d 22 4d 65 74 68 6f 64 |-POINTS)|."Method|
|00004a10| 20 61 72 67 73 3a 20 28 | 70 6f 69 6e 74 73 20 26 | args: (|points &|
|00004a20| 6b 65 79 20 70 6f 69 6e | 74 2d 6c 61 62 65 6c 73 |key poin|t-labels|
|00004a30| 20 28 64 72 61 77 20 74 | 29 29 0d 6f 72 3a 20 20 | (draw t|)).or:  |
|00004a40| 20 20 20 20 20 20 20 20 | 28 78 20 79 20 20 26 6b |        |(x y  &k|
|00004a50| 65 79 20 70 6f 69 6e 74 | 2d 6c 61 62 65 6c 73 20 |ey point|-labels |
|00004a60| 28 64 72 61 77 20 74 29 | 29 0d 41 64 64 73 20 70 |(draw t)|).Adds p|
|00004a70| 6f 69 6e 74 73 20 74 6f | 20 70 6c 6f 74 2e 20 50 |oints to| plot. P|
|00004a80| 4f 49 4e 54 53 20 69 73 | 20 61 20 6c 69 73 74 20 |OINTS is| a list |
|00004a90| 6f 66 20 73 65 71 75 65 | 6e 63 65 73 2c 20 0d 50 |of seque|nces, .P|
|00004aa0| 4f 49 4e 54 2d 4c 41 42 | 45 4c 53 20 61 20 6c 69 |OINT-LAB|ELS a li|
|00004ab0| 73 74 20 6f 66 20 73 74 | 72 69 6e 67 73 2e 20 49 |st of st|rings. I|
|00004ac0| 66 20 44 52 41 57 20 69 | 73 20 74 72 75 65 20 74 |f DRAW i|s true t|
|00004ad0| 68 65 20 6e 65 77 20 70 | 6f 69 6e 74 73 0d 61 72 |he new p|oints.ar|
|00004ae0| 65 20 61 64 64 65 64 20 | 74 6f 20 74 68 65 20 73 |e added |to the s|
|00004af0| 63 72 65 65 6e 2e 20 46 | 6f 72 20 61 20 32 44 20 |creen. F|or a 2D |
|00004b00| 70 6c 6f 74 20 50 4f 49 | 4e 54 53 20 63 61 6e 20 |plot POI|NTS can |
|00004b10| 62 65 20 72 65 70 6c 61 | 63 65 64 0d 62 79 20 74 |be repla|ced.by t|
|00004b20| 77 6f 20 73 65 71 75 65 | 6e 63 65 73 20 58 20 61 |wo seque|nces X a|
|00004b30| 6e 64 20 59 2e 22 0d 28 | 53 50 49 4e 2d 50 52 4f |nd Y.".(|SPIN-PRO|
|00004b40| 54 4f 20 4f 42 4a 45 43 | 54 20 3a 41 4e 47 4c 45 |TO OBJEC|T :ANGLE|
|00004b50| 29 0d 22 4d 65 74 68 6f | 64 20 61 72 67 73 3a 20 |)."Metho|d args: |
|00004b60| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 6e 67 6c 65 |(&option|al angle|
|00004b70| 29 5c 6e 53 65 74 73 20 | 6f 72 20 72 65 74 72 69 |)\nSets |or retri|
|00004b80| 65 76 65 73 20 63 75 72 | 72 65 6e 74 20 72 6f 74 |eves cur|rent rot|
|00004b90| 61 74 69 6f 6e 20 61 6e | 67 6c 65 2c 20 69 6e 20 |ation an|gle, in |
|00004ba0| 72 61 64 69 61 6e 73 2e | 22 0d 28 53 50 49 4e 2d |radians.|".(SPIN-|
|00004bb0| 50 52 4f 54 4f 20 4f 42 | 4a 45 43 54 20 3a 44 4f |PROTO OB|JECT :DO|
|00004bc0| 2d 49 44 4c 45 29 0d 22 | 4d 65 74 68 6f 64 20 61 |-IDLE)."|Method a|
|00004bd0| 72 67 73 3a 20 28 29 5c | 6e 53 65 6e 64 73 20 3a |rgs: ()\|nSends :|
|00004be0| 52 4f 54 41 54 45 20 6d | 65 73 73 61 67 65 2e 22 |ROTATE m|essage."|
|00004bf0| 0d 28 53 50 49 4e 2d 50 | 52 4f 54 4f 20 4f 42 4a |.(SPIN-P|ROTO OBJ|
|00004c00| 45 43 54 20 3a 52 4f 54 | 41 54 45 29 0d 22 4d 65 |ECT :ROT|ATE)."Me|
|00004c10| 74 68 6f 64 20 61 72 67 | 73 3a 20 28 29 5c 6e 52 |thod arg|s: ()\nR|
|00004c20| 6f 74 61 74 65 73 20 6f | 6e 63 65 20 69 6e 20 74 |otates o|nce in t|
|00004c30| 68 65 20 63 75 72 72 65 | 6e 74 20 70 6c 61 6e 65 |he curre|nt plane|
|00004c40| 20 62 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | by the |current |
|00004c50| 61 6e 67 6c 65 2e 22 0d | 28 53 50 49 4e 2d 50 52 |angle.".|(SPIN-PR|
|00004c60| 4f 54 4f 20 4f 42 4a 45 | 43 54 20 3a 53 48 4f 57 |OTO OBJE|CT :SHOW|
|00004c70| 49 4e 47 2d 41 58 45 53 | 29 0d 22 4d 65 74 68 6f |ING-AXES|)."Metho|
|00004c80| 64 20 61 72 67 73 3a 20 | 28 26 6f 70 74 69 6f 6e |d args: |(&option|
|00004c90| 61 6c 20 63 75 69 6e 67 | 29 5c 6e 53 65 74 73 20 |al cuing|)\nSets |
|00004ca0| 6f 72 20 72 65 74 72 69 | 65 76 65 73 20 63 75 69 |or retri|eves cui|
|00004cb0| 6e 67 20 73 74 61 74 75 | 73 20 28 74 72 75 65 20 |ng statu|s (true |
|00004cc0| 6f 72 20 4e 49 4c 29 2e | 22 0d 25 2a 0d 22 41 72 |or NIL).|".%*."Ar|
|00004cd0| 67 73 3a 20 28 61 20 62 | 29 5c 6e 52 65 74 75 72 |gs: (a b|)\nRetur|
|00004ce0| 6e 73 20 74 68 65 20 6d | 61 74 72 69 78 20 70 72 |ns the m|atrix pr|
|00004cf0| 6f 64 75 63 74 20 6f 66 | 20 6d 61 74 72 69 63 65 |oduct of| matrice|
|00004d00| 73 20 61 20 61 6e 64 20 | 62 2e 20 49 66 20 61 20 |s a and |b. If a |
|00004d10| 69 73 20 61 20 76 65 63 | 74 6f 72 20 69 74 20 69 |is a vec|tor it i|
|00004d20| 73 20 74 72 65 61 74 65 | 64 5c 6e 61 73 20 61 20 |s treate|d\nas a |
|00004d30| 72 6f 77 20 76 65 63 74 | 6f 72 3b 20 69 66 20 62 |row vect|or; if b|
|00004d40| 20 69 73 20 61 20 76 65 | 63 74 6f 72 20 69 74 20 | is a ve|ctor it |
|00004d50| 69 73 20 74 72 65 61 74 | 65 64 20 61 73 20 61 20 |is treat|ed as a |
|00004d60| 63 6f 6c 75 6d 6e 20 76 | 65 63 74 6f 72 2e 22 0d |column v|ector.".|
|00004d70| 42 49 4e 44 2d 43 4f 4c | 55 4d 4e 53 0d 22 41 72 |BIND-COL|UMNS."Ar|
|00004d80| 67 73 20 28 26 72 65 73 | 74 20 61 72 67 73 29 5c |gs (&res|t args)\|
|00004d90| 6e 54 68 65 20 41 52 47 | 53 20 63 61 6e 20 62 65 |nThe ARG|S can be|
|00004da0| 20 6d 61 74 72 69 63 65 | 73 2c 20 76 65 63 74 6f | matrice|s, vecto|
|00004db0| 72 73 2c 20 6f 72 20 6c | 69 73 74 73 2e 20 41 72 |rs, or l|ists. Ar|
|00004dc0| 67 75 6d 65 6e 74 73 20 | 61 72 65 20 62 6f 75 6e |guments |are boun|
|00004dd0| 64 20 69 6e 74 6f 20 61 | 20 6d 61 74 72 69 78 5c |d into a| matrix\|
|00004de0| 6e 61 6c 6f 6e 67 20 74 | 68 65 69 72 20 63 6f 6c |nalong t|heir col|
|00004df0| 75 6d 6e 73 2e 5c 6e 45 | 78 61 6d 70 6c 65 3a 20 |umns.\nE|xample: |
|00004e00| 28 62 69 6e 64 2d 63 6f | 6c 75 6d 6e 73 20 23 32 |(bind-co|lumns #2|
|00004e10| 61 28 28 31 20 32 29 28 | 33 20 34 29 29 20 23 28 |a((1 2)(|3 4)) #(|
|00004e20| 35 20 36 29 29 20 72 65 | 74 75 72 6e 73 20 23 32 |5 6)) re|turns #2|
|00004e30| 61 28 28 31 20 32 20 35 | 29 28 33 20 34 20 36 29 |a((1 2 5|)(3 4 6)|
|00004e40| 29 22 0d 42 49 4e 44 2d | 52 4f 57 53 0d 22 41 72 |)".BIND-|ROWS."Ar|
|00004e50| 67 73 20 28 26 72 65 73 | 74 20 61 72 67 73 29 5c |gs (&res|t args)\|
|00004e60| 6e 54 68 65 20 41 52 47 | 53 20 63 61 6e 20 62 65 |nThe ARG|S can be|
|00004e70| 20 6d 61 74 72 69 63 65 | 73 2c 20 76 65 63 74 6f | matrice|s, vecto|
|00004e80| 72 73 2c 20 6f 72 20 6c | 69 73 74 73 2e 20 41 72 |rs, or l|ists. Ar|
|00004e90| 67 75 6d 65 6e 74 73 20 | 61 72 65 20 62 6f 75 6e |guments |are boun|
|00004ea0| 64 20 69 6e 74 6f 20 61 | 20 6d 61 74 72 69 78 5c |d into a| matrix\|
|00004eb0| 6e 61 6c 6f 6e 67 20 74 | 68 65 69 72 20 72 6f 77 |nalong t|heir row|
|00004ec0| 73 2e 5c 6e 45 78 61 6d | 70 6c 65 3a 20 28 62 69 |s.\nExam|ple: (bi|
|00004ed0| 6e 64 2d 72 6f 77 73 20 | 23 32 61 28 28 31 20 32 |nd-rows |#2a((1 2|
|00004ee0| 29 28 33 20 34 29 29 20 | 23 28 35 20 36 29 29 20 |)(3 4)) |#(5 6)) |
|00004ef0| 72 65 74 75 72 6e 73 20 | 23 32 61 28 28 31 20 32 |returns |#2a((1 2|
|00004f00| 29 28 33 20 34 29 28 35 | 20 36 29 29 22 0d 43 48 |)(3 4)(5| 6))".CH|
|00004f10| 4f 4c 2d 44 45 43 4f 4d | 50 0d 22 41 72 67 73 3a |OL-DECOM|P."Args:|
|00004f20| 20 28 61 29 5c 6e 4d 6f | 64 69 66 69 65 64 20 43 | (a)\nMo|dified C|
|00004f30| 68 6f 6c 65 73 6b 79 20 | 64 65 63 6f 6d 70 6f 73 |holesky |decompos|
|00004f40| 69 74 69 6f 6e 2e 20 41 | 20 73 68 6f 75 6c 64 20 |ition. A| should |
|00004f50| 62 65 20 61 20 73 71 75 | 61 72 65 2c 20 73 79 6d |be a squ|are, sym|
|00004f60| 6d 65 74 72 69 63 20 6d | 61 74 72 69 78 2e 5c 6e |metric m|atrix.\n|
|00004f70| 43 6f 6d 70 75 74 65 73 | 20 6c 6f 77 65 72 20 74 |Computes| lower t|
|00004f80| 72 69 61 6e 67 75 6c 61 | 72 20 6d 61 74 72 69 78 |riangula|r matrix|
|00004f90| 20 4c 20 73 75 63 68 20 | 74 68 61 74 20 4c 20 4c | L such |that L L|
|00004fa0| 5e 54 20 3d 20 41 20 2b | 20 44 20 77 68 65 72 65 |^T = A +| D where|
|00004fb0| 20 44 20 69 73 20 61 20 | 64 69 61 67 6f 6e 61 6c | D is a |diagonal|
|00004fc0| 5c 6e 6d 61 74 72 69 78 | 2e 20 49 66 20 41 20 69 |\nmatrix|. If A i|
|00004fd0| 73 20 73 74 72 69 63 74 | 6c 79 20 70 6f 73 69 74 |s strict|ly posit|
|00004fe0| 69 76 65 20 64 65 66 69 | 6e 69 74 65 20 44 20 77 |ive defi|nite D w|
|00004ff0| 69 6c 6c 20 62 65 20 7a | 65 72 6f 2e 20 4f 74 68 |ill be z|ero. Oth|
|00005000| 65 72 77 69 73 65 20 44 | 20 69 73 20 61 73 5c 6e |erwise D| is as\n|
|00005010| 73 6d 61 6c 6c 20 61 73 | 20 70 6f 73 73 69 62 6c |small as| possibl|
|00005020| 65 20 74 6f 20 6d 61 6b | 65 20 41 20 2b 20 44 20 |e to mak|e A + D |
|00005030| 6e 75 6d 65 72 69 63 61 | 6c 6c 79 20 73 74 72 69 |numerica|lly stri|
|00005040| 63 74 6c 79 20 70 6f 73 | 69 74 69 76 65 20 64 65 |ctly pos|itive de|
|00005050| 66 69 6e 69 74 65 2e 20 | 52 65 74 75 72 6e 73 5c |finite. |Returns\|
|00005060| 6e 61 20 6c 69 73 74 20 | 28 4c 20 28 6d 61 78 20 |na list |(L (max |
|00005070| 44 29 29 2e 22 0d 43 4f | 4c 55 4d 4e 2d 4c 49 53 |D)).".CO|LUMN-LIS|
|00005080| 54 0d 22 41 72 67 73 3a | 20 28 6d 29 5c 6e 52 65 |T."Args:| (m)\nRe|
|00005090| 74 75 72 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |turns a |list of |
|000050a0| 74 68 65 20 63 6f 6c 75 | 6d 6e 73 20 6f 66 20 4d |the colu|mns of M|
|000050b0| 20 61 73 20 76 65 63 74 | 6f 72 73 22 0d 43 4f 50 | as vect|ors".COP|
|000050c0| 59 2d 41 52 52 41 59 0d | 22 41 72 67 73 3a 20 28 |Y-ARRAY.|"Args: (|
|000050d0| 61 72 72 61 79 29 5c 6e | 52 65 74 75 72 6e 73 20 |array)\n|Returns |
|000050e0| 61 20 63 6f 70 79 20 6f | 66 20 41 52 52 41 59 20 |a copy o|f ARRAY |
|000050f0| 77 69 74 68 20 65 6c 65 | 6d 65 6e 74 73 20 65 71 |with ele|ments eq|
|00005100| 20 74 6f 20 74 68 65 20 | 65 6c 65 6d 65 6e 74 73 | to the |elements|
|00005110| 20 6f 66 20 41 52 52 41 | 59 2e 22 0d 43 4f 50 59 | of ARRA|Y.".COPY|
|00005120| 2d 4c 49 53 54 0d 22 41 | 72 67 73 3a 20 28 6c 69 |-LIST."A|rgs: (li|
|00005130| 73 74 29 5c 6e 52 65 74 | 75 72 6e 73 20 61 20 6e |st)\nRet|urns a n|
|00005140| 65 77 20 63 6f 70 79 20 | 6f 66 20 4c 49 53 54 2e |ew copy |of LIST.|
|00005150| 22 0d 43 4f 50 59 2d 56 | 45 43 54 4f 52 0d 22 41 |".COPY-V|ECTOR."A|
|00005160| 72 67 73 3a 20 28 56 45 | 43 54 4f 52 29 5c 6e 52 |rgs: (VE|CTOR)\nR|
|00005170| 65 74 75 72 6e 73 20 61 | 20 63 6f 70 79 20 6f 66 |eturns a| copy of|
|00005180| 20 56 45 43 54 4f 52 20 | 77 69 74 68 20 65 6c 65 | VECTOR |with ele|
|00005190| 6d 65 6e 74 73 20 65 71 | 20 74 6f 20 74 68 65 20 |ments eq| to the |
|000051a0| 65 6c 65 6d 65 6e 74 73 | 20 6f 66 20 56 45 43 54 |elements| of VECT|
|000051b0| 4f 52 22 0d 43 4f 55 4e | 54 2d 45 4c 45 4d 45 4e |OR".COUN|T-ELEMEN|
|000051c0| 54 53 0d 22 41 72 67 73 | 3a 20 28 6e 75 6d 62 65 |TS."Args|: (numbe|
|000051d0| 72 20 26 72 65 73 74 20 | 6d 6f 72 65 2d 6e 75 6d |r &rest |more-num|
|000051e0| 62 65 72 73 29 5c 6e 52 | 65 74 75 72 6e 73 20 74 |bers)\nR|eturns t|
|000051f0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 73 |he numbe|r of its|
|00005200| 20 61 72 67 75 6d 65 6e | 74 73 2e 20 56 65 63 74 | argumen|ts. Vect|
|00005210| 6f 72 20 72 65 64 75 63 | 69 6e 67 22 0d 43 52 4f |or reduc|ing".CRO|
|00005220| 53 53 2d 50 52 4f 44 55 | 43 54 0d 22 41 72 67 73 |SS-PRODU|CT."Args|
|00005230| 3a 20 28 78 29 5c 6e 49 | 66 20 58 20 69 73 20 61 |: (x)\nI|f X is a|
|00005240| 20 6d 61 74 72 69 78 20 | 72 65 74 75 72 6e 73 20 | matrix |returns |
|00005250| 28 25 2a 20 28 54 52 41 | 4e 53 50 4f 53 45 20 58 |(%* (TRA|NSPOSE X|
|00005260| 29 20 58 29 2e 20 49 66 | 20 58 20 69 73 20 61 20 |) X). If| X is a |
|00005270| 76 65 63 74 6f 72 20 72 | 65 74 75 72 6e 73 5c 6e |vector r|eturns\n|
|00005280| 28 49 4e 4e 45 52 2d 50 | 52 4f 44 55 43 54 20 58 |(INNER-P|RODUCT X|
|00005290| 20 58 29 2e 22 0d 44 45 | 54 45 52 4d 49 4e 41 4e | X).".DE|TERMINAN|
|000052a0| 54 0d 22 41 72 67 73 3a | 20 28 6d 29 5c 6e 52 65 |T."Args:| (m)\nRe|
|000052b0| 74 75 72 6e 73 20 74 68 | 65 20 64 65 74 65 72 6d |turns th|e determ|
|000052c0| 69 6e 61 6e 74 20 6f 66 | 20 74 68 65 20 73 71 75 |inant of| the squ|
|000052d0| 61 72 65 20 6d 61 74 72 | 69 78 20 4d 2e 22 0d 44 |are matr|ix M.".D|
|000052e0| 49 41 47 4f 4e 41 4c 0d | 22 41 72 67 73 3a 20 28 |IAGONAL.|"Args: (|
|000052f0| 78 29 5c 6e 49 66 20 58 | 20 69 73 20 61 20 6d 61 |x)\nIf X| is a ma|
|00005300| 74 72 69 78 2c 20 72 65 | 74 75 72 6e 73 20 74 68 |trix, re|turns th|
|00005310| 65 20 64 69 61 67 6f 6e | 61 6c 20 6f 66 20 58 2e |e diagon|al of X.|
|00005320| 20 49 66 20 58 20 69 73 | 20 61 20 73 65 71 75 65 | If X is| a seque|
|00005330| 6e 63 65 2c 20 72 65 74 | 75 72 6e 73 20 61 5c 6e |nce, ret|urns a\n|
|00005340| 64 69 61 67 6f 6e 61 6c | 20 6d 61 74 72 69 78 20 |diagonal| matrix |
|00005350| 6f 66 20 72 61 6e 6b 20 | 28 6c 65 6e 67 74 68 20 |of rank |(length |
|00005360| 58 29 20 77 69 74 68 20 | 64 69 61 67 6f 6e 61 6c |X) with |diagonal|
|00005370| 20 65 6c 65 6d 65 6e 74 | 73 20 65 71 20 74 6f 20 | element|s eq to |
|00005380| 74 68 65 20 65 6c 65 6d | 65 6e 74 73 5c 6e 6f 66 |the elem|ents\nof|
|00005390| 20 58 2e 22 0d 49 44 45 | 4e 54 49 54 59 2d 4d 41 | X.".IDE|NTITY-MA|
|000053a0| 54 52 49 58 0d 22 41 72 | 67 73 3a 20 28 6e 29 5c |TRIX."Ar|gs: (n)\|
|000053b0| 6e 52 65 74 75 72 6e 73 | 20 74 68 65 20 69 64 65 |nReturns| the ide|
|000053c0| 6e 74 69 74 79 20 6d 61 | 74 72 69 78 20 6f 66 20 |ntity ma|trix of |
|000053d0| 72 61 6e 6b 20 4e 2e 22 | 0d 49 4e 4e 45 52 2d 50 |rank N."|.INNER-P|
|000053e0| 52 4f 44 55 43 54 0d 22 | 41 72 67 73 3a 20 28 78 |RODUCT."|Args: (x|
|000053f0| 20 79 29 5c 6e 52 65 74 | 75 72 6e 73 20 69 6e 6e | y)\nRet|urns inn|
|00005400| 65 72 20 70 72 6f 64 75 | 63 74 20 6f 66 20 73 65 |er produ|ct of se|
|00005410| 71 75 65 6e 63 65 73 20 | 58 20 61 6e 64 20 59 2e |quences |X and Y.|
|00005420| 22 0d 49 4e 56 45 52 53 | 45 0d 22 41 72 67 73 3a |".INVERS|E."Args:|
|00005430| 20 28 6d 29 5c 6e 52 65 | 74 75 72 6e 73 20 74 68 | (m)\nRe|turns th|
|00005440| 65 20 69 6e 76 65 72 73 | 65 20 6f 66 20 74 68 65 |e invers|e of the|
|00005450| 20 74 68 65 20 73 71 75 | 61 72 65 20 6d 61 74 72 | the squ|are matr|
|00005460| 69 78 20 4d 3b 20 73 69 | 67 6e 61 6c 73 20 61 6e |ix M; si|gnals an|
|00005470| 20 65 72 72 6f 72 20 69 | 66 20 4d 20 69 73 20 69 | error i|f M is i|
|00005480| 6c 6c 5c 6e 63 6f 6e 64 | 69 74 69 6f 6e 65 64 20 |ll\ncond|itioned |
|00005490| 6f 72 20 73 69 6e 67 75 | 6c 61 72 22 0d 4c 55 2d |or singu|lar".LU-|
|000054a0| 44 45 43 4f 4d 50 0d 22 | 41 72 67 73 3a 20 28 61 |DECOMP."|Args: (a|
|000054b0| 29 5c 6e 41 20 69 73 20 | 61 20 73 71 75 61 72 65 |)\nA is |a square|
|000054c0| 20 6d 61 74 72 69 78 20 | 6f 66 20 6e 75 6d 62 65 | matrix |of numbe|
|000054d0| 72 73 20 28 72 65 61 6c | 20 6f 72 20 63 6f 6d 70 |rs (real| or comp|
|000054e0| 6c 65 78 29 2e 20 43 6f | 6d 70 75 74 65 73 20 74 |lex). Co|mputes t|
|000054f0| 68 65 20 4c 55 5c 6e 64 | 65 63 6f 6d 70 6f 73 69 |he LU\nd|ecomposi|
|00005500| 74 69 6f 6e 20 6f 66 20 | 41 20 61 6e 64 20 72 65 |tion of |A and re|
|00005510| 74 75 72 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |turns a |list of |
|00005520| 74 68 65 20 66 6f 72 6d | 20 28 4c 55 20 49 56 20 |the form| (LU IV |
|00005530| 44 20 46 4c 41 47 29 2c | 20 77 68 65 72 65 5c 6e |D FLAG),| where\n|
|00005540| 4c 55 20 69 73 20 61 20 | 6d 61 74 72 69 78 20 77 |LU is a |matrix w|
|00005550| 69 74 68 20 74 68 65 20 | 4c 20 70 61 72 74 20 69 |ith the |L part i|
|00005560| 6e 20 74 68 65 20 6c 6f | 77 65 72 20 74 72 69 61 |n the lo|wer tria|
|00005570| 6e 67 6c 65 2c 20 74 68 | 65 20 55 20 70 61 72 74 |ngle, th|e U part|
|00005580| 20 69 6e 20 74 68 65 20 | 5c 6e 75 70 70 65 72 20 | in the |\nupper |
|00005590| 74 72 69 61 6e 67 6c 65 | 20 28 74 68 65 20 64 69 |triangle| (the di|
|000055a0| 61 67 6f 6e 61 6c 20 65 | 6e 74 72 69 65 73 20 6f |agonal e|ntries o|
|000055b0| 66 20 4c 20 61 72 65 20 | 74 61 6b 65 6e 20 74 6f |f L are |taken to|
|000055c0| 20 62 65 20 31 29 2c 20 | 49 56 20 69 73 20 61 20 | be 1), |IV is a |
|000055d0| 76 65 63 74 6f 72 5c 6e | 64 65 73 63 72 69 62 69 |vector\n|describi|
|000055e0| 6e 67 20 74 68 65 20 72 | 6f 77 20 70 65 72 6d 75 |ng the r|ow permu|
|000055f0| 74 61 74 69 6f 6e 20 75 | 73 65 64 2c 20 44 20 69 |tation u|sed, D i|
|00005600| 73 20 31 20 69 66 20 74 | 68 65 20 6e 75 6d 62 65 |s 1 if t|he numbe|
|00005610| 72 20 6f 66 20 70 65 72 | 6d 75 74 61 74 69 6f 6e |r of per|mutation|
|00005620| 73 5c 6e 69 73 20 6f 64 | 64 2c 20 2d 31 20 69 66 |s\nis od|d, -1 if|
|00005630| 20 65 76 65 6e 2c 20 61 | 6e 64 20 46 4c 41 47 20 | even, a|nd FLAG |
|00005640| 69 73 20 54 20 69 66 20 | 41 20 69 73 20 6e 75 6d |is T if |A is num|
|00005650| 65 72 69 63 61 6c 6c 79 | 20 73 69 6e 67 75 6c 61 |erically| singula|
|00005660| 72 2c 20 4e 49 4c 20 6f | 74 68 65 72 77 69 73 65 |r, NIL o|therwise|
|00005670| 2e 5c 6e 55 73 65 64 20 | 62 75 20 4c 55 2d 53 4f |.\nUsed |bu LU-SO|
|00005680| 4c 56 45 2e 22 0d 4c 55 | 2d 53 4f 4c 56 45 0d 22 |LVE.".LU|-SOLVE."|
|00005690| 41 72 67 73 3a 20 28 6c | 75 20 62 29 5c 6e 4c 55 |Args: (l|u b)\nLU|
|000056a0| 20 69 73 20 74 68 65 20 | 72 65 73 75 6c 74 20 6f | is the |result o|
|000056b0| 66 20 28 4c 55 2d 44 45 | 43 4f 4d 50 20 41 29 20 |f (LU-DE|COMP A) |
|000056c0| 66 6f 72 20 61 20 73 71 | 75 61 72 65 20 6d 61 74 |for a sq|uare mat|
|000056d0| 72 69 78 20 41 2c 20 42 | 20 69 73 20 61 20 73 65 |rix A, B| is a se|
|000056e0| 71 75 65 6e 63 65 2e 5c | 6e 52 65 74 75 72 6e 73 |quence.\|nReturns|
|000056f0| 20 74 68 65 20 73 6f 6c | 75 74 69 6f 6e 20 74 6f | the sol|ution to|
|00005700| 20 74 68 65 20 65 71 75 | 61 74 69 6f 6e 20 41 78 | the equ|ation Ax|
|00005710| 20 3d 20 42 2e 20 53 69 | 67 6e 61 6c 73 20 61 6e | = B. Si|gnals an|
|00005720| 20 65 72 72 6f 72 20 69 | 66 20 41 20 69 73 20 73 | error i|f A is s|
|00005730| 69 6e 67 75 6c 61 72 2e | 22 0d 4d 41 4b 45 2d 53 |ingular.|".MAKE-S|
|00005740| 57 45 45 50 2d 4d 41 54 | 52 49 58 0d 22 41 72 67 |WEEP-MAT|RIX."Arg|
|00005750| 73 3a 20 28 78 20 79 20 | 26 6f 70 74 69 6f 6e 61 |s: (x y |&optiona|
|00005760| 6c 20 77 65 69 67 68 74 | 73 29 5c 6e 58 20 69 73 |l weight|s)\nX is|
|00005770| 20 61 20 6d 61 74 72 69 | 78 2c 20 59 20 61 6e 64 | a matri|x, Y and|
|00005780| 20 57 45 49 47 48 54 53 | 20 61 72 65 20 73 65 71 | WEIGHTS| are seq|
|00005790| 75 65 6e 63 65 73 2e 20 | 52 65 74 75 72 6e 73 20 |uences. |Returns |
|000057a0| 74 68 65 20 73 77 65 65 | 70 20 6d 61 74 72 69 78 |the swee|p matrix|
|000057b0| 20 66 6f 72 20 74 68 65 | 5c 6e 28 70 6f 73 73 69 | for the|\n(possi|
|000057c0| 62 6c 79 20 77 65 69 67 | 68 74 65 64 29 20 72 65 |bly weig|hted) re|
|000057d0| 67 72 65 73 73 69 6f 6e | 20 6f 66 20 59 20 6f 6e |gression| of Y on|
|000057e0| 20 58 2e 22 0d 4d 41 50 | 2d 45 4c 45 4d 45 4e 54 | X.".MAP|-ELEMENT|
|000057f0| 53 0d 22 41 72 67 73 3a | 20 28 66 75 6e 63 74 69 |S."Args:| (functi|
|00005800| 6f 6e 20 64 61 74 61 20 | 26 72 65 73 74 20 6d 6f |on data |&rest mo|
|00005810| 72 65 2d 64 61 74 61 29 | 5c 6e 46 55 4e 43 54 49 |re-data)|\nFUNCTI|
|00005820| 4f 4e 20 6d 75 73 74 20 | 74 61 6b 65 20 61 73 20 |ON must |take as |
|00005830| 6d 61 6e 79 20 61 72 67 | 75 6d 65 6e 74 73 20 61 |many arg|uments a|
|00005840| 73 20 74 68 65 72 65 20 | 61 72 65 20 44 41 54 41 |s there |are DATA|
|00005850| 20 61 72 67 75 6d 65 6e | 74 73 20 73 75 70 70 6c | argumen|ts suppl|
|00005860| 69 65 64 2e 5c 6e 44 41 | 54 41 20 61 72 67 75 6d |ied.\nDA|TA argum|
|00005870| 65 6e 74 73 20 6d 75 73 | 74 20 65 69 74 68 65 72 |ents mus|t either|
|00005880| 20 61 6c 6c 20 62 65 20 | 73 65 71 75 65 6e 63 65 | all be |sequence|
|00005890| 73 20 6f 72 20 61 6c 6c | 20 62 65 20 61 72 72 61 |s or all| be arra|
|000058a0| 79 73 20 6f 66 20 74 68 | 65 20 73 61 6d 65 5c 6e |ys of th|e same\n|
|000058b0| 73 68 61 70 65 2e 20 54 | 68 65 20 72 65 73 75 6c |shape. T|he resul|
|000058c0| 74 20 69 73 20 6f 66 20 | 74 68 65 20 73 61 6d 65 |t is of |the same|
|000058d0| 20 74 79 70 65 20 61 6e | 64 20 73 68 61 70 65 20 | type an|d shape |
|000058e0| 61 73 20 74 68 65 20 66 | 69 72 73 74 20 44 41 54 |as the f|irst DAT|
|000058f0| 41 20 61 72 67 75 6d 65 | 6e 74 2c 5c 6e 77 69 74 |A argume|nt,\nwit|
|00005900| 68 20 65 6c 65 6d 65 6e | 74 73 20 74 68 65 20 72 |h elemen|ts the r|
|00005910| 65 73 75 6c 74 20 6f 66 | 20 61 70 70 6c 79 69 6e |esult of| applyin|
|00005920| 67 20 46 55 4e 43 54 49 | 4f 4e 20 65 6c 65 6d 65 |g FUNCTI|ON eleme|
|00005930| 6e 74 77 69 73 65 20 74 | 6f 20 74 68 65 20 44 41 |ntwise t|o the DA|
|00005940| 54 41 5c 6e 61 72 67 75 | 6d 65 6e 74 73 22 0d 4d |TA\nargu|ments".M|
|00005950| 41 54 4d 55 4c 54 0d 22 | 41 72 67 73 3a 20 28 61 |ATMULT."|Args: (a|
|00005960| 20 62 29 5c 6e 52 65 74 | 75 72 6e 73 20 74 68 65 | b)\nRet|urns the|
|00005970| 20 6d 61 74 72 69 78 20 | 70 72 6f 64 75 63 74 20 | matrix |product |
|00005980| 6f 66 20 6d 61 74 72 69 | 63 65 73 20 61 20 61 6e |of matri|ces a an|
|00005990| 64 20 62 2e 20 49 66 20 | 61 20 69 73 20 61 20 76 |d b. If |a is a v|
|000059a0| 65 63 74 6f 72 20 69 74 | 20 69 73 20 74 72 65 61 |ector it| is trea|
|000059b0| 74 65 64 5c 6e 61 73 20 | 61 20 72 6f 77 20 76 65 |ted\nas |a row ve|
|000059c0| 63 74 6f 72 3b 20 69 66 | 20 62 20 69 73 20 61 20 |ctor; if| b is a |
|000059d0| 76 65 63 74 6f 72 20 69 | 74 20 69 73 20 74 72 65 |vector i|t is tre|
|000059e0| 61 74 65 64 20 61 73 20 | 61 20 63 6f 6c 75 6d 6e |ated as |a column|
|000059f0| 20 76 65 63 74 6f 72 2e | 22 0d 4d 41 54 52 49 58 | vector.|".MATRIX|
|00005a00| 50 0d 22 41 72 67 73 3a | 20 28 6d 29 5c 6e 52 65 |P."Args:| (m)\nRe|
|00005a10| 74 75 72 6e 73 20 54 20 | 69 66 20 4d 20 69 73 20 |turns T |if M is |
|00005a20| 61 20 6d 61 74 72 69 78 | 2c 20 4e 49 4c 20 6f 74 |a matrix|, NIL ot|
|00005a30| 68 65 72 77 69 73 65 2e | 22 0d 4d 45 41 4e 0d 22 |herwise.|".MEAN."|
|00005a40| 41 72 67 73 3a 20 28 78 | 29 0d 52 65 74 75 72 6e |Args: (x|).Return|
|00005a50| 73 20 74 68 65 20 6d 65 | 61 6e 20 6f 66 20 74 68 |s the me|an of th|
|00005a60| 65 20 65 6c 65 6d 65 6e | 74 73 20 78 2e 20 56 65 |e elemen|ts x. Ve|
|00005a70| 63 74 6f 72 20 72 65 64 | 75 63 69 6e 67 2e 22 0d |ctor red|ucing.".|
|00005a80| 4f 55 54 45 52 2d 50 52 | 4f 44 55 43 54 0d 22 41 |OUTER-PR|ODUCT."A|
|00005a90| 72 67 73 3a 20 28 78 20 | 79 20 26 6f 70 74 69 6f |rgs: (x |y &optio|
|00005aa0| 6e 61 6c 20 28 66 63 6e | 20 23 27 2a 29 29 5c 6e |nal (fcn| #'*))\n|
|00005ab0| 52 65 74 75 72 6e 73 20 | 74 68 65 20 67 65 6e 65 |Returns |the gene|
|00005ac0| 72 61 6c 69 7a 65 64 20 | 6f 75 74 65 72 20 70 72 |ralized |outer pr|
|00005ad0| 6f 64 75 63 74 20 6f 66 | 20 78 20 61 6e 64 20 79 |oduct of| x and y|
|00005ae0| 2c 20 75 73 69 6e 67 20 | 66 63 6e 2e 20 54 61 74 |, using |fcn. Tat|
|00005af0| 20 69 73 2c 20 74 68 65 | 20 72 65 73 75 6c 74 5c | is, the| result\|
|00005b00| 6e 69 73 20 61 20 6d 61 | 74 72 69 78 20 6f 66 20 |nis a ma|trix of |
|00005b10| 64 69 6d 65 6e 73 69 6f | 6e 20 28 28 6c 65 6e 67 |dimensio|n ((leng|
|00005b20| 74 68 20 78 29 20 28 6c | 65 6e 67 74 68 20 79 29 |th x) (l|ength y)|
|00005b30| 29 20 61 6e 64 20 74 68 | 65 20 28 69 20 6a 29 20 |) and th|e (i j) |
|00005b40| 65 6c 65 6d 65 6e 74 20 | 6f 66 20 74 68 65 5c 6e |element |of the\n|
|00005b50| 72 65 73 75 6c 74 20 69 | 73 20 63 6f 6d 70 75 74 |result i|s comput|
|00005b60| 65 64 20 61 73 20 28 61 | 70 70 6c 79 20 66 63 6e |ed as (a|pply fcn|
|00005b70| 20 28 61 72 65 66 20 78 | 20 69 29 20 28 61 72 65 | (aref x| i) (are|
|00005b80| 66 20 79 20 6a 29 29 2e | 22 0d 50 45 52 4d 55 54 |f y j)).|".PERMUT|
|00005b90| 45 2d 41 52 52 41 59 0d | 22 41 72 67 73 3a 20 28 |E-ARRAY.|"Args: (|
|00005ba0| 61 20 70 29 5c 6e 52 65 | 74 75 72 6e 73 20 61 20 |a p)\nRe|turns a |
|00005bb0| 63 6f 70 79 20 6f 66 20 | 74 68 65 20 61 72 72 61 |copy of |the arra|
|00005bc0| 79 20 41 20 70 65 72 6d | 75 74 65 64 20 61 63 63 |y A perm|uted acc|
|00005bd0| 6f 72 64 69 6e 67 20 74 | 6f 20 74 68 65 20 70 65 |ording t|o the pe|
|00005be0| 72 6d 75 74 61 74 69 6f | 6e 20 50 2e 22 0d 51 52 |rmutatio|n P.".QR|
|00005bf0| 2d 44 45 43 4f 4d 50 0d | 22 41 72 67 73 3a 20 28 |-DECOMP.|"Args: (|
|00005c00| 61 20 26 6f 70 74 69 6f | 6e 61 6c 20 70 69 76 6f |a &optio|nal pivo|
|00005c10| 74 29 0d 41 20 69 73 20 | 61 20 6d 61 74 72 69 78 |t).A is |a matrix|
|00005c20| 20 6f 66 20 72 65 61 6c | 20 6e 75 6d 62 65 72 73 | of real| numbers|
|00005c30| 20 77 69 74 68 20 61 74 | 20 6c 65 61 73 74 20 61 | with at| least a|
|00005c40| 73 20 6d 61 6e 79 20 72 | 6f 77 73 20 61 73 20 63 |s many r|ows as c|
|00005c50| 6f 6c 75 6d 6e 73 2e 20 | 43 6f 6d 70 75 74 65 73 |olumns. |Computes|
|00005c60| 0d 74 68 65 20 51 52 20 | 66 61 63 74 6f 72 69 7a |.the QR |factoriz|
|00005c70| 61 74 69 6f 6e 20 6f 66 | 20 41 20 61 6e 64 20 72 |ation of| A and r|
|00005c80| 65 74 75 72 6e 73 20 74 | 68 65 20 72 65 73 75 6c |eturns t|he resul|
|00005c90| 74 20 69 6e 20 61 20 6c | 69 73 74 20 6f 66 20 74 |t in a l|ist of t|
|00005ca0| 68 65 20 66 6f 72 6d 20 | 28 51 20 52 29 2e 0d 49 |he form |(Q R)..I|
|00005cb0| 66 20 50 49 56 4f 54 20 | 69 73 20 74 72 75 65 20 |f PIVOT |is true |
|00005cc0| 74 68 65 20 63 6f 6c 75 | 6d 6e 73 20 6f 66 20 58 |the colu|mns of X|
|00005cd0| 20 61 72 65 20 66 69 72 | 73 74 20 70 65 72 6d 75 | are fir|st permu|
|00005ce0| 74 65 64 20 74 6f 20 70 | 6c 61 63 65 20 69 6e 73 |ted to p|lace ins|
|00005cf0| 75 72 65 20 74 68 65 0d | 61 62 73 6f 6c 75 74 65 |ure the.|absolute|
|00005d00| 20 76 61 6c 75 65 73 20 | 6f 66 20 74 68 65 20 64 | values |of the d|
|00005d10| 69 61 67 6f 6e 61 6c 20 | 65 6c 65 6d 65 6e 74 73 |iagonal |elements|
|00005d20| 20 6f 66 20 52 20 61 72 | 65 20 6e 6f 6e 69 6e 63 | of R ar|e noninc|
|00005d30| 72 65 61 73 69 6e 67 2e | 20 49 6e 20 74 68 69 73 |reasing.| In this|
|00005d40| 20 63 61 73 65 0d 74 68 | 65 20 72 65 73 75 6c 74 | case.th|e result|
|00005d50| 20 69 6e 63 6c 75 64 65 | 73 20 61 20 74 68 69 72 | include|s a thir|
|00005d60| 64 20 65 6c 65 6d 65 6e | 74 2c 20 61 20 6c 69 73 |d elemen|t, a lis|
|00005d70| 74 20 6f 66 20 74 68 65 | 20 69 6e 64 69 63 65 73 |t of the| indices|
|00005d80| 20 6f 66 20 74 68 65 20 | 63 6f 6c 75 6d 6e 73 20 | of the |columns |
|00005d90| 69 6e 0d 74 68 65 20 6f | 72 64 65 72 20 69 6e 20 |in.the o|rder in |
|00005da0| 77 68 69 63 68 20 74 68 | 65 79 20 77 65 72 65 20 |which th|ey were |
|00005db0| 75 73 65 64 2e 22 0d 52 | 43 4f 4e 44 45 53 54 0d |used.".R|CONDEST.|
|00005dc0| 22 41 72 67 73 3a 20 28 | 61 29 5c 6e 52 65 74 75 |"Args: (|a)\nRetu|
|00005dd0| 72 6e 73 20 61 6e 20 65 | 73 74 69 6d 61 74 65 20 |rns an e|stimate |
|00005de0| 6f 66 20 74 68 65 20 72 | 65 63 69 70 72 6f 63 61 |of the r|eciproca|
|00005df0| 6c 20 6f 66 20 74 68 65 | 20 4c 31 20 63 6f 6e 64 |l of the| L1 cond|
|00005e00| 69 74 69 6f 6e 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ition nu|mber of |
|00005e10| 61 6e 20 75 70 70 65 72 | 5c 6e 74 72 69 61 6e 67 |an upper|\ntriang|
|00005e20| 75 6c 61 72 20 6d 61 74 | 72 69 78 20 61 2e 22 0d |ular mat|rix a.".|
|00005e30| 52 4f 57 2d 4c 49 53 54 | 0d 22 41 72 67 73 3a 20 |ROW-LIST|."Args: |
|00005e40| 28 6d 29 5c 6e 52 65 74 | 75 72 6e 73 20 61 20 6c |(m)\nRet|urns a l|
|00005e50| 69 73 74 20 6f 66 20 74 | 68 65 20 72 6f 77 73 20 |ist of t|he rows |
|00005e60| 6f 66 20 4d 20 61 73 20 | 76 65 63 74 6f 72 73 22 |of M as |vectors"|
|00005e70| 0d 53 4f 4c 56 45 0d 22 | 41 72 67 73 3a 20 28 61 |.SOLVE."|Args: (a|
|00005e80| 20 62 29 5c 6e 53 6f 6c | 76 65 73 20 41 20 78 20 | b)\nSol|ves A x |
|00005e90| 3d 20 42 20 75 73 69 6e | 67 20 4c 55 20 64 65 63 |= B usin|g LU dec|
|00005ea0| 6f 6d 70 6f 73 69 74 69 | 6f 6e 20 61 6e 64 20 62 |ompositi|on and b|
|00005eb0| 61 63 6b 73 6f 6c 76 69 | 6e 67 2e 20 42 20 63 61 |acksolvi|ng. B ca|
|00005ec0| 6e 20 62 65 20 61 20 73 | 65 71 75 65 6e 63 65 5c |n be a s|equence\|
|00005ed0| 6e 6f 72 20 61 20 6d 61 | 74 72 69 78 2e 22 0d 53 |nor a ma|trix.".S|
|00005ee0| 56 2d 44 45 43 4f 4d 50 | 0d 22 41 72 67 73 3a 20 |V-DECOMP|."Args: |
|00005ef0| 28 61 29 5c 6e 41 20 69 | 73 20 61 20 6d 61 74 72 |(a)\nA i|s a matr|
|00005f00| 69 78 20 6f 66 20 72 65 | 61 6c 20 6e 75 6d 62 65 |ix of re|al numbe|
|00005f10| 72 73 20 77 69 74 68 20 | 61 74 20 6c 65 61 73 74 |rs with |at least|
|00005f20| 20 61 73 20 6d 61 6e 79 | 20 72 6f 77 73 20 61 73 | as many| rows as|
|00005f30| 20 63 6f 6c 75 6d 6e 73 | 2e 5c 6e 43 6f 6d 70 75 | columns|.\nCompu|
|00005f40| 74 65 73 20 74 68 65 20 | 73 69 6e 67 75 6c 61 72 |tes the |singular|
|00005f50| 20 76 61 6c 75 65 20 64 | 65 63 6f 6d 70 6f 73 69 | value d|ecomposi|
|00005f60| 74 69 6f 6e 20 6f 66 20 | 41 20 61 6e 64 20 72 65 |tion of |A and re|
|00005f70| 74 75 72 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |turns a |list of |
|00005f80| 74 68 65 20 66 6f 72 6d | 5c 6e 28 55 20 57 20 56 |the form|\n(U W V|
|00005f90| 20 46 4c 41 47 29 20 77 | 68 65 72 65 20 55 20 61 | FLAG) w|here U a|
|00005fa0| 6e 64 20 56 20 61 72 65 | 20 6d 61 74 72 69 63 65 |nd V are| matrice|
|00005fb0| 73 20 77 68 6f 73 65 20 | 63 6f 6c 75 6d 6e 73 20 |s whose |columns |
|00005fc0| 61 72 65 20 74 68 65 20 | 6c 65 66 74 20 61 6e 64 |are the |left and|
|00005fd0| 20 72 69 67 68 74 5c 6e | 73 69 6e 67 75 6c 61 72 | right\n|singular|
|00005fe0| 20 76 65 63 74 6f 72 73 | 20 6f 66 20 41 20 61 6e | vectors| of A an|
|00005ff0| 64 20 57 20 69 73 20 74 | 68 65 20 73 65 71 75 65 |d W is t|he seque|
|00006000| 6e 63 65 20 6f 66 20 73 | 69 6e 67 75 6c 61 72 20 |nce of s|ingular |
|00006010| 76 61 6c 75 65 73 20 6f | 66 20 41 2e 20 46 4c 41 |values o|f A. FLA|
|00006020| 47 20 69 73 20 54 5c 6e | 69 66 20 74 68 65 20 61 |G is T\n|if the a|
|00006030| 6c 67 6f 72 69 74 68 6d | 20 63 6f 6e 76 65 72 67 |lgorithm| converg|
|00006040| 65 64 2c 20 4e 49 4c 20 | 6f 74 68 65 72 77 69 73 |ed, NIL |otherwis|
|00006050| 65 2e 22 0d 53 57 45 45 | 50 2d 4f 50 45 52 41 54 |e.".SWEE|P-OPERAT|
|00006060| 4f 52 0d 22 41 72 67 73 | 3a 20 28 61 20 69 6e 64 |OR."Args|: (a ind|
|00006070| 69 63 65 73 20 26 6f 70 | 74 69 6f 6e 61 6c 20 74 |ices &op|tional t|
|00006080| 6f 6c 65 72 61 6e 63 65 | 73 29 5c 6e 41 20 69 73 |olerance|s)\nA is|
|00006090| 20 61 20 6d 61 74 72 69 | 78 2c 20 49 4e 44 49 43 | a matri|x, INDIC|
|000060a0| 45 53 20 61 20 73 65 71 | 75 65 6e 63 65 20 6f 66 |ES a seq|uence of|
|000060b0| 20 74 68 65 20 63 6f 6c | 75 6d 6e 20 69 6e 64 69 | the col|umn indi|
|000060c0| 63 65 73 20 74 6f 20 62 | 65 20 73 77 65 70 74 2e |ces to b|e swept.|
|000060d0| 20 52 65 74 75 72 6e 73 | 5c 6e 61 20 6c 69 73 74 | Returns|\na list|
|000060e0| 20 6f 66 20 74 68 65 20 | 73 77 65 70 74 20 72 65 | of the |swept re|
|000060f0| 73 75 6c 74 20 61 6e 64 | 20 74 68 65 20 6c 69 73 |sult and| the lis|
|00006100| 74 20 6f 66 20 74 68 65 | 20 63 6f 6c 75 6d 6e 73 |t of the| columns|
|00006110| 20 61 63 74 75 61 6c 6c | 79 20 73 77 65 70 74 2e | actuall|y swept.|
|00006120| 20 28 53 65 65 5c 6e 4d | 55 4c 54 52 45 47 20 64 | (See\nM|ULTREG d|
|00006130| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 2e 29 20 49 |ocumenta|tion.) I|
|00006140| 66 20 73 75 70 70 6c 69 | 65 64 2c 20 54 4f 4c 45 |f suppli|ed, TOLE|
|00006150| 52 41 4e 43 45 53 20 73 | 68 6f 75 6c 64 20 62 65 |RANCES s|hould be|
|00006160| 20 61 20 6c 69 73 74 20 | 6f 66 20 72 65 61 6c 5c | a list |of real\|
|00006170| 6e 6e 75 6d 62 65 72 73 | 20 74 68 65 20 73 61 6d |nnumbers| the sam|
|00006180| 65 20 6c 65 6e 67 74 68 | 20 61 73 20 49 4e 44 49 |e length| as INDI|
|00006190| 43 45 53 2e 20 41 6e 20 | 69 6e 64 65 78 20 77 69 |CES. An |index wi|
|000061a0| 6c 6c 20 6f 6e 6c 79 20 | 62 65 20 73 77 65 70 74 |ll only |be swept|
|000061b0| 20 69 66 20 69 74 73 20 | 70 69 76 6f 74 5c 6e 65 | if its |pivot\ne|
|000061c0| 6c 65 6d 65 6e 74 20 69 | 73 20 6c 61 72 67 65 72 |lement i|s larger|
|000061d0| 20 74 68 61 6e 20 74 68 | 65 20 63 6f 72 72 65 73 | than th|e corres|
|000061e0| 70 6f 6e 64 69 6e 67 20 | 65 6c 65 6d 65 6e 74 20 |ponding |element |
|000061f0| 6f 66 20 54 4f 4c 45 52 | 41 4e 43 45 53 2e 22 0d |of TOLER|ANCES.".|
|00006200| 54 52 41 4e 53 50 4f 53 | 45 0d 22 41 72 67 73 3a |TRANSPOS|E."Args:|
|00006210| 20 28 6d 29 5c 6e 52 65 | 74 75 72 6e 73 20 74 68 | (m)\nRe|turns th|
|00006220| 65 20 74 72 61 6e 73 70 | 6f 73 65 20 6f 66 20 74 |e transp|ose of t|
|00006230| 68 65 20 6d 61 74 72 69 | 78 20 4d 2e 22 0d 56 45 |he matri|x M.".VE|
|00006240| 43 54 4f 52 50 0d 22 41 | 72 67 73 3a 20 28 6d 29 |CTORP."A|rgs: (m)|
|00006250| 5c 6e 52 65 74 75 72 6e | 73 20 54 20 69 66 20 4d |\nReturn|s T if M|
|00006260| 20 69 73 20 61 20 76 65 | 63 74 6f 72 2c 20 4e 49 | is a ve|ctor, NI|
|00006270| 4c 20 6f 74 68 65 72 77 | 69 73 65 2e 22 0d 4c 4f |L otherw|ise.".LO|
|00006280| 41 44 0d 22 41 72 67 73 | 3a 20 28 66 69 6c 65 6e |AD."Args|: (filen|
|00006290| 61 6d 65 20 26 6b 65 79 | 20 28 76 65 72 62 6f 73 |ame &key| (verbos|
|000062a0| 65 20 74 29 20 28 70 72 | 69 6e 74 20 6e 69 6c 29 |e t) (pr|int nil)|
|000062b0| 29 5c 6e 4c 6f 61 64 73 | 20 74 68 65 20 66 69 6c |)\nLoads| the fil|
|000062c0| 65 20 6e 61 6d 65 64 20 | 62 79 20 46 49 4c 45 4e |e named |by FILEN|
|000062d0| 41 4d 45 20 69 6e 74 6f | 20 58 4c 49 53 50 2e 20 |AME into| XLISP. |
|000062e0| 52 65 74 75 72 6e 73 20 | 54 20 69 66 20 6c 6f 61 |Returns |T if loa|
|000062f0| 64 20 73 75 63 63 65 65 | 64 73 2c 5c 6e 4e 49 4c |d succee|ds,\nNIL|
|00006300| 20 69 66 20 66 69 6c 65 | 20 64 6f 65 73 20 6e 6f | if file| does no|
|00006310| 74 20 65 78 69 73 74 2e | 22 0d 52 4f 4f 4d 0d 22 |t exist.|".ROOM."|
|00006320| 41 72 67 73 3a 20 28 29 | 5c 6e 53 68 6f 77 73 20 |Args: ()|\nShows |
|00006330| 6d 65 6d 6f 72 79 20 61 | 6c 6c 6f 63 61 74 69 6f |memory a|llocatio|
|00006340| 6e 20 73 74 61 74 69 73 | 74 69 63 73 2e 20 52 65 |n statis|tics. Re|
|00006350| 74 75 72 6e 73 20 6e 69 | 6c 2e 22 0d 41 4e 44 0d |turns ni|l.".AND.|
|00006360| 22 53 79 6e 74 61 78 3a | 20 28 61 6e 64 20 7b 66 |"Syntax:| (and {f|
|00006370| 6f 72 6d 7d 2a 29 5c 6e | 45 76 61 6c 75 61 74 65 |orm}*)\n|Evaluate|
|00006380| 73 20 46 4f 52 4d 73 20 | 69 6e 20 6f 72 64 65 72 |s FORMs |in order|
|00006390| 20 66 72 6f 6d 20 6c 65 | 66 74 20 74 6f 20 72 69 | from le|ft to ri|
|000063a0| 67 68 74 2e 20 20 49 66 | 20 61 6e 79 20 46 4f 52 |ght.  If| any FOR|
|000063b0| 4d 20 65 76 61 6c 75 61 | 74 65 73 20 74 6f 20 4e |M evalua|tes to N|
|000063c0| 49 4c 2c 5c 6e 72 65 74 | 75 72 6e 73 20 69 6d 6d |IL,\nret|urns imm|
|000063d0| 65 64 69 61 74 65 6c 79 | 20 77 69 74 68 20 74 68 |ediately| with th|
|000063e0| 65 20 76 61 6c 75 65 20 | 4e 49 4c 2e 20 20 45 6c |e value |NIL.  El|
|000063f0| 73 65 2c 20 72 65 74 75 | 72 6e 73 20 74 68 65 20 |se, retu|rns the |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.