2020/03/24

黄金螺旋(golden spiral)の書き方

黄金螺旋とは


出典: フリー百科事典『ウィキペディア(Wikipedia)

 黄金螺旋(golden spiral) とは、黄金比 ϕ に関連した対数螺旋の一種であり、

(1)|b|=logϕπ/20.30634896253

なる定数 b に対して r=ebθ で与えられるものである。


書き方


 R言語での書き方は以下のとおり。

 条件: a=1, b=2log1+52π の時

1
2
3
4
5
6
7
8
9
10
11
t=seq(0, 5*pi, length=300)
a=1
b=2*log((1+sqrt(5))/2)/pi
r=a*exp(b*t)
x=r*cos(t)
y=r*sin(t)
svg("golden.svg", width=5, height=5)
plot(x, y, type="l", asp=1, lwd=2, col=2)
abline(h=0)
abline(v=0)
dev.off()

0 件のコメント:

コメントを投稿

マンデルブロ集合の彩色方法(5)

06.knit 1 発散判定式を変更する mandelbrot() 内の発散判定式 |zn|>2 を変更する...