|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
5 l: `6 ^7 n( Q# Fjqd:=LSOLARTERMday(date);
% P5 [( A* I Y5 t' K# nfd:=date;. x. L. ?6 I, G3 O9 c- k
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));; H( M( N) P: Q8 q# A
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
$ ~( v5 q: J1 T- _" f( x$ S0 P% k' Gdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
" L" f" ?5 t$ o: ~+ t6 Fdrawtext(tj=3 ,0.5,'立春'),COLORGREEN;
0 T8 C: k% o' |+ |- E6 Qdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
4 h% I! z9 L% b! Y: |/ xdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
, o! t$ b7 u. g* Y% G1 t- l5 [drawtext(tj=6 ,0.5,'春分'),COLORGREEN;9 t, U' R' k: @4 q
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
. P9 d8 u3 j& _9 ?drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
1 E! C$ f3 ~) N3 o5 Hdrawtext(tj=9 ,0.5,'立夏'),COLORRED;7 N( z# V& O* o
drawtext(tj=10,0.5,'小满'),COLORRED;$ F: i [ w' c5 r4 w4 E$ e7 v
drawtext(tj=11,0.5,'芒种'),COLORRED;
: d, Z) n7 a; zdrawtext(tj=12,0.5,'夏至'),COLORRED;. R4 G( C" B7 r" {! O
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
0 @* {& u1 u+ [) B8 N+ [! Cdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;5 z! p; S \" r
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;) R' m- T8 E) `/ w! K* l0 ?( q
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;# @& Q |9 W% P0 i9 y* _; R6 M
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;" c' g# i4 r5 \7 [: l
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
l& {2 _, }1 @. l0 s3 t: xdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;
$ L5 _4 {9 d+ c8 `3 n3 E! d) R" ^drawtext(tj=20,0.5,'霜降'),COLORYELLOW;9 w: [* u; |( j2 h
drawtext(tj=21,0.5,'立冬'),COLORFF9900;
+ p1 g# o* L: X- ~0 ^drawtext(tj=22,0.5,'小雪'),COLORFF9900;
" s% i G* f1 i, u( idrawtext(tj=23,0.5,'大雪'),COLORFF9900;; g3 }6 s6 Q& ]; w" w( S# l+ {
drawtext(tj=24,0.5,'冬至'),COLORFF9900;- ?3 U; I6 S5 }* k$ B
: y7 {. X- _4 y+ V. L1 X( ~
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
% u+ J' [) I6 s; x# rdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;$ r9 y5 P: q, z9 w% j
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
' x5 e) m: p% F8 K* X% M% \drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
) e; F u' r6 Fdrawtext(tj=9 ,2.5,'巳月'),COLORRED;
5 ]1 u( u+ p4 \, ?2 b4 Odrawtext(tj=11,2.5,'午月'),COLORRED;: t: \6 Z. m% ]. Q/ k
drawtext(tj=13,2.5,'未月'),COLORYELLOW;, R5 t2 s$ ]6 y$ I4 @. F8 D0 i
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
% I7 y3 |; T- p- {drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
+ s$ Z( S' r8 ?4 M6 c6 V: fdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;7 L: V4 F a( T# ^$ d5 b/ W( u
drawtext(tj=21,2.5,'亥月'),COLORFF9900;
1 X, ]& G6 W3 R/ h8 ?drawtext(tj=23,2.5,'子月'),COLORFF9900;
0 |. G1 c& J+ @0 n/ q4 M$ E: n2 n/ [% m5 |1 o2 ^* X) Q% P
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;
4 b6 p* n/ S: b7 Bstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
: D; k' S* L8 ~8 ^6 a* \6 `- Y5 M& }, xstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
; o. J8 B8 R2 L. I8 k2 ?stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;& L# o# p: M# u7 U b
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
, r1 Y; x; J) @3 c9 s- _* p( M
9 L" X7 L3 C' u% Adrawnumber(tj,3.5,tj,0),COLORBROWN;5 q" K" X M; E! g- n4 c9 G) n
cond:=if(tj>=6,tj-6,tj+18)*15;) m8 B4 ~3 k) a7 G9 ]0 L. N
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
( v+ O1 I y I5 p, jdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
% X' B$ z; F( A8 p& e4 w-1,pointdot,colorblack;- p* f1 |" |$ d
gz:=GANZHI(date,0,2);7 ]' z& [1 |. |0 n
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|