Eine Kugel mit sehr vielen Punkten...

Grimbizo

Hi!

Ich bin gerade eine geometrie/physik-blibliothek am schreiben und ich habe ein Problem mit der Funktion

[autoit]

Func _Geometrics_SpherePos($Radius,$Split)
$theta=180/$Split
$phi=360/$Split
$range=($Split+1)*($Split+1)
Dim $return[$range][3]
$i=0
For $t=0 To 180 Step $theta
For $p=0 to 360 Step $phi
$return[$i][0]=$Radius*Sin($t)*Cos($p)
$return[$i][1]=$Radius*Sin($t)*Sin($p)
$return[$i][2]=$Radius*Cos($t)
$i+=1
Next
Next
Return $return
EndFunc

[/autoit]

Nähmlich ist die Kugel, die damit dargestellt wird zwar richtig, jedoch gibt es immer Gruppierungen von Punkten. (Siehe Bild) Das sollte nicht so sein. Kann mir i-wer helfen?

Schon mal danke im Vorraus.

PS: Im Anhang ist auch ein Beispiel (in der ZIP) zur versinnblidlichung.

**UEZ**

Probiere es mal damit:

[autoit]

Func _Geometrics_SpherePos($Radius, $Split)
$theta = 180 / $Split
$phi = 360 / $Split
$range = ($Split + 1) * ($Split + 1)
Dim $return[$range][3]
$i = 0
For $t = 0 To 180 Step $theta
For $p = 0 To 360 Step $phi
$return[$i][0] = $Radius * Sin($t * $_Geometrics_radian) * Cos($p * $_Geometrics_radian)
$return[$i][1] = $Radius * Sin($t * $_Geometrics_radian) * Sin($p * $_Geometrics_radian)
$return[$i][2] = $Radius * Cos($t * $_Geometrics_radian)
$i += 1
Next
Next
Return $return
EndFunc ;==>_Geometrics_SpherePos

[/autoit]

So was wollte ich auch mal in GDI+ implementieren....

Gruß,
UEZ

Grimbizo

Vielen Dank! Ich bin aber auch recht dumm im Kopf. weil sowohl bei der Kreis- als auch beider Kugelfunktion das Winkelmaß vergessen habe.

**UEZ**

Mit Dummheit hat das nichts zu tun!

Du hast doch die Funktion sauber hinbekommen! Flüchtigkeitsfehler passieren eben...

Gruß,
UEZ

Grimbizo

xD

danke nochmal

Wo kann man eig AutoIT lehrling werden und was macht man da? Ich wusste gar nicht, dass das geht.

**Oscar**

[verschoben nach Hilfe & Unterstützung]

Zitat von Grimbizo

Wo kann man eig AutoIT lehrling werden und was macht man da? Ich wusste gar nicht, dass das geht.

**Andy**

Zitat

Wo kann man eig AutoIT lehrling werden und was macht man da? Ich wusste gar nicht, dass das geht.

made my day.....

Irrlicht

... kann man ab dem ws 2012/13 auch studieren

**Xorianator**

**chesstiger**

Ich schließe mich mit einem herzlichen "" an.^^

Alizame

ich löse es mal auf xD:
bei normalen "Usern" steht dort "User".
Poweruser (was "UEZ" ist) können diesen text dort ändern. und weil "UEZ" seit 2008 dabei ist, sind dies 4 jahre.
also lernt "UEZ" seit 4 jahren AutoIt (naja, sagen wir er kann es seit 4 Jahren. ich glaube der musste das garnicht lernen ;D)

**UEZ**

Man(n) lernt nie aus

Gruß,
UEZ