Lua字节数组与float互转

纪念那些在双流工厂奋斗的日夜，防爆表屏项目 是一次很成功的实践，包括设计的页面堆栈和跳转机制 历史回退机制 页面密码保护机制  串口分包机制 ，运用综合所学来搭建的屏上独立内循环系统 ，自恋点说的话各方面都堪称经典，估计那堆代码基本上没人能上得了手吧，完美归完美  太小众冷门了 难度太大 ，最终估计结果也是躺那吃灰，有时候你自认为费尽心思完成的所谓作品 其实公司领导根本就不关注那个点。反正有的是钱嘛，又请人过来编一堆屎一样的火星文然后又放弃。还有就是扯皮拉筋的事太多，有些东西并不是纯软件技术能解决的，根本推动不了，让你设身处地鞠躬尽瘁的解决所有 软件 硬件 甚至是化学传感器适配问题 达到让用户买账的程度 ，我也是醉了 打这么多年工说实话头一次到这么艰难的境地，以前从没有这种感觉，甚至在单位把CAD学会了，PLC也学了一点，这社会三十岁后的技术人员都是这么艰难了么。另外感谢那些批评我的人是你们让我进步

字节数组转float

function hexToFloat(x)
    --print(type(x));
    local sign = 1
    local mantissa = string.byte(x, 3) % 128
    for i = 2, 1, -1 do mantissa = mantissa * 256 + string.byte(x, i) end
    if string.byte(x, 4) > 127 then sign = -1 end
    local exponent = (string.byte(x, 4) % 128) * 2 +
        math.floor(string.byte(x, 3) / 128)
    if exponent == 0 then return 0 end
    mantissa = ((mantissa * (2 ^ -23)) + 1) * sign
    local result= (mantissa * (2 ^ (exponent - 127)));

    result = math.floor(result * 10+ 0.5) / 10;
    return result;
end

float转字节数组，为了实现这个可是让我访便了各个角落，自己不断的测试 ，扯淡的Lua  写点小逻辑脚本倒是没问题，字节和位操作局限性真的非常的大，面向对象规模化方式程序编写局限性也非常的大，还有相对于c语言没有那种指针的灵活运用也是局限很大，但最终的最终好歹还是实现了 有可能全网就改造的这段代码能正常在屏上运行了。如果有谁也遇到这个问题找到这来了那么 很幸运你的问题能够得到解决了

function floattohex(floatNum)
    if(floatNum == 0)then
        return 0;
    end
---给一个浮点数 33.758
--1.将浮点数分成整数和小数
    num_z,num_x= math.modf(floatNum/1)
    --print("整数:" .. num_z  .. "  小数:".. num_x)
--2.将整数部分化成二进制
    str_z = ""
    intercount = 0;  --转换成二进制一共多少位
    num1 = num_z
    if(num1 == 0)then
        intercount = 0
        str_z = "0"
    else
        repeat
        num = num1
        num1= math.modf(num1/2)
        num2 = num - num1*2
        intercount = intercount + 1  --阶乘
        str_z = str_z .. num2
        until (num1 == 0)
    end
    str_z = string.reverse(str_z)
    --print("整数:" .. str_z)
--3.将小数转换成二进制
    str_x = ""
    num2 = num_x
    repeat
    num2 = num2 *2
    num1,num2 = math.modf(num2/1)
    str_x = str_x .. num1
    until(num2 == 0 or #str_x >=40)
    --print("小数:"..str_x)
--4.浮点数的二进制表示
    --print("浮点数的二进制表示 :" .. str_z .. "."  .. str_x)

--浮点数的二进制表示 :一种：0.00110101110000101000111
                    --两种：1011.01101011100001010
--5.首先确认整数是否大于0，
        --（1）==0 右移  查找小数二进制何时有1
        --（2） >0 左移  
    
    e = 0
    str_m =""
    if(num_z == 0)then
        num_1 =string.find(str_x,"1")  --阶
        e = -num_1
        str_m = string.sub(str_x,num_1+1,-1)
    else
        e = intercount - 1
        str_m = string.sub(str_z,2,-1) .. str_x
    end    
    --？？考虑str_m是否有23位
    if(#str_m ~= 23)then
        if(#str_m > 23)then
            str_m = string.sub(str_m,1,23)
        end
        if(#str_m <23)then
            len_m = 23 - #str_m
            for i = 1,len_m do
                str_m =  str_m .."0"
            end
        end
    
    end
    M = str_m
    --print("M = " .. M)    
    
    --考虑把它转换成二进制
    E = e + 127  
    str_e = ""  --E的二进制
    intercount_e = 0
    num1 = E
    repeat
        num = num1
        num1= math.modf(num1/2)
        num2 = num - num1*2
        intercount_e = intercount_e + 1  --阶乘
        str_e = str_e .. num2
    until (num1 == 0)
    
    if(#str_e ~= 8)then
        len_e = 8 - #str_e
        for i = 1,len_e do
            str_e =  str_e .."0"
        end
    end
    E = string.reverse(str_e)
    --print("E的二进制字符串:" .. E)--此时str_e 是E的二进制字符串
        
    
    
--6.确定 S
    if(floatNum > 0)then
        S = 0
    else    
        S = 1
    end
    --print("S:" .. S)
--7.将S E M 二进制转换
    str = S .. E .. M
    --print(string.len(str));
    
    --result = string.format("%08X",tonumber(str,2))
    
    --'01000010110010000000000000000000'
--以下是进行改造后的 字节处理代码 ，经测试正常工作
    floatar ={0,0,0,0};--浮点4字节
    local indxx=0;
    for i = 1, 4, 1 do
        floatar[4-(i-1)] = 0;
        
        for j = 1, 8, 1 do
            --floatar[i]=floatar[i]|
            --print((i-1)*8+(j).."gggggggggggggggggg")
            indxx = (i-1)*8+(j);
            --print(tonumber(str[indxx])<<(j-1));
            --扯淡的嵌入式lua环境 不准使用tunumber 会死机
            if string.sub(str,indxx,indxx)=='1' then
                floatar[4-(i-1)] = floatar[4-(i-1)]| (1<<(8-j));
                else
                    floatar[4-(i-1)] = floatar[4-(i-1)]| (0<<(8-j));
            end
            --floatar[4-(i-1)] = floatar[4-(i-1)]| (tonumber(string.sub(str,indxx,indxx))<<(8-j));
        end        
    end
    
    --print(type(floatar[1]));
    --print("floagstart---------------------------------------")
    resultstr = "";
    for i = 1, 4, 1 do
        --print(string.format("%02X",floatar[i]))
        resultstr = resultstr.. ( string.format("%02X",floatar[i]));
    end
    --print("floatEnd---------------------------------------")
    --print ("result =" .. result)
    --print("**************************************************")
    --return result;
    return resultstr;
end