|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
$ B/ G/ m# ]5 N8 q* zjqd:=LSOLARTERMday(date);- s: @2 x/ N3 S8 t0 u$ ^
fd:=date;3 y8 ]/ y/ B6 f% s
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));! W, g( H9 h0 s6 ?7 g# F8 f1 z+ J
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
0 \1 n7 d q; m3 ldrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;( r+ Q- o- A6 e- L7 g$ P
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;& V8 M7 M' t" Q, L- f6 l- Q
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;' w* g7 Z7 X. [1 p
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;5 T- I3 {" n4 p
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
5 J3 L1 b# l3 [) Udrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
0 W; o" K" ]) a% c* G4 Udrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;) S, ~: j+ i. b/ K( l7 r+ a& S3 {
drawtext(tj=9 ,0.5,'立夏'),COLORRED; S) g, n- I" e3 r
drawtext(tj=10,0.5,'小满'),COLORRED;
5 Z7 `: @2 g! D9 {3 c) Fdrawtext(tj=11,0.5,'芒种'),COLORRED;" K0 D- z# C% u N1 W
drawtext(tj=12,0.5,'夏至'),COLORRED;
$ H* I, ^% V: wdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;" K/ T5 v+ i5 r1 i; l) x
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
; [3 Z/ @6 R& ]) g5 e1 { ndrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;, c) Z9 i6 y7 |4 X
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;9 S8 t' p( W# | B* ~# A
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
/ g3 F$ X1 n4 l( S- Mdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
7 O- [$ L' G3 J* Idrawtext(tj=19,0.5,'寒露'),COLORYELLOW;
/ N1 g6 W/ T7 ]5 @# gdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;3 Q# M! H7 h& D% ]; R! k
drawtext(tj=21,0.5,'立冬'),COLORFF9900;7 ~; s. D' |' ]# {4 R+ ^
drawtext(tj=22,0.5,'小雪'),COLORFF9900;5 c9 \! X9 Y E+ F" g
drawtext(tj=23,0.5,'大雪'),COLORFF9900;9 w; e4 }( Y- r G0 G# C& ^. p8 K/ o
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
6 D. F7 P- M1 q z- n
+ b+ x' j) v% F1 adrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;/ v, v9 [8 Q2 k
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;6 W* L" {- U1 {( ]1 i0 ^ t
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;/ ^7 t9 L( X7 z$ l* [! Y
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;4 p0 R4 R+ y& s5 @; ?+ X0 S
drawtext(tj=9 ,2.5,'巳月'),COLORRED;
( [; g9 z* c, D" a$ Bdrawtext(tj=11,2.5,'午月'),COLORRED;# J6 A9 J3 O) w+ y, r/ K- X5 T
drawtext(tj=13,2.5,'未月'),COLORYELLOW;5 U. g7 Z9 C- Q0 Y5 k7 G
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
3 `" R9 y" p7 Z, h5 Odrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
' U8 O4 L+ U$ odrawtext(tj=19,2.5,'戌月'),COLORYELLOW;7 |, Q8 e4 m; K' E* K$ ~
drawtext(tj=21,2.5,'亥月'),COLORFF9900;
; `$ }! W6 y0 @' Ldrawtext(tj=23,2.5,'子月'),COLORFF9900;4 M6 O5 p& i( ~ X* q0 C
0 {8 o" X+ v1 M) p4 Lstickline(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;6 q0 i" y1 @* M6 @, s
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;3 Z3 ?; `) R% H3 V$ v8 V) v% x
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
3 P% J* o4 I( u. k9 p* bstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
* [4 c. x" _! a( ostickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
. K, S$ u9 c+ t) Y6 y8 I/ y
# S0 n5 V, N" ^' N2 F% ddrawnumber(tj,3.5,tj,0),COLORBROWN;% q& ^" h5 r% Z g7 Z
cond:=if(tj>=6,tj-6,tj+18)*15;
9 S0 k$ V* H7 E9 O" b5 Jdrawnumber(tj ,-0.5,cond,0),COLORGREEN;. U8 }1 ^- G4 b8 M- L
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;/ H6 d$ \! h3 h" ^' q( K3 F0 V: R
-1,pointdot,colorblack;
8 a8 B/ }, ?; Z7 y1 X/ G) h' q7 [gz:=GANZHI(date,0,2);3 Q" X, l- l0 u1 c0 }4 U" m3 v( o4 d4 v
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|