Wen ich dich richtig verstehe, ist dies die grüne Stange in meinem Beispiel.Das eine Ende dieser Stange beschreibt einen Kreis um das Zentrum meines Rades. (gx := cos(GKW) *(Mathe.RAJ), gy := sin(GKW) *(Mathe.RAJ)) Das andere Ende treibt meine Schwinge an.
OpenGL_Rad.zipCode: Alles auswählen
TSchwinge = record
Pleuel_W, Schwinge_W: single;
RadExzenter: TPointF;
procedure SetParam(Rad_W: single; Rad_R, Schwinge_x, Schwinge_y, Pleuel_L, Schwinge_L: single);
end;
function TTrigo.a_b_c_To_Alpha(a, b, c: single): single;
begin
Result := arccos((-sqr(a) + sqr(b) + sqr(c)) / (2 * b * c));
if Grad then begin
Result := Result / pi * 180;
end;
end;
function TTrigo.a_b_c_To_Beta(a, b, c: single): single;
begin
Result := arccos((-sqr(b) + sqr(a) + sqr(c)) / (2 * a * c));
if Grad then begin
Result := Result / pi * 180;
end;
end;
procedure TSchwinge.SetParam(Rad_W: single; Rad_R, Schwinge_x, Schwinge_y, Pleuel_L, Schwinge_L: single);
(* @Rad_W: Winkel, des Excenter, des Rades.
@Rad_R: Distanz, Rad-Zentrum bis Excenter.
@Schwinge_x / y: Drehpunkt der Schwinge.
@Pleuel_L: Länge des Pleuels, vom Rad-exenter bis Schwinge-Ende, im Beispiel Verbindung der blauen und grünen Stange.
@Schwinge_L: Distanz, Drehpunkt-Schwinge bis Pleuelbefestigung.
*)
var
c, // Ist der Abstand zwischen dem Radexcenter und dem Zentrum der Schwinge.
w: single; // Ist der Winkel von C ( Ister der Winkel von c, wen die eine Linie wäre.
begin
RadExzenter := Trigo.Alpha_c_To_xy(Rad_W, Rad_R);
c := sqrt(sqr(RadExzenter.y - Schwinge_y) + sqr(Schwinge_x - RadExzenter.x));
w := arcsin((-RadExzenter.y + Schwinge_y) / c) / Pi * 180.0;
Pleuel_W := Trigo.a_b_c_To_Alpha(Schwinge_L, Pleuel_L, c) + w;
Schwinge_W := 180.0 - Trigo.a_b_c_To_Beta(Schwinge_L, Pleuel_L, c) + w;
end; 
Schöne Modelle, ich hatte auch mal eine Eisenbahn, aber momentan mache ich nichts mehr damit.Diese Homepage gehört einem Freund: http://www.echtdampfwelt.de/
Das ist durchaus beabsichtigt und nennt sich "Voreilung".Der Schieber ist dem Haupt-Zylinder im ein wenig vorraus, egal in welche Richtung das Rad sich dreht.
Meinst du damit, das viele Leute Loks besitzen, aber nicht annähernd wissen, wie diese funktionieren ?Es gibt viele Leute die Lokomotiven für viele tausend € besitzen aber das was Du erkannt hast nicht verstehen.
Wir sind im Dorf an einer Dampfbahn-Stecke angeschlossen, ich höre jeden 2. Sonntag im Sommer Dampfloks pfeifen.Viele gibt es ja leider davon nicht mehr.
Wird somit die Geschwindigkeit und die Richtung einer Dampflok nur mit dem Schieber gesteuert ?Wenn die Schwinge in Mittelstellung (neutral) ist werden die Dampfkanäle zum Zylinder nicht mehr geöffnet und die Lok bleibt stehen.
Das wäre ein Grund, das neue OpenGL anzugucken.An die Möglichkeit die Animation (oder das ganze Programm) online zu verwenden hatte ich noch nicht gedacht. Könnte aber interessant sein.
Wieso, haben die Engländer andere Loks ? Oder sind die einfach die grösseren Sammler ?Wie ich bei einem Besuch im England feststellen konnte gibt es bei uns in Deutschland noch viel in dieser Richtung zu lernen.
Code: Alles auswählen
procedure TSteuerung.Schwingenwinkel(rw,rg,sx,sy,ex,sa:single);
//rw=Winkel,rg=Radius Gegenkurbel,sx=Schwingenlager x,sy=Schwingenlager y,
//ex=Exenterstange,sa=Anlenkung
var c,w,wa,zx,zy :single;
begin
zx := cos(gkw) *(rg);
zy := sin(gkw) *(rg);
// Abstand Schwingenlager - Treibachse
SWTR:=sqrt(sqr(sx)+sqr(sy));
// Abstand zwischen Exenter und Schwingenlager
c := sqrt(sqr(zy - sy) + sqr(sx - zx));
// Winkel TAZ - Schwingenlager
w:= (arcsin((-zy + sy) / c)) / Pi * 180.0;
// Winkel (Pleuel_W)
wa:=(arccos((-sqr(sa) + sqr(ex) + sqr(c)) / (2 * ex * c)))/ pi * 180;
// Winkel Schwinge (Schwinge_W)
SW:=180-arccos((-sqr(ex)+sqr(sa)+sqr(c))/(2*sa*c))-w;
(* @Rad_W: Winkel, des Excenter, des Rades.
@Rad_R: Distanz, Rad-Zentrum bis Excenter.
@Schwinge_x / y: Drehpunkt der Schwinge.
@Pleuel_L: Länge des Pleuels, vom Rad-exenter bis Schwinge-Ende, im Beispiel Verbindung der blauen und grünen Stange.
@Schwinge_L: Distanz, Drehpunkt-Schwinge bis Pleuelbefestigung.
*)
{ @Rad_W = rw = Winkel 0 - 360"
@Rad_R = rg = 0,344
@Schwinge x/y = sx/sy = 3,991/1,188
@Pleuel_L = ex = 3,803
@Schwinge_L = sa = 1,063 }
Kannst du nicht meine Funktionen 1:1 übernehmen, oder machen die etwas falsch ?Jetzt hänge ich schon wieder bei der Umsetzung Deiner Schwingenberechnung.
Code: Alles auswählen
TreibRad: record
Radius:Single;
Rad: TRad;
ExzenterRadius: single;
end;
Schubstange: record
ZylinderAbstand: single;
Schubstange, Pleuel, ZylinderStange: TStange;
Zylinder: TZylinder
end; 
Verein
Links
Suche