-
Forum: Programmieren allgemein
by Kegasetu,
10. Nov 2020
Ich bin jetzt die Strategie gefahren alles, was ich brauche (und noch mehr...) aus dem Gauss Programm zu übernehmen und so die Gleichung zu lösen. Es funktioniert so weit, aber ich habe noch tiefgreifende Probleme an ganz anderen Stellen.
-
Forum: Programmieren allgemein
by Kegasetu,
3. Nov 2020
Also chaotisch sollte das eigentlich nicht werden. Die bekannten Werte würde ich einfach gegen die Konstanten auf der anderen Seite rechnen. Das klappt schon, da bin ich ganz euphorisch. Ich sitze jetzt wieder dran und hoffe, ich bin nachher schon so weit die ersten versuche zu starten.
-
Forum: Programmieren allgemein
by Kegasetu,
2. Nov 2020
Die sind bekannt. Andernfalls würde sich das System auch nicht lösen lassen.
Ich bin gerade dabei mein Programm zu vereinfachen. Eventuell gelingt es mir sogar, den Code abzuändern und zu implementieren.
Danke für deine Unterstützung, ich würde mich später (morgen, übermorgen) nochmal melden und fragen, wenn ich nicht weiterkomme.
-
Forum: Programmieren allgemein
by Kegasetu,
2. Nov 2020
Super Teil!
-
Forum: Programmieren allgemein
by Kegasetu,
2. Nov 2020
Es gilt mb bis mi herauszufinden.
-
Forum: Programmieren allgemein
by Kegasetu,
2. Nov 2020
Die Gleichungen lauetet wie folgt:
lzha1*ma+2(lzha1+lzha1)*mb+lzha1*mc=mma1
lzha1*mb+2(lzha1+lzha1)*mc+lzha1*md=mma1
lzha1*mc+2(lzha1+lzha1)*md+lzha1*me=mma1
lzha1*md+2(lzha1+lzha1)*me+lzha1*mf=mma1
lzha1*me+2(lzha1+lzha1)*mf+lzha1*mg=mma1
lzha1*mf+2(lzha1+lzha1)*mg+lzha1*mh=mma1
lzha1*mg+2(lzha1+lzha1)*mh+lzha1*mi=mma1
lzha1*mh+2(lzha1+lzha1)*mi+lzha1*mj=mma1
-
Forum: Programmieren allgemein
by Kegasetu,
1. Nov 2020
Danke für die zahlreiche Unterstützung. Auch das werde ich morgen mal durchgehen.
-
Forum: Programmieren allgemein
by Kegasetu,
1. Nov 2020
Danke für das Angebot!!!
Ich schreibe morgen Früh alles raus.
-
Forum: Programmieren allgemein
by Kegasetu,
30. Okt 2020
Jetzt mal ganz dreist gefragt, wäre es möglich mir ein Beispiel zu zeigen in dem die Beiden simplen Gleichungen: 5*x=y u. 4+x=y; gelöst werden?
Irgendwie ist mir der Code nicht schlüssig. Warum braucht es z.B. einen Zeitparameter?
-
Forum: Programmieren allgemein
by Kegasetu,
30. Okt 2020
Auf der grundlage der A-Matrix im Programm müsste die Matrix welche ich eingebe ja so aussehen:
A := l1*MA;
A := l2*MB;
A := l3*MC;
A := 0;
A := 0;
A := 0;
A := 0;
A := 0;
-
Forum: Programmieren allgemein
by Kegasetu,
30. Okt 2020
Ich muss mich nochmal korrigieren. Die Koeffizienten MB-MH muss ich herausfinden.
-
Forum: Programmieren allgemein
by Kegasetu,
30. Okt 2020
Ich glaube das greift mir etwas zu weit. Aber Danke, ich werde es mir mal zurücklegen.
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
Danke für die Hilfe, morgen Früh werde ich mich wieder ransetzten!
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
So sieht die "verbale" Matrix aus die ich lösen will:
lzha1*MA+2(lzha1+lzha1)*MB+lzha1*MC=MMA1
lzha1*MB+2(lzha1+lzha1)*MC+lzha1*MD=MMA1
lzha1*MC+2(lzha1+lzha1)*MD+lzha1*ME=MMA1
lzha1*MD+2(lzha1+lzha1)*ME+lzha1*MF=MMA1
lzha1*ME+2(lzha1+lzha1)*MF+lzha1*MG=MMA1
lzha1*MF+2(lzha1+lzha1)*MG+lzha1*MH=MMA1
........... (Eigentlich...
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
Erstmal vielen Dank für die Unterstützung!
Ja, ich habe einen Fehler eingebaut und b doppelt drin. Es sollte natürlich mit c weitergehen.
Ich selber muss mal einen Gang zurückschalten, da ich davon nahezu Null verstehe:? Es ist doch etwas komplizierter als anfänglich gedacht.
Mal zum Hintergrund. Es werden immer Werte nach meinem Schema(a-j) gegeben sein. Es gilt b herauszufinden.
...
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
Probiert habe ich es, weit bin ich nicht gekommen :D
type
TGaussSolved = array of Extended;
TGaussLine = TGaussSolved;
TGaussMatrix = array of TGaussLine;
Leider bekomme ich hier nur Fehler angezeigt.
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
Danke, die Erklärung hilft.
Ich versuche das jetzt mal auf diesen Fall zu adaptieren:
l1*a+l2*b+l3*b+00*c+00*d+00*e+00*f+00*g+00*h+000*i=b1
00*a+l2*b+l3*b+l4*c+l5*d+00*e+00*f+00*g+00*h+000*i=b2
00*a+00*b+l3*b+l4*c+l5*d+l6*e+00*f+00*g+00*h+000*i=b3
00*a+00*b+00*b+l4*c+l5*d+l6*e+l7*f+00*g+00*h+000*i=b4
00*a+00*b+00*b+00*c+00*d+l6*e+l7*f+l8*g+00*h+000*i=b5...
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
Die Mathematik dahinter ist ja nicht so kompliziert, aber beim Verständnis der Informatik hapert es gewaltig. Ich bin nur kurzfristig gezwungen mich damit auseinander zu setzen, also keine Sache die wirklich verinnerlichen muss.
Hier z.B.
type
TGaussSolved = array of Extended;
TGaussLine = TGaussSolved;
TGaussMatrix = array of TGaussLine;
function SolveLinearSystem(A:...
-
Forum: Programmieren allgemein
by Kegasetu,
29. Okt 2020
Ich habe mich mit den Operatoren von TMS etwas länger auseinandergesetzt, jedoch liegt der Entschluss, dass dies nicht unbedingt notwendig ist. In Excel ist es relativ einfach solche Gleichungssysteme zu lösen, dafür gibt es fast schon komplett vorgefertigte Funktionen.
Während eine Internetsuche bin ich bezüglich Gauß und Delphi dann auf folgenden Code gestoßen:
Beispiel 15.2 Der...
-
Forum: Programmieren allgemein
by Kegasetu,
28. Okt 2020
Ich habe mich jetzt etwas mit TMS auseiandergesetzt, blicke aber nicht so ganz durch.. Info ist absolut nicht meine Stärke. Unter den Beispielen war einiges dabei, aber ich bin nicht so ganz durchgestiegen...
Gibt es zufällig ein Beispiel, bei dem ein solver in Delphi fertig implementiert ist? Natürlich nicht den ganzen Backgroud, sondern die Schreibweise aus der neuen Funktion heraus?
-
Forum: Programmieren allgemein
by Kegasetu,
21. Okt 2020
Ich werde mich mal reinlesen. Vielen Dank!
-
Forum: Programmieren allgemein
by Kegasetu,
21. Okt 2020
Hallo Zusammen.
Für mich und mein Programm geht es in die nächste Runde.
Ich stehe vor der Aufgabe Gleichungen aufzustellen und zu lösen.
Mein Überlegung ging in die Richtung Gauß. Da ich allerdings mir etwas Arbeit sparen wollte, will ich vorher die Frage loswerden, ab es dafür nicht eine vorgefertigte "solve"-Funktion gibt?
Im Internet habe ich nur Beiträge von vor 10 Jahren gefunden....