Lissajous-Figuren

[turboPASCAL]

Zitat:

Zitat von Der_Ventilator

Wenn dir das was hilft, ich hab vor 2 Jahren (12. Klasse Physik) auch mal so ein Programm geschrieben...

Zitat:

Zitat von Luckie

Und hier meine 8 KB Version. :mrgreen:

Zitat:

Zitat von Xenonz

Hmm nachdem mein Programm vorhin als ich geantwortet hatte schon fast fertig
war, hab ich nicht mehr hier geschaut...

Naja hier ist mein fertiges Programm

Und das kann sich sehen lassen. :thumb:


Das soll es ja auch als 3D geben oder ? :mrgreen:

[Luckie]

Zitat:

Zitat von turboPASCAL

Das soll es ja auch als 3D geben oder ? :mrgreen:

Wenn dann bitte mit Source. ;)

[turboPASCAL]

Zitat:

Zitat von Luckie

Zitat:

Zitat von turboPASCAL

Das soll es ja auch als 3D geben oder ? :mrgreen:

Wenn dann bitte mit Source. ;)

Ist leider kein nonVCL und dann noch mit GLScene.
Im Grunde der selbe Code wie bei Luckie, nur noch ein Sinus in die "Z"-Richtung.
Den Sourcecode pack ich noch bei.

[Luckie]

Und wie hast du das sinusz beim Line zeichnen mit einbezogen:

Delphi-Quellcode:

  sinusx := trunc(sin(Pi * i * a / 180) * 180);
  sinusy := trunc(-sin(Pi * i * b / 180) * 180);
  LineTo(hdcMem, sinusx + (WINDOWWIDTH div 2), sinusy + (WINDOWHEIGHT div 2));

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.DrawLissajous(x, y, z: Single);
var
  sinX, sinY, sinZ, Pi_ : single;
  step: Integer;
begin
  GLLines1.Nodes.Clear;

  for step := 0 to 360 do
  begin
    sinX :=  sin(Pi * step * x / 180) * 180;
    sinY := -sin(Pi * step * y / 180) * 180;
    sinZ :=  sin(Pi * step * z / 180) * 180;

    GLLines1.Nodes.Add.AsAffineVector :=
      AffineVectorMake(sinX / 100, sinY / 100, sinZ / 100);
    
   if step mod 10 = 0 then  // a little Speed
      Application.ProcessMessages;

    Label7.Caption := Format('X: %8.2f; Y: %8.2f; Z: %8.2f', [sinX, sinY, sinZ]);

    if CancelCalculate then Break;
  end;

  GLSceneViewer1.Refresh;
end;

So.

Einfach ein Sinus in die z-Richtung. Ob das korrekt ist bin ich noch am nachforschen.