[VisualCLX] Gleichförmig 'verzögerte' beschleunigte Bewegung

ConditionZero · Verfasst: So 30.12.07 13:30

Moin,

Also folgendes: Ich möchte ein Shape per Knopfdruck gleichförmig beschleunigt bewegen. Jedoch soll Beschleunigung a wie bei einem Auto immer niedriger werden, so das immer langsamer Beschleunigt wird. (siehe Grafik im Anhang)

Hier meine ersten Versuche:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
  begin
  a:= a+1;
  Shape1.Left:= Shape1.Left+a;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a:= 1;
end;

Da passiert eigemtlich genau das was soll nur falsch herum...

Kann mir da jemand weiterhelfen?

Lg
Marc

Einloggen, um Attachments anzusehen!

Martok · Verfasst: So 30.12.07 13:34

Gleichförmig beschleunigt....autsch. Das heißt gleichmäßig beschleunigt

Wenn a kleiner werden soll, warum addierst du dann 1? Einfach auf 10-20 initialisieren, und immer a-1 bis man bei 1 bzw 0 angekommen ist.

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

Mitmischer 1703

ConditionZero hat folgendes geschrieben:

[delphi]
a:= a+1;
Shape1.Left:= Shape1.Left+a;

Da addierst du! Weiß nicht, ob das richtig ist :nixweiss:

EDIT: Zu langsam :autsch:

_________________
Die Lösung ist nicht siebzehn.

ConditionZero · Verfasst: So 30.12.07 13:48

Martok hat folgendes geschrieben:

Gleichförmig beschleunigt....autsch. Das heißt gleichmäßig beschleunigt

Mein Phsyikbuch sagt da aber was anderes... Also IMHO heißts Gleichfömig beschleunigte Bewegung :roll:

Martok hat folgendes geschrieben:

Wenn a kleiner werden soll, warum addierst du dann 1? Einfach auf 10-20 initialisieren, und immer a-1 bis man bei 1 bzw 0 angekommen ist.

Ja genau da liegt aber das Problem... Anfangs habe ich dann eine extrem schnelle Bewegung und später eine kleinere.

Aber ein Auto wird ja immer schneller nicht immer langsamer...
d.h.: v muss antiproportional zu a steigen denn ein Auto ist wird ja auch immer schneller, nur der FAKTOR der Beschleungigung (zur Erinnerung [a]= Km/h²) muss sinken.

lg
marc

Martok · Verfasst: So 30.12.07 14:43

Gleichförmig ist doch gleichförmig und nicht beschleunigt... Jedenfalls bei uns.

Achso... dein a ist also v... oder was?
Naja, dann halt noch ne Variable, alles auf Float-Berechnungen umstellen und dann müsste es gehen.

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

ConditionZero · Verfasst: So 30.12.07 14:53

Martok hat folgendes geschrieben:

Gleichförmig ist doch gleichförmig und nicht beschleunigt... Jedenfalls bei uns.

Das gleichförmig ist aber auf beschleunigte Bezogen, denn die Beschleunigung a steigt mit einem konstanten Faktor an

Sonst würde es nämlich Gleichförmige, beschleunigte Bewegung heißen.

Martok hat folgendes geschrieben:

Achso... dein a ist also v... oder was?
Naja, dann halt noch ne Variable, alles auf Float-Berechnungen umstellen und dann müsste es gehen.

Nein v existiert aus dem Grund noch nicht, da ich keine Ahnung habe wie ich den Wert von v berechnen kann. (Mit der Proportion von a)

lg
marc

GTA-Place · Verfasst: So 30.12.07 14:58

Öm... v = at?

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

ConditionZero · Verfasst: So 30.12.07 15:05

Ah genau... Thx
Also mit v = 0.5at² müsstes gehen (zum nachlesen

)

Fraglich ist jetzt nur noch warum der Compiler FloatToInt(a); nicht erkennt.

lg
marc

Herr Bananerama · Beiträge: 130

Seit ihr euch sicher das das eine konstante Beschleunigung ist und ne geradlinige Bewegung weil wir haben gelernt das diese in einem v t diagramm keine parabel sonder eine gerade mit a <> 0 ist !!!?

ConditionZero · Verfasst: So 30.12.07 15:35

Deswegen habe ich das Wörtchen verzögerte ins Topic mit rein... Das macht nämlich die ganze Sache erst kompliziert.
Die Beschleundigung a wird nämlich gleichförmig reduziert mit Konstanten Faktor (was nicht bedeutet Konstante Summe!)
Deshalb die Parabel.
Gehört glaube aber nicht zum normalen Unterrichtsstoff, wir haben das nämlich auch nicht auf diese Variante durchgenomme (Antiproportional anstatt proportional)

lg
marc

//Die Frage wegen dem Umkonvertieren steht noch

Herr Bananerama · Beiträge: 130

ConditionZero hat folgendes geschrieben:

Ah genau... Thx
Also mit v = 0.5at² müsstes gehen (zum nachlesen

)

Fraglich ist jetzt nur noch warum der Compiler FloatToInt(a); nicht erkennt.

lg
marc

ganz einfach ... es gibt kein FloatToInt. Eine gleitkommazahl in eine ganzzahl umwandeln tust du indem du rundest oder die stellen hinterm komma abschneidest. Das geht mit Round() und Trunc().

ConditionZero · Verfasst: So 30.12.07 16:06

Ok funkt. thx

Aber irgendwie Bewegt sich das Shape fürn Auto recht seltsam. (Anhang).

Hier aktueller Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var
  Form1: TForm1;
  a,v: Real;
  t,vn: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
  begin
  a:= a-0.3;
  v:=  0.5 * a * (t*t);
  vn:= Round(v)-Round(a);
  Shape1.Left:= Shape1.Left+vn;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
t:= 0;
a:= 15;
v:= 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:= t+1;
end;

lg
marc

//Sehr seltsam ist das sich das Shape immer anderst bewegt. lol

Einloggen, um Attachments anzusehen!

GTA-Place · Verfasst: So 30.12.07 16:14

ConditionZero hat folgendes geschrieben:

Also mit v = 0.5at² müsstes gehen

Nein, das wäre s = 1/2at² ;-)

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

ConditionZero · Verfasst: So 30.12.07 16:21

GTA-Place hat folgendes geschrieben:

ConditionZero hat folgendes geschrieben:

Also mit v = 0.5at² müsstes gehen

Nein, das wäre s = 1/2at² ;-)

Recht haste... Ändert aber nichts groß am Bug.
Ich vermute schwer es liegt an dem a:= a-0.3;

lg
marc

//Edit: Die verschiedenen Bewegungen lagen am Timer, hatte vergesen Enabled auf false zu stellen.

Herr Bananerama · Beiträge: 130

ConditionZero hat folgendes geschrieben:

GTA-Place hat folgendes geschrieben:

ConditionZero hat folgendes geschrieben:

Also mit v = 0.5at² müsstes gehen

Nein, das wäre s = 1/2at² ;-)

Recht haste... Ändert aber nichts groß am Bug.
Ich vermute schwer es liegt an dem a:= a-0.3;

lg
marc

//Edit: Die verschiedenen Bewegungen lagen am Timer, hatte vergesen Enabled auf false zu stellen.

Dann muss a aber auch von anfang an eine negative beschleunigung sein, also einen negativen wert haben sonst ergibt das keinen Sinn

ConditionZero · Verfasst: So 30.12.07 16:28

Ich weiß zwar nicht warum, aber du hast Recht funzt schon vieel besser

thx ich näher mich meinem Ziel *freu*

lg
marc

Herr Bananerama · Beiträge: 130

ConditionZero hat folgendes geschrieben:

Ich weiß zwar nicht warum, aber du hast Recht funzt schon vieel besser

thx ich näher mich meinem Ziel *freu*

lg
marc

Das ganze nennt man negative Beschleunigung und tritt z.B. auf wenn man bremst. Die beschleunigung ist negativ wenn
a < 0. Das sieht man im Graphen daran das er fällt.

ConditionZero · Verfasst: So 30.12.07 17:28

Ok, ich habe gerade bemerkt wir reden ein bisschen aneinander vorbei...

Also nochmal was ich erreichen will: Das Shape soll sich Verhalten wie ein Auto wenn es ohne weiteres von 0 auf Maximalgeschwindigkeit beschleunigt.

Das das KEINE gleichförmig beschleunigte Bewegung ist, erkennt man an folgender Veranschaulichung:

Wenn ein Auto 20 Km/h fährt, ist es zwar langsamer als wenn es 100 Km/h fährt, ABER die Beschleunigung a vom Auto ist noch besser als mit 100 Km/h. d.h. Je schneller das Auto fährt desto schlechter wird die Beschleunigung des Autos aber die eigentliche Geschwindigkeit ist trozdem höher... (Vielleicht macht die Tabelle im Anhang es leichter verständlich).

Und momentan ist der Fall:

Das Auto ist... Ehrlich gesagt keine Ahnung was grade schiefgeht, deswegen male ich nochmal ein Diagramm was den Fehler momentan veranschaulicht.

Einloggen, um Attachments anzusehen!

Herr Bananerama · Beiträge: 130

ConditionZero hat folgendes geschrieben:

Ok, ich habe gerade bemerkt wir reden ein bisschen aneinander vorbei...

Also nochmal was ich erreichen will: Das Shape soll sich Verhalten wie ein Auto wenn es ohne weiteres von 0 auf Maximalgeschwindigkeit beschleunigt.

Das das KEINE gleichförmig beschleunigte Bewegung ist, erkennt man an folgender Veranschaulichung:

Wenn ein Auto 20 Km/h fährt, ist es zwar langsamer als wenn es 100 Km/h fährt, ABER die Beschleunigung a vom Auto ist noch besser als mit 100 Km/h. d.h. Je schneller das Auto fährt desto schlechter wird die Beschleunigung des Autos aber die eigentliche Geschwindigkeit ist trozdem höher... (Vielleicht macht die Tabelle im Anhang es leichter verständlich).

Und momentan ist der Fall:

Das Auto ist... Ehrlich gesagt keine Ahnung was grade schiefgeht, deswegen male ich nochmal ein Diagramm was den Fehler momentan veranschaulicht.

Ahh jetzt verstehe ich, hmmm dann gib uns doch nochmal die prozedur so wie du sie jetzt hast, vielleicht können wir dann ja irgendwas erkennen. Eigentlich ist dann was die anderen geschrieben haben aufjedenfall richtig würde ich sagen

ConditionZero · Verfasst: So 30.12.07 17:49

Herr Bananerama hat folgendes geschrieben:

Ahh jetzt verstehe ich, hmmm dann gib uns doch nochmal die prozedur so wie du sie jetzt hast, vielleicht können wir dann ja irgendwas erkennen. Eigentlich ist dann was die anderen geschrieben haben aufjedenfall richtig würde ich sagen

Ok, hier nochmal der komplette Quellcode

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, XPMan;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a,v: Real;
  t: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
  begin
  Timer1.Enabled:= true;
  v:= a*t;
  Shape1.Left:= Shape1.Left+Round(v)-Round(a);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
t:= 0;
a:= -15;
v:= 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:= t+1;
a:= a-0.3;
Timer1.Enabled:= false;
exit;
end;

end.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme