Зачем преобразовывать single в двоичный формат?

MoKo 17.05.2012 12:11

Мне кажется без этого даже проще. Код ниже, на паре примеров из http://en.wikipedia.org/wiki/Single_precision вроде как правильно работает. :)

@hex2single[value]

$svalue[0x^value.upper[]]
$uint($svalue)

$fraction((($uint & 0x07FFFFF)+0x800000)/0x800000)
$exp((($uint & 0x7FFFFFFF)>>23) - 127)

$result(^math:pow(2;$exp)*$fraction)
if($uint & 0x80000000 > 0){ $result(-$result) }

---