通达信：手机版缠论画线指标源码

admin

{手机版缠论画线指标源码 }

N:=(0,1,1);

GZBPCA:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);

GZBPCB:=BACKSET(GZBPCA=0 AND REF(GZBPCA,1)=1,2);

GZBPCC:=IF(GZBPCB=1 AND REF(GZBPCB,1)=0,-1,0);

JBGDYXA:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);

JBGDYXB:=BACKSET(JBGDYXA=0 AND REF(JBGDYXA,1)=1,2);

JBGDYXC:=IF(JBGDYXB=1 AND REF(JBGDYXB,1)=0,1,0);

QKPD:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));

JQTG:=BARSLAST(JBGDYXC=1);

JQCX:=BARSLAST(GZBPCC=-1);

XZZQ:=LOWRANGE(L);

DZZQ:=TOPRANGE(H);

CYLAA:=IF(GZBPCC=-1 AND REF(JQTG,1)>REF(JQCX,1) AND LLV(L,JQTG+1)<REF(LLV(L,JQTG+1),1),-1,0);

CYLAB:=IF(GZBPCC=-1 AND REF(JQTG,1)<=REF(JQCX,1) AND (JQTG>=4 OR LLV(QKPD,JQTG)=-1 OR LLV(L,JQCX+2)<REF(LLV(L,JQCX+1),1)),-1,0);

CYLS:=IF((CYLAA=-1 OR CYLAB=-1) AND L<REF(H,JQTG+1),-1,0);

DTIME:=11;

A:=H=HHV(H,DTIME*5) AND HHV(H,DTIME*5)>REF(HHV(H,DTIME*5),1);

B:=L=LLV(L,DTIME*5) AND LLV(L,DTIME*5)<REF(LLV(L,DTIME*5),1);

CC1RAWLINE(A,H,B,L,0),LINETHICK2,COLOR3300FF;

CC2RAWLINE(B,L,A,H,0),LINETHICK2,COLOR3300FF;

YP:=IF((JQCX<4 AND HHV(QKPD,JQCX)=1) OR REF(CYLS,JQCX)=0,1,0);

PD:=IF(JBGDYXC=1 AND REF(JQCX,1)<=REF(JQTG,1) AND YP=1 AND DZZQ>REF(XZZQ,JQCX+1) AND DZZQ>REF(XZZQ,JQCX) AND DZZQ>REF(DZZQ,JQTG),1,0);

GBLA:=IF(JBGDYXC=1 AND REF(JQCX,1)>REF(JQTG,1) AND HHV(H,JQCX+1)>REF(HHV(H,JQCX+1),1),1,0);

GBLB:=IF(JBGDYXC=1 AND REF(JQCX,1)<=REF(JQTG,1) AND REF(CYLS,JQCX)=-1 AND (JQCX>=4 OR HHV(QKPD,JQCX)=1),1,0);

GBL:=IF((GBLA=1 OR GBLB=1 OR PD=1) AND H>REF(L,JQCX+1),1,0);

YPA:=IF((JQTG<4 AND HHV(QKPD,JQTG)!=1) OR REF(GBL,JQTG)=0,1,0);

PCZ:=IF(GZBPCC=-1 AND REF(JQTG,1)<=REF(JQCX,1) AND YPA=1 AND XZZQ>REF(DZZQ,JQTG+1) AND XZZQ>REF(DZZQ,JQTG) AND XZZQ>REF(XZZQ,JQCX),-1,0);

CYLA:=IF(GZBPCC=-1 AND REF(JQTG,1)>REF(JQCX,1) AND LLV(L,JQTG+1)<REF(LLV(L,JQTG+1),1),-1,0);

CYLB:=IF(GZBPCC=-1 AND REF(JQTG,1)<=REF(JQCX,1) AND (JQTG>=4 OR LLV(QKPD,JQTG)=-1 OR PCZ=-1),-1,0);

CYL:=IF((CYLA=-1 OR CYLB=-1) AND L<REF(H,JQTG+1),-1,0);

JQTGA:=BARSLAST(GBL=1);

JQDCZ:=BARSLAST(CYL=-1);

YPX:=IF((JQDCZ<4 AND HHV(QKPD,JQDCZ)=1) OR REF(CYL,JQDCZ)=0,1,0);

PDX:=IF(JBGDYXC=1 AND REF(JQDCZ,1)<=REF(JQTGA,1) AND YPX=1 AND DZZQ>REF(XZZQ,JQDCZ+1) AND DZZQ>REF(XZZQ,JQDCZ) AND DZZQ>REF(DZZQ,JQTGA),1,0);

GBLXA:=IF(JBGDYXC=1 AND REF(JQDCZ,1)>REF(JQTGA,1) AND HHV(H,JQDCZ+1)>REF(HHV(H,JQDCZ+1),1),1,0);

GBLXB:=IF(JBGDYXC=1 AND REF(JQDCZ,1)<=REF(JQTGA,1) AND REF(CYL,JQDCZ)=-1 AND (JQDCZ>=4 OR HHV(QKPD,JQDCZ)=1),1,0);

GBLX:=IF((GBLXA=1 OR GBLXB=1 OR PDX=1) AND H>REF(L,JQDCZ+1),1,0);

YPXA:=IF((JQTGA<4 AND HHV(QKPD,JQTGA)!=1) OR REF(GBLXA,JQTGA)=0,1,0);

PDXA:=IF(GZBPCC=-1 AND REF(JQTGA,1)<=REF(JQDCZ,1) AND YPXA=1 AND XZZQ>REF(DZZQ,JQTGA+1) AND XZZQ>REF(DZZQ,JQTGA) AND XZZQ>REF(XZZQ,JQDCZ),-1,0);

CYLXA:=IF(GZBPCC=-1 AND REF(JQTGA,1)>REF(JQDCZ,1) AND LLV(L,JQTGA+1)<REF(LLV(L,JQTGA+1),1),-1,0);

CYLXB:=IF(GZBPCC=-1 AND REF(JQTGA,1)<=REF(JQDCZ,1) AND (JQTGA>=4 OR LLV(QKPD,JQTGA)=-1 OR PDXA=-1),-1,0);

CYLX:=IF((CYLXA=-1 OR CYLXB=-1) AND L<REF(H,JQTGA+1),-1,0);

JQTGYA:=BARSLAST(GBLX=1);

JQCXYA:=BARSLAST(CYLX=-1);

YPYX:=IF((JQCXYA<4 AND HHV(QKPD,JQCXYA)=1) OR REF(CYLX,JQCXYA)=0,1,0);

PDYX:=IF(JBGDYXC=1 AND REF(JQCXYA,1)<=REF(JQTGYA,1) AND YPYX=1 AND DZZQ>REF(XZZQ,JQCXYA+1) AND DZZQ>REF(XZZQ,JQCXYA) AND DZZQ>REF(DZZQ,JQTGYA),1,0);

GBLYXA:=IF(JBGDYXC=1 AND REF(JQCXYA,1)>REF(JQTGYA,1) AND HHV(H,JQCXYA+1)>REF(HHV(H,JQCXYA+1),1),1,0);

GBLYXB:=IF(JBGDYXC=1 AND REF(JQCXYA,1)<=REF(JQTGYA,1) AND REF(CYLX,JQCXYA)=-1 AND (JQCXYA>=4 OR HHV(QKPD,JQCXYA)=1),1,0);

GBLYX:=IF((GBLYXA=1 OR GBLYXB=1 OR PDYX=1) AND H>REF(L,JQCXYA+1),1,0);

YPYXA:=IF((JQTGYA<4 AND HHV(QKPD,JQTGYA)=1) OR REF(GBLYXA,JQTGYA)=0,1,0);

PDYXA:=IF(GZBPCC=-1 AND REF(JQTGYA,1)<=REF(JQCXYA,1) AND YPYXA=1 AND XZZQ>REF(DZZQ,JQTGYA+1) AND XZZQ>REF(DZZQ,JQTGYA) AND XZZQ>REF(XZZQ,JQCXYA),-1,0);

CYLYXA:=IF(GZBPCC=-1 AND REF(JQTGYA,1)>REF(JQCXYA,1) AND LLV(L,JQTGYA+1)<REF(LLV(L,JQTGYA+1),1),-1,0);

CYLYXB:=IF(GZBPCC=-1 AND REF(JQTGYA,1)<=REF(JQCXYA,1) AND (JQTGYA>=4 OR LLV(QKPD,JQTGYA)=-1 OR PDYXA=-1),-1,0);

CYLYX:=IF((CYLYXA=-1 OR CYLYXB=-1) AND L<REF(H,JQTGYA+1),-1,0);

AAAD:=IF(GBLYX=1 AND CYLYX=-1 AND H>REF(H,REF(JQTGYA,1)+2),1,IF(GBLYX=1 AND CYLYX=-1 AND L<REF(L,REF(JQCXYA,1)+2),-1,0));

JCYL:=IF(AAAD=0,GBLYX+CYLYX,AAAD);

JBJD:IF(JCYL=-1,L*0.99,IF(JCYL=1,H*1.01,DRAWNULL)),CIRCLEDOT,COLORLIMAGENTA;

C1RAWLINE(JCYL=-1,JBJD,JCYL=1,JBJD,0),DOTLINE,COLORCYAN;

C2RAWLINE(JCYL=1,JBJD,JCYL=-1,JBJD,0),DOTLINE,COLORCYAN;

JD:=IF(N=1,C2=C1 AND JBGDYXA AND JCYL=1,DRAWNULL);

Μ×:=IF(N=1,C2=C1 AND GZBPCA AND JCYL=-1,DRAWNULL);

A1:=BARSLAST(JD);

B1:=CURRBARSCOUNT=CONST(A1)+1;

D1:=BARSLAST(B1);

SS1:=CONST(REF(H,D1));

A2:=REF(A1,A1+1)+A1+1;

B2:=CURRBARSCOUNT=CONST(A2)+1;

D2:=BARSLAST(B2);

SS2:=CONST(REF(H,D2));

A3:=REF(A2,A1+1)+A1+1;B3:=CURRBARSCOUNT=CONST(A3)+1;D3:=BARSLAST(B3);

SS3:=CONST(REF(H,D3));

CZ1:=BARSLAST(Μ×);CY1:=CURRBARSCOUNT=CONST(CZ1)+1;

CX1:=BARSLAST(CY1);

Μ1:=CONST(REF(L,CX1));

CZ2:=REF(CZ1,CZ1+1)+CZ1+1;

CY2:=CURRBARSCOUNT=CONST(CZ2)+1;CX2:=BARSLAST(CY2);

Μ2:=CONST(REF(L,CX2));

CZ3:=REF(CZ2,CZ1+1)+CZ1+1;

CY3:=CURRBARSCOUNT=CONST(CZ3)+1;

CX3:=BARSLAST(CY3);

Μ3:=CONST(REF(L,CX3));

SJXFCZ:=Μ1<Μ2 AND SS2>SS1 AND CZ2>A1 AND A1>CZ1 AND A2>CZ2 AND CONST(C)>Μ2;

GZBW1:=IF(SJXFCZ AND CONST(C)<SS1,CY2,DRAWNULL);

STICKLINE(GZBW1,CONST(C),Μ2,0,0),COLORLIMAGENTA;

GZBW2:=IF(SJXFCZ AND CONST(C)<SS1,ISLASTBAR,DRAWNULL);

STICKLINE(GZBW2,CONST(C),Μ2,0,0),COLORLIMAGENTA;

DRAWLINE(GZBW1=1,CONST(C),GZBW2=1,CONST(C),0),DOTLINE,COLORLIMAGENTA;

DRAWLINE(GZBW1=1,Μ2,GZBW2=1,Μ2,0),COLORLIMAGENTA;

{成立}

GZBWC1:=IF(SJXFCZ AND CONST(C)>=SS1,CY2,DRAWNULL);

STICKLINE(GZBWC1,SS1,Μ1,0,0),COLORLIMAGENTA;

GZBWC2:=IF(SJXFCZ AND CONST(C)>=SS1,ISLASTBAR,DRAWNULL);

STICKLINE(GZBWC2,SS1,Μ1,0,0),COLORLIMAGENTA;

DRAWLINE(GZBWC1=1,SS1,GZBWC2=1,SS1,0),COLORLIMAGENTA;

DRAWLINE(GZBWC1=1,Μ1,GZBWC2=1,Μ1,0),COLORLIMAGENTA;

SJXFCY:=Μ1>Μ2 AND SS1>SS2 AND CZ1>A1 AND A2>CZ1 AND CZ2>A2 AND CONST(C)<SS2;

ZSB1:=IF(SJXFCY AND CONST(C)>Μ1,B2,DRAWNULL);

STICKLINE(ZSB1,CONST(C),SS2,0,0),COLORLIGREEN;

ZSB2:=IF(SJXFCY AND CONST(C)>Μ1,ISLASTBAR,DRAWNULL);

STICKLINE(ZSB2,CONST(C),SS2,0,0),COLORLIGREEN;

DRAWLINE(ZSB1=1,SS2,ZSB2=1,SS2,0),COLORLIGREEN;

DRAWLINE(ZSB1=1,CONST(C),ZSB2=1,CONST(C),0),DOTLINE,COLORLIGREEN;

{成立}

ZSBC1:=IF(SJXFCY AND CONST(C)<=Μ1,B2,DRAWNULL);

STICKLINE(ZSBC1,SS2,Μ1,0,0),COLORLIGREEN;

ZSBC2:=IF(SJXFCY AND CONST(C)<=Μ1,ISLASTBAR,DRAWNULL);

STICKLINE(ZSBC2,SS2,Μ1,0,0),COLORLIGREEN;

DRAWLINE(ZSBC1=1,SS2,ZSBC2=1,SS2,0),COLORLIGREEN;

DRAWLINE(ZSBC1=1,Μ1,ZSBC2=1,Μ1,0),COLORLIGREEN;

SJXSLA:=Μ1>Μ2 AND SS2>SS1 AND CZ2>A1 AND A1>CZ1 AND A2>CZ2 AND CONST(C)>Μ1;

zbpcww1:=IF(SJXSLA AND CONST(C)<SS1,CY2,DRAWNULL);

STICKLINE(zbpcww1,CONST(C),Μ1,0,0),COLOR00CCFF;

zbpcww2:=IF(SJXSLA AND CONST(C)<SS1,ISLASTBAR,DRAWNULL);

STICKLINE(zbpcww2,CONST(C),Μ1,0,0),COLOR00CCFF;

DRAWLINE(zbpcww1=1,CONST(C),zbpcww2=1,CONST(C),0),DOTLINE,COLOR00CCFF;

DRAWLINE(zbpcww1=1,Μ1,zbpcww2=1,Μ1,0),COLOR00CCFF;

{成立}

zbpcwwC1:=IF(SJXSLA AND CONST(C)>=SS1,CY2,DRAWNULL);

STICKLINE(zbpcwwC1,SS1,Μ1,0,0),COLOR00CCFF;

zbpcwwC2:=IF(SJXSLA AND CONST(C)>=SS1,ISLASTBAR,DRAWNULL);

STICKLINE(zbpcwwC2,SS1,Μ1,0,0),COLOR00CCFF;

DRAWLINE(zbpcwwC1=1,SS1,zbpcwwC2=1,SS1,0),COLOR00CCFF;

DRAWLINE(zbpcwwC1=1,Μ1,zbpcwwC2=1,Μ1,0),COLOR00CCFF;

SJXSLB:=Μ1>Μ2 AND SS1<SS2 AND CZ1>A1 AND A2>CZ1 AND CZ2>A2 AND CONST(C)<SS1;

zbpc1:=IF(SJXSLB AND CONST(C)>Μ1,B2,DRAWNULL);

STICKLINE(zbpc1,CONST(C),SS1,0,0),COLORLICYAN;

zbpc2:=IF(SJXSLB AND CONST(C)>Μ1,ISLASTBAR,DRAWNULL);

STICKLINE(zbpc2,CONST(C),SS1,0,0),COLORLICYAN;

DRAWLINE(zbpc1=1,SS1,zbpc2=1,SS1,0),COLORLICYAN;

DRAWLINE(zbpc1=1,CONST(C),zbpc2=1,CONST(C),0),DOTLINE,COLORLICYAN;

{成立}

zbpcC1:=IF(SJXSLB AND CONST(C)<=Μ1,B2,DRAWNULL);

STICKLINE(zbpcC1,SS1,Μ1,0,0),COLORLICYAN;

zbpcC2:=IF(SJXSLB AND CONST(C)<=Μ1,ISLASTBAR,DRAWNULL);

STICKLINE(zbpcC2,SS1,Μ1,0,0),COLORLICYAN;

DRAWLINE(zbpcC1=1,SS1,zbpcC2=1,SS1,0),COLORLICYAN;

DRAWLINE(zbpcC1=1,Μ1,zbpcC2=1,Μ1,0),COLORLICYAN;

GZB3:=LLV(H,240);

GZB4:=100*(C-GZB3)/GZB3;

GZB5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;

GZB6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;

GZB7:=0;

GZB8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;

GZB9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;

GZB10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0);

GZB11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);

GZB12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

GZB13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);

GZB14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

GZB15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);

GZB16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

GZB17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);

GZB18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

GZB19:=EMA(C,2)-EMA(C,150);

建仓１:=GZB10;

建仓２:=(GZB11+GZB13+GZB15+GZB17);

卖１:=(GZB12+GZB14+GZB16+GZB18);

APP:=(VOL)/((H-L)*(2)-ABS(C-O));

ZL:=IF((H>O),(APP)*(H-L),IF((L<O),(APP)*(H-O+C-L),(VOL)/(2)));

SF:=IF((H>O),0-(APP)*(H-C+O-L),IF((L<O),0-(APP)*(H-L),0-(VOL)/(2)));

存量能量:=MA(ZL+SF,2);

存量平均:=MA(ZL+SF,5);

GET:=ZIG(3,5),COLORYELLOW,LINETHICK3;

PL5:=ZIG(3,5);

EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3);

EX1:=PL5<REF(PL5,1) AND REF(PL5,1)>=REF(PL5,2) AND REF(PL5,2)>=REF(PL5,3);

PL10:=ZIG(3,10);

EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3);

EX2:=PL10<REF(PL10,1) AND REF(PL10,1)>=REF(PL10,2) AND REF(PL10,2)>=REF(PL10,3);

PL20:=ZIG(3,20);

EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3);

EX3:=PL20<REF(PL20,1) AND REF(PL20,1)>=REF(PL20,2) AND REF(PL20,2)>=REF(PL20,3);

变强1:=BARSLAST(PL5<REF(PL5,1));

变弱1:=BARSLAST(PL5>REF(PL5,1));

变强2:=BARSLAST(PL10<REF(PL10,1));

变弱2:=BARSLAST(PL10>REF(PL10,1));

变强3:=BARSLAST(PL20<REF(PL20,1));

变弱3:=BARSLAST(PL20>REF(PL20,1));

GZBPCWZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,变强2),0);

GZBPCWD5:=IF(PL10>REF(PL10,1),COUNT(EX1,变强2),0);

DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,变弱2),0);

DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,变弱2),0);

GZBPCWZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,变强3),0);

GZBPCWD10:=IF(PL20>REF(PL20,1),COUNT(EX2,变强3),0);

DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,变弱3),0);

DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,变弱3),0);

【完】

如遇到问题，出错可到股指标官网下载tn6格式文件  www.guzhibiao.cn

---

声明：素材来源于网络或付费，仅供学习交流之用，无商业目的，指标不属于投资资讯产品，旨在辅助大家提高投资胜率，不构成投资建议或未来保证，依此操作买卖，盈亏自负。

最后：指标无私分享，喜欢朋友们记得点亮右下角的“再看”和“赞”，多多支持，多多分享