#
# Chapter 13.  Document Preparation
#
#
#
# MAPLE SESSION 1
#
>    v:=Int(4*Pi*x*sqrt(1-x^2),x=0..r);
>    v:=value(v);
>    rrs:=solve(v=2*Pi/3,r);
>    2*radsimp(%[1]);
>    evalf(%);