|
Re: auflisten + Graf
Liste der Anhänge anzeigen (Anzahl: 1)
Guten Morgen,
Ich habe meine Rechnungen auch nun verbessert, danke dafür. Ich habe in dem Programm nur eine kleine Änderung vorgenommen.Ich habe folgende Zeile geändert: h := (Inter-t[0])/n; 1.) Wie korrigier ich den Index in der Ergebnistabelle? 2.) Wieso sind meine ausgegebenen Werte falsch? play |
Re: auflisten + Graf
Also mal zum Begriffe des Intevalls: Intevall stellt einen Mengentaum dar. Ein Intervall kann z.B. 2Pi sein. Damit ist also kein Anfangswert oder Endwert gesetzt. Es stellt ganz schlicht einen Zahlen weite dar! mit t0 legst du eigentlich nur fest, WO sich dieser Zahlraum befindet. Wenn du z.B. ein Intervall hast [a,b] sagen wir mal a=4 und b=8, dann ist dein Intervall T=5 groß (4,5,6,7,8) und der Anfangswert ist 4 und der Endwert 8. Wenn du also dieses intervall in 5 gleiche Teile möchtest, dann Teilst du einfach das Intervall durch die gewollte Anzahl von Teilen, also: 5/5 = 1. Wenn du jetzt aberrechnest (T-t0)/n=h dann bekommst du (5-4)/5 = 0,2. Ich denke die Auswirkungen anhand dieses einfachen Beispielst siehst du schon.
Richtig ist natürlich bei einem Intervall von 5 und 5 gleichen Teilen, dass die Teillänge h 1 ist oder? Mein Programm hat das vor deiner Änderung auch so gemacht. Das solltest du nochmal prüfen!!! Deine Werte sind falsch, weil du nicht beachtet hast, dass du Punktrechnung vor Strichrechnung durchführen MUSST!!! deswegen hab ich dir bei meiner Rechnung auch Zwischenschritte angegeben, damit du siehst, welche Werte du zuerst berechnen musst und welche danach. MfG BAMatze
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin if trystrtofloat(ED_Intervall.Text, Inter) and trystrtoint(ED_AnzTeilintervalle.Text, n) and trystrtofloat(ED_Y.Text, dBuffer1) and trystrtofloat(ED_T.Text, dBuffer2) then begin Setlength(y, n); Setlength(t, n); Inter:=strtofloat(ED_Intervall.Text); h := Inter/n; y[0] := strtofloat(ED_Y.Text); maxY := y[0]; minY := y[0]; t[0] := strtofloat(ED_T.Text); Memo1.Lines.Add('t0 = ' + floattostr(t[0]) + ' y0 = ' + floattostr(y[0])); // <-- diese Zeile musst du ändern, so wie ich sie hier hab for j := 1 to n-1 do begin t[j] := t[j-1] + h; y[j] := y[j-1] + h* k * y[j-1]; Memo1.Lines.Add('t' + inttostr(j) + ' = ' + floattostr(t[j]) + ' y' + inttostr(j) + ' = ' + floattostr(y[j])); // <-- diese Zeile musst du ändern, so wie ich sie hier hab if y[j] > maxY then maxY := y[j]; if y[j] < minY then minY := y[j]; end; Koordinatensystem_zeichnen; Graph_zeichnen; end else Showmessage('Bitte überprüfen sie die eingegebenen Werte. Vergewissern Sie sich, dass alle Felder befüllt sind. Anzahl der Teilintervalle muss eine ganze Zahl sein.'); end; |
Re: auflisten + Graf
Zitat:
Du solltest Lehrer werden :D Ich habe alles korrigiert, Fehler behoben, Denkfehler beseitigt und nun stehe ich stolz da :D Ich versuche jetzt mal die Hauptprozedur zu kommentieren. edit1:
Delphi-Quellcode:
play
procedure TForm1.Button1Click(Sender: TObject);
begin if trystrtofloat(ED_Intervall.Text, Inter) and trystrtoint(ED_AnzTeilintervalle.Text, n) and //Wenn die Editfelder nicht in den Datentyp Float trystrtofloat(ED_Y.Text, dBuffer1) and trystrtofloat(ED_T.Text, dBuffer2) then // (Dezimalzahl) umgewandelt werden, dann springe zu else begin Setlength(y, n); //? Setlength(t, n); //? Inter:= StrToFloat(ED_Intervall.Text); //Variable Inter (Intervall T) vom Editfeld ED_Intervall.Text übernehmen h := Inter/n; //Schrittweite h berechnen: Inter/Intervallteile n y[0] := StrToFloat(ED_Y.Text); //Startwert y0 vom Editfeld ED_Y.Text übernehmen maxY := y[0]; //? minY := y[0]; //? t[0] := StrToFloat(ED_T.Text); //Startwert t0 vom Editfeld ED_T.Text übernehmen Memo1.Lines.Add('t0 = ' + floattostr(t[0]) + ' y0 = ' + floattostr(y[0])); //Schreibe 3. Zeile der Ergebnistabelle: Anfangswerte for j := 1 to n-1 do //Index der y- und t-Werte begin t[j] := t[j-1] + h; //Berechne die t-Werte y[j] := y[j-1] + h* k * y[j-1]; //Berechne die y-Werte Memo1.Lines.Add('t' + inttostr(j) + ' = ' + floattostr(t[j]) + ' y' + inttostr(j) + ' = ' + floattostr(y[j])); //Schreibe alle weiteren Ergebnise in die Tabelle if y[j] > maxY then maxY := y[j]; //? if y[j] < minY then minY := y[j]; //? end; Koordinatensystem_zeichnen; //Führe Prozedur Koordinatensystem_zeichnen aus: Beginne das Koordinatensystem zu zeichnen Graph_zeichnen; //Führe Prozedur Graph_zeichnen aus: Zeichen den Graphen aus den berechneten Werten end else Showmessage('Bitte überprüfen sie die eingegebenen Werte. Vergewissern Sie sich, dass alle Felder befüllt sind. Anzahl der Teilintervalle muss eine ganze Zahl sein.'); end; |
Re: auflisten + Graf
kein Problem
|
Re: auflisten + Graf
Zitat:
setlenght ist für das Array richtig? Was macht es genau? den Bereich von y und t angeben? wofür ist miny/maxy? play |
Re: auflisten + Graf
also Stringlength legt die Größe des Arrays fest.
miny und maxy waren eigentlich nur Ansätze, wenn man einen Intevall z.B. [1000..2000] nimmt, dann ist der Nullbereich nicht mehr so interessant, weil bisher immer Y von Null bis zum Maximalwert angezeigt wird, und man sollte nur den Bereich angezeigt bekommen, wo Werte enthalten sind. MfG BAMatze |
Re: auflisten + Graf
Hallo,
ich habe mal unsere Funktion von MatheAss berechnen lassen, da kommen folgende Grafen heraus:  http://img148.imageshack.us/img148/6882/grafm.jpgWieso unterscheiden sich der Graf vom Programm und dieser? Normalerweise müssten die Grafen doch ziemlich ähnlich sein. play |
Re: auflisten + Graf
Zitat:
2.) Ist jeder allgemein gehaltene Graph hat unendlich viele Graphen, schau z.B. eine Gerade y=m*x + n. jenachdem wie du m und n wählst können auch bei Geraden unterschiede auftreten. In deinem Bild ist lustiger weile auch nicht die Grundform der E-Funktion gewählt worden sonder so wie es aussieht scheint die Spezifische Funktion die dort dargestellt ist folgende zu sein: f(t) = 2*e^(k*t). Dies erkennt man an dem Schnittpunkt des Graphen mit der Y-Achse. 3.) JETZT kommt dein Einwurf, welchen du im laufe des Gespräches mal gemacht hast: Die hier programmierte Funktion ist eine Näherungsfunktion. Wenn du also wissen willst, ob das Programm wirklich macht, was du willst, musst du dir spezifische Funktionen von E nehmen und versuchen nachzustellen. Dies wird schon etwas schwieriger sein, da du die E-Funktion in der Form angibst, wie du sie in deinem Bild hast und mit dem Programm nur Intervall, Anfangswerte und Teilintervalle. Somit kannst du die Funktion in dem Bereich "ANNÄHERN", aber nicht exakt nachstellen. Was sagt dir jetzt, dass der Graph wirklich der ist, den du gesucht hast. Das kann dir am schnellsten dein Lehrer sagen oder du musst eine Funktionsanalyse durchführen. Diese haben wir hier in Teilen schonmal angesprochen, dabei werden Spezifische Punkte (Maxima-, Minima-, Wende- und Sattelpunkte, sowie Nullstellen und Schnittpunkte mit der Y-Achse) bestimmt sowie chrakteristische Verhalten (Asymptoten, Symetrien, Krümmungen, ...). Wie du siehst, hört sich dies schonmal sehr kompliziert an, ist es auch, vorallem, wenn man Kurvenscharen hast, so wie hier und nicht spezifische Funktionen. Ok kommen wir einfach dazu, was wir wissen. Wir wir wissen: EFunktion - hat keine Nullstelle, solange kein additivier Term in der Formel vorkommt oder der Faktor Null ist, dann ist der Graph aber eine Linie auf der X-Achse - hat keinen Wendepunkt - hat keinen Sattelpunkt - hat kein Minimum oder besser Minimumm liegt entweder im neg oder pos Unendlichen - hat kein Maximum - hat nur eine Krümmung - hat eine Asymptot bei Null, solange kein additiver Term in der Formel vorkommt, sonst verschiebt sich diese Asymptote lediglich, bleibt aber erhalten - hat einen Schnittpunkt mit der Y-Achse bei t=0 unser Graph - hat keine Nullstelle, solange kein additivier Term in der Formel vorkommt oder der Faktor Null ist, dann ist der Graph aber eine Linie auf der X-Achse - hat keinen Wendepunkt - hat keinen Sattelpunkt - hat kein Minimum oder besser Minimumm liegt entweder im neg oder pos Unendlichen - hat nur eine Krümmung - hat eine Asymptot bei Null, solange kein additiver Term in der Formel vorkommt, sonst verschiebt sich diese Asymptote lediglich, bleibt aber erhalten - hat einen Schnittpunkt mit der Y-Achse bei t=0 .... Also alles in allem scheint es erstmal gut auszusehen. Was aber kein Beweis ist. Übrigens der Verlauf der Graphen ähnelt sich gravierend!!! Wie gesagt unter dem Strich kann dir an diesem Punkt, also der Plausibilitätskontrolle niemand so wirklich helfen. Wir haben zwar deine Unterlagen gesehen und versucht dir ein Programm zu liefern, welches das macht, was dort geschrieben stand. Wir wissen nicht, was in Gesprächen mit Lehrern oder dem Aufgabensteller noch alles gefordert wurde oder allgemein gesagt. Meiner Meinung nach macht das Programm exakt das was du von ihm forderst. Du musst jetzt natürlich noch den angesprochenen Beweis bringen. Dies könnte z.B. sein, dass du einen Graph nimmst als E-Funktion, den du nachstellen willst und gibst dann alles in dem Programm ein. Wenn der Graph nachgestellt wird (im Intervall), dann alles ok, wenn nicht, dann schlecht. MfG BAMatze |
Re: auflisten + Graf
Liste der Anhänge anzeigen (Anzahl: 2)
Ein weiter Beweis, dass das Programm das machst, was du möchtest ist: Es gibt 2 spezifische Werte der Grund E-Funktion f(t)= e^t ohne Faktor und k = 1. Die liegen bei t=0, dann muss der Funktionswert 1 sein und bei t = 1, dann muss der Funktionswert e sein. e hat gemäß
Eulersche Zahl einen Wert von 2,718. Also wenn du das Programm abänderst (k in der FromCreate-Procedure von 2.0 auf 1.0 setzt) und dann dir das Intervall von 0 bis 1 darstellen lässt, dann muss bei einem Anfangswert [0,1] der 2. Punkt [1,e] rauskommen. Natürlich hab ich das mal schnell für dich gemacht. Im 1. Bild habe ich das mit 50 Teilintervallen gemacht. Dann erhalte ich als 2. Punkt [1; 2,638] und mit 500 Teilintervallen schon [1; 2,710].Damit ist eigentlich bewiesen, dass das Programm die EFunktion in diesem Bereich, je nach Wahl der Teilintervalle ziemlich genau nachstellt. |
Re: auflisten + Graf
Zitat:
Die Grafen oben habe ich erstellt, mit MatheAss. ich habe dort auch nicht k, sondern habe für k=2 eingesetzt.Werde ich gleich mal ändern. |
Re: auflisten + Graf
Hast du dir meine beiden letzten Threats mal genau durchgelesen? Ich denke nämlich nicht, dass dir MatheAss sagen wird, ob das Programm wirklich das macht, was du möchtest. Diese Entscheidung wirst du treffen müssen. Du kannst dir sicherlich helfen lassen und ich hab dir ja auch schon ein paar Argumente in die Hand gegeben, aber die Schlussendliche Entscheidung triffst du allein.
Verantwortung ist unteilbar. MfG BAMatze |
| Alle Zeitangaben in WEZ +1. Es ist jetzt 13:03 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz