[DrawSize] X_Size=100 Y_Size=75 [Main] Renderer=Fractal Explorer 1.24b2, 27/08/2002 Comment= SignText= [Fractal] X_Coord=-2 Y_Coord=1.5 W_Coord=4 X0_Coord=-2 Y0_Coord=2 W0_Coord=4 AutoIter=0 IFSIter=100 Number=3000 ST_Number=1 BailOut=100 MaxIter=100 Rotation=10 Rotation_free=0 P1real=0 P1imag=0 P2real=0 P2imag=0 P3real=0 P3imag=0 P4real=0 P4imag=0 PJreal=-0.0188000000000000007 PJimag=-0.65669999999999995 Function1=0 Function2=0 Transformer=0 JulieSet=0 Inverted=0 F-Set=0 Filter=0 Strange=0.00999999977648258209 KeepBlk=0 NoOutside=0 Filter only=0 IFSColorStyle=0 IFSSolidRed=255 IFSSolidGreen=255 IFSSolidBlue=255 IFSquick=1 Smoothing=0 Double=0 Precision=2 ConstructorA1=1 ConstructorB1=0 ConstructorC1=1 ConstructorD1=0 ConstructorE1=0 ConstructorF1=0 ConstructorG1=0 ConstructorH1=0 ConstructorI1=0 ConstructorJ1=0 ConstructorK1=0 ConstructorL1=0 ConstructorM1=0 [IFS] Name= Count=0 [Quaternion] W=0 CR=-0.456425999999999998 CI=0.510553000000000035 CJ=0.122399999999999995 CK=-0.092399999999999996 Rx=0 Ry=0 Rz=0 Lx=2 Ly=0 Lz=-4 Lx2=-2 Ly2=0 Lz2=-4 AmbientClR=50 AmbientClG=50 AmbientClB=50 DiffuseClR=190 DiffuseClG=150 DiffuseClB=0 SpeculaClR=255 SpeculaClG=255 SpeculaClB=255 AmbientClR2=50 AmbientClG2=50 AmbientClB2=50 DiffuseClR2=190 DiffuseClG2=150 DiffuseClB2=0 SpeculaClR2=255 SpeculaClG2=255 SpeculaClB2=255 MergeMode=0 MergeModeAlpha=10 StepBig=200 StepSmall=40 MaxIter=30 Bailout=16 QTrims=1 [UserFrm] StringCount=57 Str0=˙˙var˙Z,C,P1,P2,P3,P4˙˙˙:˙TComplex; Str1=˙˙˙˙˙˙T0,T1,T2,T3,T4,T5˙:˙TComplex; Str2=Begin˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str3=˙˙Z˙:=MakeComplex(x,y);˙˙˙˙ Str4=˙˙C˙:=MakeComplex(cr,ci);˙˙ Str5=˙˙P1:=MakeComplex(p1r,p1i); Str6=˙˙P2:=MakeComplex(p2r,p2i); Str7=˙˙P3:=MakeComplex(p3r,p3i); Str8=˙˙P4:=MakeComplex(p4r,p4i); Str9=˙˙T0.real:=0; Str10=˙˙T0.imag:=0; Str11=˙ Str12=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str13=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str14=˙˙//˙-initialization˙code˙˙ Str15=˙˙//˙˙(first˙iteration)˙˙˙˙ Str16=˙˙If˙iter_number=1˙Then˙begin Str17=˙˙˙˙t0:=c; Str18=˙˙˙˙FuncDisp(FN2,t0); Str19=˙˙˙˙t4:=MakeComplex(p1.real,t0.real); Str20=˙˙˙˙z:=t4 Str21=˙˙end; Str22=˙˙If˙(iter_number=1)˙and˙ Str23=˙˙((p2.real>0)˙or˙(p2.imag>0))˙ Str24=˙˙˙˙˙then˙begin Str25=˙˙˙˙t0:=CSub(t0,t0); Str26=˙˙˙˙z:=CSub(t0,t4) Str27=˙˙End; Str28=˙˙If˙julia˙then˙begin Str29=˙˙˙˙z:=MakeComplex(x,y) Str30=˙˙end;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str31=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str32=˙˙//˙write˙the˙formula˙here Str33=//˙fn1(z)*fn1(z)*fn1(z)-3*p1*p1*fn1(z) Str34=//˙˙˙+fn2(c) Str35=˙˙T1:=Z; Str36=˙˙FuncDisp(FN1,T1); Str37=˙˙T2:=Z; Str38=˙˙FuncDisp(FN1,T2); Str39=˙˙T3:=Z; Str40=˙˙FuncDisp(FN1,T3); Str41=˙˙FuncDisp(FN1,Z); Str42=˙˙FuncDisp(FN2,C); Str43=˙˙T1:=CMul(T1,T2); Str44=˙˙T1:=CMul(T1,T3); Str45=˙˙t4:=MakeComplex(p1.real,c.real); Str46=˙˙t5:=MakeComplex(p1.imag,c.imag); Str47=˙˙T2:=CMulR(t4,3); Str48=˙˙T2:=CMul(T2,t4); Str49=˙˙Z:=CMul(T2,Z); Str50=˙˙Z:=CSub(T1,Z); Str51=˙˙Z:=CAdd(Z,t5); Str52=˙˙ Str53=˙˙ Str54=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str55=˙˙SetResult(x,y,˙Z);˙˙˙˙˙˙˙ Str56=End; [Colors] Palette type=0 ColorOrder=0 Grayed=0 Brightness=16 Contrast=0 IterChanging=0 UFDensity=4 UFmappingMode=4 InfinityRed=0 InfinityGreen=0 InfinityBlue=0 [Standart palette] RedStep=8 RedShift=0 GreenStep=28 GreenShift=0 BlueStep=9 BlueShift=64 [Linear palette] Red1=0 Red2=255 Green1=0 Green2=255 Blue1=128 Blue2=0 [Parabola palette] Red1=0 Red2=255 Green1=0 Green2=255 Blue1=255 Blue2=0 [Square palette] Red1=0 Red2=128 Green1=0 Green2=0 Blue1=0 Blue2=255 [UF palette] Count=4 Node0x=0 Node0r=255 Node0g=210 Node0b=0 Node1x=89 Node1r=192 Node1g=128 Node1b=128 Node2x=179 Node2r=0 Node2g=192 Node2b=255 Node3x=269 Node3r=0 Node3g=0 Node3b=0