|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
, @+ ~" \1 z D! \8 o5 F; ljqd:=LSOLARTERMday(date);0 u: t$ S+ i+ }& T) O \
fd:=date;( l5 P5 }1 w& t2 y
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
6 l/ k3 }/ n; j) B- cdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
% p! S7 t2 @8 ^drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;: ~2 y. q6 `4 m6 {2 Z
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
# Q9 f" x. S! a2 _% P7 Fdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;1 K H' o+ ]. d; p: q; b
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;: \9 v4 ~! n" a" L
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
) ^- B6 I( X0 ~ @# {# ]/ Jdrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
) q2 n4 |/ A B6 Sdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;. p" F9 t n$ C
drawtext(tj=9 ,0.5,'立夏'),COLORRED;8 o) U( v, r1 M* C! J3 c9 _) C
drawtext(tj=10,0.5,'小满'),COLORRED;6 X5 n, p0 q. N9 W) F
drawtext(tj=11,0.5,'芒种'),COLORRED;
7 m8 ^* s3 k, ~" f Ndrawtext(tj=12,0.5,'夏至'),COLORRED;
# e# x. u' Z. N5 t; {$ ]drawtext(tj=13,0.5,'小暑'),COLORYELLOW;1 L) G9 h" n& e* c# H2 t
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;1 G6 n7 |1 S$ f( j& Z
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;9 \+ b7 u, ^3 x) z: h* }' ^/ W, B
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;! u& l- g! `- F. Z: e- l/ z0 ~
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;, p3 T, o5 Q& M3 I
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;, z4 d) N* j) u' h2 T
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
: ^3 [; H7 g% @# qdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
0 ` Z! z7 [6 f8 o7 x! d: z* ^drawtext(tj=21,0.5,'立冬'),COLORFF9900;
F2 }' G; Y s) n' u# Cdrawtext(tj=22,0.5,'小雪'),COLORFF9900;* S; W1 [* A# |" n$ U: ]
drawtext(tj=23,0.5,'大雪'),COLORFF9900;7 @* p# @5 P7 [
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
5 C- \, I/ L7 D5 u o+ a+ s k' r0 d9 g8 _, g) w/ ?' j1 n J5 |
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;7 n8 D" _8 S f3 ~/ a* g$ B: V
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
) j: l; H( g' h% mdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
. S" }# P# }2 ldrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
1 _% N7 N& C j% D8 @6 K6 @drawtext(tj=9 ,2.5,'巳月'),COLORRED;8 [8 f# X6 o: O( k; C( P
drawtext(tj=11,2.5,'午月'),COLORRED;
9 B, q0 S( D# ~$ ?7 xdrawtext(tj=13,2.5,'未月'),COLORYELLOW;
2 s T2 l: n* m( Rdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;, d; ^! s6 L4 A& R4 g& N
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;3 `4 ^0 P& a' g0 j0 g3 E9 b
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;' ~' j+ N7 R2 c ^
drawtext(tj=21,2.5,'亥月'),COLORFF9900;& @0 E2 _$ U( Z
drawtext(tj=23,2.5,'子月'),COLORFF9900;
' { }5 }# N- ^7 t, `
2 s3 V* l# [: z1 g, ^4 wstickline(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;
$ f! H& \4 I( K8 ?stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;" L8 H" z) J! R' n# X
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;: S0 K. l8 ]' h0 f9 D
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
- `' [3 e: F( H- a: {stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
0 P3 }- @! X0 R
( I. ?( T2 x2 X6 [6 ldrawnumber(tj,3.5,tj,0),COLORBROWN;3 _8 N0 s! X" w# x8 R H( c9 m
cond:=if(tj>=6,tj-6,tj+18)*15;
- A4 y' w$ K0 L7 Fdrawnumber(tj ,-0.5,cond,0),COLORGREEN;# H. o9 b, x" L: |' S
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;6 g4 m7 B X9 u# o- Q
-1,pointdot,colorblack;* y/ B* @- Z, E& ]2 O5 I( y3 t# X
gz:=GANZHI(date,0,2);+ h8 ] k0 \+ p- q! P. C3 i
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|