2.1.1 まずは正五角形から

まず、正五角形を描くことを考えましょう。 与えられた自然数 $n$ に対して、 円周を $n$ 等分する点の座標を表す式は、 あちこちで習っているのではないでしょうか。

$$\theta_k:=\frac{2\pi k}{n}$$   $$\mbox{($k=0,1,\cdots,n-1$)}$$

として、

$$x_k:=r\cos\theta_k,\quad y_k:=r\sin\theta_k$$   $$\mbox{($k=0,1,\cdots,n-1$)}$$

とおくと、$(x_k,y_k)$ ( $k=0,1,\dots,n-1$) は、 原点を中心とする半径 $r$ の円周の $n$ 等分点を与えます。

簡単のため $r=1$ として、 また角度が分かりやすいように単位を度で表すことにして、 点の番号を 0 からでなく $1$ から振ることにして、 また頂点をずらす角度 $\phi$ を導入して (真上に頂点が来ると星がきれい)

$$\theta_j:=\frac{360^\circ}{n}(j-1)$$   $$\mbox{($j=1,2,\cdots,n$)}$$$$,$$

$$x_j:=\cos\left(\theta_j+\phi\right),\quad y_j:=\sin\left(\theta_j+\phi\right)$$   $$\mbox{($j=1,2,\cdots,n$)}$$

とおきます。

次のプログラムで正五角形の輪郭が描けます。

OPTION ANGLE DEGREES
LET n=5
LET DT=360/n
LET p=90-kakudo
REM 頂点の座標を求める
DIM x(n),y(n)
FOR j=1 TO n
   t=j*DT+p
   PRINT t
   LET x(j)=COS(t)
   LET y(j)=SIN(t)
NEXT j
REM 正五角形を描く
SET WINDOW -1,1,-1,1
FOR j=1 TO n
   PLOT LINES : x(j),y(j);
NEXT j
PLOT LINES : x(1),y(1)
END

正五角形の内部を塗るのは簡単で、最後に次の2行を加えるだけです。

SET AREA COLOR "red"
MAT PLOT AREA : x,y

pentagon.BAS

REM pentagon.BAS --- 正五角形を描く
OPTION ANGLE DEGREES
LET n=5
LET DT=360/n
LET p=90-DT
REM 頂点の座標を求める
DIM x(n),y(n)
FOR j=1 TO n
   LET t=j*DT+p
   PRINT t
   LET x(j)=COS(t)
   LET y(j)=SIN(t)
NEXT j
REM 頂点を順に結んで正五角形を描く
SET WINDOW -1,1,-1,1
FOR j=1 TO n
   PLOT LINES : x(j),y(j);
NEXT j
PLOT LINES : x(1),y(1)
REM 塗る
SET AREA COLOR "red"
MAT PLOT AREA: x,y
END