|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW; G$ P+ ]) v" | m& X7 P
jqd:=LSOLARTERMday(date);- y- H( I( K2 h" U% U
fd:=date;
$ R6 q0 o5 Z" j' G6 w4 v3 Stj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));' _- ?4 m: \7 J0 X
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
9 N9 ~* n1 f: ~1 G' w7 F5 W# {drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
' o2 I0 I4 q, ]' `$ rdrawtext(tj=3 ,0.5,'立春'),COLORGREEN;( O% H% e5 p# d9 K
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;) E4 j5 r# G) i( J) e, b
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;2 b$ A& w: \# v; b8 R' G/ t+ h
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;) }; d( Q: n' `" h: S; _# Q4 N g
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;* B8 `4 T* q' w5 }( T
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;, [; U% p; o. @5 A$ [
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
8 z7 p) O D3 ~- c. [$ _drawtext(tj=10,0.5,'小满'),COLORRED;
& c0 I/ N4 @9 k! j5 I7 Jdrawtext(tj=11,0.5,'芒种'),COLORRED;
' l7 r: ]2 z, d% s+ P6 j+ Q7 Vdrawtext(tj=12,0.5,'夏至'),COLORRED;
' r" f; Z' F& m( ^+ l7 h, Wdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;) S" K+ E x8 n
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
' X' A3 \+ B4 K' Rdrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
. |( J% ]+ }0 t/ Hdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;% q5 v. Q( I1 X, T
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;0 E; }, Q) |* `6 m% N- v- F0 l( ]
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
* g! d& G5 G* mdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;5 A4 |8 Z0 J( `' c" \
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
% u( W6 `: L' [: `2 u) Pdrawtext(tj=21,0.5,'立冬'),COLORFF9900;) K2 o {$ k2 D) h* b1 t3 k+ Z& T
drawtext(tj=22,0.5,'小雪'),COLORFF9900;, i# C( e0 R; l8 d
drawtext(tj=23,0.5,'大雪'),COLORFF9900;# J! q0 v# D5 W/ U# Z
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
" R: y) @) x6 s6 J6 m
/ x: B" n5 y! v) w6 t" Cdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
6 T# z. |$ b% V' E; S* pdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;* W5 a) x9 ]: J6 O& I1 X
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
; [, @3 k/ e! _0 a* g9 n# Zdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
/ I5 r1 I* N/ S7 }( K3 `drawtext(tj=9 ,2.5,'巳月'),COLORRED;
' R' H6 ?1 ?( Zdrawtext(tj=11,2.5,'午月'),COLORRED;
2 H- u9 z: C7 P9 adrawtext(tj=13,2.5,'未月'),COLORYELLOW;) o% H* e* Z1 j$ \) w$ W {- H
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;! S' B8 x( p' \7 V0 @: Z
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
* e% b& H B. s! }- i1 t/ T3 vdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;
. y+ ?5 {( k8 f6 cdrawtext(tj=21,2.5,'亥月'),COLORFF9900;
1 \: ]- D) X2 P" ]drawtext(tj=23,2.5,'子月'),COLORFF9900;
0 O5 j6 p4 S$ X3 u( Z1 d3 F' F# Z3 Z) \' [) ], D$ Q
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;
# k; k' J3 a6 Ustickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;7 z/ k6 S+ Q) g) ]
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;- k, }3 I# g2 k8 e& k5 q* ~
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;2 n3 l- l" [4 J- Z2 x4 G
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
; R% p3 R P& j
; ]6 C- F9 i! z/ t( g6 K' udrawnumber(tj,3.5,tj,0),COLORBROWN;
O5 x: |# X! D Scond:=if(tj>=6,tj-6,tj+18)*15;
! X$ N* P7 `8 T6 |% Wdrawnumber(tj ,-0.5,cond,0),COLORGREEN;
% l+ D. l4 m Sdrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;* P3 o; g. v% u* o
-1,pointdot,colorblack;6 L% O- `9 e1 |& y; r S( Y
gz:=GANZHI(date,0,2);; l5 f7 c9 b! |; W
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|