黄金分割阻力与支撑主图指标公式

DRAWGBK(C>0, RGB(0,0,20),RGB(00,0,0),0,0,1);
DRAWKLINE(H,O,L,C);
GD:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,13),5),5+1),6);
DD:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,21),6),6),5);
DRAWLINE(DD,L,GD,H,0),COLORRED,LINETHICK2;
DRAWLINE(GD,H,DD,L,0),COLORGREEN;
J1:=BACKSET(CURRBARSCOUNT=2,MIN(BARSLAST(GD),BARSLAST(DD))+1);
J2:=J1>REF(J1,1);
DRAWTEXT_FIX(1,0.52,0,0,'☆微信公众号：(程序化指标)WWW.CXHZB.COM ☆'),COLORRED;
DRAWLINE(J2,IF(GD,H,L),CURRBARSCOUNT=2,IF(BARSLAST(GD)>BARSLAST(DD),H,L),0),DOTLINE,COLORWHITE;
DRAWTEXT(DD AND BARSLAST(GD)<BARSLAST(REF(DD,1)),L-0.1,'Ａ'),COLORRED;
DRAWTEXT(GD,H+0.1,'Ｂ'),COLORGREEN;
BO1:=12;
PLZ:=CONST(BARSLAST(CONST(FINDHIGH(H,0,25,1))=H))+1;
G25:CONST(IF(PLZ=1,H,REF(H,PLZ-1))),COLORGREEN,DOTLINE;
PLL:=CONST(BARSLAST(CONST(FINDLOW(L,0,100,1))=L))+1;
D100:CONST(IF(PLL=1,L,REF(L,PLL-1))),COLORGREEN,DOTLINE;
BDLV:=100*((G25-D100)/(IF(PLL>PLZ,D100,G25)))/(PLL-PLZ);
BPURC:=CONST(FINDHIGH(H,0,(IF(BO1>0,BO1,IF(PLZ<PLL,5,10)))*5,1));
BPLZ:=CONST(BARSLAST(BPURC=H))+1;
BQQT:=CONST(FINDLOW(L,0,(IF(BO1>0,BO1,IF(PLZ<PLL,5,10)))*5,1));
BPLL:=CONST(BARSLAST(BQQT=L))+1;
BLC_DING:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));
BLC_DI:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));
BASE:=IF(BDLV<0,BLC_DING,BLC_DI);
BLCZ:=(G25-D100)*(IF(PLL>PLZ,1,-1));
B12:=BASE+(BLCZ*1.382);
B200:=BASE+(BLCZ*2);
XZDD:=IF(PLL>PLZ,BPLL,BPLZ);
STICKLINE(CURRBARSCOUNT=XZDD,BASE,B200,0,0),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=XZDD,B12,'---------------------------------------------------------------Ｃ１'),COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=XZDD,B200,'--------------------------------------------------------------Ｃ３'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,B12,CON2STR(B12,2)),COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;
B121:=BASE+(BLCZ*0.775);
B2001:=BASE+(BLCZ*1);
XZDD1:=IF(PLL>PLZ,BPLL,BPLZ);
STICKLINE(CURRBARSCOUNT=XZDD1,BASE,B2001,0,0),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=XZDD1,B121,'---------------------------Ｃ１'),COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=XZDD1,B2001,'--------------------------Ｃ３'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,B121,CON2STR(B121,2)),COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=10,B2001,CON2STR(B2001,2)),COLORGREEN;