|
以下是通达信龙抬头副图源码（无源码的请下载附件导入）
HJ_1:=DATE<1150230;
DRAWGBK(OPEN>0,RGB(8,88,158),RGB(0,0,0),0,1,0);
HJ_2:=CLOSE/REF(CLOSE,1)>1.095 AND CLOSE=HIGH;
HJ_3:=REF(CLOSE,1)/REF(CLOSE,2)<=0.96 OR REF(OPEN,1)/REF(CLOSE,1)>=1.05;
HJ_4:=HIGH/REF(CLOSE,1)>1.041 AND CLOSE>REF(CLOSE,1);
HJ_5:=HJ_3 AND HJ_4;
HJ_6:=REF(CLOSE,2)/REF(CLOSE,3)<1.099;
HJ_7:=HJ_5 AND HJ_6;
HJ_8:=(COUNT(REF(HJ_2,3),8) AND HJ_7)*HJ_1;
HJ_9:=CLOSE/REF(CLOSE,1)>1.095 AND CLOSE=HIGH;
HJ_10:=HIGH/REF(CLOSE,1)>1.041 AND LOW<MA(CLOSE,5) AND CLOSE>MA(CLOSE,5) AND LOW<MA(CLOSE,10) AND CLOSE>MA(CLOSE,10) AND LOW<MA(CLOSE,20) AND CLOSE>MA(CLOSE,20) AND (LOW<MA(CLOSE,60) AND CLOSE>MA(CLOSE,60) OR (LOW<MA(CLOSE,120) AND CLOSE>MA(CLOSE,120)));
HJ_11:=COUNT(REF(HJ_9,3),10) AND HJ_10;
HJ_12:=(HJ_8 OR HJ_11)*HJ_1;
STICKLINE(HJ_12,0,3,3,0),COLORRED;
STICKLINE(HJ_12,0,2,3,0),COLORMAGENTA;
STICKLINE(HJ_12,0,1,3,0),COLORRED;
{-----------------------------------}
625111941.jpg
| 
