BS决策黄金搭档[发现黑马]源码(大智慧)

input:n1(60,1,100);

Var3:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5);

Var4:=(CLOSE-LLV(CLOSE,N1))/(HHV(CLOSE,N1)-LLV(CLOSE,N1))*100;

Var5:=EMA(CLOSE,2)-EMA(CLOSE,150);

Var6:=EMA(Var5,100);

Var7:=2*(Var5-Var6);

Var8:=POW(Var7,3)*0.1+POW(Var7,1);

Var9:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));

VarA:=EMA(Var9*0.97,3);

VarB:=(HIGH+LOW+CLOSE)/3;

VarC:=(VarB-MA(VarB,14))/(0.015*AVEDEV(VarB,14));

黑马线: IF(DATE<1100530 AND Var7>0.1,Var8,0)*5,stick ,linethick2 ;

VarD:=LLV(HIGH,240);

VarE:=100*(CLOSE-VarD)/VarD;

VarF:=AMOUNT/vol;

Var10:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,5);

Var11:=INDEXC;

Var12:=MA(Var11,5);

Var13:=MA(Var11,20);

Var14:=MA(Var11,30);

Var15:=Var14>Var12*1.08 AND Var13>Var12*1.055;

Var16:=Var12>Var11*1.03 AND Var13>Var11*1.13;

Var17:=Var16;

Var18:=IF(FILTER(Var10<6,5)=1,1,0);

发现: (Var18 AND VarE<-2.5 AND Var3<5 AND Var4=0)*60;

Var19:=Var10<6 AND Var17;

黑马: IF(FILTER(Var19,1)=1,1,0)*80,colorblue;

大黑马: Var19 AND Var18*80,colorblue;

操盘手: Var4;

牛变马:=黑马线>操盘手;

强牛:黑马线*牛变马;

FILLRGN(强牛,操盘手*牛变马),color580b80;

Var1A:=crOSS(黑马线,2);

Var1B:=CROSS(黑马线,4);

庄拉: IF(FILTER((Var1A OR Var1B) AND Var4<40 AND Var3<40,5)=1,35,0),colorred;

Var1C:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;

Var1D:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;

Var1E:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;

Var1F:=REF(CLOSE,1);

Var20:=SMA(MAX(CLOSE-Var1F,0),5,1)/SMA(Abs(CLOSE-Var1F),5,1)*100;

Var21:=(HIGH+LOW+CLOSE)/3;

Var22:=(Var21-MA(Var21,14))/(0.015*AVEDEV(Var21,14));

Var23:=(Var1C>=-15.8 AND Var1C<=-12.2 AND Var1D<=-20.8 AND Var1E<=-27.5 AND Var20<=11.7 AND Var22<=-145)*100;

Var24:=Var4=0;

Var25:=Var4=100;

STICKLINE(Var23>0,90,100,5,0);

STICKLINE(Var24>0,-3,-9,1,0),colorred ,linethick3;

STICKLINE(Var25>0,101,105,1,0),linethick3 ,colorgreen ;

DRAWMOVETEXT(Var23>0,'发现大黑马加把安全锁，全部亏损问它要');

DRAWMOVETEXT(发现>0,'短线黑马2.5%') ;

DRAWMOVETEXT(黑马>0,'黑马发现10%');

DRAWMOVETEXT(大黑马,'获利10%以上');

DRAWMOVETEXT(HIGH>=HHV(HIGH,20), '创20天新高');

{0,colorff8833;}

{100,colorblue;};