ÐìСտµÄ²©¿Í

1. Ô²ÐÄÔÚÔ­µã£¬°ë¾¶Îª a µÄÔ²µÄÒ»°ã·½³ÌÊÇ

¼«×ø±ê·½³ÌÊÇ

with(plots):a:=1:
curve:=polarplot(a,thickness=3):
display(curve,scaling=constrained,tickmarks=[0,0]);

2. Ô²ÐÄÔÚ£¨a,0)£¬°ë¾¶Îª a µÄÔ²µÄÒ»°ã·½³ÌÊÇ

¼«×ø±ê·½³ÌÊÇ

with(plots):a:=1:
curve:=polarplot(2*a*cos(theta),theta=-Pi/2..Pi/2,thickness=3):
display(curve,scaling=constrained,tickmarks=[0,0]);

3. Ô²ÐÄÔÚ£¨0,a)£¬°ë¾¶Îª a µÄÔ²µÄÒ»°ã·½³ÌÊÇ

¼«×ø±ê·½³ÌÊÇ

with(plots):a:=1:
curve:=polarplot(2*a*sin(theta),theta=0..Pi,thickness=3):
display(curve,scaling=constrained,tickmarks=[0,0]);

4. Ô²ÐÄÔÚ£¨-a,0)£¬°ë¾¶Îª a µÄÔ²µÄÒ»°ã·½³ÌÊÇ

¼«×ø±ê·½³ÌÊÇ

with(plots):a:=1:
curve:=polarplot(-2*a*cos(theta),theta=-Pi/2..Pi/2,thickness=3):
display(curve,scaling=constrained,tickmarks=[0,0]);

5. Ô²ÐÄÔÚ£¨0,-a)£¬°ë¾¶Îª a µÄÔ²µÄÒ»°ã·½³ÌÊÇ

¼«×ø±ê·½³ÌÊÇ

with(plots):a:=1:
curve:=polarplot(-2*a*sin(theta),theta=0..Pi,thickness=3):
display(curve,scaling=constrained,tickmarks=[0,0]);

¶¯»­µÄMAPLE³ÌÐò£º
with(plots): r:=t->2*cos(t):
K:=50: for i from 1 to K do ti:=i*Pi/K:
curve0[i]:=polarplot(1,t=0..2*ti):
curve1[i]:=polarplot(r(t),t=Pi/2..ti+Pi/2,color=yellow):
curve2[i]:=polarplot(r(t+Pi/2),t=0..ti,color=blue):
curve3[i]:=polarplot(r(t+Pi),t=Pi/2..ti+Pi/2,color=green):
curve4[i]:=polarplot(r(t-Pi/2),t=0..ti,color=brown) od:
curve0:=display(seq(curve0[i],i=1..K),insequence=true):
curve1:=display(seq(curve1[i],i=1..K),insequence=true):
curve2:=display(seq(curve2[i],i=1..K),insequence=true):
curve3:=display(seq(curve3[i],i=1..K),insequence=true):
curve4:=display(seq(curve4[i],i=1..K),insequence=true):
display(curve0,curve1,curve2,curve3,curve4,scaling=constrained,tickmarks=[0,0],thickness=5);

·µ»Ø¸ßµÈÊýѧͼÐÎÓ붯»­Ä¿Â¼