测上升阻力通达信公式 主图 源码附图

HD:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,13),5),5+1),6);{高点}

LD:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,21),6),6),5);{低点}

DRAWLINE(LD,L,HD,H,0),COLORRED,LINETHICK2;

DRAWLINE(HD,H,LD,L,0),COLORGREEN;

{----------------------------------------------}

{A B C}

J1:=BACKSET(CURRBARSCOUNT=2 ,MIN(BARSLAST(HD),BARSLAST(LD))+1);

J2:=J1>REF(J1,1);

DRAWLINE(J2,IF(HD,H,L),CURRBARSCOUNT=2 ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),DOTLINE,COLORWHITE;

C点:=BARSLAST(LD);

DRAWTEXT(LD AND BARSLAST(HD)<BARSLAST(REF(LD,1)) ,L-0.1,'Ａ'),COLORRED;

DRAWTEXT(HD,H+0.1,'Ｂ'),COLORGREEN;

{25T高 100T低}

波1:=12;

PLZ:=CONST(BARSLAST(CONST(FINDHIGH(H,0,25,1))=H))+1;

{股票指标网  整理}

高25:CONST(IF(PLZ=1,H,REF(H,PLZ-1))),COLORGREEN,DOTLINE;

PLL:=CONST(BARSLAST(CONST(FINDLOW(L,0,100,1))=L))+1;

低100:CONST(IF(PLL=1,L,REF(L,PLL-1))),COLORGREEN,DOTLINE;

波动速率:=100*((高25-低100)/(IF(PLL>PLZ,低100,高25)))/(PLL-PLZ);

BPURC:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ<PLL,5,10)))*5,1));

BPLZ:=CONST(BARSLAST(BPURC=H))+1;

BQQT:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ<PLL,5,10)))*5,1));

BPLL:=CONST(BARSLAST(BQQT=L))+1;

BLC顶X:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));

BLC低X:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));

BASE:=IF(波动速率<0,BLC顶X,BLC低X);

BLCZ:=(高25-低100)*(IF(PLL>PLZ,1,-1));

B12:=BASE+(BLCZ*1.382);

B14:=BASE+(BLCZ*1.618);

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,B14,'---------------------------------------------------------------Ｃ２')COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=XZDD,B200,'--------------------------------------------------------------Ｃ３')COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,B12,CON2STR(B12,2)),COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=10,B14,CON2STR(B14,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;

{合第二个};

B121:=BASE+(BLCZ*0.775)COLORRED;

B141:=BASE+(BLCZ*0.868)COLORRED;

B2001:=BASE+(BLCZ*1)COLORRED;

XZDD1:=IF(PLL>PLZ,BPLL,BPLZ);

STICKLINE(CURRBARSCOUNT=XZDD1 ,BASE,B2001,0,0),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=XZDD1,B121,'---------------------------Ｃ１')COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=XZDD1,B141,'---------------------------Ｃ２')COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=XZDD1,B2001,'--------------------------Ｃ３')COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,B121,CON2STR(B121,2)),COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=10,B141,CON2STR(B141,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,B2001,CON2STR(B2001,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,B2001,CON2STR(B2001,2)),COLORGREEN;

 

原理解析：
HD赋值:FILTER(BACKSET(FILTER(5日前的H=13日内H最高值,5),5+1),6)
{高点}
LD赋值:FILTER(BACKSET(FILTER(5日前的L=21日内L最低值,6),6),5)
{低点}
DRAWLINE(LD,L,HD,H,0),画红色, 线宽为2
DRAWLINE(HD,H,LD,L,0),画绿色
{----------------------------------------------}
{A B C}
J1赋值:BACKSET( 到最后交易的周期=2 ,MIN(上次HD距今天数,BARSLAST(LD))+1)
J2赋值:J1>1日前的J1
如果HD返回H否则返回L
C点赋值:上次LD距今天数
DRAWTEXT(LD AND 上次HD距今天数当满足条件HD时,在H+0.1和'Ｂ'位置书写文字
{25T高 100T低}
波1赋值:12
PLZ赋值:CONST(上次CONST(FIND最高价(H,0,25,1距今天数)=H))+1
输出{股票指标网 整理}
高25:CONST(IF(PLZ=1,H,PLZ-1日前的H)),画绿色,DOTLINE
PLL赋值:CONST(上次CONST(FIND最低价(L,0,100,1距今天数)=L))+1
输出低100:CONST(IF(PLL=1,L,PLL-1日前的L)),画绿色,DOTLINE
如果PLL>PLZ返回低100否则返回高25
BPURC赋值:CONST(FIND最高价(H,0,(IF(波1>0,波1,IF(PLZ BPLZ赋值:CONST(上次BPURC=H距今天数)+1
BQQT赋值:CONST(FIND最低价(L,0,(IF(波1>0,波1,IF(PLZ BPLL赋值:CONST(上次BQQT=L距今天数)+1
BLC顶X赋值:CONST(IF(BPLZ=1,H,BPLZ-1日前的H))
BLC低X赋值:CONST(IF(BPLL=1,L,BPLL-1日前的L))
如果波动速率<0返回BLC顶X否则返回BLC低X
如果PLL>PLZ返回1否则返回-1
B12赋值:BASE+(BLCZ*1.382)
B14赋值:BASE+(BLCZ*1.618)
B200赋值:BASE+(BLCZ*2)
如果PLL>PLZ返回BPLL否则返回BPLZ
当满足条件 到最后交易的周期=XZDD 时,在BASE和B200之间画柱状线
当满足条件 到最后交易的周期=XZDD时,在B12和'---------------------------------------------------------------Ｃ１'位置书写文字
当满足条件 到最后交易的周期=XZDD时,在B14和'---------------------------------------------------------------Ｃ２'位置书写文字
当满足条件 到最后交易的周期=XZDD时,在B200和'--------------------------------------------------------------Ｃ３'位置书写文字
DRAWTEXT( 到最后交易的周期=10,B12,CON2STR(B12,2)),COLORC0FF7F
DRAWTEXT( 到最后交易的周期=10,B14,CON2STR(B14,2)),画黄色
DRAWTEXT( 到最后交易的周期=10,B200,CON2STR(B200,2)),画绿色
DRAWTEXT( 到最后交易的周期=10,B200,CON2STR(B200,2)),画绿色
{合第二个}
B121:=BASE+(BLCZ*0.775)画红色
B141:=BASE+(BLCZ*0.868)画红色
B2001:=BASE+(BLCZ*1)画红色
如果PLL>PLZ返回BPLL否则返回BPLZ
当满足条件 到最后交易的周期=XZDD1 时,在BASE和B2001之间画柱状线
当满足条件 到最后交易的周期=XZDD1时,在B121和'---------------------------Ｃ１'位置书写文字
当满足条件 到最后交易的周期=XZDD1时,在B141和'---------------------------Ｃ２'位置书写文字
当满足条件 到最后交易的周期=XZDD1时,在B2001和'--------------------------Ｃ３'位置书写文字
DRAWTEXT( 到最后交易的周期=10,B121,CON2STR(B121,2)),COLORC0FF7F
DRAWTEXT( 到最后交易的周期=10,B141,CON2STR(B141,2)),画黄色
DRAWTEXT( 到最后交易的周期=10,B2001,CON2STR(B2001,2)),画绿色
DRAWTEXT( 到最后交易的周期=10,B2001,CON2STR(B2001,2)),画绿色