通达信启富 个股分时源码副图

[复制链接]
查看110 | 回复0 | 2021-8-19 19:32:46 | 显示全部楼层 |阅读模式

以下是通达信启富 个股分时源码副图(无源码的请下载附件导入)

HJ_1:=1170415;
 HJ_2:=IF(DATE<HJ_1,1,DRAWNULL);
 HJ_3:=TIME2=100100;
 HJ_4:=BARSLAST(HJ_3);
 C1:CONST(IF(HJ_4,MAX(REF(HHV(HIGH,0),HJ_4+1),DYNAINFO(4)),HHV(HIGH,0)))*HJ_2,DOTLINE,COLORBLUE;
 C2:CONST(IF(HJ_4,MIN(REF(LLV(LOW,0),HJ_4+1),DYNAINFO(4)),LLV(LOW,0)))*HJ_2,DOTLINE,COLORBLUE;
 HJ_5:=(C1/C2-1)*100;
 H1:EMA(CLOSE,1)*HJ_2,COLORWHITE;
 H2:EMA(H1,30)*HJ_2,COLORCC66FF;
 STICKLINE(H1>H2,H1,H2,0,1),COLORRED;
 STICKLINE(H1<H2,H1,H2,0,1),COLORGREEN;
现价:CLOSE,COLORWHITE,LINETHICK2;
 HJ_6:=SUM(VOL*CLOSE,0)/SUM(VOL,0);
 HJ_7:=CLOSE>REF(CLOSE,1) AND CLOSE/HJ_6>1+0.03;
 HJ_8:=CLOSE<REF(CLOSE,1) AND CLOSE/HJ_6<1-0.03;
 HJ_9:=CROSS(SUM(HJ_7,0),0.5);
 HJ_10:=CROSS(SUM(HJ_8,0),0.5);
 
 HJ_11:=SUM(HJ_9,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(HJ_9)),0.5);
 HJ_12:=SUM(HJ_10,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(HJ_10)),0.5);
 CS1:CONST(SUM(IF(HJ_11*HJ_2,REF(CLOSE,1),DRAWNULL),0)),COLORGREEN,LINETHICK2;
 CB1:CONST(SUM(IF(HJ_12*HJ_2,REF(CLOSE,1),DRAWNULL),0)),COLORMAGENTA,LINETHICK2;
 HJ_13:=CROSS(SUM(HJ_7 AND CLOSE>CS1*1.03,0),0.5);
 HJ_14:=CROSS(SUM(HJ_8 AND CLOSE<CB1*0.97,0),0.5);
 HJ_15:=SUM(HJ_13,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(HJ_13)),0.5);
 HJ_16:=SUM(HJ_14,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(HJ_14)),0.5);
 CS2:CONST(SUM(IF(HJ_15*HJ_2,REF(CLOSE,1),DRAWNULL),0)),COLORGREEN;
 CB2:CONST(SUM(IF(HJ_16*HJ_2,REF(CLOSE,1),DRAWNULL),0)),COLORMAGENTA;
 HJ_17:=CROSS(SUM(HJ_7 AND CLOSE>CS2*1.03,0),0.5);
 HJ_18:=CROSS(SUM(HJ_8 AND CLOSE<CB2*0.97,0),0.5);
 HJ_19:=SUM(HJ_17,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(HJ_17)),0.5);
 HJ_20:=SUM(HJ_18,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(HJ_18)),0.5);
 CS3:CONST(SUM(IF(HJ_19*HJ_2,REF(CLOSE,1),DRAWNULL),0)),COLORGREEN;
 CB3:CONST(SUM(IF(HJ_20*HJ_2,REF(CLOSE,1),DRAWNULL),0)),COLORMAGENTA;
 DRAWICON((HJ_12 OR HJ_16 OR HJ_20)*HJ_2,REF(CLOSE,1)*0.995,7);
 DRAWICON((HJ_11 OR HJ_15 OR HJ_19)*HJ_2,REF(CLOSE,1)*0.99,8);
 DRAWICON((HJ_12 OR HJ_16 OR HJ_20)*HJ_2,REF(CLOSE,1)*0.99,1);
 DRAWICON((HJ_11 OR HJ_15 OR HJ_19)*HJ_2,REF(CLOSE,1)*0.995,2);

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

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则