TC:=INTPART(FUND*0.4/(C*MARGIN*UNIT+FEE));
TR : MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
MACD:2*(DIFF-DEA),COLORSTICK;
LEN:CONDBARS(CROSSUP(DIFF,DEA),CROSSDOWN(DIFF,DEA));
MACDV:=MACD>REF(MACD,1) AND REF(MACD,2)>REF(MACD,1);
MACDA:=MACD<REF(MACD,1) AND REF(MACD,2)<REF(MACD,1);
FBPK := DYT AND COUNT(DYT, BARSLAST(KYT))=1;
FSPK := KYT AND COUNT(KYT, BARSLAST(DYT))=1;
BPKC := IF(FBPK , C, REF(C, BARSLAST(FBPK)));
SPKC := IF(FSPK , C, REF(C, BARSLAST(FSPK)));
LENVA := CONDBARS(FBPK, FSPK);
DDAI:=C>REF(C,LEN) AND CROSSDOWN(DIFF,DEA); //MACD多带鱼
KDAI:=C<REF(C,LEN) AND CROSSUP(DIFF,DEA); //MACD空带鱼
DDUAN:=C<REF(C,LEN) AND CROSSDOWN(DIFF,DEA); //MACD空带鱼
KDUAN:=C>REF(C,LEN) AND CROSSUP(DIFF,DEA); //MACD空短鱼
DDAIVA := C>REF(C,LENVA) AND FSPK;
KDAIVA := C<REF(C,LENVA) AND FBPK;
DDUANVA := C<=REF(C,LENVA) AND FSPK;
KDUANVA := C>=REF(C,LENVA) AND FBPK;
DDAICS:=-1*COUNT(DDAI,0);//多带次数
KDAICS:=-1*COUNT(KDAI,0);//空带次数
DDUANCS:=COUNT(DDUAN ,0);//多短次数
KDUANCS:=COUNT(KDUAN ,0);//空短次数
DAIYUCS:=DDAICS+KDAICS;//总带次数
DUANYUCS:=DDUANCS+KDUANCS;//总短次数
DDAICSVA := -1*COUNT(DDAIVA,0);//MACDVA
DKDUANYUCS:=IF(ABS(DAIYUCS)>REF(ABS(DAIYUCS),1), DUANYUCS, REF(DUANYUCS, BARSLAST((KDAI OR DDAI))));
DKDAIYUCS:=IF(ABS(DUANYUCS)>REF(ABS(DUANYUCS),1), DAIYUCS, REF(DAIYUCS, BARSLAST((DDUAN OR KDUAN))));
DDK : IF(BARSLAST(DDAI)<BARSLAST(KDAI), 1, -1);
DDKVA : IF(BARSLAST(DDAIVA)<BARSLAST(KDAIVA), 1, -1);
//DRAWTEXT(DDAI ,H+0.8 ,'多带'),VALIGN0,FONTSIZE18,COLORWHITE;
//DRAWTEXT(DDUAN ,H+0.8 ,'多短'),VALIGN0,FONTSIZE18,COLORWHITE;
//DRAWTEXT(KDAI ,L-0.8,'空带'),VALIGN0,FONTSIZE18,COLORWHITE;
//DRAWTEXT(KDUAN ,L-0.8,'空短'),VALIGN0,FONTSIZE18,COLORWHITE;
DRAWTEXT(DDAIVA ,H+0.5 ,'VA多带'),VALIGN2,FONTSIZE14,COLORRED;
DRAWTEXT(DDUANVA ,H+0.5 ,'VA多短'),VALIGN2,FONTSIZE14,COLORRED;
DRAWTEXT(KDAIVA ,L-0.5,'VA空带'),VALIGN2,FONTSIZE14,COLORGREEN;
DRAWTEXT(KDUANVA ,L-0.5 ,'VA空短'),VALIGN2,FONTSIZE14,COLORGREEN;
VATJ:IF(MOD(ABS(DUANYUCS-DKDUANYUCS),2)=0,1,0);//判断带鱼奇偶
MACDBK:=IF(VATJ=0 AND DDK=1 AND BKVOL=0, 1,0);
MACDSK:=IF(VATJ=0 AND (DDK=-1) AND SKVOL=0,-1,0);
CROSS(DIFF,DEA) AND (DDK=-1), BP(SKVOL);
CROSSDOWN(DIFF,DEA) AND (DDK=1), SP(BKVOL);
VABK:IF(FBPK AND DDK=1 AND BKVOL=0,1,0);
VASK:IF(FSPK AND DDK=-1 AND SKVOL=0,-1,0);
FBPK AND DDKVA=1 AND VATJ=1 AND BKVOL=0, BPK(TC);//AND DDKVA=1
FSPK AND DDKVA=-1 AND VATJ=1 AND SKVOL=0, SPK(TC);//AND DDKVA=-1
DYT AND SKVOL>0 AND VATJ=1, BP(SKVOL);//
KYT AND BKVOL>0 AND VATJ=1, SP(BKVOL);//