|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
A8 o, Z5 \" G3 e7 y4 b9 Ujqd:=LSOLARTERMday(date);% ?& @+ e& Q+ y/ I4 R$ ^
fd:=date;
) d( g9 |2 x7 U# D. g- r+ Ltj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));6 K# Q, g. ?' m' p0 l
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;1 H+ p' ^* q" S
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;. R6 n- X- Y# ~) w1 Z; }0 k
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
, u. v4 _# R- u$ Q7 k! edrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
$ l. H P9 z1 B* |3 Hdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
5 [4 h: s# _* ? ^drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
& v M- z5 j0 H ~drawtext(tj=7 ,0.5,'清明'),COLORYELLOW; l' Y" q' U& w% w" P5 Y0 \
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;( L0 @* Q1 q6 r, ^3 X/ |
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
0 U' M/ F2 a& w/ ]drawtext(tj=10,0.5,'小满'),COLORRED;
' |5 U; Y! t& {0 A* H, ^drawtext(tj=11,0.5,'芒种'),COLORRED;9 ]7 K! a5 z( m* D8 P
drawtext(tj=12,0.5,'夏至'),COLORRED;
' M u2 |3 W4 J& [: \9 Tdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;! C. f+ q9 b1 m8 a
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
7 s! Y; [4 F# ~drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;& X- F3 U: f6 z8 T- f
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
$ x: L" s5 F$ j% L* @' S7 u& rdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;; r" L G( F1 U# {+ @" ~
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;. E, N4 \! O+ g2 r1 l
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
6 v( W# U: U$ m6 w; I0 Odrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
2 s2 ]2 Y/ g E( g3 d6 hdrawtext(tj=21,0.5,'立冬'),COLORFF9900;
1 X* J/ j+ U' E3 A0 wdrawtext(tj=22,0.5,'小雪'),COLORFF9900;: y# C; g. z2 G
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
; H' c3 ~& f! C m0 @. Q4 fdrawtext(tj=24,0.5,'冬至'),COLORFF9900;% v( O4 l7 S- l' e
~" p# {: V9 R Q9 vdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
' ?3 m; X( I0 t6 P& s+ Odrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
4 O* y8 C: o0 w/ t1 A2 z. Z/ X& edrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
$ e5 d& n, z4 G3 [! @drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
: X% Y3 r$ h7 Qdrawtext(tj=9 ,2.5,'巳月'),COLORRED;9 y0 V6 M5 F# B4 X
drawtext(tj=11,2.5,'午月'),COLORRED;( E; P+ e% L2 t; w* E; z0 l
drawtext(tj=13,2.5,'未月'),COLORYELLOW;& M% c' Z& q7 l7 s, T. R p+ k
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;& i) V( z+ w* i3 v4 k
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;# @) h4 A3 p' d/ w; X; K
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
1 W+ H( p2 g% o0 edrawtext(tj=21,2.5,'亥月'),COLORFF9900;
/ B: O) n! `3 L+ M" r4 u1 ldrawtext(tj=23,2.5,'子月'),COLORFF9900;; t- ?) w& K) @) e
0 g3 u3 R: J: y
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;; n4 @' z5 p# e7 `/ e% Y0 m
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
+ G% E' }6 }: p7 Ystickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;: _" f) _2 t& B7 g) {$ y: ?
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;% W/ W; A' ]- Y9 h- u& H
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
2 u; C5 {' {! g* s
, [1 c+ t* C* o, rdrawnumber(tj,3.5,tj,0),COLORBROWN;: S6 O! `2 x: L, g1 J1 u
cond:=if(tj>=6,tj-6,tj+18)*15;
: ]8 J3 ^- \9 h h L( K6 Ddrawnumber(tj ,-0.5,cond,0),COLORGREEN;
8 D% V- r. ]6 Wdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;; c* a( b- Z9 j3 Q9 J
-1,pointdot,colorblack;2 m# g/ p/ m0 ~# a: @3 |
gz:=GANZHI(date,0,2);5 s1 k0 A( X2 g: {& o y
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|