|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
: ~* [7 W6 G: f# ]7 Yjqd:=LSOLARTERMday(date);/ u7 O3 p& h0 N! _" c; W
fd:=date;
& N) e# Z' c/ Y j) b& U& f; s$ Ctj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));3 o T) j, k" i, s5 T+ `, d B$ I
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;) o: ^9 p# l; v/ R* j
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW; y- Q9 \3 L4 x5 g! y
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;- a$ g" D/ Q' O3 }) L4 v& g
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
. `2 w) g# k& d6 qdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
, v% K% [$ j) z5 qdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;& q" A: Q+ M3 f6 ~% h' p& L" j
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
~$ j `1 u. X/ r& V( s, R' Z% xdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
7 V; L2 u+ b9 ?" V7 m( kdrawtext(tj=9 ,0.5,'立夏'),COLORRED;! l6 ~3 v' N$ \7 }# a& X c
drawtext(tj=10,0.5,'小满'),COLORRED;0 U% k; o7 N* O5 G1 T
drawtext(tj=11,0.5,'芒种'),COLORRED;1 P; w9 x% p$ [
drawtext(tj=12,0.5,'夏至'),COLORRED;
, m/ j5 J; F7 y( O7 f% j' r, udrawtext(tj=13,0.5,'小暑'),COLORYELLOW;
g( f* i# W3 B6 ^: _6 `, G# T/ Ndrawtext(tj=14,0.5,'大暑'),COLORYELLOW;/ O E6 u$ X, u) W
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
2 H+ a" k4 ?9 y3 u! S" ]drawtext(tj=16,0.5,'处暑'),COLORBBBBBB; g2 N2 F% n& t& Z; T1 r
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;7 g9 \/ t% L4 U7 i C: x8 a: m5 V' v7 b3 q
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;6 `5 t6 k2 s `) ~! P& h3 i
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
' P+ x K8 P* f( E- Y l7 N9 Y* fdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
+ h. ]2 N& ?: E5 n( ?drawtext(tj=21,0.5,'立冬'),COLORFF9900;5 u' ~0 u% E# W7 n2 p; c7 e
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
& K: c; E! t8 i+ d5 r+ Y- ?% ]7 g( edrawtext(tj=23,0.5,'大雪'),COLORFF9900;
8 O9 ^9 J: c* B0 c& M! Xdrawtext(tj=24,0.5,'冬至'),COLORFF9900;2 z2 i% a% ?6 c% i% h$ c6 D
0 [& c! h2 p/ [4 x Sdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;2 e' {/ c* g: P' e. C
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
L( A7 R9 D4 K3 p# @0 ^drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;" e% r" Z, G8 ]+ F
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
3 c$ F" V5 p- ~drawtext(tj=9 ,2.5,'巳月'),COLORRED;
$ n) Y' p; V! u9 u% bdrawtext(tj=11,2.5,'午月'),COLORRED;
Q" n3 q5 O; Hdrawtext(tj=13,2.5,'未月'),COLORYELLOW;7 Z# w& C x; P0 p
drawtext(tj=15,2.5,'申月'),COLORBBBBBB; y! [, G+ C5 b$ t0 c* R6 c0 p: b
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;: t7 e5 k" f: @% a W
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;, q* I$ r% B6 `+ u: M+ O$ N
drawtext(tj=21,2.5,'亥月'),COLORFF9900;) o- @/ c/ u9 |7 }, ~
drawtext(tj=23,2.5,'子月'),COLORFF9900;
$ k, v8 z) m& n& R
! t2 \' A# a5 e. Bstickline(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;; A5 B1 F# O5 h" F0 p5 n
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
- b% @4 o# ^6 } xstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
/ B O( X; F* R6 x. V+ estickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;8 a+ }* H$ L7 I, p/ J( Q( o8 ~3 h
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;( Q/ p- j4 B i+ ]0 I% {
% L; `) ?7 C1 q! L" Vdrawnumber(tj,3.5,tj,0),COLORBROWN;
5 ?6 F: T+ H0 g' z; ucond:=if(tj>=6,tj-6,tj+18)*15;6 m4 a' ^5 D2 C8 U- `! w
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
Q, o( w8 A! L, ]drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;1 A" m2 C% Q7 c2 G
-1,pointdot,colorblack;
' K8 O6 p! Y0 O$ Ygz:=GANZHI(date,0,2);0 ~7 w5 I! u9 H! B& u% N' X m
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|