BS分时主图（通达信公式 分时主图 源码 测试图）

 {公式名称: BS分时主图

公式描述: 

无参数

公式类型: 技术指标公式-大势型

画线方法: 主图叠加}

 

VAR1:=SUM(CLOSE*VOL,0)/SUM(VOL,0);

VAR2:=CLOSE>REF(CLOSE,1) AND CLOSE/VAR1>1+0.015;

VAR3:=CLOSE<REF(CLOSE,1) AND CLOSE/VAR1<1-0.015;

VAR4:=CROSS(SUM(VAR2,0),0.5);

VAR5:=CROSS(SUM(VAR3,0),0.5);

VAR6:=SUM(VAR4,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(VAR4)),0.5);

VAR7:=SUM(VAR5,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(VAR5)),0.5);

VAR8:=CONST(SUM(IF(VAR6,REF(CLOSE,1),DRAWNULL),0));

VAR9:=CONST(SUM(IF(VAR7,REF(CLOSE,1),DRAWNULL),0));

VAR10:=CROSS(SUM(VAR2 AND CLOSE>VAR8*(1+0.015),0),0.5);

VAR11:=CROSS(SUM(VAR3 AND CLOSE<VAR9*(1-0.015),0),0.5);

VAR12:=CROSS(SUM(VAR10,0),0.5);

VAR13:=CROSS(SUM(VAR11,0),0.5);

VAR14:=SUM(VAR12,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(VAR12)),0.5);

VAR15:=SUM(VAR13,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(VAR13)),0.5);

VAR16:=CONST(SUM(IF(VAR14,REF(CLOSE,1),DRAWNULL),0));

VAR17:=CONST(SUM(IF(VAR15,REF(CLOSE,1),DRAWNULL),0));

VAR18:=CROSS(SUM(VAR2 AND CLOSE>VAR16*(1+0.03),0),0.5);

VAR19:=CROSS(SUM(VAR3 AND CLOSE<VAR17*(1+0.03),0),0.5);

VAR20:=SUM(VAR18,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(VAR18)),0.5);

VAR21:=SUM(VAR19,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(VAR19)),0.5);

VAR22:=CONST(SUM(IF(VAR20,REF(CLOSE,1),DRAWNULL),0));

VAR23:=CONST(SUM(IF(VAR21,REF(CLOSE,1),DRAWNULL),0));

DRAWICON(VAR4 OR VAR12 OR VAR18,CLOSE*0.99,16);

DRAWICON(VAR5 OR VAR13 OR VAR19,CLOSE*1.01,18);

DRAWICON(VAR7 OR VAR15 OR VAR21,REF(CLOSE,1)*0.995,22);

DRAWICON(VAR6 OR VAR14 OR VAR20,REF(CLOSE,1)*1.005,21);

DRAWNUMBER(VAR6 OR VAR14 OR VAR20,CLOSE*1.02,CLOSE),COLORGREEN;

DRAWNUMBER(VAR7 OR VAR15 OR VAR21,CLOSE*0.98,CLOSE),COLORRED;

VAR24:=BARSLAST(TIME=93100);{分析家公式网WWW.70822.COM}

VAR25:=HHV(HIGH,VAR24+1);

VAR26:=LLV(LOW,VAR24+1);

VAR27:=BETWEEN(TIME2,93100,100000);

VAR28:=IF(VAR27,VAR25,DRAWNULL)=CLOSE;

VAR29:=IF(VAR27,VAR26,DRAWNULL)=CLOSE;

VAR30:=BARSLAST(IF(FILTERX(VAR28,VAR24),1,0));

VAR31:=BARSLAST(IF(FILTERX(VAR29,VAR24),1,0));

T6E:CONST(REF(CLOSE,VAR30)),DOTLINE,COLORMAGENTA;

T6F:CONST(REF(CLOSE,VAR31)),DOTLINE,COLORGREEN;

 

2022349505625664.png