TA的每日心情 | 开心 2022-1-29 15:04 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
是平面的等角对数螺旋么?cst丛书9里有例子,给你个函数算了,a是螺旋增长率,r是起始半径8 I) l4 |) Y) Q9 e/ ?
Dim xxx As Double, yyy As Double,ttt As Double,a As Double,r As Double! L" e& s+ Z' z! G8 t3 ?' j
a=0.221. D& p) ~0 D; t) n) P. v6 U: t
r=2
1 O7 v; k" G! J For ttt = 0 To 4*pi STEP pi/323 Q. r: L1 b. p3 b% E% d; i: P7 Q
xxx=r*exp(a*ttt)*cos(ttt)
' C7 M6 b0 e# `, N6 o9 Z yyy = r*exp(a*ttt)*sin(ttt)
" p! m- V& J* Q) G7 P ) m/ H8 y0 O& w: m5 P8 v% @9 Z7 B
.LineTo xxx , yyy& D% [$ t) f( d* J
Next ttt |
|