弄点钱玩玩(通达信)

源码正文：

⑴引用指标：
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={};

源码正文：

小提示:这是艺术派指标,看图领吾无更多说明,与你的股票比对一作为中线.短线有一定参考价值;也给喜欢的高手优化增添一份乐趣!若兴趣不大的就一笑了之吧 。

RSVCC:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100{XG51};
stICKLINE( RSVCC>0,60,0,8,0),COLOR880022{XG51};
STICKLINE( RSVCC>0,-40,0,8,0),COLOR003300{XG51};
difF1:= ema(C,3) - Ema(C,13){XG51};
DEA1 := EMA(DIFF1,9){XG51};
macd1:= 2*(DIFF1-DEA1)*10{XG51};
DIFF2:= EMA(C,5) - EMA(C,26){XG51};
DEA2 := EMA(DIFF2,9){XG51};
MacD2:= 2*(DIFF2-DEA2)*10{XG51};
DIFF3:= EMA(C,7) - EMA(C,89){XG51};
DEA3 := EMA(DIFF3,21){XG51};
MACD3:= 2*(DIFF3-DEA3)*10{XG51};
STICKLINE(MACD3>=0,0,MACD3,5,0),COLOR9999FF{XG51};
STICKLINE(MACD3<0,0,-MACD3,5,0),COLOR9999AA{XG51};
STICKLINE(MACD2>=0,0,MACD2,5,0),COLOR9966FF;{XG51};
STICKLINE(MACD2<0,0,-MACD2,5,0),COLOR557799;{XG51};
STICKLINE(MACD1>=0,0,MACD1,5,0),COLOR9900FF{XG51};
STICKLINE(MACD1<0,0,-MACD1,5,0),COLOR556688{XG51};
STICKLINE(MACD3,0,-Abs(MACD3)*0.6,5,0),COLOR232323{XG51};
STICKLINE(MACD1,0,-ABS(MACD1)*0.6,5,0),COLOR0F0F0F;

VAR21:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
绿星持币:VAR21,COLORCYAN,POINTDOT,LINETHICK4{XG51};
红星持股:IF(VAR21>0,VAR21,0),CIRCLEDOT,COLORWHITE,LINETHICK2{XG51};
短顶:STICKLINE(VAR21>9 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+2,0,3,0),COLORFF4400{XG51};
STICKLINE(VAR21>9 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+2,0,2.4,0),COLORFF6600{XG51};
STICKLINE(VAR21>9 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+2,0,1.8,0),COLORFF9900{XG51};
STICKLINE(VAR21>9 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+2,0,1.2,0),COLORFFCC00{XG51};
STICKLINE(VAR21>9 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+2,0,0.6,0),COLORCYAN{XG51};
大顶:STICKLINE(VAR21>20 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+20,0,7,0),COLOR003300{XG51};
STICKLINE(VAR21>20 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+20,0,6,0),COLOR005500{XG51};
STICKLINE(VAR21>20 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+20,0,5,0),COLOR007700{XG51};
STICKLINE(VAR21>20 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+20,0,3,0),COLOR009900{XG51};
STICKLINE(VAR21>20 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+20,0,0.5,0),COLOR00CC00{XG51};
VAR22:=HHV(VAR21>20,10){XG51};
危险: STICKLINE(VAR22 AND crOSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),VAR21+10,0,4,0)COLORFF0033{XG51};
STICKLINE(VAR22 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),VAR21+10,0,3.3,0)COLORFF0066{XG51};
STICKLINE(VAR22 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),VAR21+10,0,2.4,0)COLORFF0099{XG51};
STICKLINE(VAR22 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),VAR21+10,0,1.6,0)COLORFF00CC{XG51};
STICKLINE(VAR22 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),VAR21+10,0,0.8,0)COLORFF00FF{XG51};
注意止损:STICKLINE(VAR22 AND FILTER(VAR21< REF(VAR21,1),6) AND CROSS(MA(CLOSE,5),MA(CLOSE,2)),VAR21+6,0,3,0)COLOR0035FF{XG51};
STICKLINE(VAR22 AND FILTER(VAR21< REF(VAR21,1),6) AND CROSS(MA(CLOSE,5),MA(CLOSE,2)),VAR21+6,0,2.4,0)COLOR0064FF{XG51};
STICKLINE(VAR22 AND FILTER(VAR21< REF(VAR21,1),6) AND CROSS(MA(CLOSE,5),MA(CLOSE,2)),VAR21+6,0,1.8,0)COLOR0093FF{XG51};
STICKLINE(VAR22 AND FILTER(VAR21< REF(VAR21,1),6) AND CROSS(MA(CLOSE,5),MA(CLOSE,2)),VAR21+6,0,1.2,0)COLOR00C2FF{XG51};
STICKLINE(VAR22 AND FILTER(VAR21< REF(VAR21,1),6) AND CROSS(MA(CLOSE,5),MA(CLOSE,2)),VAR21+6,0,0.6,0)COLOR00FFFF{XG51};
短底:STICKLINE(VAR21<-9 AND VAR21> REF(VAR21,1),VAR21-2,0,3,0),COLOR000033{XG51};
STICKLINE(VAR21<-9 AND VAR21> REF(VAR21,1),VAR21-2,0,2.4,0),COLOR000066{XG51};
STICKLINE(VAR21<-9 AND VAR21> REF(VAR21,1),VAR21-2,0,1.8,0),COLOR000099{XG51};
STICKLINE(VAR21<-9 AND VAR21> REF(VAR21,1),VAR21-2,0,1.2,0),COLOR0000CC{XG51};
STICKLINE(VAR21<-9 AND VAR21> REF(VAR21,1),VAR21-2,0,0.6,0),COLOR0000FF{XG51};
DRAWTEXT(VAR21>9 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+2,'短顶'),COLORGREEN{XG51};
DRAWTEXT(VAR21>20 AND FILTER(VAR21<REF(VAR21,1),5),VAR21+21,'大顶'),COLORCYAN{XG51};
DRAWTEXT(VAR22 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),VAR21+10,'危险'),COLOR0033FF{XG51};
DRAWTEXT(VAR22 AND FILTER(VAR21< REF(VAR21,1),6) AND CROSS(MA(CLOSE,5),MA(CLOSE,2)),VAR21+6,'注意止损'),COLORBLUE{XG51};
DRAWTEXT(FILTER(VAR21<-9 AND VAR21>REF(VAR21,1),18),1.8,'买票准备'){XG51};
MA5:=MA(CLOSE,5){XG51};
MA10:=MA(CLOSE,10){XG51};
MA20:=MA(CLOSE,20){XG51};
MA30:=MA(CLOSE,30){XG51};
MA250:=MA(CLOSE,250),COLORWHITE{XG51};
N1:=BArslAST(CROSS(MA5,MA10)){XG51};
N2:=BARSLAST(CROSS(MA10,MA5)){XG51};
多:=IF(N1<N2,N1+1,0){XG51};
空:=IF(N2<N1,N2+1,0){XG51};
QSXS:=MA5>MA20 AND MA10>MA20 AND MA20>REF(MA20,1) AND MA30>REF(MA30,1){XG51};
启动:=多*QSXS,COLORWHITE,LINETHICK0{XG51};
跑道:=空*QSXS,COLORFFFF00,LINETHICK0{XG51};
HKFJ:=HHV(多,5)>=2 AND QSXS AND MA5>REF(MA5,1) AND MA5>MA10{XG51};
空中拉升:HKFJ*多,COLOR000099,LINETHICK3{XG51};
HKSJ:=BARSLAST(空中拉升>0 AND NOT(REF(空中拉升,1)))+1{XG51};
高度:=(C/REF(C,HKSJ)-1)*100,COLOR00FFFF{XG51};
客机安全高度:高度,COLOR999999{XG51};
空中加油:IF(高度>0,高度,0),COLORWHITE,LINETHICK3{X_G^5.1_C_N_{};