Darstellungen und Berechnungen am Dreieck

[jobo]

Noch ein paar Anmerkungen:
- Wieso ist die Fenstergröße fix?
- Nach welchen Kriterien werden die Berechnungsformen sortiert?
Ich habe z.B. nach Rechte Winkel, Pythagoras, Quadrat, .. gesucht und letztlich eine F12-Modus gespeicherte Datei im Texteditor durchsucht, um immerhin "Seitenquadrate" zu finden. Im Programm muss man dann aber erneut durch die 3 (bzw. 4) Reiter stöbern, um "Seitenquadrate" zu finden. Du hast ja so viel Berechnungen implementiert, da würde vielleicht eine intelligente Kombobox mit Teilstringsuche ganz gut helfen.

Zur Animation
Animationssequenzen wären noch die Sahnehaube!
a) Zunächst wären Anfangs-/Endpunkte für ABC zu definieren,
b) dann (sofern machbar) noch Farbwechsel.
c) Angabe von aus-/einzublenden Berechnungen
d) Animationspause in ms

a),b),c),d) dann beliebig oft (mit anderen Werten natürlich), als Liste oder Zirkel (Liste vorwärts, rückwärts)

Ich bin kein Mathegenie, aber ich könnte mir vorstellen, dass man damit doch etwas Euklidische Geometrie veranschaulichen kann (mir oder den Schülern).

P.S.: Eine (automatische) Visualisierung rechter Winkel (Winkelbogen mit Punkt) wäre auch schön.

[Mathematiker]

Hallo jobo,
Danke für die vielen Hinweise. Ich werde in den nächsten Tagen versuchen, möglichst viel umzusetzen.

Zitat:

Zitat von jobo (Beitrag 1210302)

Wieso ist die Fenstergröße fix?

Ist in Revision 2 geändert.
Ebenso kann jetzt die Animationsgeschwindigkeit geregelt werden. Außerdem können die Dreieckspunkte jetzt auch um den Ursprung rotieren.
Wie schon gesagt, der Rest wird wahrscheinlich auch noch.

Beste Grüße
Mathematiker

[blondervolker]

Hallo,

kannst ja den Sourcecode mit reinstellen.:-D
Das man was lernen kann...:thumb:

[Mathematiker]

Hallo,

Zitat:

Zitat von blondervolker (Beitrag 1210340)

kannst ja den Sourcecode mit reinstellen.:-D

Könnte ich, aber bei diesem Programm möchte ich es nicht. :)
Außerdem: In der EE habe ich für fast jeden meiner Quelltexte "Prügel" erhalten, da sie für andere nicht lesbar sind. Z.B. gibt's bei mir keinerlei Kommentare, schlecht strukturiert usw.
Bei anderen Programmen bin ich gern bereit, den Quelltext zu zeigen; bei den komplexeren nicht unbedingt.

Beste Grüße
Mathematiker

[Delphi-Laie]

Ich vermied es, für Mathematiker bezüglich des Quelltextes zu reagieren, aber jetzt muß es heraus, nämlich daß das Bitten um den Quelltext aussichtslos ist, war mir von Anfang an sonnenklar - sonst hätte ihn Mathematiker schließlich von sich aus beigelegt.

Zitat:

Zitat von Mathematiker (Beitrag 1210342)

Außerdem: In der EE habe ich für fast jeden meiner Quelltexte "Prügel" erhalten, da sie für andere nicht lesbar sind. Z.B. gibt's bei mir keinerlei Kommentare, schlecht strukturiert usw.

Mach Dir nichts draus, Mathematiker: In den Foren gibt es auch genug Leute, die persönlich werden und einen angreifen, obwohl man sie nicht angriff. ;-)

[Horst_]

Hallo,

Der Quellcode wäre sicher gut als Übung für:
'Was hat sich der Autor dabei gedacht?', denn Du neigst, dazu möglichst kurze Variablennamen zu nehmen.
Danke, dass Du uns für dieses Wochenende "verschonst".
Gleich zu Beginn, Adams-Kreis, kannte ich gar nicht. Also schalte ich mal was bekannses, die Umkreise hinzu und ei verbibscht der Schnittpunkt von denen war der Mittelpunkt dieses "Adams-Kreises". Ich fühlte mich wie ein blindes Huhn ;-)
Danke für diese Moment der Verblüffung.

Gruß Horst

[borstenei]

Stellst Du jetzt nach und nach alle Deine Programme rein?
Dann spar ich mir das Geld für das aktuelle "WinFunktion Mathematik Plus 20 " :-D

[Mathematiker]

Hallo blondervolker,
damit Du nicht denkst, ich will mich vollkommen drücken, habe ich einmal einen Teil herauskopiert und mit kurzen Kommentaren versehen, den Teil zur Berechnung der rekursiven Soddy-Kreise:

Delphi-Quellcode:

//rekursive Soddykreise
procedure rekursivsoddy;
var a,b,c,ax,bx,cx,ra,rb,rc:real;
//apollonische kreise
procedure apoll(ax,ay,ar,bx,by,br,cx,cy,cr:extended;tiefe:integer);
var seitea,seiteb,seitec,
    alpha,beta,gamma,
    talpha,tbeta,tgamma,
    dx,dy,dr:extended;
    ddx,ddy,w5:real;
begin
    if tiefe>8 then exit;

    //Kreisradius berechnen
    w5:=(br*cr+ar*(br+cr)+2*sqrtx(ar*br*cr*(ar+br+cr)));
    if w5=0 then exit;
    dr:= ar*br*cr/w5;
    //Abstände der berührenden Kreise berechnen
    seitea:=sqrtx(sqr(bx-cx)+sqr(by-cy));
    seiteb:=sqrtx(sqr(ax-cx)+sqr(ay-cy));
    seitec:=sqrtx(sqr(bx-ax)+sqr(by-ay));

    if (seiteb*seitec*seitea<>0) then
    begin
      //Innenwinkel berechnen
      alpha:=(seitea*seitea-seiteb*seiteb-seitec*seitec)/(-2*seiteb*seitec);
      beta:=(seiteb*seiteb-seitea*seitea-seitec*seitec)/(-2*seitea*seitec);
      gamma:=(seitec*seitec-seiteb*seiteb-seitea*seitea)/(-2*seiteb*seitea);
      beta:=sqrtx((1+beta)/2);
      gamma:=sqrtx((1+gamma)/2);
      alpha:=sqrtx((1+alpha)/2);

      if alpha*beta*gamma<>0 then
      begin
        //Parameter der trilinearen Koordinaten ermitteln
        talpha:=1+beta*gamma/alpha;
        tbeta:=1+alpha*gamma/beta;
        tgamma:=1+alpha*beta/gamma;
        //trilineare Koordinaten des Kreismittelpunktes ermitteln
        trilinear(ax,ay,bx,by,cx,cy,talpha,tbeta,tgamma,ddx,ddy);
        dx:=ddx;
        dy:=ddy;
        xkreis(dx,dy,dr);
        //Ausgabe in Berechnungsliste
        if pan10 then
        begin
          lb1.items.add('Rekursiver Soddy-Kreis'#9'M ('+_strkomma((dx-pw2)/100,1,3)+
            '|'+_strkomma((-dy+ph2)/100,1,3)+'), r = '+_strkomma(dr/100,1,3));
        end;
        //rekursiver Aufruf weiterer Kreise
        if dr>1 then
        begin
          apoll(ax,ay,ar,bx,by,br,dx,dy,dr,tiefe+1);
          apoll(ax,ay,ar,cx,cy,cr,dx,dy,dr,tiefe+1);
          apoll(bx,by,br,cx,cy,cr,dx,dy,dr,tiefe+1);
        end;
      end;
    end;
end;
begin
    //Übergeben werden die Seitenlängen sxa, sxb, sxc
    //und die Innenwinkel wxa, wxb, wxg des Dreiecks
    if (sxa+sxb+sxc<>0) and (cos(wxa/2)*cos(wxb/2)*cos(wxg/2)<>0) then
    begin
      //1.Soddy-Kreisradien berechnen
      ra:=0.5*(-sxa+sxb+sxc);
      rb:=0.5*(sxa-sxb+sxc);
      rc:=0.5*(sxa+sxb-sxc);
      can.pen.color:=clnavy;
      //erster Apollonius-Kreis
      apoll(punkte[1].x,punkte[1].y,ra,
            punkte[2].x,punkte[2].y,rb,
            punkte[3].x,punkte[3].y,rc,1);
    end;
end;

Und so geht es knapp 12000 Zeilen weiter. Willst Du Dir das antun? :mrgreen:

Beste Grüße
Mathematiker

[Mathematiker]

Hallo,

Zitat:

Zitat von borstenei (Beitrag 1210345)

Stellst Du jetzt nach und nach alle Deine Programme rein?

Nein.

Zitat:

Zitat von borstenei (Beitrag 1210345)

Dann spar ich mir das Geld für das aktuelle "WinFunktion Mathematik Plus 20 " :-D

Kannst Du Dir sparen. siehe PN

Beste Grüße
Mathematiker

[blondervolker]

Nein!!! Das möchte ich mir wirklich nicht antun.:-D:pale:

Übrigens war es als "Spass" gemeint.
Für tolle Programme würde ich meinen Code auch nicht rausrücken...

Da ich aber lernbereit bin,übe ich fleißig weiter...:?