|
INPUT:N(1,0,1),P(1,0,1),P1(1,0,1),M(1,0,1),Y(1,0,1),W(1,0,1);;
{K线}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,8,0),colorred;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,8,0),colorcyan;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,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 ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
{卖黄金,RSI=80}
LC:=REF(C,1);
卖黄金:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
STICKLINE(CROSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00ffff,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,9,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;
Y5:EMA(CYC(3),5),COLORFFFFFF,LINETHICK1;
PARTLINE(Y5 ,(Y5>REF(Y5,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK2,LAYER0;
IF N=1 THEN BEGIN
{1.成本线A}
CYC1:COST(1),COLORFF66CC;
CYC5:COST(5),COLORFF00CC;
CYC13:COST(13),COLOR00CCCC;
CYC34:COST(34),COLOR00DEEE;
CYC55:COST(55),COLOR00ACCC,LINETHICK2;
CYC79:COST(79),COLORAACC22;
CYC95:COST(95),COLORGREEN;
END
IF P=1 THEN BEGIN
{2.成本线B}
cyc5B:CYC(5),DOTLINE;
cyc13B:cyc(13),DOTLINE;
cyc34B:cyc(34),DOTLINE;
cyc55B:cyc(55),DOTLINE;
cyc89B:cyc(89),DOTLINE;
cyc144B:cyc(144),DOTLINE;
cyc0B:MAXCYC,colorff9900,DOTLINE;
END
{3.均线A}
IF P1=1 THEN BEGIN
MA5:MA(CLOSE,5),COLOR0000ff;
MA10:MA(CLOSE,10),COLOR00ffff;
MA20:MA(CLOSE,20),COLORff00ff;
MA30:MA(CLOSE,30),COLORff99ff;
MA60:MA(CLOSE,60),COLOR00ff00;
MA120:MA(CLOSE,120),COLORff9900;
END
{4.均线B}
IF M=1 THEN BEGIN
MA3B:MA(CLOSE,3);
MA5B:MA(CLOSE,5);
MA8B:MA(CLOSE,8);
MA13B:MA(CLOSE,13);
MA21B:MA(CLOSE,21);
MA34B:MA(CLOSE,34);
MA55B:MA(CLOSE,55);
MA89B:MA(CLOSE,89);
MA144B:MA(CLOSE,144);
END
{5.黄金比}
IF Y=1 THEN BEGIN
X:=BARSLAST(DISPSTATUS=1)+1;
ah:=hhvall(hhv(h,X));
al:=llvall(llv(l,X));
nnl:=DISPSTATUS=2;
ahl:=ah-al;
q191:=al+ahl*0.191;
q382:=al+ahl*0.382;
q500:=al+ahl*0.500;
q618:=al+ahl*0.618;
q809:=al+ahl*0.809;
DRAWTEXT(nnl,ah,'￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR0000ff;
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ffff;
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,al,'￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ff00;
{www.gupang.com 股旁网_大智慧股票指标公式}
DRAWTEXT(nnl,ah*0.998,'最高.'+ah+''),ALIGN0,Color0047FF,LINETHICK1;
DRAWTEXT(nnl,q809,'80.9%.' +q809+''),ALIGN0,Color00FFff,LINETHICK1;
DRAWTEXT(nnl,q618,'61.8%.'+q618+''),ALIGN0,Color0047FF,LINETHICK1;
DRAWTEXT(nnl,q500,'50%.'+q500+''),ALIGN0,Color00FFff,LINETHICK1;
DRAWTEXT(nnl,q382,'38.2%.'+q382+''),ALIGN0,Color0047FF,LINETHICK1;
DRAWTEXT(nnl,q191,'19.1%.'+q191+''),ALIGN0,Color00FFff,LINETHICK1;
DRAWTEXT(nnl,al*1.01,'最低.'+al+''),ALIGN0,VALIGN2,Color0047FF,LINETHICK1;
END;
IF W=1 THEN BEGIN
{6.BOLL}
BBI:=(3*C+H+L)/5;
MID:EMA(BBI,26),COLOR00ff00,DOTLINE;
UPPER:MID+2*STD(BBI,26),COLORRED,DOTLINE;
LOWER:MID-2*STD(BBI,26),COLORFF9900,DOTLINE;
END;
202108211232.jpg
|
