極方程式のグラフ - KeTCindyによる図入り教材の作成

極方程式のグラフの描き方を説明する図を作成する．

#ref error ：ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=)

polar-equation.zip

• Listplotで放射状に点線を書き，極座標を表示する．
• 極方程式を媒介変数表示x=r(t)*cos(t),y=r(t)*sin(t)とみなし，グラフを作成する．

Addax(0);
／／　座標軸を表示しない．
Listplot("1",[B,F],["do"]);
Listplot("2",[G,H],["do"]);
Listplot("3",[D,K],["do"]);
Listplot("4",[M,L],["do"]);
Expr([B,"e","0",G,"ne","\frac{\pi}{4}",D,"n","\frac{\pi}{2}",M,"nw","\frac{3}{4}\pi",F,"w","\pi",H,"sw","\frac{5}{4}\pi",K,"s","\frac{3}{2}\pi",L,"ne","\frac{7}{4}\pi"]);
／／　放射状に点線を書き，極座標を表示する．
a0=1;
Defvar("a0",a0);
Paramplot("1","a0*(1+cos(t))*[cos(t),sin(t)]","t=[0,2*pi]");
／／　極方程式を媒介変数表示とみなし，Paramplotでグラフを書く．
Expr([N,"se","2a",O,"nw","a",P,"sw","-a"]);