|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;8 c& R* c, |; V& ?/ a" e1 c
jqd:=LSOLARTERMday(date);% E& l# I1 k& [, Q2 G2 P
fd:=date;
, w/ h$ {7 \0 h/ u% }% k) J7 ltj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));" k! j* l) \& }+ y, e
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
# P6 a0 Z3 |! t! qdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;( ]" m. g4 w" X# r& S/ Y Y( C
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;! o: z& {* i& a( g3 a
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
, `0 R7 U- K/ d: T. Mdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN; `& [. O- `6 h3 ^2 A$ r
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;' }; a# W0 }* s: Q" R+ V
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW; D$ Y- N# ?3 x
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
C+ Y0 o" Q, ?; l1 M- Q7 Qdrawtext(tj=9 ,0.5,'立夏'),COLORRED;
7 f H) t+ B& o6 F, b. Pdrawtext(tj=10,0.5,'小满'),COLORRED;- b9 ]9 ]1 G$ S" |. i
drawtext(tj=11,0.5,'芒种'),COLORRED;
$ A+ M0 G1 P' L! wdrawtext(tj=12,0.5,'夏至'),COLORRED;7 h7 @. ^8 T3 L3 o8 v7 _
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;' ?1 F# [/ g% a
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
0 ~% u$ |% j kdrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
! t: p; z' B+ A; m, P' @ w: zdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;, A% p; }7 R8 ]4 U' C6 u7 F) _
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
! @2 ?; q! \ }& q- Tdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
/ [: I1 E \3 g5 _' t' q4 [drawtext(tj=19,0.5,'寒露'),COLORYELLOW;; R7 I3 f1 r i/ p- b* L
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;4 q \3 b" _, G, O- z- G6 O
drawtext(tj=21,0.5,'立冬'),COLORFF9900;
( H! a; `, L9 ^% k- Zdrawtext(tj=22,0.5,'小雪'),COLORFF9900;
: ]; @( a! J# ~9 q' \drawtext(tj=23,0.5,'大雪'),COLORFF9900;6 s, i/ o. {4 F* ?2 _' L, S
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
5 z4 `1 w$ x3 @2 Z) W5 e& M; |; u9 E+ V% T1 R
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
2 z" p: U6 a- [! a6 Pdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
% ?! ?& g8 X) n9 m2 Q: p, A3 H# w( gdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
( Y2 h# x" q/ I0 h' }# pdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;! {6 n$ E# P( i0 @
drawtext(tj=9 ,2.5,'巳月'),COLORRED;% ]& M2 S) Y+ h! S- u* _5 ]' Z/ d
drawtext(tj=11,2.5,'午月'),COLORRED;
+ U. `- O0 k" d) bdrawtext(tj=13,2.5,'未月'),COLORYELLOW;* m. Z; _) M; A
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;$ X7 S1 j0 J# l3 R: N: b' R
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;8 N7 \8 F a2 D8 N$ k8 P9 J5 q1 Z
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
3 c& m+ _3 t* y; j$ C7 N! ]' K. xdrawtext(tj=21,2.5,'亥月'),COLORFF9900;
6 ]- V- N: Y/ a5 D. c2 Udrawtext(tj=23,2.5,'子月'),COLORFF9900;
`% ?4 z1 F: V$ G, D) B1 ]5 R
) \6 K! S1 X; s# Y7 Ystickline(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;
) Y7 g! v }# U6 C( Qstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;) u1 M$ S/ _! m0 N" f/ W+ a
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
0 s$ G# _/ g8 u& ?stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
3 y: x+ y6 M9 Vstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;+ o# }; O/ K) R+ H- C7 m4 x1 V4 u* S
: [9 h3 Z" l U! D& s2 Y/ pdrawnumber(tj,3.5,tj,0),COLORBROWN;
9 u% }5 m8 D. C6 icond:=if(tj>=6,tj-6,tj+18)*15;& K S) ]& X7 G
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
' k! I0 W% J+ A7 }) _2 S5 ^! Gdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
, P. O# K# Q2 o" i-1,pointdot,colorblack;
$ q5 S1 j# i4 X# Y* e$ \2 {. ~gz:=GANZHI(date,0,2);5 |* d( m# }- v0 Y: J4 z
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|