|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;( u G+ y4 b% R) d9 n
jqd:=LSOLARTERMday(date);/ ]( `) @6 d3 O
fd:=date;( _0 g3 k4 G: I5 q5 {% Y
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));9 W+ q# c# Q7 `- a2 i: {
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
/ {4 G+ Q3 F$ Q+ ^/ g7 L* s( y/ }drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;+ u( @6 `! @( g3 M
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;6 ?2 u6 g1 s3 b2 z) ?0 j, Q
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
& n1 z1 H# Y. ~drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
0 ^+ k" o5 @- K( A8 P ldrawtext(tj=6 ,0.5,'春分'),COLORGREEN;: W1 _5 A4 c* ^' O8 D. A' G
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;8 s/ U% \' K% Q4 }) y0 H# W
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
! \; n* I1 W# o, e- {/ f* mdrawtext(tj=9 ,0.5,'立夏'),COLORRED;
* |$ R& f" f% O7 k0 H# m% Zdrawtext(tj=10,0.5,'小满'),COLORRED;
5 M2 {* O7 w2 J( b- @* H9 B* odrawtext(tj=11,0.5,'芒种'),COLORRED;
3 ]5 ~! Y2 @, v3 w; {drawtext(tj=12,0.5,'夏至'),COLORRED;0 @! ~9 Y. g4 O! J) d) J
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
" L6 @* U& J3 I( Kdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;9 X) v! ?2 D& r% G3 A, W5 v
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;7 g8 K4 F6 s+ E# m
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;# [5 X& C% Y5 k& X! N8 M3 N7 n/ e7 ~8 G4 m
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
: N' e& Q Y7 g# w* Mdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
+ p0 ~- n7 w4 m" m; @ H; C3 rdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;
5 P/ m2 a$ U' Udrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
+ `$ I( ~. I% U3 J, s; Wdrawtext(tj=21,0.5,'立冬'),COLORFF9900;+ n0 @# u7 \" a! A
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
" g: Z; n5 O u7 ?$ r% Edrawtext(tj=23,0.5,'大雪'),COLORFF9900;( A2 O( M( f$ }- {7 J9 |# m7 ?
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
' O: g! a$ T5 |0 J$ L
! ^: E- `% E8 g4 F7 d9 }% H; bdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;6 T% m7 I" c6 m4 F3 ^2 f8 j
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;6 ]8 _" l6 W1 p) f& O9 m
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
, d7 H; F, t& W3 kdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
, f( a" G; ^8 Rdrawtext(tj=9 ,2.5,'巳月'),COLORRED;- I0 [0 T S( O1 `2 n, y* ]
drawtext(tj=11,2.5,'午月'),COLORRED;) j, P8 [1 [7 r: r
drawtext(tj=13,2.5,'未月'),COLORYELLOW;! \& s. Y8 V% a! T3 |8 w) {
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
0 J1 Z! J2 ^" ~6 ], ]( y1 H! ?drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
- a' Y# r6 {) q& Ndrawtext(tj=19,2.5,'戌月'),COLORYELLOW;2 U$ b4 I7 v$ P5 ]
drawtext(tj=21,2.5,'亥月'),COLORFF9900;; `& |$ y* J0 ]. ~5 ]) B7 l
drawtext(tj=23,2.5,'子月'),COLORFF9900;
5 t! J- P T/ t2 J8 L& V( z6 R
; A$ f5 [8 S3 G. v& L6 x0 cstickline(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 q1 A, p0 \3 i* U8 R2 z6 B
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;( O7 ?- U5 V4 u# t/ u+ [3 D
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;4 f0 `; ^' c6 Z K3 G* F; [3 r
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;, }, z/ X- ?/ d v0 P+ i' g4 ?
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;+ M U* o3 V* ` g
; ]" [( y2 q) Edrawnumber(tj,3.5,tj,0),COLORBROWN;
$ z( a$ @2 V9 ?3 y3 z. E5 Vcond:=if(tj>=6,tj-6,tj+18)*15;: ~) F2 Y/ C3 T7 ~4 X
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
, k4 Y, k. ]+ N# {0 @& }drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;2 I6 \; |! u0 j9 U+ _
-1,pointdot,colorblack;: z9 Y8 w$ g6 G& y* m/ H) J. Z
gz:=GANZHI(date,0,2);0 a7 w0 u; L' {& R' m* w# c
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|