|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;5 e" x& I6 K$ \- u1 R* b/ D' x
jqd:=LSOLARTERMday(date);
, Z( p3 e: c& f, v# k2 |. tfd:=date;
7 s- s- j# P) \2 t$ K/ Otj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));8 B# {8 {7 d h; d2 k2 J
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;5 Y$ U9 d2 D" i- D5 N) x. [6 U
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;' `" @, Q4 @& e0 i2 O8 j; z, W
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
0 r3 M- V* _: b; ^6 j" k/ O! Ydrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;# _* d# w0 H1 k& @9 X4 g
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
& u ]& F6 z( S9 Q* M1 Mdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;9 [( {" o' L$ L8 T4 W
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
. h) G( F# N. P/ N8 v1 vdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;: ]8 K% ?3 D" o: M3 s; T' `
drawtext(tj=9 ,0.5,'立夏'),COLORRED;: Y; N2 v# u/ h `+ |
drawtext(tj=10,0.5,'小满'),COLORRED;# r; g; x7 q6 \8 Q' y- T
drawtext(tj=11,0.5,'芒种'),COLORRED;
8 t" { p, I4 p- J7 y. hdrawtext(tj=12,0.5,'夏至'),COLORRED;
T! R2 q- W9 j8 k' T5 s! Bdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;
& s8 t2 p$ K7 ?. p, ]: D5 |drawtext(tj=14,0.5,'大暑'),COLORYELLOW;! k' U* m9 ] x; Q2 F. ?/ B
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;' y) j0 T- F! V4 Y6 ^3 D* ?6 ` o
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;. h; N( S: ~1 N
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;+ U8 x0 ?& t% r4 @9 r
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;; U, K& m- |8 L+ F* T
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;5 z1 h2 P& { I4 r2 d" ?- F
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
p t6 D b; g2 ^/ A2 @2 Q2 L' Rdrawtext(tj=21,0.5,'立冬'),COLORFF9900;$ M$ k; n. e% v* T* R8 Y
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
' \( K" V% h' K5 x7 [drawtext(tj=23,0.5,'大雪'),COLORFF9900;
6 L. O, V9 s+ ?9 E$ jdrawtext(tj=24,0.5,'冬至'),COLORFF9900;1 w+ u$ u+ j' e: a
: R3 v1 ]" q' b
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
m& o2 B+ e# t# I4 j1 r* L. Odrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;6 z4 X0 D4 x( q @) E6 d
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;3 L% S$ z; e w% C5 s
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;# m. I' }9 \; J1 n0 }
drawtext(tj=9 ,2.5,'巳月'),COLORRED;
" M7 N1 a" d; N- d: G W& A) D& |drawtext(tj=11,2.5,'午月'),COLORRED;
3 O: k$ j1 H0 e. L! @drawtext(tj=13,2.5,'未月'),COLORYELLOW;
$ J: I" k/ |6 L2 u2 wdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;; B! Z# A) w0 m Z3 U" z
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
' \' a4 {, Y8 @; Ndrawtext(tj=19,2.5,'戌月'),COLORYELLOW;$ ]1 s t! D: p
drawtext(tj=21,2.5,'亥月'),COLORFF9900;4 V% L" L0 B5 N, r
drawtext(tj=23,2.5,'子月'),COLORFF9900;
1 Z9 n4 |/ z K
6 a% x. F, v/ L0 C# Y8 g7 B8 \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;
: i; w1 c, p5 L6 [0 hstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;; T" z3 `3 \! V+ x# I
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;2 k: }/ {' D& f; L; n
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;8 u! b" d2 q' E2 q6 w1 u9 ?9 X4 r: Y
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;- K0 q1 {# L5 D: k1 o' k7 y( p/ Q
4 B) E7 k& M7 P3 G* n6 U; }drawnumber(tj,3.5,tj,0),COLORBROWN;
3 x2 j" A9 @# ~/ {0 Ucond:=if(tj>=6,tj-6,tj+18)*15;4 d( o4 a( Q5 G. S4 W
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
8 {$ n+ W- o; {5 i- ?6 Fdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;3 {& F I4 B0 [( P7 y v
-1,pointdot,colorblack;8 p7 q' q. Q! o6 q& m2 c2 A3 K3 q' C
gz:=GANZHI(date,0,2);9 J8 R3 {7 `7 ~8 \! J. `9 C
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|