股民大家庭

标题: [飞狐] ar-24节气指标源码 [打印本页]

作者: gpdjtbbwy 时间: 2007-12-11 14:31
标题: [飞狐] ar-24节气指标源码
飞狐版 partline(1,1),coloryellow;
jqd:=lsolartermday(date);
fd:=date;
tj:=(jqd-ref(jqd,1)<>datediff(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
drawtext(tj=1 ,0.5,'小寒'),coloryellow;
drawtext(tj=2 ,0.5,'大寒'),coloryellow;
drawtext(tj=3 ,0.5,'立春'),colorgreen;
drawtext(tj=4 ,0.5,'雨水'),colorgreen;
drawtext(tj=5 ,0.5,'惊蛰'),colorgreen;
drawtext(tj=6 ,0.5,'春分'),colorgreen;
drawtext(tj=7 ,0.5,'清明'),coloryellow;
drawtext(tj=8 ,0.5,'谷雨'),coloryellow;
drawtext(tj=9 ,0.5,'立夏'),colorred;
drawtext(tj=10,0.5,'小满'),colorred;
drawtext(tj=11,0.5,'芒种'),colorred;
drawtext(tj=12,0.5,'夏至'),colorred;
drawtext(tj=13,0.5,'小暑'),coloryellow;
drawtext(tj=14,0.5,'大暑'),coloryellow;
drawtext(tj=15,0.5,'立秋'),colorbbbbbb;
drawtext(tj=16,0.5,'处暑'),colorbbbbbb;
drawtext(tj=17,0.5,'白露'),colorbbbbbb;
drawtext(tj=18,0.5,'秋分'),colorbbbbbb;
drawtext(tj=19,0.5,'寒露'),coloryellow;
drawtext(tj=20,0.5,'霜降'),coloryellow;
drawtext(tj=21,0.5,'立冬'),colorff9900;
drawtext(tj=22,0.5,'小雪'),colorff9900;
drawtext(tj=23,0.5,'大雪'),colorff9900;
drawtext(tj=24,0.5,'冬至'),colorff9900;

drawtext(tj=1 ,2.5,'丑月'),coloryellow;
drawtext(tj=3 ,2.5,'寅月'),colorgreen;
drawtext(tj=5 ,2.5,'卯月'),colorgreen;

drawtext(tj=7 ,2.5,'辰月'),coloryellow;
drawtext(tj=9 ,2.5,'巳月'),colorred;
drawtext(tj=11,2.5,'午月'),colorred;
drawtext(tj=13,2.5,'未月'),coloryellow;
drawtext(tj=15,2.5,'申月'),colorbbbbbb;
drawtext(tj=17,2.5,'酉月'),colorbbbbbb;
drawtext(tj=19,2.5,'戌月'),coloryellow;
drawtext(tj=21,2.5,'亥月'),colorff9900;
drawtext(tj=23,2.5,'子月'),colorff9900;

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;
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),colorgreen;
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),colorred;
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),colorbbbbbb;
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),colorff9900;

drawnumber(tj,3.5,tj,0),colorbrown;
cond:=if(tj>=6,tj-6,tj+18)*15;
drawnumber(tj ,-0.5,cond,0),colorgreen;
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),colorred;
-1,pointdot,colorblack;
gz:=ganzhi(date,0,2);
stickline(between(gz,39,50),0.85,1.05,4,0),coloryellow;

作者: wuxihuaji 时间: 2008-7-22 18:00
能够在如此精彩的帖子后面留下自己的网名是多么骄傲的一件事啊

作者: leoliu 时间: 2008-8-24 05:00
生活就像被人强j，反抗不了就学会享受

欢迎光临股民大家庭 (https://gupiao168.com/)