|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
6 d% r5 R- l* Q2 e- k) njqd:=LSOLARTERMday(date);8 y. a. @! E, T. ?
fd:=date;
3 O2 {5 ~' D2 g9 {$ Dtj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));* n$ t# L$ h& i+ L% Z
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
9 R& q: J# z/ ^" vdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;: z S8 @+ G! K0 i& ?
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
/ W1 |. i" T( _% {6 x) C; Vdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;! V: M4 b+ J) D7 Y, V6 [
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;0 b$ W* C2 S" P
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
; l* M3 K# ^, T l2 W1 B7 @drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
7 ~6 ]6 I( t/ L! Ldrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
! ~# X; E, D. S F' mdrawtext(tj=9 ,0.5,'立夏'),COLORRED;8 w8 M9 `: M" x+ X* U' ]3 h. b
drawtext(tj=10,0.5,'小满'),COLORRED;, h! [1 I$ k) g G% n
drawtext(tj=11,0.5,'芒种'),COLORRED;
" S, ~# G1 Y D) v5 tdrawtext(tj=12,0.5,'夏至'),COLORRED;
5 g, ^% E% ? ?' M$ d4 W! t _drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
' v# L, ~: n0 o" x7 Qdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;
, W. L; W- E: i; idrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
/ m {. {! v' \- Y$ Z) |' Mdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;. C/ [* a9 ^( h' ?* u+ G
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;& R* Q+ `* M2 l% C5 g/ ]4 c( U$ d
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;% B( l, K3 f. o2 ~& o/ T
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;) a0 \- K. s0 T1 V7 I
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
- W, Z# T! l: C* A b. A* {: V( _drawtext(tj=21,0.5,'立冬'),COLORFF9900;
. K6 y0 K# y8 E8 `6 O; Z" j3 T% |drawtext(tj=22,0.5,'小雪'),COLORFF9900;
& l2 Y- B4 u% t {2 Fdrawtext(tj=23,0.5,'大雪'),COLORFF9900;" x4 g5 s" p0 v$ r
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
" X% U) T, I" g1 W2 p4 I, g( @ S
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
( f& |/ x. b4 [0 _2 k% Pdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
) ?2 Z9 Z: f# F% edrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
% n! D+ W# C! j& G I( kdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;! y+ c7 o. @# S/ {2 z- C/ K
drawtext(tj=9 ,2.5,'巳月'),COLORRED;7 O$ ` w$ O7 J( k; b+ N9 x& v) p
drawtext(tj=11,2.5,'午月'),COLORRED;
* ^; b3 J- g. F0 U5 ^; ^3 ~drawtext(tj=13,2.5,'未月'),COLORYELLOW;
x6 C- \" M* b- {5 F. Odrawtext(tj=15,2.5,'申月'),COLORBBBBBB;8 Y: L& H# c, O- L M1 D+ c
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;- g: y* \- f5 q6 S- Y M% t
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
- f4 i6 s: V$ g- y/ C% odrawtext(tj=21,2.5,'亥月'),COLORFF9900;
6 v; O; S9 d2 c& l- Gdrawtext(tj=23,2.5,'子月'),COLORFF9900;
. S/ b: T, P! W; j( w& f( `* r, h& S/ z/ P$ } F* f1 u" j9 u
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;
. o9 x8 s2 ~+ z$ H- x" Z# Kstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
( n& i8 C1 `, \8 f7 J1 l/ estickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;8 W* J9 }: R2 o& J
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;5 U: S1 Y# m7 O9 a, O& I
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
% A* r t/ {$ p" R6 p, \! D# C# m7 |' S& l9 @* q# ?$ f
drawnumber(tj,3.5,tj,0),COLORBROWN;9 `1 P2 K$ A( s% N6 G+ m$ N
cond:=if(tj>=6,tj-6,tj+18)*15;- Y& l6 C6 W$ L: H/ G
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
6 ?& ~5 [9 M5 A& ^0 Ldrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
! i) h _, l) E$ C6 |2 I-1,pointdot,colorblack;
4 @; ~: N; M) ?6 Cgz:=GANZHI(date,0,2);
) ^( B7 N7 T; \. I1 [ Astickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|