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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 45 | 78 61 6d 70 6c 65 0d 00 |..... >E|xample..|
|00000010| 64 32 eb 20 33 3a f1 27 | 22 45 78 61 6d 70 6c 65 |d2. 3:.'|"Example|
|00000020| 20 3a 20 44 65 6d 6f 6e | 73 74 72 61 74 69 6f 6e | : Demon|stration|
|00000030| 73 20 6f 66 20 4d 61 74 | 68 50 72 6f 63 73 22 27 |s of Mat|hProcs"'|
|00000040| 0d 00 6e 23 f1 22 28 43 | 29 20 45 2e 57 2e 41 59 |..n#."(C|) E.W.AY|
|00000050| 45 52 53 20 3a 20 4d 61 | 72 63 68 20 31 39 39 30 |ERS : Ma|rch 1990|
|00000060| 22 27 27 0d 00 78 2a f1 | 22 4e 2e 42 2e 20 4d 61 |"''..x*.|"N.B. Ma|
|00000070| 74 68 50 72 6f 63 73 20 | 6d 75 73 74 20 62 65 20 |thProcs |must be |
|00000080| 69 6e 20 49 4e 53 54 41 | 4c 4c 65 64 22 0d 00 7d |in INSTA|LLed"..}|
|00000090| 19 f1 27 27 27 22 4b 65 | 79 20 53 50 41 43 45 22 |..'''"Ke|y SPACE"|
|000000a0| 3a e7 20 a5 3a db 0d 00 | 82 3f f1 27 27 22 31 2e |:. .:...|.?.''"1.|
|000000b0| 20 20 44 65 6d 6f 6e 73 | 74 72 61 74 65 20 69 64 |  Demons|trate id|
|000000c0| 65 6e 74 69 74 79 20 3a | 20 43 6f 73 68 28 78 29 |entity :| Cosh(x)|
|000000d0| 5e 32 20 2d 20 53 69 6e | 68 28 78 29 5e 32 20 3d |^2 - Sin|h(x)^2 =|
|000000e0| 31 20 3a 22 27 0d 00 8c | 34 f1 27 22 53 65 74 20 |1 :"'...|4.'"Set |
|000000f0| 43 4f 4d 50 4c 45 58 20 | 78 20 3d 20 61 20 2b 20 |COMPLEX |x = a + |
|00000100| 6a 62 2c 20 61 20 3d 20 | 2e 35 2c 20 62 20 3d 20 |jb, a = |.5, b = |
|00000110| 2e 33 2c 20 73 61 79 22 | 27 0d 00 91 2e f1 22 4e |.3, say"|'....."N|
|00000120| 6f 77 20 75 73 65 20 50 | 52 4f 43 63 6f 73 68 20 |ow use P|ROCcosh |
|00000130| 61 6e 64 20 50 52 4f 43 | 73 69 6e 68 20 74 6f 20 |and PROC|sinh to |
|00000140| 66 69 6e 64 3a 22 27 0d | 00 96 25 f2 63 6f 73 68 |find:"'.|..%.cosh|
|00000150| 28 2e 35 2c 2e 33 2c 55 | 2c 56 29 3a f2 73 69 6e |(.5,.3,U|,V):.sin|
|00000160| 68 28 2e 35 2c 2e 33 2c | 57 2c 58 29 0d 00 a0 1f |h(.5,.3,|W,X)....|
|00000170| f1 22 20 20 20 20 43 6f | 73 68 28 78 29 20 3d 20 |."    Co|sh(x) = |
|00000180| 22 3b 55 22 20 2b 20 6a | 22 3b 56 0d 00 aa 1f f1 |";U" + j|";V.....|
|00000190| 22 20 20 20 20 53 69 6e | 68 28 78 29 20 3d 20 22 |"    Sin|h(x) = "|
|000001a0| 3b 57 22 20 2b 20 6a 22 | 3b 58 0d 00 b4 3d f1 27 |;W" + j"|;X...=.'|
|000001b0| 22 4e 6f 77 20 75 73 65 | 20 50 52 4f 43 63 78 70 |"Now use| PROCcxp|
|000001c0| 72 6f 64 20 74 6f 20 73 | 71 75 61 72 65 20 65 61 |rod to s|quare ea|
|000001d0| 63 68 20 6f 66 20 74 68 | 65 73 65 2c 20 67 69 76 |ch of th|ese, giv|
|000001e0| 69 6e 67 20 3a 22 27 0d | 00 be 2d f2 63 78 70 72 |ing :"'.|..-.cxpr|
|000001f0| 6f 64 28 55 2c 56 2c 55 | 2c 56 2c 55 2c 56 29 3a |od(U,V,U|,V,U,V):|
|00000200| f2 63 78 70 72 6f 64 28 | 57 2c 58 2c 57 2c 58 2c |.cxprod(|W,X,W,X,|
|00000210| 57 2c 58 29 0d 00 c8 15 | f1 22 20 20 20 20 22 3b |W,X)....|."    ";|
|00000220| 55 22 20 2b 20 6a 22 3b | 56 0d 00 cd 15 f1 22 20 |U" + j";|V....." |
|00000230| 20 20 20 22 3b 57 22 20 | 2b 20 6a 22 3b 58 0d 00 |   ";W" |+ j";X..|
|00000240| d2 35 f1 27 22 46 69 6e | 61 6c 6c 79 20 75 73 65 |.5.'"Fin|ally use|
|00000250| 20 50 52 4f 43 63 78 64 | 69 66 66 20 74 6f 20 73 | PROCcxd|iff to s|
|00000260| 75 62 74 72 61 63 74 2c | 20 67 69 76 69 6e 67 20 |ubtract,| giving |
|00000270| 3a 22 27 0d 00 dc 18 f2 | 63 78 64 69 66 66 28 55 |:"'.....|cxdiff(U|
|00000280| 2c 56 2c 57 2c 58 2c 50 | 2c 51 29 0d 00 f0 29 f1 |,V,W,X,P|,Q)...).|
|00000290| 22 43 6f 73 68 28 78 29 | 5e 32 20 2d 20 53 69 6e |"Cosh(x)|^2 - Sin|
|000002a0| 68 28 78 29 5e 32 20 3d | 20 22 3b 50 22 20 2b 20 |h(x)^2 =| ";P" + |
|000002b0| 6a 22 3b 51 0d 00 fa 3f | f1 27 22 54 6f 20 61 6c |j";Q...?|.'"To al|
|000002c0| 6c 20 69 6e 74 65 6e 74 | 73 20 61 6e 64 20 70 75 |l intent|s and pu|
|000002d0| 72 70 6f 73 65 73 2c 20 | 74 68 69 73 20 69 73 20 |rposes, |this is |
|000002e0| 31 20 2b 20 6a 30 20 20 | 2d 20 20 51 2e 45 2e 44 |1 + j0  |-  Q.E.D|
|000002f0| 2e 21 22 0d 01 04 28 f1 | 27 8a 31 35 29 22 4b 65 |.!"...(.|'.15)"Ke|
|00000300| 79 20 53 50 41 43 45 20 | 74 6f 20 63 6f 6e 74 69 |y SPACE |to conti|
|00000310| 6e 75 65 22 27 3a e7 20 | a5 3a db 0d 01 0e 2e f1 |nue"':. |.:......|
|00000320| 27 22 32 2e 20 20 43 6f | 6e 76 65 72 73 69 6f 6e |'"2.  Co|nversion|
|00000330| 20 74 6f 20 50 6f 6c 61 | 72 20 63 6f 6f 72 64 69 | to Pola|r coordi|
|00000340| 6e 61 74 65 73 20 3a 22 | 27 0d 01 18 2b f1 22 53 |nates :"|'...+."S|
|00000350| 65 74 20 61 20 3d 20 33 | 2c 20 62 20 3d 20 34 2c |et a = 3|, b = 4,|
|00000360| 20 61 6e 64 20 75 73 65 | 20 50 52 4f 43 70 6f 6c | and use| PROCpol|
|00000370| 61 72 22 27 0d 01 22 13 | f2 70 6f 6c 61 72 28 33 |ar"'..".|.polar(3|
|00000380| 2c 34 2c 4d 2c 4c 29 0d | 01 2c 3c f1 22 46 69 6e |,4,M,L).|.,<."Fin|
|00000390| 64 20 74 68 61 74 20 4d | 61 67 6e 69 74 75 64 65 |d that M|agnitude|
|000003a0| 20 69 73 20 22 3b 4d 22 | 20 61 6e 64 20 41 6e 67 | is ";M"| and Ang|
|000003b0| 6c 65 20 69 73 20 22 3b | 4c 22 20 64 65 67 72 65 |le is ";|L" degre|
|000003c0| 65 73 22 0d 01 36 2d f1 | 22 49 6e 20 66 61 63 74 |es"..6-.|"In fact|
|000003d0| 2c 20 74 68 65 20 66 61 | 6d 69 6c 69 61 72 20 33 |, the fa|miliar 3|
|000003e0| 2c 34 2c 35 20 74 72 69 | 61 6e 67 6c 65 21 22 27 |,4,5 tri|angle!"'|
|000003f0| 0d 01 3b 18 f1 27 27 22 | 4b 65 79 20 53 50 41 43 |..;..''"|Key SPAC|
|00000400| 45 22 3a e7 20 a5 3a db | 0d 01 40 2d f1 27 22 33 |E":. .:.|..@-.'"3|
|00000410| 2e 20 20 53 6f 6c 76 69 | 6e 67 20 73 69 6d 75 6c |.  Solvi|ng simul|
|00000420| 74 61 6e 65 6f 75 73 20 | 65 71 75 61 74 69 6f 6e |taneous |equation|
|00000430| 73 20 3a 22 27 0d 01 4a | 3d f1 22 53 75 70 70 6f |s :"'..J|=."Suppo|
|00000440| 73 65 20 33 20 65 71 75 | 61 74 69 6f 6e 73 20 66 |se 3 equ|ations f|
|00000450| 6f 72 20 74 68 72 65 65 | 20 75 6e 6b 6e 6f 77 6e |or three| unknown|
|00000460| 73 2c 20 78 31 2c 78 32 | 2c 78 33 20 73 61 79 3a |s, x1,x2|,x3 say:|
|00000470| 22 27 0d 01 54 26 f1 22 | 20 20 33 20 2a 20 78 31 |"'..T&."|  3 * x1|
|00000480| 20 2b 20 36 20 2a 20 78 | 32 20 2b 20 34 20 2a 20 | + 6 * x|2 + 4 * |
|00000490| 78 33 20 3d 20 31 35 22 | 0d 01 57 26 f1 22 20 20 |x3 = 15"|..W&."  |
|000004a0| 32 20 2a 20 78 31 20 2d | 20 34 20 2a 20 78 32 20 |2 * x1 -| 4 * x2 |
|000004b0| 2b 20 32 20 2a 20 78 33 | 20 3d 20 31 30 22 0d 01 |+ 2 * x3| = 10"..|
|000004c0| 5a 26 f1 22 20 20 35 20 | 2a 20 78 31 20 2b 20 33 |Z&."  5 |* x1 + 3|
|000004d0| 20 2a 20 78 32 20 2b 20 | 33 20 2a 20 78 33 20 3d | * x2 + |3 * x3 =|
|000004e0| 20 32 30 22 0d 01 5b 3c | f1 27 22 49 6e 20 4d 61 | 20"..[<|.'"In Ma|
|000004f0| 74 72 69 78 20 6e 6f 74 | 61 74 69 6f 6e 20 74 68 |trix not|ation th|
|00000500| 69 73 20 6d 61 79 20 62 | 65 20 77 72 69 74 74 65 |is may b|e writte|
|00000510| 6e 20 7c 50 7c 2e 7c 78 | 7c 20 3d 20 7c 51 7c 22 |n |P|.|x|| = |Q|"|
|00000520| 0d 01 5c 33 f1 22 20 20 | 20 77 68 65 72 65 20 7c |..\3."  | where ||
|00000530| 50 7c 2c 7c 78 7c 2c 7c | 51 7c 20 61 72 65 20 33 |P|,|x|,||Q| are 3|
|00000540| 78 33 2c 33 78 31 2c 33 | 78 31 20 61 72 72 61 79 |x3,3x1,3|x1 array|
|00000550| 73 2e 22 0d 01 5d 36 f1 | 22 54 68 65 73 65 20 6d |s."..]6.|"These m|
|00000560| 75 73 74 20 62 65 20 44 | 49 4d 45 4e 53 49 4f 4e |ust be D|IMENSION|
|00000570| 45 44 2c 20 61 6e 64 20 | 76 61 6c 75 65 73 20 61 |ED, and |values a|
|00000580| 73 73 69 67 6e 65 64 3a | 22 0d 01 5e 46 f1 22 50 |ssigned:|"..^F."P|
|00000590| 28 29 20 68 6f 6c 64 73 | 20 74 68 65 20 63 6f 65 |() holds| the coe|
|000005a0| 66 66 69 63 69 65 6e 74 | 73 20 6f 66 20 74 68 65 |fficient|s of the|
|000005b0| 20 78 27 73 2c 20 51 28 | 29 20 68 6f 6c 64 73 20 | x's, Q(|) holds |
|000005c0| 74 68 65 20 52 48 53 20 | 76 61 6c 75 65 73 22 0d |the RHS |values".|
|000005d0| 01 60 41 f1 22 53 6f 20 | 50 28 31 2c 31 29 3d 33 |.`A."So |P(1,1)=3|
|000005e0| 2c 50 28 31 2c 32 29 3d | 36 2e 2e 20 50 28 33 2c |,P(1,2)=|6.. P(3,|
|000005f0| 31 29 3d 35 2e 2e 2c 20 | 51 28 31 29 3d 31 35 2c |1)=5.., |Q(1)=15,|
|00000600| 51 28 32 29 3d 31 30 2c | 51 28 33 29 3d 32 30 22 |Q(2)=10,|Q(3)=20"|
|00000610| 0d 01 63 39 f1 22 54 68 | 65 20 76 61 6c 75 65 73 |..c9."Th|e values|
|00000620| 20 66 6f 72 20 78 28 29 | 20 61 72 65 20 6f 66 20 | for x()| are of |
|00000630| 63 6f 75 72 73 65 20 74 | 6f 20 62 65 20 73 6f 6c |course t|o be sol|
|00000640| 76 65 64 20 66 6f 72 3a | 22 0d 01 68 31 f1 27 22 |ved for:|"..h1.'"|
|00000650| 54 68 65 20 73 6f 6c 75 | 74 69 6f 6e 20 69 73 20 |The solu|tion is |
|00000660| 67 69 76 65 6e 20 62 79 | 20 7c 78 7c 20 3d 20 49 |given by| |x| = I|
|00000670| 4e 56 7c 50 7c 2e 7c 51 | 7c 22 0d 01 6d 40 f1 22 |NV|P|.|Q||"..m@."|
|00000680| 20 20 20 77 68 65 72 65 | 20 49 4e 56 7c 50 7c 20 |   where| INV|P| |
|00000690| 73 74 61 6e 64 73 20 66 | 6f 72 20 74 68 65 20 49 |stands f|or the I|
|000006a0| 4e 56 45 52 53 45 20 6f | 66 20 74 68 65 20 6d 61 |NVERSE o|f the ma|
|000006b0| 74 72 69 78 20 7c 50 7c | 22 27 0d 01 72 45 f1 22 |trix |P||"'..rE."|
|000006c0| 4c 49 53 54 20 74 68 65 | 20 70 72 6f 67 72 61 6d |LIST the| program|
|000006d0| 20 74 6f 20 69 6e 73 70 | 65 63 74 20 74 68 65 20 | to insp|ect the |
|000006e0| 77 6f 72 6b 69 6e 67 2c | 20 77 68 69 63 68 20 79 |working,| which y|
|000006f0| 69 65 6c 64 73 20 76 61 | 6c 75 65 73 20 3a 22 0d |ields va|lues :".|
|00000700| 01 77 0a f2 73 69 6d 75 | 6c 0d 01 7c 35 f1 27 22 |.w..simu|l..|5.'"|
|00000710| 20 78 31 20 3d 20 22 3b | 78 28 31 29 22 20 20 78 | x1 = ";|x(1)"  x|
|00000720| 32 20 3d 20 22 3b 78 28 | 32 29 22 20 20 61 6e 64 |2 = ";x(|2)"  and|
|00000730| 20 20 78 33 20 3d 20 22 | 3b 78 28 33 29 27 0d 01 |  x3 = "|;x(3)'..|
|00000740| 86 44 f1 22 59 6f 75 20 | 63 61 6e 20 63 68 65 63 |.D."You |can chec|
|00000750| 6b 20 74 68 69 73 20 62 | 79 20 73 75 62 73 74 69 |k this b|y substi|
|00000760| 74 75 74 69 6e 67 20 69 | 6e 20 74 68 65 20 6f 72 |tuting i|n the or|
|00000770| 69 67 69 6e 61 6c 20 65 | 71 75 61 74 69 6f 6e 73 |iginal e|quations|
|00000780| 2e 22 0d 01 f4 05 e0 0d | 03 e8 1e dd f2 73 69 6d |."......|.....sim|
|00000790| 75 6c 3a de 20 50 28 33 | 2c 33 29 2c 51 28 33 29 |ul:. P(3|,3),Q(3)|
|000007a0| 2c 78 28 33 29 0d 03 f2 | 3a 50 28 31 2c 31 29 3d |,x(3)...|:P(1,1)=|
|000007b0| 33 3a 50 28 31 2c 32 29 | 3d 36 3a 50 28 31 2c 33 |3:P(1,2)|=6:P(1,3|
|000007c0| 29 3d 34 3a 50 28 32 2c | 31 29 3d 32 3a 50 28 32 |)=4:P(2,|1)=2:P(2|
|000007d0| 2c 32 29 3d 2d 34 3a 50 | 28 32 2c 33 29 3d 32 0d |,2)=-4:P|(2,3)=2.|
|000007e0| 03 fc 1e 50 28 33 2c 31 | 29 3d 35 3a 50 28 33 2c |...P(3,1|)=5:P(3,|
|000007f0| 32 29 3d 33 3a 50 28 33 | 2c 33 29 3d 33 0d 04 06 |2)=3:P(3|,3)=3...|
|00000800| 1b 51 28 31 29 3d 31 35 | 3a 51 28 32 29 3d 31 30 |.Q(1)=15|:Q(2)=10|
|00000810| 3a 51 28 33 29 3d 32 30 | 0d 04 10 13 f2 4d 61 74 |:Q(3)=20|.....Mat|
|00000820| 49 6e 76 74 28 50 28 29 | 2c 31 29 0d 04 1a 0f 78 |Invt(P()|,1)....x|
|00000830| 28 29 3d 50 28 29 2e 51 | 28 29 0d 04 24 05 e1 0d |()=P().Q|()..$...|
|00000840| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+