通达信操盘小试副图指标 源码 贴图

GL:=IF(NAMELIKE('ST') OR NAMELIKE('*ST'),0,1) AND IF(CODELIKE('688'),0,1);
JJ:=(H+L+C)/3;{股票下载网WWW.GPXIAZAI.COM}
AD0:=VOL/IF(H=L,4,H-L);
J:="KDJ.J";
AD1:=IF(CAPITAL=0,AD0*(JJ-MIN(C,O)),AD0*(MIN(O,C)-L));
AD2:=IF(CAPITAL=0,AD0*(MIN(O,C)-L),AD0*(JJ-MIN(C,O)));
AD3:=AD0*(H-MAX(O,C));
AD4:=AD0*(MAX(C,O)-JJ);
AD5:=AD1+AD2;
AD6:=AD3+AD4;
YF:=(AD5-AD6)/(AD5+AD6)*100;
YF1:=((AD1+AD2)-(AD3+AD4))/SUM(VOL,10)*100;
YF2:=YF*17;
YF3:=((AD2+AD4)-(AD1+AD3))/SUM(VOL,10)*100;
XG1:=CROSS(J,0) AND ((YF1>0 AND YF3>0) OR YF2>400);
VAR1:=LLV(LOW,13);
VAR2:=HHV(HIGH,13);
VAR3:=SMA((CLOSE-VAR1)/(VAR2-VAR1)*100,5,1);
VAR4:=SMA((VAR2-CLOSE)/(VAR2-VAR1)*100,5,1);
VAR5:=SMA(MAX(CLOSE-REF(CLOSE,1),0),5,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),5,1)*100;
XG2:=CROSS(EMA(VAR5,3), VAR3) AND VAR4>65;
XG3:=CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
XG4:=MACD>REF(MACD,1);
XG:=XG1 AND XG2 AND XG3 AND C>REF(C,1) AND GL AND XG4;
{-----------------------------------------}
STICKLINE(XG=1,0,1,4.0,0),COLORFFBBFF;
STICKLINE(XG=1,0,1,3.5,0),COLORFF00FF;
STICKLINE(XG=1,0,1,3.0,0),COLORFF22FF;
STICKLINE(XG=1,0,1,2.5,0),COLORFF44FF;
STICKLINE(XG=1,0,1,2.0,0),COLORFF66FF;
STICKLINE(XG=1,0,1,1.5,0),COLORFF88FF;
STICKLINE(XG=1,0,1,1.0,0),COLORFF99FF;
STICKLINE(XG=1,0,1,0.5,0),COLORFFAAFF;
{----------------------------------------}
DRAWTEXT(XG=1,0.8,' 小试'),COLORYELLOW;