Hallo,

ich stehe vor einem Problem:

In meiner Partikelengine möchte ich Partikel nur in eine bestimmte Richtung abstrahlen. Momentan erzeuge ich die Partikel folgendermaßen:

zusammenfalten · markieren

Delphi-Quellcode:

var l:double;
begin
  with FDir do
  begin
    X := 180-random(360);
    Y := 180-random(360);
    l := Sqrt(Sqr(X)+Sqr(Y));
    X := X / l;
    Y := Y / l;
  end;
end;

Ich erzeuge einen Vektor und normalisiere diesen, um die Partikel praktisch "kreisförmig" abzustrahlen. Aufgrund der Normalisierung bringt es auch nicht viel an den so viel versprechenden Werten 180 oder 360 rum zu spielen.

Wie meine Winkelangabe aufgebaut ist, habe ich nochmal an einem kleinen Beispiel im Anhang verdeutlicht.

Hat jemand eine Idee, wie ich dies realisieren könnte? (Ich bin leider erst in Klasse 10. und kenne mich mit Vektorrechnung nicht so 100% aus.)

Schonmal Danke,
Igel457

tan(alpha) gibt dir die Steigung eines solchen Strahles an, das ist genauer als wenn du das mit Pythagoras zu lösen versuchst.

Ähm...
Kannst du das nochmal genauer erkären? Ich verwende den Pythagoras duch nur, um meinen Vektor zu normalisieren. Das soll auch mit Tangens gehen?

Hm, machs doch einfach so:

markieren

Delphi-Quellcode:

Alpha := Random * 2 * Pi;
X := cos(Alpha);
Y := sin(Alpha);

Bereits normalisiert und natürlich über Alpha extrem leicht anpassbar.

Zitat von Khabarakh:

Hm, machs doch einfach so:

markieren

Delphi-Quellcode:

Alpha := Random * 2 * Pi;
X := cos(Alpha);
Y := sin(Alpha);

Bereits normalisiert und natürlich über Alpha extrem leicht anpassbar.

Ok, jetzt hab ichs hinbekommen.

zusammenfalten · markieren

Delphi-Quellcode:

var alpha,max,min,h : double;
begin
  with FDir do
  begin
    max := (CreationAngle+CreationAngleOpen / 2) * PI / 180;
    min := (CreationAngle-CreationAngleOpen / 2) * PI / 180;
    Alpha := Random * (max-min)+min;
    X := cos(Alpha);
    Y := sin(Alpha);
  end;
end;

Danke an alle
igel457

Oder für die Schreibfaulen :
Alpha := Offset + Open * (Random - 0.5);