WebSVN – wimsdev – Diff – /trunk/wims/src/Misc/scienceprint/scienceprint.c

 type = 0 : calc   notation : 120000,3,0 -> 1.20*10^5
 type = 1 : html notation   : 120000,3,1 -> 1.20&times;10<sup>5</sup>
 type = 2 : latex notation  : 120000,3,2 -> 1.20 \times 10^{5}
 type = 3 : prefix-notation : 120000,3,3 -> 120.0 k
 type = 3 : if -24 > prefix > 24         -> type = 1 (html)
 type = 4 : mathml notation
 type = 5 : prefix-notation with words (nano,mega,giga...etc) :120000,3,3 -> 120.0 kilo
 multiple conversion: use space between arguments
 scienceprint 120000,4 122900,5 120036,6,3 --> 120.0*10^3,122.90*10^3,120.036 k
 *********************************************************************************
 /10/2013
 corrected roundoff in case "significance=-1" changed 'factor' from 'int' to 'float'...there must be a better way to do this...
 But in numbers > 1000000000000000 there is still a problem, so take care (!)
 when there are more than 15 digits in the number (this may vary depending on system / implementations, I guess)
 ./scienceprint 901234567890123       ,-1,0 --> 9.01234567890123*10^14
 ./scienceprint 9012345678901234      ,-1,0 --> 9.012345678901236*10^15
 ./scienceprint 901234567890123*10^70 ,-1,0 --> 9.01234567890123*10^84
 ./scienceprint 9012345678901234*10^70,-1,0 --> 9.012345678901227*10^85
 *********************************************************************************
 /9/2013
 minor issue:
 Added type = 5 : prefix-notation with words (nano,mega,giga...etc)
 small correction in roundoff routine when significance > 6 .... pow(10,7) may give problems when stored in (int) integer
 *********************************************************************************
 /9/2013
 Correct rounding in stead of truncation...
 *********************************************************************************
 /10/2012 :
 Added Mathml output
 Added option significance=-1
 To be used when there is no significance known ; just tries to print the number in science notation
 Using the original amount of digits used in "number" argument
 !exec scienceprint 123.445000e+23,-1 --> 1.23445000*10^25
 *********************************************************************************
 /11/2012
 Added support for numbers like  12345*10^12
 *10^12 --> 12345E12 ---> 1.2345*10^16
 *********************************************************************************
 /6/2012
 Corrected significance flaw when using prefixes
 Simplified routines
  yotta       Y
  zetta       Z
  exa         E
  peta        P
  tera        T
   giga        G
   mega        M
   kilo        k
   hecto       h
   deca        da
 -1  deci        d
 -2  centi       c
 -3  milli       m
 -6  micro       µ
 -9  nano        n
 -12 pico        p
 -15 femto       f
 */
 #include <stdio.h>
 #include <math.h>
 #include <string.h>
 #include <stdlib.h>
-#define MICRO "µ"
+/*#define MICRO "µ"*/
+#define MICRO "\xB5"
 #define MAX_CONV 256
 #define MAX_STRING 32
 #define PREFIX_START -24
 #define PREFIX_END 24
     static char *min_word[] = {"","milli","micro","nano","pico","femto","atto","zepto","yocto"};
     static char *plus_word[] = {"","kilo", "mega", "giga", "tera", "peta", "exa", "zetta", "yotta" };
     char *sign = NULL;char *prefix = NULL;float pm;double factor;
     int exponent10 = 0;
     int use_word = 0;if(format == 5){format = 3; use_word = 1;} /* switch to using words in stead of prefix  */
     if(value < 0.0) {pm = -0.5; sign = "-";value = -value;} else {sign = ""; pm = 0.5;}
     if( sig == -1 ){
      /*
      no significance truncations...just science notation 1234 -> 1.234*10^3
      try (!) to use same amount of digits
      */
         sig = size;
         if(format == 3){format = 1;} /* never prefix --> html notation */
+    }
 1000000,1,3 -> 1 M
 10000000,1,3 -> 1*10^1 M
 100000000,1,3 -> 1*10^2 M
 1000000000,1,3 -> 1 G
 ,1,3 -> 1
 .1,1,3 -> 1*10^-1
 .01,1,3 -> 1*10^-2
 .001,1,3 -> 1 m
 .0001,1,3 -> 1*10^-1 m
 .00001,1,3 -> 1*10^-2 m
 .000001,1,3 -> 1 µ
 .0000001,1,3-> 1*10^-1 µ
         case 6: fprintf(stdout, "%s%.*f",sign,sig,value);break;
         default: break;
+    }
     return NULL;
+}
 int main( int argc , char *argv[]){
     if( argc < 2){
         fprintf(stdout,"syntax error : number1,significance1,type1 number2,significance2,type2 ... number_n,significance_n,type_n \n");
         return 0;
         idx = 0;
         type = 0;
         size = 0;
         while( ptr != NULL ){
             switch( idx ){
                 case 0:
                         /* size only interesting when 'significance=-1'
                          determine number of digits : 1.23445e+23 -> size = 6
                         */
                         size = strlen(ptr);
                         if( strstr(ptr,".") != NULL){size = size - 1 ;}
                         if( strstr(ptr,"*10^") != NULL){
                             ptr = str_replace(ptr,"*10^","E");
                             if(ptr == NULL){
                                 fprintf(stdout,"error : in replacement of 10^ notation\n");
                                 return 0;
                             }
                             size = size - 3;
+                        }
                         if( strstr(ptr,"E") != NULL){size = size - strlen(strstr(ptr,"E"));}
                         if( strstr(ptr,"e") != NULL){size = size - strlen(strstr(ptr,"e"));}
                         number = atof(ptr);
                         break;
                 case 1: significance = atoi(ptr);  break;
                 case 2: type = atoi(ptr); if(type < 0 || type > 5 ){type = 0;} break;
                 default: break;
+            }

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/scienceprint/scienceprint.c – Rev 7648 → 12258