【曲線-4】等角螺旋を描いてみよう

これは等角螺旋または対数螺旋またはベルヌーイの螺旋と言って自然界の中に見られるそうです。
b=1/6
r=a^(b*th)またはa^(b*th)
x=r*cos(th)
y=r*sin(th)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
%!PS-Adobe-3.0 EPSF-3.0

%%BoundingBox: 0 0 240 240

%%Title:equiangular spiral(等角螺旋)を描く

/a 1.009 def % 図形の大きさに影響

/b .17 def % 図形の大きさに影響

/sw 0 def % 始点を置くスイッチ

0 0 240 240 rectfill % 黒の背景

120 120 translate % 座標の原点を中央に移動



newpath % パスの初期化

0 1 3400 { % 0から１づつ増分し3400になるまで{ }内を繰り返す

    /th exch def % 制御変数をth(角度)に入れる

    % 等角螺旋の数式

    /r a b th mul exp def

    /x r th cos mul def

    /y r th sin mul def

    % swが０なら始点を置き、さもなくば線を引く

     sw 0 eq { x y moveto /sw 1 def }{ x y lineto }ifelse

} for

.936 .517 1 sethsbcolor % 色設定

2 setlinewidth % 線幅２ポイント

stroke % 線を描画する