|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;- k r: q+ t. A9 g& }
jqd:=LSOLARTERMday(date);
2 S" q+ y: d8 G0 ?2 ^. X8 _2 pfd:=date;
7 F6 T5 j6 p; f* O/ X! }! |tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
$ h: o: A# c0 b* ^8 l% l+ sdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;. [: C0 u% c( s0 p E M* o+ E1 [$ b
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
9 _* \: `. w$ @& ^) s1 T- H# @drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
" J6 o" G- Y) ^, O* Q" f' X) Edrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
! H e% r% k6 S2 t+ O/ V( Ydrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
7 L5 d9 c1 y2 Z) N, r. |drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
0 o0 I( H( r4 Y& p; U$ B, [drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;) c7 c& z8 R: C1 G* O
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;" f( Z+ [- v y
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
! B# ^0 m0 v" {" J+ E6 V. e9 H9 edrawtext(tj=10,0.5,'小满'),COLORRED;
7 J8 E9 d! b5 J, \drawtext(tj=11,0.5,'芒种'),COLORRED;4 e$ T! E8 E/ t7 u5 q
drawtext(tj=12,0.5,'夏至'),COLORRED;* P: b" X3 l7 b
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;9 R( a3 R1 _; w/ \1 Q/ i" e- T
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;% P6 d5 p: ^/ B2 T. q7 I
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB; r- {; l" k O6 I* P% S& w
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;( ^" G( y2 u) j! o% I# X
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;# I m( O) k6 y$ j
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
4 ?1 s2 X2 |. L. Y" bdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;0 t/ H$ s( I4 x( B y b
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
" t/ E3 L: ~" v. P; tdrawtext(tj=21,0.5,'立冬'),COLORFF9900;
* P7 F" [& A+ c# mdrawtext(tj=22,0.5,'小雪'),COLORFF9900;
I5 f/ L4 \+ w& W y# Ndrawtext(tj=23,0.5,'大雪'),COLORFF9900;9 s' @" u1 V) t+ \2 v$ p
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
# W, ~- s4 }% k% ?3 f# ~# d2 r6 U8 N; n3 [* i; g/ m) }1 v+ j" H* a) F
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
6 C8 F/ z! G: c- E! Z* {drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
4 _# W" J" f+ B$ n) N+ j/ j- J" s# Cdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
, T+ K4 t* n+ a7 e+ \8 bdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
( ^- g* J# ?$ U( h0 l: Edrawtext(tj=9 ,2.5,'巳月'),COLORRED;
" \0 a% e2 _9 [: F: c- kdrawtext(tj=11,2.5,'午月'),COLORRED;
7 u, U8 s- i; T0 `* Udrawtext(tj=13,2.5,'未月'),COLORYELLOW;
. \* o, j6 P2 K* E, I# |drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
- Z& ~' z* T7 P8 `& H6 R) E3 vdrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
7 Y/ v8 |6 l" R; Idrawtext(tj=19,2.5,'戌月'),COLORYELLOW;; L- D; x0 c+ v; P2 t* W
drawtext(tj=21,2.5,'亥月'),COLORFF9900;& E% G* v( }3 O6 M, O8 ~
drawtext(tj=23,2.5,'子月'),COLORFF9900;1 g1 U9 L' a i' D1 L1 J) R
# ~# o" X, R; d( A9 [
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;
1 \; _. }8 N5 r5 J" w5 C1 L! Ystickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN; `8 ~9 \, f% h6 q9 i1 \$ `
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;: I0 s$ Y" d& @# F0 e9 x
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;3 a8 b: f! @+ S0 a
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;1 b' j+ R' y$ L
6 Z( m t) ?3 ]' r1 ^drawnumber(tj,3.5,tj,0),COLORBROWN;5 { r5 ?( P- [$ u% }
cond:=if(tj>=6,tj-6,tj+18)*15;
/ a) ~) Q- {0 W* m0 Ndrawnumber(tj ,-0.5,cond,0),COLORGREEN;
1 l# O% w! ~9 X) Idrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
: }: X- @" w6 O5 i0 w) j$ i6 Q-1,pointdot,colorblack;$ y7 n5 h& _6 t
gz:=GANZHI(date,0,2);
5 P; e5 n, J: v3 O, vstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|