弄点钱玩玩(通达信)

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

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

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