{百分布林
顶级指标-百分布林
{股票公式www.fxjgsw.com}
DRAWGBKLAST(v>1,STRIP(RGB(90,90,90),RGB(00,0,0),0));
N:=5;
J0:=Ref(H,N)=HHV(H,2*N+1);
J1:=BackSet(J0,N+1);
J2:=Filter(J1,N) AND H=HHV(H,N+1);
J3:=Ref(L,N)=LLV(L,2*N+1);
J4:=BarStatus=2 AND Ref(J2,BarsLast(J2));
J5:=BackSet(J4,BarsLast(J2)+1);
J6:=J5>Ref(J5,1);
J7:=Ref(BarsLast(J2),1);
J8:=BackSet(J6,J7+2);
J9:=J8>Ref(J8,1);

K0:=Ref(L,N)=LLV(L,2*N+1);
K1:=BackSet(K0,N+1);
K2:=Filter(K1,N) AND L=LLV(L,N+1);
K3:=Ref(H,N)=HHV(H,2*N+1);
K4:=BarStatus=2 AND Ref(K2,BarsLast(K2));
K5:=BackSet(K4,BarsLast(K2)+1);
K6:=K5>Ref(K5,1);
K7:=Ref(BarsLast(K2),1);
K8:=BackSet(K6,K7+2);
K9:=K8>Ref(K8,1);
阻力１:Ref(H,BarsLast(J9)),ColorGreen,LineThick2;
阻力２:Ref(H,BarsLast(J6)),ColorBlue,LineThick2;

支撑１:Ref(L,BarsLast(K9)),ColorMagenta,LineThick2;
支撑２:Ref(L,BarsLast(K6)),ColorYellow,LineThick2;

钥匙:=1130131; 锁:=IF(DATE<=钥匙,1,0); T:=BARSSINCE(DATE>=940701);
HF:=HHV(H,T)*锁; FT:=BARSLAST(HF=H);
LG:=LLV(L,T)*锁; GT:=BARSLAST(LG=L); FG:=HF-LG;
XX6:=IF(GT>FT,HF-FG/16,C); 
XX12:=IF(GT>FT,HF-FG/8,C);  XX25:=IF(GT>FT,HF-FG/4,C); 
XX33:=IF(GT>FT,HF-FG/3,C);  XX37:=IF(GT>FT,HF-FG*3/8,C);
XX50:=IF(GT>FT,HF-FG/2,C);  XX62:=IF(GT>FT,HF-FG*5/8,C);
XX66:=IF(GT>FT,HF-FG*2/3,C);XX75:=IF(GT>FT,HF-FG*3/4,C);
XX87:=IF(GT>FT,HF-FG*7/8,C);XX94:=IF(GT>FT,HF-FG*0.948,C);

X6:IF(GT<FT,LG+FG/16,XX6),POINTDOT,COLORWHITE;
X12:IF(GT<FT,LG+FG/8,XX12),POINTDOT,COLORGREEN;
X25:IF(GT<FT,LG+FG/4,XX25),POINTDOT,COLORMAGENTA;
X33:IF(GT<FT,LG+FG/3,XX33),POINTDOT,COLORYELLOW;
X37:IF(GT<FT,LG+FG*3/8,XX37),POINTDOT,COLORBLUE;
X50:IF(GT<FT,LG+FG/2,XX50),POINTDOT,COLORRED;
X62:IF(GT<FT,LG+FG*5/8,XX62),POINTDOT,COLORBLUE;
X66:IF(GT<FT,LG+FG*2/3,XX66),POINTDOT,COLORYELLOW;
X75:IF(GT<FT,LG+FG*3/4,XX75),POINTDOT,COLORCYAN;
X87:IF(GT<FT,LG+FG*7/8,XX87),POINTDOT,COLORGREEN;
X94:IF(GT<FT,LG+FG*0.948,XX94),POINTDOT,COLORGRAY;
收盘:C,POINTDOT,COLORBLACK;

mm :  MA(CLOSE,26),COLORred;
hh: mm + 2*STD(CLOSE,26),COLORred;
ll: mm - 2*STD(CLOSE,26),COLORred;

B1:=REF(C,1);B2:=REF(C,2);
SS:=IF(C>REF(C,1) AND REF(C,1)>=REF(C,2),1,IF(C<REF(C,1) AND REF(C,1)<=REF(C,2),-1,IF(C>REF(C,2) AND REF(C,2)>REF(C,1),2,IF(C<REF(C,2) AND REF(C,2)<REF(C,1),-2,0))));
SM:=IF(REF(SS,1)<>0,REF(SS,1),IF(REF(SS,2)<>0,REF(SS,2),IF(REF(SS,3)<>0,REF(SS,3),IF(REF(SS,4)<>0,REF(SS,4),IF(REF(SS,5)<>0,REF(SS,5),IF(REF(SS,6)<>0,REF(SS,6),IF(REF(SS,7)<>0,REF(SS,7),0)))))));
mc:=IF(REF(SS,1)<>0,B2,IF(SM>0,MIN(B1,B2),MAX(B1,B2)));
STICKLINE(SS=1 OR SM>=1 AND SS=0,B1,C,4,1),COLORRED;
STICKLINE(SS=-1 OR SM<=-1 AND SS=0,B1,C,4,0),colorFF9000;
STICKLINE(SS=2,B2,C,4,1),COLORRED;
STICKLINE(SS=-2,B2,C,4,0),colorFF9000;
STICKLINE((SS=-1 OR SS=-2) AND SM>0,B2,B1,4,1),COLORRED;
STICKLINE((SS=1 OR SS=2) AND SM<0,B2,B1,4,0),colorFF9000;

上开:=o;
上高:=h;
上低:=l;
JJj:=(上开+上高+上低)/3;
AAAAA:=EMA(JJj,3);
PARTLINE(AAAAA,AAAAA>REF(AAAAA,1),RGB(255,50,0),AAAAA<REF(AAAAA,1),RGB(0,255,0));

{明日K线}
MRZY:=INTPART((((REF(H,1)-REF(L,1))*8/10)+C)*100)/100;
MRZS:=INTPART((C-((REF(H,1)-REF(L,1))*8/20))*100)/100;{//止赢止损}
DRAWTEXT(C>O AND BARSTATUS=2,MRZY,'  ￣￣'),COLORMAGENTA;
DRAWTEXT(C>O AND BARSTATUS=2,MRZS,'  ￣￣'),COLORMAGENTA;
DRAWTEXT(C<=O AND BARSTATUS=2,MRZY,'  ￣￣'),COLORCYAN;
DRAWTEXT(C<=O AND BARSTATUS=2,MRZS,'  ￣￣'),COLORCYAN;