主力心电图(通达信)

源码正文：

底部周期:=LLVBARS(HIGH,200){XG51};
AA:=vol/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主动买盘:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)){XG51};
主动卖盘:IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)){X.G^5=1.C.N.{};

源码正文：

⑴引用指标：
ZZ:=(REF(HHV(H,3),1)+REF(LLV(L,3),1))/2{XG51};
A:=IF(C>ZZ,vol,0){XG51};
B:=IF(C<ZZ,VOL,0){XG51};
A1:=IF(C>ZZ,INDEXA,0){XG51};
B1:=IF(C<ZZ,INDEXA,0){XG51};
总0:IF(FINANCE(1)=0,(A1-B1),(A-B));

⑵
AA:=CONst(HHV(H,N)){XG51};
AAA:=CONST(LLV(L,N)){XG51};
OO:=IF(PERIOD=5,ma(O,22),IF(PERIOD=6,MA(O,10),MA(O,6))){XG51};
J:="kdj.J#DAY"{XG51};
CC:=IF(PERIOD=5,MA(C,22),IF(PERIOD=6,MA(C,10),MA(C,6))){XG51};
HS:=VOL/CAPITAL*100{XG51};
JJ:=(H+L+C)/3;QJ0:=VOL/IF(H=L,4,H-L){XG51};
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(C,O)),QJ0*(MIN(O,C)-L)){XG51};
QJ2:=IF(CAPITAL=0,QJ0*(MIN(O,C)-L),QJ0*(JJ-MIN(C,O))){XG51};
QJ3:=QJ0*(H-MAX(O,C));QJ4:=QJ0*(MAX(C,O)-JJ){XG51};
QJ5:=QJ1+QJ2;QJ6:=QJ3+QJ4{XG51};
DD:=(QJ5-QJ6)/(QJ5+QJ6)*100{XG51};
ddx:=((QJ1+QJ2)-(QJ3+QJ4))/SUM(VOL,10)*100;DDZ:=DD*17{XG51};
DDY:=((QJ2+QJ4)-(QJ1+QJ3))/SUM(VOL,10)*100{XG51};
BB:=(crOSS(J,0)AND ((DDX>0 AND DDY>0) OR DDZ>400)){XG51};
主:=QJ1+QJ2;散:=QJ3+QJ4{XG51};
bbd:=ema("千钧引用.总0#WEEK",2)/SUM(IF(CAPITAL=0,REF(INDEXA,1),REF(VOL,1)),5)*100{XG51};
XH1:=REF(BBD,1)<-15 AND BBD>REF(BBD,1) AND BBD>-10{XG51};
XH2:=REF(BBD,1)>=15 AND BBD<REF(BBD,1) AND BBD<10{XG51};
五日线夹角:ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*57.3,COLOREEEEEE,NODRAW{XG51};
十三日线夹角:ATAN((MA(C,13)/REF(MA(C,13),1)-1)*100)*57.3,COLOR00ddeE,NODRAW{XG51};
二十三日线夹角:ATAN((MA(C,23)/REF(MA(C,23),1)-1)*100)*57.3,COLOREE00EE,NODRAW{XG51};
三十四日线夹角:ATAN((MA(C,34)/REF(MA(C,34),1)-1)*100)*57.3,COLOR00EE00,NODRAW{XG51};
六十八日线夹角:ATAN((MA(C,68)/REF(MA(C,68),1)-1)*100)*57.3,COLOREEDD00,NODRAW{XG51};
二五零日线夹角:ATAN((MA(C,250)/REF(MA(C,250),1)-1)*100)*57.3,COLORFF8800,NODRAW{XG51};
涨家数:INDEXADV,COLOR0066FF,NODRAW{XG51};
跌家数:INDEXDEC,COLOR99FF99,NODRAW{XG51};
STICKLINE(C>=REF(C,1),H,L,0,1),COLOR0000FF{XG51};
STICKLINE(C>=REF(C,1),C,O,2.8,0),COLOR0000BB{XG51};
STICKLINE(C>=REF(C,1),C,O,2,0),COLOR0000DD{XG51};
STICKLINE(C>=REF(C,1),C,O,1.2,0),COLOR0000EE{XG51};
STICKLINE(C>=REF(C,1),C,O,0.4,0),COLOR0000FF{XG51};
STICKLINE(C<REF(C,1),H,L,0,1),COLORFFFF00{XG51};
STICKLINE(C<REF(C,1),C,O,2.8,0),COLOR999900{XG51};
STICKLINE(C<REF(C,1),C,O,2,0),COLORBBBB00{XG51};
STICKLINE(C<REF(C,1),C,O,1.2,0),COLORDDDD00{XG51};
STICKLINE(C<REF(C,1),C,O,0.4,0),COLORFFFF00{XG51};
STICKLINE(BBD>0,CC,OO,2,0),COLORFF00FF{XG51};
STICKLINE(BBD<0,CC,OO,2,0),COLOR00FF00{XG51};
DRAWICON(XH1,L*0.98,1){XG51};
DRAWICON(XH2,H*1.02,2){XG51};
DRAWTEXT(BB,L*0.98,'弄点钱玩玩'),COLOR00FFFF;

T0:=CONST(IF(VOL>REF(VOL,1) AND MA(VOL,5)>REF(MA(VOL,5),1),1,0)){XG51};
T1:=CONST(IF(VOL<REF(VOL,1) AND MA(VOL,5)>REF(MA(VOL,5),1),1,0)){XG51};
T2:=CONST(IF(VOL>REF(VOL,1) AND MA(VOL,5)<REF(MA(VOL,5),1),1,0)){XG51};
T3:=CONST(IF(VOL<REF(VOL,1) AND MA(VOL,5)<REF(MA(VOL,5),1),1,0)){XG51};
T4:=CONST(IF(主>REF(主,1) AND 主>散 AND IF(CAPITAL=0,HS>1.3,HS>5),1,0)){XG51};
T5:=CONST(IF(主<REF(主,1) AND 主>散 AND IF(CAPITAL=0,HS>0.5 AND HS<1.3,HS>3 AND HS<=5),1,0)){XG51};
T6:=CONST(IF(主>REF(主,1) AND 主<散 AND IF(CAPITAL=0,HS<1.3 AND HS>0.5,HS<5 AND HS>3),1,0)){XG51};
T7:=CONST(IF(主<REF(主,1) AND 主<散 AND IF(CAPITAL=0,HS<1.3,HS<3 AND HS>=1),1,0)){XG51};
DRAWTEXT(T0=1 AND CURRBARSCOUNT=N/2,AA-(AA*0.03),'■成交大于昨日,有继续增大趋势'),COLORFF00FF{XG51};
DRAWTEXT(T1=1 AND CURRBARSCOUNT=N/2,AA-(AA*0.03),'■成交小于昨日,但有放大迹象'),COLOR00ddfF{XG51};
DRAWTEXT(T2=1 AND CURRBARSCOUNT=N/2,AA-(AA*0.03),'■成交大于昨日,但有缩小迹'),COLORFFFF00{XG51};
DRAWTEXT(T3=1 AND CURRBARSCOUNT=N/2,AA-(AA*0.03),'■成交小于昨日,且有缩小迹象'),COLORFFBB00{XG51};
DRAWTEXT(T4=1 AND CURRBARSCOUNT=N/2+30,AA-(AA*0.03),'■资金比较活跃,大资金活动明显'),COLOR00FFFF{XG51};
DRAWTEXT(T5=1 AND CURRBARSCOUNT=N/2+30,AA-(AA*0.03),'■资金开始积极,大资金温和进场'),COLOR00DDFF{XG51};
DRAWTEXT(T6=1 AND CURRBARSCOUNT=N/2+9,AA-(AA*0.03),'■散乱资金积极,散户行为明显'),COLORFFDD00{XG51};
DRAWTEXT(CURRBARSCOUNT=N/2,AAA-(AAA*0.03),'====【www.xg51.cn】===='),COLOR889999{X=G+5-1=C=N={};