Nice try, but didn't help.
On Aug 3, 2006, at 12:08 AM, Taco Hoekwater wrote:
\displaywidowpenalty0\brokenpenalty0
The difficulty might be that Exercise #27 is in a textblock.
% Exercise #27
\beginquestion
\startquestion[ex:secqu.27]
$f(x)=\sqrt{x+5}$.
\stopquestion
\endquestion
\beginlonganswer[]
\startanswer
\stopanswer
\endlonganswer
\beginshortanswer[]
\startanswer
$\text{Domain}=[-5,\infty)=\{x:\,x\ge -5\}$
\startbuffer
%initialize scale
numeric u; 20u=2in;
%draw axes
\includeMPgraphic{1010_xy_axes_ti}
%define function
vardef f(expr x)=
sqrt(x+5)
enddef;
%create function path
path p; p:=(-5,f(-5));
for x=-5 step .1 until 10:
p:=p--(x,f(x));
endfor;
p:=p--(10,f(10));
p:=p scaled u;
drawarrow p withcolor blue;
label.rt(btex $\tfx f$ etex, (10,f(10)) scaled u);
%create projection domain
for x=-5 step 1 until 10:
drawarrow ((x,f(x))--(x,0)) scaled u withcolor green;
endfor;
pickup pencircle scaled 2pt;
drawarrow (-5u,0)--(10u,0) withcolor red;
pickup defaultpen;
filleddotred((-5u,0));
label.bot(btex $\tfx -5$ etex, (-5u,0));
\stopbuffer
\startlinecorrection[blank]
\midaligned{\processMPbuffer}
\stoplinecorrection
\column <--------------------Taco, inserting a column break works, which is what we'll probably do
$\text{Range}=\{y:\,y\ge 0\}=[0,\infty)$
\startbuffer
%initialize scale
numeric u; 20u=2in;
%draw axes
\includeMPgraphic{1010_xy_axes_ti}
%define function
vardef f(expr x)=
sqrt(x+5)
enddef;
%create function path
path p; p:=(-5,f(-5));
for x=-5 step .1 until 10:
p:=p--(x,f(x));
endfor;
p:=p--(10,f(10));
p:=p scaled u;
drawarrow p withcolor blue;
label.rt(btex $\tfx f$ etex, (10,f(10)) scaled u);
%create projection domain
for y=0 step 1 until 3:
drawarrow ((y*y-5,y)--(0,y)) scaled u withcolor green;
endfor;
for y=4 step 1 until 10:
drawarrow ((10,y)--(0,y)) scaled u withcolor green;
endfor;
pickup pencircle scaled 2pt;
drawarrow (0,0)--(0,10u) withcolor red;
pickup defaultpen;
filleddotred((0,0));
label.lft(btex $\tfx 0$ etex, (0,0));
\stopbuffer
\startlinecorrection[blank]
\midaligned{\processMPbuffer}
\stoplinecorrection
\stopanswer
\endshortanswer