|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;3 @" p6 Z p6 Y/ X8 L: Z, ^
jqd:=LSOLARTERMday(date);
8 v* [6 X# Y5 e2 C. c9 Afd:=date;
' y+ H( A* ^" atj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));) U6 O/ y* |( d! R* @" J
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
, O0 H- k/ n2 ~9 ndrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
9 g: R5 V* `+ O, x- Sdrawtext(tj=3 ,0.5,'立春'),COLORGREEN;, V) q3 D# f( a' V' \0 Q# j
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
; ?. p% h4 H) ~( h4 {$ i& udrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
f `; A$ B2 D3 v$ e# g Cdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;; j. q, A/ S& P; e
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
8 r' }6 o4 Q6 g& k) V8 G5 U% E. {drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
, X; ^' Q5 ?, a( m4 ^3 h) ddrawtext(tj=9 ,0.5,'立夏'),COLORRED;+ k' J, Q2 x+ S
drawtext(tj=10,0.5,'小满'),COLORRED;
# v3 D' J) D' j5 O! @/ \drawtext(tj=11,0.5,'芒种'),COLORRED;
' H, B, n& r- @drawtext(tj=12,0.5,'夏至'),COLORRED;( G4 S5 p7 R1 a6 d
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;/ ]/ V, F# o, E1 B
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;' a& k- D6 m) F; Z
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;# n4 T; O6 {0 t
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
_+ G6 m5 e8 l, bdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;
& _4 }) _) u6 v6 Wdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;9 [0 C) t8 y' s* Y
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
- d/ G% U4 D% |& t( j0 }drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
& N3 M; y9 ^0 K5 [% ? {1 W5 adrawtext(tj=21,0.5,'立冬'),COLORFF9900;9 O5 u+ z) o! K, i
drawtext(tj=22,0.5,'小雪'),COLORFF9900;& U# |5 y: Y, R( C. i' h
drawtext(tj=23,0.5,'大雪'),COLORFF9900;- n2 p* l7 f, b6 E% T
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
! Z* V) @8 Z4 y! R( ?' x- `& ^6 I0 X
) e0 N2 L$ V I/ H! ~4 fdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;- i' J" F# U; F1 {# O# C
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;& Y8 j. C% Q) J' j# `
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;2 c! l% D. O7 G! D* z; ?/ _
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
3 H. f7 |4 L9 U) \; D) Ndrawtext(tj=9 ,2.5,'巳月'),COLORRED;+ U2 |2 D5 k7 N& s8 ~2 g
drawtext(tj=11,2.5,'午月'),COLORRED;
3 R- n! v. \- e, y+ Vdrawtext(tj=13,2.5,'未月'),COLORYELLOW;
# q0 V, c: V+ N3 [; E! sdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;: R- n6 @3 b6 p! x- e
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;. A9 \. K% ]+ ^" d$ ]& K* D
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
7 i: @; D9 @0 o3 Q* I" Fdrawtext(tj=21,2.5,'亥月'),COLORFF9900;
# c6 \. x1 G% ] _6 q( |& Tdrawtext(tj=23,2.5,'子月'),COLORFF9900;4 v/ C" t% |1 |$ S# x, E/ j
7 N) P& H8 E5 s0 a
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;% Z; ~" G' X$ S
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
3 h: p) D+ i& j: bstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;5 z; w* R9 J( M; j2 e. F! }/ C
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;8 Z, e5 u9 K$ p6 I, L' x+ l
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;8 E7 ?4 z0 \8 L5 ^1 r
2 D$ g% F, M- m# k% cdrawnumber(tj,3.5,tj,0),COLORBROWN;
3 R5 q" m5 r/ E& wcond:=if(tj>=6,tj-6,tj+18)*15;% a' M: G c3 f, B) Q2 V
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
. |+ Z9 y4 m) [: B( {2 L% Z* i9 Hdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
. z" a% q. I7 Q B- F% v1 n P-1,pointdot,colorblack;
: h% U( |+ H! }gz:=GANZHI(date,0,2);
' ?: y1 {0 A( Y; z* L: Zstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|