斩仙飞刀、 通达信飞刀 源码

{}HJ_1:=7;

HJ_2:=3;

50,POINTDOT,COLORWHITE;

HJ_3:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),HJ_1);

HJ_4:=HIGH-REF(HIGH,1);

HJ_5:=REF(LOW,1)-LOW;

{}

HJ_6:=SUM(IF(HJ_4>0 AND HJ_4>HJ_5,HJ_4,0),HJ_1);

HJ_7:=SUM(IF(HJ_5>0 AND HJ_5>HJ_4,HJ_5,0),HJ_1);

阳刀:HJ_6*100/HJ_3,COLORRED;

阴刀:HJ_7*100/HJ_3,COLORGREEN;

明刀:MA(ABS(阴刀-阳刀)/(阴刀+阳刀)*100,HJ_2),COLORWHITE;

暗刀:(明刀+REF(明刀,HJ_2))/2,COLORGRAY;

STICKLINE(阴刀=0,0,5,2,0),COLORBLUE;

STICKLINE(阳刀=0,0,5,2,0),COLORYELLOW;

DRAWICON(阴刀=0 AND 明刀>99,100,2);

DRAWICON(阳刀=0 AND 明刀>99,100,1);

{-----------------------------------}