|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW; H! l, O) g; T* B) |) B
jqd:=LSOLARTERMday(date);3 R+ t+ \: P' o( R0 m
fd:=date;
9 F7 ]) L% ^5 y9 d+ B+ M, I0 k2 ztj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
. M' T) x; [/ x5 r: Fdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
$ r6 x6 k5 P( M. M, Adrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
( _- f* v% [# F8 z% \) @3 ddrawtext(tj=3 ,0.5,'立春'),COLORGREEN;
/ e6 m& z7 d& J0 ^) B ndrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;' N5 e Q. {# H4 J8 k
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
4 R0 `( p8 Z7 Q# D- R9 L* `" adrawtext(tj=6 ,0.5,'春分'),COLORGREEN;
& }+ x2 s& _; @drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
) h9 l" b% X3 b1 L) K8 v1 gdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;, f0 n( u3 h& L6 d, x6 G5 u
drawtext(tj=9 ,0.5,'立夏'),COLORRED;+ t' I: O/ c; b' O/ V4 @, ]
drawtext(tj=10,0.5,'小满'),COLORRED;
& O+ h2 b3 g8 ~$ V {drawtext(tj=11,0.5,'芒种'),COLORRED;
) E% X) h! U8 e, vdrawtext(tj=12,0.5,'夏至'),COLORRED;- d; G! A( G# P
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
) F7 k6 S1 m* B& ndrawtext(tj=14,0.5,'大暑'),COLORYELLOW;
% ]- a! @* x( K" F9 n0 |3 l: wdrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
! K! K7 V) Y) Y" Wdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
* [& L; H: ~/ e; Y) [drawtext(tj=17,0.5,'白露'),COLORBBBBBB;% Q' r7 P% V" L+ B
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;- ?/ S' A x3 |6 q$ B# Y
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;$ u& w9 O5 w U( T
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
- w/ G& n$ L; O `- p3 s- Odrawtext(tj=21,0.5,'立冬'),COLORFF9900;! A: L- C! k' ^/ h% k& l' v9 s0 E
drawtext(tj=22,0.5,'小雪'),COLORFF9900;# {) @. X, T; @( n4 k
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
P: @% f. K9 i" [; f- pdrawtext(tj=24,0.5,'冬至'),COLORFF9900;+ m6 e2 a" @, K: I% ?1 _, C
- {7 a0 ^# S F! k: g# @drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;0 }/ y9 d) [( v4 B: h
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
\% m/ d, K# I5 n( Sdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
$ V N' _: R$ l/ j! }0 z, p7 h) pdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
: r# E# i( J' w6 J) V/ n+ F7 _drawtext(tj=9 ,2.5,'巳月'),COLORRED;
2 W+ O( D5 X1 `) @/ idrawtext(tj=11,2.5,'午月'),COLORRED;. l) w/ G9 l1 M) o
drawtext(tj=13,2.5,'未月'),COLORYELLOW; D7 h6 `9 ~1 u- ?+ h6 `4 w
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
7 ^6 X4 R, ]$ D6 [! O1 idrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
, u: @5 T4 E- L/ ^! ?" Q& Vdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;
9 |* g, G: A5 D% t7 R# ndrawtext(tj=21,2.5,'亥月'),COLORFF9900;
0 @0 I3 b$ [- Y9 ?& m3 jdrawtext(tj=23,2.5,'子月'),COLORFF9900;
t) e' I3 \ ^ {: B4 B1 `; `1 _ z- E- K: P8 a* F: 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;
% e' n. r/ u0 ?' p- z" U5 v: {/ T7 Jstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;2 U5 }3 |6 a3 o1 L/ ?; ]' U$ Q. {" ?
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
- S7 S, L( c, A' m# Q" N' Nstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;, O- i+ k; C) `0 {+ i
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;2 `% Z1 K/ x5 q: b' w$ n
+ U8 @8 E6 V/ `$ tdrawnumber(tj,3.5,tj,0),COLORBROWN;
) ^# Q1 q Q( D( kcond:=if(tj>=6,tj-6,tj+18)*15;
; W+ G; G8 G }" t! i' ydrawnumber(tj ,-0.5,cond,0),COLORGREEN;) ~# f2 x0 L, u
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
k: V3 G e X& M-1,pointdot,colorblack;
( L" s% Z* h* wgz:=GANZHI(date,0,2);" F/ o, n" y6 m/ k# |
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|