[DrawSize]
X_Size=100
Y_Size=100
[Main]
Renderer=Fractal Explorer 1.24b2, 27/08/2002
Comment=FE implementation of the CGNewtonSinExp by Chris Green
SignText=
[Fractal]
X_Coord=-0.238633740449419451
Y_Coord=0.247479079432470299
W_Coord=0.5
X0_Coord=-2
Y0_Coord=2
W0_Coord=4
AutoIter=0
IFSIter=100
Number=3000
ST_Number=1
BailOut=10000
MaxIter=100
Rotation=10
Rotation_free=-90
P1real=1
P1imag=0
P2real=0.5
P2imag=0.5
P3real=0
P3imag=0
P4real=0
P4imag=0
PJreal=0.5
PJimag=0.5
Function1=0
Function2=0
Transformer=0
JulieSet=0
Inverted=0
F-Set=0
Filter=112
Strange=0.100000001490116119
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.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
QTrims=1
Bailout=16
[UserFrm]
StringCount=32
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=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str7=˙˙//˙-"julia"˙flag˙˙˙˙˙˙˙˙˙˙˙˙
Str8=˙˙If˙julia˙Then˙begin˙˙˙˙˙˙˙˙˙
Str9=˙˙end;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str10=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str11=˙˙//˙-initialization˙code˙˙˙˙˙
Str12=˙˙//˙˙(first˙iteration)˙˙˙˙˙˙˙
Str13=˙˙If˙iter_number=1˙Then˙begin˙
Str14=˙˙˙˙˙cA1:=MakeComplex(0,0);
Str15=˙˙end;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str16=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str17=˙˙//˙CGNewtonSinExp˙by˙Chris˙Green
Str18=˙˙//˙˙˙z1=exp(z),
Str19=˙˙//˙˙˙z2=sin(z)+z1-z,
Str20=˙˙//˙˙˙z=z-p1*z2/(cos(z)+z1),
Str21=˙˙T1:=CExp(Z);
Str22=˙˙T2:=CSub(CAdd(CSin(Z),T1),Z);
Str23=˙˙T3:=CAdd(CCos(Z),T1);
Str24=˙˙Z˙:=CSub(Z,CDiv(CMul(P1,T2),T3));
Str25=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str26=˙˙SetResult(x,y,˙Z);˙˙˙˙˙˙˙˙˙˙
Str27=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Str28=˙˙//˙bailout˙test:˙.0001˙<˙|z2|
Str29=˙˙If˙CModule(T2)<0.000001˙Then˙˙˙˙˙˙˙˙˙˙˙
Str30=˙˙˙˙˙EndLoop:=True;˙˙˙˙˙˙˙˙˙˙˙
Str31=End;
[Colors]
Palette type=99
ColorOrder=6
Grayed=0
Brightness=16
Contrast=0
IterChanging=0
UFDensity=4
UFmappingMode=4
InfinityRed=0
InfinityGreen=0
InfinityBlue=0
[Standart palette]
RedStep=12
RedShift=-186
GreenStep=6
GreenShift=128
BlueStep=6
BlueShift=-232
[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=82
Node0r=255
Node0g=210
Node0b=0
Node1x=171
Node1r=192
Node1g=128
Node1b=128
Node2x=261
Node2r=0
Node2g=192
Node2b=255
Node3x=351
Node3r=0
Node3g=0
Node3b=0