S'88' o ):' P :' VTM 25.6. 1988.#:' C V PRIEVIDZA) :'----------FRAKTALOVE HORY---------$ X(H),Y(H),M(H)6,:@,@:,@:=([] ,,"S'88'",,,52[@]@, ,"+",,,5<[@]p, ,"+",,,F Q  4P ,:"+ + + + + + + + + + + + + +"4Z ,:"+ + + + + + + + + + + + + +"d 4n ,:" + + + + + + + + + + + + + "4x ,:" + + + + + + + + + + + + + " : Q(:'--------VSTUPNE UDAJE------------G,:"+ VSTUPNE UDAJE +":[]" "!"POCET UROVNI (2-6) =";:UR)"POCIATOCNA ODCHYLKA (0-40) =";:OD)"ZMENSENIE ODCHYLKY (.3-.7) =";:ZM("NAHODNOST ODCHYLKY (0-1) =";:NAH(:'--------POCIATOCNY STAV---------- 125,5,20,150,230,150 :( I @: X(I),Y(I): I^[]X(),Y(),X(),Y(),X(@),Y(@),X(),Y()"PS:PN@:PR(:'--------CYKLUS PRE UROVNE-------- U UR"X, :"U :";U(":'--------CYKLUS PRE VRCHOLY-------, R PR&6PMPSR(R):PDPMR@ S RJAEPMS:ADPDS(T:'--------NOVE VRCHOLY-------------^XX(AE):YY(AE)ohXN(XX(AE)):YN(YY(AE))(())(NAHNAH())ODarDX(XX(AD)):DY(YY(AD))(())(NAHNAH())ODn|PX(XX(ADD)):PY(YY(ADD))(())(NAHNAH())(:'--------ULOZENIE DAT-------------CANPN(R)(R)SS:ADANRRX(AN)X:Y(AN)Y, RS X(AN)XN:Y(AN)YN? RPR X(AD)DX:Y(AD)DY:X(AD)PX:Y(AD)PY S RPRPRPR(:'--------VYKRESLENIE--------------ANPN: R PR S RADANR:XX(AN):YY(AN)4 RS []X,Y,X(AN),Y(AN)O RPR []X,Y,X(AD),Y(AD):[]X,Y,X(AD),Y(AD)ANAN& S0 R(::'--------KONIEC VYKRESLENIA------- DODODZM&NPSPN:PNPNPR(PR)X U+bX, :"U :";U:  ,l,8:"D ? (/) "v A$: A$"A"  A$"N" :: vR,8:" K ":  :"CRT:M1": > 0HAA