|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;2 j9 D+ \% ]2 _, f
jqd:=LSOLARTERMday(date);7 ?9 Z( z2 ] T5 T7 P9 b" a+ P: s
fd:=date;
9 t* } n, h0 i' H$ ptj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));$ N" `; V) H M1 M! I
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
' U: u* r K; U- `0 Kdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;0 d. Z& z. B$ l1 ?" A
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
: M3 d9 e6 N% y% r1 \0 c" s% ^+ ]drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;; i# R) ]: @# S: u* y) |6 d6 b+ ~; C
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;# A2 k1 p, V) u7 I' n, p! b
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
5 ^/ e& S9 S4 p' X' Adrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
4 K+ j8 V0 q# K, A$ }drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;$ q! K: u; P6 \1 [ Z( f" J4 e% a
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
1 O* [. Y7 Y* a7 j- ]5 g3 wdrawtext(tj=10,0.5,'小满'),COLORRED;' p; h: n! e4 W( ^: n8 ?! T# V
drawtext(tj=11,0.5,'芒种'),COLORRED;
( v7 B# c5 W% }- m5 gdrawtext(tj=12,0.5,'夏至'),COLORRED;
6 N8 q- _/ v0 \( S# _drawtext(tj=13,0.5,'小暑'),COLORYELLOW;- x' k) ]4 u5 a/ I! e
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;# D( y; `8 D- M) j9 W4 S) j
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;. Q, i3 O `0 _5 n6 m1 u+ ]+ v
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;: u' J3 d$ f. l% @7 f
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
4 s5 I7 Y; n2 G+ n6 U* W* R3 ydrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;& X) N) l6 o- X
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;7 u+ ]! x+ ~1 Y# B
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;0 r( C$ W# t0 n
drawtext(tj=21,0.5,'立冬'),COLORFF9900;# a8 K+ m0 w& y2 C/ ?
drawtext(tj=22,0.5,'小雪'),COLORFF9900;) q/ k" U7 `5 f; F/ q9 D! Q
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
* x! c/ R" d" F* G1 D( ddrawtext(tj=24,0.5,'冬至'),COLORFF9900;5 D) X; j: ?0 \( u# }
9 c0 _, j& C, D0 f- M7 c3 h$ Qdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
; K+ W3 \+ ?' Jdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
) J# O/ l9 i& _; K' z7 C6 Pdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;# u1 q4 R: z: [: _" B
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
: U B" W! p, [* r! R3 X. `$ s Rdrawtext(tj=9 ,2.5,'巳月'),COLORRED;& i: H# Y1 Q. z5 U
drawtext(tj=11,2.5,'午月'),COLORRED;9 k; T& c1 M& b
drawtext(tj=13,2.5,'未月'),COLORYELLOW;
: q5 f( D% S6 V6 S% ^# Mdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;
/ @" z& \& ~ H* g- ddrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;+ F8 k( Q g' I7 v/ s! q1 w
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
5 F1 O Y2 Q0 a' [; p3 W0 Qdrawtext(tj=21,2.5,'亥月'),COLORFF9900;1 \) @: L6 F/ s c3 O
drawtext(tj=23,2.5,'子月'),COLORFF9900;) |! l9 P& h3 ]6 R0 ^4 E" [
! d. ^& T1 f. v) g9 S. N
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;
* Y; ~6 N+ T1 e+ X3 ustickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;0 E9 i J& l+ V- M
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;3 p4 L$ j/ r; P( X% N4 |
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
: Z# f/ Y9 \* }4 Q m, v1 `! ~5 b6 ]stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;$ z0 ]5 X. i1 l, q0 ~- X( Z
$ l- a- j- f& j2 E" i, n$ _+ cdrawnumber(tj,3.5,tj,0),COLORBROWN; i/ B+ t: D! n- s
cond:=if(tj>=6,tj-6,tj+18)*15;
1 Y" O7 O7 Y s. X! ~8 |drawnumber(tj ,-0.5,cond,0),COLORGREEN;
1 ?4 H" V S( F5 N, E' o) udrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;8 R* e9 Z! Q8 t+ i0 ~) [8 t
-1,pointdot,colorblack;4 l8 g7 _# q8 e! L- G+ f1 z5 a
gz:=GANZHI(date,0,2);, }2 u; |, C* J0 n5 V! _! W% t; ^
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|