通达信粪发涂墙主图源码、说明
粪发涂墙【源码、主图、附图、说明】
说明：有末来函数，你认为可以就用，不可以不用。用不着指手画脚，真卵有本亊就做个给大家用！
以002517 002652 为例、如图所示：
K1:=IF(1=1,TROUGHBARS(2,1,1),PEAKBARS(1,1,1));
F1:=IF(1=1,PEAKBARS(1,1,1),TROUGHBARS(2,1,1));
K2:=BACKSET(ISLASTBAR,SUMBARS(K1=0,1));
F2:=BACKSET(ISLASTBAR,SUMBARS(F1=0,1));
P1:=IF(K2>0,1,-1);
P2:=IF(F2>0,1,-1);
PK1:=CROSS(P1,0);
PK2:=CROSS(P2,0);
KTONOW1:=BARSLAST(PK1)=0;
KTONOW2:=BARSLAST(PK2);
STICKLINE(PK1,HHV(H,240),LLV(L,240),0,0),COLORF08080;
STICKLINE(PK2,HHV(H,240),LLV(L,240),0,0),COLOR80F080;
HE:=IF(1=1,CONST(REF(H,KTONOW2)),CONST(REF(H,KTONOW1)));
LE:=IF(1=1,CONST(REF(L,KTONOW1)),CONST(REF(L,KTONOW2)));
LL:=HE-LE;
STICKLINE(REF(P2,1)>0 AND 1=1,LE+LL*0.236,LE+LL*0.236,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 1=1,LE+LL*0.382,LE+LL*0.382,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 1=1,LE+LL*0.5,LE+LL*0.5,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 1=1,LE+LL*0.618,LE+LL*0.618,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 1=1,LE+LL*0.764,LE+LL*0.764,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 1=1,HE,HE,1,0),COLORRED;
DRAWLINE(PK1 AND 1=1,L,PK2,H,1),COLORWHITE;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE+LL*0.191,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE+LL*0.382,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE+LL*0.5,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE-LL*0.191,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE-LL*0.382,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE-LL*0.5,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE-LL*0.618,1),COLOR808080;
DRAWLINE(PK1 AND 1=1,L,PK2 AND 1=1,HE-LL*0.809,1),COLOR808080;
STICKLINE(REF(P2,1)>0 AND 0=0,HE-LL*0.236,HE-LL*0.236,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 0=0,HE-LL*0.382,HE-LL*0.382,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 0=0,HE-LL*0.5,HE-LL*0.5,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 0=0,HE-LL*0.618,HE-LL*0.618,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 0=0,HE-LL*0.764,HE-LL*0.764,1,0),COLOR808000;
STICKLINE(REF(P2,1)>0 AND 0=0,LE,LE,1,0),COLORRED;
DRAWLINE(PK1 AND 0=0,H,PK2 AND 0=0,L,1),COLORWHITE;
DRAWLINE(PK1 AND 0=0,H,PK2 AND 0=0,(HE-LL*0.191),1),COLOR808080;
DRAWLINE(PK1 AND 0=0,H,PK2 AND 0=0,(HE-LL*0.382),1),COLOR808080;
DRAWLINE(PK1 AND 0=0,H,PK2 AND 0=0,(HE-LL*0.5),1),COLOR808080;
DRAWLINE(PK1 AND 0=0,H,PK2 AND 0=0,(HE-LL*0.618),1),COLOR808080;
DRAWLINE(PK1 AND 0=0,H,PK2 AND 0=0,(HE-LL*0.809),1),COLOR808080;
KO:=CLOSE;
KC:=REF(CLOSE,1);
STICKLINE(KO>KC,OPEN,LOW,0,0 ),COLOR2828FF;
STICKLINE(KO>KC,CLOSE,HIGH,0,0 ),COLOR2828FF;
STICKLINE(KO<=KC,CLOSE,LOW,0,0 ),COLORFFFF22;
STICKLINE(KO<=KC,OPEN,HIGH,0,0 ),COLORFFFF22;
STICKLINE(KO<=KC ,CLOSE ,OPEN,3,0 ),COLORCC6600;
STICKLINE(KO<=KC ,CLOSE ,OPEN,1,0 ),COLORFFFF11;
STICKLINE(KO>KC,CLOSE,OPEN,3,0 ),COLOR000099;
STICKLINE(KO>KC,CLOSE,OPEN,1,0 ),COLOR2828FF;
来函数检测结果如下：
该公式包含未来函数:PEAK
该公式包含未来函数:PEAKBARS
该公式包含未来函数:TROUGH
该公式包含未来函数:TROUGHBARS
该公式包含未来函数:BACKSET
定制、编写公式指标请联系QQ或微信同号：88652583
K1赋值:如果1=1,返回最低价1%之字转向的前1个波谷位置,否则返回最高价1%之字转向的前1个波峰位置
F1赋值:如果1=1,返回最高价1%之字转向的前1个波峰位置,否则返回最低价1%之字转向的前1个波谷位置
K2赋值:若是否最后一个周期则将最近K1=0累加至1的天数周期置为1
F2赋值:若是否最后一个周期则将最近F1=0累加至1的天数周期置为1
P1赋值:如果K2>0,返回1,否则返回-1
P2赋值:如果F2>0,返回1,否则返回-1
PK1赋值:P1上穿0
PK2赋值:P2上穿0
KTONOW1赋值:上次PK1距今天数=0
KTONOW2赋值:上次PK2距今天数
当满足条件PK1时,在240日内最高价的最高值和240日内最低价的最低值位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORF08080
当满足条件PK2时,在240日内最高价的最高值和240日内最低价的最低值位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR80F080
HE赋值:如果1=1,返回KTONOW2日前的最高价的最后一日取值设为常数,否则返回KTONOW1日前的最高价的最后一日取值设为常数
LE赋值:如果1=1,返回KTONOW1日前的最低价的最后一日取值设为常数,否则返回KTONOW2日前的最低价的最后一日取值设为常数
LL赋值:HE-LE
当满足条件1日前的P2>0AND1=1时,在LE+LL*0.236和LE+LL*0.236位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND1=1时,在LE+LL*0.382和LE+LL*0.382位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND1=1时,在LE+LL*0.5和LE+LL*0.5位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND1=1时,在LE+LL*0.618和LE+LL*0.618位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND1=1时,在LE+LL*0.764和LE+LL*0.764位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND1=1时,在HE和HE位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2时,在最高价位置画直线终点,1表示是否延长.,画白色
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE+LL*0.191位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE+LL*0.382位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE+LL*0.5位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE-LL*0.191位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE-LL*0.382位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE-LL*0.5位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE-LL*0.618位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND1=1时,在最低价位置画直线起点，当满足条件PK2AND1=1时,在HE-LL*0.809位置画直线终点,1表示是否延长.,COLOR808080
当满足条件1日前的P2>0AND0=0时,在HE-LL*0.236和HE-LL*0.236位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND0=0时,在HE-LL*0.382和HE-LL*0.382位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND0=0时,在HE-LL*0.5和HE-LL*0.5位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND0=0时,在HE-LL*0.618和HE-LL*0.618位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND0=0时,在HE-LL*0.764和HE-LL*0.764位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR808000
当满足条件1日前的P2>0AND0=0时,在LE和LE位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色
当满足条件PK1AND0=0时,在最高价位置画直线起点，当满足条件PK2AND0=0时,在最低价位置画直线终点,1表示是否延长.,画白色
当满足条件PK1AND0=0时,在最高价位置画直线起点，当满足条件PK2AND0=0时,在(HE-LL*0.191)位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND0=0时,在最高价位置画直线起点，当满足条件PK2AND0=0时,在(HE-LL*0.382)位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND0=0时,在最高价位置画直线起点，当满足条件PK2AND0=0时,在(HE-LL*0.5)位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND0=0时,在最高价位置画直线起点，当满足条件PK2AND0=0时,在(HE-LL*0.618)位置画直线终点,1表示是否延长.,COLOR808080
当满足条件PK1AND0=0时,在最高价位置画直线起点，当满足条件PK2AND0=0时,在(HE-LL*0.809)位置画直线终点,1表示是否延长.,COLOR808080
KO赋值:收盘价
KC赋值:1日前的收盘价
当满足条件KO>KC时,在开盘价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR2828FF
当满足条件KO>KC时,在收盘价和最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR2828FF
当满足条件KO<=KC时,在收盘价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFFF22
当满足条件KO<=KC时,在开盘价和最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFFF22
当满足条件KO<=KC时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORCC6600
当满足条件KO<=KC时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFFFF11
当满足条件KO>KC时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR000099
当满足条件KO>KC时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR2828FF
