Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   10er Mantisse und Exponent (https://www.delphipraxis.net/83408-10er-mantisse-und-exponent.html)

Alexander Roth 2. Jan 2007 11:03


10er Mantisse und Exponent
 
Hi,

also wie kann ich die Mantisse und den Exponenten im 10 er System ausrechnen?

Mit Logarithmus gesetzten kommt man da nämlich leider nicht weit, da man 2 unbekannten hat.
Also:
Zitat:

man2*2^exp2=man10*10^exp10
log10(man2*2^exp2)=log10(man10*10^exp10)
log10(man2) + log10(2^exp2)=log10(man10) + log10(10^exp10)
log10(man2) + exp2*log10(2)=log10(man10) + exp10
exp10 = log10(man2) - log10(man10) + exp2*log10(2)
Dummerweise kennt man ja die Mantisse im 10er System auch nicht.

Wie kommt man aus dem Dilemma?

Gruß Alexander

Khabarakh 2. Jan 2007 11:50

Re: 10er Mantisse und Exponent
 
Es gilt 0 <= log10(man10) < 1. Um die Fallentscheidung wirst du aber wohl nicht herumkommen.

Alexander Roth 2. Jan 2007 13:17

Re: 10er Mantisse und Exponent
 
Das verstehe ich jetzt nicht. Was für eine Fallunterscheidung?

ibp 2. Jan 2007 13:23

Re: 10er Mantisse und Exponent
 
Code:
12345 = 12345/(10^trunc(log(12345))) * 10^(trunc(log(12345)))
12345 = 12345/10^4 * 10^4
12345 = 1.2345 * 10^4
meintest du das?

Alexander Roth 2. Jan 2007 13:28

Re: 10er Mantisse und Exponent
 
Ja das meine ich.
1.2345 ist dann die Mantisse
und 4 ist der Exponent.

Warte mal klappt das wirklich? Ich probiere mal aus.

EDIT: Cool das ist die Lösung!!!
Zitat:

Exponent:=trunc(log(zahl))
Zitat:

Mantisse:=zahl/10^Exponent
Danke, Danke. Tschüss

Alexander

ibp 2. Jan 2007 15:55

Re: 10er Mantisse und Exponent
 
es gibt aber bei der Exponentialschreibweise noch den Unterschied zwischen Vorkommazahl 0 (normiert) und >0 (normalisiert)... :wink:

Alexander Roth 2. Jan 2007 16:11

Re: 10er Mantisse und Exponent
 
Diese wissenschaftliche Schreibweise reicht völlig.

Gruß Alexander


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz