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
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.