{VERSION 1 1 "MS-Windows" "1.0"}{GLOBALS 3 2}{FONT 0 "Arial" "Ari
al" "Helvetica-Bold" 8 12 0 "Helvetica-Bold" 12{COLOR "800080"}}
{FONT 1 "MS Serif" "MS Serif" "Times-Roman" 4 12 64 "Times-Roman"
 12{COLOR "000000"}}{FONT 2 "Courier" "Courier" "Courier" 4 12 
192 "Courier" 12{COLOR "008080"}}{SCP_R 0 0 16{SCP_R 1 0 2{COM_R 
3 0{TEXT 1 0 ""}}{COM_R 6 0{TEXT 1 17 "CORRECT:  spiral:"}}}
{SCP_R 8 0 1{INP_R 10 0 "> "{TEXT 0 82 "plot([1+E^(-t/4)*cos(t),E
^(-t/4)*sin(t),t=0..20],scaling=constrained,thickness=2);"}}}
{SCP_R 12 0 2{COM_R 14 0{TEXT 1 0 ""}}{COM_R 17 0{TEXT 1 9 "2 cur
ves:"}}}{SCP_R 19 0 1{INP_R 21 0 "> "{TEXT 0 60 "plot(\{E^(-t/4)*
cos(t),E^(-t/4)*sin(t)\},t=0..10,thickness=2);"}}}{SCP_R 23 0 2
{COM_R 25 0{TEXT 1 0 ""}}{COM_R 28 0{TEXT 1 7 "circle:"}}}{SCP_R 
30 0 1{INP_R 32 0 "> "{TEXT 0 66 "plot([1+cos(t),sin(t),t=0..2*Pi
],scaling=constrained,thickness=2);"}}}{SCP_R 34 0 2{COM_R 36 0
{TEXT 1 0 ""}}{COM_R 39 0{TEXT 1 11 "5 leaf rose"}}}{SCP_R 41 0 1
{INP_R 43 0 "> "{TEXT 0 71 "plot([sin(5*t),t,t=0..5],coords=polar
,scaling=constrained,thickness=2);"}}}{SCP_R 45 0 2{COM_R 47 0
{TEXT 1 0 ""}}{COM_R 50 0{TEXT 1 8 "cardioid"}}}{SCP_R 52 0 2
{INP_R 54 0 "> "{TEXT 0 88 "plot([(1-cos(t))*cos(t)+2,(1-cos(t))*
sin(t),t=0..2*Pi],scaling=constrained,thickness=2);"}}{OUT_R 57 0
 54{TEXT 2 1 "\012"}}}{SCP_R 59 0 4{COM_R 61 0{TEXT 1 0 ""}}
{COM_R 64 0{TEXT 1 0 ""}}{COM_R 67 0{TEXT 1 0 ""}}{COM_R 70 0
{TEXT 1 28 "Area under parametric curve:"}}}{SCP_R 72 0 2{INP_R 
74 0 "> "{TEXT 0 75 "plot([t^2+1,t*(2-t),t=0..2],x=0..5,y=0..1,sc
aling=constrained,thickness=2);"}}{OUT_R 77 0 74{TEXT 2 1 "\012"}
}}{SCP_R 79 0 3{COM_R 81 0{TEXT 1 0 ""}}{COM_R 84 0{TEXT 1 0 ""}}
{COM_R 87 0{TEXT 1 213 "The next plot is for our circular sector \+
problem. The plot shown is for alpha=1/2. Any smaller angle and t
he plot looks too much like a triangle. The plot is shown to scal
e. (All the plots, but one, are to scale.)"}}}{SCP_R 89 0 7{INP_R
 91 0 "> "{TEXT 0 24 "sectorplot:=proc(alpha) "}}{INP_R 94 0 "> "
{TEXT 0 13 "     local t;"}}{INP_R 97 0 "> "{TEXT 0 46 "     plot
(\{[t*cos(alpha),t*sin(alpha),t=0..2],"}}{INP_R 100 0 "> "{TEXT 0
 50 "              [t*cos(alpha),-t*sin(alpha),t=0..2],"}}{INP_R 
103 0 "> "{TEXT 0 83 "              [2*cos(t),2*sin(t),t=-alpha..
alpha]\},scaling=constrained,thickness=2)"}}{INP_R 106 0 "> "
{TEXT 0 4 "end;"}}{OUT_R 109 0 106{TEXT 2 257 "\012sectorplot :=\
012\012   proc(alpha)\012   local t;\012       plot(\{[2*cos(t),2
*sin(t),t = -alpha .. alpha],\012           [t*cos(alpha),t*sin(a
lpha),t = 0 .. 2],\012           [t*cos(alpha),-t*sin(alpha),t = \+
0 .. 2]\},scaling = constrained,\012           thickness = 2)\012
   end\012\012"}}}{SCP_R 111 0 2{INP_R 113 0 "> "{TEXT 0 16 "sect
orplot(1/2);"}}{OUT_R 116 0 113{TEXT 2 1 "\012"}}}{SCP_R 118 0 1
{INP_R 120 0 "> "{TEXT 0 0 ""}}}}{END}