|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
" d7 V( u4 f L& I f6 h, J' sjqd:=LSOLARTERMday(date);
) \! S) j5 ?/ W1 \5 Mfd:=date;( @7 |- F- u# @5 o
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
w3 L) L. o: K% K' h2 Idrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;3 w! S/ A$ p6 d+ i. N
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;2 i5 F# w+ d- Y; ]. j2 p; _ X
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
' ~: E# j7 V8 t/ A' Zdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;# H; `) F: N* ^4 n; p
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
; N ]5 W& }4 n/ `/ I# ]4 J2 tdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;+ @# w' i9 I# L8 `. a# P. ]6 m
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
( C' X1 }! d4 J- ^drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
2 ^3 C$ A9 h% k. S) Q4 h5 Z# Ydrawtext(tj=9 ,0.5,'立夏'),COLORRED;
. s9 b5 c/ P xdrawtext(tj=10,0.5,'小满'),COLORRED;4 h ?- v& @2 d' E
drawtext(tj=11,0.5,'芒种'),COLORRED;
: E0 a3 Q; ?0 J- g% |) }drawtext(tj=12,0.5,'夏至'),COLORRED;
1 g6 P. {/ {! E- b5 @8 ^" Pdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;
% M. x: |7 c( r- K* xdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;0 S S0 I- y; M0 N0 [6 H& b
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;- g) w' G$ J1 u# u1 x
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
* y, D2 S! C rdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;
. O4 b7 Y q) I( y. L6 e( ~" [9 Ddrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;' V0 P4 d2 v3 z( f9 k% Z
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;8 ~ h! U/ h0 p+ V; D
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;: n& q3 O4 p. w8 n) y% ]; t
drawtext(tj=21,0.5,'立冬'),COLORFF9900;# O: R6 x/ \- ]/ M5 ^3 g1 K
drawtext(tj=22,0.5,'小雪'),COLORFF9900;2 Z& q* K& p. f2 M& D/ @* g
drawtext(tj=23,0.5,'大雪'),COLORFF9900;+ J1 C: O% H, A, Y; I
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
4 E$ C# I1 A; T9 {. p. [8 ]7 ^: g, n1 B; e7 g: S
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;7 c N8 A) K% s9 z" I; \ `; O+ p
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
6 b4 s) b; s4 r3 x8 zdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
3 W2 p8 _* g5 rdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;. e+ s) v/ B- e& Z
drawtext(tj=9 ,2.5,'巳月'),COLORRED;
/ g4 d, _+ c# j! B9 Mdrawtext(tj=11,2.5,'午月'),COLORRED;+ m: o7 }$ b; a2 ]" ^; h+ F% c
drawtext(tj=13,2.5,'未月'),COLORYELLOW;+ f5 F! R* P$ D1 K8 y6 a# z
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
: u7 M$ W' z4 jdrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;4 }) n6 K8 v* {
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;9 `. n3 [$ l2 @ o4 x5 ]& q) S: X
drawtext(tj=21,2.5,'亥月'),COLORFF9900;, o7 X ]& s& k- [( I9 H
drawtext(tj=23,2.5,'子月'),COLORFF9900;
1 c0 l" n. u8 p P4 P5 Q1 w [! L3 A, {" [* U6 |' H9 V9 U4 R
stickline(tj=1 or tj=2 or tj=7 or tj=8 or tj=13 or tj=14 or tj=19 or tj=20,0.5,1.5,8,0),COLORYELLOW;
# ]; X- F7 U7 g9 O3 E1 wstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;7 ~7 z4 f3 G. z- P/ C5 S H
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
$ J+ T: t( B) [) B( bstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;* f- o5 | p, x @% j6 G
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
' |3 S2 d4 c; F% G. L) p6 v
9 @! a6 }4 @2 E9 {drawnumber(tj,3.5,tj,0),COLORBROWN;" O3 c9 B/ Y$ a9 e/ }2 R8 F" w
cond:=if(tj>=6,tj-6,tj+18)*15;/ Z- g, x3 P% @% ]: h5 U, ^
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
& @7 P( Z% i# O( @7 Edrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;. O! P# X; U7 y% K/ V+ {
-1,pointdot,colorblack;
; R# Y- P5 X& g) Zgz:=GANZHI(date,0,2);
1 P5 Q" s4 ~; C3 }& ?8 H! Q4 ystickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|