home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / mathfuncs < prev    next >
ArcFS Archive  |  1995-10-01  |  21.9 KB

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: ArcFS Archive (archive/arcFS).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert ArcFS Archive (archive/arcFS) magic Supported
100% file RISC OS archive (ArcFS format) default
99% file data default
100% TrID Acorn ArcFS Archive default
100% gt2 Kopftext: 'Archive' default (weak)
100% detectItEasy Archive: ArcFS default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | fc 00 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|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 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 3f 4d 61 74 68 47 75 | 69 64 65 00 25 0e 00 00 |.?MathGu|ide.%...|
|00000070| 42 fb ff ff 1c 1d 2d 46 | 03 00 82 6f 25 0e 00 00 |B.....-F|...o%...|
|00000080| 56 00 00 00 82 3f 52 65 | 61 64 4d 65 00 00 00 00 |V....?Re|adMe....|
|00000090| db 0f 00 00 42 fb ff ff | e6 e9 1e 46 03 00 d1 7b |....B...|...F...{|
|000000a0| db 0f 00 00 9f 0e 00 00 | 82 45 78 61 6d 70 6c 65 |........|.Example|
|000000b0| 00 00 00 00 41 08 00 00 | 42 fb ff ff 1d 20 05 46 |....A...|B.... .F|
|000000c0| 03 00 f5 5e 41 08 00 00 | 9e 1e 00 00 82 4d 61 74 |...^A...|.....Mat|
|000000d0| 68 45 78 70 00 00 00 00 | b0 11 00 00 42 fb ff ff |hExp....|....B...|
|000000e0| 5b 6f 04 46 03 00 2d f5 | b0 11 00 00 03 27 00 00 |[o.F..-.|.....'..|
|000000f0| 82 4d 61 74 68 50 72 6f | 63 73 00 00 57 1b 00 00 |.MathPro|cs..W...|
|00000100| 41 fb ff ff be 43 ae 3a | 01 00 cf bb 57 1b 00 00 |A....C.:|....W...|
|00000110| d7 38 00 00 82 53 65 74 | 44 69 72 00 00 00 00 00 |.8...Set|Dir.....|
|00000120| 0e 00 00 00 43 eb ff ff | 32 12 90 08 03 00 d3 63 |....C...|2......c|
|00000130| 0e 00 00 00 24 00 00 00 | 00 00 00 00 00 00 00 00 |....$...|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 53 65 74 |....File|Data.Set|
|00000360| 44 69 72 00 00 00 00 00 | 0e 00 00 00 43 eb ff ff |Dir.....|....C...|
|00000370| 32 12 90 08 03 00 d3 63 | 44 69 72 20 3c 4f 62 65 |2......c|Dir <Obe|
|00000380| 79 24 44 69 72 3e 46 69 | 6c 65 44 61 74 61 82 3f |y$Dir>Fi|leData.?|
|00000390| 4d 61 74 68 47 75 69 64 | 65 00 25 0e 00 00 42 fb |MathGuid|e.%...B.|
|000003a0| ff ff 1c 1d 2d 46 03 00 | 82 6f 0d 00 0a 35 f4 20 |....-F..|.o...5. |
|000003b0| 3e 20 4d 61 74 68 47 75 | 69 64 65 20 3a 20 45 78 |> MathGu|ide : Ex|
|000003c0| 70 6c 61 69 6e 73 20 75 | 73 65 20 6f 66 20 4d 61 |plains u|se of Ma|
|000003d0| 74 68 50 72 6f 63 73 20 | 4c 69 62 72 61 72 79 0d |thProcs |Library.|
|000003e0| 00 14 22 f4 20 28 43 29 | 20 45 2e 57 2e 41 79 65 |..". (C)| E.W.Aye|
|000003f0| 72 73 20 3a 20 4f 63 74 | 6f 62 65 72 20 31 39 38 |rs : Oct|ober 198|
|00000400| 38 0d 00 64 0c eb 33 3a | ef 31 34 3a 87 0d 00 c8 |8..d..3:|.14:....|
|00000410| 38 f1 27 22 55 73 65 20 | 6f 66 20 50 52 4f 43 73 |8.'"Use |of PROCs|
|00000420| 2f 46 4e 73 20 69 6e 20 | 4d 61 74 68 50 72 6f 63 |/FNs in |MathProc|
|00000430| 73 20 4c 69 62 72 61 72 | 79 22 27 c4 33 37 2c 22 |s Librar|y"'.37,"|
|00000440| 2d 22 29 27 27 0d 00 d2 | 39 f1 22 54 68 65 20 50 |-")''...|9."The P|
|00000450| 52 4f 43 73 2f 46 4e 73 | 20 6d 61 79 20 62 65 20 |ROCs/FNs| may be |
|00000460| 6d 61 64 65 20 61 76 61 | 69 6c 61 62 6c 65 20 69 |made ava|ilable i|
|00000470| 6e 20 74 68 72 65 65 20 | 77 61 79 73 3a 22 0d 00 |n three |ways:"..|
|00000480| dc 29 f1 8a 35 29 22 31 | 2e 20 54 79 70 65 20 27 |.)..5)"1|. Type '|
|00000490| 49 4e 53 54 41 4c 4c 20 | 22 22 4d 61 74 68 50 72 |INSTALL |""MathPr|
|000004a0| 6f 63 73 22 22 27 22 0d | 00 e6 42 f1 8a 35 29 22 |ocs""'".|..B..5)"|
|000004b0| 32 2e 20 49 6e 63 6c 75 | 64 65 20 27 4c 49 42 52 |2. Inclu|de 'LIBR|
|000004c0| 41 52 59 20 22 22 4d 61 | 74 68 50 72 6f 63 73 22 |ARY ""Ma|thProcs"|
|000004d0| 22 27 20 61 74 20 73 74 | 61 72 74 20 6f 66 20 61 |"' at st|art of a|
|000004e0| 20 70 72 6f 67 72 61 6d | 22 0d 00 f0 3b f1 8a 35 | program|"...;..5|
|000004f0| 29 22 33 2e 20 41 50 50 | 45 4e 44 20 61 6c 6c 20 |)"3. APP|END all |
|00000500| 6f 72 20 70 61 72 74 20 | 6f 66 20 27 4d 61 74 68 |or part |of 'Math|
|00000510| 50 72 6f 63 73 27 20 74 | 6f 20 61 20 70 72 6f 67 |Procs' t|o a prog|
|00000520| 72 61 6d 22 0d 00 f3 41 | f1 27 22 49 66 20 28 31 |ram"...A|.'"If (1|
|00000530| 29 20 69 73 20 75 73 65 | 64 2c 20 6f 6e 6c 79 20 |) is use|d, only |
|00000540| 51 55 49 54 20 6f 72 20 | 50 6f 77 65 72 20 44 6f |QUIT or |Power Do|
|00000550| 77 6e 20 77 69 6c 6c 20 | 72 65 6d 6f 76 65 20 74 |wn will |remove t|
|00000560| 68 65 6d 22 27 0d 00 fa | 4b f1 27 22 54 68 65 20 |hem"'...|K.'"The |
|00000570| 6d 61 74 68 65 6d 61 74 | 69 63 61 6c 20 6f 70 65 |mathemat|ical ope|
|00000580| 72 61 74 69 6f 6e 73 20 | 74 68 65 6e 20 61 76 61 |rations |then ava|
|00000590| 69 6c 61 62 6c 65 20 63 | 6f 6d 70 6c 65 6d 65 6e |ilable c|omplemen|
|000005a0| 74 20 74 68 6f 73 65 20 | 61 6c 72 65 61 64 79 22 |t those |already"|
|000005b0| 0d 01 04 4b f1 22 61 76 | 61 69 6c 61 62 6c 65 20 |...K."av|ailable |
|000005c0| 69 6e 20 42 41 53 49 43 | 20 56 2e 20 54 68 65 79 |in BASIC| V. They|
|000005d0| 20 61 72 65 20 6c 69 6b | 65 6c 79 20 74 6f 20 62 | are lik|ely to b|
|000005e0| 65 20 65 73 70 65 63 69 | 61 6c 6c 79 20 75 73 65 |e especi|ally use|
|000005f0| 66 75 6c 20 69 6e 20 61 | 6e 79 22 0d 01 0e 42 f1 |ful in a|ny"...B.|
|00000600| 22 74 65 63 68 6e 69 63 | 61 6c 2f 73 63 69 65 6e |"technic|al/scien|
|00000610| 74 69 66 69 63 20 77 6f | 72 6b 2c 20 62 75 74 20 |tific wo|rk, but |
|00000620| 6d 61 6e 79 2c 20 70 61 | 72 74 69 63 75 6c 61 72 |many, pa|rticular|
|00000630| 6c 79 20 74 68 65 20 61 | 72 72 61 79 22 0d 01 18 |ly the a|rray"...|
|00000640| 39 f1 22 6d 61 6e 69 70 | 75 6c 61 74 69 6f 6e 73 |9."manip|ulations|
|00000650| 2c 20 77 69 6c 6c 20 66 | 69 6e 64 20 6d 6f 72 65 |, will f|ind more|
|00000660| 20 67 65 6e 65 72 61 6c | 20 61 70 70 6c 69 63 61 | general| applica|
|00000670| 74 69 6f 6e 2e 22 0d 01 | 22 3f f1 27 27 22 54 68 |tion."..|"?.''"Th|
|00000680| 65 20 6f 70 65 72 61 74 | 69 6f 6e 73 20 63 61 6e |e operat|ions can|
|00000690| 20 62 65 20 64 69 76 69 | 64 65 64 20 69 6e 74 6f | be divi|ded into|
|000006a0| 20 67 72 6f 75 70 73 20 | 61 73 20 66 6f 6c 6c 6f | groups |as follo|
|000006b0| 77 73 3a 22 27 0d 01 2c | 34 f1 8a 35 29 22 31 2e |ws:"'..,|4..5)"1.|
|000006c0| 20 54 72 69 67 6f 6e 6f | 6d 65 74 72 69 63 20 61 | Trigono|metric a|
|000006d0| 6e 64 20 48 79 70 65 72 | 62 6f 6c 69 63 20 46 75 |nd Hyper|bolic Fu|
|000006e0| 6e 63 74 69 6f 6e 73 3a | 22 0d 01 36 3e f1 8a 31 |nctions:|"..6>..1|
|000006f0| 30 29 22 53 69 6e 2c 20 | 53 69 6e 68 20 65 74 63 |0)"Sin, |Sinh etc|
|00000700| 20 61 6e 64 20 74 68 65 | 69 72 20 49 6e 76 65 72 | and the|ir Inver|
|00000710| 73 65 73 2c 20 66 6f 72 | 20 62 6f 74 68 20 6f 72 |ses, for| both or|
|00000720| 64 69 6e 61 72 79 22 0d | 01 40 3c f1 8a 31 30 29 |dinary".|.@<..10)|
|00000730| 22 28 52 45 41 4c 29 20 | 6e 75 6d 62 65 72 73 20 |"(REAL) |numbers |
|00000740| 61 6e 64 20 43 4f 4d 50 | 4c 45 58 20 6e 75 6d 62 |and COMP|LEX numb|
|00000750| 65 72 73 20 73 75 63 68 | 20 61 73 20 58 20 2b 20 |ers such| as X + |
|00000760| 6a 59 22 0d 01 4a 2d f1 | 8a 35 29 22 32 2e 20 41 |jY"..J-.|.5)"2. A|
|00000770| 72 69 74 68 6d 65 74 69 | 63 20 77 69 74 68 20 43 |rithmeti|c with C|
|00000780| 4f 4d 50 4c 45 58 20 6e | 75 6d 62 65 72 73 3a 22 |OMPLEX n|umbers:"|
|00000790| 0d 01 54 21 f1 8a 31 30 | 29 22 65 2e 67 2e 20 28 |..T!..10|)"e.g. (|
|000007a0| 41 20 2b 20 6a 42 29 2f | 28 58 20 2b 20 6a 59 29 |A + jB)/|(X + jY)|
|000007b0| 22 0d 01 5e 37 f1 8a 35 | 29 22 33 2e 20 46 61 63 |"..^7..5|)"3. Fac|
|000007c0| 74 6f 72 69 61 6c 73 2c | 20 50 65 72 6d 75 74 61 |torials,| Permuta|
|000007d0| 74 69 6f 6e 73 20 61 6e | 64 20 43 6f 6d 62 69 6e |tions an|d Combin|
|000007e0| 61 74 69 6f 6e 73 3a 22 | 0d 01 68 2d f1 8a 31 30 |ations:"|..h-..10|
|000007f0| 29 22 65 2e 67 2e 20 35 | 21 20 3d 20 46 61 63 74 |)"e.g. 5|! = Fact|
|00000800| 6f 72 69 61 6c 28 35 29 | 20 3d 20 35 2a 34 2a 33 |orial(5)| = 5*4*3|
|00000810| 2a 32 2a 31 22 0d 01 72 | 38 f1 8a 35 29 22 34 2e |*2*1"..r|8..5)"4.|
|00000820| 20 41 72 72 61 79 73 20 | 28 31 20 6f 72 20 32 20 | Arrays |(1 or 2 |
|00000830| 64 69 6d 65 6e 73 69 6f | 6e 73 29 20 6f 66 20 52 |dimensio|ns) of R|
|00000840| 45 41 4c 20 6e 75 6d 62 | 65 72 73 3a 22 0d 01 7c |EAL numb|ers:"..||
|00000850| 2c f1 8a 31 30 29 22 50 | 72 6f 6d 70 74 65 64 20 |,..10)"P|rompted |
|00000860| 6b 65 79 62 6f 61 72 64 | 20 69 6e 70 75 74 20 6f |keyboard| input o|
|00000870| 66 20 76 61 6c 75 65 73 | 22 0d 01 86 27 f1 8a 31 |f values|"...'..1|
|00000880| 30 29 22 46 6f 72 6d 61 | 74 74 65 64 20 70 72 69 |0)"Forma|tted pri|
|00000890| 6e 74 6f 75 74 20 6f 66 | 20 76 61 6c 75 65 73 22 |ntout of| values"|
|000008a0| 0d 01 90 3f f1 8a 31 30 | 29 22 43 68 6f 69 63 65 |...?..10|)"Choice|
|000008b0| 20 6f 66 20 30 2e 2e 2e | 6e 20 4f 52 20 31 2e 2e | of 0...|n OR 1..|
|000008c0| 2e 6e 20 73 75 66 66 69 | 78 20 6e 75 6d 62 65 72 |.n suffi|x number|
|000008d0| 69 6e 67 20 63 6f 6e 76 | 65 6e 74 69 6f 6e 22 0d |ing conv|ention".|
|000008e0| 01 9a 44 f1 8a 31 30 29 | 22 52 65 74 75 72 6e 20 |..D..10)|"Return |
|000008f0| 6f 66 20 4d 61 78 2f 4d | 69 6e 20 76 61 6c 75 65 |of Max/M|in value|
|00000900| 73 20 69 6e 20 61 20 73 | 70 65 63 69 66 69 65 64 |s in a s|pecified|
|00000910| 20 62 6c 6f 63 6b 20 6f | 66 20 61 6e 20 61 72 72 | block o|f an arr|
|00000920| 61 79 22 0d 01 a4 3e f1 | 8a 31 30 29 22 53 6c 69 |ay"...>.|.10)"Sli|
|00000930| 63 69 6e 67 3a 20 45 78 | 74 72 61 63 74 20 61 20 |cing: Ex|tract a |
|00000940| 73 70 65 63 69 66 69 65 | 64 20 62 6c 6f 63 6b 20 |specifie|d block |
|00000950| 74 6f 20 61 6e 6f 74 68 | 65 72 20 61 72 72 61 79 |to anoth|er array|
|00000960| 22 0d 01 ae 3a f1 8a 31 | 30 29 22 4d 41 54 52 49 |"...:..1|0)"MATRI|
|00000970| 58 20 41 6c 67 65 62 72 | 61 20 3a 20 54 72 61 6e |X Algebr|a : Tran|
|00000980| 73 70 6f 73 65 2c 49 6e | 76 65 72 74 20 53 51 55 |spose,In|vert SQU|
|00000990| 41 52 45 20 61 72 72 61 | 79 73 22 0d 01 b8 3b f1 |ARE arra|ys"...;.|
|000009a0| 8a 35 29 22 35 2e 20 41 | 72 72 61 79 73 20 28 31 |.5)"5. A|rrays (1|
|000009b0| 20 6f 72 20 32 20 64 69 | 6d 65 6e 73 69 6f 6e 73 | or 2 di|mensions|
|000009c0| 29 20 6f 66 20 43 4f 4d | 50 4c 45 58 20 6e 75 6d |) of COM|PLEX num|
|000009d0| 62 65 72 73 3a 22 0d 01 | c2 27 f1 8a 31 30 29 22 |bers:"..|.'..10)"|
|000009e0| 49 6e 70 75 74 20 61 6e | 64 20 50 72 69 6e 74 20 |Input an|d Print |
|000009f0| 61 73 20 75 6e 64 65 72 | 20 28 34 29 22 0d 01 cc |as under| (4)"...|
|00000a00| 29 f1 8a 31 30 29 22 4d | 41 54 52 49 58 20 41 6c |)..10)"M|ATRIX Al|
|00000a10| 67 65 62 72 61 3a 20 50 | 72 6f 64 75 63 74 2c 49 |gebra: P|roduct,I|
|00000a20| 6e 76 65 72 74 22 0d 01 | d6 4a f1 27 27 22 42 41 |nvert"..|.J.''"BA|
|00000a30| 53 49 43 20 56 20 61 6c | 72 65 61 64 79 20 70 72 |SIC V al|ready pr|
|00000a40| 6f 76 69 64 65 73 20 74 | 68 65 20 6f 74 68 65 72 |ovides t|he other|
|00000a50| 20 63 6f 6d 6d 6f 6e 20 | 61 72 72 61 79 2f 6d 61 | common |array/ma|
|00000a60| 74 72 69 78 20 6f 70 65 | 72 61 74 69 6f 6e 73 22 |trix ope|rations"|
|00000a70| 0d 01 e0 4a f1 22 66 6f | 72 20 52 45 41 4c 20 6e |...J."fo|r REAL n|
|00000a80| 75 6d 62 65 72 73 20 2d | 20 65 2e 67 2e 20 53 75 |umbers -| e.g. Su|
|00000a90| 6d 2c 44 69 66 66 2c 50 | 72 6f 64 75 63 74 20 65 |m,Diff,P|roduct e|
|00000aa0| 74 63 2e 20 54 68 65 73 | 65 20 61 6c 73 6f 20 63 |tc. Thes|e also c|
|00000ab0| 6f 76 65 72 20 6d 61 6e | 79 22 0d 01 ea 2a f1 22 |over man|y"...*."|
|00000ac0| 6f 70 65 72 61 74 69 6f | 6e 73 20 6f 6e 20 43 4f |operatio|ns on CO|
|00000ad0| 4d 50 4c 45 58 20 61 72 | 72 61 79 73 2c 20 65 2e |MPLEX ar|rays, e.|
|00000ae0| 67 2e 3a 22 0d 01 f4 3e | f1 8a 31 30 29 22 28 41 |g.:"...>|..10)"(A|
|00000af0| 28 29 2b 6a 42 28 29 29 | 20 2b 20 28 43 28 29 2b |()+jB())| + (C()+|
|00000b00| 6a 44 28 29 29 20 69 73 | 20 28 41 28 29 2b 43 28 |jD()) is| (A()+C(|
|00000b10| 29 29 20 2b 20 6a 28 42 | 28 29 20 2b 20 44 28 29 |)) + j(B|() + D()|
|00000b20| 29 22 0d 01 fe 47 f1 27 | 27 22 43 61 6c 6c 20 27 |)"...G.'|'"Call '|
|00000b30| 50 52 4f 43 4d 61 74 68 | 48 65 6c 70 27 20 66 6f |PROCMath|Help' fo|
|00000b40| 72 20 61 20 64 69 73 70 | 6c 61 79 20 6f 66 20 74 |r a disp|lay of t|
|00000b50| 68 65 20 66 75 6c 6c 20 | 72 61 6e 67 65 20 61 76 |he full |range av|
|00000b60| 61 69 6c 61 62 6c 65 2c | 22 0d 02 08 45 f1 22 77 |ailable,|"...E."w|
|00000b70| 69 74 68 20 69 6e 64 69 | 63 61 74 69 6f 6e 73 20 |ith indi|cations |
|00000b80| 6f 66 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |of the p|arameter|
|00000b90| 73 20 74 6f 20 62 65 20 | 73 75 70 70 6c 69 65 64 |s to be |supplied|
|00000ba0| 20 77 68 65 6e 20 63 61 | 6c 6c 69 6e 67 22 0d 02 | when ca|lling"..|
|00000bb0| 12 46 f1 22 74 68 65 20 | 76 61 72 69 6f 75 73 20 |.F."the |various |
|00000bc0| 50 52 4f 43 73 2f 46 4e | 73 2e 20 4e 6f 74 65 20 |PROCs/FN|s. Note |
|00000bd0| 74 68 61 74 20 41 2c 42 | 2c 52 2c 53 31 20 65 74 |that A,B|,R,S1 et|
|00000be0| 63 20 72 65 66 65 72 20 | 74 6f 20 6f 72 64 69 6e |c refer |to ordin|
|00000bf0| 61 72 79 22 0d 02 1c 45 | f1 22 6e 75 6d 65 72 69 |ary"...E|."numeri|
|00000c00| 63 20 76 61 6c 75 65 73 | 20 6f 72 20 76 61 72 69 |c values| or vari|
|00000c10| 61 62 6c 65 73 20 28 49 | 6e 74 65 67 65 72 20 6f |ables (I|nteger o|
|00000c20| 72 20 52 65 61 6c 29 2c | 20 77 68 65 72 65 61 73 |r Real),| whereas|
|00000c30| 20 41 28 29 2c 46 28 29 | 22 0d 02 26 42 f1 22 65 | A(),F()|"..&B."e|
|00000c40| 74 63 20 72 65 66 65 72 | 20 74 6f 20 41 52 52 41 |tc refer| to ARRA|
|00000c50| 59 53 2e 20 53 65 65 20 | 70 70 2e 33 36 2e 2e 20 |YS. See |pp.36.. |
|00000c60| 26 20 37 35 2e 2e 20 6f | 66 20 74 68 65 20 55 73 |& 75.. o|f the Us|
|00000c70| 65 72 27 73 20 47 75 69 | 64 65 22 0d 02 30 42 f1 |er's Gui|de"..0B.|
|00000c80| 22 43 61 6c 6c 69 6e 67 | 20 41 72 72 61 79 73 20 |"Calling| Arrays |
|00000c90| 4d 55 53 54 20 42 45 20 | 41 50 50 52 4f 50 52 49 |MUST BE |APPROPRI|
|00000ca0| 41 54 45 4c 59 20 44 49 | 4d 45 4e 53 49 4f 4e 45 |ATELY DI|MENSIONE|
|00000cb0| 44 20 62 65 66 6f 72 65 | 20 75 73 65 22 0d 02 3a |D before| use"..:|
|00000cc0| 26 f1 27 27 22 4e 6f 74 | 65 73 20 6f 6e 20 43 61 |&.''"Not|es on Ca|
|00000cd0| 6c 6c 69 6e 67 20 50 61 | 72 61 6d 65 74 65 72 73 |lling Pa|rameters|
|00000ce0| 3a 22 27 0d 02 44 46 f1 | 8a 35 29 22 54 68 65 20 |:"'..DF.|.5)"The |
|00000cf0| 70 61 72 61 6d 65 74 65 | 72 20 27 53 74 61 72 74 |paramete|r 'Start|
|00000d00| 27 20 64 65 66 69 6e 65 | 73 20 74 68 65 20 66 69 |' define|s the fi|
|00000d10| 72 73 74 20 73 75 66 66 | 69 78 20 74 6f 20 62 65 |rst suff|ix to be|
|00000d20| 20 75 73 65 64 20 69 6e | 22 0d 02 4e 47 f1 22 74 | used in|"..NG."t|
|00000d30| 68 65 20 61 72 72 61 79 | 73 20 73 70 65 63 69 66 |he array|s specif|
|00000d40| 69 65 64 2e 20 49 66 20 | 73 65 74 20 74 6f 20 27 |ied. If |set to '|
|00000d50| 30 27 2c 74 68 65 20 27 | 43 6f 6d 70 75 74 65 72 |0',the '|Computer|
|00000d60| 27 20 63 6f 6e 76 65 6e | 74 69 6f 6e 20 69 73 22 |' conven|tion is"|
|00000d70| 0d 02 58 44 f1 22 66 6f | 6c 6c 6f 77 65 64 2c 20 |..XD."fo|llowed, |
|00000d80| 73 75 66 66 69 63 65 73 | 20 72 75 6e 6e 69 6e 67 |suffices| running|
|00000d90| 20 66 72 6f 6d 20 30 20 | 75 70 77 61 72 64 73 2e | from 0 |upwards.|
|00000da0| 20 49 66 20 73 65 74 20 | 74 6f 20 27 31 27 2c 20 | If set |to '1', |
|00000db0| 74 68 65 22 0d 02 62 39 | f1 22 27 4d 61 74 68 65 |the"..b9|."'Mathe|
|00000dc0| 6d 61 74 69 63 73 27 20 | 63 6f 6e 76 65 6e 74 69 |matics' |conventi|
|00000dd0| 6f 6e 20 61 70 70 6c 69 | 65 73 2c 20 72 75 6e 6e |on appli|es, runn|
|00000de0| 69 6e 67 20 31 2c 32 2c | 33 2e 2e 2e 22 0d 02 6c |ing 1,2,|3..."..l|
|00000df0| 47 f1 8a 35 29 22 53 31 | 2c 45 31 2c 53 32 2c 45 |G..5)"S1|,E1,S2,E|
|00000e00| 32 20 69 6e 20 74 68 65 | 20 4d 61 78 2f 4d 69 6e |2 in the| Max/Min|
|00000e10| 2f 50 61 72 74 20 50 52 | 4f 43 73 20 73 70 65 63 |/Part PR|OCs spec|
|00000e20| 69 66 79 20 74 68 65 20 | 50 41 52 54 20 6f 66 20 |ify the |PART of |
|00000e30| 74 68 65 22 0d 02 76 48 | f1 22 61 72 72 61 79 20 |the"..vH|."array |
|00000e40| 74 6f 20 62 65 20 70 72 | 6f 63 65 73 73 65 64 3a |to be pr|ocessed:|
|00000e50| 20 53 31 2c 45 31 20 61 | 72 65 20 74 68 65 20 66 | S1,E1 a|re the f|
|00000e60| 69 72 73 74 20 61 6e 64 | 20 6c 61 73 74 20 76 61 |irst and| last va|
|00000e70| 6c 75 65 73 20 6f 66 20 | 74 68 65 22 0d 02 80 47 |lues of |the"...G|
|00000e80| f1 22 31 73 74 20 64 69 | 6d 65 6e 73 69 6f 6e 20 |."1st di|mension |
|00000e90| 73 75 66 66 69 78 20 28 | 69 2e 65 2e 20 74 68 65 |suffix (|i.e. the|
|00000ea0| 20 52 4f 57 20 6e 75 6d | 62 65 72 73 29 2c 20 61 | ROW num|bers), a|
|00000eb0| 6e 64 20 53 32 2c 45 32 | 20 73 69 6d 69 6c 61 72 |nd S2,E2| similar|
|00000ec0| 6c 79 22 0d 02 8a 47 f1 | 22 64 65 66 69 6e 65 20 |ly"...G.|"define |
|00000ed0| 74 68 65 20 43 4f 4c 55 | 4d 4e 53 2e 20 49 66 20 |the COLU|MNS. If |
|00000ee0| 74 68 65 20 61 72 72 61 | 79 20 68 61 73 20 6f 6e |the arra|y has on|
|00000ef0| 6c 79 20 31 20 64 69 6d | 65 6e 73 69 6f 6e 20 28 |ly 1 dim|ension (|
|00000f00| 69 6e 20 4d 41 54 52 49 | 58 22 0d 02 94 38 f1 22 |in MATRI|X"...8."|
|00000f10| 74 65 72 6d 69 6e 6f 6c | 6f 67 79 2c 20 69 74 20 |terminol|ogy, it |
|00000f20| 69 73 20 61 20 56 45 43 | 54 4f 52 29 2c 20 73 65 |is a VEC|TOR), se|
|00000f30| 74 20 53 32 20 61 6e 64 | 20 45 32 20 74 6f 20 2d |t S2 and| E2 to -|
|00000f40| 31 22 0d 02 9e 46 f1 8a | 35 29 22 4e 6f 74 65 20 |1"...F..|5)"Note |
|00000f50| 74 68 61 74 20 69 6e 20 | 42 41 53 49 43 20 56 2c |that in |BASIC V,|
|00000f60| 41 52 52 41 59 53 20 73 | 70 65 63 69 66 69 65 64 |ARRAYS s|pecified|
|00000f70| 20 61 73 20 50 52 4f 43 | 20 70 61 72 61 6d 65 74 | as PROC| paramet|
|00000f80| 65 72 73 20 61 72 65 22 | 0d 02 a8 48 f1 22 41 4c |ers are"|...H."AL|
|00000f90| 57 41 59 53 20 27 52 45 | 54 55 52 4e 65 64 27 2e |WAYS 'RE|TURNed'.|
|00000fa0| 54 68 69 73 20 6c 65 61 | 76 65 73 20 74 68 65 20 |This lea|ves the |
|00000fb0| 72 69 73 6b 20 6f 66 20 | 74 68 65 20 63 61 6c 6c |risk of |the call|
|00000fc0| 69 6e 67 20 61 72 72 61 | 79 20 62 65 69 6e 67 22 |ing arra|y being"|
|00000fd0| 0d 02 b2 43 f1 22 63 6f | 72 72 75 70 74 65 64 2e |...C."co|rrupted.|
|00000fe0| 20 55 73 65 20 74 68 65 | 20 42 41 53 49 43 20 65 | Use the| BASIC e|
|00000ff0| 78 70 72 65 73 73 69 6f | 6e 20 42 28 29 3d 41 28 |xpressio|n B()=A(|
|00001000| 29 20 66 69 72 73 74 20 | 74 6f 20 73 61 76 65 20 |) first |to save |
|00001010| 61 6e 22 0d 02 bc 48 f1 | 22 61 72 72 61 79 20 74 |an"...H.|"array t|
|00001020| 68 61 74 20 6d 75 73 74 | 20 62 65 20 70 72 65 73 |hat must| be pres|
|00001030| 65 72 76 65 64 2e 20 50 | 52 4f 43 73 20 74 68 61 |erved. P|ROCs tha|
|00001040| 74 20 77 69 6c 6c 20 63 | 6f 72 72 75 70 74 20 74 |t will c|orrupt t|
|00001050| 68 65 20 63 61 6c 6c 69 | 6e 67 22 0d 02 c6 23 f1 |he calli|ng"...#.|
|00001060| 22 61 72 72 61 79 73 20 | 61 72 65 20 4d 61 74 49 |"arrays |are MatI|
|00001070| 6e 76 74 2c 4d 61 74 43 | 49 6e 76 74 2e 22 0d 02 |nvt,MatC|Invt."..|
|00001080| d0 3e f1 27 27 8a 35 29 | 22 54 68 65 20 61 70 70 |.>.''.5)|"The app|
|00001090| 6c 69 63 61 74 69 6f 6e | 73 20 6f 66 20 4d 41 54 |lication|s of MAT|
|000010a0| 52 49 58 20 41 6c 67 65 | 62 72 61 20 69 6e 63 6c |RIX Alge|bra incl|
|000010b0| 75 64 65 20 73 6f 6c 76 | 69 6e 67 22 0d 02 da 46 |ude solv|ing"...F|
|000010c0| f1 22 53 69 6d 75 6c 74 | 61 6e 65 6f 75 73 20 45 |."Simult|aneous E|
|000010d0| 71 75 61 74 69 6f 6e 73 | 20 28 69 6e 63 6c 75 64 |quations| (includ|
|000010e0| 69 6e 67 20 63 6f 6d 70 | 6c 65 78 20 76 61 72 69 |ing comp|lex vari|
|000010f0| 61 62 6c 65 73 20 61 73 | 20 63 6f 6d 6d 6f 6e 6c |ables as| commonl|
|00001100| 79 22 0d 02 e4 48 f1 22 | 65 6e 63 6f 75 6e 74 65 |y"...H."|encounte|
|00001110| 72 65 64 20 69 6e 20 65 | 6c 65 63 74 72 69 63 20 |red in e|lectric |
|00001120| 63 69 72 63 75 69 74 20 | 74 68 65 6f 72 79 29 20 |circuit |theory) |
|00001130| 61 6e 64 20 49 6d 61 67 | 65 20 54 72 61 6e 73 66 |and Imag|e Transf|
|00001140| 6f 72 6d 61 74 69 6f 6e | 73 22 0d 02 ee 40 f1 22 |ormation|s"...@."|
|00001150| 54 68 69 73 20 69 73 20 | 6e 6f 74 20 74 68 65 20 |This is |not the |
|00001160| 70 6c 61 63 65 20 74 6f | 20 65 78 70 6f 75 6e 64 |place to| expound|
|00001170| 20 4d 41 54 52 49 58 20 | 74 68 65 6f 72 79 20 2d | MATRIX |theory -|
|00001180| 20 72 65 66 65 72 20 74 | 6f 22 0d 02 f8 19 f1 22 | refer t|o"....."|
|00001190| 61 6e 79 20 67 6f 6f 64 | 20 74 65 78 74 62 6f 6f |any good| textboo|
|000011a0| 6b 2e 22 0d 03 20 2a f1 | 27 27 8a 32 38 29 22 4b |k.".. *.|''.28)"K|
|000011b0| 45 59 20 53 50 41 43 45 | 20 54 4f 20 45 4e 44 22 |EY SPACE| TO END"|
|000011c0| 3a e7 a5 20 ef 31 35 3a | ee 3a db 3a e0 0d ff 46 |:.. .15:|.:.:...F|
|000011d0| 69 6c 65 44 61 74 61 82 | 3f 52 65 61 64 4d 65 00 |ileData.|?ReadMe.|
|000011e0| 00 00 00 db 0f 00 00 42 | fb ff ff e6 e9 1e 46 03 |.......B|......F.|
|000011f0| 00 d1 7b 0d 00 0a 0e f4 | 20 3e 20 52 65 61 64 4d |..{.....| > ReadM|
|00001200| 65 0d 00 64 31 eb 20 33 | 3a ef 31 34 3a f1 27 22 |e..d1. 3|:.14:.'"|
|00001210| 52 65 61 64 4d 65 20 20 | 66 6f 72 20 20 50 72 6f |ReadMe |for Pro|
|00001220| 67 72 61 6d 20 20 4d 61 | 74 68 50 72 6f 63 73 22 |gram Ma|thProcs"|
|00001230| 27 27 0d 00 69 22 f1 22 | 28 43 29 20 45 2e 57 2e |''..i"."|(C) E.W.|
|00001240| 41 59 45 52 53 20 20 4d | 61 72 63 68 20 31 39 39 |AYERS M|arch 199|
|00001250| 30 22 27 27 0d 00 6e 44 | f1 22 54 68 65 20 70 72 |0"''..nD|."The pr|
|00001260| 6f 67 72 61 6d 20 73 75 | 70 70 6c 69 65 73 20 61 |ogram su|pplies a|
|00001270| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6d 61 74 68 73 | number |of maths|
|00001280| 20 6f 70 65 72 61 74 69 | 6f 6e 73 20 28 73 65 65 | operati|ons (see|
|00001290| 20 62 65 6c 6f 77 29 22 | 0d 00 78 48 f1 22 69 6e | below)"|..xH."in|
|000012a0| 20 74 68 65 20 66 6f 72 | 6d 20 6f 66 20 50 52 4f | the for|m of PRO|
|000012b0| 43 45 44 55 52 45 53 20 | 6f 72 20 46 55 4e 43 54 |CEDURES |or FUNCT|
|000012c0| 49 4f 4e 53 20 77 68 69 | 63 68 20 6d 61 79 20 62 |IONS whi|ch may b|
|000012d0| 65 20 63 61 6c 6c 65 64 | 20 65 69 74 68 65 72 22 |e called| either"|
|000012e0| 0d 00 82 46 f1 22 64 69 | 72 65 63 74 20 66 72 6f |...F."di|rect fro|
|000012f0| 6d 20 74 68 65 20 6b 65 | 79 62 6f 61 72 64 20 28 |m the ke|yboard (|
|00001300| 27 43 6f 6d 6d 61 6e 64 | 20 6d 6f 64 65 27 29 2c |'Command| mode'),|
|00001310| 20 6f 72 20 66 72 6f 6d | 20 77 69 74 68 69 6e 20 | or from| within |
|00001320| 42 41 53 49 43 22 0d 00 | 8c 10 f1 22 70 72 6f 67 |BASIC"..|..."prog|
|00001330| 72 61 6d 73 2e 22 0d 00 | 91 11 f1 27 22 4c 6f 61 |rams."..|...'"Loa|
|00001340| 64 69 6e 67 20 3a 22 0d | 00 93 44 f1 27 22 4e 2e |ding :".|..D.'"N.|
|00001350| 42 2e 20 77 68 65 72 65 | 20 61 20 70 72 6f 67 72 |B. where| a progr|
|00001360| 61 6d 20 6e 61 6d 65 20 | 69 73 20 67 69 76 65 6e |am name |is given|
|00001370| 20 62 65 6c 6f 77 2c 20 | 61 20 70 61 74 68 6e 61 | below, |a pathna|
|00001380| 6d 65 20 6d 75 73 74 20 | 62 65 22 0d 00 94 46 f1 |me must |be"...F.|
|00001390| 22 73 75 62 73 74 69 74 | 75 74 65 64 20 69 66 20 |"substit|uted if |
|000013a0| 69 74 20 69 73 20 6e 6f | 74 20 69 6e 20 74 68 65 |it is no|t in the|
|000013b0| 20 63 75 72 72 65 6e 74 | 20 6f 72 20 61 20 6c 69 | current| or a li|
|000013c0| 62 72 61 72 79 20 64 69 | 72 65 63 74 6f 72 79 2e |brary di|rectory.|
|000013d0| 22 0d 00 96 47 f1 27 22 | 49 66 20 79 6f 75 20 63 |"...G.'"|If you c|
|000013e0| 61 6e 20 73 70 61 72 65 | 20 61 62 6f 75 74 20 37 |an spare| about 7|
|000013f0| 4b 20 6f 66 20 6d 65 6d | 6f 72 79 2c 20 74 68 65 |K of mem|ory, the|
|00001400| 20 65 61 73 69 65 73 74 | 20 77 61 79 20 74 6f 20 | easiest| way to |
|00001410| 75 73 65 20 74 68 65 22 | 0d 00 a0 27 f1 22 70 72 |use the"|...'."pr|
|00001420| 6f 67 72 61 6d 20 69 73 | 20 74 6f 20 74 79 70 65 |ogram is| to type|
|00001430| 20 28 66 72 6f 6d 20 42 | 41 53 49 43 29 3a 22 0d | (from B|ASIC):".|
|00001440| 00 aa 21 f1 27 8a 31 30 | 29 22 49 4e 53 54 41 4c |..!.'.10|)"INSTAL|
|00001450| 4c 20 22 22 4d 61 74 68 | 50 72 6f 63 73 22 22 22 |L ""Math|Procs"""|
|00001460| 0d 00 b4 41 f1 27 22 54 | 68 65 20 77 68 6f 6c 65 |...A.'"T|he whole|
|00001470| 20 73 65 74 20 77 69 6c | 6c 20 62 65 20 6c 6f 61 | set wil|l be loa|
|00001480| 64 65 64 20 61 62 6f 76 | 65 20 42 41 53 49 43 2c |ded abov|e BASIC,|
|00001490| 20 61 6e 64 20 74 79 70 | 69 6e 67 20 4c 56 41 52 | and typ|ing LVAR|
|000014a0| 22 0d 00 be 42 f1 22 77 | 69 6c 6c 20 73 68 6f 77 |"...B."w|ill show|
|000014b0| 20 69 74 73 20 70 72 65 | 73 65 6e 63 65 2e 20 49 | its pre|sence. I|
|000014c0| 74 20 77 69 6c 6c 20 72 | 65 6d 61 69 6e 20 75 6e |t will r|emain un|
|000014d0| 74 69 6c 20 51 55 49 54 | 2c 20 43 54 52 4c 2d 42 |til QUIT|, CTRL-B|
|000014e0| 52 4b 22 0d 00 c8 45 f1 | 22 6f 72 20 73 77 69 74 |RK"...E.|"or swit|
|000014f0| 63 68 2d 6f 66 66 2e 20 | 4f 6e 65 20 61 64 76 61 |ch-off. |One adva|
|00001500| 6e 74 61 67 65 20 6f 66 | 20 27 49 4e 53 54 41 4c |ntage of| 'INSTAL|
|00001510| 4c 27 20 69 73 20 74 68 | 61 74 20 74 68 65 20 70 |L' is th|at the p|
|00001520| 72 6f 67 72 61 6d 73 22 | 0d 00 cd 4a f1 22 61 72 |rograms"|...J."ar|
|00001530| 65 20 69 6d 6d 65 64 69 | 61 74 65 6c 79 20 61 63 |e immedi|ately ac|
|00001540| 63 65 73 73 69 62 6c 65 | 20 69 6e 20 63 6f 6d 6d |cessible| in comm|
|00001550| 61 6e 64 20 6d 6f 64 65 | 2c 20 6f 72 20 74 6f 20 |and mode|, or to |
|00001560| 41 4e 59 20 42 41 53 49 | 43 20 70 72 6f 67 72 61 |ANY BASI|C progra|
|00001570| 6d 22 0d 00 cf 39 f1 22 | 73 75 62 73 65 71 75 65 |m"...9."|subseque|
|00001580| 6e 74 6c 79 20 6c 6f 61 | 64 65 64 2c 20 73 69 6d |ntly loa|ded, sim|
|00001590| 70 6c 79 20 62 79 20 69 | 73 73 75 69 6e 67 20 27 |ply by i|ssuing '|
|000015a0| 50 52 4f 43 78 78 78 78 | 27 2e 22 0d 00 d2 46 f1 |PROCxxxx|'."...F.|
|000015b0| 27 22 54 79 70 69 6e 67 | 20 50 52 4f 43 4d 61 74 |'"Typing| PROCMat|
|000015c0| 68 48 65 6c 70 20 61 74 | 20 61 6e 79 20 74 69 6d |hHelp at| any tim|
|000015d0| 65 20 77 69 6c 6c 20 72 | 75 6e 20 74 68 65 20 69 |e will r|un the i|
|000015e0| 6e 74 72 6f 64 75 63 74 | 6f 72 79 20 50 52 4f 43 |ntroduct|ory PROC|
|000015f0| 22 0d 00 dc 32 f1 22 77 | 68 69 63 68 20 6c 69 73 |"...2."w|hich lis|
|00001600| 74 73 20 74 68 65 20 50 | 52 4f 43 73 2f 46 4e 73 |ts the P|ROCs/FNs|
|00001610| 20 61 6e 64 20 74 68 65 | 69 72 20 73 79 6e 74 61 | and the|ir synta|
|00001620| 78 2e 22 0d 00 e6 48 f1 | 27 22 41 6c 74 65 72 6e |x."...H.|'"Altern|
|00001630| 61 74 69 76 65 6c 79 2c | 20 79 6f 75 20 63 61 6e |atively,| you can|
|00001640| 20 69 6e 63 6f 72 70 6f | 72 61 74 65 20 74 68 65 | incorpo|rate the|
|00001650| 20 73 65 74 20 69 6e 74 | 6f 20 79 6f 75 72 20 6f | set int|o your o|
|00001660| 77 6e 20 70 72 6f 67 72 | 61 6d 22 0d 00 f0 2b f1 |wn progr|am"...+.|
|00001670| 22 62 79 20 69 6e 63 6c | 75 64 69 6e 67 2c 20 65 |"by incl|uding, e|
|00001680| 61 72 6c 79 20 69 6e 20 | 69 74 2c 20 74 68 65 20 |arly in |it, the |
|00001690| 6c 69 6e 65 3a 22 0d 00 | fa 21 f1 27 8a 31 30 29 |line:"..|.!.'.10)|
|000016a0| 22 4c 49 42 52 41 52 59 | 20 22 22 4d 61 74 68 50 |"LIBRARY| ""MathP|
|000016b0| 72 6f 63 73 22 22 22 0d | 01 04 47 f1 27 22 49 6e |rocs""".|..G.'"In|
|000016c0| 20 74 68 69 73 20 63 61 | 73 65 20 74 68 65 20 73 | this ca|se the s|
|000016d0| 65 74 20 69 73 20 73 74 | 6f 72 65 64 20 69 6e 20 |et is st|ored in |
|000016e0| 61 20 44 49 4d 27 64 20 | 61 72 65 61 20 6f 66 20 |a DIM'd |area of |
|000016f0| 74 68 65 20 48 45 41 50 | 20 77 68 65 6e 22 0d 01 |the HEAP| when"..|
|00001700| 0e 48 f1 22 79 6f 75 72 | 20 70 72 6f 67 72 61 6d |.H."your| program|
|00001710| 20 72 75 6e 73 2e 20 4c | 56 41 52 20 77 69 6c 6c | runs. L|VAR will|
|00001720| 20 61 67 61 69 6e 20 72 | 65 76 65 61 6c 20 69 74 | again r|eveal it|
|00001730| 2c 20 62 75 74 20 69 74 | 20 77 69 6c 6c 20 62 65 |, but it| will be|
|00001740| 20 6c 6f 73 74 22 0d 01 | 18 3f f1 22 77 68 65 6e | lost"..|.?."when|
|00001750| 20 79 6f 75 20 63 6c 65 | 61 72 20 74 68 65 20 70 | you cle|ar the p|
|00001760| 72 6f 67 72 61 6d 20 28 | 65 2e 67 2e 20 62 79 20 |rogram (|e.g. by |
|00001770| 4e 45 57 20 6f 72 20 4c | 4f 41 44 20 61 6e 6f 74 |NEW or L|OAD anot|
|00001780| 68 65 72 29 22 0d 01 22 | 49 f1 27 22 49 66 20 79 |her)".."|I.'"If y|
|00001790| 6f 75 20 61 72 65 20 73 | 68 6f 72 74 20 6f 66 20 |ou are s|hort of |
|000017a0| 6d 65 6d 6f 72 79 2c 20 | 69 6e 64 69 76 69 64 75 |memory, |individu|
|000017b0| 61 6c 20 50 52 4f 43 73 | 2f 46 4e 73 20 6d 61 79 |al PROCs|/FNs may|
|000017c0| 20 62 65 20 65 78 74 72 | 61 63 74 65 64 22 0d 01 | be extr|acted"..|
|000017d0| 2c 42 f1 22 61 6e 64 20 | 41 50 50 45 4e 44 65 64 |,B."and |APPENDed|
|000017e0| 20 74 6f 20 79 6f 75 72 | 20 70 72 6f 67 72 61 6d | to your| program|
|000017f0| 2c 20 62 75 74 20 6e 6f | 74 65 20 74 68 61 74 20 |, but no|te that |
|00001800| 73 6f 6d 65 20 50 52 4f | 43 73 20 63 61 6c 6c 22 |some PRO|Cs call"|
|00001810| 0d 01 36 2e f1 22 6f 74 | 68 65 72 73 2c 20 61 6e |..6.."ot|hers, an|
|00001820| 64 20 74 68 65 73 65 20 | 6d 75 73 74 20 61 6c 73 |d these |must als|
|00001830| 6f 20 62 65 20 70 72 65 | 73 65 6e 74 2e 22 0d 01 |o be pre|sent."..|
|00001840| 9a 49 f1 27 22 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |.I.'"The| followi|
|00001850| 6e 67 20 69 73 20 61 20 | 62 72 69 65 66 20 6c 69 |ng is a |brief li|
|00001860| 73 74 20 6f 66 20 74 68 | 65 20 50 52 4f 43 73 2f |st of th|e PROCs/|
|00001870| 46 4e 73 20 69 6e 63 6c | 75 64 65 64 2c 20 74 6f |FNs incl|uded, to|
|00001880| 67 65 74 68 65 72 22 0d | 01 a4 3c f1 22 74 68 65 |gether".|..<."the|
|00001890| 69 72 20 73 79 6e 74 61 | 78 2c 20 61 73 20 70 72 |ir synta|x, as pr|
|000018a0| 69 6e 74 65 64 20 6f 75 | 74 20 62 79 20 63 61 6c |inted ou|t by cal|
|000018b0| 6c 69 6e 67 20 50 52 4f | 43 4d 61 74 68 48 65 6c |ling PRO|CMathHel|
|000018c0| 70 2e 22 0d 01 ae 21 f1 | 27 22 4b 65 79 20 53 50 |p."...!.|'"Key SP|
|000018d0| 41 43 45 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 22 |ACE to c|ontinue"|
|000018e0| 3a e7 20 a5 0d 01 b8 0d | f2 4d 61 74 68 48 65 6c |:. .....|.MathHel|
|000018f0| 70 0d 01 c2 40 48 25 3d | 30 3a f1 22 57 6f 75 6c |p...@H%=|0:."Woul|
|00001900| 64 20 79 6f 75 20 6c 69 | 6b 65 20 6d 6f 72 65 20 |d you li|ke more |
|00001910| 64 65 74 61 69 6c 65 64 | 20 65 78 70 6c 61 6e 61 |detailed| explana|
|00001920| 74 69 6f 6e 73 20 2d 20 | 59 20 6f 72 20 4e 20 3f |tions - |Y or N ?|
|00001930| 22 0d 01 cc 17 e7 28 a5 | 20 80 20 26 35 46 29 3d |".....(.| . &5F)=|
|00001940| 38 39 3a 48 25 3d 2d 31 | 0d 01 d6 0a e7 20 48 25 |89:H%=-1|..... H%|
|00001950| 20 8c 0d 01 db 42 f1 27 | 22 59 6f 75 20 77 69 6c | ....B.'|"You wil|
|00001960| 6c 20 66 69 6e 64 20 69 | 74 20 75 73 65 66 75 6c |l find i|t useful|
|00001970| 20 74 6f 20 68 61 76 65 | 20 61 20 70 72 69 6e 74 | to have| a print|
|00001980| 6f 75 74 20 6f 66 20 50 | 52 4f 43 4d 61 74 68 48 |out of P|ROCMathH|
|00001990| 65 6c 70 22 0d 01 e0 38 | f1 22 74 6f 20 72 65 66 |elp"...8|."to ref|
|000019a0| 65 72 20 74 6f 20 3a 20 | 49 66 20 73 6f 2c 20 70 |er to : |If so, p|
|000019b0| 75 74 20 79 6f 75 72 20 | 70 72 69 6e 74 65 72 20 |ut your |printer |
|000019c0| 6f 6e 2d 6c 69 6e 65 20 | 6e 6f 77 22 0d 01 e2 07 |on-line |now"....|
|000019d0| 20 e7 a5 0d 01 e5 1b e7 | 20 a4 70 72 63 6b 3a ef | .......| .prck:.|
|000019e0| 32 3a f2 4d 61 74 68 48 | 65 6c 70 3a ef 33 0d 01 |2:.MathH|elp:.3..|
|000019f0| ea 11 d7 20 22 4d 61 74 | 68 45 78 70 22 3a cd 0d |... "Mat|hExp":..|
|00001a00| 01 f4 0d cd 3a ef 33 2c | 31 35 3a e0 0d 07 d0 36 |....:.3,|15:....6|
|00001a10| dd f2 4d 61 74 68 48 65 | 6c 70 3a eb 33 3a f1 8a |..MathHe|lp:.3:..|
|00001a20| 32 34 29 22 4d 41 54 48 | 53 20 46 55 4e 43 54 49 |24)"MATH|S FUNCTI|
|00001a30| 4f 4e 20 4c 49 42 52 41 | 52 59 20 2d 20 48 45 4c |ON LIBRA|RY - HEL|
|00001a40| 50 22 0d 07 da 31 f1 27 | 22 46 75 6e 63 74 69 6f |P"...1.'|"Functio|
|00001a50| 6e 73 3a 20 54 61 6b 65 | 20 26 20 72 65 74 75 72 |ns: Take| & retur|
|00001a60| 6e 20 52 45 41 4c 20 70 | 61 72 61 6d 65 74 65 72 |n REAL p|arameter|
|00001a70| 73 22 27 0d 07 e4 31 f1 | 8a 35 29 22 46 4e 73 69 |s"'...1.|.5)"FNsi|
|00001a80| 6e 68 28 58 29 22 8a 32 | 38 29 22 46 4e 63 6f 73 |nh(X)".2|8)"FNcos|
|00001a90| 68 28 58 29 22 8a 35 32 | 29 22 46 4e 74 61 6e 68 |h(X)".52|)"FNtanh|
|00001aa0| 28 58 29 22 0d 07 ee 3a | f1 8a 35 29 22 46 4e 61 |(X)"...:|..5)"FNa|
|00001ab0| 72 67 73 69 6e 68 28 58 | 29 22 8a 32 38 29 22 46 |rgsinh(X|)".28)"F|
|00001ac0| 4e 61 72 67 63 6f 73 68 | 28 58 29 22 8a 35 32 29 |Nargcosh|(X)".52)|
|00001ad0| 22 46 4e 61 72 67 74 61 | 6e 68 28 58 29 22 0d 07 |"FNargta|nh(X)"..|
|00001ae0| f8 50 f1 8a 35 29 22 46 | 4e 66 61 63 74 28 58 25 |.P..5)"F|Nfact(X%|
|00001af0| 29 20 2d 20 58 25 21 22 | 8a 32 38 29 22 46 4e 70 |) - X%!"|.28)"FNp|
|00001b00| 65 72 6d 28 4e 25 2c 52 | 25 29 20 2d 20 6e 50 72 |erm(N%,R|%) - nPr|
|00001b10| 22 8a 35 32 29 22 46 4e | 63 6f 6d 62 69 6e 65 28 |".52)"FN|combine(|
|00001b20| 4e 25 2c 52 25 29 20 2d | 20 6e 43 72 22 27 0d 08 |N%,R%) -| nCr"'..|
|00001b30| 02 47 f1 22 50 72 6f 63 | 65 64 75 72 65 73 3a 20 |.G."Proc|edures: |
|00001b40| 54 61 6b 65 20 43 4f 4d | 50 4c 45 58 20 70 61 72 |Take COM|PLEX par|
|00001b50| 6d 73 20 41 2b 6a 42 2c | 5b 43 2b 6a 44 5d 20 20 |ms A+jB,|[C+jD] |
|00001b60| 4f 52 20 20 7c 4d 7c 2c | 61 6e 67 6c 65 20 4c 20 |OR |M|,|angle L |
|00001b70| 64 65 67 2e 22 0d 08 0c | 30 f1 8a 31 32 29 22 52 |deg."...|0..12)"R|
|00001b80| 65 74 75 72 6e 20 20 52 | 20 2b 20 6a 49 20 20 4f |eturn R| + jI O|
|00001b90| 52 20 20 7c 4d 7c 2c 61 | 6e 67 6c 65 20 4c 20 64 |R |M|,a|ngle L d|
|00001ba0| 65 67 2e 22 27 0d 08 16 | 31 f1 8a 35 29 22 50 52 |eg."'...|1..5)"PR|
|00001bb0| 4f 43 73 69 6e 28 41 2c | 42 2c 52 2c 49 29 22 8a |OCsin(A,|B,R,I)".|
|00001bc0| 32 38 29 22 50 52 4f 43 | 63 6f 73 28 41 2c 42 2c |28)"PROC|cos(A,B,|
|00001bd0| 52 2c 49 29 22 3b 0d 08 | 20 1b f1 8a 35 32 29 22 |R,I)";..| ...52)"|
|00001be0| 50 52 4f 43 74 61 6e 28 | 41 2c 42 2c 52 2c 49 29 |PROCtan(|A,B,R,I)|
|00001bf0| 22 0d 08 2a 33 f1 8a 35 | 29 22 50 52 4f 43 73 69 |"..*3..5|)"PROCsi|
|00001c00| 6e 68 28 41 2c 42 2c 52 | 2c 49 29 22 8a 32 38 29 |nh(A,B,R|,I)".28)|
|00001c10| 22 50 52 4f 43 63 6f 73 | 68 28 41 2c 42 2c 52 2c |"PROCcos|h(A,B,R,|
|00001c20| 49 29 22 3b 0d 08 34 1d | f1 8a 35 32 29 22 50 52 |I)";..4.|..52)"PR|
|00001c30| 4f 43 74 61 6e 68 28 41 | 2c 42 2c 52 2c 49 29 22 |OCtanh(A|,B,R,I)"|
|00001c40| 27 0d 08 3e 3d f1 8a 35 | 29 22 50 52 4f 43 63 78 |'..>=..5|)"PROCcx|
|00001c50| 73 75 6d 28 41 2c 42 2c | 43 2c 44 2c 52 2c 49 29 |sum(A,B,|C,D,R,I)|
|00001c60| 22 8a 34 30 29 22 50 52 | 4f 43 63 78 64 69 66 66 |".40)"PR|OCcxdiff|
|00001c70| 28 41 2c 42 2c 43 2c 44 | 2c 52 2c 49 29 22 0d 08 |(A,B,C,D|,R,I)"..|
|00001c80| 48 3e f1 8a 35 29 22 50 | 52 4f 43 63 78 70 72 6f |H>..5)"P|ROCcxpro|
|00001c90| 64 28 41 2c 42 2c 43 2c | 44 2c 52 2c 49 29 22 8a |d(A,B,C,|D,R,I)".|
|00001ca0| 34 30 29 22 50 52 4f 43 | 63 78 71 75 6f 74 28 41 |40)"PROC|cxquot(A|
|00001cb0| 2c 42 2c 43 2c 44 2c 52 | 2c 49 29 22 0d 08 52 33 |,B,C,D,R|,I)"..R3|
|00001cc0| f1 8a 35 29 22 50 52 4f | 43 72 65 63 69 70 28 41 |..5)"PRO|Crecip(A|
|00001cd0| 2c 42 2c 52 2c 49 29 22 | 8a 34 30 29 22 50 52 4f |,B,R,I)"|.40)"PRO|
|00001ce0| 43 73 71 72 74 28 41 2c | 42 2c 52 2c 49 29 22 0d |Csqrt(A,|B,R,I)".|
|00001cf0| 08 5c 38 f1 8a 35 29 22 | 50 52 4f 43 70 6f 6c 61 |.\8..5)"|PROCpola|
|00001d00| 72 28 41 2c 42 2c 4d 2c | 4c 29 22 8a 34 30 29 22 |r(A,B,M,|L)".40)"|
|00001d10| 50 52 4f 43 63 61 72 74 | 65 73 69 61 6e 28 4d 2c |PROCcart|esian(M,|
|00001d20| 4c 2c 52 2c 49 29 22 0d | 08 66 27 f1 27 27 8a 32 |L,R,I)".|.f'.''.2|
|00001d30| 38 29 22 4b 65 79 20 53 | 50 41 43 45 20 74 6f 20 |8)"Key S|PACE to |
|00001d40| 63 6f 6e 74 69 6e 75 65 | 22 3a e7 a5 20 db 0d 08 |continue|":.. ...|
|00001d50| 70 05 3a 0d 08 7a 30 f1 | 22 20 20 20 20 52 45 41 |p.:..z0.|" REA|
|00001d60| 4c 20 41 72 72 61 79 73 | 3a 20 41 28 29 20 5b 42 |L Arrays|: A() [B|
|00001d70| 28 29 5d 20 3a 20 4d 61 | 78 20 32 20 64 69 6d 73 |()] : Ma|x 2 dims|
|00001d80| 20 22 3b 0d 08 84 29 f1 | 22 3a 20 53 74 61 72 74 | ";...).|": Start|
|00001d90| 20 3d 20 31 73 74 20 65 | 6c 65 6d 65 6e 74 20 28 | = 1st e|lement (|
|00001da0| 65 67 20 30 20 6f 72 20 | 31 29 22 27 0d 08 8e 39 |eg 0 or |1)"'...9|
|00001db0| f1 22 50 52 4f 43 4d 61 | 74 49 6e 70 75 74 28 41 |."PROCMa|tInput(A|
|00001dc0| 28 29 2c 53 74 61 72 74 | 29 22 8a 34 34 29 22 4b |(),Start|)".44)"K|
|00001dd0| 65 79 20 69 6e 20 61 72 | 72 61 79 20 65 6c 65 6d |ey in ar|ray elem|
|00001de0| 65 6e 74 73 22 0d 08 98 | 34 f1 22 50 52 4f 43 4d |ents"...|4."PROCM|
|00001df0| 61 74 50 72 69 6e 74 28 | 41 28 29 2c 53 74 61 72 |atPrint(|A(),Star|
|00001e00| 74 29 22 8a 34 34 29 22 | 50 72 69 6e 74 20 72 65 |t)".44)"|Print re|
|00001e10| 61 6c 20 61 72 72 61 79 | 22 0d 08 a2 3e f1 22 50 |al array|"...>."P|
|00001e20| 52 4f 43 4d 61 74 54 72 | 61 6e 73 28 41 28 29 2c |ROCMatTr|ans(A(),|
|00001e30| 42 28 29 2c 53 74 61 72 | 74 29 22 8a 34 34 29 22 |B(),Star|t)".44)"|
|00001e40| 42 28 29 20 3d 20 54 72 | 61 6e 73 70 6f 73 65 20 |B() = Tr|anspose |
|00001e50| 6f 66 20 41 28 29 22 0d | 08 ac 3f f1 22 50 52 4f |of A()".|..?."PRO|
|00001e60| 43 4d 61 74 49 6e 76 74 | 28 41 28 29 2c 53 74 61 |CMatInvt|(A(),Sta|
|00001e70| 72 74 29 22 8a 34 34 29 | 22 49 6e 76 65 72 74 20 |rt)".44)|"Invert |
|00001e80| 26 20 52 65 74 75 72 6e | 20 53 51 55 41 52 45 20 |& Return| SQUARE |
|00001e90| 41 72 72 61 79 22 0d 08 | b6 49 f1 27 22 20 20 20 |Array"..|.I.'" |
|00001ea0| 20 50 41 52 54 2d 41 72 | 72 61 79 73 20 3a 20 53 | PART-Ar|rays : S|
|00001eb0| 31 2c 45 31 5b 2c 53 32 | 2c 45 32 5d 20 3d 20 73 |1,E1[,S2|,E2] = s|
|00001ec0| 74 61 72 74 2c 65 6e 64 | 20 52 4f 57 2c 5b 43 4f |tart,end| ROW,[CO|
|00001ed0| 4c 55 4d 4e 5d 20 73 75 | 66 66 69 63 65 73 22 0d |LUMN] su|ffices".|
|00001ee0| 08 c0 32 f1 8a 32 30 29 | 22 53 65 74 20 53 32 2c |..2..20)|"Set S2,|
|00001ef0| 45 32 20 3d 20 2d 31 20 | 66 6f 72 20 31 2d 64 69 |E2 = -1 |for 1-di|
|00001f00| 6d 65 6e 73 69 6f 6e 61 | 6c 20 61 72 72 61 79 22 |mensiona|l array"|
|00001f10| 27 0d 08 ca 45 f1 22 46 | 4e 4d 61 74 4d 61 78 28 |'...E."F|NMatMax(|
|00001f20| 41 28 29 2c 53 31 2c 45 | 31 2c 53 32 2c 45 32 29 |A(),S1,E|1,S2,E2)|
|00001f30| 22 8a 34 34 29 22 52 65 | 74 75 72 6e 20 6d 61 78 |".44)"Re|turn max|
|00001f40| 2e 20 77 69 74 68 69 6e | 20 53 2c 45 20 73 75 66 |. within| S,E suf|
|00001f50| 66 69 63 65 73 22 0d 08 | d4 45 f1 22 46 4e 4d 61 |fices"..|.E."FNMa|
|00001f60| 74 4d 69 6e 28 41 28 29 | 2c 53 31 2c 45 31 2c 53 |tMin(A()|,S1,E1,S|
|00001f70| 32 2c 45 32 29 22 8a 34 | 34 29 22 52 65 74 75 72 |2,E2)".4|4)"Retur|
|00001f80| 6e 20 6d 69 6e 2e 20 77 | 69 74 68 69 6e 20 53 2c |n min. w|ithin S,|
|00001f90| 45 20 73 75 66 66 69 63 | 65 73 22 0d 08 de 28 f1 |E suffic|es"...(.|
|00001fa0| 22 50 52 4f 43 4d 61 74 | 50 61 72 74 28 41 28 29 |"PROCMat|Part(A()|
|00001fb0| 2c 53 31 2c 45 31 2c 53 | 32 2c 45 32 2c 42 28 29 |,S1,E1,S|2,E2,B()|
|00001fc0| 29 22 3b 0d 08 e8 2b f1 | 8a 34 34 29 22 54 72 61 |)";...+.|.44)"Tra|
|00001fd0| 6e 73 66 65 72 20 70 61 | 72 74 20 77 69 74 68 69 |nsfer pa|rt withi|
|00001fe0| 6e 20 53 2c 45 20 74 6f | 20 42 28 29 22 27 0d 08 |n S,E to| B()"'..|
|00001ff0| f2 2a f1 22 20 20 20 20 | 43 4f 4d 50 4c 45 58 20 |.*." |COMPLEX |
|00002000| 41 72 72 61 79 73 3a 20 | 41 28 29 20 2b 20 6a 42 |Arrays: |A() + jB|
|00002010| 28 29 20 65 74 63 22 27 | 0d 08 fc 45 f1 22 50 52 |() etc"'|...E."PR|
|00002020| 4f 43 4d 61 74 43 49 6e | 70 75 74 28 41 28 29 2c |OCMatCIn|put(A(),|
|00002030| 42 28 29 2c 53 74 61 72 | 74 29 22 8a 34 34 29 22 |B(),Star|t)".44)"|
|00002040| 4b 65 79 20 69 6e 20 63 | 6f 6d 70 6c 65 78 20 65 |Key in c|omplex e|
|00002050| 6c 65 6d 65 6e 74 2d 70 | 61 69 72 73 22 0d 09 06 |lement-p|airs"...|
|00002060| 3c f1 22 50 52 4f 43 4d | 61 74 43 50 72 69 6e 74 |<."PROCM|atCPrint|
|00002070| 28 41 28 29 2c 42 28 29 | 2c 53 74 61 72 74 29 22 |(A(),B()|,Start)"|
|00002080| 8a 34 34 29 22 50 72 69 | 6e 74 20 63 6f 6d 70 6c |.44)"Pri|nt compl|
|00002090| 65 78 20 61 72 72 61 79 | 22 0d 09 10 33 f1 22 50 |ex array|"...3."P|
|000020a0| 52 4f 43 4d 61 74 43 50 | 72 6f 64 28 41 28 29 2c |ROCMatCP|rod(A(),|
|000020b0| 42 28 29 2c 43 28 29 2c | 44 28 29 2c 53 74 61 72 |B(),C(),|D(),Star|
|000020c0| 74 2c 45 28 29 2c 46 28 | 29 29 22 3b 0d 09 1a 29 |t,E(),F(|))";...)|
|000020d0| f1 8a 34 34 29 22 45 28 | 29 2b 6a 46 28 29 20 3d |..44)"E(|)+jF() =|
|000020e0| 20 41 28 29 2b 6a 42 28 | 29 20 2a 20 43 28 29 2b | A()+jB(|) * C()+|
|000020f0| 6a 44 28 29 22 0d 09 24 | 47 f1 22 50 52 4f 43 4d |jD()"..$|G."PROCM|
|00002100| 61 74 43 49 6e 76 74 28 | 41 28 29 2c 42 28 29 2c |atCInvt(|A(),B(),|
|00002110| 53 74 61 72 74 29 22 8a | 34 34 29 22 49 6e 76 65 |Start)".|44)"Inve|
|00002120| 72 74 20 26 20 52 65 74 | 75 72 6e 20 53 51 55 41 |rt & Ret|urn SQUA|
|00002130| 52 45 20 41 28 29 2b 6a | 42 28 29 22 0d 09 2e 45 |RE A()+j|B()"...E|
|00002140| f1 27 22 20 20 20 20 4e | 4f 54 45 3a 20 2a 2a 20 |.'" N|OTE: ** |
|00002150| 43 41 4c 4c 49 4e 47 20 | 41 52 52 41 59 53 20 4d |CALLING |ARRAYS M|
|00002160| 55 53 54 20 42 45 20 43 | 4f 52 52 45 43 54 4c 59 |UST BE C|ORRECTLY|
|00002170| 20 44 49 4d 45 4e 53 49 | 4f 4e 45 44 20 2a 2a 22 | DIMENSI|ONED **"|
|00002180| 27 0d 09 38 05 e1 0d 0b | 54 05 3a 0d 0b b8 2e dd |'..8....|T.:.....|
|00002190| a4 70 72 63 6b 3a ea 53 | 25 3a 53 25 3d 96 2d 34 |.prck:.S|%:S%=.-4|
|000021a0| 3a ef 32 2c 31 2c 30 2c | 31 2c 30 2c 31 2c 30 2c |:.2,1,0,|1,0,1,0,|
|000021b0| 31 2c 30 2c 31 2c 30 2c | 33 0d 0b c2 13 57 25 3d |1,0,1,0,|3....W%=|
|000021c0| a6 32 3a 3d 28 53 25 3d | 96 2d 34 29 0d ff 46 69 |.2:=(S%=|.-4)..Fi|
|000021d0| 6c 65 44 61 74 61 82 45 | 78 61 6d 70 6c 65 00 00 |leData.E|xample..|
|000021e0| 00 00 41 08 00 00 42 fb | ff ff 1d 20 05 46 03 00 |..A...B.|... .F..|
|000021f0| f5 5e 0d 00 0a 0e f4 20 | 3e 45 78 61 6d 70 6c 65 |.^..... |>Example|
|00002200| 0d 00 64 32 eb 20 33 3a | f1 27 22 45 78 61 6d 70 |..d2. 3:|.'"Examp|
|00002210| 6c 65 20 3a 20 44 65 6d | 6f 6e 73 74 72 61 74 69 |le : Dem|onstrati|
|00002220| 6f 6e 73 20 6f 66 20 4d | 61 74 68 50 72 6f 63 73 |ons of M|athProcs|
|00002230| 22 27 0d 00 6e 23 f1 22 | 28 43 29 20 45 2e 57 2e |"'..n#."|(C) E.W.|
|00002240| 41 59 45 52 53 20 3a 20 | 4d 61 72 63 68 20 31 39 |AYERS : |March 19|
|00002250| 39 30 22 27 27 0d 00 78 | 2a f1 22 4e 2e 42 2e 20 |90"''..x|*."N.B. |
|00002260| 4d 61 74 68 50 72 6f 63 | 73 20 6d 75 73 74 20 62 |MathProc|s must b|
|00002270| 65 20 69 6e 20 49 4e 53 | 54 41 4c 4c 65 64 22 0d |e in INS|TALLed".|
|00002280| 00 7d 19 f1 27 27 27 22 | 4b 65 79 20 53 50 41 43 |.}..'''"|Key SPAC|
|00002290| 45 22 3a e7 20 a5 3a db | 0d 00 82 3f f1 27 27 22 |E":. .:.|...?.''"|
|000022a0| 31 2e 20 20 44 65 6d 6f | 6e 73 74 72 61 74 65 20 |1. Demo|nstrate |
|000022b0| 69 64 65 6e 74 69 74 79 | 20 3a 20 43 6f 73 68 28 |identity| : Cosh(|
|000022c0| 78 29 5e 32 20 2d 20 53 | 69 6e 68 28 78 29 5e 32 |x)^2 - S|inh(x)^2|
|000022d0| 20 3d 31 20 3a 22 27 0d | 00 8c 34 f1 27 22 53 65 | =1 :"'.|..4.'"Se|
|000022e0| 74 20 43 4f 4d 50 4c 45 | 58 20 78 20 3d 20 61 20 |t COMPLE|X x = a |
|000022f0| 2b 20 6a 62 2c 20 61 20 | 3d 20 2e 35 2c 20 62 20 |+ jb, a |= .5, b |
|00002300| 3d 20 2e 33 2c 20 73 61 | 79 22 27 0d 00 91 2e f1 |= .3, sa|y"'.....|
|00002310| 22 4e 6f 77 20 75 73 65 | 20 50 52 4f 43 63 6f 73 |"Now use| PROCcos|
|00002320| 68 20 61 6e 64 20 50 52 | 4f 43 73 69 6e 68 20 74 |h and PR|OCsinh t|
|00002330| 6f 20 66 69 6e 64 3a 22 | 27 0d 00 96 25 f2 63 6f |o find:"|'...%.co|
|00002340| 73 68 28 2e 35 2c 2e 33 | 2c 55 2c 56 29 3a f2 73 |sh(.5,.3|,U,V):.s|
|00002350| 69 6e 68 28 2e 35 2c 2e | 33 2c 57 2c 58 29 0d 00 |inh(.5,.|3,W,X)..|
|00002360| a0 1f f1 22 20 20 20 20 | 43 6f 73 68 28 78 29 20 |..." |Cosh(x) |
|00002370| 3d 20 22 3b 55 22 20 2b | 20 6a 22 3b 56 0d 00 aa |= ";U" +| j";V...|
|00002380| 1f f1 22 20 20 20 20 53 | 69 6e 68 28 78 29 20 3d |.." S|inh(x) =|
|00002390| 20 22 3b 57 22 20 2b 20 | 6a 22 3b 58 0d 00 b4 3d | ";W" + |j";X...=|
|000023a0| f1 27 22 4e 6f 77 20 75 | 73 65 20 50 52 4f 43 63 |.'"Now u|se PROCc|
|000023b0| 78 70 72 6f 64 20 74 6f | 20 73 71 75 61 72 65 20 |xprod to| square |
|000023c0| 65 61 63 68 20 6f 66 20 | 74 68 65 73 65 2c 20 67 |each of |these, g|
|000023d0| 69 76 69 6e 67 20 3a 22 | 27 0d 00 be 2d f2 63 78 |iving :"|'...-.cx|
|000023e0| 70 72 6f 64 28 55 2c 56 | 2c 55 2c 56 2c 55 2c 56 |prod(U,V|,U,V,U,V|
|000023f0| 29 3a f2 63 78 70 72 6f | 64 28 57 2c 58 2c 57 2c |):.cxpro|d(W,X,W,|
|00002400| 58 2c 57 2c 58 29 0d 00 | c8 15 f1 22 20 20 20 20 |X,W,X)..|..." |
|00002410| 22 3b 55 22 20 2b 20 6a | 22 3b 56 0d 00 cd 15 f1 |";U" + j|";V.....|
|00002420| 22 20 20 20 20 22 3b 57 | 22 20 2b 20 6a 22 3b 58 |" ";W|" + j";X|
|00002430| 0d 00 d2 35 f1 27 22 46 | 69 6e 61 6c 6c 79 20 75 |...5.'"F|inally u|
|00002440| 73 65 20 50 52 4f 43 63 | 78 64 69 66 66 20 74 6f |se PROCc|xdiff to|
|00002450| 20 73 75 62 74 72 61 63 | 74 2c 20 67 69 76 69 6e | subtrac|t, givin|
|00002460| 67 20 3a 22 27 0d 00 dc | 18 f2 63 78 64 69 66 66 |g :"'...|..cxdiff|
|00002470| 28 55 2c 56 2c 57 2c 58 | 2c 50 2c 51 29 0d 00 f0 |(U,V,W,X|,P,Q)...|
|00002480| 29 f1 22 43 6f 73 68 28 | 78 29 5e 32 20 2d 20 53 |)."Cosh(|x)^2 - S|
|00002490| 69 6e 68 28 78 29 5e 32 | 20 3d 20 22 3b 50 22 20 |inh(x)^2| = ";P" |
|000024a0| 2b 20 6a 22 3b 51 0d 00 | fa 3f f1 27 22 54 6f 20 |+ j";Q..|.?.'"To |
|000024b0| 61 6c 6c 20 69 6e 74 65 | 6e 74 73 20 61 6e 64 20 |all inte|nts and |
|000024c0| 70 75 72 70 6f 73 65 73 | 2c 20 74 68 69 73 20 69 |purposes|, this i|
|000024d0| 73 20 31 20 2b 20 6a 30 | 20 20 2d 20 20 51 2e 45 |s 1 + j0| - Q.E|
|000024e0| 2e 44 2e 21 22 0d 01 04 | 28 f1 27 8a 31 35 29 22 |.D.!"...|(.'.15)"|
|000024f0| 4b 65 79 20 53 50 41 43 | 45 20 74 6f 20 63 6f 6e |Key SPAC|E to con|
|00002500| 74 69 6e 75 65 22 27 3a | e7 20 a5 3a db 0d 01 0e |tinue"':|. .:....|
|00002510| 2e f1 27 22 32 2e 20 20 | 43 6f 6e 76 65 72 73 69 |..'"2. |Conversi|
|00002520| 6f 6e 20 74 6f 20 50 6f | 6c 61 72 20 63 6f 6f 72 |on to Po|lar coor|
|00002530| 64 69 6e 61 74 65 73 20 | 3a 22 27 0d 01 18 2b f1 |dinates |:"'...+.|
|00002540| 22 53 65 74 20 61 20 3d | 20 33 2c 20 62 20 3d 20 |"Set a =| 3, b = |
|00002550| 34 2c 20 61 6e 64 20 75 | 73 65 20 50 52 4f 43 70 |4, and u|se PROCp|
|00002560| 6f 6c 61 72 22 27 0d 01 | 22 13 f2 70 6f 6c 61 72 |olar"'..|"..polar|
|00002570| 28 33 2c 34 2c 4d 2c 4c | 29 0d 01 2c 3c f1 22 46 |(3,4,M,L|)..,<."F|
|00002580| 69 6e 64 20 74 68 61 74 | 20 4d 61 67 6e 69 74 75 |ind that| Magnitu|
|00002590| 64 65 20 69 73 20 22 3b | 4d 22 20 61 6e 64 20 41 |de is ";|M" and A|
|000025a0| 6e 67 6c 65 20 69 73 20 | 22 3b 4c 22 20 64 65 67 |ngle is |";L" deg|
|000025b0| 72 65 65 73 22 0d 01 36 | 2d f1 22 49 6e 20 66 61 |rees"..6|-."In fa|
|000025c0| 63 74 2c 20 74 68 65 20 | 66 61 6d 69 6c 69 61 72 |ct, the |familiar|
|000025d0| 20 33 2c 34 2c 35 20 74 | 72 69 61 6e 67 6c 65 21 | 3,4,5 t|riangle!|
|000025e0| 22 27 0d 01 3b 18 f1 27 | 27 22 4b 65 79 20 53 50 |"'..;..'|'"Key SP|
|000025f0| 41 43 45 22 3a e7 20 a5 | 3a db 0d 01 40 2d f1 27 |ACE":. .|:...@-.'|
|00002600| 22 33 2e 20 20 53 6f 6c | 76 69 6e 67 20 73 69 6d |"3. Sol|ving sim|
|00002610| 75 6c 74 61 6e 65 6f 75 | 73 20 65 71 75 61 74 69 |ultaneou|s equati|
|00002620| 6f 6e 73 20 3a 22 27 0d | 01 4a 3d f1 22 53 75 70 |ons :"'.|.J=."Sup|
|00002630| 70 6f 73 65 20 33 20 65 | 71 75 61 74 69 6f 6e 73 |pose 3 e|quations|
|00002640| 20 66 6f 72 20 74 68 72 | 65 65 20 75 6e 6b 6e 6f | for thr|ee unkno|
|00002650| 77 6e 73 2c 20 78 31 2c | 78 32 2c 78 33 20 73 61 |wns, x1,|x2,x3 sa|
|00002660| 79 3a 22 27 0d 01 54 26 | f1 22 20 20 33 20 2a 20 |y:"'..T&|." 3 * |
|00002670| 78 31 20 2b 20 36 20 2a | 20 78 32 20 2b 20 34 20 |x1 + 6 *| x2 + 4 |
|00002680| 2a 20 78 33 20 3d 20 31 | 35 22 0d 01 57 26 f1 22 |* x3 = 1|5"..W&."|
|00002690| 20 20 32 20 2a 20 78 31 | 20 2d 20 34 20 2a 20 78 | 2 * x1| - 4 * x|
|000026a0| 32 20 2b 20 32 20 2a 20 | 78 33 20 3d 20 31 30 22 |2 + 2 * |x3 = 10"|
|000026b0| 0d 01 5a 26 f1 22 20 20 | 35 20 2a 20 78 31 20 2b |..Z&." |5 * x1 +|
|000026c0| 20 33 20 2a 20 78 32 20 | 2b 20 33 20 2a 20 78 33 | 3 * x2 |+ 3 * x3|
|000026d0| 20 3d 20 32 30 22 0d 01 | 5b 3c f1 27 22 49 6e 20 | = 20"..|[<.'"In |
|000026e0| 4d 61 74 72 69 78 20 6e | 6f 74 61 74 69 6f 6e 20 |Matrix n|otation |
|000026f0| 74 68 69 73 20 6d 61 79 | 20 62 65 20 77 72 69 74 |this may| be writ|
|00002700| 74 65 6e 20 7c 50 7c 2e | 7c 78 7c 20 3d 20 7c 51 |ten |P|.||x| = |Q|
|00002710| 7c 22 0d 01 5c 33 f1 22 | 20 20 20 77 68 65 72 65 ||"..\3."| where|
|00002720| 20 7c 50 7c 2c 7c 78 7c | 2c 7c 51 7c 20 61 72 65 | |P|,|x||,|Q| are|
|00002730| 20 33 78 33 2c 33 78 31 | 2c 33 78 31 20 61 72 72 | 3x3,3x1|,3x1 arr|
|00002740| 61 79 73 2e 22 0d 01 5d | 36 f1 22 54 68 65 73 65 |ays."..]|6."These|
|00002750| 20 6d 75 73 74 20 62 65 | 20 44 49 4d 45 4e 53 49 | must be| DIMENSI|
|00002760| 4f 4e 45 44 2c 20 61 6e | 64 20 76 61 6c 75 65 73 |ONED, an|d values|
|00002770| 20 61 73 73 69 67 6e 65 | 64 3a 22 0d 01 5e 46 f1 | assigne|d:"..^F.|
|00002780| 22 50 28 29 20 68 6f 6c | 64 73 20 74 68 65 20 63 |"P() hol|ds the c|
|00002790| 6f 65 66 66 69 63 69 65 | 6e 74 73 20 6f 66 20 74 |oefficie|nts of t|
|000027a0| 68 65 20 78 27 73 2c 20 | 51 28 29 20 68 6f 6c 64 |he x's, |Q() hold|
|000027b0| 73 20 74 68 65 20 52 48 | 53 20 76 61 6c 75 65 73 |s the RH|S values|
|000027c0| 22 0d 01 60 41 f1 22 53 | 6f 20 50 28 31 2c 31 29 |"..`A."S|o P(1,1)|
|000027d0| 3d 33 2c 50 28 31 2c 32 | 29 3d 36 2e 2e 20 50 28 |=3,P(1,2|)=6.. P(|
|000027e0| 33 2c 31 29 3d 35 2e 2e | 2c 20 51 28 31 29 3d 31 |3,1)=5..|, Q(1)=1|
|000027f0| 35 2c 51 28 32 29 3d 31 | 30 2c 51 28 33 29 3d 32 |5,Q(2)=1|0,Q(3)=2|
|00002800| 30 22 0d 01 63 39 f1 22 | 54 68 65 20 76 61 6c 75 |0"..c9."|The valu|
|00002810| 65 73 20 66 6f 72 20 78 | 28 29 20 61 72 65 20 6f |es for x|() are o|
|00002820| 66 20 63 6f 75 72 73 65 | 20 74 6f 20 62 65 20 73 |f course| to be s|
|00002830| 6f 6c 76 65 64 20 66 6f | 72 3a 22 0d 01 68 31 f1 |olved fo|r:"..h1.|
|00002840| 27 22 54 68 65 20 73 6f | 6c 75 74 69 6f 6e 20 69 |'"The so|lution i|
|00002850| 73 20 67 69 76 65 6e 20 | 62 79 20 7c 78 7c 20 3d |s given |by |x| =|
|00002860| 20 49 4e 56 7c 50 7c 2e | 7c 51 7c 22 0d 01 6d 40 | INV|P|.||Q|"..m@|
|00002870| f1 22 20 20 20 77 68 65 | 72 65 20 49 4e 56 7c 50 |." whe|re INV|P|
|00002880| 7c 20 73 74 61 6e 64 73 | 20 66 6f 72 20 74 68 65 || stands| for the|
|00002890| 20 49 4e 56 45 52 53 45 | 20 6f 66 20 74 68 65 20 | INVERSE| of the |
|000028a0| 6d 61 74 72 69 78 20 7c | 50 7c 22 27 0d 01 72 45 |matrix ||P|"'..rE|
|000028b0| f1 22 4c 49 53 54 20 74 | 68 65 20 70 72 6f 67 72 |."LIST t|he progr|
|000028c0| 61 6d 20 74 6f 20 69 6e | 73 70 65 63 74 20 74 68 |am to in|spect th|
|000028d0| 65 20 77 6f 72 6b 69 6e | 67 2c 20 77 68 69 63 68 |e workin|g, which|
|000028e0| 20 79 69 65 6c 64 73 20 | 76 61 6c 75 65 73 20 3a | yields |values :|
|000028f0| 22 0d 01 77 0a f2 73 69 | 6d 75 6c 0d 01 7c 35 f1 |"..w..si|mul..|5.|
|00002900| 27 22 20 78 31 20 3d 20 | 22 3b 78 28 31 29 22 20 |'" x1 = |";x(1)" |
|00002910| 20 78 32 20 3d 20 22 3b | 78 28 32 29 22 20 20 61 | x2 = ";|x(2)" a|
|00002920| 6e 64 20 20 78 33 20 3d | 20 22 3b 78 28 33 29 27 |nd x3 =| ";x(3)'|
|00002930| 0d 01 86 44 f1 22 59 6f | 75 20 63 61 6e 20 63 68 |...D."Yo|u can ch|
|00002940| 65 63 6b 20 74 68 69 73 | 20 62 79 20 73 75 62 73 |eck this| by subs|
|00002950| 74 69 74 75 74 69 6e 67 | 20 69 6e 20 74 68 65 20 |tituting| in the |
|00002960| 6f 72 69 67 69 6e 61 6c | 20 65 71 75 61 74 69 6f |original| equatio|
|00002970| 6e 73 2e 22 0d 01 f4 05 | e0 0d 03 e8 1e dd f2 73 |ns."....|.......s|
|00002980| 69 6d 75 6c 3a de 20 50 | 28 33 2c 33 29 2c 51 28 |imul:. P|(3,3),Q(|
|00002990| 33 29 2c 78 28 33 29 0d | 03 f2 3a 50 28 31 2c 31 |3),x(3).|..:P(1,1|
|000029a0| 29 3d 33 3a 50 28 31 2c | 32 29 3d 36 3a 50 28 31 |)=3:P(1,|2)=6:P(1|
|000029b0| 2c 33 29 3d 34 3a 50 28 | 32 2c 31 29 3d 32 3a 50 |,3)=4:P(|2,1)=2:P|
|000029c0| 28 32 2c 32 29 3d 2d 34 | 3a 50 28 32 2c 33 29 3d |(2,2)=-4|:P(2,3)=|
|000029d0| 32 0d 03 fc 1e 50 28 33 | 2c 31 29 3d 35 3a 50 28 |2....P(3|,1)=5:P(|
|000029e0| 33 2c 32 29 3d 33 3a 50 | 28 33 2c 33 29 3d 33 0d |3,2)=3:P|(3,3)=3.|
|000029f0| 04 06 1b 51 28 31 29 3d | 31 35 3a 51 28 32 29 3d |...Q(1)=|15:Q(2)=|
|00002a00| 31 30 3a 51 28 33 29 3d | 32 30 0d 04 10 13 f2 4d |10:Q(3)=|20.....M|
|00002a10| 61 74 49 6e 76 74 28 50 | 28 29 2c 31 29 0d 04 1a |atInvt(P|(),1)...|
|00002a20| 0f 78 28 29 3d 50 28 29 | 2e 51 28 29 0d 04 24 05 |.x()=P()|.Q()..$.|
|00002a30| e1 0d ff 46 69 6c 65 44 | 61 74 61 82 4d 61 74 68 |...FileD|ata.Math|
|00002a40| 45 78 70 00 00 00 00 b0 | 11 00 00 42 fb ff ff 5b |Exp.....|...B...[|
|00002a50| 6f 04 46 03 00 2d f5 0d | 00 0a 26 f4 20 3e 20 4d |o.F..-..|..&. > M|
|00002a60| 61 74 68 45 78 70 20 20 | 46 6f 72 20 4d 61 74 68 |athExp |For Math|
|00002a70| 50 72 6f 63 73 20 70 72 | 6f 67 72 61 6d 0d 00 64 |Procs pr|ogram..d|
|00002a80| 42 eb 33 3a ef 31 34 3a | f1 27 22 20 20 20 20 20 |B.3:.14:|.'" |
|00002a90| 20 20 20 50 52 4f 47 52 | 41 4d 20 20 4d 61 74 68 | PROGR|AM Math|
|00002aa0| 50 72 6f 63 73 20 3a 20 | 45 78 74 65 6e 64 65 64 |Procs : |Extended|
|00002ab0| 20 45 78 70 6c 61 6e 61 | 74 69 6f 6e 73 22 27 0d | Explana|tions"'.|
|00002ac0| 00 69 30 f1 22 20 20 20 | 20 20 20 20 20 20 20 20 |.i0." | |
|00002ad0| 20 20 20 20 28 43 29 20 | 45 2e 57 2e 41 59 45 52 | (C) |E.W.AYER|
|00002ae0| 53 20 4d 61 72 63 68 20 | 31 39 39 30 22 27 27 0d |S March |1990"''.|
|00002af0| 00 6e 42 f1 22 4e 2e 42 | 2e 20 59 6f 75 20 6d 61 |.nB."N.B|. You ma|
|00002b00| 79 20 66 69 6e 64 20 69 | 74 20 68 65 6c 70 66 75 |y find i|t helpfu|
|00002b10| 6c 20 74 6f 20 68 61 76 | 65 20 61 20 70 72 69 6e |l to hav|e a prin|
|00002b20| 74 6f 75 74 20 6f 66 20 | 74 68 65 20 6c 61 73 74 |tout of |the last|
|00002b30| 22 0d 00 78 3d f1 22 70 | 61 72 74 20 6f 66 20 74 |"..x=."p|art of t|
|00002b40| 68 65 20 27 52 65 61 64 | 4d 65 27 20 70 72 6f 67 |he 'Read|Me' prog|
|00002b50| 72 61 6d 20 61 76 61 69 | 6c 61 62 6c 65 20 66 6f |ram avai|lable fo|
|00002b60| 72 20 72 65 66 65 72 65 | 6e 63 65 2e 22 27 0d 00 |r refere|nce."'..|
|00002b70| 82 43 f1 22 54 68 65 20 | 77 68 6f 6c 65 20 70 72 |.C."The |whole pr|
|00002b80| 6f 67 72 61 6d 20 63 6f | 6d 70 72 69 73 65 73 20 |ogram co|mprises |
|00002b90| 31 31 20 46 55 4e 43 54 | 49 4f 4e 53 20 61 6e 64 |11 FUNCT|IONS and|
|00002ba0| 20 32 35 20 50 52 4f 43 | 45 44 55 52 45 53 20 3a | 25 PROC|EDURES :|
|00002bb0| 22 0d 00 8c 3b f1 22 4f | 66 20 74 68 65 20 6c 61 |"...;."O|f the la|
|00002bc0| 74 74 65 72 2c 20 50 52 | 4f 43 4d 61 74 68 48 65 |tter, PR|OCMathHe|
|00002bd0| 6c 70 20 77 61 73 20 75 | 73 65 64 20 77 69 74 68 |lp was u|sed with|
|00002be0| 69 6e 20 27 52 65 61 64 | 4d 65 27 22 0d 00 96 3f |in 'Read|Me'"...?|
|00002bf0| f1 22 54 68 65 20 6f 74 | 68 65 72 73 20 28 77 68 |."The ot|hers (wh|
|00002c00| 69 63 68 20 63 6f 6d 70 | 6c 65 6d 65 6e 74 20 74 |ich comp|lement t|
|00002c10| 68 65 20 6d 61 74 68 65 | 6d 61 74 69 63 61 6c 20 |he mathe|matical |
|00002c20| 6f 70 65 72 61 74 69 6f | 6e 73 22 0d 00 9b 34 f1 |operatio|ns"...4.|
|00002c30| 22 73 75 70 70 6c 69 65 | 64 20 62 79 20 42 41 53 |"supplie|d by BAS|
|00002c40| 49 43 20 56 29 20 66 61 | 6c 6c 20 69 6e 74 6f 20 |IC V) fa|ll into |
|00002c50| 74 68 72 65 65 20 67 72 | 6f 75 70 73 20 3a 22 0d |three gr|oups :".|
|00002c60| 00 a0 40 f1 27 22 20 20 | 20 46 55 4e 43 54 49 4f |..@.'" | FUNCTIO|
|00002c70| 4e 53 2c 20 74 61 6b 69 | 6e 67 20 52 45 41 4c 20 |NS, taki|ng REAL |
|00002c80| 70 61 72 61 6d 65 74 65 | 72 73 20 61 6e 64 20 72 |paramete|rs and r|
|00002c90| 65 74 75 72 6e 69 6e 67 | 20 6d 61 74 68 73 22 0d |eturning| maths".|
|00002ca0| 00 a5 1e f1 22 20 20 20 | 20 20 20 20 66 75 6e 63 |...." | func|
|00002cb0| 74 69 6f 6e 20 76 61 6c | 75 65 73 2e 22 0d 00 aa |tion val|ues."...|
|00002cc0| 3f f1 27 22 20 20 20 50 | 52 4f 43 45 44 55 52 45 |?.'" P|ROCEDURE|
|00002cd0| 53 2c 20 73 69 6d 69 6c | 61 72 6c 79 2c 20 62 75 |S, simil|arly, bu|
|00002ce0| 74 20 77 69 74 68 20 43 | 4f 4d 50 4c 45 58 20 61 |t with C|OMPLEX a|
|00002cf0| 72 67 75 6d 65 6e 74 73 | 20 69 6e 22 0d 00 b4 3d |rguments| in"...=|
|00002d00| f1 22 20 20 20 20 20 20 | 20 43 61 72 74 65 73 69 |." | Cartesi|
|00002d10| 61 6e 20 28 41 20 2b 20 | 6a 42 29 20 6f 72 20 50 |an (A + |jB) or P|
|00002d20| 6f 6c 61 72 20 28 7c 4d | 7c 2c 20 61 6e 67 6c 65 |olar (|M||, angle|
|00002d30| 20 4c 29 20 66 6f 72 6d | 22 0d 00 be 42 f1 27 22 | L) form|"...B.'"|
|00002d40| 20 20 20 50 52 4f 43 45 | 44 55 52 45 53 2c 20 28 | PROCE|DURES, (|
|00002d50| 61 6e 64 20 61 20 63 6f | 75 70 6c 65 20 6f 66 20 |and a co|uple of |
|00002d60| 46 55 4e 43 54 49 4f 4e | 53 29 20 68 61 6e 64 6c |FUNCTION|S) handl|
|00002d70| 69 6e 67 20 4d 61 74 72 | 69 78 22 0d 00 c8 46 f1 |ing Matr|ix"...F.|
|00002d80| 22 20 20 20 20 20 20 20 | 28 61 72 72 61 79 29 20 |" |(array) |
|00002d90| 6f 70 65 72 61 74 69 6f | 6e 73 20 77 69 74 68 20 |operatio|ns with |
|00002da0| 65 69 74 68 65 72 20 52 | 45 41 4c 20 6f 72 20 43 |either R|EAL or C|
|00002db0| 4f 4d 50 4c 45 58 20 65 | 6c 65 6d 65 6e 74 73 2e |OMPLEX e|lements.|
|00002dc0| 22 0d 00 d2 19 f1 27 27 | 22 54 68 65 20 46 55 4e |".....''|"The FUN|
|00002dd0| 43 54 49 4f 4e 53 20 3a | 22 27 0d 00 dc 45 f1 22 |CTIONS :|"'...E."|
|00002de0| 54 68 65 20 66 69 72 73 | 74 20 73 69 78 20 46 55 |The firs|t six FU|
|00002df0| 4e 43 54 49 4f 4e 53 20 | 73 75 70 70 6c 79 20 48 |NCTIONS |supply H|
|00002e00| 59 50 45 52 42 4f 4c 49 | 43 20 66 75 6e 63 74 69 |YPERBOLI|C functi|
|00002e10| 6f 6e 73 20 28 53 69 6e | 68 20 65 74 63 29 22 0d |ons (Sin|h etc)".|
|00002e20| 00 e6 3a f1 22 6f 66 20 | 52 45 41 4c 20 6e 75 6d |..:."of |REAL num|
|00002e30| 62 65 72 73 2c 20 61 6e | 64 20 74 68 65 69 72 20 |bers, an|d their |
|00002e40| 69 6e 76 65 72 73 65 73 | 20 28 41 72 67 43 6f 73 |inverses| (ArgCos|
|00002e50| 68 20 65 2e 67 2e 29 2e | 22 0d 00 f0 3f f1 22 54 |h e.g.).|"...?."T|
|00002e60| 68 65 20 72 65 6d 61 69 | 6e 69 6e 67 20 74 68 72 |he remai|ning thr|
|00002e70| 65 65 20 70 72 6f 76 69 | 64 65 20 46 61 63 74 6f |ee provi|de Facto|
|00002e80| 72 69 61 6c 73 2c 20 50 | 65 72 6d 75 74 61 74 69 |rials, P|ermutati|
|00002e90| 6f 6e 73 20 61 6e 64 22 | 0d 00 fa 43 f1 22 43 6f |ons and"|...C."Co|
|00002ea0| 6d 62 69 6e 61 74 69 6f | 6e 73 2e 20 28 46 61 63 |mbinatio|ns. (Fac|
|00002eb0| 74 6f 72 69 61 6c 73 20 | 61 72 65 20 63 6f 6d 70 |torials |are comp|
|00002ec0| 75 74 65 64 20 62 79 20 | 61 20 6d 6f 64 69 66 69 |uted by |a modifi|
|00002ed0| 65 64 20 66 6f 72 6d 20 | 6f 66 22 0d 01 04 46 f1 |ed form |of"...F.|
|00002ee0| 22 74 68 65 20 53 74 69 | 72 6c 69 6e 67 20 66 6f |"the Sti|rling fo|
|00002ef0| 72 6d 75 6c 61 20 2d 20 | 6d 75 63 68 20 66 61 73 |rmula - |much fas|
|00002f00| 74 65 72 20 74 68 61 6e | 20 64 69 72 65 63 74 20 |ter than| direct |
|00002f10| 6d 75 6c 74 69 70 6c 69 | 63 61 74 69 6f 6e 29 2e |multipli|cation).|
|00002f20| 22 0d 01 0e 48 f1 27 22 | 41 73 20 46 55 4e 43 54 |"...H.'"|As FUNCT|
|00002f30| 49 4f 4e 53 20 63 61 6e | 20 72 65 74 75 72 6e 20 |IONS can| return |
|00002f40| 6f 6e 6c 79 20 6f 6e 65 | 20 70 61 72 61 6d 65 74 |only one| paramet|
|00002f50| 65 72 20 28 69 6e 20 72 | 65 73 70 6f 6e 73 65 20 |er (in r|esponse |
|00002f60| 74 6f 20 27 3d 27 29 2c | 22 0d 01 18 44 f1 22 50 |to '='),|"...D."P|
|00002f70| 52 4f 43 45 44 55 52 45 | 53 20 68 61 76 65 20 74 |ROCEDURE|S have t|
|00002f80| 6f 20 62 65 20 75 73 65 | 64 20 66 6f 72 20 74 68 |o be use|d for th|
|00002f90| 65 20 43 4f 4d 50 4c 45 | 58 20 6e 75 6d 62 65 72 |e COMPLE|X number|
|00002fa0| 20 6f 70 65 72 61 74 69 | 6f 6e 73 2c 22 0d 01 22 | operati|ons,".."|
|00002fb0| 42 f1 22 61 6e 64 20 6f | 66 20 63 6f 75 72 73 65 |B."and o|f course|
|00002fc0| 20 66 6f 72 20 74 68 65 | 20 61 72 72 61 79 20 28 | for the| array (|
|00002fd0| 4d 41 54 52 49 58 29 20 | 6f 70 65 72 61 74 69 6f |MATRIX) |operatio|
|00002fe0| 6e 73 20 28 61 70 61 72 | 74 20 66 72 6f 6d 22 0d |ns (apar|t from".|
|00002ff0| 01 27 1d f1 22 61 72 72 | 61 79 20 4d 61 78 20 26 |.'.."arr|ay Max &|
|00003000| 20 4d 69 6e 20 62 65 6c | 6f 77 29 22 0d 01 2c 24 | Min bel|ow)"..,$|
|00003010| f1 27 22 43 4f 4d 50 4c | 45 58 20 4e 55 4d 42 45 |.'"COMPL|EX NUMBE|
|00003020| 52 20 50 52 4f 43 45 44 | 55 52 45 53 20 3a 22 27 |R PROCED|URES :"'|
|00003030| 0d 01 36 48 f1 22 54 68 | 65 20 66 69 72 73 74 20 |..6H."Th|e first |
|00003040| 66 6f 75 72 20 69 6e 20 | 74 68 69 73 20 67 72 6f |four in |this gro|
|00003050| 75 70 20 70 72 6f 76 69 | 64 65 20 74 72 69 67 6f |up provi|de trigo|
|00003060| 6e 6f 6d 65 74 72 69 63 | 20 61 6e 64 20 68 79 70 |nometric| and hyp|
|00003070| 65 72 62 6f 6c 69 63 22 | 0d 01 40 47 f1 22 66 75 |erbolic"|..@G."fu|
|00003080| 6e 63 74 69 6f 6e 73 20 | 28 53 69 6e 2c 20 43 6f |nctions |(Sin, Co|
|00003090| 73 68 20 65 74 63 29 20 | 6f 66 20 43 4f 4d 50 4c |sh etc) |of COMPL|
|000030a0| 45 58 20 61 72 67 75 6d | 65 6e 74 73 20 73 75 70 |EX argum|ents sup|
|000030b0| 70 6c 69 65 64 20 69 6e | 20 70 6c 61 63 65 22 0d |plied in| place".|
|000030c0| 01 4a 42 f1 22 6f 66 20 | 74 68 65 20 27 64 75 6d |.JB."of |the 'dum|
|000030d0| 6d 79 27 20 70 61 72 61 | 6d 65 74 65 72 73 20 41 |my' para|meters A|
|000030e0| 2c 42 2e 20 54 77 6f 20 | 76 61 72 69 61 62 6c 65 |,B. Two |variable|
|000030f0| 73 20 73 68 6f 75 6c 64 | 20 61 6c 73 6f 20 62 65 |s should| also be|
|00003100| 22 0d 01 54 46 f1 22 73 | 75 70 70 6c 69 65 64 20 |"..TF."s|upplied |
|00003110| 66 6f 72 20 74 68 65 20 | 52 45 54 55 52 4e 20 70 |for the |RETURN p|
|00003120| 61 72 61 6d 65 74 65 72 | 73 20 52 2c 49 2e 20 54 |arameter|s R,I. T|
|00003130| 68 65 20 69 6e 70 75 74 | 20 76 61 72 69 61 62 6c |he input| variabl|
|00003140| 65 73 20 61 72 65 22 0d | 01 5e 45 f1 22 70 72 65 |es are".|.^E."pre|
|00003150| 73 65 72 76 65 64 2e 20 | 54 68 65 20 66 6f 6c 6c |served. |The foll|
|00003160| 6f 77 69 6e 67 20 63 6f | 6d 70 75 74 65 73 20 63 |owing co|mputes c|
|00003170| 6f 73 68 28 61 20 2b 20 | 6a 62 29 2c 20 77 68 65 |osh(a + |jb), whe|
|00003180| 72 65 20 28 61 20 2b 20 | 6a 62 29 22 0d 01 63 25 |re (a + |jb)"..c%|
|00003190| f1 22 69 73 20 67 69 76 | 65 6e 20 74 68 65 20 76 |."is giv|en the v|
|000031a0| 61 6c 75 65 20 28 34 20 | 2b 20 6a 37 29 20 3a 22 |alue (4 |+ j7) :"|
|000031b0| 27 0d 01 68 32 f1 22 20 | 20 20 31 30 20 72 65 61 |'..h2." | 10 rea|
|000031c0| 6c 20 3d 20 34 3a 20 69 | 6d 61 67 20 3d 20 37 3a |l = 4: i|mag = 7:|
|000031d0| 20 72 6f 75 74 20 3d 30 | 3a 20 69 6f 75 74 20 3d | rout =0|: iout =|
|000031e0| 20 30 22 0d 01 72 2a f1 | 22 20 20 20 32 30 20 50 | 0"..r*.|" 20 P|
|000031f0| 52 4f 43 63 6f 73 68 28 | 72 65 61 6c 2c 69 6d 61 |ROCcosh(|real,ima|
|00003200| 67 2c 72 6f 75 74 2c 69 | 6f 75 74 29 22 0d 01 7c |g,rout,i|out)"..||
|00003210| 45 f1 22 20 20 20 33 30 | 20 50 52 49 4e 54 22 22 |E." 30| PRINT""|
|00003220| 63 6f 73 68 28 22 22 3b | 72 65 61 6c 22 22 20 2b |cosh("";|real"" +|
|00003230| 6a 22 22 3b 69 6d 61 67 | 22 22 29 20 3d 20 22 22 |j"";imag|"") = ""|
|00003240| 3b 72 6f 75 74 22 22 20 | 2b 6a 22 22 3b 69 6f 75 |;rout"" |+j"";iou|
|00003250| 74 22 0d 01 86 42 f1 27 | 22 49 66 20 79 6f 75 20 |t"...B.'|"If you |
|00003260| 72 75 6e 20 74 68 69 73 | 20 57 49 54 48 20 4d 61 |run this| WITH Ma|
|00003270| 74 68 50 72 6f 63 73 20 | 49 4e 53 54 41 4c 4c 65 |thProcs |INSTALLe|
|00003280| 64 2c 20 79 6f 75 20 73 | 68 6f 75 6c 64 20 67 65 |d, you s|hould ge|
|00003290| 74 3a 22 27 0d 01 90 32 | f1 22 20 20 20 20 63 6f |t:"'...2|." co|
|000032a0| 73 68 28 34 20 2b 6a 37 | 29 20 3d 20 32 30 2e 35 |sh(4 +j7|) = 20.5|
|000032b0| 38 37 37 33 38 33 20 2b | 20 6a 31 37 2e 39 32 39 |877383 +| j17.929|
|000032c0| 31 30 39 39 22 27 0d 01 | 9a 48 f1 22 54 68 65 20 |1099"'..|.H."The |
|000032d0| 6e 65 78 74 20 66 6f 75 | 72 20 70 72 6f 63 73 20 |next fou|r procs |
|000032e0| 74 61 6b 65 20 54 57 4f | 20 63 6f 6d 70 6c 65 78 |take TWO| complex|
|000032f0| 20 6e 75 6d 62 65 72 73 | 20 28 72 65 61 6c 20 70 | numbers| (real p|
|00003300| 61 72 74 73 20 61 73 73 | 69 67 6e 65 64 22 0d 01 |arts ass|igned"..|
|00003310| a4 46 f1 22 74 6f 20 41 | 2c 43 20 61 6e 64 20 69 |.F."to A|,C and i|
|00003320| 6d 61 67 69 6e 61 72 79 | 20 70 61 72 74 73 20 74 |maginary| parts t|
|00003330| 6f 20 42 2c 44 29 2c 20 | 61 6e 64 20 72 65 74 75 |o B,D), |and retu|
|00003340| 72 6e 20 73 75 6d 2c 20 | 64 69 66 66 65 72 65 6e |rn sum, |differen|
|00003350| 63 65 2c 22 0d 01 ae 45 | f1 22 70 72 6f 64 75 63 |ce,"...E|."produc|
|00003360| 74 20 6f 72 20 71 75 6f | 74 69 65 6e 74 20 66 72 |t or quo|tient fr|
|00003370| 6f 6d 20 74 68 65 20 27 | 64 75 6d 6d 69 65 73 27 |om the '|dummies'|
|00003380| 20 52 2c 49 2e 20 54 68 | 65 20 72 65 63 69 70 72 | R,I. Th|e recipr|
|00003390| 6f 63 61 6c 20 61 6e 64 | 22 0d 01 b8 42 f1 22 73 |ocal and|"...B."s|
|000033a0| 71 75 61 72 65 20 72 6f | 6f 74 20 66 75 6e 63 74 |quare ro|ot funct|
|000033b0| 69 6f 6e 73 20 61 72 65 | 20 6f 62 76 69 6f 75 73 |ions are| obvious|
|000033c0| 2c 20 74 61 6b 69 6e 67 | 20 4f 4e 45 20 69 6e 70 |, taking| ONE inp|
|000033d0| 75 74 20 6e 75 6d 62 65 | 72 2e 22 0d 01 c2 3e f1 |ut numbe|r."...>.|
|000033e0| 22 54 68 65 20 74 77 6f | 20 72 65 6d 61 69 6e 69 |"The two| remaini|
|000033f0| 6e 67 20 70 72 6f 63 65 | 64 75 72 65 73 20 69 6e |ng proce|dures in|
|00003400| 20 74 68 69 73 20 67 72 | 6f 75 70 20 63 6f 6e 76 | this gr|oup conv|
|00003410| 65 72 74 20 66 72 6f 6d | 22 0d 01 cc 30 f1 22 43 |ert from|"...0."C|
|00003420| 61 72 74 65 73 69 61 6e | 20 41 2c 42 20 74 6f 20 |artesian| A,B to |
|00003430| 50 6f 6c 61 72 20 4d 2c | 4c 20 6f 72 20 76 69 63 |Polar M,|L or vic|
|00003440| 65 20 76 65 72 73 61 2e | 22 0d 01 d6 22 f1 27 22 |e versa.|"...".'"|
|00003450| 4d 41 54 52 49 58 20 26 | 20 41 52 52 41 59 20 50 |MATRIX &| ARRAY P|
|00003460| 52 4f 43 45 44 55 52 45 | 53 22 27 0d 01 e0 41 f1 |ROCEDURE|S"'...A.|
|00003470| 22 41 20 4d 61 74 72 69 | 78 20 69 73 20 61 20 32 |"A Matri|x is a 2|
|00003480| 2d 64 69 6d 65 6e 73 69 | 6f 6e 61 6c 20 61 72 72 |-dimensi|onal arr|
|00003490| 61 79 20 6f 66 20 65 6c | 65 6d 65 6e 74 73 20 2d |ay of el|ements -|
|000034a0| 20 6e 75 6d 65 72 69 63 | 20 6f 72 22 0d 01 ea 43 | numeric| or"...C|
|000034b0| f1 22 61 6c 67 65 62 72 | 61 69 63 20 2d 20 61 72 |."algebr|aic - ar|
|000034c0| 72 61 6e 67 65 64 20 69 | 6e 20 52 4f 57 53 20 61 |ranged i|n ROWS a|
|000034d0| 6e 64 20 43 4f 4c 55 4d | 4e 53 2e 20 44 65 67 65 |nd COLUM|NS. Dege|
|000034e0| 6e 65 72 61 74 65 20 63 | 61 73 65 73 20 2d 22 0d |nerate c|ases -".|
|000034f0| 01 f4 43 f1 22 77 69 74 | 68 20 6f 6e 6c 79 20 31 |..C."wit|h only 1|
|00003500| 20 72 6f 77 20 6f 72 20 | 31 20 63 6f 6c 75 6d 6e | row or |1 column|
|00003510| 20 61 72 65 20 63 61 6c | 6c 65 64 20 43 4f 4c 55 | are cal|led COLU|
|00003520| 4d 4e 20 6f 72 20 52 4f | 57 20 56 45 43 54 4f 52 |MN or RO|W VECTOR|
|00003530| 53 22 0d 01 fe 48 f1 22 | 49 66 20 74 68 65 20 6e |S"...H."|If the n|
|00003540| 75 6d 62 65 72 73 20 6f | 66 20 72 6f 77 73 20 61 |umbers o|f rows a|
|00003550| 6e 64 20 63 6f 6c 75 6d | 6e 73 20 61 72 65 20 65 |nd colum|ns are e|
|00003560| 71 75 61 6c 20 74 68 65 | 20 6d 61 74 72 69 78 20 |qual the| matrix |
|00003570| 69 73 20 53 51 55 41 52 | 45 22 0d 02 08 48 f1 22 |is SQUAR|E"...H."|
|00003580| 61 6e 64 20 63 61 6e 20 | 68 61 76 65 20 61 6e 20 |and can |have an |
|00003590| 49 4e 56 45 52 53 45 20 | 2d 20 70 61 72 74 69 63 |INVERSE |- partic|
|000035a0| 75 6c 61 72 6c 79 20 72 | 65 6c 65 76 61 6e 74 20 |ularly r|elevant |
|000035b0| 74 6f 20 74 68 65 20 65 | 78 70 72 65 73 73 69 6f |to the e|xpressio|
|000035c0| 6e 22 0d 02 12 42 f1 22 | 61 6e 64 20 73 6f 6c 75 |n"...B."|and solu|
|000035d0| 74 69 6f 6e 20 6f 66 20 | 73 69 6d 75 6c 74 61 6e |tion of |simultan|
|000035e0| 65 6f 75 73 20 65 71 75 | 61 74 69 6f 6e 73 2e 20 |eous equ|ations. |
|000035f0| 28 53 65 65 20 6c 61 74 | 65 72 20 65 78 61 6d 70 |(See lat|er examp|
|00003600| 6c 65 29 22 0d 02 1c 43 | f1 27 22 54 68 65 20 66 |le)"...C|.'"The f|
|00003610| 69 72 73 74 20 66 6f 75 | 72 20 70 72 6f 63 65 64 |irst fou|r proced|
|00003620| 75 72 65 73 20 69 6e 20 | 74 68 69 73 20 67 72 6f |ures in |this gro|
|00003630| 75 70 20 63 6f 6e 63 65 | 72 6e 20 6d 61 74 72 69 |up conce|rn matri|
|00003640| 63 65 73 20 69 6e 22 0d | 02 26 40 f1 22 77 68 69 |ces in".|.&@."whi|
|00003650| 63 68 20 74 68 65 20 65 | 6c 65 6d 65 6e 74 73 20 |ch the e|lements |
|00003660| 68 61 76 65 20 52 45 41 | 4c 20 6e 75 6d 65 72 69 |have REA|L numeri|
|00003670| 63 20 76 61 6c 75 65 73 | 20 2d 20 74 68 65 72 65 |c values| - there|
|00003680| 20 69 73 20 6e 6f 22 0d | 02 2b 2c f1 22 70 72 6f | is no".|.+,."pro|
|00003690| 76 69 73 69 6f 6e 20 66 | 6f 72 20 61 6c 67 65 62 |vision f|or algeb|
|000036a0| 72 61 69 63 20 6d 61 6e | 69 70 75 6c 61 74 69 6f |raic man|ipulatio|
|000036b0| 6e 2e 22 0d 02 30 43 f1 | 22 54 68 65 79 20 70 72 |n."..0C.|"They pr|
|000036c0| 6f 76 69 64 65 20 66 6f | 72 6d 61 74 74 69 6e 67 |ovide fo|rmatting|
|000036d0| 20 49 4e 50 55 54 20 61 | 6e 64 20 4f 55 54 50 55 | INPUT a|nd OUTPU|
|000036e0| 54 20 28 50 72 69 6e 74 | 29 20 66 61 63 69 6c 69 |T (Print|) facili|
|000036f0| 74 69 65 73 2c 22 0d 02 | 3a 42 f1 22 74 72 61 6e |ties,"..|:B."tran|
|00003700| 73 70 6f 73 69 74 69 6f | 6e 20 6f 66 20 72 6f 77 |spositio|n of row|
|00003710| 73 20 61 6e 64 20 63 6f | 6c 75 6d 6e 73 2c 20 61 |s and co|lumns, a|
|00003720| 6e 64 20 69 6e 76 65 72 | 73 69 6f 6e 2e 20 4e 6f |nd inver|sion. No|
|00003730| 74 65 20 74 68 61 74 22 | 0d 02 44 41 f1 22 42 41 |te that"|..DA."BA|
|00003740| 53 49 43 20 56 20 61 6c | 72 65 61 64 79 20 70 72 |SIC V al|ready pr|
|00003750| 6f 76 69 64 65 73 20 66 | 6f 72 20 6d 61 6e 79 20 |ovides f|or many |
|00003760| 72 65 61 6c 20 6d 61 74 | 72 69 78 20 6f 70 65 72 |real mat|rix oper|
|00003770| 61 74 69 6f 6e 73 20 2d | 22 0d 02 4e 37 f1 22 73 |ations -|"..N7."s|
|00003780| 75 6d 2c 20 64 69 66 66 | 65 72 65 6e 63 65 2c 20 |um, diff|erence, |
|00003790| 73 63 61 6c 61 72 20 61 | 6e 64 20 6d 61 74 72 69 |scalar a|nd matri|
|000037a0| 78 20 70 72 6f 64 75 63 | 74 73 20 65 74 63 2e 22 |x produc|ts etc."|
|000037b0| 0d 02 51 43 f1 27 22 54 | 68 65 20 70 61 72 61 6d |..QC.'"T|he param|
|000037c0| 65 74 65 72 20 27 73 74 | 61 72 74 27 20 64 65 66 |eter 'st|art' def|
|000037d0| 69 6e 65 73 20 74 68 65 | 20 66 69 72 73 74 20 65 |ines the| first e|
|000037e0| 6c 65 6d 65 6e 74 2d 6e | 75 6d 62 65 72 20 2d 20 |lement-n|umber - |
|000037f0| 69 6e 22 0d 02 53 43 f1 | 22 63 6f 6d 70 75 74 65 |in"..SC.|"compute|
|00003800| 72 20 75 73 61 67 65 20 | 74 68 65 20 66 69 72 73 |r usage |the firs|
|00003810| 74 20 65 6c 65 6d 65 6e | 74 20 69 6e 20 61 6e 20 |t elemen|t in an |
|00003820| 61 72 72 61 79 20 69 73 | 20 75 73 75 61 6c 6c 79 |array is| usually|
|00003830| 20 23 20 30 2c 22 0d 02 | 55 3d f1 22 77 68 69 6c | # 0,"..|U=."whil|
|00003840| 65 20 69 6e 20 6d 61 74 | 68 73 20 74 68 65 20 66 |e in mat|hs the f|
|00003850| 69 72 73 74 20 72 6f 77 | 20 61 6e 64 20 63 6f 6c |irst row| and col|
|00003860| 75 6d 6e 20 61 72 65 20 | 6e 75 6d 62 65 72 65 64 |umn are |numbered|
|00003870| 20 31 22 0d 02 58 46 f1 | 27 22 4e 65 78 74 20 63 | 1"..XF.|'"Next c|
|00003880| 6f 6d 65 20 74 77 6f 20 | 46 55 4e 43 54 49 4f 4e |ome two |FUNCTION|
|00003890| 53 20 74 6f 20 72 65 74 | 75 72 6e 20 74 68 65 20 |S to ret|urn the |
|000038a0| 4d 61 78 20 61 6e 64 20 | 4d 69 6e 20 76 61 6c 75 |Max and |Min valu|
|000038b0| 65 73 20 66 6f 75 6e 64 | 22 0d 02 62 46 f1 22 69 |es found|"..bF."i|
|000038c0| 6e 20 61 20 53 50 45 43 | 49 46 49 45 44 20 62 6c |n a SPEC|IFIED bl|
|000038d0| 6f 63 6b 20 6f 66 20 61 | 6e 20 61 72 72 61 79 2c |ock of a|n array,|
|000038e0| 20 61 6e 64 20 61 20 50 | 52 4f 43 45 44 55 52 45 | and a P|ROCEDURE|
|000038f0| 20 74 6f 20 74 72 61 6e | 73 66 65 72 20 61 22 0d | to tran|sfer a".|
|00003900| 02 6c 42 f1 22 73 70 65 | 63 69 66 69 65 64 20 62 |.lB."spe|cified b|
|00003910| 6c 6f 63 6b 20 74 6f 20 | 61 6e 6f 74 68 65 72 20 |lock to |another |
|00003920| 61 72 72 61 79 2e 20 54 | 68 65 73 65 20 77 6f 72 |array. T|hese wor|
|00003930| 6b 20 6f 6e 6c 79 20 6f | 6e 20 61 72 72 61 79 73 |k only o|n arrays|
|00003940| 22 0d 02 76 49 f1 22 77 | 69 74 68 20 52 45 41 4c |"..vI."w|ith REAL|
|00003950| 20 65 6c 65 6d 65 6e 74 | 73 2e 20 50 61 72 61 6d | element|s. Param|
|00003960| 65 74 65 72 73 20 53 31 | 2c 45 31 20 64 65 66 69 |eters S1|,E1 defi|
|00003970| 6e 65 20 74 68 65 20 73 | 74 61 72 74 20 61 6e 64 |ne the s|tart and|
|00003980| 20 65 6e 64 20 72 6f 77 | 73 22 0d 02 80 42 f1 22 | end row|s"...B."|
|00003990| 77 69 74 68 20 53 32 2c | 45 32 20 73 69 6d 69 6c |with S2,|E2 simil|
|000039a0| 61 72 6c 79 20 66 6f 72 | 20 74 68 65 20 63 6f 6c |arly for| the col|
|000039b0| 75 6d 6e 73 20 6f 66 20 | 74 68 65 20 72 65 71 75 |umns of |the requ|
|000039c0| 69 72 65 64 20 62 6c 6f | 63 6b 2e 22 0d 02 8a 3a |ired blo|ck."...:|
|000039d0| f1 22 46 6f 72 20 31 2d | 64 69 6d 65 6e 73 69 6f |."For 1-|dimensio|
|000039e0| 6e 61 6c 20 61 72 72 61 | 79 73 20 28 56 45 43 54 |nal arra|ys (VECT|
|000039f0| 4f 52 53 29 2c 20 73 65 | 74 20 53 32 2c 45 32 20 |ORS), se|t S2,E2 |
|00003a00| 3d 20 2d 31 2e 22 0d 02 | 8c 3d f1 27 22 54 68 65 |= -1."..|.=.'"The|
|00003a10| 73 65 20 61 72 72 61 79 | 2d 73 6c 69 63 69 6e 67 |se array|-slicing|
|00003a20| 20 6f 70 65 72 61 74 69 | 6f 6e 73 20 68 61 76 65 | operati|ons have|
|00003a30| 20 6f 62 76 69 6f 75 73 | 20 75 73 65 73 20 61 6c | obvious| uses al|
|00003a40| 73 6f 22 0d 02 8e 26 f1 | 22 6f 75 74 73 69 64 65 |so"...&.|"outside|
|00003a50| 20 74 68 65 20 6d 61 74 | 68 65 6d 61 74 69 63 61 | the mat|hematica|
|00003a60| 6c 20 66 69 65 6c 64 22 | 27 0d 02 94 46 f1 22 54 |l field"|'...F."T|
|00003a70| 68 65 20 66 69 6e 61 6c | 20 73 65 74 20 6f 66 20 |he final| set of |
|00003a80| 50 52 4f 43 45 44 55 52 | 45 53 20 68 61 6e 64 6c |PROCEDUR|ES handl|
|00003a90| 65 73 20 61 72 72 61 79 | 73 20 77 69 74 68 20 43 |es array|s with C|
|00003aa0| 4f 4d 50 4c 45 58 20 65 | 6c 65 6d 65 6e 74 22 0d |OMPLEX e|lement".|
|00003ab0| 02 9e 40 f1 22 76 61 6c | 75 65 73 2e 20 49 74 20 |..@."val|ues. It |
|00003ac0| 69 6e 63 6c 75 64 65 73 | 20 61 20 6d 61 74 72 69 |includes| a matri|
|00003ad0| 78 20 70 72 6f 64 75 63 | 74 2c 20 6c 61 63 6b 69 |x produc|t, lacki|
|00003ae0| 6e 67 20 69 6e 20 42 41 | 53 49 43 20 56 2e 22 0d |ng in BA|SIC V.".|
|00003af0| 02 a8 47 f1 22 48 6f 77 | 65 76 65 72 20 66 6f 72 |..G."How|ever for|
|00003b00| 20 53 55 4d 20 61 6e 64 | 20 44 49 46 46 45 52 45 | SUM and| DIFFERE|
|00003b10| 4e 43 45 20 74 68 65 20 | 42 41 53 49 43 20 73 74 |NCE the |BASIC st|
|00003b20| 61 74 65 6d 65 6e 74 73 | 20 6d 61 79 20 62 65 20 |atements| may be |
|00003b30| 75 73 65 64 2c 22 0d 02 | b2 3a f1 22 61 73 20 7c |used,"..|.:."as ||
|00003b40| 61 20 2b 20 6a 62 7c 20 | 2b 20 7c 63 20 2b 20 6a |a + jb| |+ |c + j|
|00003b50| 64 7c 20 3d 20 7c 28 61 | 20 2b 20 63 29 20 2b 20 |d| = |(a| + c) + |
|00003b60| 6a 28 62 20 2b 20 64 29 | 7c 2c 20 65 74 63 2e 22 |j(b + d)||, etc."|
|00003b70| 0d 02 bc 43 f1 27 22 46 | 6f 72 20 64 65 6d 6f 6e |...C.'"F|or demon|
|00003b80| 73 74 72 61 74 69 6f 6e | 73 20 6f 66 20 73 6f 6d |stration|s of som|
|00003b90| 65 20 6f 66 20 74 68 65 | 20 6f 70 65 72 61 74 69 |e of the| operati|
|00003ba0| 6f 6e 73 2c 20 67 65 74 | 20 4d 61 74 68 50 72 6f |ons, get| MathPro|
|00003bb0| 63 73 22 0d 02 c6 47 f1 | 22 49 4e 53 54 41 4c 4c |cs"...G.|"INSTALL|
|00003bc0| 65 64 20 61 73 20 64 65 | 73 63 72 69 62 65 64 20 |ed as de|scribed |
|00003bd0| 69 6e 20 74 68 65 20 52 | 65 61 64 4d 65 20 66 69 |in the R|eadMe fi|
|00003be0| 6c 65 2c 20 61 6e 64 20 | 43 48 41 49 4e 20 22 22 |le, and |CHAIN ""|
|00003bf0| 45 78 61 6d 70 6c 65 22 | 22 22 0d 03 20 0b ef 33 |Example"|"".. ..3|
|00003c00| 2c 31 35 3a e0 0d ff 46 | 69 6c 65 44 61 74 61 82 |,15:...F|ileData.|
|00003c10| 4d 61 74 68 50 72 6f 63 | 73 00 00 57 1b 00 00 41 |MathProc|s..W...A|
|00003c20| fb ff ff be 43 ae 3a 03 | 00 cf bb 0d 00 0a 32 f4 |....C.:.|......2.|
|00003c30| 20 3e 4d 61 74 68 50 72 | 6f 63 73 20 3a 46 75 6e | >MathPr|ocs :Fun|
|00003c40| 63 74 69 6f 6e 73 2c 41 | 72 72 61 79 73 3a 20 28 |ctions,A|rrays: (|
|00003c50| 50 52 4f 43 4d 61 74 68 | 48 65 6c 70 29 0d 00 14 |PROCMath|Help)...|
|00003c60| 05 3a 0d 00 1e 32 f4 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.:...2.*|********|
|00003c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c90| 2a 2a 2a 2a 0d 00 28 22 | f4 20 20 20 20 20 20 20 |****..("|. |
|00003ca0| 20 20 20 20 20 20 20 20 | 48 45 4c 50 20 50 52 4f | |HELP PRO|
|00003cb0| 43 45 44 55 52 45 0d 00 | 32 32 f4 2a 2a 2a 2a 2a |CEDURE..|22.*****|
|00003cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 00 3c 39 20 20 20 dd |********|..<9 .|
|00003cf0| f2 4d 61 74 68 48 65 6c | 70 3a eb 33 3a f1 8a 32 |.MathHel|p:.3:..2|
|00003d00| 34 29 22 4d 41 54 48 53 | 20 46 55 4e 43 54 49 4f |4)"MATHS| FUNCTIO|
|00003d10| 4e 20 4c 49 42 52 41 52 | 59 20 2d 20 48 45 4c 50 |N LIBRAR|Y - HELP|
|00003d20| 22 0d 00 46 31 f1 27 22 | 46 75 6e 63 74 69 6f 6e |"..F1.'"|Function|
|00003d30| 73 3a 20 54 61 6b 65 20 | 26 20 72 65 74 75 72 6e |s: Take |& return|
|00003d40| 20 52 45 41 4c 20 70 61 | 72 61 6d 65 74 65 72 73 | REAL pa|rameters|
|00003d50| 22 27 0d 00 50 31 f1 8a | 35 29 22 46 4e 73 69 6e |"'..P1..|5)"FNsin|
|00003d60| 68 28 58 29 22 8a 32 38 | 29 22 46 4e 63 6f 73 68 |h(X)".28|)"FNcosh|
|00003d70| 28 58 29 22 8a 35 32 29 | 22 46 4e 74 61 6e 68 28 |(X)".52)|"FNtanh(|
|00003d80| 58 29 22 0d 00 5a 3a f1 | 8a 35 29 22 46 4e 61 72 |X)"..Z:.|.5)"FNar|
|00003d90| 67 73 69 6e 68 28 58 29 | 22 8a 32 38 29 22 46 4e |gsinh(X)|".28)"FN|
|00003da0| 61 72 67 63 6f 73 68 28 | 58 29 22 8a 35 32 29 22 |argcosh(|X)".52)"|
|00003db0| 46 4e 61 72 67 74 61 6e | 68 28 58 29 22 0d 00 64 |FNargtan|h(X)"..d|
|00003dc0| 50 f1 8a 35 29 22 46 4e | 66 61 63 74 28 58 25 29 |P..5)"FN|fact(X%)|
|00003dd0| 20 2d 20 58 25 21 22 8a | 32 38 29 22 46 4e 70 65 | - X%!".|28)"FNpe|
|00003de0| 72 6d 28 4e 25 2c 52 25 | 29 20 2d 20 6e 50 72 22 |rm(N%,R%|) - nPr"|
|00003df0| 8a 35 32 29 22 46 4e 63 | 6f 6d 62 69 6e 65 28 4e |.52)"FNc|ombine(N|
|00003e00| 25 2c 52 25 29 20 2d 20 | 6e 43 72 22 27 0d 00 6e |%,R%) - |nCr"'..n|
|00003e10| 47 f1 22 50 72 6f 63 65 | 64 75 72 65 73 3a 20 54 |G."Proce|dures: T|
|00003e20| 61 6b 65 20 43 4f 4d 50 | 4c 45 58 20 70 61 72 6d |ake COMP|LEX parm|
|00003e30| 73 20 41 2b 6a 42 2c 5b | 43 2b 6a 44 5d 20 20 4f |s A+jB,[|C+jD] O|
|00003e40| 52 20 20 7c 4d 7c 2c 61 | 6e 67 6c 65 20 4c 20 64 |R |M|,a|ngle L d|
|00003e50| 65 67 2e 22 0d 00 78 30 | f1 8a 31 32 29 22 52 65 |eg."..x0|..12)"Re|
|00003e60| 74 75 72 6e 20 20 52 20 | 2b 20 6a 49 20 20 4f 52 |turn R |+ jI OR|
|00003e70| 20 20 7c 4d 7c 2c 61 6e | 67 6c 65 20 4c 20 64 65 | |M|,an|gle L de|
|00003e80| 67 2e 22 27 0d 00 82 31 | f1 8a 35 29 22 50 52 4f |g."'...1|..5)"PRO|
|00003e90| 43 73 69 6e 28 41 2c 42 | 2c 52 2c 49 29 22 8a 32 |Csin(A,B|,R,I)".2|
|00003ea0| 38 29 22 50 52 4f 43 63 | 6f 73 28 41 2c 42 2c 52 |8)"PROCc|os(A,B,R|
|00003eb0| 2c 49 29 22 3b 0d 00 8c | 1b f1 8a 35 32 29 22 50 |,I)";...|...52)"P|
|00003ec0| 52 4f 43 74 61 6e 28 41 | 2c 42 2c 52 2c 49 29 22 |ROCtan(A|,B,R,I)"|
|00003ed0| 0d 00 96 33 f1 8a 35 29 | 22 50 52 4f 43 73 69 6e |...3..5)|"PROCsin|
|00003ee0| 68 28 41 2c 42 2c 52 2c | 49 29 22 8a 32 38 29 22 |h(A,B,R,|I)".28)"|
|00003ef0| 50 52 4f 43 63 6f 73 68 | 28 41 2c 42 2c 52 2c 49 |PROCcosh|(A,B,R,I|
|00003f00| 29 22 3b 0d 00 a0 1d f1 | 8a 35 32 29 22 50 52 4f |)";.....|.52)"PRO|
|00003f10| 43 74 61 6e 68 28 41 2c | 42 2c 52 2c 49 29 22 27 |Ctanh(A,|B,R,I)"'|
|00003f20| 0d 00 aa 3d f1 8a 35 29 | 22 50 52 4f 43 63 78 73 |...=..5)|"PROCcxs|
|00003f30| 75 6d 28 41 2c 42 2c 43 | 2c 44 2c 52 2c 49 29 22 |um(A,B,C|,D,R,I)"|
|00003f40| 8a 34 30 29 22 50 52 4f | 43 63 78 64 69 66 66 28 |.40)"PRO|Ccxdiff(|
|00003f50| 41 2c 42 2c 43 2c 44 2c | 52 2c 49 29 22 0d 00 b4 |A,B,C,D,|R,I)"...|
|00003f60| 3e f1 8a 35 29 22 50 52 | 4f 43 63 78 70 72 6f 64 |>..5)"PR|OCcxprod|
|00003f70| 28 41 2c 42 2c 43 2c 44 | 2c 52 2c 49 29 22 8a 34 |(A,B,C,D|,R,I)".4|
|00003f80| 30 29 22 50 52 4f 43 63 | 78 71 75 6f 74 28 41 2c |0)"PROCc|xquot(A,|
|00003f90| 42 2c 43 2c 44 2c 52 2c | 49 29 22 0d 00 be 33 f1 |B,C,D,R,|I)"...3.|
|00003fa0| 8a 35 29 22 50 52 4f 43 | 72 65 63 69 70 28 41 2c |.5)"PROC|recip(A,|
|00003fb0| 42 2c 52 2c 49 29 22 8a | 34 30 29 22 50 52 4f 43 |B,R,I)".|40)"PROC|
|00003fc0| 73 71 72 74 28 41 2c 42 | 2c 52 2c 49 29 22 0d 00 |sqrt(A,B|,R,I)"..|
|00003fd0| c8 38 f1 8a 35 29 22 50 | 52 4f 43 70 6f 6c 61 72 |.8..5)"P|ROCpolar|
|00003fe0| 28 41 2c 42 2c 4d 2c 4c | 29 22 8a 34 30 29 22 50 |(A,B,M,L|)".40)"P|
|00003ff0| 52 4f 43 63 61 72 74 65 | 73 69 61 6e 28 4d 2c 4c |ROCcarte|sian(M,L|
|00004000| 2c 52 2c 49 29 22 0d 00 | d2 27 f1 27 27 8a 32 38 |,R,I)"..|.'.''.28|
|00004010| 29 22 4b 65 79 20 53 50 | 41 43 45 20 74 6f 20 63 |)"Key SP|ACE to c|
|00004020| 6f 6e 74 69 6e 75 65 22 | 3a e7 a5 20 db 0d 00 dc |ontinue"|:.. ....|
|00004030| 05 3a 0d 00 e6 30 f1 22 | 20 20 20 20 52 45 41 4c |.:...0."| REAL|
|00004040| 20 41 72 72 61 79 73 3a | 20 41 28 29 20 5b 42 28 | Arrays:| A() [B(|
|00004050| 29 5d 20 3a 20 4d 61 78 | 20 32 20 64 69 6d 73 20 |)] : Max| 2 dims |
|00004060| 22 3b 0d 00 f0 29 f1 22 | 3a 20 53 74 61 72 74 20 |";...)."|: Start |
|00004070| 3d 20 31 73 74 20 65 6c | 65 6d 65 6e 74 20 28 65 |= 1st el|ement (e|
|00004080| 67 20 30 20 6f 72 20 31 | 29 22 27 0d 00 fa 39 f1 |g 0 or 1|)"'...9.|
|00004090| 22 50 52 4f 43 4d 61 74 | 49 6e 70 75 74 28 41 28 |"PROCMat|Input(A(|
|000040a0| 29 2c 53 74 61 72 74 29 | 22 8a 34 34 29 22 4b 65 |),Start)|".44)"Ke|
|000040b0| 79 20 69 6e 20 61 72 72 | 61 79 20 65 6c 65 6d 65 |y in arr|ay eleme|
|000040c0| 6e 74 73 22 0d 01 04 34 | f1 22 50 52 4f 43 4d 61 |nts"...4|."PROCMa|
|000040d0| 74 50 72 69 6e 74 28 41 | 28 29 2c 53 74 61 72 74 |tPrint(A|(),Start|
|000040e0| 29 22 8a 34 34 29 22 50 | 72 69 6e 74 20 72 65 61 |)".44)"P|rint rea|
|000040f0| 6c 20 61 72 72 61 79 22 | 0d 01 0e 3e f1 22 50 52 |l array"|...>."PR|
|00004100| 4f 43 4d 61 74 54 72 61 | 6e 73 28 41 28 29 2c 42 |OCMatTra|ns(A(),B|
|00004110| 28 29 2c 53 74 61 72 74 | 29 22 8a 34 34 29 22 42 |(),Start|)".44)"B|
|00004120| 28 29 20 3d 20 54 72 61 | 6e 73 70 6f 73 65 20 6f |() = Tra|nspose o|
|00004130| 66 20 41 28 29 22 0d 01 | 18 3f f1 22 50 52 4f 43 |f A()"..|.?."PROC|
|00004140| 4d 61 74 49 6e 76 74 28 | 41 28 29 2c 53 74 61 72 |MatInvt(|A(),Star|
|00004150| 74 29 22 8a 34 34 29 22 | 49 6e 76 65 72 74 20 26 |t)".44)"|Invert &|
|00004160| 20 52 65 74 75 72 6e 20 | 53 51 55 41 52 45 20 41 | Return |SQUARE A|
|00004170| 72 72 61 79 22 0d 01 22 | 49 f1 27 22 20 20 20 20 |rray".."|I.'" |
|00004180| 50 41 52 54 2d 41 72 72 | 61 79 73 20 3a 20 53 31 |PART-Arr|ays : S1|
|00004190| 2c 45 31 5b 2c 53 32 2c | 45 32 5d 20 3d 20 73 74 |,E1[,S2,|E2] = st|
|000041a0| 61 72 74 2c 65 6e 64 20 | 52 4f 57 2c 5b 43 4f 4c |art,end |ROW,[COL|
|000041b0| 55 4d 4e 5d 20 73 75 66 | 66 69 63 65 73 22 0d 01 |UMN] suf|fices"..|
|000041c0| 2c 32 f1 8a 32 30 29 22 | 53 65 74 20 53 32 2c 45 |,2..20)"|Set S2,E|
|000041d0| 32 20 3d 20 2d 31 20 66 | 6f 72 20 31 2d 64 69 6d |2 = -1 f|or 1-dim|
|000041e0| 65 6e 73 69 6f 6e 61 6c | 20 61 72 72 61 79 22 27 |ensional| array"'|
|000041f0| 0d 01 36 45 f1 22 46 4e | 4d 61 74 4d 61 78 28 41 |..6E."FN|MatMax(A|
|00004200| 28 29 2c 53 31 2c 45 31 | 2c 53 32 2c 45 32 29 22 |(),S1,E1|,S2,E2)"|
|00004210| 8a 34 34 29 22 52 65 74 | 75 72 6e 20 6d 61 78 2e |.44)"Ret|urn max.|
|00004220| 20 77 69 74 68 69 6e 20 | 53 2c 45 20 73 75 66 66 | within |S,E suff|
|00004230| 69 63 65 73 22 0d 01 40 | 45 f1 22 46 4e 4d 61 74 |ices"..@|E."FNMat|
|00004240| 4d 69 6e 28 41 28 29 2c | 53 31 2c 45 31 2c 53 32 |Min(A(),|S1,E1,S2|
|00004250| 2c 45 32 29 22 8a 34 34 | 29 22 52 65 74 75 72 6e |,E2)".44|)"Return|
|00004260| 20 6d 69 6e 2e 20 77 69 | 74 68 69 6e 20 53 2c 45 | min. wi|thin S,E|
|00004270| 20 73 75 66 66 69 63 65 | 73 22 0d 01 4a 28 f1 22 | suffice|s"..J(."|
|00004280| 50 52 4f 43 4d 61 74 50 | 61 72 74 28 41 28 29 2c |PROCMatP|art(A(),|
|00004290| 53 31 2c 45 31 2c 53 32 | 2c 45 32 2c 42 28 29 29 |S1,E1,S2|,E2,B())|
|000042a0| 22 3b 0d 01 54 2b f1 8a | 34 34 29 22 54 72 61 6e |";..T+..|44)"Tran|
|000042b0| 73 66 65 72 20 70 61 72 | 74 20 77 69 74 68 69 6e |sfer par|t within|
|000042c0| 20 53 2c 45 20 74 6f 20 | 42 28 29 22 27 0d 01 5e | S,E to |B()"'..^|
|000042d0| 2a f1 22 20 20 20 20 43 | 4f 4d 50 4c 45 58 20 41 |*." C|OMPLEX A|
|000042e0| 72 72 61 79 73 3a 20 41 | 28 29 20 2b 20 6a 42 28 |rrays: A|() + jB(|
|000042f0| 29 20 65 74 63 22 27 0d | 01 68 45 f1 22 50 52 4f |) etc"'.|.hE."PRO|
|00004300| 43 4d 61 74 43 49 6e 70 | 75 74 28 41 28 29 2c 42 |CMatCInp|ut(A(),B|
|00004310| 28 29 2c 53 74 61 72 74 | 29 22 8a 34 34 29 22 4b |(),Start|)".44)"K|
|00004320| 65 79 20 69 6e 20 63 6f | 6d 70 6c 65 78 20 65 6c |ey in co|mplex el|
|00004330| 65 6d 65 6e 74 2d 70 61 | 69 72 73 22 0d 01 72 3c |ement-pa|irs"..r<|
|00004340| f1 22 50 52 4f 43 4d 61 | 74 43 50 72 69 6e 74 28 |."PROCMa|tCPrint(|
|00004350| 41 28 29 2c 42 28 29 2c | 53 74 61 72 74 29 22 8a |A(),B(),|Start)".|
|00004360| 34 34 29 22 50 72 69 6e | 74 20 63 6f 6d 70 6c 65 |44)"Prin|t comple|
|00004370| 78 20 61 72 72 61 79 22 | 0d 01 7c 33 f1 22 50 52 |x array"|..|3."PR|
|00004380| 4f 43 4d 61 74 43 50 72 | 6f 64 28 41 28 29 2c 42 |OCMatCPr|od(A(),B|
|00004390| 28 29 2c 43 28 29 2c 44 | 28 29 2c 53 74 61 72 74 |(),C(),D|(),Start|
|000043a0| 2c 45 28 29 2c 46 28 29 | 29 22 3b 0d 01 86 29 f1 |,E(),F()|)";...).|
|000043b0| 8a 34 34 29 22 45 28 29 | 2b 6a 46 28 29 20 3d 20 |.44)"E()|+jF() = |
|000043c0| 41 28 29 2b 6a 42 28 29 | 20 2a 20 43 28 29 2b 6a |A()+jB()| * C()+j|
|000043d0| 44 28 29 22 0d 01 90 47 | f1 22 50 52 4f 43 4d 61 |D()"...G|."PROCMa|
|000043e0| 74 43 49 6e 76 74 28 41 | 28 29 2c 42 28 29 2c 53 |tCInvt(A|(),B(),S|
|000043f0| 74 61 72 74 29 22 8a 34 | 34 29 22 49 6e 76 65 72 |tart)".4|4)"Inver|
|00004400| 74 20 26 20 52 65 74 75 | 72 6e 20 53 51 55 41 52 |t & Retu|rn SQUAR|
|00004410| 45 20 41 28 29 2b 6a 42 | 28 29 22 0d 01 9a 45 f1 |E A()+jB|()"...E.|
|00004420| 27 22 20 20 20 20 4e 4f | 54 45 3a 20 2a 2a 20 43 |'" NO|TE: ** C|
|00004430| 41 4c 4c 49 4e 47 20 41 | 52 52 41 59 53 20 4d 55 |ALLING A|RRAYS MU|
|00004440| 53 54 20 42 45 20 43 4f | 52 52 45 43 54 4c 59 20 |ST BE CO|RRECTLY |
|00004450| 44 49 4d 45 4e 53 49 4f | 4e 45 44 20 2a 2a 22 27 |DIMENSIO|NED **"'|
|00004460| 0d 01 a4 05 e1 0d 01 ae | 31 f4 2a 2a 2a 2a 2a 2a |........|1.******|
|00004470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004490| 2a 2a 2a 2a 2a 2a 0d 01 | b8 30 f4 20 20 3a 20 20 |******..|.0. : |
|000044a0| 20 20 54 52 49 47 4f 4e | 4f 4d 45 54 52 49 43 20 | TRIGON|OMETRIC |
|000044b0| 26 20 48 59 50 45 52 42 | 4f 4c 49 43 20 46 55 4e |& HYPERB|OLIC FUN|
|000044c0| 43 54 49 4f 4e 53 0d 01 | c2 31 f4 2a 2a 2a 2a 2a |CTIONS..|.1.*****|
|000044d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044f0| 2a 2a 2a 2a 2a 2a 2a 0d | 01 cc 1d 20 20 20 dd a4 |*******.|... ..|
|00004500| 73 69 6e 68 28 58 29 3d | 28 a1 58 2d a1 28 2d 58 |sinh(X)=|(.X-.(-X|
|00004510| 29 29 2f 32 0d 01 d6 1d | 20 20 20 dd a4 63 6f 73 |))/2....| ..cos|
|00004520| 68 28 58 29 3d 28 a1 58 | 2b a1 28 2d 58 29 29 2f |h(X)=(.X|+.(-X))/|
|00004530| 32 0d 01 e0 22 20 20 20 | dd a4 74 61 6e 68 28 58 |2..." |..tanh(X|
|00004540| 29 3d a4 73 69 6e 68 28 | 58 29 2f a4 63 6f 73 68 |)=.sinh(|X)/.cosh|
|00004550| 28 58 29 0d 01 ea 21 20 | 20 20 dd a4 61 72 67 73 |(X)...! | ..args|
|00004560| 69 6e 68 28 58 29 3d aa | 28 58 2b b6 28 58 2a 58 |inh(X)=.|(X+.(X*X|
|00004570| 2b 31 29 29 0d 01 f4 21 | 20 20 20 dd a4 61 72 67 |+1))...!| ..arg|
|00004580| 63 6f 73 68 28 58 29 3d | aa 28 58 2b b6 28 58 2a |cosh(X)=|.(X+.(X*|
|00004590| 58 2d 31 29 29 0d 01 fe | 25 20 20 20 dd a4 61 72 |X-1))...|% ..ar|
|000045a0| 67 74 61 6e 68 28 58 29 | 3d 2e 35 2a aa 28 28 31 |gtanh(X)|=.5*.((1|
|000045b0| 2b 58 29 2f 28 31 2d 58 | 29 29 0d 02 08 1f 20 20 |+X)/(1-X|)).... |
|000045c0| 20 dd a4 66 61 63 74 28 | 58 25 29 3a e7 58 25 3d | ..fact(|X%):.X%=|
|000045d0| 30 3d 31 20 8b 20 ea 20 | 59 0d 02 12 3c 59 3d 28 |0=1 . . |Y...<Y=(|
|000045e0| 31 2b 31 2f 28 31 32 2a | 58 25 2d 2e 34 36 33 29 |1+1/(12*|X%-.463)|
|000045f0| 29 2a b6 28 58 25 2a 32 | 2a af 29 2a 28 58 25 2f |)*.(X%*2|*.)*(X%/|
|00004600| a1 31 29 5e 58 25 3a e7 | 58 25 3c 31 33 20 3d a8 |.1)^X%:.|X%<13 =.|
|00004610| 59 20 8b 3d 59 0d 02 1c | 38 20 20 20 dd a4 70 65 |Y .=Y...|8 ..pe|
|00004620| 72 6d 75 74 65 28 4e 25 | 2c 52 25 29 3a ea 50 24 |rmute(N%|,R%):.P$|
|00004630| 3a 50 24 3d c3 28 a4 66 | 61 63 74 28 4e 25 29 2f |:P$=.(.f|act(N%)/|
|00004640| a4 66 61 63 74 28 4e 25 | 2d 52 25 29 29 0d 02 26 |.fact(N%|-R%))..&|
|00004650| 2f e7 a7 50 24 2c 22 45 | 22 29 20 84 20 28 a7 50 |/..P$,"E|") . (.P|
|00004660| 24 2c 22 2e 22 29 3d 30 | 29 3a 3d bb 50 24 3a 8b |$,".")=0|):=.P$:.|
|00004670| 3a 3d 20 a8 28 2e 34 2b | bb 50 24 29 0d 02 30 24 |:= .(.4+|.P$)..0$|
|00004680| 20 20 20 dd a4 63 6f 6d | 62 69 6e 65 28 4e 25 2c | ..com|bine(N%,|
|00004690| 52 25 29 3a ea 43 25 3a | 43 25 3d 4e 25 2d 52 25 |R%):.C%:|C%=N%-R%|
|000046a0| 0d 02 3a 15 e7 43 25 3e | 4e 25 81 32 3a c8 94 20 |..:..C%>|N%.2:.. |
|000046b0| 43 25 2c 52 25 0d 02 44 | 28 3d a8 28 a4 66 61 63 |C%,R%..D|(=.(.fac|
|000046c0| 74 28 4e 25 29 2f a4 66 | 61 63 74 28 52 25 29 2f |t(N%)/.f|act(R%)/|
|000046d0| a4 66 61 63 74 28 43 25 | 29 2b 2e 34 29 0d 02 4e |.fact(C%|)+.4)..N|
|000046e0| 19 20 20 20 dd f2 73 69 | 6e 28 41 2c 42 2c f8 20 |. ..si|n(A,B,. |
|000046f0| 52 2c f8 20 49 29 0d 02 | 58 21 52 3d b5 41 2a a4 |R,. I)..|X!R=.A*.|
|00004700| 63 6f 73 68 28 42 29 3a | 49 3d 9b 41 2a a4 73 69 |cosh(B):|I=.A*.si|
|00004710| 6e 68 28 42 29 3a e1 0d | 02 62 19 20 20 20 dd f2 |nh(B):..|.b. ..|
|00004720| 63 6f 73 28 41 2c 42 2c | f8 20 52 2c f8 20 49 29 |cos(A,B,|. R,. I)|
|00004730| 0d 02 6c 22 52 3d 9b 41 | 2a a4 63 6f 73 68 28 42 |..l"R=.A|*.cosh(B|
|00004740| 29 3a 49 3d 2d b5 41 2a | a4 73 69 6e 68 28 42 29 |):I=-.A*|.sinh(B)|
|00004750| 3a e1 0d 02 76 1f 20 20 | 20 dd f2 74 61 6e 28 41 |:...v. | ..tan(A|
|00004760| 2c 42 2c f8 20 52 2c f8 | 20 49 29 3a ea 20 55 2c |,B,. R,.| I):. U,|
|00004770| 56 0d 02 80 27 f2 73 69 | 6e 28 41 2c 42 2c 52 2c |V...'.si|n(A,B,R,|
|00004780| 49 29 3a 55 3d 52 3a 56 | 3d 49 3a f2 63 6f 73 28 |I):U=R:V|=I:.cos(|
|00004790| 41 2c 42 2c 52 2c 49 29 | 0d 02 8a 1a f2 63 78 71 |A,B,R,I)|.....cxq|
|000047a0| 75 6f 74 28 55 2c 56 2c | 52 2c 49 2c 52 2c 49 29 |uot(U,V,|R,I,R,I)|
|000047b0| 3a e1 0d 02 94 1a 20 20 | 20 dd f2 73 69 6e 68 28 |:..... | ..sinh(|
|000047c0| 41 2c 42 2c f8 20 52 2c | f8 20 49 29 0d 02 9e 21 |A,B,. R,|. I)...!|
|000047d0| 52 3d a4 73 69 6e 68 28 | 41 29 2a 9b 42 3a 49 3d |R=.sinh(|A)*.B:I=|
|000047e0| a4 63 6f 73 68 28 41 29 | 2a b5 42 3a e1 0d 02 a8 |.cosh(A)|*.B:....|
|000047f0| 1a 20 20 20 dd f2 63 6f | 73 68 28 41 2c 42 2c f8 |. ..co|sh(A,B,.|
|00004800| 20 52 2c f8 20 49 29 0d | 02 b2 21 52 3d a4 63 6f | R,. I).|..!R=.co|
|00004810| 73 68 28 41 29 2a 9b 42 | 3a 49 3d a4 73 69 6e 68 |sh(A)*.B|:I=.sinh|
|00004820| 28 41 29 2a b5 42 3a e1 | 0d 02 bc 1e 20 20 20 dd |(A)*.B:.|.... .|
|00004830| f2 74 61 6e 68 28 41 2c | 42 2c f8 20 52 2c f8 20 |.tanh(A,|B,. R,. |
|00004840| 49 29 3a ea 20 44 0d 02 | c6 33 44 3d a4 63 6f 73 |I):. D..|.3D=.cos|
|00004850| 68 28 32 2a 41 29 2b 9b | 28 32 2a 42 29 3a 52 3d |h(2*A)+.|(2*B):R=|
|00004860| a4 73 69 6e 68 28 32 2a | 41 29 2f 44 3a 49 3d b5 |.sinh(2*|A)/D:I=.|
|00004870| 28 32 2a 42 29 2f 44 3a | e1 0d 02 d0 33 f4 3a 2a |(2*B)/D:|....3.:*|
|00004880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000048a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 02 da 27 |********|****...'|
|000048b0| f4 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.: | |
|000048c0| 20 20 20 20 43 4f 4d 50 | 4c 45 58 20 4e 55 4d 42 | COMP|LEX NUMB|
|000048d0| 45 52 53 0d 02 e4 33 f4 | 3a 2a 2a 2a 2a 2a 2a 2a |ERS...3.|:*******|
|000048e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000048f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004900| 2a 2a 2a 2a 2a 2a 0d 02 | ee 2d 20 20 20 dd f2 63 |******..|.- ..c|
|00004910| 78 73 75 6d 28 41 2c 42 | 2c 43 2c 44 2c f8 20 52 |xsum(A,B|,C,D,. R|
|00004920| 2c f8 20 49 29 3a 52 3d | 41 2b 43 3a 49 3d 42 2b |,. I):R=|A+C:I=B+|
|00004930| 44 3a e1 0d 02 f8 2e 20 | 20 20 dd f2 63 78 64 69 |D:..... | ..cxdi|
|00004940| 66 66 28 41 2c 42 2c 43 | 2c 44 2c f8 20 52 2c f8 |ff(A,B,C|,D,. R,.|
|00004950| 20 49 29 3a 52 3d 41 2d | 43 3a 49 3d 42 2d 44 3a | I):R=A-|C:I=B-D:|
|00004960| e1 0d 03 02 36 20 20 20 | dd f2 63 78 70 72 6f 64 |....6 |..cxprod|
|00004970| 28 41 2c 42 2c 43 2c 44 | 2c f8 20 52 2c f8 20 49 |(A,B,C,D|,. R,. I|
|00004980| 29 3a 52 3d 41 2a 43 2d | 42 2a 44 3a 49 3d 41 2a |):R=A*C-|B*D:I=A*|
|00004990| 44 2b 42 2a 43 3a e1 0d | 03 0c 20 20 20 20 dd f2 |D+B*C:..|.. ..|
|000049a0| 63 78 71 75 6f 74 28 41 | 2c 42 2c 43 2c 44 2c f8 |cxquot(A|,B,C,D,.|
|000049b0| 20 52 2c f8 20 49 29 0d | 03 16 31 52 3d 28 41 2a | R,. I).|..1R=(A*|
|000049c0| 43 2b 42 2a 44 29 2f 28 | 43 2a 43 2b 44 2a 44 29 |C+B*D)/(|C*C+D*D)|
|000049d0| 3a 49 3d 28 42 2a 43 2d | 41 2a 44 29 2f 28 43 2a |:I=(B*C-|A*D)/(C*|
|000049e0| 43 2b 44 2a 44 29 3a e1 | 0d 03 20 1b 20 20 20 dd |C+D*D):.|.. . .|
|000049f0| f2 72 65 63 69 70 28 41 | 2c 42 2c f8 20 52 2c f8 |.recip(A|,B,. R,.|
|00004a00| 20 49 29 0d 03 2a 22 52 | 3d 41 2f 28 41 2a 41 2b | I)..*"R|=A/(A*A+|
|00004a10| 42 2a 42 29 3a 49 3d 2d | 42 2f 28 41 2a 41 2b 42 |B*B):I=-|B/(A*A+B|
|00004a20| 2a 42 29 3a e1 0d 03 34 | 20 20 20 20 dd f2 73 71 |*B):...4| ..sq|
|00004a30| 72 74 28 41 2c 42 2c f8 | 20 52 2c f8 20 49 29 3a |rt(A,B,.| R,. I):|
|00004a40| ea 20 4c 2c 4d 0d 03 3e | 2d 4d 3d b6 b6 28 41 2a |. L,M..>|-M=..(A*|
|00004a50| 41 2b 42 2a 42 29 3a 4c | 3d 2e 35 2a 99 28 42 2f |A+B*B):L|=.5*.(B/|
|00004a60| 41 29 3a 52 3d 4d 2a 9b | 4c 3a 49 3d 4d 2a b5 4c |A):R=M*.|L:I=M*.L|
|00004a70| 3a e1 0d 03 48 1b 20 20 | 20 dd f2 70 6f 6c 61 72 |:...H. | ..polar|
|00004a80| 28 41 2c 42 2c f8 20 4d | 2c f8 20 4c 29 0d 03 52 |(A,B,. M|,. L)..R|
|00004a90| 1c 4d 3d b6 28 41 2a 41 | 2b 42 2a 42 29 3a 4c 3d |.M=.(A*A|+B*B):L=|
|00004aa0| 9d 99 28 42 2f 41 29 3a | e1 0d 03 5c 1f 20 20 20 |..(B/A):|...\. |
|00004ab0| dd f2 63 61 72 74 65 73 | 69 61 6e 28 4d 2c 4c 2c |..cartes|ian(M,L,|
|00004ac0| f8 20 52 2c f8 20 49 29 | 0d 03 66 15 52 3d 4d 2a |. R,. I)|..f.R=M*|
|00004ad0| 9b b2 4c 3a 49 3d 4d 2a | b5 b2 4c 3a e1 0d 03 70 |..L:I=M*|..L:...p|
|00004ae0| 34 f4 3a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |4.:*****|********|
|00004af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b10| 2a 0d 03 7a 24 f4 3a 20 | 20 20 20 20 20 20 20 20 |*..z$.: | |
|00004b20| 20 20 20 20 20 20 20 20 | 20 20 52 45 41 4c 20 41 | | REAL A|
|00004b30| 52 52 41 59 53 0d 03 84 | 34 f4 3a 2a 2a 2a 2a 2a |RRAYS...|4.:*****|
|00004b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 03 8e 29 20 20 20 |********|*...) |
|00004b70| dd f2 4d 61 74 49 6e 70 | 75 74 28 41 28 29 2c 53 |..MatInp|ut(A(),S|
|00004b80| 74 61 72 74 29 3a ea 49 | 25 2c 4a 25 2c 4d 25 2c |tart):.I|%,J%,M%,|
|00004b90| 4e 25 0d 03 98 2b 4d 25 | 3d de 28 41 28 29 2c 31 |N%...+M%|=.(A(),1|
|00004ba0| 29 3a 4e 25 3d 30 3a e7 | 20 de 28 41 28 29 29 3d |):N%=0:.| .(A())=|
|00004bb0| 32 3a 4e 25 3d de 28 41 | 28 29 2c 32 29 0d 03 a2 |2:N%=.(A|(),2)...|
|00004bc0| 14 f1 3a e3 49 25 3d 53 | 74 61 72 74 20 b8 20 4d |..:.I%=S|tart . M|
|00004bd0| 25 0d 03 ac 0a e7 20 4e | 25 20 8c 0d 03 b6 12 e3 |%..... N|% ......|
|00004be0| 4a 25 3d 53 74 61 72 74 | 20 b8 20 4e 25 0d 03 c0 |J%=Start| . N%...|
|00004bf0| 2d f1 22 52 6f 77 20 22 | 3b 49 25 22 20 20 43 6f |-."Row "|;I%" Co|
|00004c00| 6c 20 22 3b 4a 25 22 20 | 3f 20 22 3b 3a e8 22 22 |l ";J%" |? ";:.""|
|00004c10| 41 28 49 25 2c 4a 25 29 | 3a ed 0d 03 ca 19 cc 20 |A(I%,J%)|:...... |
|00004c20| f1 3b 49 25 22 20 3f 20 | 22 3b 3a e8 22 22 41 28 |.;I%" ? |";:.""A(|
|00004c30| 49 25 29 0d 03 d4 09 cd | 3a ed 3a e1 0d 03 de 2a |I%).....|:.:....*|
|00004c40| 20 20 20 dd f2 4d 61 74 | 50 72 69 6e 74 28 41 28 | ..Mat|Print(A(|
|00004c50| 29 2c 53 74 61 72 74 29 | 3a ea 20 61 25 2c 49 25 |),Start)|:. a%,I%|
|00004c60| 2c 4a 25 2c 4b 25 0d 03 | e8 2d 61 25 3d 40 25 3a |,J%,K%..|.-a%=@%:|
|00004c70| 40 25 3d 26 35 30 43 3a | 4b 25 3d 30 3a e7 20 de |@%=&50C:|K%=0:. .|
|00004c80| 28 41 28 29 29 3d 32 3a | 4b 25 3d de 28 41 28 29 |(A())=2:|K%=.(A()|
|00004c90| 2c 32 29 0d 03 f2 29 e3 | 20 49 25 3d 53 74 61 72 |,2)...).| I%=Star|
|00004ca0| 74 20 b8 20 de 28 41 28 | 29 2c 31 29 3a e3 20 4a |t . .(A(|),1):. J|
|00004cb0| 25 3d 53 74 61 72 74 20 | b8 20 4b 25 0d 03 fc 1f |%=Start |. K%....|
|00004cc0| e7 4b 25 20 f1 3b 41 28 | 49 25 2c 4a 25 29 2c 3b |.K% .;A(|I%,J%),;|
|00004cd0| 3a 8b f1 3b 41 28 49 25 | 29 2c 3b 0d 04 06 11 ed |:..;A(I%|),;.....|
|00004ce0| 3a f1 3a ed 3a 40 25 3d | 61 25 3a e1 0d 04 10 2e |:.:.:@%=|a%:.....|
|00004cf0| 20 20 20 dd f2 4d 61 74 | 54 72 61 6e 73 28 41 28 | ..Mat|Trans(A(|
|00004d00| 29 2c 42 28 29 2c 53 74 | 61 72 74 29 3a ea 20 49 |),B(),St|art):. I|
|00004d10| 25 2c 4a 25 2c 4d 25 2c | 4e 25 0d 04 1a 1b 4d 25 |%,J%,M%,|N%....M%|
|00004d20| 3d de 28 41 28 29 2c 31 | 29 3a 4e 25 3d de 28 41 |=.(A(),1|):N%=.(A|
|00004d30| 28 29 2c 32 29 0d 04 24 | 21 e3 49 25 3d 53 74 61 |(),2)..$|!.I%=Sta|
|00004d40| 72 74 20 b8 20 4d 25 3a | e3 4a 25 3d 53 74 61 72 |rt . M%:|.J%=Star|
|00004d50| 74 20 b8 20 4e 25 0d 04 | 2e 1b 42 28 4a 25 2c 49 |t . N%..|..B(J%,I|
|00004d60| 25 29 3d 41 28 49 25 2c | 4a 25 29 3a ed 3a ed 3a |%)=A(I%,|J%):.:.:|
|00004d70| e1 0d 04 38 38 20 20 20 | dd f2 4d 61 74 49 6e 76 |...88 |..MatInv|
|00004d80| 74 28 41 28 29 2c 53 74 | 61 72 74 29 3a ea 49 25 |t(A(),St|art):.I%|
|00004d90| 2c 4a 25 2c 4b 25 2c 4e | 25 2c 50 2c 51 3a 4e 25 |,J%,K%,N|%,P,Q:N%|
|00004da0| 3d de 28 41 28 29 2c 31 | 29 0d 04 42 21 e3 20 49 |=.(A(),1|)..B!. I|
|00004db0| 25 3d 53 74 61 72 74 20 | b8 20 4e 25 3a 50 3d 41 |%=Start |. N%:P=A|
|00004dc0| 28 49 25 2c 53 74 61 72 | 74 29 0d 04 4c 35 e7 20 |(I%,Star|t)..L5. |
|00004dd0| 50 3d 30 3a f1 27 22 43 | 61 6e 27 74 20 49 6e 76 |P=0:.'"C|an't Inv|
|00004de0| 65 72 74 3a 20 53 69 6e | 67 75 6c 61 72 2c 20 6f |ert: Sin|gular, o|
|00004df0| 72 20 5a 65 72 6f 20 50 | 69 76 6f 74 22 3a e1 0d |r Zero P|ivot":..|
|00004e00| 04 56 2d e3 20 4a 25 3d | 53 74 61 72 74 20 b8 20 |.V-. J%=|Start . |
|00004e10| 4e 25 2d 31 3a 41 28 49 | 25 2c 4a 25 29 3d 41 28 |N%-1:A(I|%,J%)=A(|
|00004e20| 49 25 2c 4a 25 2b 31 29 | 2f 50 3a ed 0d 04 60 20 |I%,J%+1)|/P:...` |
|00004e30| 41 28 49 25 2c 4e 25 29 | 3d 31 2f 50 3a e3 20 4b |A(I%,N%)|=1/P:. K|
|00004e40| 25 3d 53 74 61 72 74 20 | b8 20 4e 25 0d 04 6a 0e |%=Start |. N%..j.|
|00004e50| e7 20 4b 25 3c 3e 49 25 | 20 8c 0d 04 74 42 51 3d |. K%<>I%| ...tBQ=|
|00004e60| 41 28 4b 25 2c 53 74 61 | 72 74 29 3a e3 20 4a 25 |A(K%,Sta|rt):. J%|
|00004e70| 3d 53 74 61 72 74 20 b8 | 20 4e 25 2d 31 3a 41 28 |=Start .| N%-1:A(|
|00004e80| 4b 25 2c 4a 25 29 3d 41 | 28 4b 25 2c 4a 25 2b 31 |K%,J%)=A|(K%,J%+1|
|00004e90| 29 2d 51 2a 41 28 49 25 | 2c 4a 25 29 0d 04 7e 1a |)-Q*A(I%|,J%)..~.|
|00004ea0| ed 3a 41 28 4b 25 2c 4e | 25 29 3d 2d 51 2a 41 28 |.:A(K%,N|%)=-Q*A(|
|00004eb0| 49 25 2c 4e 25 29 0d 04 | 88 0b cd 3a ed 3a ed 3a |I%,N%)..|...:.:.:|
|00004ec0| e1 0d 04 92 2c 20 20 20 | dd a4 4d 61 74 4d 61 78 |...., |..MatMax|
|00004ed0| 28 41 28 29 2c 53 31 2c | 45 31 2c 53 32 2c 45 32 |(A(),S1,|E1,S2,E2|
|00004ee0| 29 3a ea 20 49 25 2c 4a | 25 2c 41 2c 42 0d 04 9c |):. I%,J|%,A,B...|
|00004ef0| 17 41 3d 2d 31 45 32 30 | 3a e3 49 25 3d 53 31 20 |.A=-1E20|:.I%=S1 |
|00004f00| b8 20 45 31 0d 04 a6 0e | e7 20 53 32 20 3e 2d 31 |. E1....|. S2 >-1|
|00004f10| 20 8c 0d 04 b0 0f e3 4a | 25 3d 53 32 20 b8 20 45 | ......J|%=S2 . E|
|00004f20| 32 0d 04 ba 18 42 3d 41 | 28 49 25 2c 4a 25 29 3a |2....B=A|(I%,J%):|
|00004f30| e7 20 42 3e 41 20 41 3d | 42 0d 04 c4 05 ed 0d 04 |. B>A A=|B.......|
|00004f40| ce 16 cc 20 42 3d 41 28 | 49 25 29 3a e7 42 3e 41 |... B=A(|I%):.B>A|
|00004f50| 3a 41 3d 42 0d 04 d8 0a | cd 3a ed 3a 3d 41 0d 04 |:A=B....|.:.:=A..|
|00004f60| e2 2c 20 20 20 dd a4 4d | 61 74 4d 69 6e 28 41 28 |., ..M|atMin(A(|
|00004f70| 29 2c 53 31 2c 45 31 2c | 53 32 2c 45 32 29 3a ea |),S1,E1,|S2,E2):.|
|00004f80| 20 49 25 2c 4a 25 2c 41 | 2c 42 0d 04 ec 16 41 3d | I%,J%,A|,B....A=|
|00004f90| 31 45 32 30 3a e3 49 25 | 3d 53 31 20 b8 20 45 31 |1E20:.I%|=S1 . E1|
|00004fa0| 0d 04 f6 0e e7 20 53 32 | 20 3e 2d 31 20 8c 0d 05 |..... S2| >-1 ...|
|00004fb0| 00 0f e3 4a 25 3d 53 32 | 20 b8 20 45 32 0d 05 0a |...J%=S2| . E2...|
|00004fc0| 18 42 3d 41 28 49 25 2c | 4a 25 29 3a e7 20 42 3c |.B=A(I%,|J%):. B<|
|00004fd0| 41 20 41 3d 42 0d 05 14 | 05 ed 0d 05 1e 16 cc 20 |A A=B...|....... |
|00004fe0| 42 3d 41 28 49 25 29 3a | e7 42 3c 41 3a 41 3d 42 |B=A(I%):|.B<A:A=B|
|00004ff0| 0d 05 28 0a cd 3a ed 3a | 3d 41 0d 05 32 2c 20 20 |..(..:.:|=A..2, |
|00005000| 20 dd f2 4d 61 74 50 61 | 72 74 28 41 28 29 2c 53 | ..MatPa|rt(A(),S|
|00005010| 31 2c 45 31 2c 53 32 2c | 45 32 2c 42 28 29 29 3a |1,E1,S2,|E2,B()):|
|00005020| ea 49 25 2c 4a 25 0d 05 | 3c 1b e3 49 25 3d 53 31 |.I%,J%..|<..I%=S1|
|00005030| 20 b8 20 45 31 3a e3 4a | 25 3d 53 32 20 b8 20 45 | . E1:.J|%=S2 . E|
|00005040| 32 0d 05 46 21 42 28 49 | 25 2d 53 31 2c 4a 25 2d |2..F!B(I|%-S1,J%-|
|00005050| 53 32 29 3d 41 28 49 25 | 2c 4a 25 29 3a ed 3a ed |S2)=A(I%|,J%):.:.|
|00005060| 3a e1 0d 05 50 33 f4 3a | 2a 2a 2a 2a 2a 2a 2a 2a |:...P3.:|********|
|00005070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005090| 2a 2a 2a 2a 2a 0d 05 5a | 1f f4 3a 20 20 20 20 20 |*****..Z|..: |
|000050a0| 20 20 20 20 20 20 43 4f | 4d 50 4c 45 58 20 41 52 | CO|MPLEX AR|
|000050b0| 52 41 59 53 0d 05 64 33 | f4 3a 2a 2a 2a 2a 2a 2a |RAYS..d3|.:******|
|000050c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050e0| 2a 2a 2a 2a 2a 2a 2a 0d | 05 6e 2e 20 20 20 dd f2 |*******.|.n. ..|
|000050f0| 4d 61 74 43 49 6e 70 75 | 74 28 41 28 29 2c 42 28 |MatCInpu|t(A(),B(|
|00005100| 29 2c 53 74 61 72 74 29 | 3a ea 49 25 2c 4a 25 2c |),Start)|:.I%,J%,|
|00005110| 4d 25 2c 4e 25 0d 05 78 | 2b 4d 25 3d de 28 41 28 |M%,N%..x|+M%=.(A(|
|00005120| 29 2c 31 29 3a 4e 25 3d | 30 3a e7 20 de 28 41 28 |),1):N%=|0:. .(A(|
|00005130| 29 29 3d 32 3a 4e 25 3d | de 28 41 28 29 2c 32 29 |))=2:N%=|.(A(),2)|
|00005140| 0d 05 82 2b f1 27 22 45 | 6e 74 65 72 20 72 2e 70 |...+.'"E|nter r.p|
|00005150| 2e 20 2c 20 69 2e 70 2e | 20 3a 22 27 3a e3 49 25 |. , i.p.| :"':.I%|
|00005160| 3d 53 74 61 72 74 20 b8 | 20 4d 25 0d 05 8c 0a e7 |=Start .| M%.....|
|00005170| 20 4e 25 20 8c 0d 05 96 | 12 e3 4a 25 3d 53 74 61 | N% ....|..J%=Sta|
|00005180| 72 74 20 b8 20 4e 25 0d | 05 a0 36 f1 22 52 6f 77 |rt . N%.|..6."Row|
|00005190| 20 22 3b 49 25 22 20 20 | 43 6f 6c 20 22 3b 4a 25 | ";I%" |Col ";J%|
|000051a0| 22 20 3f 20 22 3b 3a e8 | 22 22 41 28 49 25 2c 4a |" ? ";:.|""A(I%,J|
|000051b0| 25 29 2c 42 28 49 25 2c | 4a 25 29 3a ed 0d 05 aa |%),B(I%,|J%):....|
|000051c0| 1f cc 20 f1 3b 49 25 22 | 20 3f 20 22 3b 3a e8 22 |.. .;I%"| ? ";:."|
|000051d0| 22 41 28 49 25 29 2c 42 | 28 49 25 29 0d 05 b4 09 |"A(I%),B|(I%)....|
|000051e0| cd 3a ed 3a e1 0d 05 be | 2e 20 20 20 dd f2 4d 61 |.:.:....|. ..Ma|
|000051f0| 74 43 50 72 69 6e 74 28 | 41 28 29 2c 42 28 29 2c |tCPrint(|A(),B(),|
|00005200| 53 74 61 72 74 29 3a ea | 61 25 2c 49 25 2c 4a 25 |Start):.|a%,I%,J%|
|00005210| 2c 4b 25 0d 05 c8 11 61 | 25 3d 40 25 3a 40 25 3d |,K%....a|%=@%:@%=|
|00005220| 26 34 30 42 0d 05 d2 1e | 4b 25 3d 30 3a e7 de 28 |&40B....|K%=0:..(|
|00005230| 41 28 29 29 3d 32 3a 4b | 25 3d de 28 41 28 29 2c |A())=2:K|%=.(A(),|
|00005240| 32 29 0d 05 dc 18 e3 49 | 25 3d 53 74 61 72 74 20 |2).....I|%=Start |
|00005250| b8 20 de 28 41 28 29 2c | 31 29 0d 05 e6 0a e7 20 |. .(A(),|1)..... |
|00005260| 4b 25 20 8c 0d 05 f0 25 | e3 4a 25 3d 53 74 61 72 |K% ....%|.J%=Star|
|00005270| 74 20 b8 20 4b 25 3a f1 | 8a 4a 25 2a 32 30 29 3b |t . K%:.|.J%*20);|
|00005280| 41 28 49 25 2c 4a 25 29 | 3b 0d 05 fa 23 e7 20 b4 |A(I%,J%)|;...#. .|
|00005290| 28 42 28 49 25 2c 4a 25 | 29 29 3c 30 3a f1 22 2d |(B(I%,J%|))<0:."-|
|000052a0| 6a 22 3b 3a 20 8b f1 22 | 2b 6a 22 3b 0d 06 04 14 |j";: .."|+j";....|
|000052b0| f1 3b 94 28 42 28 49 25 | 2c 4a 25 29 29 3b 3a ed |.;.(B(I%|,J%));:.|
|000052c0| 0d 06 0e 0e cc 20 f1 3b | 41 28 49 25 29 3b 0d 06 |..... .;|A(I%);..|
|000052d0| 18 20 e7 20 b4 28 42 28 | 49 25 29 29 3c 30 3a f1 |. . .(B(|I%))<0:.|
|000052e0| 22 2d 6a 22 3b 3a 20 8b | f1 22 2b 6a 22 3b 0d 06 |"-j";: .|."+j";..|
|000052f0| 22 0e f1 3b 94 28 42 28 | 49 25 29 29 0d 06 2c 05 |"..;.(B(|I%))..,.|
|00005300| cd 0d 06 36 0f ed 3a f1 | 3a 40 25 3d 61 25 3a e1 |...6..:.|:@%=a%:.|
|00005310| 0d 06 40 30 20 20 20 dd | f2 4d 61 74 43 50 72 6f |..@0 .|.MatCPro|
|00005320| 64 28 41 28 29 2c 42 28 | 29 2c 43 28 29 2c 44 28 |d(A(),B(|),C(),D(|
|00005330| 29 2c 53 74 61 72 74 2c | 45 28 29 2c 46 28 29 29 |),Start,|E(),F())|
|00005340| 0d 06 4a 1f ea 20 49 25 | 2c 4a 25 2c 4b 25 2c 4c |..J.. I%|,J%,K%,L|
|00005350| 25 2c 4d 25 2c 4e 25 2c | 50 2c 51 2c 52 2c 49 0d |%,M%,N%,|P,Q,R,I.|
|00005360| 06 54 22 4c 25 3d 53 74 | 61 72 74 3a e7 de 28 41 |.T"L%=St|art:..(A|
|00005370| 28 29 29 3d 32 3a 4c 25 | 3d de 28 41 28 29 2c 31 |())=2:L%|=.(A(),1|
|00005380| 29 0d 06 5e 0f 4d 25 3d | de 28 43 28 29 2c 31 29 |)..^.M%=|.(C(),1)|
|00005390| 0d 06 68 22 4e 25 3d 53 | 74 61 72 74 3a e7 de 28 |..h"N%=S|tart:..(|
|000053a0| 43 28 29 29 3d 32 3a 4e | 25 3d de 28 43 28 29 2c |C())=2:N|%=.(C(),|
|000053b0| 32 29 0d 06 72 12 e3 49 | 25 3d 53 74 61 72 74 20 |2)..r..I|%=Start |
|000053c0| b8 20 4c 25 0d 06 7c 1a | e3 4a 25 3d 53 74 61 72 |. L%..|.|.J%=Star|
|000053d0| 74 20 b8 20 4e 25 3a 50 | 3d 30 3a 51 3d 30 0d 06 |t . N%:P|=0:Q=0..|
|000053e0| 86 12 e3 4b 25 3d 53 74 | 61 72 74 20 b8 20 4d 25 |...K%=St|art . M%|
|000053f0| 0d 06 90 0a c8 8e 20 b9 | 20 ca 0d 06 9a 39 c9 20 |...... .| ....9. |
|00005400| 4c 25 3d 53 74 61 72 74 | 3a f2 63 78 70 72 6f 64 |L%=Start|:.cxprod|
|00005410| 28 41 28 4b 25 29 2c 42 | 28 4b 25 29 2c 43 28 4b |(A(K%),B|(K%),C(K|
|00005420| 25 2c 4a 25 29 2c 44 28 | 4b 25 2c 4a 25 29 2c 52 |%,J%),D(|K%,J%),R|
|00005430| 2c 49 29 0d 06 a4 39 c9 | 20 4e 25 3d 53 74 61 72 |,I)...9.| N%=Star|
|00005440| 74 3a f2 63 78 70 72 6f | 64 28 41 28 49 25 2c 4b |t:.cxpro|d(A(I%,K|
|00005450| 25 29 2c 42 28 49 25 2c | 4b 25 29 2c 43 28 4b 25 |%),B(I%,|K%),C(K%|
|00005460| 29 2c 44 28 4b 25 29 2c | 52 2c 49 29 0d 06 ae 36 |),D(K%),|R,I)...6|
|00005470| 7f 3a f2 63 78 70 72 6f | 64 28 41 28 49 25 2c 4b |.:.cxpro|d(A(I%,K|
|00005480| 25 29 2c 42 28 49 25 2c | 4b 25 29 2c 43 28 4b 25 |%),B(I%,|K%),C(K%|
|00005490| 2c 4a 25 29 2c 44 28 4b | 25 2c 4a 25 29 2c 52 2c |,J%),D(K|%,J%),R,|
|000054a0| 49 29 0d 06 b8 16 cb 3a | 50 3d 50 2b 52 3a 51 3d |I).....:|P=P+R:Q=|
|000054b0| 51 2b 49 3a ed 20 4b 25 | 0d 06 c2 0a c8 8e 20 b9 |Q+I:. K%|...... .|
|000054c0| 20 ca 0d 06 cc 1e c9 20 | 4c 25 3d 53 74 61 72 74 | ...... |L%=Start|
|000054d0| 3a 45 28 4a 25 29 3d 50 | 3a 46 28 4a 25 29 3d 51 |:E(J%)=P|:F(J%)=Q|
|000054e0| 0d 06 d6 1e c9 20 4e 25 | 3d 53 74 61 72 74 3a 45 |..... N%|=Start:E|
|000054f0| 28 49 25 29 3d 50 3a 46 | 28 49 25 29 3d 51 0d 06 |(I%)=P:F|(I%)=Q..|
|00005500| e0 1b 7f 3a 45 28 49 25 | 2c 4a 25 29 3d 50 3a 46 |...:E(I%|,J%)=P:F|
|00005510| 28 49 25 2c 4a 25 29 3d | 51 0d 06 ea 11 cb 3a ed |(I%,J%)=|Q.....:.|
|00005520| 20 4a 25 3a ed 20 49 25 | 3a e1 0d 06 f4 20 20 20 | J%:. I%|:.... |
|00005530| 20 dd f2 4d 61 74 43 49 | 6e 76 74 28 41 28 29 2c | ..MatCI|nvt(A(),|
|00005540| 42 28 29 2c 53 74 61 72 | 74 29 0d 06 fe 2c ea 20 |B(),Star|t)...,. |
|00005550| 49 25 2c 4a 25 2c 4b 25 | 2c 4e 25 2c 61 25 2c 50 |I%,J%,K%|,N%,a%,P|
|00005560| 2c 51 2c 52 2c 49 2c 53 | 2c 54 3a 4e 25 3d de 28 |,Q,R,I,S|,T:N%=.(|
|00005570| 41 28 29 2c 31 29 0d 07 | 08 2e e3 49 25 3d 53 74 |A(),1)..|...I%=St|
|00005580| 61 72 74 20 b8 20 4e 25 | 3a 50 3d 41 28 49 25 2c |art . N%|:P=A(I%,|
|00005590| 53 74 61 72 74 29 3a 51 | 3d 42 28 49 25 2c 53 74 |Start):Q|=B(I%,St|
|000055a0| 61 72 74 29 0d 07 12 3a | e7 50 3d 30 20 80 20 51 |art)...:|.P=0 . Q|
|000055b0| 3d 30 20 f1 27 22 43 61 | 6e 27 74 20 49 6e 76 65 |=0 .'"Ca|n't Inve|
|000055c0| 72 74 3a 20 53 69 6e 67 | 75 6c 61 72 20 6f 72 20 |rt: Sing|ular or |
|000055d0| 50 69 76 6f 74 20 5a 65 | 72 6f 22 27 3a e1 0d 07 |Pivot Ze|ro"':...|
|000055e0| 1c 11 61 25 3d 40 25 3a | 40 25 3d 26 37 30 42 0d |..a%=@%:|@%=&70B.|
|000055f0| 07 26 3b e3 4a 25 3d 53 | 74 61 72 74 20 b8 20 4e |.&;.J%=S|tart . N|
|00005600| 25 2d 31 3a f2 63 78 71 | 75 6f 74 28 41 28 49 25 |%-1:.cxq|uot(A(I%|
|00005610| 2c 4a 25 2b 31 29 2c 42 | 28 49 25 2c 4a 25 2b 31 |,J%+1),B|(I%,J%+1|
|00005620| 29 2c 50 2c 51 2c 52 2c | 49 29 0d 07 30 1b 41 28 |),P,Q,R,|I)..0.A(|
|00005630| 49 25 2c 4a 25 29 3d 52 | 3a 42 28 49 25 2c 4a 25 |I%,J%)=R|:B(I%,J%|
|00005640| 29 3d 49 3a ed 0d 07 3a | 29 f2 72 65 63 69 70 28 |)=I:...:|).recip(|
|00005650| 50 2c 51 2c 52 2c 49 29 | 3a 41 28 49 25 2c 4e 25 |P,Q,R,I)|:A(I%,N%|
|00005660| 29 3d 52 3a 42 28 49 25 | 2c 4e 25 29 3d 49 0d 07 |)=R:B(I%|,N%)=I..|
|00005670| 44 12 e3 4b 25 3d 53 74 | 61 72 74 20 b8 20 4e 25 |D..K%=St|art . N%|
|00005680| 0d 07 4e 0d e7 4b 25 3c | 3e 49 25 20 8c 0d 07 58 |..N..K%<|>I% ...X|
|00005690| 1f 53 3d 41 28 4b 25 2c | 53 74 61 72 74 29 3a 54 |.S=A(K%,|Start):T|
|000056a0| 3d 42 28 4b 25 2c 53 74 | 61 72 74 29 0d 07 62 37 |=B(K%,St|art)..b7|
|000056b0| e3 4a 25 3d 53 74 61 72 | 74 20 b8 20 4e 25 2d 31 |.J%=Star|t . N%-1|
|000056c0| 3a f2 63 78 70 72 6f 64 | 28 41 28 49 25 2c 4a 25 |:.cxprod|(A(I%,J%|
|000056d0| 29 2c 42 28 49 25 2c 4a | 25 29 2c 53 2c 54 2c 52 |),B(I%,J|%),S,T,R|
|000056e0| 2c 49 29 0d 07 6c 2a f2 | 63 78 64 69 66 66 28 41 |,I)..l*.|cxdiff(A|
|000056f0| 28 4b 25 2c 4a 25 2b 31 | 29 2c 42 28 4b 25 2c 4a |(K%,J%+1|),B(K%,J|
|00005700| 25 2b 31 29 2c 52 2c 49 | 2c 52 2c 49 29 0d 07 76 |%+1),R,I|,R,I)..v|
|00005710| 19 41 28 4b 25 2c 4a 25 | 29 3d 52 3a 42 28 4b 25 |.A(K%,J%|)=R:B(K%|
|00005720| 2c 4a 25 29 3d 49 0d 07 | 80 05 ed 0d 07 8a 26 f2 |,J%)=I..|......&.|
|00005730| 63 78 70 72 6f 64 28 41 | 28 49 25 2c 4e 25 29 2c |cxprod(A|(I%,N%),|
|00005740| 42 28 49 25 2c 4e 25 29 | 2c 53 2c 54 2c 52 2c 49 |B(I%,N%)|,S,T,R,I|
|00005750| 29 0d 07 94 1b 41 28 4b | 25 2c 4e 25 29 3d 2d 52 |)....A(K|%,N%)=-R|
|00005760| 3a 42 28 4b 25 2c 4e 25 | 29 3d 2d 49 0d 07 9e 05 |:B(K%,N%|)=-I....|
|00005770| cd 0d 07 a8 0f ed 3a ed | 3a 40 25 3d 61 25 3a e1 |......:.|:@%=a%:.|
|00005780| 0d ff | |.. | |
+--------+-------------------------+-------------------------+--------+--------+