|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;7 _) r" g0 t" e! |3 ~! X- K; S3 B- @
jqd:=LSOLARTERMday(date);# F9 C8 d, K6 V) k: t
fd:=date;
; U. Q( q. H1 ~& N/ T* `: Btj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
& m$ E6 c- T( G! H5 |" }drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
& O+ d9 l" Y5 j: s& k3 O$ I: ^0 V. qdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;* ]$ j. \' ]3 x6 I
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
6 N# V4 b' Z$ Jdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
( b: K$ n: M$ t2 cdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;$ M$ E" e( c3 ? ]4 k. k2 p* i
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;6 d! Z! X5 m# N( _+ X, u/ z
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
! a( [7 ~# s% f6 Wdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
* q, N, N3 e' z0 Edrawtext(tj=9 ,0.5,'立夏'),COLORRED;
Q6 {5 w m2 \' K) k7 T% t$ g& z' zdrawtext(tj=10,0.5,'小满'),COLORRED;
* y0 P' Y3 t1 y7 d$ \# P/ Kdrawtext(tj=11,0.5,'芒种'),COLORRED;+ m! k3 d2 Z- k) k' N I
drawtext(tj=12,0.5,'夏至'),COLORRED;
3 v2 M, _: L* |) E- x- @# Tdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;0 e6 ], D8 ^0 G. l5 ~- P U/ _$ m
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
4 _! ^8 {' p3 ^1 ]0 s9 m. G/ ldrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;6 t, ]" k' H3 N3 g, ^0 L: a7 g
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
- x' G/ D! m2 u$ U! b+ Zdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;
9 ^0 L5 m. c( k$ o$ Qdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;! _ l2 x0 @/ {# ?9 m5 h
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;1 r3 @8 S2 i8 }7 ]) I2 _1 G/ y
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;" H+ c' E4 `1 I
drawtext(tj=21,0.5,'立冬'),COLORFF9900;5 \' S- E" t# r6 V7 _+ Y% \6 F
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
( e, Y/ b/ c2 z6 }- ?* @drawtext(tj=23,0.5,'大雪'),COLORFF9900;- \, c) ]' m( G
drawtext(tj=24,0.5,'冬至'),COLORFF9900;& O; i% j$ U; X1 _9 X2 p
9 l' J: x! b% e2 v. g) D: p) Y6 f5 o
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;3 q# M! Z4 o2 m
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;5 I7 Y. V6 a5 }* ?( P5 b
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
2 ?6 w- \( c3 z+ j; cdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
: {* ~! |3 b0 g! |& w, }; V3 o$ Odrawtext(tj=9 ,2.5,'巳月'),COLORRED;' X9 \6 k1 H% ?
drawtext(tj=11,2.5,'午月'),COLORRED;! y* h2 S" E0 ~
drawtext(tj=13,2.5,'未月'),COLORYELLOW;
8 R' E. o0 C6 zdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;
# u% _8 I. A& D3 z: m2 odrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
+ p/ s- J. T, D4 E! qdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;
) ~4 w! a) C- Z3 ?) j3 fdrawtext(tj=21,2.5,'亥月'),COLORFF9900;
% T1 v: Z5 h3 e- k- |; Vdrawtext(tj=23,2.5,'子月'),COLORFF9900;
+ x u8 f R: P0 [) J8 u% {
9 q5 R% r4 K9 R9 zstickline(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 v6 h7 |' D6 K1 L; ?, a0 a
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
6 Z6 ~( ]! ^+ R4 m1 v Hstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;% B6 m' W9 `- n3 K) z. o9 W1 I9 X# \
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
: P) s! J; @7 `( N4 d" d+ ostickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
* V2 z0 Q) P# }1 C3 h
+ C; F! D9 V1 H- Z5 rdrawnumber(tj,3.5,tj,0),COLORBROWN;! t* ^3 d6 Z0 {+ u& X- h; V$ h
cond:=if(tj>=6,tj-6,tj+18)*15;
5 M+ X q4 q* b5 j* Fdrawnumber(tj ,-0.5,cond,0),COLORGREEN;; R& u5 k! ?) j
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;+ x. _( T- b' ^: W( B. i
-1,pointdot,colorblack;
. G# o1 \! R* o2 ogz:=GANZHI(date,0,2);8 g8 c6 r4 i1 h2 T; G
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|