apl>" <------------------------- sam141.txt ---------------------------->


apl>)copy cap2/handbook/wksp/ac add can


apl>)copy cap2/handbook/wksp/df div fix


apl>)copy cap2/handbook/wksp/mo mul


apl>)copy cap2/handbook/wksp/pr rounds


apl>)copy cap2/handbook/wksp/su sqrt sub


apl>L#a#sqrt b#0 222 3333333 4444444 5555555

0 47152 2357205


apl>a mul a

0 222 3333333 4415961 5412025

apl>" notice that this estimate of b*.5 is slightly low


apl>L#a#a add 1

0 47152 2357206


apl>a mul a

0 222 3333333 4510266 126436

apl>" but the next higher integer is lightly too high,


apl>" so that the true square root is bracketed between


apl>" these two values.


apl>)off