|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
8 A! C0 u8 y# Qjqd:=LSOLARTERMday(date);
" _3 ^0 d9 I4 Q" yfd:=date;" T( j5 p3 Y2 I) X' O+ N
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));" ~, R7 t; ^) q# z. M' g! e
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
( b, [/ v0 T( E& Ddrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;9 B# ?, {' V* W) L) C
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;1 ^! G) ?8 l2 `3 l# b- D1 u4 f4 m
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;! r8 p8 A) k' j* x% Y6 B* v
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
8 S9 Y* }" y7 t7 S9 S, Cdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;5 i* i+ S9 R$ R1 p* U5 y u
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
2 d! j2 F0 w- [! Y( Kdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;4 b6 @+ `5 K. a5 f7 i
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
, y% A, D- N5 z- jdrawtext(tj=10,0.5,'小满'),COLORRED;5 U H7 l& e5 h' H
drawtext(tj=11,0.5,'芒种'),COLORRED;: L R+ G! b% R( p' H+ Y+ l
drawtext(tj=12,0.5,'夏至'),COLORRED;
! C' H: i. m9 [; F" Kdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;
5 G" `2 y* e9 B: Ldrawtext(tj=14,0.5,'大暑'),COLORYELLOW;" M, p8 W! ~, R; b+ Z, P) A2 K
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
" v" v3 \& [ |# [: jdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;- _" |7 H" r, @; q
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
; l+ H$ N5 F. A6 V k% C: ddrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;; i7 E6 ^% q6 }6 F0 v% j9 r. p
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
& G2 G2 C% P: A" A* e8 b6 ~1 sdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;* i' \: A3 i9 k, D7 `
drawtext(tj=21,0.5,'立冬'),COLORFF9900;
0 e/ o3 Y* p& e! J, bdrawtext(tj=22,0.5,'小雪'),COLORFF9900;
, I1 y2 d! ?2 U( d& V5 j4 v: j+ ndrawtext(tj=23,0.5,'大雪'),COLORFF9900;
" Z# Q. f7 n2 f/ [: ~- @. A9 kdrawtext(tj=24,0.5,'冬至'),COLORFF9900;
w+ V6 p) \) O: K$ J% @7 @! ?% o: C0 r
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
8 W0 q8 O3 u* Sdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;" J t( j& L1 @
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;9 t1 u( z/ I/ x
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;! u; g9 k5 Q# T3 |$ ]
drawtext(tj=9 ,2.5,'巳月'),COLORRED;+ @2 z4 T' } t0 M
drawtext(tj=11,2.5,'午月'),COLORRED;
; O+ e9 y8 R; {drawtext(tj=13,2.5,'未月'),COLORYELLOW;/ w. w: m# M, A) r/ @0 V0 n
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
5 ]- \+ a' |% @" C: h) Ldrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
3 z( r, W! g/ _& e7 |drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
! X6 E: o2 j; D( sdrawtext(tj=21,2.5,'亥月'),COLORFF9900;" n( i: @+ J& F9 d% J
drawtext(tj=23,2.5,'子月'),COLORFF9900;2 `5 }+ z6 a+ `% Z8 m
- S9 w- p' ?: @. I
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;; @$ L2 Q7 r3 l; ^+ a0 F
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;' o5 L# k. h; ?* E4 o8 T2 A
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;, K$ Q0 k( O' b! _1 z
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
7 q3 ^. o; o9 L' C& D: W; vstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
2 b9 C- `& _/ P& A( L- \
$ `0 x1 ], Q/ {0 J! wdrawnumber(tj,3.5,tj,0),COLORBROWN;6 [& F5 G+ H- B7 V9 K' _2 z: @8 L
cond:=if(tj>=6,tj-6,tj+18)*15;
/ m+ G" H. B+ p7 m# V1 \drawnumber(tj ,-0.5,cond,0),COLORGREEN;
! I8 V0 Z3 }+ ?) i' ]* q: B9 x" vdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;2 ~# q+ b. A% `* L7 @6 D
-1,pointdot,colorblack;* G. m+ c3 C$ ?# I+ C- E" C0 @+ r
gz:=GANZHI(date,0,2);# C5 M8 L& k" }$ g
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|