Enter a numeric value, then click the button Digits := 60; Approx := proc(x::{float, integer}) local y, tst, rslt; y := convert(convert(evalf[20](x), binary), list); if nops(y) < 2 then RETURN(" exact") end if; tst := x-evalf(convert(y[1], decimal, binary)*2^y[2]); if tst <> 0 then RETURN(" approx") else RETURN(" exact") end if end proc; IEEE := proc(x) local s1, bp, ep, ev, Expon, Mant; s1 := convert(convert(x, binary), string); bp := searchtext(".", s1); if bp = 0 then s1 := cat(s1[1], ".", s1[2 .. -1], "e+", convert(length(s1)-1, string)); elif bp = 1 then ep := searchtext("e", s1); if ep<1 then s1 := cat(s1,"e+0"); ep := searchtext("e", s1); end if; s1 := cat(s1[2], ".", s1[3 .. ep], parse(s1[ep+1 .. -1])-1); elif 2 < bp then s1 := cat(s1[1], ".", s1[2 .. bp-1], s1[bp+1 .. -1], "e", convert(bp-2, string)); end if; ep := searchtext("e", s1); if 0 < ep then ev := parse(s1[ep+1 .. -1]) else ev := 0 end if; if x=0 then Expon := "0"; else Expon := convert(convert(ev+127, binary), string); end if; Expon := cat("0"$i=1..8-length(Expon), Expon[1..8]); Mant := cat(s1[3 .. ep-1], "0"$i=1..26-ep); Mant := Mant[1..23]; RETURN([Expon, Mant]); end proc: IEEEd := proc(x) local s1, bp, ep, ev, Expon, Mant; s1 := convert(convert(x, binary), string); bp := searchtext(".", s1); if bp = 0 then s1 := cat(s1[1], ".", s1[2 .. -1], "e+", convert(length(s1)-1, string)); elif bp = 1 then ep := searchtext("e", s1); if ep<1 then s1 := cat(s1,"e+0"); ep := searchtext("e", s1); end if; s1 := cat(s1[2], ".", s1[3 .. ep], parse(s1[ep+1 .. -1])-1); elif 2 < bp then s1 := cat(s1[1], ".", s1[2 .. bp-1], s1[bp+1 .. -1], "e", convert(bp-2, string)); end if; ep := searchtext("e", s1); if 0 < ep then ev := parse(s1[ep+1 .. -1]) else ev := 0 end if; if x=0 then Expon := "0"; else Expon := convert(convert(ev+1023, binary), string); end if; Expon := cat("0"$i=1..11-length(Expon), Expon[1..11]); Mant := cat(s1[3..ep-1], "0"$i=1..56-ep); Mant1 := Mant[1..20]; Mant2 := Mant[21..52]; RETURN([Expon, Mant1, Mant2]); end proc: use DocumentTools in xVal := evalf[100](GetProperty('xValue', 'expression')); Do( %Sign = (1-sign(xVal))/2); Do( %SignD = (1-sign(xVal))/2); xVal := abs(xVal); if evalb(2.^(-127.)<abs(xVal)) and evalb(abs(xVal)<2.^128.) then Do( %Note = Approx(xVal)); else Do( %Note = " error"); end if; if evalb(2.^(-1022.)<abs(xVal)) and evalb(abs(xVal)<2.^1023.) then Do( %NoteD = Approx(xVal)); else Do( %NoteD = " error"); end if; ie3 := IEEE(xVal); Do( %Expon = ie3[1]); Do( %Mantissa = ie3[2]); ie3d := IEEEd(xVal); Do( %ExponD = ie3d[1]); Do( %MantissaD1 = ie3d[2]); Do( %MantissaD2 = ie3d[3]); end use;

IEEE Single Precision 31 Sign 30 23 Exponent 22 0 Mantissa Note:

IEEE Double Precision 63 Sign 62 52 Exponent 51 32 Mantissa(1) Note: 31 0 Mantissa(2)

print(); # input placeholder print(); # input placeholder

LUkkPHxncj5HSShfc3lzbGliRzYiNiQtSSQ8LD5HRiQ2KEkoTUFYX0VYUEdGJUkoTUlOX0VYUEdGJUkqTUFYX0ZMT0FUR0YlSSpNSU5fRkxPQVRHRiVJK01BWF9ESUdJVFNHRiVJLk1BWF9CSU5fUE9XRVJHRiUtSSRtYXBHJSpwcm90ZWN0ZWRHNiRJLU1hcGxlX2Zsb2F0c0dGJEYn

LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVE1b3V0cHV0fnJlZGlyZWN0ZWQuLi5GJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRic=

print(); # input placeholder

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyMtSSdSVEFCTEVHRig2JSIrYycqZXBWLUknTUFUUklYR0YoNiM3KDckSShNQVhfRVhQR0YoIjQxZXhhby5zTEEqNyRJKE1JTl9FWFBHRighNDFleGFvLnNMQSo3JEkqTUFYX0ZMT0FUR0YoJCIiIkY2NyRJKk1JTl9GTE9BVEdGKCRGPUY5NyRJK01BWF9ESUdJVFNHRigiLFljcWEnUTckSS5NQVhfQklOX1BPV0VSR0YoIjQuelFGJT1nbzZZSSdNYXRyaXhHRiU3Iy1GRzYjL0kkJWlkR0YoRi8=

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzY3LUkjbWlHRiQ2JVEnRGlnaXRzRicvJSdpdGFsaWNHUSZmYWxzZUYnLyUsbWF0aHZhcmlhbnRHUSdub3JtYWxGJy1JI21vR0YkNi1RIn5GJ0YyLyUmZmVuY2VHRjEvJSpzZXBhcmF0b3JHRjEvJSlzdHJldGNoeUdGMS8lKnN5bW1ldHJpY0dGMS8lKGxhcmdlb3BHRjEvJS5tb3ZhYmxlbGltaXRzR0YxLyUnYWNjZW50R0YxLyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGSS1GNjYtUSomY29sb25lcTtGJ0YyRjlGO0Y9Rj9GQUZDRkUvRkhRLDAuMjc3Nzc3OGVtRicvRktGUEY1LUkjbW5HRiQ2JFEjMjBGJ0YyLUY2Ni1RIjpGJ0YyRjlGO0Y9Rj9GQUZDRkVGT0ZRLUknbXNwYWNlR0YkNiYvJSdoZWlnaHRHUSYwLjBleEYnLyUmd2lkdGhHRkkvJSZkZXB0aEdGaG4vJSpsaW5lYnJlYWtHUShuZXdsaW5lRictRlo2JkZmbkZpbkZbby9GXm9RJWF1dG9GJy1GLDYlUSJORicvRjBRJXRydWVGJy9GM1EnaXRhbGljRidGNUZMRjUtRiw2JVEmZXZhbGZGJ0YvRjItSShtZmVuY2VkR0YkNiQtRiM2JC1GLDYlUSNQaUYnRi9GMkYyRjJGVkZZLUYsNiVRKmRpc21hbnRsZUYnRmdvRmlvLUZfcDYmLUYjNiQtRiw2JVEkaGV4RidGZ29GaW9GMkYyLyUlb3BlbkdRIltGJy8lJmNsb3NlR1EiXUYnLUZfcDYkLUYjNiRGZG9GMkYyLyUrZXhlY3V0YWJsZUdGMUYy

LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVE1b3V0cHV0fnJlZGlyZWN0ZWQuLi5GJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRic=

%;

FLOAT(103BA8EB8,3): 3.1415926535897932385 INTPOS(10386E698,6): 31415926535897932385 INTNEG(FFFFFFFFFFFFFFDB,2): -19

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzY3LUkjbWlHRiQ2JVEnRGlnaXRzRicvJSdpdGFsaWNHUSZmYWxzZUYnLyUsbWF0aHZhcmlhbnRHUSdub3JtYWxGJy1JI21vR0YkNi1RIn5GJ0YyLyUmZmVuY2VHRjEvJSpzZXBhcmF0b3JHRjEvJSlzdHJldGNoeUdGMS8lKnN5bW1ldHJpY0dGMS8lKGxhcmdlb3BHRjEvJS5tb3ZhYmxlbGltaXRzR0YxLyUnYWNjZW50R0YxLyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGSS1GNjYtUSomY29sb25lcTtGJ0YyRjlGO0Y9Rj9GQUZDRkUvRkhRLDAuMjc3Nzc3OGVtRicvRktGUEY1LUkjbW5HRiQ2JFEjNDBGJ0YyLUY2Ni1RIjpGJ0YyRjlGO0Y9Rj9GQUZDRkVGT0ZRLUknbXNwYWNlR0YkNiYvJSdoZWlnaHRHUSYwLjBleEYnLyUmd2lkdGhHRkkvJSZkZXB0aEdGaG4vJSpsaW5lYnJlYWtHUShuZXdsaW5lRictRlo2JkZmbkZpbkZbby9GXm9RJWF1dG9GJy1GLDYlUSJORicvRjBRJXRydWVGJy9GM1EnaXRhbGljRidGNUZMRjUtRiw2JVEmZXZhbGZGJ0YvRjItSShtZmVuY2VkR0YkNiQtRiM2JC1GLDYlUSNQaUYnRi9GMkYyRjJGVkZZLUYsNiVRKmRpc21hbnRsZUYnRmdvRmlvLUZfcDYmLUYjNiQtRiw2JVEkaGV4RidGZ29GaW9GMkYyLyUlb3BlbkdRIltGJy8lJmNsb3NlR1EiXUYnLUZfcDYkLUYjNiRGZG9GMkYyLyUrZXhlY3V0YWJsZUdGMUYy

LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVE1b3V0cHV0fnJlZGlyZWN0ZWQuLi5GJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRic=

%;

FLOAT(1052D2010,3): 3.141592653589793238462643383279502884197 INTPOS(1050C7730,7): 3141592653589793238462643383279502884197 INTNEG(FFFFFFFFFFFFFFB3,2): -39

JSFH

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbW9HRiQ2LVEhRicvJSxtYXRodmFyaWFudEdRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0Y0LyUpc3RyZXRjaHlHRjQvJSpzeW1tZXRyaWNHRjQvJShsYXJnZW9wR0Y0LyUubW92YWJsZWxpbWl0c0dGNC8lJ2FjY2VudEdGNC8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRkM=JSFH