\mnb150<nb></nb>ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\froman\fprq2 Times New Roman;}{\f4\fswiss\fprq2 Arial;}{\f5\fmodern\fprq1 Courier New;}{\f6\fmodern Courier New;}{\f7\froman Times New Roman;}{\f8\froman\fprq2 Symbol;}{\f9\froman\fcharset1 Times New Roman;}{\f10\froman\fprq2\fcharset2 Times New Roman;}{\f11\froman\fprq2 BakerSignet;}{\f12\fmodern\fprq1 Lucida Sans Typewriter;}{\f13\fmodern\fprq1 Letter Gothic;}}
{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green0\blue255;\red0\green128\blue0;\red0\green128\blue128;\red128\green0\blue0;}
\deflang1033\pard\ri4\plain\f3\fs36\cf5 Example 12.2 - Local minimum and maximum values
\par \plain\f11\fs28\cf0 
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f12\fs22\cf4 {\pntext\f1\'b7\tab}z := t -> (1 - t^3)/(1 + t^4);
\par {\pntext\f1\'b7\tab}u := t -> diff(z(t), t);
\par {\pntext\f1\'b7\tab}export(plot, Function2d):\
\pard\li600\ri1\fi-300\plain\f12\fs22\cf4 z1 := Function2d(z(t), t=-5..5,\
\
   Color=RGB::Blue,\
   LineWidth=15\
):\

\par u1 := Function2d(u(t), t=-5..5):\
plot(z1, u1)
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f12\fs22\cf4 {\pntext\f1\'b7\tab}solutions := solve(u(t)=0, t);
\par {\pntext\f1\'b7\tab}solutions := float(solutions);
\par {\pntext\f1\'b7\tab}rsol := solutions intersect Dom::Interval(-5,5)
\par {\pntext\f1\'b7\tab}rsol:= [op(rsol)]
\par {\pntext\f1\'b7\tab}Z1 := [rsol[1], subs(z(t), t=rsol[1])];\
\pard\li600\ri1\fi-300\plain\f12\fs22\cf4 Z2 := [rsol[2], subs(z(t), t=rsol[2])];\
Z3 := [rsol[3], subs(z(t), t=rsol[3])];
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f12\fs22\cf4 {\pntext\f1\'b7\tab}export(plot, Point):\
\pard\li600\ri1\fi-300\plain\f12\fs22\cf4 P1 := Point(Z1):\
P2 := Point(Z2):\
P3 := Point(Z3):\
plot(z1, u1, P1, P2, P3,\
   PointWidth=60,\
   PointStyle=FilledCircles\
)
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f12\fs22\cf4 {\pntext\f1\'b7\tab}
\par }
 