sqmmuser2 发表于 2016-10-3 16:11

庆国庆，发福利

指标源码一枚：
D:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,20);
J:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,5) ;
BIAS1W :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
BIAS2W :=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
BIAS3W :=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
MM:=(BIAS1W+2*BIAS2W+3*BIAS3W)/6;
MN:=MA(MM,3);
VAR1:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100;
VAR2:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
VAR3:=(2*CLOSE+HIGH+LOW)/4;
VAR4:=LLV(LOW,26);
VAR5:=HHV(HIGH,34);
VAR6:=EMA((VAR3-VAR4)/(VAR5-VAR4)*100,16);
VAR7:=SMA((SMA(VAR2,3,1)+3),3,1),LINETHICK3;
VAR8:=EMA(VAR6,7);
VAR9:=SMA(VAR1,3,1);
VAR10:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR11:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR12:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR13:=(VAR10+VAR11+VAR12)/3;
VAR14:=IF(VAR13<=-20,10,0);
VAR15:=HHV(VAR14,10);
VAR24:=LLV(LOW,36);
VAR25:=HHV(HIGH,30);
VAR26:=EMA((CLOSE-VAR24)/(VAR25-VAR24)*4,4)*25;
{150;0;}
兜底:IF(CROSS(MA(C,3),MA(C,7)) AND VAR15,40,0),LINETHICK3,colorred ;
铁底:IF(CROSS(VAR7,VAR8),0,0),LINETHICK7,COLOR00FF00;
底线:55;顶线:80,POINTDOT,LINETHICK2;
K:EMA(D,3),COLOR00FF00,LINETHICK2;
M:EMA(J,7),colorwhite,LINETHICK2;
J,colorred,LINETHICK4;
IF(MN<-4,20,0),COLOR00FF00,LINETHICK3;
底背离: IF((VAR26<10),110,150), , coloryellow,LINETHICK3;
顶背离: IF((VAR26>90),40,0), COLORFFFFFF,LINETHICK3;
DRAWICON(CROSS(ZIG(J,M) ,REF(ZIG(J ,M),1)) ,LOW*0.98,1);


sqmmuser2 发表于 2016-10-3 16:14

该指标最后一行用了ZIG转向，可以提前1个周期发出信号:DAXIAO

还没起飞的猪 发表于 2016-10-3 16:42

谢谢分享

森林森木 发表于 2016-10-3 17:04

同花顺上测试成功，但通达信上测试闪退，不成功，不知什么原因

我爱程程 发表于 2016-10-3 17:40

啥

XYP318318 发表于 2016-10-3 19:20

是通信达能用吗！

XYP318318 发表于 2016-10-3 19:24

指标源码一枚： D:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,20); J:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,5) ; BIAS1W :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100; BIAS2W :=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100; BIAS3W :=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100; MM:=(BIAS1W+2*BIAS2W+3*BIAS3W)/6; MN:=MA(MM,3); VAR1:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100; VAR2:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100; VAR3:=(2*CLOSE+HIGH+LOW)/4; VAR4:=LLV(LOW,26); VAR5:=HHV(HIGH,34); VAR6:=EMA((VAR3-VAR4)/(VAR5-VAR4)*100,16); VAR7:=SMA((SMA(VAR2,3,1)+3),3,1),LINETHICK3; VAR8:=EMA(VAR6,7); VAR9:=SMA(VAR1,3,1); VAR10:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100; VAR11:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100; VAR12:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100; VAR13:=(VAR10+VAR11+VAR12)/3; VAR14:=IF(VAR13<=-20,10,0); VAR15:=HHV(VAR14,10); VAR24:=LLV(LOW,36); VAR25:=HHV(HIGH,30); VAR26:=EMA((CLOSE-VAR24)/(VAR25-VAR24)*4,4)*25; {150;0;} 兜底:IF(CROSS(MA(C,3),MA(C,7)) AND VAR15,40,0),LINETHICK3,colorred ; 铁底:IF(CROSS(VAR7,VAR8),0,0),LINETHICK7,COLOR00FF00; 底线:55;顶线:80,POINTDOT,LINETHICK2; K:EMA(D,3),COLOR00FF00,LINETHICK2; M:EMA(J,7),colorwhite,LINETHICK2; J,colorred,LINETHICK4; IF(MN<-4,20,0),COLOR00FF00,LINETHICK3; 底背离: IF((VAR26<10),110,150), , coloryellow,LINETHICK3; 顶背离: IF((VAR26>90),40,0), COLORFFFFFF,LINETHICK3; DRAWICON(CROSS(ZIG(J,M) ,REF(ZIG(J ,M),1)) ,LOW*0.98,1);

XYP318318 发表于 2016-10-3 19:24

先感谢大仙！

yuzhouzi 发表于 2016-10-3 21:10

這個。。。。不太好吧，明知有zig還放出來？！

阿健旺 发表于 2016-10-3 22:17

:wanzuixiao

芝麻糊abc 发表于 2016-10-3 23:08

看看

wuxi123 发表于 2016-10-7 13:55

大师傅，多发点福利呀，:QIAOPI

sqmmuser2 发表于 2016-10-7 20:25

本帖最后由 sqmmuser2 于 2016-10-7 20:27 编辑

指标二枚，主副图结合，成功率达85%以上:DAXIAO主图
N:=20;
BOLL:MA(C,N);
UB:BOLL+2*STD(C,N);
LB:BOLL-2*STD(C,N);
日:=100;昨前:=3;
约1:=REF(LLV(L,日),昨前);
云:REFDATE(约1,DATE),colorred,LINETHICK2;
DRAWKLINE(云+(云-L), 云+(云-O), 云+(云-H),云+ (云-C));
VARC:=云+(云-O);
BOLL1:MA(VARC,N);
UB1:(MA(VARC,N)+2*STD(VARC,N)),COLOR00FF00;
LB1:(MA(VARC,N)-2*STD(VARC,N)),COLOR00FFFF;


副图：


DIF1:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA1:=EMA(DIF1,9);
MACD1:(DIF1-DEA1)*2,COLORSTICK;
DIF11:=EMA(CLOSE,16) - EMA(CLOSE,34.5);
DEA11:=EMA(DIF11,12);
MACD11:(DIF11-DEA11)*2,COLORSTICK;
DRAWBAND(DIF1,RGB(155,50,50),DEA1,RGB(0,100,50));
DIF:=EMA(CLOSE,6) - EMA(CLOSE,13);
DEA:=EMA(DIF,4.5);
MACD:(DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD11>0,0,MACD11,1.5,0),COLOR8800FF;
STICKLINE(MACD11<0,0,MACD11,1.5,0),COLORFFFF00;
STICKLINE(MACD1>0,0,MACD1,1,0),colorred;
STICKLINE(MACD1<0,0,MACD1,1,0),colorblue;
STICKLINE(MACD>0,0,MACD,0.5,0),coloryellow;
STICKLINE(MACD<0,0,MACD,0.5,0),COLOR00DD00;
DIFFFF:DIF11,COLOR8800FF,LINETHICK0;
DEAAAA:DEA11,COLORFFAA00,LINETHICK0;
DIFFF:DIF1,colorred,LINETHICK0;
DEAAA:DEA1,colorblue,LINETHICK0;
DIFF:DIF,coloryellow,LINETHICK0;
DEAA:DEA,colorgreen,LINETHICK0;
动力线:MA(MACD1,5),,coloryellow,LINETHICK1;
中区:0,colorblue,LINETHICK0;
主动:IF(MACD1>=动力线 AND 动力线<=中区,动力线,DRAWNULL),coloryellow,LINETHICK2;
主拉:IF(动力线>=中区,动力线,DRAWNULL),colorred,LINETHICK2;
翻空:IF(动力线<中区 AND 动力线>MACD1,动力线,DRAWNULL),colorgreen,LINETHICK2;
AA:=BARSLAST(REF(CROSS(DIF1,DEA1),1));
BB:=REF(CLOSE,AA+1)>CLOSE AND DIF1>REF(DIF1,AA+1) AND CROSS(DIF1,DEA1);
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));
二金:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二金,DEA*1.04,15) ;
DRAWTEXT(二金,-0.02, 2),COLORFF00FF;
VAR1:=EMA(CLOSE,12)-EMA(CLOSE,25);
VAR2:=EMA(VAR1,3);
VAR3:=VAR1>VAR2;
VAR4:=VAR1<VAR2;
STICKLINE(VAR3,VAR1,VAR2,1,0),colorred;
STICKLINE(VAR4,VAR1,VAR2,1,0),colorgreen;








zjh6598 发表于 2016-10-8 11:05

指标满天飞

不一不异 发表于 2016-10-8 18:05

感谢大师:DAXIAO
页: [1]
查看完整版本: 庆国庆，发福利