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;};