You are not logged in.

Dear visitor, welcome to Entdeckerforum Zauberspiegel. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

Gabi

Urgestein

  • "Gabi" started this thread

Posts: 565

Date of registration: Sep 27th 2009

  • Send private message

1

Tuesday, May 25th 2010, 7:59am

Neues Video bei Youtube

http://www.youtube.com/watch?v=61gnEf2iv8U

Es hat ja diesmal mächtig gedauert.
Hatte ein paar Filme angefangen und immer wieder abgebrochen. Jetzt über Pfingsten endlich mal durchgezogen.
Hier die ini-Datei vom Filmmotiv bzw. vom darunterstehenden Bild:

[KEY1]
NoOfFormula=152
PictNameOrNotice=F152Film3b
WidthX=888.88888888888891
HeightY=500.00000000000000
MidPointX=0.00000000000000000
MidPointY=0.00000000000000000
Degree=45.000000000000000
JuliaSet=1
CxPoint=0.060000000000000012
CyPoint=-0.060000000000000012
Param1=0.00000000000000000
Param2=0.00000000000000000
Param3to10=
ParamA=0.63841693543503786
Accurate=9.9999997473787516e-006
Max_Iterat=100
Max_(X+Y)=1000000000.0000000
CycleTest=1
SelectPict=17
ColTabNo=5
ColShift=682
ColFact=32.255
TextOutputList=
Filter=
LinesAndGrid=
LinesColor=
LinesThickness=
GridSizes=
FixedImageSeconds=0.00000000000000000
DoCalculate=0
SecondsFor+=0.00000000000000000
FactorPerPictFor*=1.0000500000000001
KeyNr=2
InterpolationList=(ParamA,*)



(Detail in anderer Farbeinstellung: http://www.vitaloop.de/img1/F152R1Detail.jpg )

Wer das Programm hat, kann das Bild sofort herstellen und auch den Film schnell nachbauen.
Für die Sequenz ab
ParamA=0.63700582461717070 war
FactorPerPictFor*=1.0000003

Wer sich für den Rechenweg interessiert:

' *************************************
'NoOfFormula=152 Vierpolgleichung Z = (Z+C)/(1+C*Z^3), Stern zum Schmetterling (Film Landung der Engel mit JuliaSet=0)

Local a:Double,b:Double,qx:Double,qy:Double,q3x:Double,q3y:Double
Local u:Double,v:Double,d:Double,e:Double,fsb:Double,xrett:Double,yrett:Double

' Zwilling 1:

a = Cx * (1 + param * p)
b = Cy * (1 - param * t)

qx = x * x - y * y
qy = 2 * x * y
q3x = qx * x - qy * y
q3y = qx * y + qy * x
u = x + a
v = y + b
d = a * q3x - b * q3y + 1
e = a * q3y + b * q3x

fsb = d * d + e * e
If (fsb < 1E-10) idivNull=True; abbr=True

xrett = (u * d + v * e) / fsb
yrett = (v * d - u * e) / fsb

' Zwilling 2:

If twin Then

a = Cp * (1 + param * x)
b = Ct * (1 - param * y)

x = p
y = t

qx = x * x - y * y
qy = 2 * x * y
q3x = qx * x - qy * y
q3y = qx * y + qy * x
u = x + a
v = y + b
d = a * q3x - b * q3y + 1
e = a * q3y + b * q3x

fsb = d * d + e * e
If (fsb < 1E-10) idivNull=True; abbr=True
p = (u * d + v * e) / fsb
t = (v * d - u * e) / fsb

Else
p = x
t = y

EndIf

x = xrett
y = yrett

' *************************************
' *************************************
Der Rest ist überall gleich.
Hier die berühmte Gleichung fürs Apfelmännchen (bei Mandelbrot noch ohne param bzw. mit param=0):

' *************************************
'NoOfFormula=1000 Apfelmännchen Z=Z^2+C

Local zx1:Double, zy1:Double, zx2:Double, zy2:Double

' Zwilling 1:
zx1 = x
zy1 = y
x = zx1*zx1 - zy1*zy1 + Cx + param*p
y = 2.0*zx1*zy1 + Cy + param*t

' Zwilling 2:
If twin Then
zx2 = p
zy2 = t
p = zx2*zx2-zy2*zy2 + Cx - param*zx1
t = 2.0*zx2*zy2 + Cy - param*zy1
Else
p = x
t = y
EndIf
' *************************************
' *************************************

Noch einfacher das Auge:

'NoOfFormula=1001 Auge Z=Z*(Z*)+C

Local zx1:Double, zy1:Double, zx2:Double, zy2:Double

' Zwilling 1:
zx1 = x
zy1 = y
x = zx1*zx1 + zy1*zy1 + Cx + param*p
y = Cy + param*t

' Zwilling 2:
If twin Then
zx2 = p
zy2 = t
p = zx2*zx2 + zy2*zy2 + Cx - param*zx1
t = Cy - param*zy1
Else
p = x
t = y
EndIf
' *************************************


MfG
Gabi

Similar threads