Ich wollte eine Glasscheibe mit Delphi simulieren, hab aber nur das hier als Ansatz
(
http://www.buha.info/board/archive/i...p/t-45768.html )
gefunden.
Ich suche eine Formel um eine Graden an einer ebene zu brechen und als Lösung die Steigung der geraden, bzw. die neue Gradengleichung zu erhalten.
Eigendlich steckt die in dem Post (s.o) schon drin. Leider kann ich aber kein *was-weiß-ich*. Wer übersetzt mir das(s.o oder s.u.), bzw. löst mein Problem?
restart;
with(LinearAlgebra):
N:=Vector([0,1,0]):
S0:=Vector([-1,1,0]):
w:=Normalize(CrossProduct(N,S0), Euclidean):
a1:=Pi/4:
R:=N*cos(a1)+(1-cos(a1))*(w*Multiply(Transpose(w),N))+sin(a1)*Cros sProduct(w,N);
Danke schon mal!
lg amy