|
【飞狐】全部DELTA彩线绘制代码（短期DELTA、中短期DELTA）-股票指标公式下载 全部DELTA彩线绘制代码 短期DELTA（STD）： //叠加K线——如果用于主图，以下五行可以不要 STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE; STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE; STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED; STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED; STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED; //光标所在画面的最高价和最低价 HH:=SYSPARAM(4); LL:=SYSPARAM(5); //判断是否绘制彩线的位置 日:=date; //求当前K线的日期 isColor:=if(日>ref(日,1) or BARSCOUNT(c)=1,1,0); //当K线的日期发生变化时，就是新的彩线绘制位置 DIS:=if(BARSCOUNT(C)=1,0,日-ref(日,1)-1); //星期六、星期日以及节假日也要考虑 Num:=count(isColor,0)+DIS; //计算彩线个数 //绘制彩线 STICKLINE(isColor and mod(Num,4)=0,LL,HH,1,0),colorred ; STICKLINE(isColor and mod(Num,4)=1,LL,HH,1,0),coloryellow ; STICKLINE(isColor and mod(Num,4)=2,LL,HH,1,0),colorblue ; STICKLINE(isColor and mod(Num,4)=3,LL,HH,1,0),colorwhite ; 适用于60分钟线、30分钟线，15分钟线，5分钟线。 （补充：黑体部分很重要，原先给出的代码缺少这句，即忽略了周末和节假日的处理。根据吉姆.索罗门的解释，周末和节假日也在DELTA序列内，虽然它没有K线。原文中用双线来标注周末和节假日，我觉得，只要正确按照顺序标注彩线即可，因此不采用双线。另外，本程序现在已经处理任意长短的节假日和周末。） 中短期DELTA（ITD）： //叠加K线--如果用于主图，以下五行可以不要 STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE; STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE; STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED; STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED; STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED; //光标所在画面的最高价和最低价 HH:=SYSPARAM(4); LL:=SYSPARAM(5); //判断是否绘制彩线的位置 农历Day,LineThick0; isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0); isColor:=iif(lday=15 or isFirst,1,0); //农历15，或者农历15后的第一个交易日，就是绘制彩线的位置 Num:=count(isColor,0); //计算彩线个数 //绘制彩线 STICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ; STICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ; STICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ; STICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ; 适用于日线，周线好像亦可，推荐用于日线。 中期DELTA（MTD）： //叠加K线——如果用于主图，以下五行可以不要 STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE; STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE; STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED; STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED; STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED; //光标所在画面的最高价和最低价 HH:=SYSPARAM(4); LL:=sysparam(5); //判断是否绘制彩线的位置 农历Day,LineThick0; isFirst:=if(lday=15 or (农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15),1,0); //农历15，或者农历15后的第一个交易日 isColor:=if(mod(count(isFirst,0),3)=1 and isFirst,1,0),linethick0; //每三个农历满月的位置绘制彩线 Num:=count(isColor,0); //计算彩线个数 //绘制彩线 STICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ; STICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ; STICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ; STICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ; 适用于日线、周线。 长期DELTA（LTD）： //叠加K线--如果用于主图，以下五行可以不要 STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE; STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE; STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED; STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED; STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED; //光标所在画面的最高价和最低价 HH:=SYSPARAM(4); LL:=sysparam(5); //判断是否绘制彩线的位置 年:=year; isColor:=if(年>ref(年,1),1,0); //当K线的年份发生变化，就是绘制彩线的位置 Num:=count(isColor,0); //计算彩线个数 //绘制彩线 STICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ; STICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ; STICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ; STICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ; 适用于日线、周线、月线，推荐用于周线、月线。 超长期DELTA(SLTD)： //叠加K线--如果用于主图，以下五行可以不要 STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE; STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE; STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED; STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED; STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED; //光标所在画面的最高价和最低价 HH:=SYSPARAM(4); LL:=SYSPARAM(5); //判断是否绘制彩线的位置 月:=month; isFirst:=if(月>ref(月,1) or 月<ref(月,1),1,0); //K线月份发生变化的位置 isColor:=if(mod(count(isFirst,0),57)=1 and isFirst,1,0); //每57个月绘制一次彩线; Num:=count(isColor,0); //计算彩线个数 //绘制彩线 STICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ; STICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ; |
|
|
