極方程式 r=sin(n*θ) のグラフ

　別記事〔極方程式 ｒ=2cos(S) のグラフ〕で、極方程式のグラフがBASICで簡単に描画できることを紹介しました。
　今回は、極方程式 r=sin(n * θ) のグラフで、nにいろんな数値を入力してグラフを描くプログラムを紹介します。
─────
REM *** 極方程式のグラフ ***
REM 極座標で表された点P(r,θ)が満たす
REM  r=f(θ)
REM の形の方程式を、極方程式と呼びます

OPTION ANGLE DEGREES
DEF R(S)=SIN(N*S)
SET WINDOW -1,1,-1,1
DRAW GRID (0.2,0.2)
LET C = 1
10 INPUT N
   IF N = 0 THEN 99
   SET COLOR C
   FOR S = 0 TO 360 STEP 0.05
      PLOT LINES: R(S)*COS(S),R(S)*SIN(S);
   NEXT S
   PLOT LINES
   LET C = C + 1
   GOTO 10
   
99 END
─────

　このプログラムは、0を入力すると終了するようにしています。

　グラフを描く度に、描画の色を変更していますが、サンプル画面では色の違いがはっきりお見せできないのが残念です。

（by　心如）

タグ：グラフ 描画 極座標