極方程式 r=sin(n*θ) による正葉曲線 [BASIC]
別記事〔極方程式 r=sin(n*θ) のグラフ〕で、極座標による方程式により、興味深いグラフが描けることを紹介しました。nの値が、1、2、3、4、5、6、8の場合のサンプル画面を紹介します。
─────
n=1の場合は、半径0.5の円になります。
nの値が偶数と奇数で、葉の数が変化するのが面白いと思います。
何処かの会社のマークに使えないかなと思いますが、如何でしょうか…
(by 心如)
─────
REM *** 極方程式のグラフ ***
REM 極座標で表された点P(r,θ)が満たす
REM r=f(θ)
REM の形の方程式を、極方程式と呼びます
OPTION ANGLE DEGREES
DEF R(S)=SIN(S*N/M)
SET WINDOW -1,1,-1,1
REM DRAW GRID (0.2,0.2)
PRINT "N,M=";
INPUT N,M
FOR S = 0 TO 360 * M STEP 0.05
PLOT LINES: R(S)*COS(S),R(S)*SIN(S);
NEXT S
END
─────
2012-04-05 14:18
nice!(0)
コメント(0)
トラックバック(0)
コメント 0