|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;; ]$ m2 i: D" W5 x( F
jqd:=LSOLARTERMday(date);7 \; y" D+ O/ P/ o1 U+ N
fd:=date;
6 ~8 E2 l9 O# Z; |) w: {/ Q+ O1 Ptj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
3 } A! u$ x- |5 |1 ydrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
! i& @' C% c' y# r V8 Ddrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
1 z( L, j1 W$ odrawtext(tj=3 ,0.5,'立春'),COLORGREEN;
$ u' e3 D5 }( D8 ldrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
# d0 f& e% a2 ?; Edrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
5 `$ O- e9 ^, Y1 |: `0 Sdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;2 R& ^1 B) C. G+ _
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
6 w7 i5 f) L5 t( x9 R/ q) `drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;2 a% O4 E- f5 S# X# j& X$ r, ^
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
$ L7 k2 _) R: g" ~" r( idrawtext(tj=10,0.5,'小满'),COLORRED;
! K' [. L4 ]: N D5 K6 Fdrawtext(tj=11,0.5,'芒种'),COLORRED;
, y8 t. f8 V* L) Mdrawtext(tj=12,0.5,'夏至'),COLORRED;
2 P( c5 B' M) U7 T/ }& mdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;
: ]4 x' E' }2 V9 w7 C% Idrawtext(tj=14,0.5,'大暑'),COLORYELLOW;
& \* u+ P3 K' f d h% D8 ]drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
- W7 U# ?, u& _& e3 A/ D& Hdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
. C% ^; M0 |8 o! F, |7 `$ Xdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;
( O" ]" H: Z, c3 O) zdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
/ `7 C, t: A, j% d* ?drawtext(tj=19,0.5,'寒露'),COLORYELLOW;" k* P# q% P6 _( b* `) S/ S
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
8 f5 p2 W z4 N7 r. T$ W- sdrawtext(tj=21,0.5,'立冬'),COLORFF9900;
% f: L7 t2 a6 \% }0 U, wdrawtext(tj=22,0.5,'小雪'),COLORFF9900;
4 l9 @8 C7 x! M5 m( ~/ Odrawtext(tj=23,0.5,'大雪'),COLORFF9900;
1 v; u) V$ b# q9 G3 @+ e- C9 i7 Fdrawtext(tj=24,0.5,'冬至'),COLORFF9900;' ]+ M6 |6 y* V+ H+ g
: f/ x ^$ X" u. ~, g/ _
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
7 o- e4 G8 h; X# Kdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;$ `8 c1 o% t8 v& ]* v% t
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
7 A, T8 _2 z) Idrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;5 y# n- B0 l1 F/ A6 t" u" K
drawtext(tj=9 ,2.5,'巳月'),COLORRED;5 i: E7 O) c. i7 R
drawtext(tj=11,2.5,'午月'),COLORRED;
7 _. x) X. f7 y) ^9 d1 }6 zdrawtext(tj=13,2.5,'未月'),COLORYELLOW;
+ R5 i: T2 }+ \, j; l2 ]drawtext(tj=15,2.5,'申月'),COLORBBBBBB;5 d) T" s; l, q+ l/ L x
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
, Z; @: `8 J; m1 }* G7 o, `drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
/ `% O3 m; x2 m p3 pdrawtext(tj=21,2.5,'亥月'),COLORFF9900;
' B/ q. H1 O2 S$ q6 J- X0 mdrawtext(tj=23,2.5,'子月'),COLORFF9900;
; Y4 o9 i$ Z, U& S9 a2 `: O+ c& e: g
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;' g: f! m _" w3 p6 W9 r
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
5 Q" M) D# B) S8 Q9 ~& ~stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;3 n% A. Y, L( {- O$ D
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;2 \8 ]. ?2 ?& [% [9 G
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;) l) B" {8 y; k* u, E; x
6 ]+ j, y9 _. \1 }( z9 T
drawnumber(tj,3.5,tj,0),COLORBROWN;
' @+ `8 _% ^9 _- U' _. n; zcond:=if(tj>=6,tj-6,tj+18)*15;
5 C' n- [( l( k& Odrawnumber(tj ,-0.5,cond,0),COLORGREEN;
2 S; u% `: Z( [5 o# z; Xdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
! U8 @- w1 b. ]$ C-1,pointdot,colorblack;: R& ]% n$ }% i& b8 w
gz:=GANZHI(date,0,2);
2 W: j6 B _, j- f% L5 s1 t N }: C) {stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|