Logarithmusfunktion < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Guten Morgen,
ich soll eine Funktion schreiben, die einen beliebigen Logarithmus zu einer
beliebigen Basis ausrechnen soll. Anschließend soll ich die Eingaben auf ihre Gültigkeit überprüfen.
Wenn die Angaben gülitg sind, soll einmal das Ergebnis und die Exponentialfunktion (Ala [mm] X\mapsto b^x) [/mm] ausgeben werden.
Jetzt habe ich 2 Fragen.
1. Ist meine einschränkende Bedingung richtig?
2. Wie bekomme ich die Ausgabe der Exponentialfunktion hin?
| 1: | Loga[Basis_, Zahl_] := Ergebnis = If[Basis <= 0 || Zahl <= 0,
| | 2: | "Basis und Zahl dürfen nicht kleiner oder gleich 0 sein",
| | 3: | N[Log[Basis, Zahl]]] |
Vielen Dank
|
|
| |
|
Hallo,
> 1. Ist meine einschränkende Bedingung richtig?
Fast. Auch die 1 ist als Basis verboten.
> 2. Wie bekomme ich die Ausgabe der Exponentialfunktion hin?
Meinst du das:
Loga[Basis_, Zahl_] := If[ Basis <= 0 || Basis == 1 || Zahl <= 0,
"Verbotene Argumente!",
Erg := N[Log[Basis, Zahl]];
Print["Ergebnis = ", Erg];
Print["x ", FromCharacterCode[8614], " ", Basis^x];
Return[Erg];]
?
Gruß
Martin
|
|
|
| |
|
Hallo,
vielen Dank, genau so wollte ich das :)
|
|
|
|
