分享

黄金分割+节气

 秦王888 2013-04-24
lhnh:=BARSLAST(DISPSTATUS=1)+1;
hh:=HHV(h ,lhnh);
ll:=llV(l ,lhnh);
q618:ll+(hh-ll)*0.618,LINETHICK2,COLORRED,PRECIS1;
q500:ll+(hh-ll)*0.5,LINETHICK2,COLORGREEN,PRECIS1;
q382:ll+(hh-ll)*0.382,LINETHICK2,colorYellow,PRECIS1;
立春:=FILTER(MONTH=2 AND (DAY=3 OR DAY=5 ),2);
雨水:=FILTER(MONTH=2 AND (DAY=18 OR DAY=20),2);
惊蛰:=FILTER(MONTH=3 AND (DAY=5 OR DAY=7 ),2);
春分:=FILTER(MONTH=3 AND (DAY=20 OR DAY=22),2);
清明:=FILTER(MONTH=4 AND (DAY=4 OR DAY=6 ),2);
谷雨:=FILTER(MONTH=4 AND (DAY=19 OR DAY=21),2);
立夏:=FILTER(MONTH=5 AND (DAY=6 OR DAY=8 ),2);
小满:=FILTER(MONTH=5 AND (DAY=20 OR DAY=22),2);
芒种:=FILTER(MONTH=6 AND (DAY=5 OR DAY=7 ),2);
夏至:=FILTER(MONTH=6 AND (DAY=20 OR DAY=22),2);
小暑:=FILTER(MONTH=7 AND (DAY=6 OR DAY=8 ),2);
大署:=FILTER(MONTH=7 AND (DAY=22 OR DAY=24),2);
立秋:=FILTER(MONTH=8 AND (DAY=7 OR DAY=9 ),2);
处暑:=FILTER(MONTH=8 AND (DAY=22 OR DAY=24),2);
白露:=FILTER(MONTH=9 AND (DAY=7 OR DAY=9 ),2);
秋分:=FILTER(MONTH=9 AND (DAY=22 OR DAY=24),2);
寒露:=FILTER(MONTH=10 AND (DAY=7 OR DAY=9 ),2);
霜降:=FILTER(MONTH=10 AND (DAY=22 OR DAY=24),2);
立冬:=FILTER(MONTH=11 AND (DAY=7 OR DAY=9 ),2);
小雪:=FILTER(MONTH=11 AND (DAY=22 OR DAY=24),2);
大雪:=FILTER(MONTH=12 AND (DAY=6 OR DAY=8 ),2);
冬至:=FILTER(MONTH=12 AND (DAY=21 OR DAY=23),2);
小寒:=FILTER(MONTH=1 AND (DAY=5 OR DAY=7 ),2);
大寒:=FILTER(MONTH=1 AND (DAY=19 OR DAY=21),2);
DRAWTEXT(立春,HIGH*1.02,'立春'),POINTDOT,LINETHICK0,COLORGREEN;
DRAWTEXT(雨水,HIGH*1.02,'雨水'),POINTDOT,LINETHICK0,COLORGREEN;
DRAWTEXT(惊蛰,HIGH*1.02,'惊蛰'),POINTDOT,LINETHICK0,COLORGREEN;
DRAWTEXT(春分,HIGH*1.02,'春分'),POINTDOT,LINETHICK0,COLORGREEN;
DRAWTEXT(清明,HIGH*1.02,'清明'),POINTDOT,LINETHICK0,COLORGREEN;
DRAWTEXT(谷雨,HIGH*1.02,'谷雨'),POINTDOT,LINETHICK0,COLORGREEN;
DRAWTEXT(立夏,HIGH*1.02,'立夏'),POINTDOT,LINETHICK0,COLORMAGENTA;
DRAWTEXT(小满,HIGH*1.02,'小满'),POINTDOT,LINETHICK0,COLORMAGENTA;
DRAWTEXT(芒种,HIGH*1.02,'芒种'),POINTDOT,LINETHICK0,COLORMAGENTA;
DRAWTEXT(夏至,HIGH*1.02,'夏至'),POINTDOT,LINETHICK0,COLORMAGENTA;
DRAWTEXT(小暑,HIGH*1.02,'小暑'),POINTDOT,LINETHICK0,COLORMAGENTA;
DRAWTEXT(大署,HIGH*1.02,'大署'),POINTDOT,LINETHICK0,COLORMAGENTA;
DRAWTEXT(立秋,HIGH*1.02,'立秋'),POINTDOT,LINETHICK0,COLORYELLOW;
DRAWTEXT(处暑,HIGH*1.02,'处暑'),POINTDOT,LINETHICK0,COLORYELLOW;
DRAWTEXT(白露,HIGH*1.02,'白露'),POINTDOT,LINETHICK0,COLORYELLOW;
DRAWTEXT(秋分,HIGH*1.02,'秋分'),POINTDOT,LINETHICK0,COLORYELLOW;
DRAWTEXT(寒露,HIGH*1.02,'寒露'),POINTDOT,LINETHICK0,COLORYELLOW;
DRAWTEXT(霜降,HIGH*1.02,'霜降'),POINTDOT,LINETHICK0,COLORYELLOW;
DRAWTEXT(立冬,HIGH*1.02,'立冬'),POINTDOT,LINETHICK0,COLORWHITE;
DRAWTEXT(小雪,HIGH*1.02,'小雪'),POINTDOT,LINETHICK0,COLORWHITE;
DRAWTEXT(大雪,HIGH*1.02,'大雪'),POINTDOT,LINETHICK0,COLORWHITE;
DRAWTEXT(冬至,HIGH*1.02,'冬至'),POINTDOT,LINETHICK0,COLORWHITE;
DRAWTEXT(小寒,HIGH*1.02,'小寒'),POINTDOT,LINETHICK0,COLORWHITE;
DRAWTEXT(大寒,HIGH*1.02,'大寒'),POINTDOT,LINETHICK0,COLORWHITE;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约