/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / fractals / basicfts / NewtonFrak

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 4e | 65 77 74 6f 6e 0d 00 14 |..... >N|ewton...|
|00000010| 3a f4 20 46 72 61 6b 74 | 61 6c 65 72 20 6c 61 76 |:. Frakt|aler lav|
|00000020| 65 74 20 6d 65 64 20 4e | 65 77 74 6f 6e 73 20 61 |et med N|ewtons a|
|00000030| 6c 67 6f 72 69 74 6d 65 | 20 74 69 6c 20 72 6f 64 |lgoritme| til rod|
|00000040| 73 f8 67 6e 69 6e 67 0d | 00 1e 21 f4 20 4e 28 7a |s.gning.|..!. N(z|
|00000050| 29 20 3d 20 7a 20 2d 20 | 70 28 7a 29 2f 28 70 27 |) = z - |p(z)/(p'|
|00000060| 28 7a 29 2b 73 2a 69 29 | 0d 00 28 22 f4 20 46 72 |(z)+s*i)|..(". Fr|
|00000070| 61 20 22 54 68 65 20 42 | 65 61 75 74 79 20 6f 66 |a "The B|eauty of|
|00000080| 20 46 72 61 63 74 61 6c | 73 22 0d 00 32 18 f4 20 | Fractal|s"..2.. |
|00000090| 49 20 64 65 74 74 65 20 | 70 72 6f 67 72 61 6d 20 |I dette |program |
|000000a0| 65 72 0d 00 3c 3e f4 20 | 70 28 7a 29 20 3d 20 28 |er..<>. |p(z) = (|
|000000b0| 7a 2d 6c 29 2a 28 7a 2b | 30 2e 35 29 2a 28 7a 5e |z-l)*(z+|0.5)*(z^|
|000000c0| 32 2b 6c 29 20 3d 20 28 | 7a 2d 6c 29 2a 28 7a 2b |2+l) = (|z-l)*(z+|
|000000d0| 30 2e 35 29 2a 28 7a 2b | 69 29 2a 28 7a 2d 69 29 |0.5)*(z+|i)*(z-i)|
|000000e0| 0d 00 46 27 f4 20 73 e5 | 20 64 65 72 20 65 72 20 |..F'. s.| der er |
|000000f0| 72 f8 64 64 65 72 20 69 | 20 6c 2c 2d 30 2e 35 2c |r.dder i| l,-0.5,|
|00000100| 69 20 6f 67 20 2d 69 0d | 00 50 29 f4 20 56 69 20 |i og -i.|.P). Vi |
|00000110| 67 61 6e 67 65 72 20 75 | 64 20 6f 67 20 67 61 6e |ganger u|d og gan|
|00000120| 67 65 72 20 6d 65 64 20 | 32 20 6f 67 20 66 e5 72 |ger med |2 og f.r|
|00000130| 0d 00 5a 1e f4 20 70 28 | 7a 29 20 3d 20 32 2a 7a |..Z.. p(|z) = 2*z|
|00000140| 5e 34 2d 7a 5e 33 2b 7a | 5e 32 2d 7a 2d 6c 0d 00 |^4-z^3+z|^2-z-l..|
|00000150| 64 1f f4 20 70 27 28 7a | 29 20 3d 20 38 2a 7a 5e |d.. p'(z|) = 8*z^|
|00000160| 33 2d 33 2a 7a 5e 32 2b | 32 2a 7a 2d 6c 0d 00 6e |3-3*z^2+|2*z-l..n|
|00000170| 1f f4 20 56 69 20 62 72 | 75 67 65 72 20 73 20 3d |.. Vi br|uger s =|
|00000180| 20 2d 6c 20 28 2d 30 2e | 35 2a 32 29 0d 00 78 04 | -l (-0.|5*2)..x.|
|00000190| 0d 00 82 1f eb 20 31 33 | 20 3a f4 20 33 32 30 78 |..... 13| :. 320x|
|000001a0| 32 35 36 2c 20 32 35 36 | 20 66 61 72 76 65 72 0d |256, 256| farver.|
|000001b0| 00 8c 2a c8 91 20 36 34 | 30 2c 35 31 32 20 3a f4 |..*.. 64|0,512 :.|
|000001c0| 20 6e 75 6c 70 75 6e 6b | 74 20 6d 69 64 74 20 70 | nulpunk|t midt p|
|000001d0| e5 20 73 6b e6 72 6d 65 | 6e 0d 00 96 31 f2 5f 66 |. sk.rme|n...1._f|
|000001e0| 72 61 6b 74 61 6c 28 2d | 33 30 30 2c 31 37 30 2c |raktal(-|300,170,|
|000001f0| 31 30 30 2c 30 2e 35 2a | 9b b2 28 36 30 29 2c 30 |100,0.5*|..(60),0|
|00000200| 2e 35 2a b5 b2 28 36 30 | 29 29 0d 00 a0 31 f2 5f |.5*..(60|))...1._|
|00000210| 66 72 61 6b 74 61 6c 28 | 2d 32 34 30 2c 32 35 30 |fraktal(|-240,250|
|00000220| 2c 31 30 30 2c 30 2e 35 | 2a 9b b2 28 34 30 29 2c |,100,0.5|*..(40),|
|00000230| 30 2e 35 2a b5 b2 28 34 | 30 29 29 0d 00 aa 31 f2 |0.5*..(4|0))...1.|
|00000240| 5f 66 72 61 6b 74 61 6c | 28 2d 31 37 30 2c 33 30 |_fraktal|(-170,30|
|00000250| 30 2c 31 31 30 2c 30 2e | 35 2a 9b b2 28 32 30 29 |0,110,0.|5*..(20)|
|00000260| 2c 30 2e 35 2a b5 b2 28 | 32 30 29 29 0d 00 b4 1d |,0.5*..(|20))....|
|00000270| f2 5f 66 72 61 6b 74 61 | 6c 28 30 2c 2d 35 36 30 |._frakta|l(0,-560|
|00000280| 2c 38 30 30 2c 30 2c 30 | 29 0d 00 be 2e f2 5f 66 |,800,0,0|)....._f|
|00000290| 72 61 6b 74 61 6c 28 2d | 39 30 2c 33 33 30 2c 31 |raktal(-|90,330,1|
|000002a0| 32 30 2c 30 2e 35 2a 9b | b2 28 30 29 2c 30 2e 35 |20,0.5*.|.(0),0.5|
|000002b0| 2a b5 b2 28 30 29 29 0d | 00 c8 30 f2 5f 66 72 61 |*..(0)).|..0._fra|
|000002c0| 6b 74 61 6c 28 30 2c 32 | 38 30 2c 31 33 30 2c 30 |ktal(0,2|80,130,0|
|000002d0| 2e 35 2a 9b b2 28 2d 32 | 30 29 2c 30 2e 35 2a b5 |.5*..(-2|0),0.5*.|
|000002e0| b2 28 2d 32 30 29 29 0d | 00 d2 32 f2 5f 66 72 61 |.(-20)).|..2._fra|
|000002f0| 6b 74 61 6c 28 31 30 30 | 2c 32 30 30 2c 31 34 30 |ktal(100|,200,140|
|00000300| 2c 30 2e 35 2a 9b b2 28 | 2d 34 30 29 2c 30 2e 35 |,0.5*..(|-40),0.5|
|00000310| 2a b5 b2 28 2d 34 30 29 | 29 0d 00 dc 31 f2 5f 66 |*..(-40)|)...1._f|
|00000320| 72 61 6b 74 61 6c 28 32 | 31 30 2c 39 30 2c 31 35 |raktal(2|10,90,15|
|00000330| 30 2c 30 2e 35 2a 9b b2 | 28 2d 36 30 29 2c 30 2e |0,0.5*..|(-60),0.|
|00000340| 35 2a b5 b2 28 2d 36 30 | 29 29 0d 00 e6 32 f2 5f |5*..(-60|))...2._|
|00000350| 66 72 61 6b 74 61 6c 28 | 33 33 30 2c 2d 34 30 2c |fraktal(|330,-40,|
|00000360| 31 36 30 2c 30 2e 35 2a | 9b b2 28 2d 38 30 29 2c |160,0.5*|..(-80),|
|00000370| 30 2e 35 2a b5 b2 28 2d | 38 30 29 29 0d 00 f0 35 |0.5*..(-|80))...5|
|00000380| f2 5f 66 72 61 6b 74 61 | 6c 28 34 36 30 2c 2d 32 |._frakta|l(460,-2|
|00000390| 30 30 2c 31 37 30 2c 30 | 2e 35 2a 9b b2 28 2d 31 |00,170,0|.5*..(-1|
|000003a0| 30 30 29 2c 30 2e 35 2a | b5 b2 28 2d 31 30 30 29 |00),0.5*|..(-100)|
|000003b0| 29 0d 00 fa 19 2a 53 43 | 52 45 45 4e 53 41 56 45 |)....*SC|REENSAVE|
|000003c0| 20 4e 65 77 74 6f 6e 5f | 53 63 0d 01 04 05 e0 0d | Newton_|Sc......|
|000003d0| 01 0e 04 0d 01 18 21 dd | 20 f2 5f 66 72 61 6b 74 |......!.| ._frakt|
|000003e0| 61 6c 28 58 30 25 2c 59 | 30 25 2c 52 25 2c 78 30 |al(X0%,Y|0%,R%,x0|
|000003f0| 2c 79 30 29 0d 01 22 33 | e3 20 58 25 3d a4 5f 6d |,y0).."3|. X%=._m|
|00000400| 61 78 28 58 30 25 2d 52 | 25 2c 2d 36 34 30 29 20 |ax(X0%-R|%,-640) |
|00000410| b8 20 a4 5f 6d 69 6e 28 | 58 30 25 2b 52 25 2c 36 |. ._min(|X0%+R%,6|
|00000420| 34 30 29 20 88 20 34 0d | 01 2c 16 20 78 20 3d 20 |40) . 4.|.,. x = |
|00000430| 28 58 25 2d 58 30 25 29 | 2f 32 2f 52 25 0d 01 36 |(X%-X0%)|/2/R%..6|
|00000440| 34 20 e3 20 59 25 3d a4 | 5f 6d 61 78 28 59 30 25 |4 . Y%=.|_max(Y0%|
|00000450| 2d 52 25 2c 2d 35 31 32 | 29 20 b8 20 a4 5f 6d 69 |-R%,-512|) . ._mi|
|00000460| 6e 28 59 30 25 2b 52 25 | 2c 35 31 32 29 20 88 20 |n(Y0%+R%|,512) . |
|00000470| 34 0d 01 40 17 20 20 79 | 20 3d 20 28 59 25 2d 59 |4..@.  y| = (Y%-Y|
|00000480| 30 25 29 2f 32 2f 52 25 | 0d 01 4a 12 20 20 78 79 |0%)/2/R%|..J.  xy|
|00000490| 20 3d 20 78 5e 32 2b 79 | 5e 32 0d 01 54 11 20 20 | = x^2+y|^2..T.  |
|000004a0| e7 20 78 79 3c 3d 2e 32 | 35 20 8c 0d 01 5e 14 20 |. xy<=.2|5 ...^. |
|000004b0| 20 20 7a 20 3d 20 b6 28 | 2e 32 35 2d 78 79 29 0d |  z = .(|.25-xy).|
|000004c0| 01 68 23 20 20 20 f2 5f | 52 69 65 6d 61 6e 6e 28 |.h#   ._|Riemann(|
|000004d0| 78 2c 79 2c 7a 2c 78 30 | 2c 79 30 2c 52 65 2c 49 |x,y,z,x0|,y0,Re,I|
|000004e0| 6d 29 0d 01 72 23 20 20 | 20 f2 5f 72 6f 64 28 52 |m)..r#  | ._rod(R|
|000004f0| 65 2c 49 6d 2c 72 6f 64 | 2c 69 74 65 72 61 74 69 |e,Im,rod|,iterati|
|00000500| 6f 6e 65 72 29 0d 01 7c | 25 20 20 20 f2 5f 66 61 |oner)..||%   ._fa|
|00000510| 72 76 65 28 72 6f 64 2c | 69 74 65 72 61 74 69 6f |rve(rod,|iteratio|
|00000520| 6e 65 72 2c 78 2c 79 2c | 7a 29 0d 01 86 0f 20 20 |ner,x,y,|z)....  |
|00000530| 20 c8 92 20 58 25 2c 59 | 25 0d 01 90 07 20 20 cd | .. X%,Y|%....  .|
|00000540| 0d 01 9a 06 20 ed 0d 01 | a4 05 ed 0d 01 ae 04 0d |.... ...|........|
|00000550| 01 b8 26 dd 20 f2 5f 52 | 69 65 6d 61 6e 6e 28 78 |..&. ._R|iemann(x|
|00000560| 2c 79 2c 7a 2c 78 30 2c | 79 30 2c f8 20 52 65 2c |,y,z,x0,|y0,. Re,|
|00000570| f8 20 49 6d 29 0d 01 c2 | 36 f4 20 66 69 6e 64 65 |. Im)...|6. finde|
|00000580| 72 20 64 65 74 20 6b 6f | 6d 70 6c 65 6b 73 65 20 |r det ko|mplekse |
|00000590| 74 61 6c 20 52 65 2b 69 | 2a 49 6d 2c 20 73 6f 6d |tal Re+i|*Im, som|
|000005a0| 20 73 76 61 72 65 72 20 | 74 69 6c 0d 01 cc 27 f4 | svarer |til...'.|
|000005b0| 20 70 75 6e 6b 74 65 74 | 20 28 78 2c 79 2c 7a 29 | punktet| (x,y,z)|
|000005c0| 20 70 e5 20 52 69 65 6d | 61 6e 6e 20 6b 75 67 6c | p. Riem|ann kugl|
|000005d0| 65 6e 0d 01 d6 08 ea 20 | 72 7a 0d 01 e0 1a 20 e7 |en..... |rz.... .|
|000005e0| 20 7a 3c 2d 30 2e 39 39 | 39 20 8c 20 7a 3d 2d 30 | z<-0.99|9 . z=-0|
|000005f0| 2e 39 39 39 0d 01 ea 11 | 20 72 7a 20 3d 20 31 2f |.999....| rz = 1/|
|00000600| 28 7a 2b 31 29 0d 01 f4 | 11 20 52 65 20 3d 20 72 |(z+1)...|. Re = r|
|00000610| 7a 2a 78 2b 78 30 0d 01 | fe 11 20 49 6d 20 3d 20 |z*x+x0..|.. Im = |
|00000620| 72 7a 2a 79 2b 79 30 0d | 02 08 05 e1 0d 02 12 04 |rz*y+y0.|........|
|00000630| 0d 02 1c 26 dd 20 f2 5f | 72 6f 64 28 52 65 2c 49 |...&. ._|rod(Re,I|
|00000640| 6d 2c f8 20 72 6f 64 2c | f8 20 69 74 65 72 61 74 |m,. rod,|. iterat|
|00000650| 69 6f 6e 65 72 29 0d 02 | 26 2f f4 20 46 69 6e 64 |ioner)..|&/. Find|
|00000660| 65 72 20 65 6e 20 61 66 | 20 72 f8 64 64 65 72 6e |er en af| r.ddern|
|00000670| 65 20 69 20 70 6f 6c 79 | 6e 6f 6d 69 65 74 20 76 |e i poly|nomiet v|
|00000680| 65 64 20 61 74 0d 02 30 | 31 f4 20 62 72 75 67 65 |ed at..0|1. bruge|
|00000690| 20 4e 65 77 74 6f 6e 73 | 20 61 6c 67 6f 72 69 74 | Newtons| algorit|
|000006a0| 6d 65 20 73 74 61 72 74 | 65 6e 64 65 20 69 20 52 |me start|ende i R|
|000006b0| 65 2b 69 2a 49 6d 0d 02 | 3a 37 f4 20 52 6f 64 65 |e+i*Im..|:7. Rode|
|000006c0| 6e 20 65 72 20 66 75 6e | 64 65 74 20 6e e5 72 20 |n er fun|det n.r |
|000006d0| 6b 76 61 64 72 61 74 61 | 66 73 74 61 6e 64 65 6e |kvadrata|fstanden|
|000006e0| 20 74 69 6c 20 65 6e 20 | 61 66 20 64 65 0d 02 44 | til en |af de..D|
|000006f0| 29 f4 20 66 6f 72 75 64 | 20 6b 65 6e 64 74 65 20 |). forud| kendte |
|00000700| 72 f8 64 64 65 72 20 65 | 72 20 6d 69 6e 64 72 65 |r.dder e|r mindre|
|00000710| 20 65 6e 64 20 64 0d 02 | 4e 0b ea 20 69 2c 64 2c | end d..|N.. i,d,|
|00000720| 72 0d 02 58 0a 20 69 20 | 3d 20 30 0d 02 62 0d 20 |r..X. i |= 0..b. |
|00000730| 64 20 3d 20 31 45 2d 35 | 0d 02 6c 0a 20 72 20 3d |d = 1E-5|..l. r =|
|00000740| 20 30 0d 02 76 06 20 f5 | 0d 02 80 0c 20 20 69 20 | 0..v. .|....  i |
|00000750| 2b 3d 20 31 0d 02 8a 1b | 20 20 f2 5f 4e 65 77 74 |+= 1....|  ._Newt|
|00000760| 6f 6e 28 52 65 2c 49 6d | 2c 52 65 2c 49 6d 29 0d |on(Re,Im|,Re,Im).|
|00000770| 02 94 30 20 20 e7 20 a4 | 5f 6b 76 61 64 72 61 74 |..0  . .|_kvadrat|
|00000780| 61 66 73 74 61 6e 64 28 | 52 65 2c 49 6d 2c 31 2c |afstand(|Re,Im,1,|
|00000790| 30 29 3c 64 20 20 20 20 | 8c 20 72 20 3d 20 31 0d |0)<d    |. r = 1.|
|000007a0| 02 9e 30 20 20 e7 20 a4 | 5f 6b 76 61 64 72 61 74 |..0  . .|_kvadrat|
|000007b0| 61 66 73 74 61 6e 64 28 | 52 65 2c 49 6d 2c 2d 30 |afstand(|Re,Im,-0|
|000007c0| 2e 35 2c 30 29 3c 64 20 | 8c 20 72 20 3d 20 32 0d |.5,0)<d |. r = 2.|
|000007d0| 02 a8 30 20 20 e7 20 a4 | 5f 6b 76 61 64 72 61 74 |..0  . .|_kvadrat|
|000007e0| 61 66 73 74 61 6e 64 28 | 52 65 2c 49 6d 2c 30 2c |afstand(|Re,Im,0,|
|000007f0| 31 29 3c 64 20 20 20 20 | 8c 20 72 20 3d 20 33 0d |1)<d    |. r = 3.|
|00000800| 02 b2 30 20 20 e7 20 a4 | 5f 6b 76 61 64 72 61 74 |..0  . .|_kvadrat|
|00000810| 61 66 73 74 61 6e 64 28 | 52 65 2c 49 6d 2c 30 2c |afstand(|Re,Im,0,|
|00000820| 2d 31 29 3c 64 20 20 20 | 8c 20 72 20 3d 20 34 0d |-1)<d   |. r = 4.|
|00000830| 02 bc 12 20 fd 20 72 3e | 30 20 84 20 69 3e 32 35 |... . r>|0 . i>25|
|00000840| 35 0d 02 c6 0c 20 72 6f | 64 20 3d 20 72 0d 02 d0 |5.... ro|d = r...|
|00000850| 14 20 69 74 65 72 61 74 | 69 6f 6e 65 72 20 3d 20 |. iterat|ioner = |
|00000860| 69 0d 02 da 05 e1 0d 02 | e4 04 0d 02 ee 25 dd 20 |i.......|.....%. |
|00000870| f2 5f 4e 65 77 74 6f 6e | 28 7a 52 65 2c 7a 49 6d |._Newton|(zRe,zIm|
|00000880| 2c f8 20 6e 79 52 65 2c | f8 20 6e 79 49 6d 29 0d |,. nyRe,|. nyIm).|
|00000890| 02 f8 35 ea 20 7a 32 52 | 65 2c 7a 32 49 6d 2c 7a |..5. z2R|e,z2Im,z|
|000008a0| 33 52 65 2c 7a 33 49 6d | 2c 7a 34 52 65 2c 7a 34 |3Re,z3Im|,z4Re,z4|
|000008b0| 49 6d 2c 74 52 65 2c 74 | 49 6d 2c 6e 52 65 2c 6e |Im,tRe,t|Im,nRe,n|
|000008c0| 49 6d 2c 64 0d 03 02 17 | 20 7a 32 52 65 20 3d 20 |Im,d....| z2Re = |
|000008d0| 7a 52 65 5e 32 2d 7a 49 | 6d 5e 32 0d 03 0c 15 20 |zRe^2-zI|m^2.... |
|000008e0| 7a 32 49 6d 20 3d 20 32 | 2a 7a 52 65 2a 7a 49 6d |z2Im = 2|*zRe*zIm|
|000008f0| 0d 03 16 1d 20 7a 33 52 | 65 20 3d 20 7a 52 65 2a |.... z3R|e = zRe*|
|00000900| 7a 32 52 65 2d 7a 49 6d | 2a 7a 32 49 6d 0d 03 20 |z2Re-zIm|*z2Im.. |
|00000910| 1d 20 7a 33 49 6d 20 3d | 20 7a 52 65 2a 7a 32 49 |. z3Im =| zRe*z2I|
|00000920| 6d 2b 7a 49 6d 2a 7a 32 | 52 65 0d 03 2a 19 20 7a |m+zIm*z2|Re..*. z|
|00000930| 34 52 65 20 3d 20 7a 32 | 52 65 5e 32 2d 7a 32 49 |4Re = z2|Re^2-z2I|
|00000940| 6d 5e 32 0d 03 34 17 20 | 7a 34 49 6d 20 3d 20 32 |m^2..4. |z4Im = 2|
|00000950| 2a 7a 32 52 65 2a 7a 32 | 49 6d 0d 03 3e 21 20 74 |*z2Re*z2|Im..>! t|
|00000960| 52 65 20 3d 20 32 2a 7a | 34 52 65 2d 7a 33 52 65 |Re = 2*z|4Re-z3Re|
|00000970| 2b 7a 32 52 65 2d 7a 52 | 65 2d 31 0d 03 48 1f 20 |+z2Re-zR|e-1..H. |
|00000980| 74 49 6d 20 3d 20 32 2a | 7a 34 49 6d 2d 7a 33 49 |tIm = 2*|z4Im-z3I|
|00000990| 6d 2b 7a 32 49 6d 2d 7a | 49 6d 0d 03 52 20 20 6e |m+z2Im-z|Im..R  n|
|000009a0| 52 65 20 3d 20 38 2a 7a | 33 52 65 2d 33 2a 7a 32 |Re = 8*z|3Re-3*z2|
|000009b0| 52 65 2b 32 2a 7a 52 65 | 2d 31 0d 03 5c 20 20 6e |Re+2*zRe|-1..\  n|
|000009c0| 49 6d 20 3d 20 38 2a 7a | 33 49 6d 2d 33 2a 7a 32 |Im = 8*z|3Im-3*z2|
|000009d0| 49 6d 2b 32 2a 7a 49 6d | 2d 31 0d 03 66 14 20 64 |Im+2*zIm|-1..f. d|
|000009e0| 20 3d 20 6e 52 65 5e 32 | 2b 6e 49 6d 5e 32 0d 03 | = nRe^2|+nIm^2..|
|000009f0| 70 23 20 6e 79 52 65 20 | 3d 20 7a 52 65 2d 28 74 |p# nyRe |= zRe-(t|
|00000a00| 52 65 2a 6e 52 65 2b 74 | 49 6d 2a 6e 49 6d 29 2f |Re*nRe+t|Im*nIm)/|
|00000a10| 64 0d 03 7a 23 20 6e 79 | 49 6d 20 3d 20 7a 49 6d |d..z# ny|Im = zIm|
|00000a20| 2d 28 74 49 6d 2a 6e 52 | 65 2d 74 52 65 2a 6e 49 |-(tIm*nR|e-tRe*nI|
|00000a30| 6d 29 2f 64 0d 03 84 05 | e1 0d 03 8e 04 0d 03 98 |m)/d....|........|
|00000a40| 35 dd 20 a4 5f 6b 76 61 | 64 72 61 74 61 66 73 74 |5. ._kva|dratafst|
|00000a50| 61 6e 64 28 78 2c 79 2c | 78 31 2c 79 31 29 20 3d |and(x,y,|x1,y1) =|
|00000a60| 20 28 78 2d 78 31 29 5e | 32 2b 28 79 2d 79 31 29 | (x-x1)^|2+(y-y1)|
|00000a70| 5e 32 0d 03 a2 04 0d 03 | ac 24 dd 20 f2 5f 66 61 |^2......|.$. ._fa|
|00000a80| 72 76 65 28 72 6f 64 2c | 69 74 65 72 61 74 69 6f |rve(rod,|iteratio|
|00000a90| 6e 65 72 2c 78 2c 79 2c | 7a 29 0d 03 b6 15 ea 20 |ner,x,y,|z)..... |
|00000aa0| 69 6e 74 65 6e 73 69 74 | 65 74 2c 64 2c 69 25 0d |intensit|et,d,i%.|
|00000ab0| 03 c0 0e 20 64 20 3d 20 | 78 2b 79 2b 7a 0d 03 ca |... d = |x+y+z...|
|00000ac0| 2f 20 e7 20 64 3c 30 20 | 8c 20 69 6e 74 65 6e 73 |/ . d<0 |. intens|
|00000ad0| 69 74 65 74 20 3d 20 30 | 20 8b 20 69 6e 74 65 6e |itet = 0| . inten|
|00000ae0| 73 69 74 65 74 20 3d 20 | 64 2a 31 32 0d 03 d4 25 |sitet = |d*12...%|
|00000af0| 20 69 6e 74 65 6e 73 69 | 74 65 74 20 2b 3d 20 33 | intensi|tet += 3|
|00000b00| 2e 35 2a aa 28 69 74 65 | 72 61 74 69 6f 6e 65 72 |.5*.(ite|rationer|
|00000b10| 29 0d 03 de 30 20 e7 20 | 69 6e 74 65 6e 73 69 74 |)...0 . |intensit|
|00000b20| 65 74 3c 31 36 20 8c 20 | 69 25 20 3d 20 69 6e 74 |et<16 . |i% = int|
|00000b30| 65 6e 73 69 74 65 74 20 | 8b 20 69 25 20 3d 20 31 |ensitet |. i% = 1|
|00000b40| 35 0d 03 e8 0d 20 c8 8e | 20 72 6f 64 20 ca 0d 03 |5.... ..| rod ...|
|00000b50| f2 0b 20 20 c9 20 30 20 | 3a 0d 03 fc 13 20 20 20 |..  . 0 |:....   |
|00000b60| 20 f4 20 67 72 e5 20 73 | 6b 61 6c 61 0d 04 06 2f | . gr. s|kala.../|
|00000b70| 20 20 20 20 e6 20 25 30 | 31 30 31 30 31 2a 28 69 |    . %0|10101*(i|
|00000b80| 25 20 81 20 34 29 20 c8 | 9c 20 28 69 25 20 83 20 |% . 4) .|. (i% . |
|00000b90| 34 29 2a 25 31 30 30 30 | 30 30 30 0d 04 10 0b 20 |4)*%1000|000.... |
|00000ba0| 20 c9 20 31 20 3a 0d 04 | 1a 13 20 20 20 20 f4 20 | . 1 :..|..    . |
|00000bb0| 72 f8 64 20 73 6b 61 6c | 61 0d 04 24 2f 20 20 20 |r.d skal|a..$/   |
|00000bc0| 20 e6 20 25 30 30 30 30 | 30 31 2a 28 69 25 20 81 | . %0000|01*(i% .|
|00000bd0| 20 34 29 20 c8 9c 20 28 | 69 25 20 83 20 34 29 2a | 4) .. (|i% . 4)*|
|00000be0| 25 31 30 30 30 30 30 30 | 0d 04 2e 0b 20 20 c9 20 |%1000000|....  . |
|00000bf0| 32 20 3a 0d 04 38 14 20 | 20 20 20 f4 20 67 72 f8 |2 :..8. |   . gr.|
|00000c00| 6e 20 73 6b 61 6c 61 0d | 04 42 2f 20 20 20 20 e6 |n skala.|.B/    .|
|00000c10| 20 25 30 30 30 31 30 30 | 2a 28 69 25 20 81 20 34 | %000100|*(i% . 4|
|00000c20| 29 20 c8 9c 20 28 69 25 | 20 83 20 34 29 2a 25 31 |) .. (i%| . 4)*%1|
|00000c30| 30 30 30 30 30 30 0d 04 | 4c 0b 20 20 c9 20 33 20 |000000..|L.  . 3 |
|00000c40| 3a 0d 04 56 13 20 20 20 | 20 f4 20 62 6c e5 20 73 |:..V.   | . bl. s|
|00000c50| 6b 61 6c 61 0d 04 60 2f | 20 20 20 20 e6 20 25 30 |kala..`/|    . %0|
|00000c60| 31 30 30 30 30 2a 28 69 | 25 20 81 20 34 29 20 c8 |10000*(i|% . 4) .|
|00000c70| 9c 20 28 69 25 20 83 20 | 34 29 2a 25 31 30 30 30 |. (i% . |4)*%1000|
|00000c80| 30 30 30 0d 04 6a 0b 20 | 20 c9 20 34 20 3a 0d 04 |000..j. | . 4 :..|
|00000c90| 74 13 20 20 20 20 f4 20 | 67 75 6c 20 73 6b 61 6c |t.    . |gul skal|
|00000ca0| 61 0d 04 7e 2f 20 20 20 | 20 e6 20 25 30 30 30 31 |a..~/   | . %0001|
|00000cb0| 30 31 2a 28 69 25 20 81 | 20 34 29 20 c8 9c 20 28 |01*(i% .| 4) .. (|
|00000cc0| 69 25 20 83 20 34 29 2a | 25 31 30 30 30 30 30 30 |i% . 4)*|%1000000|
|00000cd0| 0d 04 88 06 20 cb 0d 04 | 92 05 e1 0d 04 9c 04 0d |.... ...|........|
|00000ce0| 04 a6 10 dd 20 a4 5f 6d | 69 6e 28 78 2c 79 29 0d |.... ._m|in(x,y).|
|00000cf0| 04 b0 16 20 e7 20 78 3c | 79 20 8c 20 3d 20 78 20 |... . x<|y . = x |
|00000d00| 8b 20 3d 20 79 0d 04 ba | 04 0d 04 c4 10 dd 20 a4 |. = y...|...... .|
|00000d10| 5f 6d 61 78 28 78 2c 79 | 29 0d 04 ce 16 20 e7 20 |_max(x,y|).... . |
|00000d20| 78 3e 79 20 8c 20 3d 20 | 78 20 8b 20 3d 20 79 0d |x>y . = |x . = y.|
|00000d30| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+