|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
; h, J4 {" s t# l% Z; K" ^- Y2 Hjqd:=LSOLARTERMday(date);# e, l' P& H1 r8 {6 p
fd:=date;
7 o* A% C+ }0 Q9 u( u4 |" a( ktj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
1 X# ?- ^9 q: ]# D$ r1 k: Xdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;( \) w# L9 X3 p8 h1 M! `) L
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;- @9 q. l# A+ K l- U5 }) A0 c
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
+ G; v! B1 v& J$ a B8 udrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
4 h3 G0 \8 a. ~( d# X7 V9 pdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;. ^- r _0 u) ]4 _
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;7 \$ h* N7 d/ L- Z0 Z
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;0 o0 Z7 K: ` Q" U3 k T4 V
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
" d. L' }3 h* d3 M; ddrawtext(tj=9 ,0.5,'立夏'),COLORRED;
n$ h/ p) S( f0 ?# u& U+ J2 r: Udrawtext(tj=10,0.5,'小满'),COLORRED;
# O n2 T! H: F2 \# I1 jdrawtext(tj=11,0.5,'芒种'),COLORRED;
1 X7 H3 W" M* |* [drawtext(tj=12,0.5,'夏至'),COLORRED;
+ _( T# t# \7 kdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;0 o$ t; ^$ t/ P& k; q
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;* x7 o% F1 N. _+ l- y F7 u( z
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
% p' h" {, Q! o+ pdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;5 `: H; x/ M7 X
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
: Q; Y+ N1 U% T; Qdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
( g$ U3 v# D I2 @9 rdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;7 E1 ^9 ]) a" H
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
; @) x* I2 U' y* R7 j* S( \8 zdrawtext(tj=21,0.5,'立冬'),COLORFF9900;% u8 l' s3 q$ q( |& u! U( f* b
drawtext(tj=22,0.5,'小雪'),COLORFF9900;* z6 v( d$ J7 k
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
* J, L! S5 m5 \0 Udrawtext(tj=24,0.5,'冬至'),COLORFF9900;
& K8 Q7 _$ L2 y) P: F, `" V" A# z9 h: x, v7 [% ^8 k" I6 S
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;4 s5 O; `$ l/ A, |9 j3 V
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;- \% s0 r6 T/ |& [- d0 N) q
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
- e# U: |4 B6 m. ?. [3 ]. d) ^ \drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
9 m2 f7 P0 M3 T3 A/ ?2 G" f! ]8 ^ hdrawtext(tj=9 ,2.5,'巳月'),COLORRED;- T+ f1 Y2 c5 x7 W1 A n0 y z
drawtext(tj=11,2.5,'午月'),COLORRED;
+ L5 }/ w7 ]( _3 J8 f. t+ U* jdrawtext(tj=13,2.5,'未月'),COLORYELLOW;
4 f; \. p0 b3 b, o# Odrawtext(tj=15,2.5,'申月'),COLORBBBBBB;- c+ _) ~/ o0 y6 P: k
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;& |2 I$ M2 E1 g7 z) K
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;% V' l- m' \ {4 z, t) h
drawtext(tj=21,2.5,'亥月'),COLORFF9900;$ f5 O% N6 o8 z
drawtext(tj=23,2.5,'子月'),COLORFF9900;' B p4 a* F% ]! b0 W: R7 M8 D% G8 @
. B( u6 b c3 H' x' O; j) h4 L
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;
) A8 k# P; }0 t) ]' }% Bstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
4 b7 t: E+ W9 H2 {" pstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;$ l! o: I2 u% }: I) P; e
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
2 h, K7 s2 ?8 {6 fstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
, J4 I2 y$ \* ]0 n' X8 Z+ ^4 w. i8 v4 k- L: M1 n! P6 r5 ]8 g% C
drawnumber(tj,3.5,tj,0),COLORBROWN;6 l! H9 G2 U2 B( {" f% |
cond:=if(tj>=6,tj-6,tj+18)*15;7 u- Z( K5 @) f
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
, u; O3 c; _6 b \8 t9 B& tdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;' v9 W6 D5 U# t8 I, @
-1,pointdot,colorblack;# H. J+ ]# K5 ~, Q M! ^
gz:=GANZHI(date,0,2);& C1 @0 p; |5 O/ h& @9 n
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|