[公式源碼]發現黑馬——飛狐解盤版 , 請老師改通達信公式！



input:N1(126,1,1260);
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(YEAR<2008 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;
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 ;
EXPLAIN(Var23>0,'\發現大黑馬加把安全鎖，全部虧損問它要\');
EXPLAIN(發現>0,'\短線黑馬2.5%\') ;
EXPLAIN(黑馬>0,'\黑馬發現10%\');
EXPLAIN(大黑馬,'\獲利10%以上\');
EXPLAIN(HIGH>=HHV(HIGH,20), '\創20天新高\');
0,colorff8833 ;
100,colorblue ;