|
Registriert seit: 7. Jan 2008
Ort: Baden Württemberg- Hohenlohekreis
174 Beiträge
RAD-Studio 2009 Arc
|
Re: Vektorgleichung lösen
20. Mai 2008, 16:04
ich hab das so gemacht:
Delphi-Quellcode:
Tvektor= packed record
x,y,z:currency;
end;
funktioniert auch wunderbar. Wenn ich zwei Vektoren addieren will, mache ich das so:
Delphi-Quellcode:
function tform1.vektoradditon(a,b:tvektor):tvektor;
begin
result.x:=a.x+b.x;
result.y:=a.y+b.y;
result.z:=a.z+b.z;
end;
Volker
~beware
Wizards First Rule:
People are stupid; given proper motivation, almost anyone will believe almost anything. Because people are stupid, they will believe a lie because they want to believe it’s true, or because they are afraid it might be true
|