|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;+ _9 F* x7 R% E! b) a
jqd:=LSOLARTERMday(date);# h0 ~. U: r* u; E6 ~' ~* b. v! N4 t& J
fd:=date; j2 R: A) [$ f% N! G& J: W' k0 x
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));2 J6 g, O4 [+ h" Q8 @5 m' s
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
0 v0 M/ I& l- o% f' u2 ?drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;3 s c( Q+ Q3 ?& u1 y9 H
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
: V2 q3 U# @ a5 S: z8 D: k c: \5 ldrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;& R N" o3 i! S. M
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;& |9 O- _$ O2 `5 a
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
+ i8 O% b' y# L' } Ndrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;2 |. `3 {, ]+ K% t
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
. ~# S# U! K) `drawtext(tj=9 ,0.5,'立夏'),COLORRED;! F% \* @. r0 q2 ]( t* A7 I; ~
drawtext(tj=10,0.5,'小满'),COLORRED;
: `2 d9 ^& U5 [, r; Hdrawtext(tj=11,0.5,'芒种'),COLORRED;
' H; A1 R" d+ z `/ Ndrawtext(tj=12,0.5,'夏至'),COLORRED;
' U( N, s. z7 {4 h8 c/ Tdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;2 j+ N! w6 p$ f: c
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;4 F2 `% h& K/ ]+ e! L: |7 D; y
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
( d9 \5 X; J( u2 f* z* pdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
0 d: R1 r/ l. e: gdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;7 z3 G9 x0 F7 ^# R
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;4 \1 P( D: _; p
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
8 [$ Z- U: p* E# E; M9 n5 Jdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
8 |5 v, M9 d- H, rdrawtext(tj=21,0.5,'立冬'),COLORFF9900;
I& i+ K! j, edrawtext(tj=22,0.5,'小雪'),COLORFF9900;
6 \ G2 g8 K: i" @9 b* Z" jdrawtext(tj=23,0.5,'大雪'),COLORFF9900;
) v$ D, u1 C4 P& N; m1 a" Xdrawtext(tj=24,0.5,'冬至'),COLORFF9900;" ~5 V- n4 R$ W8 ~: P
2 J" e' m0 r* t$ t% w8 ldrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
" i! Q9 `6 c/ q$ K& C- Bdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
2 x6 | d# L/ K j! y2 C6 Ndrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
- Q" b: t4 n& u8 k. F: Sdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
D' P' w! h" D$ r' [drawtext(tj=9 ,2.5,'巳月'),COLORRED;
. I$ }2 F! {. F6 w$ i* ?4 _drawtext(tj=11,2.5,'午月'),COLORRED;/ ^- x! W& n5 C; m
drawtext(tj=13,2.5,'未月'),COLORYELLOW;3 x6 W- b$ e9 ~5 ^( q
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
( _9 j& d2 v- H2 Sdrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;& F! j% T1 E" V' X6 b* a
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;, Z; F4 }3 N6 n1 ^. \
drawtext(tj=21,2.5,'亥月'),COLORFF9900;
5 E; C% z. ?% g* ^0 Fdrawtext(tj=23,2.5,'子月'),COLORFF9900;4 I3 `9 e" j( r% R2 s. j3 @+ b
: D: A; ?$ {8 J5 H" n, bstickline(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;
* c* q2 g3 Y3 P+ Fstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
9 G# V0 }% a# j estickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
! @+ t- ~ U* s8 b3 ^0 G8 L; D; dstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
& U" D% D7 g) x4 m# U/ s8 jstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;5 Y* _& Y! u6 d) V4 y
$ r( z& j. L/ {8 K( Y/ y0 b
drawnumber(tj,3.5,tj,0),COLORBROWN;2 {% H" ]0 }9 P, C1 P% h* x
cond:=if(tj>=6,tj-6,tj+18)*15;
. m7 \9 @; j! I% m. r* Z. g( rdrawnumber(tj ,-0.5,cond,0),COLORGREEN;& d5 Y1 u1 K7 q R$ k
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
& h7 C! p2 c1 Y: N3 e! Y-1,pointdot,colorblack;
" b9 Z0 y2 P( t9 E% ]. Jgz:=GANZHI(date,0,2);" u# H* I5 z0 ^
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|