Hilfe Luftdruckrechner

[Y-Fritz]

Zitat von Nikolas:

Das x steht für die Meter und das ^ ist das Zeichen für Potenzierung also die Höhe auf 1000m ist dann P(1000m)=P0*[ (1-p) hoch 1000 ]

Danke,
nur wie bekomme ich den Logarithmus in Delphi hin. Weil ich kenne nur den Befehl für den natürlichen Logarithmus.

h2:=ln(1000 *(1-p))*luft;

[Nikolas]

Der reicht auch völlig. Such mal nach Log-Gesetzen, da wirst du ein Gesetz finden, wie du so einen Ausdruck auch mit dem ln berechnen kannst. (Besser gesagt, mit Log-Funktionen zu beliebiger Basis)

[Zacherl]

log(4)3 = lg(4) / lg(3)

wenn ich mich nicht irre ..

[Y-Fritz]

Hab das mal versucht so zu programmieren, aber die Werte stimmen noch nicht.

Wenn jemand sich nochmal den Quelltext anschauen könnte?

Delphi-Quellcode:

p:=0.013869/100;
luft:=strtofloat(edit4.Text);
h2:=ln(1000*(1-p))/ln(luft);
edit3.text:=floattostrf(h2,fffixed,10,2);

Bei einem Druck von z.B.: 933hpa müssten 500 Meter herauskommen.

[Y-Fritz]

Danke euch allen, jetzt klapts.
Zu Vollständigkeit noch:

933=1000(1-0,00013869)500 /:1000
0,993=(1-0,00013869)500
log(1-0,00013869)0,933=500
500=ln(0,933)/ln(1-0,00013869)

[Nikolas]

Deine Schreibweise ist recht unverständlich, aber es sieht so aus, als hättest du es verstanden. Falls es sich um eine Hausaufgabe handelt, solltest du bei der Abgabe natürlich erklären können, wie du auf die Formel gekommen bist.
Auf jeden Fall sieht diese Lösung doch deutlich eleganter aus, als deine Schleife, die einmal recht lange dauert und in der du bei den ganzen Operationen mit Rundungsfehlern rechnen musst.

[Y-Fritz]

Zitat von Nikolas:

Deine Schreibweise ist recht unverständlich, aber es sieht so aus, als hättest du es verstanden. Falls es sich um eine Hausaufgabe handelt, solltest du bei der Abgabe natürlich erklären können, wie du auf die Formel gekommen bist.
Auf jeden Fall sieht diese Lösung doch deutlich eleganter aus, als deine Schleife, die einmal recht lange dauert und in der du bei den ganzen Operationen mit Rundungsfehlern rechnen musst.

Das war nur das umstellen der Formel, der Quelcode war dann dieser:

Delphi-Quellcode:

luft:=luft/1000;
h2:=ln(luft)/ln(1-p);

Ach kennt jemand zufällig noch nein Algorithmus zum Absichern? Sprich das wenn man in ein edit Feld z.b.: einen Buchstaben eingibt, eine Warnung ausgegeben wird? (um zu verhindern, dass das Programm abstürtzt)

Also mir ist dieser bekannt (funktioniert aber nicht):

Delphi-Quellcode:

try
 h:=strtoint(edit1.text);
except
 MessageDlg ('Bitte nur Zahlen eingeben!', mtwarning,[mbOK],0);
 edit1.setfocus;
 exit;
end;

Gibts da noch ne andere Möglichkeit? Zum Beispiel mit "if Buchstabe do begin"?

[Mavarik]

Zitat von Y-Fritz:

Also mir ist dieser bekannt (funktioniert aber nicht):

Delphi-Quellcode:

try
 h:=strtoint(edit1.text);
except
 MessageDlg ('Bitte nur Zahlen eingeben!', mtwarning,[mbOK],0);
 edit1.setfocus;
 exit;
end;

Hast Du das in der IDE getestet? Da geht es nicht, da die IDE die Exception vorher abfängt. (Kann man auch einstellen)

Frank

PS.: Int(S,Error); // Sowas?

[Nikolas]

Ich habe mal den Code für ein Editfeld, dass nur korrekt eingegebene Zahlen zulässt in der Codelibrary veröffentlicht, den kannst du für deine Zwecke anpassen.

[ibp]

Zitat von Y-Fritz:

Delphi-Quellcode:

try
 h:=strtoint(edit1.text);
except
 MessageDlg ('Bitte nur Zahlen eingeben!', mtwarning,[mbOK],0);
 edit1.setfocus;
 exit;
end;

Gibts da noch ne andere Möglichkeit? Zum Beispiel mit "if Buchstabe do begin"?

schau mal nach trystrtoint oder du musst die eingabe direkt abfangen!