上升阻力划线自动划线指标通达信公式 主图 源码附图

原理解析：
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)),画绿色