Entwickler-Ecke

Open Source Projekte - lineare Gleichung


Fiete - Fr 06.01.12 13:05
Titel: lineare Gleichung
Das Programm löst lineare Gleichungen und zeigt die Umformungen an.
z.B.
5x-80-12x+66=12+22x-60-42x

-7x-14=-20x-48 | +20x

13x-14=-48 | +14

13x=-34 | :13

x=-2,61538461538462

Viel Spaß bei den Hausaufgaben
Gruß Fiete
Edit1: Sonderfall ist implementiert


Mathematiker - Di 10.01.12 20:01

Hallo Fiete,
ein kleines, schönes und nützliches Programm. Allerdings gibt es ein Problem. Bei Gleichungen der Art
5X-80-24X+66=12+22X-60-42X
, d.h. die Variable x bleibt nach den Umformungsschritten mit einem Summand links stehen, löst das Programm die Gleichung nicht vollständig.
Gruß


Fiete - Mi 11.01.12 13:31

Moin Mathematiker,
danke für den Test, hatte eine Abfrage vergessen :oops:
die neue Version liegt vor.
Gruß Fiete


Mathematiker - Mi 11.01.12 23:03

Dass die neue Version vorliegt, glaube ich gern, aber wo ist sie denn. Ich sehe keinen Link zur Exe oder Source.
Beste Grüße

Hat sich erledigt. Ich war wohl zu dumm.
Dank an Fiete.


Mathematiker - Do 21.06.12 09:42

Hallo Fiete,
nach einiger Zeit habe ich mir noch einmal Dein Programm angesehen. Es funktioniert sehr gut, aber es gibt einen kleinen Schönheitsfehler. :roll: Der erzeugte binäre Baum bleibt im Speicher erhalten und wird nicht wieder freigegeben.
Ich schlage vor

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure Baumloeschen(knoten:ptr);
begin
    if knoten^.links<>nil then baumloeschen(knoten^.links);
    if knoten^.rechts<>nil then baumloeschen(knoten^.rechts);
    if knoten<>nil then dispose(knoten);
end;

am Ende der Funktionsanalyse einzuführen. Allerdings müsste dann nach jedem new(knoten) linker und rechter Zeiger auf nil gesetzt werden. Ein Problem ist dann auch noch der Rückgabewert der Funktionsanalyse.
Wie gesagt: Ein Schönheitsfehler. Bei den geringen Datenmengen im Baum ist es eigentlich ohne Bedeutung.
Beste Grüße


Fiete - So 24.06.12 14:32

Moin Mathematiker,
der Schönheitsfehler ist jetzt beseitigt.
Beste Grüße Fiete