/ Garbo / Garbo.cdr / mac / progrmng / mlpmodul.sit / MacLogimoPlus Documentation / sample code / Simulation.MOD

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 53 69 6d 75 6c 61 | 74 69 6f 6e 2e 4d 4f 44 |..Simula|tion.MOD|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4d 45 | 44 01 00 00 00 00 00 00 |.TEXTPME|D.......|
|00000050| 00 00 00 00 00 14 e3 00 | 00 01 5c a2 9c a7 1d a2 |........|..\.....|
|00000060| 9c a7 1d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 66 0c 00 00 |........|....f...|
|00000080| 4d 4f 44 55 4c 45 20 53 | 69 6d 75 6c 61 74 69 6f |MODULE S|imulatio|
|00000090| 6e 3b 20 28 2a 20 4c 69 | 6e 6f 20 47 75 7a 7a 65 |n; (* Li|no Guzze|
|000000a0| 6c 6c 61 20 2f 20 30 32 | 2e 30 39 2e 38 35 20 2f |lla / 02|.09.85 /|
|000000b0| 20 45 54 48 5a 20 41 62 | 74 20 33 41 20 2a 29 0d | ETHZ Ab|t 3A *).|
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 20 20 20 28 2a 20 6c 61 | 73 74 20 6d 6f 64 69 66 |   (* la|st modif|
|000000e0| 69 65 64 20 20 30 34 2e | 30 39 2e 38 35 20 66 78 |ied  04.|09.85 fx|
|000000f0| 6b 20 2a 29 0d 28 2a 20 | 53 69 6d 75 6c 61 74 65 |k *).(* |Simulate|
|00000100| 73 20 61 20 73 79 73 74 | 65 6d 20 6f 66 20 6e 20 |s a syst|em of n |
|00000110| 6f 72 64 69 6e 61 6c 20 | 64 69 66 66 65 72 65 6e |ordinal |differen|
|00000120| 74 69 61 6c 20 65 71 75 | 61 74 69 6f 6e 73 20 2a |tial equ|ations *|
|00000130| 29 0d 20 20 20 20 20 20 | 20 0d 46 52 4f 4d 20 4d |).      | .FROM M|
|00000140| 61 74 68 4c 69 62 30 20 | 20 49 4d 50 4f 52 54 20 |athLib0 | IMPORT |
|00000150| 73 69 6e 2c 63 6f 73 2c | 73 71 72 74 2c 65 6e 74 |sin,cos,|sqrt,ent|
|00000160| 69 65 72 3b 0d 46 52 4f | 4d 20 4d 61 74 68 4c 69 |ier;.FRO|M MathLi|
|00000170| 62 31 20 49 4d 50 4f 52 | 54 20 72 61 6e 64 6f 6d |b1 IMPOR|T random|
|00000180| 3b 0d 46 52 4f 4d 20 54 | 65 72 6d 69 6e 61 6c 20 |;.FROM T|erminal |
|00000190| 49 4d 50 4f 52 54 20 57 | 72 69 74 65 53 74 72 69 |IMPORT W|riteStri|
|000001a0| 6e 67 2c 52 65 61 64 2c | 47 6f 74 6f 58 59 2c 43 |ng,Read,|GotoXY,C|
|000001b0| 6c 65 61 72 54 65 72 6d | 69 6e 61 6c 3b 0d 46 52 |learTerm|inal;.FR|
|000001c0| 4f 4d 20 52 65 61 6c 54 | 65 72 6d 69 6e 61 6c 20 |OM RealT|erminal |
|000001d0| 49 4d 50 4f 52 54 20 52 | 65 61 64 52 2c 57 72 69 |IMPORT R|eadR,Wri|
|000001e0| 74 65 52 2c 52 46 6f 72 | 6d 61 74 3b 0d 46 52 4f |teR,RFor|mat;.FRO|
|000001f0| 4d 20 4f 75 74 54 65 72 | 6d 69 6e 61 6c 20 49 4d |M OutTer|minal IM|
|00000200| 50 4f 52 54 20 57 72 69 | 74 65 49 3b 0d 46 52 4f |PORT Wri|teI;.FRO|
|00000210| 4d 20 51 75 69 63 6b 44 | 72 61 77 20 49 4d 50 4f |M QuickD|raw IMPO|
|00000220| 52 54 20 4d 6f 76 65 54 | 6f 2c 4c 69 6e 65 54 6f |RT MoveT|o,LineTo|
|00000230| 2c 47 65 74 50 6f 72 74 | 2c 53 65 74 50 6f 72 74 |,GetPort|,SetPort|
|00000240| 2c 47 72 61 66 50 74 72 | 2c 53 65 74 52 65 63 74 |,GrafPtr|,SetRect|
|00000250| 3b 0d 46 52 4f 4d 20 53 | 59 53 54 45 4d 20 49 4d |;.FROM S|YSTEM IM|
|00000260| 50 4f 52 54 20 41 44 52 | 3b 0d 46 52 4f 4d 20 4f |PORT ADR|;.FROM O|
|00000270| 53 74 72 69 6e 67 73 20 | 49 4d 50 4f 52 54 20 6d |Strings |IMPORT m|
|00000280| 6b 52 65 66 31 3b 0d 46 | 52 4f 4d 20 66 78 57 69 |kRef1;.F|ROM fxWi|
|00000290| 6e 64 6f 77 73 20 49 4d | 50 4f 52 54 20 57 69 6e |ndows IM|PORT Win|
|000002a0| 64 6f 77 50 74 72 2c 61 | 6c 6c 6f 63 61 74 65 57 |dowPtr,a|llocateW|
|000002b0| 69 6e 64 6f 77 2c 64 65 | 61 6c 6c 6f 63 61 74 65 |indow,de|allocate|
|000002c0| 57 69 6e 64 6f 77 2c 64 | 65 66 61 75 6c 74 53 65 |Window,d|efaultSe|
|000002d0| 74 75 70 2c 0d 20 20 20 | 20 20 20 20 20 20 20 20 |tup,.   |        |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 77 44 65 66 52 |        |   wDefR|
|000002f0| 65 63 2c 77 44 65 66 50 | 74 72 3b 0d 46 52 4f 4d |ec,wDefP|tr;.FROM|
|00000300| 20 4d 65 6d 6f 72 79 4d | 67 72 20 49 4d 50 4f 52 | MemoryM|gr IMPOR|
|00000310| 54 20 4e 65 77 50 74 72 | 3b 0d 46 52 4f 4d 20 44 |T NewPtr|;.FROM D|
|00000320| 65 76 69 63 65 4d 67 72 | 20 49 4d 50 4f 52 54 20 |eviceMgr| IMPORT |
|00000330| 44 72 69 76 65 72 4f 70 | 65 6e 2c 44 72 69 76 65 |DriverOp|en,Drive|
|00000340| 72 43 6c 6f 73 65 2c 44 | 72 69 76 65 72 43 6f 6e |rClose,D|riverCon|
|00000350| 74 72 6f 6c 2c 4f 70 50 | 61 72 61 6d 54 79 70 65 |trol,OpP|aramType|
|00000360| 2c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,.      |        |
|00000370| 20 20 20 20 20 20 20 20 | 4f 70 50 61 72 61 6d 50 |        |OpParamP|
|00000380| 74 72 3b 0d 46 52 4f 4d | 20 4f 53 74 72 69 6e 67 |tr;.FROM| OString|
|00000390| 73 20 20 49 4d 50 4f 52 | 54 20 6d 6b 4f 53 74 72 |s  IMPOR|T mkOStr|
|000003a0| 2c 4f 53 74 72 31 35 3b | 0d 0d 43 4f 4e 53 54 0d |,OStr15;|..CONST.|
|000003b0| 20 20 6e 20 3d 20 35 3b | 0d 20 20 6d 20 3d 20 32 |  n = 5;|.  m = 2|
|000003c0| 3b 0d 0d 54 59 50 45 0d | 20 20 56 65 63 74 6f 72 |;..TYPE.|  Vector|
|000003d0| 31 20 3d 20 41 52 52 41 | 59 5b 31 2e 2e 6e 5d 20 |1 = ARRA|Y[1..n] |
|000003e0| 4f 46 20 52 45 41 4c 3b | 0d 20 20 56 65 63 74 6f |OF REAL;|.  Vecto|
|000003f0| 72 32 20 3d 20 41 52 52 | 41 59 5b 31 2e 2e 6d 5d |r2 = ARR|AY[1..m]|
|00000400| 20 4f 46 20 52 45 41 4c | 3b 0d 20 0d 20 20 0d 56 | OF REAL|;. .  .V|
|00000410| 41 52 0d 20 20 78 2c 78 | 61 6c 74 20 3a 20 56 65 |AR.  x,x|alt : Ve|
|00000420| 63 74 6f 72 31 3b 0d 20 | 20 73 2c 73 61 6c 74 20 |ctor1;. | s,salt |
|00000430| 3a 20 56 65 63 74 6f 72 | 32 3b 0d 20 20 74 2c 74 |: Vector|2;.  t,t|
|00000440| 61 6c 74 2c 74 66 69 6e | 61 6c 2c 64 65 6c 74 61 |alt,tfin|al,delta|
|00000450| 2c 64 31 2c 64 32 20 3a | 20 52 45 41 4c 3b 0d 20 |,d1,d2 :| REAL;. |
|00000460| 20 69 2c 6a 2c 67 72 61 | 70 68 78 2c 67 72 61 70 | i,j,gra|phx,grap|
|00000470| 68 79 2c 72 65 66 6e 75 | 6d 62 65 72 2c 65 72 72 |hy,refnu|mber,err|
|00000480| 6f 72 20 3a 20 49 4e 54 | 45 47 45 52 3b 0d 20 20 |or : INT|EGER;.  |
|00000490| 70 20 3a 20 4f 70 50 61 | 72 61 6d 50 74 72 3b 0d |p : OpPa|ramPtr;.|
|000004a0| 20 20 50 74 6f 50 61 73 | 53 74 72 20 3a 20 50 4f |  PtoPas|Str : PO|
|000004b0| 49 4e 54 45 52 20 54 4f | 20 4f 53 74 72 31 35 3b |INTER TO| OStr15;|
|000004c0| 0d 20 20 63 68 20 3a 20 | 43 48 41 52 3b 0d 20 20 |.  ch : |CHAR;.  |
|000004d0| 73 61 76 65 50 6f 72 74 | 3a 47 72 61 66 50 74 72 |savePort|:GrafPtr|
|000004e0| 3b 0d 20 20 53 69 6d 75 | 6c 61 74 69 6f 6e 57 69 |;.  Simu|lationWi|
|000004f0| 6e 64 6f 77 3a 57 69 6e | 64 6f 77 50 74 72 3b 20 |ndow:Win|dowPtr; |
|00000500| 53 65 74 75 70 3a 77 44 | 65 66 50 74 72 3b 20 53 |Setup:wD|efPtr; S|
|00000510| 65 74 75 70 56 61 72 3a | 77 44 65 66 52 65 63 3b |etupVar:|wDefRec;|
|00000520| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 66 75 6e 20 |..PROCED|URE fun |
|00000530| 28 56 41 52 20 66 78 3a | 56 65 63 74 6f 72 31 3b |(VAR fx:|Vector1;|
|00000540| 56 41 52 20 73 3a 56 65 | 63 74 6f 72 32 3b 78 3a |VAR s:Ve|ctor2;x:|
|00000550| 56 65 63 74 6f 72 31 3b | 74 2c 64 31 2c 64 32 3a |Vector1;|t,d1,d2:|
|00000560| 52 45 41 4c 3b 6e 3a 49 | 4e 54 45 47 45 52 29 3b |REAL;n:I|NTEGER);|
|00000570| 0d 0d 56 41 52 20 0d 20 | 20 72 20 3a 20 41 52 52 |..VAR . | r : ARR|
|00000580| 41 59 5b 31 2e 2e 34 5d | 20 4f 46 20 52 45 41 4c |AY[1..4]| OF REAL|
|00000590| 3b 0d 20 20 75 31 2c 75 | 32 2c 73 31 2c 73 32 2c |;.  u1,u|2,s1,s2,|
|000005a0| 78 62 20 3a 20 52 45 41 | 4c 3b 0d 20 20 69 20 3a |xb : REA|L;.  i :|
|000005b0| 20 49 4e 54 45 47 45 52 | 3b 0d 0d 42 45 47 49 4e | INTEGER|;..BEGIN|
|000005c0| 0d 20 20 73 5b 31 5d 3a | 3d 20 78 5b 31 5d 20 2b |.  s[1]:|= x[1] +|
|000005d0| 20 32 2e 30 20 2a 20 78 | 5b 32 5d 20 2b 20 78 5b | 2.0 * x|[2] + x[|
|000005e0| 33 5d 3b 0d 20 20 73 5b | 32 5d 3a 3d 20 78 5b 34 |3];.  s[|2]:= x[4|
|000005f0| 5d 20 2b 20 78 5b 35 5d | 3b 0d 20 20 78 62 3a 3d |] + x[5]|;.  xb:=|
|00000600| 20 73 71 72 74 28 78 5b | 31 5d 2a 78 5b 31 5d 20 | sqrt(x[|1]*x[1] |
|00000610| 2b 20 78 5b 32 5d 2a 78 | 5b 32 5d 2b 20 78 5b 33 |+ x[2]*x|[2]+ x[3|
|00000620| 5d 2a 78 5b 33 5d 2b 20 | 78 5b 34 5d 2a 78 5b 34 |]*x[3]+ |x[4]*x[4|
|00000630| 5d 2b 20 78 5b 35 5d 2a | 78 5b 35 5d 29 3b 0d 20 |]+ x[5]*|x[5]);. |
|00000640| 0d 20 20 49 46 20 73 5b | 31 5d 20 3e 20 30 2e 30 |.  IF s[|1] > 0.0|
|00000650| 20 54 48 45 4e 20 75 31 | 3a 3d 20 78 5b 31 5d 20 | THEN u1|:= x[1] |
|00000660| 2b 20 78 5b 32 5d 20 2b | 20 78 5b 33 5d 20 2d 20 |+ x[2] +| x[3] - |
|00000670| 78 5b 34 5d 20 2d 20 64 | 31 20 2a 20 78 62 20 0d |x[4] - d|1 * xb .|
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4c |        |      EL|
|00000690| 53 45 20 75 31 3a 3d 20 | 78 5b 31 5d 20 2b 20 78 |SE u1:= |x[1] + x|
|000006a0| 5b 32 5d 20 2b 20 78 5b | 33 5d 20 2d 20 78 5b 34 |[2] + x[|3] - x[4|
|000006b0| 5d 20 2b 20 64 31 20 2a | 20 78 62 20 0d 20 20 45 |] + d1 *| xb .  E|
|000006c0| 4e 44 3b 0d 0d 20 20 49 | 46 20 73 5b 32 5d 20 3e |ND;..  I|F s[2] >|
|000006d0| 20 30 2e 30 20 54 48 45 | 4e 20 75 32 3a 3d 20 2d | 0.0 THE|N u2:= -|
|000006e0| 78 5b 31 5d 20 2d 20 78 | 5b 33 5d 20 2b 20 32 2e |x[1] - x|[3] + 2.|
|000006f0| 30 20 2a 20 78 5b 34 5d | 20 2d 20 32 2e 30 20 2a |0 * x[4]| - 2.0 *|
|00000700| 20 78 5b 35 5d 20 2d 20 | 64 32 20 2a 20 78 62 20 | x[5] - |d2 * xb |
|00000710| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 |.       |       E|
|00000720| 4c 53 45 20 75 32 3a 3d | 20 2d 78 5b 31 5d 20 2d |LSE u2:=| -x[1] -|
|00000730| 20 78 5b 33 5d 20 2b 20 | 32 2e 30 20 2a 20 78 5b | x[3] + |2.0 * x[|
|00000740| 34 5d 20 2d 20 32 2e 30 | 20 2a 20 78 5b 35 5d 20 |4] - 2.0| * x[5] |
|00000750| 2b 20 64 32 20 2a 20 78 | 62 20 0d 20 20 45 4e 44 |+ d2 * x|b .  END|
|00000760| 3b 0d 20 20 0d 20 20 72 | 5b 31 5d 3a 3d 20 63 6f |;.  .  r|[1]:= co|
|00000770| 73 28 31 34 2e 30 2a 74 | 29 3b 0d 20 20 72 5b 32 |s(14.0*t|);.  r[2|
|00000780| 5d 3a 3d 20 2d 72 5b 31 | 5d 3b 0d 20 20 72 5b 33 |]:= -r[1|];.  r[3|
|00000790| 5d 3a 3d 20 30 2e 35 2a | 63 6f 73 28 31 39 2e 30 |]:= 0.5*|cos(19.0|
|000007a0| 2a 74 29 3b 0d 20 20 72 | 5b 34 5d 3a 3d 20 2d 30 |*t);.  r|[4]:= -0|
|000007b0| 2e 35 2a 72 5b 33 5d 3b | 0d 0d 20 20 66 78 5b 31 |.5*r[3];|..  fx[1|
|000007c0| 5d 20 3a 3d 20 78 5b 32 | 5d 3b 0d 20 20 66 78 5b |] := x[2|];.  fx[|
|000007d0| 32 5d 20 3a 3d 20 78 5b | 33 5d 3b 0d 20 20 66 78 |2] := x[|3];.  fx|
|000007e0| 5b 33 5d 20 3a 3d 20 28 | 2d 31 2e 30 2b 72 5b 33 |[3] := (|-1.0+r[3|
|000007f0| 5d 29 2a 78 5b 31 5d 2d | 32 2e 30 2a 78 5b 32 5d |])*x[1]-|2.0*x[2]|
|00000800| 2b 28 72 5b 31 5d 2d 33 | 2e 30 29 2a 78 5b 33 5d |+(r[1]-3|.0)*x[3]|
|00000810| 2b 28 31 2e 30 2b 72 5b | 34 5d 29 2a 78 5b 34 5d |+(1.0+r[|4])*x[4]|
|00000820| 2b 72 5b 32 5d 2a 78 5b | 35 5d 2b 28 31 2e 30 2b |+r[2]*x[|5]+(1.0+|
|00000830| 72 5b 33 5d 29 2a 75 31 | 2b 72 5b 34 5d 2a 75 32 |r[3])*u1|+r[4]*u2|
|00000840| 3b 0d 20 20 66 78 5b 34 | 5d 20 3a 3d 20 78 5b 35 |;.  fx[4|] := x[5|
|00000850| 5d 3b 0d 20 20 66 78 5b | 35 5d 20 3a 3d 20 28 31 |];.  fx[|5] := (1|
|00000860| 2e 30 2b 72 5b 32 5d 29 | 2a 78 5b 31 5d 2b 28 31 |.0+r[2])|*x[1]+(1|
|00000870| 2e 30 2b 72 5b 33 5d 29 | 2a 78 5b 33 5d 2b 28 72 |.0+r[3])|*x[3]+(r|
|00000880| 5b 34 5d 2d 32 2e 30 29 | 2a 78 5b 34 5d 2b 28 31 |[4]-2.0)|*x[4]+(1|
|00000890| 2e 30 2b 72 5b 31 5d 29 | 2a 78 5b 35 5d 2b 28 31 |.0+r[1])|*x[5]+(1|
|000008a0| 2e 30 2b 72 5b 33 5d 29 | 2a 75 32 3b 0d 0d 45 4e |.0+r[3])|*u2;..EN|
|000008b0| 44 20 66 75 6e 3b 0d 0d | 0d 50 52 4f 43 45 44 55 |D fun;..|.PROCEDU|
|000008c0| 52 45 20 73 74 65 70 28 | 56 41 52 20 78 3a 56 65 |RE step(|VAR x:Ve|
|000008d0| 63 74 6f 72 31 3b 56 41 | 52 20 73 3a 56 65 63 74 |ctor1;VA|R s:Vect|
|000008e0| 6f 72 32 3b 64 65 6c 74 | 61 2c 74 2c 64 31 2c 64 |or2;delt|a,t,d1,d|
|000008f0| 32 3a 52 45 41 4c 3b 6e | 3a 49 4e 54 45 47 45 52 |2:REAL;n|:INTEGER|
|00000900| 29 3b 0d 56 41 52 0d 20 | 20 78 61 75 78 2c 64 78 |);.VAR. | xaux,dx|
|00000910| 31 2c 64 78 32 2c 64 78 | 33 2c 64 78 34 3a 56 65 |1,dx2,dx|3,dx4:Ve|
|00000920| 63 74 6f 72 31 3b 0d 20 | 20 74 6c 6f 63 61 6c 20 |ctor1;. | tlocal |
|00000930| 3a 20 52 45 41 4c 3b 0d | 20 20 69 20 3a 20 49 4e |: REAL;.|  i : IN|
|00000940| 54 45 47 45 52 3b 0d 42 | 45 47 49 4e 0d 20 20 74 |TEGER;.B|EGIN.  t|
|00000950| 6c 6f 63 61 6c 3a 3d 20 | 74 3b 0d 20 20 46 4f 52 |local:= |t;.  FOR|
|00000960| 20 69 3a 3d 20 31 20 54 | 4f 20 6e 20 44 4f 20 78 | i:= 1 T|O n DO x|
|00000970| 61 75 78 5b 69 5d 3a 3d | 20 78 5b 69 5d 20 45 4e |aux[i]:=| x[i] EN|
|00000980| 44 3b 0d 20 20 66 75 6e | 28 64 78 31 2c 73 2c 78 |D;.  fun|(dx1,s,x|
|00000990| 61 75 78 2c 74 6c 6f 63 | 61 6c 2c 64 31 2c 64 32 |aux,tloc|al,d1,d2|
|000009a0| 2c 6e 29 3b 0d 20 20 74 | 6c 6f 63 61 6c 3a 3d 20 |,n);.  t|local:= |
|000009b0| 74 20 2b 20 30 2e 35 20 | 2a 20 64 65 6c 74 61 3b |t + 0.5 |* delta;|
|000009c0| 0d 20 20 46 4f 52 20 69 | 3a 3d 20 31 20 54 4f 20 |.  FOR i|:= 1 TO |
|000009d0| 6e 20 44 4f 20 78 61 75 | 78 5b 69 5d 3a 3d 20 78 |n DO xau|x[i]:= x|
|000009e0| 5b 69 5d 20 2b 20 30 2e | 35 20 2a 20 64 65 6c 74 |[i] + 0.|5 * delt|
|000009f0| 61 20 2a 20 64 78 31 5b | 69 5d 20 45 4e 44 3b 0d |a * dx1[|i] END;.|
|00000a00| 20 20 66 75 6e 28 64 78 | 32 2c 73 2c 78 61 75 78 |  fun(dx|2,s,xaux|
|00000a10| 2c 74 6c 6f 63 61 6c 2c | 64 31 2c 64 32 2c 6e 29 |,tlocal,|d1,d2,n)|
|00000a20| 3b 0d 20 20 46 4f 52 20 | 69 3a 3d 20 31 20 54 4f |;.  FOR |i:= 1 TO|
|00000a30| 20 6e 20 44 4f 20 78 61 | 75 78 5b 69 5d 3a 3d 20 | n DO xa|ux[i]:= |
|00000a40| 78 5b 69 5d 20 2b 20 30 | 2e 35 20 2a 20 64 65 6c |x[i] + 0|.5 * del|
|00000a50| 74 61 20 2a 20 64 78 32 | 5b 69 5d 20 45 4e 44 3b |ta * dx2|[i] END;|
|00000a60| 0d 20 20 66 75 6e 28 64 | 78 33 2c 73 2c 78 61 75 |.  fun(d|x3,s,xau|
|00000a70| 78 2c 74 6c 6f 63 61 6c | 2c 64 31 2c 64 32 2c 6e |x,tlocal|,d1,d2,n|
|00000a80| 29 3b 0d 20 20 74 6c 6f | 63 61 6c 3a 3d 20 74 20 |);.  tlo|cal:= t |
|00000a90| 2b 20 64 65 6c 74 61 3b | 0d 20 20 46 4f 52 20 69 |+ delta;|.  FOR i|
|00000aa0| 3a 3d 20 31 20 54 4f 20 | 6e 20 44 4f 20 78 61 75 |:= 1 TO |n DO xau|
|00000ab0| 78 5b 69 5d 3a 3d 20 78 | 5b 69 5d 20 2b 20 64 65 |x[i]:= x|[i] + de|
|00000ac0| 6c 74 61 20 2a 20 64 78 | 33 5b 69 5d 20 45 4e 44 |lta * dx|3[i] END|
|00000ad0| 3b 0d 20 20 66 75 6e 28 | 64 78 34 2c 73 2c 78 61 |;.  fun(|dx4,s,xa|
|00000ae0| 75 78 2c 74 6c 6f 63 61 | 6c 2c 64 31 2c 64 32 2c |ux,tloca|l,d1,d2,|
|00000af0| 6e 29 3b 0d 20 20 46 4f | 52 20 69 3a 3d 31 20 54 |n);.  FO|R i:=1 T|
|00000b00| 4f 20 6e 20 44 4f 20 78 | 5b 69 5d 3a 3d 78 5b 69 |O n DO x|[i]:=x[i|
|00000b10| 5d 20 2b 20 64 65 6c 74 | 61 2a 28 64 78 31 5b 69 |] + delt|a*(dx1[i|
|00000b20| 5d 2b 32 2e 30 20 2a 20 | 64 78 32 5b 69 5d 2b 32 |]+2.0 * |dx2[i]+2|
|00000b30| 2e 30 20 2a 20 64 78 33 | 5b 69 5d 2b 64 78 34 5b |.0 * dx3|[i]+dx4[|
|00000b40| 69 5d 29 2f 36 2e 30 20 | 45 4e 44 3b 20 20 0d 45 |i])/6.0 |END;  .E|
|00000b50| 4e 44 20 73 74 65 70 3b | 0d 0d 42 45 47 49 4e 20 |ND step;|..BEGIN |
|00000b60| 28 2a 20 62 6f 64 79 20 | 6f 66 20 6d 61 69 6e 20 |(* body |of main |
|00000b70| 70 72 6f 67 72 61 6d 20 | 2a 29 0d 20 47 65 74 50 |program |*). GetP|
|00000b80| 6f 72 74 28 73 61 76 65 | 50 6f 72 74 29 3b 0d 0d |ort(save|Port);..|
|00000b90| 20 53 65 74 75 70 3a 3d | 41 44 52 28 53 65 74 75 | Setup:=|ADR(Setu|
|00000ba0| 70 56 61 72 29 3b 20 64 | 65 66 61 75 6c 74 53 65 |pVar); d|efaultSe|
|00000bb0| 74 75 70 28 53 65 74 75 | 70 29 3b 0d 20 57 49 54 |tup(Setu|p);. WIT|
|00000bc0| 48 20 53 65 74 75 70 5e | 20 44 4f 20 74 69 74 6c |H Setup^| DO titl|
|00000bd0| 65 3a 3d 6d 6b 52 65 66 | 31 28 22 53 69 6d 75 6c |e:=mkRef|1("Simul|
|00000be0| 61 74 69 6f 6e 22 29 3b | 0d 20 20 20 20 20 20 20 |ation");|.       |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 53 65 74 52 65 63 74 |        | SetRect|
|00000c00| 28 62 6f 75 6e 64 73 52 | 65 63 74 2c 34 2c 34 30 |(boundsR|ect,4,40|
|00000c10| 2c 35 30 38 2c 33 33 38 | 29 3b 20 0d 20 20 20 20 |,508,338|); .    |
|00000c20| 20 20 20 20 20 20 20 20 | 20 45 4e 44 3b 0d 20 61 |        | END;. a|
|00000c30| 6c 6c 6f 63 61 74 65 57 | 69 6e 64 6f 77 28 53 69 |llocateW|indow(Si|
|00000c40| 6d 75 6c 61 74 69 6f 6e | 57 69 6e 64 6f 77 2c 53 |mulation|Window,S|
|00000c50| 65 74 75 70 2c 4e 49 4c | 29 3b 0d 20 53 65 74 50 |etup,NIL|);. SetP|
|00000c60| 6f 72 74 28 53 69 6d 75 | 6c 61 74 69 6f 6e 57 69 |ort(Simu|lationWi|
|00000c70| 6e 64 6f 77 29 3b 20 0d | 0d 63 68 3a 3d 20 27 79 |ndow); .|.ch:= 'y|
|00000c80| 27 3b 0d 20 20 52 45 50 | 45 41 54 0d 20 20 20 20 |';.  REP|EAT.    |
|00000c90| 78 5b 31 5d 3a 3d 20 31 | 2e 30 3b 0d 20 20 20 20 |x[1]:= 1|.0;.    |
|00000ca0| 78 5b 32 5d 3a 3d 20 30 | 2e 30 3b 0d 20 20 20 20 |x[2]:= 0|.0;.    |
|00000cb0| 78 5b 33 5d 3a 3d 20 30 | 2e 30 3b 0d 20 20 20 20 |x[3]:= 0|.0;.    |
|00000cc0| 78 5b 34 5d 3a 3d 20 31 | 2e 30 3b 0d 20 20 20 20 |x[4]:= 1|.0;.    |
|00000cd0| 78 5b 35 5d 3a 3d 20 30 | 2e 30 3b 0d 20 20 20 20 |x[5]:= 0|.0;.    |
|00000ce0| 74 3a 3d 20 30 2e 30 3b | 0d 20 20 20 20 74 61 6c |t:= 0.0;|.    tal|
|00000cf0| 74 3a 3d 20 30 2e 30 3b | 0d 20 20 20 20 46 4f 52 |t:= 0.0;|.    FOR|
|00000d00| 20 69 3a 3d 20 31 20 54 | 4f 20 6e 20 44 4f 20 78 | i:= 1 T|O n DO x|
|00000d10| 61 6c 74 5b 69 5d 3a 3d | 20 78 5b 69 5d 20 45 4e |alt[i]:=| x[i] EN|
|00000d20| 44 3b 0d 20 20 20 20 4d | 6f 76 65 54 6f 28 32 30 |D;.    M|oveTo(20|
|00000d30| 30 2c 31 30 29 3b 0d 20 | 20 20 20 57 72 69 74 65 |0,10);. |   Write|
|00000d40| 53 74 72 69 6e 67 28 27 | 52 65 67 75 6c 61 74 6f |String('|Regulato|
|00000d50| 72 20 47 61 69 6e 20 64 | 31 20 3d 20 3f 20 27 29 |r Gain d|1 = ? ')|
|00000d60| 3b 0d 20 20 20 20 52 65 | 61 64 52 28 64 31 29 3b |;.    Re|adR(d1);|
|00000d70| 0d 20 20 20 20 4d 6f 76 | 65 54 6f 28 32 30 30 2c |.    Mov|eTo(200,|
|00000d80| 33 30 29 3b 0d 20 20 20 | 20 57 72 69 74 65 53 74 |30);.   | WriteSt|
|00000d90| 72 69 6e 67 28 27 52 65 | 67 75 6c 61 74 6f 72 20 |ring('Re|gulator |
|00000da0| 47 61 69 6e 20 64 32 20 | 3d 20 3f 20 27 29 3b 0d |Gain d2 |= ? ');.|
|00000db0| 20 20 20 20 52 65 61 64 | 52 28 64 32 29 3b 0d 20 |    Read|R(d2);. |
|00000dc0| 20 20 20 4d 6f 76 65 54 | 6f 28 32 30 30 2c 35 30 |   MoveT|o(200,50|
|00000dd0| 29 3b 0d 20 20 20 20 57 | 72 69 74 65 53 74 72 69 |);.    W|riteStri|
|00000de0| 6e 67 28 27 49 6e 74 65 | 67 72 61 74 69 6f 6e 20 |ng('Inte|gration |
|00000df0| 53 74 65 70 20 64 65 6c | 74 61 20 3d 20 3f 20 27 |Step del|ta = ? '|
|00000e00| 29 3b 0d 20 20 20 20 52 | 65 61 64 52 28 64 65 6c |);.    R|eadR(del|
|00000e10| 74 61 29 3b 0d 20 20 20 | 20 4d 6f 76 65 54 6f 28 |ta);.   | MoveTo(|
|00000e20| 32 30 30 2c 37 30 29 3b | 0d 20 20 20 20 57 72 69 |200,70);|.    Wri|
|00000e30| 74 65 53 74 72 69 6e 67 | 28 27 46 69 6e 61 6c 20 |teString|('Final |
|00000e40| 54 69 6d 65 20 74 66 69 | 6e 61 6c 20 3d 20 3f 20 |Time tfi|nal = ? |
|00000e50| 27 29 3b 0d 20 20 20 20 | 52 65 61 64 52 28 74 66 |');.    |ReadR(tf|
|00000e60| 69 6e 61 6c 29 3b 0d 20 | 20 20 20 4d 6f 76 65 54 |inal);. |   MoveT|
|00000e70| 6f 28 30 2c 31 35 30 29 | 3b 0d 20 20 20 20 4c 69 |o(0,150)|;.    Li|
|00000e80| 6e 65 54 6f 28 36 30 30 | 2c 31 35 30 29 3b 0d 20 |neTo(600|,150);. |
|00000e90| 20 20 20 4d 6f 76 65 54 | 6f 28 35 30 2c 30 29 3b |   MoveT|o(50,0);|
|00000ea0| 0d 20 20 20 20 4c 69 6e | 65 54 6f 28 35 30 2c 35 |.    Lin|eTo(50,5|
|00000eb0| 30 30 29 3b 0d 20 20 20 | 20 4d 6f 76 65 54 6f 28 |00);.   | MoveTo(|
|00000ec0| 30 2c 32 35 30 29 3b 0d | 20 20 20 20 4c 69 6e 65 |0,250);.|    Line|
|00000ed0| 54 6f 28 36 30 30 2c 32 | 35 30 29 3b 0d 20 20 20 |To(600,2|50);.   |
|00000ee0| 20 4d 6f 76 65 54 6f 28 | 30 2c 33 30 30 29 3b 0d | MoveTo(|0,300);.|
|00000ef0| 20 20 20 20 4c 69 6e 65 | 54 6f 28 36 30 30 2c 33 |    Line|To(600,3|
|00000f00| 30 30 29 3b 0d 20 20 0d | 20 20 20 20 52 45 50 45 |00);.  .|    REPE|
|00000f10| 41 54 0d 20 20 20 20 20 | 20 73 74 65 70 28 78 2c |AT.     | step(x,|
|00000f20| 73 2c 64 65 6c 74 61 2c | 74 2c 64 31 2c 64 32 2c |s,delta,|t,d1,d2,|
|00000f30| 6e 29 3b 0d 20 20 20 20 | 20 20 74 3a 3d 20 74 20 |n);.    |  t:= t |
|00000f40| 2b 20 64 65 6c 74 61 3b | 0d 20 20 20 20 20 20 46 |+ delta;|.      F|
|00000f50| 4f 52 20 6a 3a 3d 20 31 | 20 54 4f 20 6e 20 44 4f |OR j:= 1| TO n DO|
|00000f60| 0d 20 20 20 20 20 20 20 | 20 67 72 61 70 68 78 3a |.       | graphx:|
|00000f70| 3d 20 65 6e 74 69 65 72 | 28 35 30 2e 30 20 2a 20 |= entier|(50.0 * |
|00000f80| 74 61 6c 74 2b 35 30 2e | 30 29 3b 0d 20 20 20 20 |talt+50.|0);.    |
|00000f90| 20 20 20 20 67 72 61 70 | 68 79 3a 3d 20 65 6e 74 |    grap|hy:= ent|
|00000fa0| 69 65 72 28 31 30 30 2e | 30 20 2a 28 31 2e 35 2d |ier(100.|0 *(1.5-|
|00000fb0| 78 61 6c 74 5b 6a 5d 29 | 29 3b 0d 20 20 20 20 20 |xalt[j])|);.     |
|00000fc0| 20 20 20 4d 6f 76 65 54 | 6f 28 67 72 61 70 68 78 |   MoveT|o(graphx|
|00000fd0| 2c 67 72 61 70 68 79 29 | 3b 0d 20 20 20 20 20 20 |,graphy)|;.      |
|00000fe0| 20 20 67 72 61 70 68 78 | 3a 3d 20 65 6e 74 69 65 |  graphx|:= entie|
|00000ff0| 72 28 35 30 2e 30 20 2a | 20 74 2b 35 30 2e 30 29 |r(50.0 *| t+50.0)|
|00001000| 3b 0d 20 20 20 20 20 20 | 20 20 67 72 61 70 68 79 |;.      |  graphy|
|00001010| 3a 3d 20 65 6e 74 69 65 | 72 28 31 30 30 2e 30 20 |:= entie|r(100.0 |
|00001020| 2a 20 28 31 2e 35 2d 78 | 5b 6a 5d 29 29 3b 0d 20 |* (1.5-x|[j]));. |
|00001030| 20 20 20 20 20 20 20 4c | 69 6e 65 54 6f 28 67 72 |       L|ineTo(gr|
|00001040| 61 70 68 78 2c 67 72 61 | 70 68 79 29 3b 0d 20 20 |aphx,gra|phy);.  |
|00001050| 20 20 20 20 20 20 78 61 | 6c 74 5b 6a 5d 3a 3d 20 |      xa|lt[j]:= |
|00001060| 78 5b 6a 5d 3b 0d 20 20 | 20 20 20 20 45 4e 44 3b |x[j];.  |    END;|
|00001070| 0d 20 20 20 20 20 20 49 | 46 28 73 5b 31 5d 3c 30 |.      I|F(s[1]<0|
|00001080| 2e 30 35 29 41 4e 44 28 | 73 5b 31 5d 3e 2d 30 2e |.05)AND(|s[1]>-0.|
|00001090| 30 35 29 41 4e 44 28 73 | 61 6c 74 5b 31 5d 3c 30 |05)AND(s|alt[1]<0|
|000010a0| 2e 30 35 29 41 4e 44 28 | 73 61 6c 74 5b 31 5d 3e |.05)AND(|salt[1]>|
|000010b0| 2d 30 2e 30 35 29 54 48 | 45 4e 0d 20 20 20 20 20 |-0.05)TH|EN.     |
|000010c0| 20 20 20 67 72 61 70 68 | 78 3a 3d 20 65 6e 74 69 |   graph|x:= enti|
|000010d0| 65 72 28 35 30 2e 30 20 | 2a 20 74 61 6c 74 2b 35 |er(50.0 |* talt+5|
|000010e0| 30 2e 30 29 3b 0d 20 20 | 20 20 20 20 20 20 67 72 |0.0);.  |      gr|
|000010f0| 61 70 68 79 3a 3d 20 65 | 6e 74 69 65 72 28 31 30 |aphy:= e|ntier(10|
|00001100| 30 30 2e 30 2a 28 30 2e | 32 35 2d 73 61 6c 74 5b |00.0*(0.|25-salt[|
|00001110| 31 5d 29 29 3b 0d 20 20 | 20 20 20 20 20 20 4d 6f |1]));.  |      Mo|
|00001120| 76 65 54 6f 28 67 72 61 | 70 68 78 2c 67 72 61 70 |veTo(gra|phx,grap|
|00001130| 68 79 29 3b 0d 20 20 20 | 20 20 20 20 20 67 72 61 |hy);.   |     gra|
|00001140| 70 68 78 3a 3d 20 65 6e | 74 69 65 72 28 35 30 2e |phx:= en|tier(50.|
|00001150| 30 2a 74 2b 35 30 2e 30 | 29 3b 0d 20 20 20 20 20 |0*t+50.0|);.     |
|00001160| 20 20 20 67 72 61 70 68 | 79 3a 3d 20 65 6e 74 69 |   graph|y:= enti|
|00001170| 65 72 28 31 30 30 30 2e | 30 2a 28 30 2e 32 35 2d |er(1000.|0*(0.25-|
|00001180| 73 5b 31 5d 29 29 3b 0d | 20 20 20 20 20 20 20 20 |s[1]));.|        |
|00001190| 4c 69 6e 65 54 6f 28 67 | 72 61 70 68 78 2c 67 72 |LineTo(g|raphx,gr|
|000011a0| 61 70 68 79 29 3b 0d 20 | 20 20 20 20 20 45 4e 44 |aphy);. |     END|
|000011b0| 3b 0d 20 20 20 20 20 20 | 49 46 28 73 5b 32 5d 3c |;.      |IF(s[2]<|
|000011c0| 30 2e 30 35 29 41 4e 44 | 28 73 5b 32 5d 3e 2d 30 |0.05)AND|(s[2]>-0|
|000011d0| 2e 30 35 29 41 4e 44 28 | 73 61 6c 74 5b 32 5d 3c |.05)AND(|salt[2]<|
|000011e0| 30 2e 30 35 29 41 4e 44 | 28 73 61 6c 74 5b 32 5d |0.05)AND|(salt[2]|
|000011f0| 3e 2d 30 2e 30 35 29 54 | 48 45 4e 0d 20 20 20 20 |>-0.05)T|HEN.    |
|00001200| 20 20 20 20 67 72 61 70 | 68 78 3a 3d 20 65 6e 74 |    grap|hx:= ent|
|00001210| 69 65 72 28 35 30 2e 30 | 20 2a 20 74 61 6c 74 2b |ier(50.0| * talt+|
|00001220| 35 30 2e 30 29 3b 0d 20 | 20 20 20 20 20 20 20 67 |50.0);. |       g|
|00001230| 72 61 70 68 79 3a 3d 20 | 65 6e 74 69 65 72 28 31 |raphy:= |entier(1|
|00001240| 30 30 30 2e 30 2a 28 30 | 2e 33 2d 73 61 6c 74 5b |000.0*(0|.3-salt[|
|00001250| 32 5d 29 29 3b 0d 20 20 | 20 20 20 20 20 20 4d 6f |2]));.  |      Mo|
|00001260| 76 65 54 6f 28 67 72 61 | 70 68 78 2c 67 72 61 70 |veTo(gra|phx,grap|
|00001270| 68 79 29 3b 0d 20 20 20 | 20 20 20 20 20 67 72 61 |hy);.   |     gra|
|00001280| 70 68 78 3a 3d 20 65 6e | 74 69 65 72 28 35 30 2e |phx:= en|tier(50.|
|00001290| 30 2a 74 2b 35 30 2e 30 | 29 3b 0d 20 20 20 20 20 |0*t+50.0|);.     |
|000012a0| 20 20 20 67 72 61 70 68 | 79 3a 3d 20 65 6e 74 69 |   graph|y:= enti|
|000012b0| 65 72 28 31 30 30 30 2e | 30 2a 28 30 2e 33 2d 73 |er(1000.|0*(0.3-s|
|000012c0| 5b 32 5d 29 29 3b 0d 20 | 20 20 20 20 20 20 20 4c |[2]));. |       L|
|000012d0| 69 6e 65 54 6f 28 67 72 | 61 70 68 78 2c 67 72 61 |ineTo(gr|aphx,gra|
|000012e0| 70 68 79 29 3b 0d 20 20 | 20 20 20 20 45 4e 44 3b |phy);.  |    END;|
|000012f0| 0d 09 73 61 6c 74 5b 31 | 5d 3a 3d 20 73 5b 31 5d |..salt[1|]:= s[1]|
|00001300| 3b 0d 09 73 61 6c 74 5b | 32 5d 3a 3d 20 73 5b 32 |;..salt[|2]:= s[2|
|00001310| 5d 3b 0d 20 20 20 20 20 | 20 74 61 6c 74 3a 3d 20 |];.     | talt:= |
|00001320| 74 3b 20 0d 20 20 20 20 | 55 4e 54 49 4c 20 74 20 |t; .    |UNTIL t |
|00001330| 3e 3d 20 74 66 69 6e 61 | 6c 3b 0d 20 20 20 20 4d |>= tfina|l;.    M|
|00001340| 6f 76 65 54 6f 28 33 35 | 30 2c 32 35 30 29 3b 0d |oveTo(35|0,250);.|
|00001350| 20 20 20 20 57 72 69 74 | 65 53 74 72 69 6e 67 28 |    Writ|eString(|
|00001360| 27 20 63 6f 6e 74 69 6e | 75 65 20 28 79 29 20 6f |' contin|ue (y) o|
|00001370| 72 20 70 72 69 6e 74 28 | 70 29 20 20 3f 27 29 3b |r print(|p)  ?');|
|00001380| 0d 20 20 20 20 52 65 61 | 64 28 63 68 29 3b 0d 20 |.    Rea|d(ch);. |
|00001390| 20 20 20 49 46 20 63 68 | 20 3d 20 27 70 27 20 54 |   IF ch| = 'p' T|
|000013a0| 48 45 4e 0d 20 20 20 20 | 20 20 50 74 6f 50 61 73 |HEN.    |  PtoPas|
|000013b0| 53 74 72 3a 3d 20 4e 65 | 77 50 74 72 28 31 35 29 |Str:= Ne|wPtr(15)|
|000013c0| 3b 0d 20 20 20 20 20 20 | 6d 6b 4f 53 74 72 28 27 |;.      |mkOStr('|
|000013d0| 2e 50 72 69 6e 74 27 2c | 50 74 6f 50 61 73 53 74 |.Print',|PtoPasSt|
|000013e0| 72 5e 29 3b 0d 20 20 20 | 20 20 20 65 72 72 6f 72 |r^);.   |   error|
|000013f0| 3a 3d 44 72 69 76 65 72 | 4f 70 65 6e 28 50 74 6f |:=Driver|Open(Pto|
|00001400| 50 61 73 53 74 72 2c 72 | 65 66 6e 75 6d 62 65 72 |PasStr,r|efnumber|
|00001410| 29 3b 0d 20 20 20 20 20 | 20 4d 6f 76 65 54 6f 28 |);.     | MoveTo(|
|00001420| 33 35 30 2c 32 37 30 29 | 3b 0d 20 20 20 20 20 20 |350,270)|;.      |
|00001430| 28 2a 20 20 57 72 69 74 | 65 53 74 72 69 6e 67 28 |(*  Writ|eString(|
|00001440| 27 72 65 66 6e 75 6d 62 | 65 72 27 29 3b 0d 20 20 |'refnumb|er');.  |
|00001450| 20 20 20 20 57 72 69 74 | 65 49 28 72 65 66 6e 75 |    Writ|eI(refnu|
|00001460| 6d 62 65 72 2c 35 29 3b | 2a 29 0d 20 20 20 20 20 |mber,5);|*).     |
|00001470| 20 70 3a 3d 20 4e 65 77 | 50 74 72 28 31 30 30 29 | p:= New|Ptr(100)|
|00001480| 3b 0d 20 20 20 20 20 20 | 70 5e 2e 70 61 72 61 6d |;.      |p^.param|
|00001490| 31 3a 3d 31 39 36 36 30 | 36 3b 0d 20 20 20 20 20 |1:=19660|6;.     |
|000014a0| 20 65 72 72 6f 72 3a 3d | 44 72 69 76 65 72 43 6f | error:=|DriverCo|
|000014b0| 6e 74 72 6f 6c 28 72 65 | 66 6e 75 6d 62 65 72 2c |ntrol(re|fnumber,|
|000014c0| 36 2c 70 29 3b 0d 20 20 | 20 20 20 20 65 72 72 6f |6,p);.  |    erro|
|000014d0| 72 3a 3d 44 72 69 76 65 | 72 43 6c 6f 73 65 28 72 |r:=Drive|rClose(r|
|000014e0| 65 66 6e 75 6d 62 65 72 | 29 3b 0d 20 20 20 20 45 |efnumber|);.    E|
|000014f0| 4e 44 3b 0d 20 20 20 20 | 43 6c 65 61 72 54 65 72 |ND;.    |ClearTer|
|00001500| 6d 69 6e 61 6c 3b 0d 20 | 20 55 4e 54 49 4c 20 63 |minal;. | UNTIL c|
|00001510| 68 3c 3e 27 79 27 3b 0d | 0d 20 64 65 61 6c 6c 6f |h<>'y';.|. deallo|
|00001520| 63 61 74 65 57 69 6e 64 | 6f 77 28 53 69 6d 75 6c |cateWind|ow(Simul|
|00001530| 61 74 69 6f 6e 57 69 6e | 64 6f 77 29 3b 20 0d 20 |ationWin|dow); . |
|00001540| 53 65 74 50 6f 72 74 28 | 73 61 76 65 50 6f 72 74 |SetPort(|savePort|
|00001550| 29 3b 0d 45 4e 44 20 53 | 69 6d 75 6c 61 74 69 6f |);.END S|imulatio|
|00001560| 6e 2e 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n.......|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001580| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001590| 69 73 63 68 65 50 72 69 | 6d 7a 61 68 6c 65 6e 51 |ischePri|mzahlenQ|
|000015a0| 75 61 64 72 61 74 65 3b | 0d 20 20 20 20 32 20 0d |uadrate;|.    2 .|
|000015b0| 0e 53 69 6d 75 6c 61 74 | 69 6f 6e 2e 4d 4f 44 6f |.Simulat|ion.MODo|
|000015c0| 02 00 00 00 54 45 58 54 | 50 4d 45 44 01 00 00 00 |....TEXT|PMED....|
|000015d0| 00 00 54 45 58 54 50 4d | 45 44 01 00 00 00 00 80 |..TEXTPM|ED......|
|000015e0| 4c 67 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Lg......|........|
|000015f0| 00 00 99 9a 01 62 00 00 | 14 e3 00 00 01 5c 6f 73 |.....b..|.....\os|
|00001600| 65 2c 20 57 72 69 74 65 | 43 68 61 72 2c 20 53 65 |e, Write|Char, Se|
|00001610| 74 54 79 70 65 61 6e 64 | 43 72 65 61 74 6f 72 3b |tTypeand|Creator;|
|00001620| 0d 20 20 20 32 36 20 0d | 20 20 20 32 37 20 46 52 |.   26 .|   27 FR|
|00001630| 4f 4d 20 4f 75 74 46 69 | 6c 65 20 49 4d 50 4f 52 |OM OutFi|le IMPOR|
|00001640| 54 20 46 57 72 69 74 65 | 49 2c 20 46 57 72 69 74 |T FWrite|I, FWrit|
|00001650| 65 54 2c 20 46 57 72 69 | 74 65 4c 6e 3b 0d 20 2a |eT, FWri|teLn;. *|
|00001660| 2a 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 5e |***     |       ^|
|00001670| 38 36 0d 20 2a 2a 20 20 | 20 38 36 20 3a 20 20 69 |86. **  | 86 :  i|
|00001680| 00 00 00 04 00 06 00 08 | 00 00 00 0a 00 09 06 4d |........|.......M|
|00001690| 6f 6e 61 63 6f 04 00 00 | 01 00 00 00 01 16 00 00 |onaco...|........|
|000016a0| 00 16 00 00 00 46 00 03 | b4 60 02 94 00 00 00 1c |.....F..|.`......|
|000016b0| 00 46 00 01 45 54 41 42 | 00 00 00 12 45 46 4e 54 |.F..ETAB|....EFNT|
|000016c0| 00 00 00 1e 03 ec ff ff | 00 00 00 00 00 03 b4 24 |........|.......$|
|000016d0| 03 eb ff ff 00 00 00 08 | 00 03 a7 5a 00 00 00 00 |........|...Z....|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+