TA的每日心情 | 开心 2022-1-29 15:04 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
是平面的等角对数螺旋么?cst丛书9里有例子,给你个函数算了,a是螺旋增长率,r是起始半径. ^3 o1 S3 y3 W' w
Dim xxx As Double, yyy As Double,ttt As Double,a As Double,r As Double2 N" i" h+ I/ o" p
a=0.221' z0 `7 G) k5 d- e1 S
r=2
7 [- X% f z% [ For ttt = 0 To 4*pi STEP pi/32
% |0 G% p/ Q& D5 _+ j- ^6 o5 ` xxx=r*exp(a*ttt)*cos(ttt)
4 F& r0 O; s8 q1 C yyy = r*exp(a*ttt)*sin(ttt)# G( _+ b1 D, ]+ t: O5 e
$ |" {( p' i) O( V .LineTo xxx , yyy
9 |$ z4 z1 V7 @2 M3 o% M Next ttt |
|