Exponentielle Darstellung mit printf mit einer null vor der Dezimaltrennstelle (Allgemeines zu Perl)

[thread]15623[/thread]

Exponentielle Darstellung mit printf mit einer null vor der Dezimaltrennstelle

Leser: 19

Articles: hide open all | hide show old branches

+7 replies
Sanny

2010-11-11 10:37
User since
2010-09-26
11 Artikel
BenutzerIn
Hallo Zusammen,

Ich benutze folgende Form der printf Funktion:
Code (perl): (dl )

printf ("%23.16e\n", $a);
Ist das übergebene Argument beispielsweise $a=-666 dann erfolgt die Ausgabe folgendermaßen:

-6.6600000000000000e+02

Mein Ziel ist, dass die Darstellung folgendermaßen aussieht:

-insgesamt 23 Zeichen (klappt)
-16 Nachkomma(bzw. Nachpunkt-)stellen (klappt)

-exponentielle Darstellung, jedoch eine Null vor der Dezimaltrennstelle, natürlich mit entsprechend angepasstem Exponenten
-das "e" (Exponenten) soll durch ein "D" ersetzt werden

Das Bsp. sollte optimaler Weise folgende Ausgabe erzeugen:

-0.6660000000000000D+03

Mir fällt nur ein, die komplette Datei nochmal einzulesen und das gewünschte Format durch eine relativ aufwendige Substitution einzustellen/ erzwingen.
Hat jemand von euch eine elegantere Idee?

Gruss,

Sanny
- +2 replies
- bianca
  
  2010-11-11 10:58
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Soll das eine Art Runden werden?
  Dazu haben wir sehr ausführliche Threads schon gehabt, weil das nicht ganz trivial ist.
  Soll ich das mal raussuchen?
  10 print "Hallo"
  20 goto 10
  - Sanny
    
    2010-11-11 11:05
    
    User since
    2010-09-26
    11 Artikel
    BenutzerIn
    
    Nein, das übergebene Argument soll nicht gerundet werden. Es geht mir um die Darstellung, wie unten beschrieben.
    
    Beantwortet das deine Frage?
- clms
  
  2010-11-11 14:38
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  2010-11-11T09:37:23 Sanny
  Ich benutze folgende Form der printf Funktion:
  
  Code (perl): (dl )
  
  printf ("%23.16e\n", $a);
  
  Ist das übergebene Argument beispielsweise $a=-666 dann erfolgt die Ausgabe folgendermaßen:
  
  -6.6600000000000000e+02
  
  Mein Ziel ist, dass die Darstellung folgendermaßen aussieht:
  ...
  -0.6660000000000000D+03
  
  Mir fällt nur ein, die komplette Datei nochmal einzulesen und das gewünschte Format durch eine relativ aufwendige Substitution einzustellen/ erzwingen.
  Hat jemand von euch eine elegantere Idee?
  
  Ein Standard-sprintf-Format für Deinen Wunschoutput gibt es wohl nicht. (Bin da aber kein Experte und lasse mich gern eines bessren belehren.)
  
  Den kompletten Ausgabe-File nochmal einlesen und filtern brauchst Du aber auch nicht. Es genügt doch wenn Du die Zahlendarstellung entsprechend filterst, bevor Du sie in den Output einfügst.
  
  Ich sehe da zwei Möglichkeiten
  1.) Du versuchst Dein Format in printf zu emulieren in dem Du getrennte Zahlen für Mantisse und Exponent übergibst.
  2.) Du schreibst Dir eine eigene Konvertierungsfunktion, die die Zahl
  in die von Dir gewünsche Darstellung bringt und deren Ergebnis Du dann als String in Deinen Output einfügst:
  
  Code (perl): (dl )
  
  printf("%s",my_d_format($a));
  
  my_d_format() könnte die Zahl z.B. zunächst per sprintf("%23.16e",$a) in einen String wandeln den Du dann entsprechend umformst.
  Oder dort spaltest Du die Zahl zunächst in Mantisse und Exponent auf und formatierst dies dann zum gewünschen String.
- +2 replies
- payx
  
  2010-11-11 14:42
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Sanny,
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #!/usr/bin/perl use strict; use warnings; my $x = -666; my $y = sprintf("%23.16e\n", $x); # -6.6600000000000000e+02 if ($y =~ m/^(.+)e\+(\d+)$/) { printf("%23.16fD+%02d\n", $1/10, $2+1); # -0.6660000000000000D+03 }
  
  Naja, zur Not, oder? ;-)
  
  HTH
  Grüße
  payx
  - Sanny
    
    2010-11-11 16:47
    
    User since
    2010-09-26
    11 Artikel
    BenutzerIn
    
    Danke für eure Vorschläge. Ich habe den Vorschlag von payx genommen. vielen Dank:-)
    
    Gruss,
    
    Sanny
- murphy
  
  2010-11-11 16:01
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Eine Möglichkeit das ohne textuelle Substitutionen zu erreichen wäre diese:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use 5.012; use POSIX qw(log10 ceil); my $x = -666; my $e = ceil(log10(abs($x))); my $m = $x / 10**$e; printf "%19.16fD%+03d\n", $m, $e;
  
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2010-11-11 10:37.