Tach.
Bestimmt kennen einige die Batmankurve(n) ^^. Für die die es noch nicht kenne, hier eine Quick'n'Dirty Darstellung, was ich meine. Wenn jemand noch ein paar lustige Beispiele kennt, kann er sie ja posten.
Spoiler anzeigen
Dim $BatCurve[4] = [ _
"2*sqrt((-abs(abs(x)-1))*abs(3-abs(x))/((abs(x)-1)*(3-abs(x))))*(1+abs(abs(x)-3)/(abs(x)-3))*"& _
"sqrt(1-(x/7)^2)+(5+0.97*(abs(x-0.5)+abs(x+0.5))-3*(abs(x-0.75)+abs(x+0.75)))*(1+abs(1-abs(x))/(1-abs(x)))", _
"(-3)*sqrt(1-(x/7)^2)*sqrt(abs(abs(x)-4)/(abs(x)-4))", _
"abs(x/2)-0.0913722*x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)", _
"(2.71052+1.5-0.5*abs(x)-1.35526*sqrt(4-(abs(x)-1)^2))*sqrt(abs(abs(x)-1)/(abs(x)-1))+0" _
]
;
Local $Zoom = 40, $AntiAliasing = 10
$hGUI = GUICreate("", 600, 600)
$gr = GUICtrlCreateGraphic(0,0)
GUISetState()
$timer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To 3
Plot($BatCurve[$i])
Next
GUICtrlSetGraphic($gr, 22)
MsgBox(0, "Nananna... Mathsman!", Round(TimerDiff($timer)/(((1/$Zoom)*600)*UBound($BatCurve)-1),2)&" Berechnungen pro ms!")
[/autoit] [autoit][/autoit] [autoit]While GUIGetMsg()<>-3 And Sleep(10)
WEnd
Func Plot($fx)
$Equation = StringReplace($fx, "x", "$x")
$Step = (1/$AntiAliasing)
For $x = -300 To 300 Step $Step
$y = Execute($Equation)*$Zoom*-1+300
$j = $x*$Zoom+300
GUICtrlSetGraphic($gr, 2, $j, $y)
Next
EndFunc
