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;