AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Darstellungen und Berechnungen am Dreieck
Thema durchsuchen
Ansicht
Themen-Optionen

Darstellungen und Berechnungen am Dreieck

Ein Thema von Mathematiker · begonnen am 6. Apr 2013 · letzter Beitrag vom 7. Apr 2013
Antwort Antwort
Seite 2 von 4     12 34      
Mathematiker
Hallo,
dieses Programm ist eines der komplexesten, die ich bisher geschrieben habe. Es untersucht (Darstellung und Berechnung) verschiedene Punkte, Geraden, Kreise, ..., die man an einem Dreieck betrachten kann.
Gerade in den letzten Jahren ist das scheinbar "vollständig" untersuchte Dreieck wieder zum Forschungsthema geworden. Unter http://faculty.evansville.edu/ck6/encyclopedia/ETC.html werden von Clark Kimberling alte und neue Beziehungen am Dreieck gesammelt.

Die zu zeichnenden Punkte, Geraden und Kreise wählt man in den rechten Listen aus. Eine Vielzahl von Einstellungsmöglichkeiten (Größe, Gitter, Achsen, ...) sowie verschiedene Weiterverarbeitungsmöglichkeiten (Druck, Speichern, Kopieren) sind vorhanden.
Über eine Animation (Schalter, F2) können die drei Eckpunkte entweder waagerecht oder senkrecht kontinuierlich verschoben werden.
Die zu zeichnenden Stücke werden auch berechnet. In einer Liste werden die Koordinaten der Punkte, Längen von Strecken und Gleichungen von Geraden, verschiedene Werte von Kreisen, ... angezeigt.

Aufgrund der großen Anzahl darstellbarer Objekte ist deren Auswahl nicht ganz so einfach. Aus diesem Grund sind unter dem Menüpunkt Themen einige besondere Beziehungen am Dreieck vordefiniert.

Ansonsten kann ich nur sagen, dass es eine Menge Arbeit war, die vorhandenen Objekte am Dreieck hinzubekommen.
Ihr könnt ja einmal Strg + F12 drücken. Dann werden alle Punkte, Geraden, Kreise, Kegelschnitte ... angezeigt. Wer dann eine Animation laufen lässt, will seinen Computer quälen. Strg + F12 schaltet auch wieder zurück.

Viel Spaß beim Testen. Hinweise auf Fehler sind, wie immer, gern willkommen.
Hinweis: Auch in der Entwickler-Ecke habe ich das Programm vorgestellt.

Beste Grüße
Mathematiker

Nachtrag: In einem Anflug von Wahnsinn habe ich das falsche Programm angehängt. Jetzt ist es richtig.
Rev 1: erste Änderungen durchgeführt, u.a. einen Splitter eingefügt, einen Schalter für schnelles Entfernen der Markierungen und kleinere Fehler behoben
Rev 2: Fenstergröße ist beliebig veränderbar. Die Punkte können in der Simulation auch um den Ursprung gedreht werden. Geschwindigkeit der Simulation ist regelbar.
Miniaturansicht angehängter Grafiken
dreieck.png  
Angehängte Dateien
Dateityp: zip Pdreieck2.zip (445,2 KB, 74x aufgerufen)

Geändert von Mathematiker ( 6. Apr 2013 um 16:55 Uhr)
 
jobo

 
Delphi 2010 Enterprise
 
#11
  Alt 6. Apr 2013, 10:40
F2 funkioniert jetzt!
(und das Programm sieht ganz anders aus)

  Mit Zitat antworten Zitat
Delphi-Laie

 
Delphi 10.1 Berlin Starter
 
#12
  Alt 6. Apr 2013, 10:41
Das mit der Animation nehme ich zurück, die gibt es doch.

Das Gelb der Mittelsenkrechten ist kaum erkennbar. Evtl. ein optionaler schwarzer Hintergrund?

Und dann würde ich die Schnittpunkte der Mittelsenkrechten, Seitenhalbierenden, Höhen (Lote) und Winkelhalbierenden direkt unter den Linien im Menü placieren. So kann man die schnell finden und auch als nächsten Schritt die Euler-Gerade (für Furtbichler: Eulergerade) einblenden.

Lässig!

Ergänzung: Noch eine Anregung: Wenn die drei für die Euler-Gerade (Eulergerade) relevanten Punkte existieren, könnte man auch die Strecken zwischen den Punkten anders Färben, um das Längenverhältnis 2:1 zu demonstrieren.

Geändert von Delphi-Laie ( 6. Apr 2013 um 10:44 Uhr)
  Mit Zitat antworten Zitat
jobo

 
Delphi 2010 Enterprise
 
#13
  Alt 6. Apr 2013, 10:52
Toll!
Ich nehme an, das Dateiformat ist nur durch dieses Programm zu verwenden? *.dre
Kann man davon ausgehen, dass eine dre Datei, bei der alle Darstellungsformen aktiviert wurden, dann sozusagen eine vollständige Liste der Möglichkeiten darstellt und das zum Aufbau einer Dreiecksdatei nutzen? Ist die Reihenfolge relevant?

Die Animation läuft auch im F12 Modus geschmeidig.

Das werde ich mal meinem Sohn zeigen, der hat grad Geometrie.
  Mit Zitat antworten Zitat
Delphi-Laie

 
Delphi 10.1 Berlin Starter
 
#14
  Alt 6. Apr 2013, 10:59
Mathematiker, zwischendurch mal eine Fachfrage: Wenn alle 4 Punkte (Eulersche Gerade und Winkelhalbierendenschnittpunkt) auf einer Geraden liegen, sind die Streckenverhältnisse dann 2:1:1:2? Scheint so.

Ergänzung: Nein, doch nicht.

Geändert von Delphi-Laie ( 6. Apr 2013 um 11:18 Uhr)
  Mit Zitat antworten Zitat
jobo

 
Delphi 2010 Enterprise
 
#15
  Alt 6. Apr 2013, 11:01
Für das Kontrollfenster rechts könntest Du vielleicht noch einen Splitter spendieren und/oder die aufgelisteten Darstellungsoptionen auch als Hint eintragen, damit sie bei zu großer Länger vollständig lesbar sind.
Was den Vorschlag zur Färbung der Linien angeht:
Vielleicht macht es wirklich Sinn, Linienart, -stärke und -Farbe durch den Anwender definieren zu lassen. Das würde auch schön zur Themendarstellung passen bzw. diese aufwerten.
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

 
Delphi 11 Alexandria
 
#16
  Alt 6. Apr 2013, 11:12
Wieder sehr beeindruckend.
Weckt das wenigstens etwas Interesse bei Deinen Schülern (Mathe/Programmierung)?
  Mit Zitat antworten Zitat
Mathematiker
 
#17
  Alt 6. Apr 2013, 11:19
Hallo Delphi-Laie,
Das Gelb der Mittelsenkrechten ist kaum erkennbar. Evtl. ein optionaler schwarzer Hintergrund? ... Und dann würde ich die Schnittpunkte der Mittelsenkrechten, Seitenhalbierenden, Höhen (Lote) und Winkelhalbierenden direkt unter den Linien im Menü placieren. ... Wenn die drei für die Euler-Gerade (Eulergerade) relevanten Punkte existieren, könnte man auch die Strecken zwischen den Punkten anders Färben, um das Längenverhältnis 2:1 zu demonstrieren.
Danke für die Hinweise. Werde ich einarbeiten.
die Euler-Gerade (für Furtbichler: Eulergerade)
Eigentlich wollte ich mich an dieser Diskussion nicht beteiligen.
Aber: In dem nagelneuen Buch "Bilder der Mathematik" steht Euler-Gerade, Cassini-Kurve, Gauß-Verteilung usw.
Was von der sogenannten "Neuen Rechtschreibung" vorgeschlagen wird, interessiert Mathematiker überhaupt(!) nicht. Und das hat auch nichts mit einem Deppen-Bindestrich zu tun.
Es bleibt bei einer Euler-Geraden. "Eulergerade" sieht 1. doof aus und lenkt 2. vom Wesentlichen ab, nämlich der Geraden.
Übrigens schreiben wir in den Schulen auch weiterhin Ohmsches Gesetz groß. Schließlich ist das Gesetz ja nicht "ohmsch", so wie wahr oder kompliziert, sondern es ist von Ohm.
Mathematiker, zwischendurch mal eine Fachfrage: Wenn alle 4 Punkte (Eulersche Gerade und Winkelhalbierendenschnittpunkt) auf einer Geraden liegen, sind die Streckenverhältnisse dann 2:1:1:2? Scheint so.
Weiß ich nicht. Ich werde mal nachrechnen.

Hallo jobo,
Ich nehme an, das Dateiformat ist nur durch dieses Programm zu verwenden? *.dre
... Ist die Reihenfolge relevant?
Es ist eine Textdatei. Ich habe nur ein anderes Format gewählt, damit man nicht irgendeinen Text einladen kann.
Die Reihenfolge ist wichtig.
Kann man davon ausgehen, dass eine dre Datei, bei der alle Darstellungsformen aktiviert wurden, dann sozusagen eine vollständige Liste der Möglichkeiten darstellt und das zum Aufbau einer Dreiecksdatei nutzen?
Vollkommen richtig.
Für das Kontrollfenster rechts könntest Du vielleicht noch einen Splitter spendieren ...
Dank für die Hinweise. Werde ich prüfen.
Weckt das wenigstens etwas Interesse bei Deinen Schülern (Mathe/Programmierung)?
Nein.

Beste Grüße
Mathematiker
  Mit Zitat antworten Zitat
Delphi-Laie

 
Delphi 10.1 Berlin Starter
 
#18
  Alt 6. Apr 2013, 11:20
Und noch eine Verbesserunganregung: Die Farbe der Checkboxbeschriftung den zu zeichnenden Elementen (wenigstens Linien) anpassen, falls möglich: Das erleichtert die Suche beim Abschalten ungemein.
  Mit Zitat antworten Zitat
Aviator

 
Delphi 10.3 Rio
 
#19
  Alt 6. Apr 2013, 11:30
Super Programm
Wie viele Zeilen Sourcecode sind das wenn ich was so fragen darf

Ein kleiner Schönheitsfehler ist mir noch aufgefallen.
Wenn man auf der Berechnungsseite ist, wird oben rechts die Anzahl der Einträge angezeigt. Wenn man nun rechts in der Liste einen weiteren Punkt anwählt, wird die Zahl der Einträge auf der Seite nicht aktualisiert. Erst wenn man wieder auf "Darstellung" und zurück wechselt wird der Count erneut ausgeführt.
  Mit Zitat antworten Zitat
Mathematiker
 
#20
  Alt 6. Apr 2013, 11:52
Hallo,
ich habe die erste Änderung durchgeführt.
Es ist ein Splitter vorhanden, mit dem man den Eingabebereich verändern kann.
Die Mittelsenkrechten werden nicht mehr gelb gezeichnet und ein zusätzlicher Schalter ("x") löscht schnell alle ausgewählten Elemente, bis auf das Ausgangsdreieck.
Der Fehler in der Berechnungsliste ist weg.
Vielleicht macht es wirklich Sinn, Linienart, -stärke und -Farbe durch den Anwender definieren zu lassen. Das würde auch schön zur Themendarstellung passen bzw. diese aufwerten.
Und noch eine Verbesserunganregung: Die Farbe der Checkboxbeschriftung den zu zeichnenden Elementen (wenigstens Linien) anpassen
Ist schwieriger als ich zuerst dachte. Ich werde mir etwas einfallen lassen.
Ein kleiner Schönheitsfehler ist mir noch aufgefallen.
Ist behoben. Danke für den Hinweis.
Wie viele Zeilen Sourcecode sind das wenn ich was so fragen darf
Für die Darstellung und Berechnung knapp 12000. Dazu kommen dann noch die Routinen für Drucken, Kopieren, Speichern usw.

Beste Grüße
Mathematiker
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 4     12 34      

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz