斐波那契 / 开普饭

VAR1:=1/SQRT(5);

T1:=(SQRT(5)+1)/2;

T2:=(SQRT(5)-1)/2;

VAR2:=POW(T1,N)-POW(T2,N);

陀螺仪:ROUND(VAR1*(POW(T1,N)-POW(T2,N))),NODRAW;

FN:POW(ROUND(VAR1*(POW(T1,N)-POW(T2,N))),1/2),NODRAW;

E:=29.5306;

螺旋历:ROUND(FN*E),COLORMAGENTA,NODRAW;

海王星:ROUND((POW(ROUND(VAR1*(POW(T1,41)-POW(T2,41))),1/2)-POW(ROUND(VAR1*(POW(T1,37)-POW(T2,37))),1/2))*E/4/360),NODRAW,COLORMAGENTA;

天王星:FLOOR((POW(ROUND(VAR1*(POW(T1,37)-POW(T2,37))),1/2)-POW(ROUND(VAR1*(POW(T1,36)-POW(T2,36))),1/2))*E/365),NODRAW,COLORMAGENTA;

土星:ROUND((POW(ROUND(VAR1*(POW(T1,33)-POW(T2,33))),1/2)-POW(ROUND(VAR1*(POW(T1,31)-POW(T2,31))),1/2))*E/2/360),NODRAW,COLORMAGENTA;

太阳:ROUND((POW(ROUND(VAR1*(POW(T1,19)-POW(T2,19))),1/2)-POW(ROUND(VAR1*(POW(T1,17)-POW(T2,17))),1/2))*E/4),NODRAW,COLORMAGENTA;

金星:FLOOR((POW(ROUND(VAR1*(POW(T1,17)-POW(T2,17))),1/2)-POW(ROUND(VAR1*(POW(T1,15)-POW(T2,15))),1/2))*E/2),NODRAW,COLORMAGENTA;

水星:ROUND((POW(ROUND(VAR1*(POW(T1,13)-POW(T2,13))),1/2)-POW(ROUND(VAR1*(POW(T1,11)-POW(T2,11))),1/2))*E/2),NODRAW,COLORMAGENTA;

螺旋历1:=ROUND(POW(ROUND(VAR1*(POW(T1,1)-POW(T2,1))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历2:=ROUND(POW(ROUND(VAR1*(POW(T1,2)-POW(T2,2))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历3:=ROUND(POW(ROUND(VAR1*(POW(T1,3)-POW(T2,3))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历4:=ROUND(POW(ROUND(VAR1*(POW(T1,4)-POW(T2,4))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历5:=ROUND(POW(ROUND(VAR1*(POW(T1,5)-POW(T2,5))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历6:=ROUND(POW(ROUND(VAR1*(POW(T1,6)-POW(T2,6))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历7:=ROUND(POW(ROUND(VAR1*(POW(T1,7)-POW(T2,7))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历8:=ROUND(POW(ROUND(VAR1*(POW(T1,8)-POW(T2,8))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历9:=ROUND(POW(ROUND(VAR1*(POW(T1,9)-POW(T2,9))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历10:=ROUND(POW(ROUND(VAR1*(POW(T1,10)-POW(T2,10))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历11:=ROUND(POW(ROUND(VAR1*(POW(T1,11)-POW(T2,11))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历12:=ROUND(POW(ROUND(VAR1*(POW(T1,12)-POW(T2,12))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历13:=ROUND(POW(ROUND(VAR1*(POW(T1,13)-POW(T2,13))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历14:=ROUND(POW(ROUND(VAR1*(POW(T1,14)-POW(T2,14))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历15:=ROUND(POW(ROUND(VAR1*(POW(T1,15)-POW(T2,15))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历16:=ROUND(POW(ROUND(VAR1*(POW(T1,16)-POW(T2,16))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历17:=ROUND(POW(ROUND(VAR1*(POW(T1,17)-POW(T2,17))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历18:=ROUND(POW(ROUND(VAR1*(POW(T1,18)-POW(T2,18))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历19:=ROUND(POW(ROUND(VAR1*(POW(T1,19)-POW(T2,19))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历20:=ROUND(POW(ROUND(VAR1*(POW(T1,20)-POW(T2,20))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历21:=ROUND(POW(ROUND(VAR1*(POW(T1,21)-POW(T2,21))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历22:=ROUND(POW(ROUND(VAR1*(POW(T1,22)-POW(T2,22))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历23:=ROUND(POW(ROUND(VAR1*(POW(T1,23)-POW(T2,23))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历24:=ROUND(POW(ROUND(VAR1*(POW(T1,24)-POW(T2,24))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历25:=ROUND(POW(ROUND(VAR1*(POW(T1,25)-POW(T2,25))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历26:=ROUND(POW(ROUND(VAR1*(POW(T1,26)-POW(T2,26))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历27:=ROUND(POW(ROUND(VAR1*(POW(T1,27)-POW(T2,27))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历28:=ROUND(POW(ROUND(VAR1*(POW(T1,28)-POW(T2,28))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历29:=ROUND(POW(ROUND(VAR1*(POW(T1,29)-POW(T2,29))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历30:=ROUND(POW(ROUND(VAR1*(POW(T1,30)-POW(T2,30))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历31:=ROUND(POW(ROUND(VAR1*(POW(T1,31)-POW(T2,31))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历32:=ROUND(POW(ROUND(VAR1*(POW(T1,32)-POW(T2,32))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历33:=ROUND(POW(ROUND(VAR1*(POW(T1,33)-POW(T2,33))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历34:=ROUND(POW(ROUND(VAR1*(POW(T1,34)-POW(T2,34))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历35:=ROUND(POW(ROUND(VAR1*(POW(T1,35)-POW(T2,35))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历36:=ROUND(POW(ROUND(VAR1*(POW(T1,36)-POW(T2,36))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历37:=ROUND(POW(ROUND(VAR1*(POW(T1,37)-POW(T2,37))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历38:=ROUND(POW(ROUND(VAR1*(POW(T1,38)-POW(T2,38))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历39:=ROUND(POW(ROUND(VAR1*(POW(T1,39)-POW(T2,39))),1/2)*E),COLORMAGENTA,NODRAW;

螺旋历40:=ROUND(POW(ROUND(VAR1*(POW(T1,40)-POW(T2,40))),1/2)*E),COLORMAGENTA,NODRAW;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,STRCAT(STRCAT('螺旋历1：',CON2STR(螺旋历1,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.1,0,STRCAT(STRCAT('螺旋历2：',CON2STR(螺旋历2,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.2,0,STRCAT(STRCAT('螺旋历3：',CON2STR(螺旋历3,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.3,0,STRCAT(STRCAT('螺旋历4：',CON2STR(螺旋历4,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.4,0,STRCAT(STRCAT('螺旋历5：',CON2STR(螺旋历5,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.5,0,STRCAT(STRCAT('螺旋历6：',CON2STR(螺旋历6,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.6,0,STRCAT(STRCAT('螺旋历7：',CON2STR(螺旋历7,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.7,0,STRCAT(STRCAT('螺旋历8：',CON2STR(螺旋历8,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.8,0,STRCAT(STRCAT('螺旋历9：',CON2STR(螺旋历9,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.9,0,STRCAT(STRCAT('螺旋历10：',CON2STR(螺旋历10,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.01,0,STRCAT(STRCAT('螺旋历11：',CON2STR(螺旋历11,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.1,0,STRCAT(STRCAT('螺旋历12：',CON2STR(螺旋历12,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.2,0,STRCAT(STRCAT('螺旋历13：',CON2STR(螺旋历13,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.3,0,STRCAT(STRCAT('螺旋历14：',CON2STR(螺旋历14,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.4,0,STRCAT(STRCAT('螺旋历15：',CON2STR(螺旋历15,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.5,0,STRCAT(STRCAT('螺旋历16：',CON2STR(螺旋历16,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.6,0,STRCAT(STRCAT('螺旋历17：',CON2STR(螺旋历17,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.7,0,STRCAT(STRCAT('螺旋历18：',CON2STR(螺旋历18,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.8,0,STRCAT(STRCAT('螺旋历19：',CON2STR(螺旋历19,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.9,0,STRCAT(STRCAT('螺旋历20：',CON2STR(螺旋历20,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.01,0,STRCAT(STRCAT('螺旋历21：',CON2STR(螺旋历21,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.1,0,STRCAT(STRCAT('螺旋历22：',CON2STR(螺旋历22,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.2,0,STRCAT(STRCAT('螺旋历23：',CON2STR(螺旋历23,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.3,0,STRCAT(STRCAT('螺旋历24：',CON2STR(螺旋历24,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.4,0,STRCAT(STRCAT('螺旋历25：',CON2STR(螺旋历25,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.5,0,STRCAT(STRCAT('螺旋历26：',CON2STR(螺旋历26,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.6,0,STRCAT(STRCAT('螺旋历27：',CON2STR(螺旋历27,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.7,0,STRCAT(STRCAT('螺旋历28：',CON2STR(螺旋历28,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.8,0,STRCAT(STRCAT('螺旋历29：',CON2STR(螺旋历29,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.2,0.9,0,STRCAT(STRCAT('螺旋历30：',CON2STR(螺旋历30,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.01,0,STRCAT(STRCAT('螺旋历31：',CON2STR(螺旋历31,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.1,0,STRCAT(STRCAT('螺旋历32：',CON2STR(螺旋历32,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.2,0,STRCAT(STRCAT('螺旋历33：',CON2STR(螺旋历33,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.3,0,STRCAT(STRCAT('螺旋历34：',CON2STR(螺旋历34,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.4,0,STRCAT(STRCAT('螺旋历35：',CON2STR(螺旋历35,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.5,0,STRCAT(STRCAT('螺旋历36：',CON2STR(螺旋历36,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.6,0,STRCAT(STRCAT('螺旋历37：',CON2STR(螺旋历37,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.7,0,STRCAT(STRCAT('螺旋历38：',CON2STR(螺旋历38,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.8,0,STRCAT(STRCAT('螺旋历39：',CON2STR(螺旋历39,0)),'天')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.3,0.9,0,STRCAT(STRCAT('螺旋历40：',CON2STR(螺旋历40,0)),'天')),COLORMAGENTA;

斐波那契

相关推荐