/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / functions / MathExp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 26 f4 20 3e 20 | 4d 61 74 68 45 78 70 20 |...&. > |MathExp |
|00000010| 20 46 6f 72 20 4d 61 74 | 68 50 72 6f 63 73 20 70 | For Mat|hProcs p|
|00000020| 72 6f 67 72 61 6d 0d 00 | 64 42 eb 33 3a ef 31 34 |rogram..|dB.3:.14|
|00000030| 3a f1 27 22 20 20 20 20 | 20 20 20 20 50 52 4f 47 |:.'"    |    PROG|
|00000040| 52 41 4d 20 20 4d 61 74 | 68 50 72 6f 63 73 20 3a |RAM  Mat|hProcs :|
|00000050| 20 45 78 74 65 6e 64 65 | 64 20 45 78 70 6c 61 6e | Extende|d Explan|
|00000060| 61 74 69 6f 6e 73 22 27 | 0d 00 69 30 f1 22 20 20 |ations"'|..i0."  |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 43 29 |        |     (C)|
|00000080| 20 45 2e 57 2e 41 59 45 | 52 53 20 4d 61 72 63 68 | E.W.AYE|RS March|
|00000090| 20 31 39 39 30 22 27 27 | 0d 00 6e 42 f1 22 4e 2e | 1990"''|..nB."N.|
|000000a0| 42 2e 20 59 6f 75 20 6d | 61 79 20 66 69 6e 64 20 |B. You m|ay find |
|000000b0| 69 74 20 68 65 6c 70 66 | 75 6c 20 74 6f 20 68 61 |it helpf|ul to ha|
|000000c0| 76 65 20 61 20 70 72 69 | 6e 74 6f 75 74 20 6f 66 |ve a pri|ntout of|
|000000d0| 20 74 68 65 20 6c 61 73 | 74 22 0d 00 78 3d f1 22 | the las|t"..x=."|
|000000e0| 70 61 72 74 20 6f 66 20 | 74 68 65 20 27 52 65 61 |part of |the 'Rea|
|000000f0| 64 4d 65 27 20 70 72 6f | 67 72 61 6d 20 61 76 61 |dMe' pro|gram ava|
|00000100| 69 6c 61 62 6c 65 20 66 | 6f 72 20 72 65 66 65 72 |ilable f|or refer|
|00000110| 65 6e 63 65 2e 22 27 0d | 00 82 43 f1 22 54 68 65 |ence."'.|..C."The|
|00000120| 20 77 68 6f 6c 65 20 70 | 72 6f 67 72 61 6d 20 63 | whole p|rogram c|
|00000130| 6f 6d 70 72 69 73 65 73 | 20 31 31 20 46 55 4e 43 |omprises| 11 FUNC|
|00000140| 54 49 4f 4e 53 20 61 6e | 64 20 32 35 20 50 52 4f |TIONS an|d 25 PRO|
|00000150| 43 45 44 55 52 45 53 20 | 3a 22 0d 00 8c 3b f1 22 |CEDURES |:"...;."|
|00000160| 4f 66 20 74 68 65 20 6c | 61 74 74 65 72 2c 20 50 |Of the l|atter, P|
|00000170| 52 4f 43 4d 61 74 68 48 | 65 6c 70 20 77 61 73 20 |ROCMathH|elp was |
|00000180| 75 73 65 64 20 77 69 74 | 68 69 6e 20 27 52 65 61 |used wit|hin 'Rea|
|00000190| 64 4d 65 27 22 0d 00 96 | 3f f1 22 54 68 65 20 6f |dMe'"...|?."The o|
|000001a0| 74 68 65 72 73 20 28 77 | 68 69 63 68 20 63 6f 6d |thers (w|hich com|
|000001b0| 70 6c 65 6d 65 6e 74 20 | 74 68 65 20 6d 61 74 68 |plement |the math|
|000001c0| 65 6d 61 74 69 63 61 6c | 20 6f 70 65 72 61 74 69 |ematical| operati|
|000001d0| 6f 6e 73 22 0d 00 9b 34 | f1 22 73 75 70 70 6c 69 |ons"...4|."suppli|
|000001e0| 65 64 20 62 79 20 42 41 | 53 49 43 20 56 29 20 66 |ed by BA|SIC V) f|
|000001f0| 61 6c 6c 20 69 6e 74 6f | 20 74 68 72 65 65 20 67 |all into| three g|
|00000200| 72 6f 75 70 73 20 3a 22 | 0d 00 a0 40 f1 27 22 20 |roups :"|...@.'" |
|00000210| 20 20 46 55 4e 43 54 49 | 4f 4e 53 2c 20 74 61 6b |  FUNCTI|ONS, tak|
|00000220| 69 6e 67 20 52 45 41 4c | 20 70 61 72 61 6d 65 74 |ing REAL| paramet|
|00000230| 65 72 73 20 61 6e 64 20 | 72 65 74 75 72 6e 69 6e |ers and |returnin|
|00000240| 67 20 6d 61 74 68 73 22 | 0d 00 a5 1e f1 22 20 20 |g maths"|....."  |
|00000250| 20 20 20 20 20 66 75 6e | 63 74 69 6f 6e 20 76 61 |     fun|ction va|
|00000260| 6c 75 65 73 2e 22 0d 00 | aa 3f f1 27 22 20 20 20 |lues."..|.?.'"   |
|00000270| 50 52 4f 43 45 44 55 52 | 45 53 2c 20 73 69 6d 69 |PROCEDUR|ES, simi|
|00000280| 6c 61 72 6c 79 2c 20 62 | 75 74 20 77 69 74 68 20 |larly, b|ut with |
|00000290| 43 4f 4d 50 4c 45 58 20 | 61 72 67 75 6d 65 6e 74 |COMPLEX |argument|
|000002a0| 73 20 69 6e 22 0d 00 b4 | 3d f1 22 20 20 20 20 20 |s in"...|=."     |
|000002b0| 20 20 43 61 72 74 65 73 | 69 61 6e 20 28 41 20 2b |  Cartes|ian (A +|
|000002c0| 20 6a 42 29 20 6f 72 20 | 50 6f 6c 61 72 20 28 7c | jB) or |Polar (||
|000002d0| 4d 7c 2c 20 61 6e 67 6c | 65 20 4c 29 20 66 6f 72 |M|, angl|e L) for|
|000002e0| 6d 22 0d 00 be 42 f1 27 | 22 20 20 20 50 52 4f 43 |m"...B.'|"   PROC|
|000002f0| 45 44 55 52 45 53 2c 20 | 28 61 6e 64 20 61 20 63 |EDURES, |(and a c|
|00000300| 6f 75 70 6c 65 20 6f 66 | 20 46 55 4e 43 54 49 4f |ouple of| FUNCTIO|
|00000310| 4e 53 29 20 68 61 6e 64 | 6c 69 6e 67 20 4d 61 74 |NS) hand|ling Mat|
|00000320| 72 69 78 22 0d 00 c8 46 | f1 22 20 20 20 20 20 20 |rix"...F|."      |
|00000330| 20 28 61 72 72 61 79 29 | 20 6f 70 65 72 61 74 69 | (array)| operati|
|00000340| 6f 6e 73 20 77 69 74 68 | 20 65 69 74 68 65 72 20 |ons with| either |
|00000350| 52 45 41 4c 20 6f 72 20 | 43 4f 4d 50 4c 45 58 20 |REAL or |COMPLEX |
|00000360| 65 6c 65 6d 65 6e 74 73 | 2e 22 0d 00 d2 19 f1 27 |elements|.".....'|
|00000370| 27 22 54 68 65 20 46 55 | 4e 43 54 49 4f 4e 53 20 |'"The FU|NCTIONS |
|00000380| 3a 22 27 0d 00 dc 45 f1 | 22 54 68 65 20 66 69 72 |:"'...E.|"The fir|
|00000390| 73 74 20 73 69 78 20 46 | 55 4e 43 54 49 4f 4e 53 |st six F|UNCTIONS|
|000003a0| 20 73 75 70 70 6c 79 20 | 48 59 50 45 52 42 4f 4c | supply |HYPERBOL|
|000003b0| 49 43 20 66 75 6e 63 74 | 69 6f 6e 73 20 28 53 69 |IC funct|ions (Si|
|000003c0| 6e 68 20 65 74 63 29 22 | 0d 00 e6 3a f1 22 6f 66 |nh etc)"|...:."of|
|000003d0| 20 52 45 41 4c 20 6e 75 | 6d 62 65 72 73 2c 20 61 | REAL nu|mbers, a|
|000003e0| 6e 64 20 74 68 65 69 72 | 20 69 6e 76 65 72 73 65 |nd their| inverse|
|000003f0| 73 20 28 41 72 67 43 6f | 73 68 20 65 2e 67 2e 29 |s (ArgCo|sh e.g.)|
|00000400| 2e 22 0d 00 f0 3f f1 22 | 54 68 65 20 72 65 6d 61 |."...?."|The rema|
|00000410| 69 6e 69 6e 67 20 74 68 | 72 65 65 20 70 72 6f 76 |ining th|ree prov|
|00000420| 69 64 65 20 46 61 63 74 | 6f 72 69 61 6c 73 2c 20 |ide Fact|orials, |
|00000430| 50 65 72 6d 75 74 61 74 | 69 6f 6e 73 20 61 6e 64 |Permutat|ions and|
|00000440| 22 0d 00 fa 43 f1 22 43 | 6f 6d 62 69 6e 61 74 69 |"...C."C|ombinati|
|00000450| 6f 6e 73 2e 20 28 46 61 | 63 74 6f 72 69 61 6c 73 |ons. (Fa|ctorials|
|00000460| 20 61 72 65 20 63 6f 6d | 70 75 74 65 64 20 62 79 | are com|puted by|
|00000470| 20 61 20 6d 6f 64 69 66 | 69 65 64 20 66 6f 72 6d | a modif|ied form|
|00000480| 20 6f 66 22 0d 01 04 46 | f1 22 74 68 65 20 53 74 | of"...F|."the St|
|00000490| 69 72 6c 69 6e 67 20 66 | 6f 72 6d 75 6c 61 20 2d |irling f|ormula -|
|000004a0| 20 6d 75 63 68 20 66 61 | 73 74 65 72 20 74 68 61 | much fa|ster tha|
|000004b0| 6e 20 64 69 72 65 63 74 | 20 6d 75 6c 74 69 70 6c |n direct| multipl|
|000004c0| 69 63 61 74 69 6f 6e 29 | 2e 22 0d 01 0e 48 f1 27 |ication)|."...H.'|
|000004d0| 22 41 73 20 46 55 4e 43 | 54 49 4f 4e 53 20 63 61 |"As FUNC|TIONS ca|
|000004e0| 6e 20 72 65 74 75 72 6e | 20 6f 6e 6c 79 20 6f 6e |n return| only on|
|000004f0| 65 20 70 61 72 61 6d 65 | 74 65 72 20 28 69 6e 20 |e parame|ter (in |
|00000500| 72 65 73 70 6f 6e 73 65 | 20 74 6f 20 27 3d 27 29 |response| to '=')|
|00000510| 2c 22 0d 01 18 44 f1 22 | 50 52 4f 43 45 44 55 52 |,"...D."|PROCEDUR|
|00000520| 45 53 20 68 61 76 65 20 | 74 6f 20 62 65 20 75 73 |ES have |to be us|
|00000530| 65 64 20 66 6f 72 20 74 | 68 65 20 43 4f 4d 50 4c |ed for t|he COMPL|
|00000540| 45 58 20 6e 75 6d 62 65 | 72 20 6f 70 65 72 61 74 |EX numbe|r operat|
|00000550| 69 6f 6e 73 2c 22 0d 01 | 22 42 f1 22 61 6e 64 20 |ions,"..|"B."and |
|00000560| 6f 66 20 63 6f 75 72 73 | 65 20 66 6f 72 20 74 68 |of cours|e for th|
|00000570| 65 20 61 72 72 61 79 20 | 28 4d 41 54 52 49 58 29 |e array |(MATRIX)|
|00000580| 20 6f 70 65 72 61 74 69 | 6f 6e 73 20 28 61 70 61 | operati|ons (apa|
|00000590| 72 74 20 66 72 6f 6d 22 | 0d 01 27 1d f1 22 61 72 |rt from"|..'.."ar|
|000005a0| 72 61 79 20 4d 61 78 20 | 26 20 4d 69 6e 20 62 65 |ray Max |& Min be|
|000005b0| 6c 6f 77 29 22 0d 01 2c | 24 f1 27 22 43 4f 4d 50 |low)"..,|$.'"COMP|
|000005c0| 4c 45 58 20 4e 55 4d 42 | 45 52 20 50 52 4f 43 45 |LEX NUMB|ER PROCE|
|000005d0| 44 55 52 45 53 20 3a 22 | 27 0d 01 36 48 f1 22 54 |DURES :"|'..6H."T|
|000005e0| 68 65 20 66 69 72 73 74 | 20 66 6f 75 72 20 69 6e |he first| four in|
|000005f0| 20 74 68 69 73 20 67 72 | 6f 75 70 20 70 72 6f 76 | this gr|oup prov|
|00000600| 69 64 65 20 74 72 69 67 | 6f 6e 6f 6d 65 74 72 69 |ide trig|onometri|
|00000610| 63 20 61 6e 64 20 68 79 | 70 65 72 62 6f 6c 69 63 |c and hy|perbolic|
|00000620| 22 0d 01 40 47 f1 22 66 | 75 6e 63 74 69 6f 6e 73 |"..@G."f|unctions|
|00000630| 20 28 53 69 6e 2c 20 43 | 6f 73 68 20 65 74 63 29 | (Sin, C|osh etc)|
|00000640| 20 6f 66 20 43 4f 4d 50 | 4c 45 58 20 61 72 67 75 | of COMP|LEX argu|
|00000650| 6d 65 6e 74 73 20 73 75 | 70 70 6c 69 65 64 20 69 |ments su|pplied i|
|00000660| 6e 20 70 6c 61 63 65 22 | 0d 01 4a 42 f1 22 6f 66 |n place"|..JB."of|
|00000670| 20 74 68 65 20 27 64 75 | 6d 6d 79 27 20 70 61 72 | the 'du|mmy' par|
|00000680| 61 6d 65 74 65 72 73 20 | 41 2c 42 2e 20 54 77 6f |ameters |A,B. Two|
|00000690| 20 76 61 72 69 61 62 6c | 65 73 20 73 68 6f 75 6c | variabl|es shoul|
|000006a0| 64 20 61 6c 73 6f 20 62 | 65 22 0d 01 54 46 f1 22 |d also b|e"..TF."|
|000006b0| 73 75 70 70 6c 69 65 64 | 20 66 6f 72 20 74 68 65 |supplied| for the|
|000006c0| 20 52 45 54 55 52 4e 20 | 70 61 72 61 6d 65 74 65 | RETURN |paramete|
|000006d0| 72 73 20 52 2c 49 2e 20 | 54 68 65 20 69 6e 70 75 |rs R,I. |The inpu|
|000006e0| 74 20 76 61 72 69 61 62 | 6c 65 73 20 61 72 65 22 |t variab|les are"|
|000006f0| 0d 01 5e 45 f1 22 70 72 | 65 73 65 72 76 65 64 2e |..^E."pr|eserved.|
|00000700| 20 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 63 | The fol|lowing c|
|00000710| 6f 6d 70 75 74 65 73 20 | 63 6f 73 68 28 61 20 2b |omputes |cosh(a +|
|00000720| 20 6a 62 29 2c 20 77 68 | 65 72 65 20 28 61 20 2b | jb), wh|ere (a +|
|00000730| 20 6a 62 29 22 0d 01 63 | 25 f1 22 69 73 20 67 69 | jb)"..c|%."is gi|
|00000740| 76 65 6e 20 74 68 65 20 | 76 61 6c 75 65 20 28 34 |ven the |value (4|
|00000750| 20 2b 20 6a 37 29 20 3a | 22 27 0d 01 68 32 f1 22 | + j7) :|"'..h2."|
|00000760| 20 20 20 31 30 20 72 65 | 61 6c 20 3d 20 34 3a 20 |   10 re|al = 4: |
|00000770| 69 6d 61 67 20 3d 20 37 | 3a 20 72 6f 75 74 20 3d |imag = 7|: rout =|
|00000780| 30 3a 20 69 6f 75 74 20 | 3d 20 30 22 0d 01 72 2a |0: iout |= 0"..r*|
|00000790| f1 22 20 20 20 32 30 20 | 50 52 4f 43 63 6f 73 68 |."   20 |PROCcosh|
|000007a0| 28 72 65 61 6c 2c 69 6d | 61 67 2c 72 6f 75 74 2c |(real,im|ag,rout,|
|000007b0| 69 6f 75 74 29 22 0d 01 | 7c 45 f1 22 20 20 20 33 |iout)"..||E."   3|
|000007c0| 30 20 50 52 49 4e 54 22 | 22 63 6f 73 68 28 22 22 |0 PRINT"|"cosh(""|
|000007d0| 3b 72 65 61 6c 22 22 20 | 2b 6a 22 22 3b 69 6d 61 |;real"" |+j"";ima|
|000007e0| 67 22 22 29 20 3d 20 22 | 22 3b 72 6f 75 74 22 22 |g"") = "|";rout""|
|000007f0| 20 2b 6a 22 22 3b 69 6f | 75 74 22 0d 01 86 42 f1 | +j"";io|ut"...B.|
|00000800| 27 22 49 66 20 79 6f 75 | 20 72 75 6e 20 74 68 69 |'"If you| run thi|
|00000810| 73 20 57 49 54 48 20 4d | 61 74 68 50 72 6f 63 73 |s WITH M|athProcs|
|00000820| 20 49 4e 53 54 41 4c 4c | 65 64 2c 20 79 6f 75 20 | INSTALL|ed, you |
|00000830| 73 68 6f 75 6c 64 20 67 | 65 74 3a 22 27 0d 01 90 |should g|et:"'...|
|00000840| 32 f1 22 20 20 20 20 63 | 6f 73 68 28 34 20 2b 6a |2."    c|osh(4 +j|
|00000850| 37 29 20 3d 20 32 30 2e | 35 38 37 37 33 38 33 20 |7) = 20.|5877383 |
|00000860| 2b 20 6a 31 37 2e 39 32 | 39 31 30 39 39 22 27 0d |+ j17.92|91099"'.|
|00000870| 01 9a 48 f1 22 54 68 65 | 20 6e 65 78 74 20 66 6f |..H."The| next fo|
|00000880| 75 72 20 70 72 6f 63 73 | 20 74 61 6b 65 20 54 57 |ur procs| take TW|
|00000890| 4f 20 63 6f 6d 70 6c 65 | 78 20 6e 75 6d 62 65 72 |O comple|x number|
|000008a0| 73 20 28 72 65 61 6c 20 | 70 61 72 74 73 20 61 73 |s (real |parts as|
|000008b0| 73 69 67 6e 65 64 22 0d | 01 a4 46 f1 22 74 6f 20 |signed".|..F."to |
|000008c0| 41 2c 43 20 61 6e 64 20 | 69 6d 61 67 69 6e 61 72 |A,C and |imaginar|
|000008d0| 79 20 70 61 72 74 73 20 | 74 6f 20 42 2c 44 29 2c |y parts |to B,D),|
|000008e0| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 73 75 6d 2c | and ret|urn sum,|
|000008f0| 20 64 69 66 66 65 72 65 | 6e 63 65 2c 22 0d 01 ae | differe|nce,"...|
|00000900| 45 f1 22 70 72 6f 64 75 | 63 74 20 6f 72 20 71 75 |E."produ|ct or qu|
|00000910| 6f 74 69 65 6e 74 20 66 | 72 6f 6d 20 74 68 65 20 |otient f|rom the |
|00000920| 27 64 75 6d 6d 69 65 73 | 27 20 52 2c 49 2e 20 54 |'dummies|' R,I. T|
|00000930| 68 65 20 72 65 63 69 70 | 72 6f 63 61 6c 20 61 6e |he recip|rocal an|
|00000940| 64 22 0d 01 b8 42 f1 22 | 73 71 75 61 72 65 20 72 |d"...B."|square r|
|00000950| 6f 6f 74 20 66 75 6e 63 | 74 69 6f 6e 73 20 61 72 |oot func|tions ar|
|00000960| 65 20 6f 62 76 69 6f 75 | 73 2c 20 74 61 6b 69 6e |e obviou|s, takin|
|00000970| 67 20 4f 4e 45 20 69 6e | 70 75 74 20 6e 75 6d 62 |g ONE in|put numb|
|00000980| 65 72 2e 22 0d 01 c2 3e | f1 22 54 68 65 20 74 77 |er."...>|."The tw|
|00000990| 6f 20 72 65 6d 61 69 6e | 69 6e 67 20 70 72 6f 63 |o remain|ing proc|
|000009a0| 65 64 75 72 65 73 20 69 | 6e 20 74 68 69 73 20 67 |edures i|n this g|
|000009b0| 72 6f 75 70 20 63 6f 6e | 76 65 72 74 20 66 72 6f |roup con|vert fro|
|000009c0| 6d 22 0d 01 cc 30 f1 22 | 43 61 72 74 65 73 69 61 |m"...0."|Cartesia|
|000009d0| 6e 20 41 2c 42 20 74 6f | 20 50 6f 6c 61 72 20 4d |n A,B to| Polar M|
|000009e0| 2c 4c 20 6f 72 20 76 69 | 63 65 20 76 65 72 73 61 |,L or vi|ce versa|
|000009f0| 2e 22 0d 01 d6 22 f1 27 | 22 4d 41 54 52 49 58 20 |."...".'|"MATRIX |
|00000a00| 26 20 41 52 52 41 59 20 | 50 52 4f 43 45 44 55 52 |& ARRAY |PROCEDUR|
|00000a10| 45 53 22 27 0d 01 e0 41 | f1 22 41 20 4d 61 74 72 |ES"'...A|."A Matr|
|00000a20| 69 78 20 69 73 20 61 20 | 32 2d 64 69 6d 65 6e 73 |ix is a |2-dimens|
|00000a30| 69 6f 6e 61 6c 20 61 72 | 72 61 79 20 6f 66 20 65 |ional ar|ray of e|
|00000a40| 6c 65 6d 65 6e 74 73 20 | 2d 20 6e 75 6d 65 72 69 |lements |- numeri|
|00000a50| 63 20 6f 72 22 0d 01 ea | 43 f1 22 61 6c 67 65 62 |c or"...|C."algeb|
|00000a60| 72 61 69 63 20 2d 20 61 | 72 72 61 6e 67 65 64 20 |raic - a|rranged |
|00000a70| 69 6e 20 52 4f 57 53 20 | 61 6e 64 20 43 4f 4c 55 |in ROWS |and COLU|
|00000a80| 4d 4e 53 2e 20 44 65 67 | 65 6e 65 72 61 74 65 20 |MNS. Deg|enerate |
|00000a90| 63 61 73 65 73 20 2d 22 | 0d 01 f4 43 f1 22 77 69 |cases -"|...C."wi|
|00000aa0| 74 68 20 6f 6e 6c 79 20 | 31 20 72 6f 77 20 6f 72 |th only |1 row or|
|00000ab0| 20 31 20 63 6f 6c 75 6d | 6e 20 61 72 65 20 63 61 | 1 colum|n are ca|
|00000ac0| 6c 6c 65 64 20 43 4f 4c | 55 4d 4e 20 6f 72 20 52 |lled COL|UMN or R|
|00000ad0| 4f 57 20 56 45 43 54 4f | 52 53 22 0d 01 fe 48 f1 |OW VECTO|RS"...H.|
|00000ae0| 22 49 66 20 74 68 65 20 | 6e 75 6d 62 65 72 73 20 |"If the |numbers |
|00000af0| 6f 66 20 72 6f 77 73 20 | 61 6e 64 20 63 6f 6c 75 |of rows |and colu|
|00000b00| 6d 6e 73 20 61 72 65 20 | 65 71 75 61 6c 20 74 68 |mns are |equal th|
|00000b10| 65 20 6d 61 74 72 69 78 | 20 69 73 20 53 51 55 41 |e matrix| is SQUA|
|00000b20| 52 45 22 0d 02 08 48 f1 | 22 61 6e 64 20 63 61 6e |RE"...H.|"and can|
|00000b30| 20 68 61 76 65 20 61 6e | 20 49 4e 56 45 52 53 45 | have an| INVERSE|
|00000b40| 20 2d 20 70 61 72 74 69 | 63 75 6c 61 72 6c 79 20 | - parti|cularly |
|00000b50| 72 65 6c 65 76 61 6e 74 | 20 74 6f 20 74 68 65 20 |relevant| to the |
|00000b60| 65 78 70 72 65 73 73 69 | 6f 6e 22 0d 02 12 42 f1 |expressi|on"...B.|
|00000b70| 22 61 6e 64 20 73 6f 6c | 75 74 69 6f 6e 20 6f 66 |"and sol|ution of|
|00000b80| 20 73 69 6d 75 6c 74 61 | 6e 65 6f 75 73 20 65 71 | simulta|neous eq|
|00000b90| 75 61 74 69 6f 6e 73 2e | 20 28 53 65 65 20 6c 61 |uations.| (See la|
|00000ba0| 74 65 72 20 65 78 61 6d | 70 6c 65 29 22 0d 02 1c |ter exam|ple)"...|
|00000bb0| 43 f1 27 22 54 68 65 20 | 66 69 72 73 74 20 66 6f |C.'"The |first fo|
|00000bc0| 75 72 20 70 72 6f 63 65 | 64 75 72 65 73 20 69 6e |ur proce|dures in|
|00000bd0| 20 74 68 69 73 20 67 72 | 6f 75 70 20 63 6f 6e 63 | this gr|oup conc|
|00000be0| 65 72 6e 20 6d 61 74 72 | 69 63 65 73 20 69 6e 22 |ern matr|ices in"|
|00000bf0| 0d 02 26 40 f1 22 77 68 | 69 63 68 20 74 68 65 20 |..&@."wh|ich the |
|00000c00| 65 6c 65 6d 65 6e 74 73 | 20 68 61 76 65 20 52 45 |elements| have RE|
|00000c10| 41 4c 20 6e 75 6d 65 72 | 69 63 20 76 61 6c 75 65 |AL numer|ic value|
|00000c20| 73 20 2d 20 74 68 65 72 | 65 20 69 73 20 6e 6f 22 |s - ther|e is no"|
|00000c30| 0d 02 2b 2c f1 22 70 72 | 6f 76 69 73 69 6f 6e 20 |..+,."pr|ovision |
|00000c40| 66 6f 72 20 61 6c 67 65 | 62 72 61 69 63 20 6d 61 |for alge|braic ma|
|00000c50| 6e 69 70 75 6c 61 74 69 | 6f 6e 2e 22 0d 02 30 43 |nipulati|on."..0C|
|00000c60| f1 22 54 68 65 79 20 70 | 72 6f 76 69 64 65 20 66 |."They p|rovide f|
|00000c70| 6f 72 6d 61 74 74 69 6e | 67 20 49 4e 50 55 54 20 |ormattin|g INPUT |
|00000c80| 61 6e 64 20 4f 55 54 50 | 55 54 20 28 50 72 69 6e |and OUTP|UT (Prin|
|00000c90| 74 29 20 66 61 63 69 6c | 69 74 69 65 73 2c 22 0d |t) facil|ities,".|
|00000ca0| 02 3a 42 f1 22 74 72 61 | 6e 73 70 6f 73 69 74 69 |.:B."tra|nspositi|
|00000cb0| 6f 6e 20 6f 66 20 72 6f | 77 73 20 61 6e 64 20 63 |on of ro|ws and c|
|00000cc0| 6f 6c 75 6d 6e 73 2c 20 | 61 6e 64 20 69 6e 76 65 |olumns, |and inve|
|00000cd0| 72 73 69 6f 6e 2e 20 4e | 6f 74 65 20 74 68 61 74 |rsion. N|ote that|
|00000ce0| 22 0d 02 44 41 f1 22 42 | 41 53 49 43 20 56 20 61 |"..DA."B|ASIC V a|
|00000cf0| 6c 72 65 61 64 79 20 70 | 72 6f 76 69 64 65 73 20 |lready p|rovides |
|00000d00| 66 6f 72 20 6d 61 6e 79 | 20 72 65 61 6c 20 6d 61 |for many| real ma|
|00000d10| 74 72 69 78 20 6f 70 65 | 72 61 74 69 6f 6e 73 20 |trix ope|rations |
|00000d20| 2d 22 0d 02 4e 37 f1 22 | 73 75 6d 2c 20 64 69 66 |-"..N7."|sum, dif|
|00000d30| 66 65 72 65 6e 63 65 2c | 20 73 63 61 6c 61 72 20 |ference,| scalar |
|00000d40| 61 6e 64 20 6d 61 74 72 | 69 78 20 70 72 6f 64 75 |and matr|ix produ|
|00000d50| 63 74 73 20 65 74 63 2e | 22 0d 02 51 43 f1 27 22 |cts etc.|"..QC.'"|
|00000d60| 54 68 65 20 70 61 72 61 | 6d 65 74 65 72 20 27 73 |The para|meter 's|
|00000d70| 74 61 72 74 27 20 64 65 | 66 69 6e 65 73 20 74 68 |tart' de|fines th|
|00000d80| 65 20 66 69 72 73 74 20 | 65 6c 65 6d 65 6e 74 2d |e first |element-|
|00000d90| 6e 75 6d 62 65 72 20 2d | 20 69 6e 22 0d 02 53 43 |number -| in"..SC|
|00000da0| f1 22 63 6f 6d 70 75 74 | 65 72 20 75 73 61 67 65 |."comput|er usage|
|00000db0| 20 74 68 65 20 66 69 72 | 73 74 20 65 6c 65 6d 65 | the fir|st eleme|
|00000dc0| 6e 74 20 69 6e 20 61 6e | 20 61 72 72 61 79 20 69 |nt in an| array i|
|00000dd0| 73 20 75 73 75 61 6c 6c | 79 20 23 20 30 2c 22 0d |s usuall|y # 0,".|
|00000de0| 02 55 3d f1 22 77 68 69 | 6c 65 20 69 6e 20 6d 61 |.U=."whi|le in ma|
|00000df0| 74 68 73 20 74 68 65 20 | 66 69 72 73 74 20 72 6f |ths the |first ro|
|00000e00| 77 20 61 6e 64 20 63 6f | 6c 75 6d 6e 20 61 72 65 |w and co|lumn are|
|00000e10| 20 6e 75 6d 62 65 72 65 | 64 20 31 22 0d 02 58 46 | numbere|d 1"..XF|
|00000e20| f1 27 22 4e 65 78 74 20 | 63 6f 6d 65 20 74 77 6f |.'"Next |come two|
|00000e30| 20 46 55 4e 43 54 49 4f | 4e 53 20 74 6f 20 72 65 | FUNCTIO|NS to re|
|00000e40| 74 75 72 6e 20 74 68 65 | 20 4d 61 78 20 61 6e 64 |turn the| Max and|
|00000e50| 20 4d 69 6e 20 76 61 6c | 75 65 73 20 66 6f 75 6e | Min val|ues foun|
|00000e60| 64 22 0d 02 62 46 f1 22 | 69 6e 20 61 20 53 50 45 |d"..bF."|in a SPE|
|00000e70| 43 49 46 49 45 44 20 62 | 6c 6f 63 6b 20 6f 66 20 |CIFIED b|lock of |
|00000e80| 61 6e 20 61 72 72 61 79 | 2c 20 61 6e 64 20 61 20 |an array|, and a |
|00000e90| 50 52 4f 43 45 44 55 52 | 45 20 74 6f 20 74 72 61 |PROCEDUR|E to tra|
|00000ea0| 6e 73 66 65 72 20 61 22 | 0d 02 6c 42 f1 22 73 70 |nsfer a"|..lB."sp|
|00000eb0| 65 63 69 66 69 65 64 20 | 62 6c 6f 63 6b 20 74 6f |ecified |block to|
|00000ec0| 20 61 6e 6f 74 68 65 72 | 20 61 72 72 61 79 2e 20 | another| array. |
|00000ed0| 54 68 65 73 65 20 77 6f | 72 6b 20 6f 6e 6c 79 20 |These wo|rk only |
|00000ee0| 6f 6e 20 61 72 72 61 79 | 73 22 0d 02 76 49 f1 22 |on array|s"..vI."|
|00000ef0| 77 69 74 68 20 52 45 41 | 4c 20 65 6c 65 6d 65 6e |with REA|L elemen|
|00000f00| 74 73 2e 20 50 61 72 61 | 6d 65 74 65 72 73 20 53 |ts. Para|meters S|
|00000f10| 31 2c 45 31 20 64 65 66 | 69 6e 65 20 74 68 65 20 |1,E1 def|ine the |
|00000f20| 73 74 61 72 74 20 61 6e | 64 20 65 6e 64 20 72 6f |start an|d end ro|
|00000f30| 77 73 22 0d 02 80 42 f1 | 22 77 69 74 68 20 53 32 |ws"...B.|"with S2|
|00000f40| 2c 45 32 20 73 69 6d 69 | 6c 61 72 6c 79 20 66 6f |,E2 simi|larly fo|
|00000f50| 72 20 74 68 65 20 63 6f | 6c 75 6d 6e 73 20 6f 66 |r the co|lumns of|
|00000f60| 20 74 68 65 20 72 65 71 | 75 69 72 65 64 20 62 6c | the req|uired bl|
|00000f70| 6f 63 6b 2e 22 0d 02 8a | 3a f1 22 46 6f 72 20 31 |ock."...|:."For 1|
|00000f80| 2d 64 69 6d 65 6e 73 69 | 6f 6e 61 6c 20 61 72 72 |-dimensi|onal arr|
|00000f90| 61 79 73 20 28 56 45 43 | 54 4f 52 53 29 2c 20 73 |ays (VEC|TORS), s|
|00000fa0| 65 74 20 53 32 2c 45 32 | 20 3d 20 2d 31 2e 22 0d |et S2,E2| = -1.".|
|00000fb0| 02 8c 3d f1 27 22 54 68 | 65 73 65 20 61 72 72 61 |..=.'"Th|ese arra|
|00000fc0| 79 2d 73 6c 69 63 69 6e | 67 20 6f 70 65 72 61 74 |y-slicin|g operat|
|00000fd0| 69 6f 6e 73 20 68 61 76 | 65 20 6f 62 76 69 6f 75 |ions hav|e obviou|
|00000fe0| 73 20 75 73 65 73 20 61 | 6c 73 6f 22 0d 02 8e 26 |s uses a|lso"...&|
|00000ff0| f1 22 6f 75 74 73 69 64 | 65 20 74 68 65 20 6d 61 |."outsid|e the ma|
|00001000| 74 68 65 6d 61 74 69 63 | 61 6c 20 66 69 65 6c 64 |thematic|al field|
|00001010| 22 27 0d 02 94 46 f1 22 | 54 68 65 20 66 69 6e 61 |"'...F."|The fina|
|00001020| 6c 20 73 65 74 20 6f 66 | 20 50 52 4f 43 45 44 55 |l set of| PROCEDU|
|00001030| 52 45 53 20 68 61 6e 64 | 6c 65 73 20 61 72 72 61 |RES hand|les arra|
|00001040| 79 73 20 77 69 74 68 20 | 43 4f 4d 50 4c 45 58 20 |ys with |COMPLEX |
|00001050| 65 6c 65 6d 65 6e 74 22 | 0d 02 9e 40 f1 22 76 61 |element"|...@."va|
|00001060| 6c 75 65 73 2e 20 49 74 | 20 69 6e 63 6c 75 64 65 |lues. It| include|
|00001070| 73 20 61 20 6d 61 74 72 | 69 78 20 70 72 6f 64 75 |s a matr|ix produ|
|00001080| 63 74 2c 20 6c 61 63 6b | 69 6e 67 20 69 6e 20 42 |ct, lack|ing in B|
|00001090| 41 53 49 43 20 56 2e 22 | 0d 02 a8 47 f1 22 48 6f |ASIC V."|...G."Ho|
|000010a0| 77 65 76 65 72 20 66 6f | 72 20 53 55 4d 20 61 6e |wever fo|r SUM an|
|000010b0| 64 20 44 49 46 46 45 52 | 45 4e 43 45 20 74 68 65 |d DIFFER|ENCE the|
|000010c0| 20 42 41 53 49 43 20 73 | 74 61 74 65 6d 65 6e 74 | BASIC s|tatement|
|000010d0| 73 20 6d 61 79 20 62 65 | 20 75 73 65 64 2c 22 0d |s may be| used,".|
|000010e0| 02 b2 3a f1 22 61 73 20 | 7c 61 20 2b 20 6a 62 7c |..:."as ||a + jb||
|000010f0| 20 2b 20 7c 63 20 2b 20 | 6a 64 7c 20 3d 20 7c 28 | + |c + |jd| = |(|
|00001100| 61 20 2b 20 63 29 20 2b | 20 6a 28 62 20 2b 20 64 |a + c) +| j(b + d|
|00001110| 29 7c 2c 20 65 74 63 2e | 22 0d 02 bc 43 f1 27 22 |)|, etc.|"...C.'"|
|00001120| 46 6f 72 20 64 65 6d 6f | 6e 73 74 72 61 74 69 6f |For demo|nstratio|
|00001130| 6e 73 20 6f 66 20 73 6f | 6d 65 20 6f 66 20 74 68 |ns of so|me of th|
|00001140| 65 20 6f 70 65 72 61 74 | 69 6f 6e 73 2c 20 67 65 |e operat|ions, ge|
|00001150| 74 20 4d 61 74 68 50 72 | 6f 63 73 22 0d 02 c6 47 |t MathPr|ocs"...G|
|00001160| f1 22 49 4e 53 54 41 4c | 4c 65 64 20 61 73 20 64 |."INSTAL|Led as d|
|00001170| 65 73 63 72 69 62 65 64 | 20 69 6e 20 74 68 65 20 |escribed| in the |
|00001180| 52 65 61 64 4d 65 20 66 | 69 6c 65 2c 20 61 6e 64 |ReadMe f|ile, and|
|00001190| 20 43 48 41 49 4e 20 22 | 22 45 78 61 6d 70 6c 65 | CHAIN "|"Example|
|000011a0| 22 22 22 0d 03 20 0b ef | 33 2c 31 35 3a e0 0d ff |""".. ..|3,15:...|
+--------+-------------------------+-------------------------+--------+--------+