p. 54, #3

#3a.)

x=BaseForm[AccountingForm[2^^1.11111111111111111111111,30],2];

y=
Table[
BaseForm[
AccountingForm[2^^1.11111111111111111111111*2^i,30]
,2]
,{i,{0,1,2,23,24,48}}];

sums=
Table[
BaseForm[
AccountingForm[2^^1.11111111111111111111111+2^^1.11111111111111111111111*2^i,30],2],
{i,{0,1,2,23,24,48}}];

scisums=
Table[
BaseForm[
ScientificForm[2^^1.11111111111111111111111+2^^1.11111111111111111111111*2^i,30],2],
{i,{0,1,2,23,24,48}}];

TableForm[
Table[{
x,"+"y[[1]],"="sums[[1]],scisums[[1]],"",
x,"+"y[[2]],"="sums[[2]],scisums[[2]],"",
x,"+"y[[3]],"="sums[[3]],scisums[[3]],"",
x,"+"y[[4]],"="sums[[4]],scisums[[4]],"",
x,"+"y[[5]],"="sums[[5]],scisums[[5]],"",
x,"+"y[[6]],"="sums[[6]],scisums[[6]]
}
],
TableAlignments->"."]

(i)	-24≤e≤1
(ii)	-24≤e≤2
(iii)	-24≤e≤3
(iv)	-24≤e≤24
(v)	-24≤e≤24
(vi)	-24≤e≤48

b.) x*y

miny=
Table[
BaseForm[
AccountingForm[2^^0.00000000000000000000001*2^i,30]
,2]
,{i,{0,1,2,23,24,48}}];

minproducts=
Table[
BaseForm[
AccountingForm[2^^1.11111111111111111111111*2^^0.00000000000000000000001*2^i,30],2],
{i,{0,1,2,23,24,48}}];

sciminproducts=
Table[
BaseForm[
ScientificForm[2^^1.11111111111111111111111*2^^0.00000000000000000000001*2^i,30],2],
{i,{0,1,2,23,24,48}}];

TableForm[
Table[{
x,"x"miny[[1]],"="minproducts[[1]],sciminproducts[[1]],"",
x,"x"miny[[2]],"="minproducts[[2]],sciminproducts[[2]],"",
x,"x"miny[[3]],"="minproducts[[3]],sciminproducts[[3]],"",
x,"x"miny[[4]],"="minproducts[[4]],sciminproducts[[4]],"",
x,"x"miny[[5]],"="minproducts[[5]],sciminproducts[[5]],"",
x,"x"miny[[6]],"="minproducts[[6]],sciminproducts[[6]]
}
],
TableAlignments->"."]

maxproducts=
Table[
BaseForm[
AccountingForm[2^^1.11111111111111111111111*2^^1.11111111111111111111111*2^i,30],2],
{i,{0,1,2,23,24,48}}];

scimaxproducts=
Table[
BaseForm[
ScientificForm[2^^1.11111111111111111111111*2^^1.11111111111111111111111*2^i,30],2],
{i,{0,1,2,23,24,48}}];

TableForm[
Table[{
x,"x"y[[1]],"="maxproducts[[1]],scimaxproducts[[1]],"",
x,"x"y[[2]],"="maxproducts[[2]],scimaxproducts[[2]],"",
x,"x"y[[3]],"="maxproducts[[3]],scimaxproducts[[3]],"",
x,"x"y[[4]],"="maxproducts[[4]],scimaxproducts[[4]],"",
x,"x"y[[5]],"="maxproducts[[5]],scimaxproducts[[5]],"",
x,"x"y[[6]],"="maxproducts[[6]],scimaxproducts[[6]]
}
],
TableAlignments->"."]

(i)	-23≤e≤1
(ii)	-22≤e≤2
(iii)	-21≤e≤3
(iv)	0≤e≤24
(v)	1≤e≤25
(vi)	25≤e≤49

b.) x/y

minquotients=
Table[
BaseForm[
AccountingForm[2^^1.11111111111111111111111/(2^^1.11111111111111111111111*2^i),30],2],
{i,{0,1,2,23,24,48}}];

sciminquotients=
Table[
BaseForm[
ScientificForm[2^^1.11111111111111111111111/(2^^1.11111111111111111111111*2^i),30],2],
{i,{0,1,2,23,24,48}}];

TableForm[
Table[{
x,"/"y[[1]],"="minquotients[[1]],sciminquotients[[1]],"",
x,"/"y[[2]],"="minquotients[[2]],sciminquotients[[2]],"",
x,"/"y[[3]],"="minquotients[[3]],sciminquotients[[3]],"",
x,"/"y[[4]],"="minquotients[[4]],sciminquotients[[4]],"",
x,"/"y[[5]],"="minquotients[[5]],sciminquotients[[5]],"",
x,"/"y[[6]],"="minquotients[[6]],sciminquotients[[6]]
}
],
TableAlignments->"."]

maxquotients=
Table[
BaseForm[
AccountingForm[2^^1.11111111111111111111111/(2^^0.00000000000000000000001*2^i),30],2],
{i,{0,1,2,23,24,48}}];

scimaxquotients=
Table[
BaseForm[
ScientificForm[2^^1.11111111111111111111111/(2^^0.00000000000000000000001*2^i),30],2],
{i,{0,1,2,23,24,48}}];

TableForm[
Table[{
x,"/"miny[[1]],"="maxquotients[[1]],scimaxquotients[[1]],"",
x,"/"miny[[2]],"="maxquotients[[2]],scimaxquotients[[2]],"",
x,"/"miny[[3]],"="maxquotients[[3]],scimaxquotients[[3]],"",
x,"/"miny[[4]],"="maxquotients[[4]],scimaxquotients[[4]],"",
x,"/"miny[[5]],"="maxquotients[[5]],scimaxquotients[[5]],"",
x,"/"miny[[6]],"="maxquotients[[6]],scimaxquotients[[6]]
}
],
TableAlignments->"."]

(i)	-0≤e≤23
(ii)	-1≤e≤22
(iii)	-2≤e≤21
(iv)	-23≤e≤0
(v)	-24≤e≤-1
(vi)	-48≤e≤-25