Sie sind nicht angemeldet.

Lieber Besucher, herzlich willkommen bei: Entdeckerforum Zauberspiegel. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

Gabi

Urgestein

  • »Gabi« ist der Autor dieses Themas

Beiträge: 545

Registrierungsdatum: 27. September 2009

  • Nachricht senden

1

Dienstag, 25. Mai 2010, 07:59

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

Ähnliche Themen