summaryrefslogtreecommitdiff
path: root/Modelica-Arduino-MDD_Arduino_Revised/Resources/src/ieeesingle2num.c
blob: 73311932b44acab25789cfdd397bba88f48723c4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#include <errno.h>
#include <termios.h>
#include <unistd.h>
#include <fcntl.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <ctype.h>
#include "../Include/serial.h"

#ifdef NAN
/* NAN is supported */
#endif
#ifdef INFINITY
/* INFINITY is supported */
#endif


long int hex2dec(char hexadecimal[])
{
	long int decimalNumber=0;
    char hexDigits[16] = {'0', '1', '2', '3', '4', '5', '6', '7', '8',
      '9', 'A', 'B', 'C', 'D', 'E', 'F'};
    int i, j, power=0;    
     
    /* Converting hexadecimal number to decimal number */
    for(i=strlen(hexadecimal)-1; i >= 0; i--) {
        /*search currect character in hexDigits array */
        if(isalpha(hexadecimal[i]))
        		hexadecimal[i]=toupper(hexadecimal[i]);
        for(j=0; j<16; j++){
            if(hexadecimal[i] == hexDigits[j]){
                decimalNumber += j*pow(16, power);
            }
        // }
        power++;
        }
    }
    return decimalNumber;
}

void dec2hex(long int decimalnum,char hexadecimalnum[])
{
	long quotient, remainder;
    int j = 1;
    quotient = decimalnum;
 
    while (quotient != 0)
    {
        remainder = quotient % 16;
        if (remainder < 10)
            hexadecimalnum[j--] = 48 + remainder;
        else
            hexadecimalnum[j--] = 55 + remainder;
        quotient = quotient / 16;
    }
    hexadecimalnum[2]='\0';
}

double ieeesingle2num(char hexa[])
{
	long int x=hex2dec(hexa);
	long int k =(long int)pow(2,31);   //pow2(31);
	int s = (x >= k);
	if (s) 
		x = x - k;
	//t = pow2(x,-23);
	double t = x*pow(2,-23);
	long int e = floor(t);
	double f = t - e;
	double y;
	if (e == 255)
	 	if(f == 0)
	 		y = INFINITY; 
	 	else 
	 		y = NAN;
	else if(e > 0)
		y = (1+f)*pow(2,e-127);
	 //y = (1+f).*2.^(e-127);
	else
	    y = f*pow(2,-126);
	//y = f.*2.^-126;
	if (s) 
		y = -y;
	return y;
}