Antilogarithmus

[SVI90]

Hallo

Ich probiere gerade vergebens meinen Antilogarithmus dieser Rechnung in Delphi umzusetzen:

534.67e 0.0485*10

Den Logarithmus erreiche ich ja mit ln(x) aber den Antilogarithmus nicht so einfach. Wie kann ich das am besten rechnen?

Mfg

[Flocke]

Meinst du mit "Antilogarithmus" vielleicht die Exponentialfunktion (Exp)? :zwinker:

[Cöster]

Zitat:

Zitat von SVI90

Hallo

Ich probiere gerade vergebens meinen Antilogarithmus dieser Rechnung in Delphi umzusetzen:

Was genau verstehst du unter Antilogarithmus? Laut Wikipedia ist der Antilogarithmus die Exponentialfunktion zur Basis 10, also 10^x

Zitat:

Zitat von SVI90

534.67e 0.0485*10

wie ist das eine Rechnung? 534.67*e*0,0485*10?

Zitat:

Zitat von SVI90

Den Logarithmus erreiche ich ja mit ln(x)

Dadurch erhälst du nur den natürlichen Logarithmus.

Zitat:

Zitat von SVI90

aber den Antilogarithmus nicht so einfach. Wie kann ich das am besten rechnen

Meinst du mit Antilogarithmus dann e^x? Dann benutze die Funktion Exp(x). Bei 10^x würde dir Power(10, x) das Ergebnis liefern

[SVI90]

Hallo

klasse Forum, hier bekommt man wenigsten ordentliche Antworten. Exp hat bei meiner Teilfunktion die richtigen Werte gebracht. Mein letztes Problem konnte ich aber noch nicht lösen.

http://www-staff.lboro.ac.uk/~elvpc/progs/image43.gif

L12= 291,1
L23= 193,7
L34= 97,4
D1= 39,2
D4= 82,4
KH= 1,5

herauskommen müsste 1,30 oder sogar -1,30. Hat einer eine Idee? :gruebel:

[Flare]

Da sind 2 Werte nicht gegeben!

X12 und Kh nicht. Sollen das unendlich viele Lösungen sein oder was willst du jetzt genau?


Flare

[leddl]

Zitat:

Zitat von Flare

Da sind 2 Werte nicht gegeben!
X12 und Kh nicht. Sollen das unendlich viele Lösungen sein oder was willst du jetzt genau?

:gruebel: Kh ist gegeben und x12 soll ja schließlich errechnet werden...

[shubbi]

@SVI90: Ich bin mit zwei verschiedenen Rechenprogrammen auf ca. 0,262658 gekommen.

[Flare]

Zitat:

Zitat von leddl

Zitat:

Zitat von Flare

Da sind 2 Werte nicht gegeben!
X12 und Kh nicht. Sollen das unendlich viele Lösungen sein oder was willst du jetzt genau?

:gruebel: Kh ist gegeben und x12 soll ja schließlich errechnet werden...

Als ich meinen Mist drunter gesetzt habe war er noch nicht gegeben :wall:


Flare

[SVI90]

Hallo

Ich hab es Editiert. KH ist 1,5. X12 ist die gesuchte Größe.

@shubbi Wie hast du das umgesetzt? Ich komme nichtmal mit dem Taschenrechner auf 0,26... :? Ich komme auf 2,2608 allerdings bin ich mir auch nicht ganz schlüssig was ich mit dem hochgestelltem KH anzufangen habe.

[Jens Schumann]

Hallo,
ich habe Rechnung gerade in meinen Sharp PC1500 Pocket Computer (Baujahr ca. 1987 oder so ) eingetippt

Code:

(291.1/(291.1+193.7+97.4))^1.5*Ln(82.4/39.2)

und was kommt raus

Code:

0.2626578863

[Cöster]

Zitat:

Zitat von SVI90

herauskommen müsste 1,30 oder sogar -1,30.

Wieso? Wenn auf der rechten Seite in der Mitte ein Mal-Zeichen steht, kommt tatsächlich 0,26 raus.

Mit Delphi kann man das so errechnen:

Delphi-Quellcode:

Caption := FloatToStr(Power(291.1 / (291.1 + 193.7 + 97.4), 1.5) * Ln(82.4 / 39.2));

[SVI90]

Zitat:

Zitat von Jens Schumann

Hallo,
ich habe Rechnung gerade in meinen Sharp PC1500 Pocket Computer (Baujahr ca. 1987 oder so ) eingetippt

Code:

(291.1/(291.1+193.7+97.4))^1.5*Ln(82.4/39.2)

und was kommt raus

Code:

0.2626578863

Hallo

:oops: Der Logarithmus muss 1,33 sein. Der Wert den ich brauche ist wirklich 0,2628658 . Wie erreiche ich in Delphi dieses ^ ? Mit Power? Wenn ich aber Power ((291,1/(291,1+193,7+97,4)) , 1.5) probiere komme ich auf kein richtiges Ergebnis

Uter var habe ich Power so eingebunden:

Delphi-Quellcode:

function Power(const Base, Exponent: Extended): Extended;

Mfg

[SVI90]

@ Cöster

Danke, hab dein Post jetzt erst gelesen.

[r2c2]

Zitat:

Zitat von SVI90

Uter var habe ich Power so eingebunden:

Delphi-Quellcode:

function Power(const Base, Exponent: Extended): Extended;

Ähm... nö. So deklarierst du eine *neue* Funktion Power. Du musst nur die Unit Math einbinden und die dort schon deklarierte und implementierte Funktion Power benutzen.

Is nicht bös gemeint, aber beschäftige dich mal mit den Grundlagen, ein paar Einsteiger-Tutorials könnten da schon helfen... Wenn du wenigstens die absoluten Grundlagen drauf hast, kommen manche Fragen erst gar nicht auf und das Programmieren geht schon bedeutend einfacher...

mfg

Christian

[SVI90]

Zitat:

Zitat von r2c2

Zitat:

Zitat von SVI90

Uter var habe ich Power so eingebunden:

Delphi-Quellcode:

function Power(const Base, Exponent: Extended): Extended;

Ähm... nö. So deklarierst du eine *neue* Funktion Power. Du musst nur die Unit Math einbinden und die dort schon deklarierte und implementierte Funktion Power benutzen.

Is nicht bös gemeint, aber beschäftige dich mal mit den Grundlagen, ein paar Einsteiger-Tutorials könnten da schon helfen... Wenn du wenigstens die absoluten Grundlagen drauf hast, kommen manche Fragen erst gar nicht auf und das Programmieren geht schon bedeutend einfacher...

mfg

Christian

Hallo


ja das seh ich auch garnicht als schlecht gemeinte Kritik an. Im Gegenteil, es ist ja berechtigt. Es ist eben nur so das die Faulheit doch oft siegt. Ich weiß ja selbst das es vermeidbar wäre. Es ist halt nur so das ich nur noch das machen will. für die weiteren Formeln reicht mein können ja aus.

[r2c2]

Zitat:

Zitat von SVI90

Es ist eben nur so das die Faulheit doch oft siegt.

Öhm... :gruebel: Eigentlich müsste die Faulheit dir ja sagen, dass es schneller geht sich die Gundlagen anzugucken, als andauernd fragen zu müssen...

BTT: Hast du jetzt Math eingebunden?

mfg

Christian

[SVI90]

Hallo

naja ansichtssache. Ich hab noch nichts eingebunden, weiß ja nicht genau wie's geht. Ich mach mich erstmal schlau.

[SVI90]

Hallo

hab jetzt alles umgesetzt was ich wollte. Die Unit math einbinden war ja einfach, ich hab da viel zu schwierig gedacht. Naja. Ein Problem besteht noch:

Delphi-Quellcode:

if ComboBox1.ItemIndex = 1
   then
     begin
       Label251.Visible  := true;
       Edit48.Visible    := true;
       Label258.Visible  := True;
       Edit49.Visible    := true;
       Edit50.Visible    := true;
       Label259.Visible  := true;
       Edit51.Visible    := true;
       Label253.Visible  := true;
  end;

Im Prinzip soll ein/mehrere Edit(s) und Label(s) sichtbar werden wenn der ItemIndex 1 ist. Ich habe also 2 Items in meiner Combobox und das/die Edits sollen nur sichtbar werden wenn davon das 1. gewählt wurde. Es geht aber so nicht. Soweit klappt es ja, allerdings sollte es een in echtzeit erscheinen und nicht erst wenn ich auf ausrechnen geklickt habe. Wie geht das umzusetzen?

[shubbi]

mit dem OnChange-event von TComboBox

[SVI90]

Hallo

neues Problem! Ich habe soweit alles realisiert was ich mir in den Kopf gesetzt habe. Jetzt wollte ich nur noch mit einer Checkbox 2 simple Edits editierbar (beschreibbar) machen die Standartmäßig ReadOnly=true haben. Das bekomme ich aber nicht realisiert. Es funktioniert beim ersten einwandfrei aber das 2. lässt sich nicht dazu bequemen.

Delphi-Quellcode:

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked  = True
then
begin
Edit100.ReadOnly := false;
Edit101.ReadOnly := false;

end
else

if CheckBox4.Checked = false
then
begin
Edit100.ReadOnly := true;
Edit101.ReadOnly := true;

end;

end;

fällt jemandem was besseres ein?

[Cöster]

Was passiert denn bzw. was passiert nicht? Der Fehler liegt wahrscheinlich woanders, denn wenn man den Code in einer sonst leeren Anwendung einbaut, funzt's. Du könntest den Code noch verkürzen, was das Problem aber nicht lösen wird:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   Edit1.ReadOnly := not CheckBox1.Checked;
   Edit2.ReadOnly := Edit1.ReadOnly;
end;

[SVI90]

Hallo

also wenn ich in der Checkbox den Haken setze passiert mit dem Edit 100 (das erste Edit) genau das was ich möchte, es ist beschreibbar. Das 2. Allerdings nicht. Wenn ich den Haken wieder entferne kann man das erste Edit auch nicht mehr beschreiben, genau wie es seinn soll.

Problem ist halt nur das es nicht mit 2 Edits funktioniert.

[Cöster]

Öffne eine neue Anwendung und füge dort nur diesen OnClick-Code ein: Es funktioniert. Der Fehler liegt also nicht in dem Code, den wir jetzt kennen, weswegen wir dir so nicht helfen können.

PS: Mach mal lieber nen neuen Thread dafür auf, ist ja ne ganz andere Frage als deine vorherige.

[Jelly]

Zitat:

Zitat von SVI90

http://www-staff.lboro.ac.uk/~elvpc/progs/image43.gif

L12= 291,1
L23= 193,7
L34= 97,4
D1= 39,2
D4= 82,4
KH= 1,5

herauskommen müsste 1,30 oder sogar -1,30. Hat einer eine Idee? :gruebel:

Wie kann da was negatives rauskommen? Die erste Klammer ist ja schon mal definitv positiv, und da der Quotient im Ln > 1 ist, ist der ln auch positiv. Woher also soll da was Negatives bei rauskommen :gruebel:

[SVI90]

Hallo

danke an alle, ich hab es hinbekommen. Es lag am edit! Hab es gelöscht und ein neues wieder eingefügt. Was daran falsch war weiß ich aber nicht