[DrawSize] X_Size=100 Y_Size=100 [Main] Renderer=Fractal Explorer 1.24b2, 04/09/2002 Comment= SignText=Dr. Joseph Trotsky 2002 [Fractal] X_Coord=-1.66197183098591552 Y_Coord=1.72546826095461664 W_Coord=3.40625 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=4 P1imag=0 P2real=1 P2imag=0 P3real=2 P3imag=0 P4real=0 P4imag=0 PJreal=0.532915360501567424 PJimag=0.547021943573667712 Function1=0 Function2=0 Transformer=0 JulieSet=0 Inverted=0 F-Set=1 Filter=55 Strange=0.00999999977648258176 KeepBlk=0 NoOutside=0 Filter only=1 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.456426 CI=0.510553000000000064 CJ=0.1224 CK=-0.0924 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=58 Str0=˙˙var˙Z,C,P1,P2,P3,P4˙˙˙:˙TComplex; Str1=˙˙˙˙˙˙T0,T1,T2,T3˙˙˙˙˙˙˙:˙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=˙˙t1:=makecomplex(1,0); Str10=˙˙t1:=cdiv(t1,p1); Str11=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str12=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str13=˙˙If˙iter_number=1˙Then˙begin Str14=˙˙˙˙if˙julia˙then˙begin Str15=˙˙˙˙˙˙˙˙z:=Makecomplex(x,y) Str16=˙˙˙˙end Str17=˙˙˙˙else˙begin Str18=˙˙˙˙˙˙if˙p4.real=0˙then˙begin Str19=˙˙˙˙˙˙˙˙z:=cpower(p3,t1) Str20=˙˙˙˙˙˙end Str21=˙˙˙˙˙˙else˙˙begin Str22=˙˙˙˙˙˙˙˙if˙p4.real=1˙then˙˙begin Str23=˙˙˙˙˙˙˙˙˙˙t0:=csub(t0,p1); Str24=˙˙˙˙˙˙˙˙˙˙t0:=cmul(p3,t0); Str25=˙˙˙˙˙˙˙˙˙˙z:=cpower(t0,t1) Str26=˙˙˙˙˙˙˙˙end Str27=˙˙˙˙˙˙else Str28=˙˙˙˙˙˙˙˙Z:=p2˙ Str29=˙˙˙˙˙˙end˙ Str30=˙˙˙˙end˙ Str31=˙˙end;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str32=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str33={˙˙z=t1*(z-p3*z^(1-p1))+fn1(c) Str34= Str35=p1=Degree Str36=p2=Initialization˙of˙z˙if˙p4=2 Str37=p3=Root Str38= Str39=p4=0˙Newton-init˙of˙z Str40=p4=1˙Mandel-init˙of˙z Str41=p4=2˙User-init˙of˙z Str42=For˙Julias˙no˙init. Str43=} Str44=˙˙funcdisp(fn2,z); Str45=˙˙t0:=z; Str46=˙˙t2:=MakeComplex(1,0); Str47=˙˙t3:=CSub(t2,P1); Str48=˙˙Z:=CPower(z,T3); Str49=˙˙z:=CMul(P3,Z); Str50=˙˙Z:=CSub(T0,Z); Str51=˙˙FuncDisp(FN1,C); Str52=˙˙Z:=CMul(T1,Z); Str53=˙˙Z:=CAdd(Z,C); Str54=˙˙ Str55=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str56=˙˙SetResult(x,y,˙Z);˙˙˙˙˙˙˙ Str57=End; [Colors] Palette type=7 ColorOrder=0 Grayed=0 Brightness=0 Contrast=0 IterChanging=0 UFDensity=4 UFmappingMode=4 InfinityRed=0 InfinityGreen=0 InfinityBlue=0 [Standart palette] RedStep=8 RedShift=67 GreenStep=8 GreenShift=216 BlueStep=9 BlueShift=-118 [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=68 Node0r=54 Node0g=87 Node0b=201 Node1x=165 Node1r=0 Node1g=0 Node1b=0 Node2x=262 Node2r=179 Node2g=212 Node2b=0 Node3x=342 Node3r=157 Node3g=128 Node3b=128