{ MANDEL.PAS } { Program vykresli mandelov obrazec. } { } { Datum:09.10.1994 http://www.trsek.com } uses crt; const XMax=320; YMax=200; var cc:char; var X,Xbe,Y:integer; dim,dre,Yb,Ye,Xb,Xe:real; var Co,Z,Z1,C:record Re,Im:real; end; Krok:integer; PROCEDURE Mandel; var p,e:^byte; max,min:real; begin dre:=(Xe-Xb)/XMax; dim:=(Ye-Yb)/YMax; p:=ptr($0a000,0); Co.Re:=0.3; Co.Im:=0.6; max:=0; min:=0; C.Im:=Yb; while C.Im>=Ye do begin e:=p; C.Re:=Xb; while C.Re<=Xe do begin Z.Re:=C.Re; Z.Im:=C.Im; Krok:=0; while not((krok>64) or ((Z.Re*Z.Re+Z.Im*Z.Im)>=4)) do begin Z1.Re:=Z.Re*Z.Re-Z.Im*Z.Im +Co.Re; {Z[i+1]:=Z[i]*Z[i] + C} Z.Im:=2*Z.Re*Z.Im +Co.Im; Z.Re:=Z1.Re; if Z.Re>max then max:=Z.Re; if Z.Remax then max:=Z.Im; if Z.Im