INPUT:AM(1,0,1),AJ(1,0,1),ac(1,0,1),AR(1,0,1),AD(1,0,1),DM(1,0,1),ZL(1,0,1);
DRAWGBKlast(c>0,strip(RGB(0,0,0),RGB(0,0,120),0));
{1.k线}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8.5,0) ,COLOR000011;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000033;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000DD;
STICKLINE((CLOSE >= OPEN),HIGH,LOW,1,0),color0000FF;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8.5,0),color006600;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),color008800;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),color00AA00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),color00BB00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,4,0),color00CC00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3,0),color00DD00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,2,0),color00EE00;
STICKLINE((OPEN > CLOSE),HIGH,LOW,1,0),color00FF00;
LC:=REF(C,1);
卖黄金:((SMA(MAX((C - LC),0),3,1) / SMA(Abs((C - LC)),3,1)) * 100),LINETHICK0;
DRAWTEXT(crOSS(80,卖黄金) ,high*1.04,'顶'),COLOR00ffFF,ALIGN1,LINETHICK1;
STICKLINE(CROSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00ffff,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,12,0 ),COLOR007777,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,2 ,0 ),COLOR00ffff,LAYER0;
DRAWTEXTABS(5,5,'基本指标:MA5波段'),Color00FFff,LINETHICK3;
BC:=(3*C+H+L)/5;
MA5:EMA(MA(BC,5),5);
PARTLINE(MA5,(MA5>REF(MA5,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK2,LAYER0;
XL:=BArslAST(DISPSTATUS=1)+1;
E:=llvall(llv(L,XL))*0.95;
IF AM=1 THEN BEGIN
DRAWTEXTABS(250,5,'技术指标:macd'),Color0000ff,LINETHICK4;
DIFF:=EMA( EMA(CLOSE,12) - EMA(CLOSE,26),3);
DEA:=EMA(DIFF,9);
MACD:2*(DIFF-DEA),Color0598FF,LINETHICK0;;
STICKLINE(MACD>0,E+MACD*2,E,12,0),Color0598FF;
STICKLINE(MACD<0,E+MACD*2,E,12,0),ColorFF5500;
END;
IF AJ=1 THEN BEGIN
DRAWTEXTABS(250,5,'技术指标:kdj'),Colorff00ff,LINETHICK4;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:(3*K-2*D),Color05FFFF,LINETHICK0;
if(CROSS(K,D) AND BARSLAST(CROSS(D,K))<3,E*1.09,E),ColorFF9910 ;
STICKLINE(K>D,E+(K-D)/50,E,12,0),Color0000FF;
STICKLINE(K<D,E+(K-D)/50,E,12,0),Color00FF00;
END;
IF AC=1 THEN BEGIN
DRAWTEXTABS(200,5,'指标:cci'),Color00ffff,LINETHICK4;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),Color05FF00,LINETHICK0;;
STICKLINE(CCI>0,E+CCI/350,E,12,0),Color0077FF;
STICKLINE(CCI<0,E+CCI/350,E,12,0),ColorFF9900;
END;
IF AR=1 THEN BEGIN
DRAWTEXTABS(250,5,'技术指标:rsi'),Color00ff00,LINETHICK4;
LC := REF(CLOSE,1);
RSI:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100,ColorFF05FF,LINETHICK0;
CRSI:="RSI.RSI3#WEEK";
金叉RSI:STICKLINE(CROSS("RSI.RSI2#WEEK","RSI.RSI3#WEEK"),E,E*1.1,0.6,0),ColorFF00FF;
DRAWTEXT(CROSS("RSI.RSI2#WEEK","RSI.RSI3#WEEK"),E*1.1,'金叉'),COLOR0000FF;
STICKLINE(RSI>CRSI,E+(RSI-CRSI)/50,E,12,0),Color0000FF;
STICKLINE(RSI<CRSI,E+(RSI-CRSI)/50,E,12,0),Color00FF00;
VAR1:=(CLOSE*2+HIGH+LOW)/4;
SK:=EMA(VAR1,13)-EMA(VAR1,73);
SD:=EMA(SK,2);
XG:=((CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 )
OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)) OR 金叉RSI);
STICKLINE(XG,E,E*1.15,0.6,0),COLOR00FFFF;
DRAWTEXT(XG,E*1.15,'突破'),COLOR00FFBB;
END;
IF AD=1 THEN BEGIN
{dmi新编}
DRAWTEXTABS(250,5,'技术指标:DMI'),Color0598ff,LINETHICK4;
N:=21;M:=6;M1:=20;
TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N);
pdi:= DMP*100/TR1;
mdi:DMM*100/TR1,Color05FFFF,LINETHICK0;
ADX:= EMA((PDI-MDI)/(MDI+PDI)*100,M)*2;
ADXR:=EMA(ADX,M);
ADMA:=EMA(ADX,M1);
OMD:=(ADX-2*ADMA+ADXR)/2;
{ _大智慧股票指标公式}
STICKLINE( OMD>0,E,E+OMD/100,12,0),COLORRED;
STICKLINE(OMD<0,E,E+OMD/100,12,0),COLORGREEN;
END;
IF DM=1 THEN BEGIN
DRAWTEXTABS(250,5,'技术指标:DMA'),ColorFF55ff,LINETHICK4;
DDD:=(MA(CLOSE,10)-MA(CLOSE,50));
AMA:=MA(DDD,10);
STICKLINE( DDD>AMA,E,E+(DDD-AMA),12,0),COLORFF22FF;
STICKLINE(DDD<AMA,E,E+(DDD-AMA),12,0),COLOR99FF99;
END;
IF ZL=1 THEN BEGIN
DRAWTEXTABS(250,5,'技术指标:主力进出'),ColorFF55ff,LINETHICK4;
jcs:=ZLSHORT;
jcm:=ma(zlshort ,12);
STICKLINE(jcs>jcm,E,E+(jcs-jcm)/CAPITAL*5000,12,0),COLOR222299;
STICKLINE(jcs<jcm,E,E+(jcs-jcm)/CAPITAL*5000,12,0),COLORFFee00;
END;
