Thema: Delphi Kreispunkte Berechnen

Einzelnen Beitrag anzeigen

Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#9
  Alt 27. Feb 2003, 21:00
Ohne Gewähr, was mir mein Taschenrechner ausspuckte :
Code:
x=-(Wurzel(4*Wurzel(a^2-4*a+b^2-36*b+328)*Wurzel(c^2-4*c+d^2-36*d+328)*cos(phi)+a^2-2*a*c-4*b*(d-18)+c^2+72*(d-18))-a-c)/


x=(Wurzel(4*Wurzel(a^2-4*a+b^2-36*b+328)*Wurzel(c^2-4*c+d^2-36*d+328)*cos(phi)+a^2-2*a*c-4*b*(d-18)+c^2+72*(d-18))+a+c)/2
ziemlich unübersichtlich.

Schau mal ob ich ihm noch was schöneres entlocken kann.
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat