Mathe - Integralrechner (Trapezverfahren) (nutzt CQ-Parser)

[bg 11]

Tachchen...

Ich habe ursprünglich für eine Mathe-Facharbeit ein Programm geschrieben, welches Integrale durch numerische Integration (wahlweise Sehnen- oder Tangententrapezregel) mit einer einstellbaren Anzahl von Schritten(Anzahl der Unterteilungen in Intervalle) bestimmt.

Vielleicht könntet ihr es testen und mir Tipps geben...

mfg

[VBergen]

Ich bin beeindruckt.
Einen Tipp habe ich jedoch, du könntest noch die e-Funktion einbauen, dies nicht sonderlich schwer sein, wenn man für e einfach 2,71828 einliest.

Lg

[bg 11]

Wahnsinn:
Nach vier Jahren gibt es das erste Feedback.

Trotzdem DANKE.

[himitsu]

Sowas soll auch mal vorkommen :-D

Da die Berechnungen recht Flott sind, könntest die diese doch auch wärend der Eingabe gleich mit durchühren lassen, so daß man nicht ständig auf Berechnen klicken muß.


Und bei der Codeformaterung könntest du noch etwas aufpassen
(falls sich das die letzen 4 Jahre nicht schon geändert hat)

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   rechner.uebergabe(edit2.Text,edit1.Text);
   if not button3.Enabled then
   if radiobutton1.checked then rechner.berechneFlaeches(strtofloat(edit4.Text),strtofloat(edit5.text))
   else rechner.berechneflaechet(strtofloat(edit4.Text),strtofloat(edit5.text))
   else rechner.Taschenrechner;
   edit3.Text:=rechner.gibf;
end;

wie es z.B. hier und auch an einigen anderen Stellen verschachtelt ist, wird auf den ersten Blick nicht wirklich klar

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   rechner.uebergabe(edit2.Text,edit1.Text);
   if not button3.Enabled then
     if radiobutton1.checked then
       rechner.berechneFlaeches(strtofloat(edit4.Text),strtofloat(edit5.text))
     else rechner.berechneflaechet(strtofloat(edit4.Text),strtofloat(edit5.text))
   else rechner.Taschenrechner;
   edit3.Text:=rechner.gibf;
end;

[hugoegon]

Nettes Tool, aber eher funktional als schön :P

Lg
Disser2