|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;9 K6 ~# V+ i1 q& M5 _/ N
jqd:=LSOLARTERMday(date);3 ?4 S. s* p: O3 o6 ?9 l$ s
fd:=date;7 V1 R2 n I* c4 k
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));7 B0 Q* l! v5 e0 q
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
5 ~/ ~8 O ^2 O- N9 H" |% @7 mdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
, j' U/ l; `% b3 y0 n- d2 ]drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
p) o- w2 ^. M2 d8 l+ ?drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
- M5 E' X$ x1 K" V) G" Z- ndrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
3 I' a( D$ `- m; c k3 [/ E" Xdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;( ?8 a" h9 l4 J; g4 d6 B
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
+ O K8 L# i# A3 @5 y* hdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;6 v) D9 ?8 q3 E; f/ C7 O, R2 O4 m" ~
drawtext(tj=9 ,0.5,'立夏'),COLORRED;$ u$ E& n+ v) J* u: v/ m
drawtext(tj=10,0.5,'小满'),COLORRED;
0 K0 i2 i+ Y: Q; Xdrawtext(tj=11,0.5,'芒种'),COLORRED;+ u; N, b! v) m; p" D
drawtext(tj=12,0.5,'夏至'),COLORRED;! J" W" v) B/ @3 g1 r2 ?4 U6 w
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
9 y$ P& k$ b. O" t/ B: Adrawtext(tj=14,0.5,'大暑'),COLORYELLOW;
& v' g P% r( {; qdrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
6 r) ~) m. ~$ H3 F; ~7 ydrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
0 n) ^ [8 ?$ D) ndrawtext(tj=17,0.5,'白露'),COLORBBBBBB;" E' Y/ c# i) F& Q; c
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;) `0 ~! h* x! @- E/ p1 E( f
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
4 N2 n& w/ n9 p& Udrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
( ]$ ~2 W8 r' J+ Odrawtext(tj=21,0.5,'立冬'),COLORFF9900;
$ l+ o' d9 \! O1 \& y+ Fdrawtext(tj=22,0.5,'小雪'),COLORFF9900;
" }- N; S$ ?/ a, P' m: m; V' ddrawtext(tj=23,0.5,'大雪'),COLORFF9900;: S, k7 }8 u0 R3 F% H! A9 ?- a
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
6 p Q# e S$ x' {& B6 z% k. d) Y' J) x$ J# V% r7 L
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;! x' n7 M4 @: M6 w. m; Y
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;* u) ]; l3 n/ }
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;# z+ p: c& i( C* t4 B# i
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
4 J+ i1 F7 `2 V- U; `% jdrawtext(tj=9 ,2.5,'巳月'),COLORRED;# M$ d U) g' M( ?
drawtext(tj=11,2.5,'午月'),COLORRED;. k9 E' P" Y4 M4 S/ u$ z
drawtext(tj=13,2.5,'未月'),COLORYELLOW;
% d( ~+ f# {& i2 W* I4 vdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;$ m* `$ f! d% z! K5 g* W, n
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
9 g! V% \# e) Z" A1 e1 Ndrawtext(tj=19,2.5,'戌月'),COLORYELLOW;1 {1 c( @! q$ f& S4 a
drawtext(tj=21,2.5,'亥月'),COLORFF9900;
+ T7 r/ P0 m4 s9 L) E* R( b8 u2 Odrawtext(tj=23,2.5,'子月'),COLORFF9900;
7 p/ L6 ~3 m, d( T/ \* t: `3 ]; o- z- P" q8 z
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;
5 }1 }5 O" ~- U ]$ o) }1 j, v/ lstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;5 W' Y/ g& o' q: x8 O
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
: A$ `, f! p5 N* e2 H* a! ?5 @stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;! O; w1 I$ a- G3 ?
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;1 K* c+ ?! O* B% E3 w' k# i- X
Q/ {& g7 O' Q! U
drawnumber(tj,3.5,tj,0),COLORBROWN;0 h- V; p% Z6 c; N. x- @
cond:=if(tj>=6,tj-6,tj+18)*15;
7 A- i" |" p" v3 E) B Gdrawnumber(tj ,-0.5,cond,0),COLORGREEN;' g% N! N- z8 s$ E
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
' q9 e/ B7 ]( O6 @( v, j-1,pointdot,colorblack;( g) u% m' w5 {: G* C, b2 Y) f1 T' ~
gz:=GANZHI(date,0,2);1 j# g* d+ @$ Z- U0 p" I7 I
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|