DGL • Thema anzeigen - Kollisionsberechnung

Kollisionsberechnung

Moderator: DGL-Team

Seite 2 von 2

[ 22 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Adler

Betreff des Beitrags:

Verfasst: Mi Dez 31, 2003 16:28

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Stimmt, dann schreib ich da nur drei rein und den einen wert auch auf drei, dann mache ich durch mein auto eine linie nach vorne eine durchs auto von rechts nach links und dann noch von oben nach unten

---
Noch ne Frage, kann ich aus der Unit die Y Achse des Schnittpunktes rausfinden?

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Fr Jan 02, 2004 21:16

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Hi!

Hab mir das angeschaut, mir mein record "Tcoord" angelegt.
Einen array "Coord: array of Tcoord;" gemacht.

Die Funktion so aufgerufen...:

collided := IntersectedPolygon( [TCoord(coord[i].x),
TCoord(coord[i].y),
TCoord(coord[i].z)],
[TCoord(StartPoint),
TCoord(EndPoint)], 3);

Folgender Fehler tritt auf:
invalid typecast

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Fr Jan 02, 2004 21:19

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

coord[i].x ist doch ein Floatwert, und du versuchst dann also mittels TCoord(coord[i].x) einen Floatwert nach TCoord zu casten, was natürlich nicht geht. Die Delphigrundlagen sollte man wie erwähnt doch schon kennen...ein Typecast wie du ihn machst ist nämlich total überflüssig.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Fr Jan 02, 2004 22:09

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

nur so als kleinen anhang. ich hab mal angefangen, eine mathe unit zu tippseln in der ein paar wichtige vektor funktionen stehen..

ich habs mal angehängt, ist aber leider unvollständig.. man könnte z.B. noch verschiedene schnittfunktionen einbauen, und so weiter..

Code:

 
{-----------------------------------------------------------}
{ Letzter Author  : Nicolai Waniek [rochus]                 }
{ Datum           : 25.11.2003                              }
{ Dateiname       : r3E_math                                }
{                   © 2003 Nicolai Waniek                   }
{                   © 2003 rochus development               }
{                   rochus@rochus.net                       }
{ --------------------------------------------------------- }
 
 
unit r3E_math;
 
interface
 
uses
    math,
    r3E_datatypes;
 
 
procedure Vec(var v:TVector3D;v1,v2,v3:real);
function VectorCross3D(v1,v2: TVector3D):TVector3D;
function Normal3D(v1,v2:TVector3D):TVector3D;
function VectorMinus(p1,p2: TVector3D):TVector3D;
function CalcVector(p1,p2: TVector3D):TVector3D;
function VectorPlus(v1,v2:TVector3D):TVector3D;
function VectorMulti(v1: TVector3D; n: real): Tvector3D;
function TwoPointMiddle(p1,p2: TPoint3D):TPoint3D;
function TriMiddle(p1,p2,p3: TPoint3D): TPoint3D;
function Scalar3D(v1,v2: TVector3D):real;
function VectorAmount(v1:TVector3D):real;
function Angle2Vectors(v1,v2:TVector3D):real;
function AnglePlaneVector(v1,n: TVector3D): real;
function Angle2Planes(n1,n2: TVector3D): real;
 
 
 
 
implementation
 
 
procedure Vec(var v:TVector3D;v1,v2,v3:real);
begin
    v[0] := v1;
    v[1] := v2;
    v[2] := v3;
end;
 
 
 
 
{-----------------------------------------------------------}
{ Name : VectorCross }
{ Name : Normal3D }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Errechnet Das VectorKreuz }
{-----------------------------------------------------------}
function VectorCross3D(v1,v2: TVector3D):TVector3D;
begin
    result[0] := v1[1]*v2[2]-v1[2]*v2[1];
    result[1] := v2[2]*v2[0]-v1[0]*v2[2];
    result[2] := v1[0]*v2[1]-v1[1]*v2[0];
end;
 
function Normal3D(v1,v2:TVector3D):TVector3D;
begin
    result[0] := v1[1]*v2[2]-v1[2]*v2[1];
    result[1] := v2[2]*v2[0]-v1[0]*v2[2];
    result[2] := v1[0]*v2[1]-v1[1]*v2[0];
end;
 
 
{-----------------------------------------------------------}
{ Name : VectorMinus }
{ Name : CalcVector }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Subtrahiert einen Vektor oder Punkt von einem anderen }
{-----------------------------------------------------------}
function VectorMinus(p1,p2: TVector3D):TVector3D;
begin
    result[0] := p2[0]-p1[0];
    result[1] := p2[1]-p1[1];
    result[2] := p2[2]-p1[2];
end;
 
function CalcVector(p1,p2: TVector3D):TVector3D;
begin
    result[0] := p2[0]-p1[0];
    result[1] := p2[1]-p1[1];
    result[2] := p2[2]-p1[2];
end;
 
 
 
{-----------------------------------------------------------}
{ Name : VectorPlus }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Addiert einen Vektor zu einem anderen (Punkt) }
{-----------------------------------------------------------}
function VectorPlus(v1,v2:TVector3D):TVector3D;
begin
    result[0] := v1[0]+v2[0];
    result[1] := v1[1]+v2[1];
    result[2] := v1[2]+v2[2];
end;
 
 
{-----------------------------------------------------------}
{ Name : VectorMulti }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Multipliziert einen Vector mit einer Zahl n (n E R) }
{-----------------------------------------------------------}
function VectorMulti(v1: TVector3D; n: real): Tvector3D;
begin
    result[0] := v1[0]*n;
    result[1] := v1[1]*n;
    result[2] := v1[2]*n;
end;
 
 
 
{-----------------------------------------------------------}
{ Name : TwoPointMiddle }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Errechnet den Mittelpunkt zweier Punkte aus }
{-----------------------------------------------------------}
function TwoPointMiddle(p1,p2: TPoint3D):TPoint3D;
var
    buf : TPoint3D;
begin
    buf := CalcVector(p1,p2);
    buf := VectorPlus(p1,VectorMulti(buf,0.5));
    result := buf;
end;
 
 
 
 
{-----------------------------------------------------------}
{ Name : TriMiddle }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Berechnet den Mittelpunkt eines Dreiecks (dreieck muss in }
{ nur mit eckpunkten angegeben werden!)}
{-----------------------------------------------------------}
function TriMiddle(p1,p2,p3: TPoint3D): TPoint3D;
var
    buf : TPoint3D;
    bufM: TPoint3D;
begin
    bufM := TwoPointMiddle(p1,p2);
    buf := VectorMinus(bufM,p3);
    buf := VectorMulti(buf,1/3);
    result := VectorPlus(bufM,buf);
end;
 
 
 
 
{-----------------------------------------------------------}
{ Name : Scalar3D }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Berechnet das Scalarprodukt für 3D Vektoren }
{-----------------------------------------------------------}
function Scalar3D(v1,v2: TVector3D):real;
begin
    result := v1[0]*v2[0] + v1[1]*v2[1] + v1[2]*v2[2];  
end;
 
 
 
 
{-----------------------------------------------------------}
{ Name : VectorAmount }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Berechnet den Betrag eines Vectors }
{-----------------------------------------------------------}
function VectorAmount(v1:TVector3D):real;
begin
    result := sqrt(sqr(v1[0])+sqr(v1[1])+sqr(v1[2]));
end;
 
 
{-----------------------------------------------------------}
{ Name : Angle2Vectors }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Berechnet den Schnittwinkel zweier Vektoren                   }
{-----------------------------------------------------------}
function Angle2Vectors(v1,v2:TVector3D):real;
begin
    result := RadToDeg(arccos(Scalar3D(v1,v2)/(VectorAmount(v1)*VectorAmount(v2))));
end;
 
 
 
 
{-----------------------------------------------------------}
{ Name : AnglePlaneVector }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Berechnet den Winkel zwischen einer Ebene und einer       }
{ Ebene, wobei v1 Vektor der Gerade und n Normalenvektor der}
{ Ebene ist.
{-----------------------------------------------------------}
function AnglePlaneVector(v1,n: TVector3D): real;
begin
    result := RadToDeg(arcsin(Scalar3d(v1,n)/(VectorAmount(v1)*VectorAmount(n))));
end;
 
 
 
 
{-----------------------------------------------------------}
{ Name : Angle2Planes }
{-----------------------------------------------------------}
{ Beschreibung:                                             }
{ Berechnet den Schnittwinkel 2er Ebenen mit hilfe der Nor- }
{ malenvektoren                                                         }
{-----------------------------------------------------------}
function Angle2Planes(n1,n2: TVector3D): real;
begin
    result := Angle2Vectors(n1,n2);
//  result := RadToDeg(arcscos(Scalar3d(n1,n2)/(VectorAmount(n1)*VectorAmount(n2))));
end;
 
 
end.
 

_________________
http://www.rochus.net

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Fr Jan 02, 2004 22:29

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Hi!

Beim vorletzten, haste in der Beschreibung geschrieben "zwischen einer Ebene und einer Ebene", muss das nicht Ebene und Geraden heissen?

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Sa Jan 03, 2004 16:40

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

jojo

das hab ich auch schon bemerkt *g*. war nur zu faul das zu ändern. kannste damit was anfangen?

_________________
http://www.rochus.net

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Sa Jan 03, 2004 17:05

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

ja, wenn ichs hinbekomme das so einzusetzen, das gerade und ebene, den winkel zu berechnen, das wäre schon mal sehr klasse.

Nach oben

Seite 2 von 2

[ 22 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.