通达信正宗宝塔线指标公式

宝塔线指标又称TOWER(TWR)指标，它是一种重股价分析的中长期技术分析工具。应用趋势线的原理，引入支撑区和压力区的概念。它主要是将股价多空之间的争夺过程和力量的转变数值表现在图表中，借以研判未来股价的涨跌趋势及选择适当的买卖时机。

     相关简介:   通达信正宗宝塔线指标公式                              

     源码概况：通达信正宗宝塔线指标公式

　　指标类别：宝塔线指标公式

　　授权方式：免费版

　　指标评级：★★★★★

　　指标分类：策略

　　画线方法：副图

通达信正宗宝塔线指标公式未来函数检测结果:

         暂未发现存在未来函数

通达信正宗宝塔线指标公式源码：

    VAR1:=CLOSE>REF(CLOSE,1)ANDCLOSE>REF(CLOSE,2);
    VAR2:=REF(VAR1,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR3:=REF(VAR2,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR4:=REF(VAR3,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR5:=REF(VAR4,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR6:=REF(VAR5,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR7:=REF(VAR6,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR8:=REF(VAR7,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR9:=REF(VAR8,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VARA:=REF(VAR9,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VARB:=REF(VARA,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VARC:=REF(VARB,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBOR
    VARC,CLOSE,REF(CLOSE,1),1.5,0),COLORRED;
    VARD:=CLOSE<REF(CLOSE,1)ANDCLOSE<REF(CLOSE,2);
    VARE:=REF(VARD,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VARF:=REF(VARE,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR10:=REF(VARF,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR11:=REF(VAR10,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR12:=REF(VAR11,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR13:=REF(VAR12,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR14:=REF(VAR13,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR15:=REF(VAR14,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR16:=REF(VAR15,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    VAR17:=REF(VAR16,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);
    VAR18:=REF(VAR17,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);
    STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16OR
    VAR17ORVAR18,CLOSE,REF(CLOSE,1),1.5,0),COLORGREEN;
    VAR19:=REF(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16OR
    VAR17ORVAR18,1)ANDVAR1;
    STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),1.5,0),COLORGREEN;
    VAR1A:=REF(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,1)ANDVARD;
    STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),1.5,0),COLORRED;
    A:=IF(C<REF(C,1)ANDREF(C,1)<REF(C,2)ANDL<REF(L,1)ANDL>REF(L,2),REF(C,2),IF(C>REF(C,1),C,REF(C,1)));
    TOWER1:IF(VAR1A,REF(A,1),A),NODRAW;
    TOWER2:=IF(C<=REF(C,1),C,MIN(MIN(REF(C,2),REF(C,1)),MIN(REF(C,1),C))),NODRAW;
    {三平底:COUNT(TOWER2=REF(TOWER2,1),2)=2ANDVAR19,NODRAW;
    三平顶:COUNT(TOWER1=REF(TOWER1,1),2)=2ANDVAR1A,NODRAW;
    DRAWTEXT(三平顶,HIGH,'←平顶'),COLORYELLOW;
    DRAWTEXT(三平底,LOW,'←平底'),COLORMAGENTA;}{此段显示文字提示}
    INPUT:N(26,5,300),P(2,0.1,10);
    DRAWGBKLAST(C>0,STRIP(RGB(0,40,0),RGB(0,20,20),1)),LAYER0;
    X:=(3*C+L+O+H)/6;
    {2.BOLL}
    MID:MA(X,N),COLOR00FF00,DOTLINE;
    UPPER:MID+P*STD(X,N),COLOR0000FF,DOTLINE;
    LOWER:MID-P*STD(X,N),COLOR00FFFF,DOTLINE;
    收盘价格:C,POINTDOT;
    B0:=REF(C-O,2);B1:=REF(C,1);
    B2:=REF(C,2);B3:=REF(C,3);B4:=REF(C,4);
    CMAX:=MAX(MAX(MAX(C,B1),B2),B3);
    CMIN:=MIN(MIN(MIN(C,B1),B2),B3);
    STICKLINE(C=CMAXAND(B1>=B2ORB1>=B3)ORB1=CMAXAND(B2=CMINORB3=CMIN)ANDC>=B2OR
    B2=CMAXANDB3=CMINANDC>=B1ORB3=CMAXANDC>=B1ANDC>=B2,B1,C,5,0),COLORRED,LAYER0;
    STICKLINE(C=CMAXANDB1=CMIN,B2,C,5,0),COLORRED,LAYER0;
    STICKLINE(C=CMINAND(B1<B2ORB1<B3)ORB1=CMINAND(B2=CMAXORB3=CMAX)ANDC<B2OR
    B2=CMINANDB3=CMAXANDC<B1ORB3=CMINANDC<B1ANDC<B2,B1,C,5,0),COLORGREEN,LAYER0;
    STICKLINE(B1=CMAXANDC=CMIN,B2,C,5,0),COLORGREEN,LAYER0;
    STICKLINE(B1=CMINANDC>=B2OR(B2=CMINANDB1<=B3OR
    B3=CMINANDB1<=B2)ANDB2<B4ANDC>=B1,B1,B2,5,0),COLORGREEN,LAYER0;
    STICKLINE(B1=CMAXANDC<B2OR(B2=CMAXANDB1>B3OR
    B3=CMAXANDB1>B2)ANDB2>=B4ANDC<B1,B1,B2,5,0),COLORRED,LAYER0;
    MA5:MA(C,5),COLOR00FF00,DOTLINE;
    DD5:=MA5>REF(MA5,1);
    PARTLINE(MA5,DD5),COLOR0000FF,LINETHICK2;
    多空线:(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)
    +13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)
    +7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+
    REF(X,20))/210,COLORYELLOW,LINETHICK0;
    DD:=多空线<REF(多空线,1);
    PARTLINE(多空线,DD),COLORFFFFFF,DOTLINE;
    A:=(MA5>多空线);
    PARTLINE(多空线,A),COLORYELLOW,LINETHICK3;
    A1:=(MA5<多空线);
    PARTLINE(多空线,A1),COLORWHITE,DOTLINE;
    XP:=BARSLAST(DISPSTATUS=1)+1;
    E:=LLVALL(LLV(L,XP))*0.95;
    多空线M:EMA(多空线,3);
    多空:多空线M-REF(多空线M,1),LINETHICK0;;
    STICKLINE(多空>0,E+多空*5,E,18,0),COLOR0000FF;
    STICKLINE(多空<0,E+多空*5,E,18,0),COLOR00FF00;
    DRAWGBK(多空>0,STRIP(RGB(0,0,255),RGB(140,0,100),0)),LAYER0;
    FILLRGN(UPPER,MID,UPPER>MIDAND多空>0,RGB(40,0,100)),LAYER5;
    VERTLINE(CROSS(REF(WMA(C,18),1),WMA(C,18))AND多空>0,2),LAYER0,COLOR00FFFF;

[源码注释]通达信正宗宝塔线指标公式翻译结果

    VAR1赋值:收盘价>1日前的收盘价ANDCLOSE>2日前的收盘价
    VAR2赋值:1日前的VAR1ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR3赋值:1日前的VAR2ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR4赋值:1日前的VAR3ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR5赋值:1日前的VAR4ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR6赋值:1日前的VAR5ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR7赋值:1日前的VAR6ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR8赋值:1日前的VAR7ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR9赋值:1日前的VAR8ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VARA赋值:1日前的VAR9ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VARB赋值:1日前的VARAANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VARC赋值:1日前的VARBANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    当满足条件VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC时,在收盘价和1日前的收盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,画红色
    VARD赋值:收盘价<1日前的收盘价ANDCLOSE<2日前的收盘价
    VARE赋值:1日前的VARDANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VARF赋值:1日前的VAREANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR10赋值:1日前的VARFANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR11赋值:1日前的VAR10ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR12赋值:1日前的VAR11ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR13赋值:1日前的VAR12ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR14赋值:1日前的VAR13ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR15赋值:1日前的VAR14ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR16赋值:1日前的VAR15ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    VAR17赋值:1日前的VAR16ANDCLOSE<=1日前的收盘价ANDCLOSE>=2日前的收盘价
    VAR18赋值:1日前的VAR17ANDCLOSE>=1日前的收盘价ANDCLOSE<=2日前的收盘价
    当满足条件VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18时,在收盘价和1日前的收盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,画绿色
    VAR19赋值:1日前的VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18ANDVAR1
    当满足条件VAR19时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,画绿色
    VAR1A赋值:1日前的VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARCANDVARD
    当满足条件VAR1A时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,画红色
    A赋值:如果收盘价<1日前的收盘价ANDREF(收盘价,1)<2日前的收盘价ANDL<1日前的最低价ANDL>2日前的最低价,返回2日前的收盘价,否则返回如果收盘价>1日前的收盘价,返回收盘价,否则返回1日前的收盘价
    输出TOWER1:如果VAR1A,返回1日前的A,否则返回A,NODRAW
    TOWER2赋值:如果收盘价<=1日前的收盘价,返回收盘价,否则返回2日前的收盘价和1日前的收盘价的较小值和1日前的收盘价和收盘价的较小值的较小值,NODRAW
    输出INPUT:N(26,5,300),P(2,0.1,10)
    DRAWGBKLAST(收盘价>
    0,STRIP(自定色,自定色,1)),LAYER0
    X赋值:(3*收盘价+最低价+开盘价+最高价)/6
    输出MID:X的N日简单移动平均,COLOR00FF00,DOTLINE
    输出UPPER:MID+P*X的N日估算标准差,COLOR0000FF,DOTLINE
    输出LOWER:MID-P*X的N日估算标准差,COLOR00FFFF,DOTLINE
    输出收盘价格:收盘价,POINTDOT
    B0赋值:2日前的收盘价-开盘价
    B1赋值:1日前的收盘价
    B2赋值:2日前的收盘价
    B3赋值:3日前的收盘价
    B4赋值:4日前的收盘价
    CMAX赋值:收盘价和B1的较大值和B2的较大值和B3的较大值
    CMIN赋值:收盘价和B1的较小值和B2的较小值和B3的较小值
    当满足条件收盘价=CMAXAND(B1>时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
    =B2ORB1>
    =B3)ORB1=CMAXAND(B2=CMINORB3=CMIN)ANDC>
    =B2ORB2=CMAXANDB3=CMINANDC>
    =B1ORB3=CMAXANDC>
    =B1ANDC>
    =B2,B1,收盘价,5,0),画红色,LAYER0
    当满足条件收盘价=CMAXANDB1=CMIN时,在B2和收盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画红色,LAYER0
    当满足条件收盘价=CMINAND(B1<时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
    B2ORB1<
    B3)ORB1=CMINAND(B2=CMAXORB3=CMAX)ANDC<
    B2ORB2=CMINANDB3=CMAXANDC<
    B1ORB3=CMINANDC<
    B1ANDC<
    B2,B1,收盘价,5,0),画绿色,LAYER0
    当满足条件B1=CMAXANDC=CMIN时,在B2和收盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画绿色,LAYER0
    当满足条件B1=CMINANDC>时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
    =B2OR(B2=CMINANDB1<
    =B3ORB3=CMINANDB1<
    =B2)ANDB2<
    B4ANDC>
    =B1,B1,B2,5,0),画绿色,LAYER0
    当满足条件B1=CMAXANDC<时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
    B2OR(B2=CMAXANDB1>
    B3ORB3=CMAXANDB1>
    B2)ANDB2>
    =B4ANDC<
    B1,B1,B2,5,0),画红色,LAYER0
    输出MA5:收盘价的5日简单移动平均,COLOR00FF00,DOTLINE
    DD5赋值:MA5>
    1日前的MA5
    PARTLINE(MA5,DD5),COLOR0000FF,线宽为2
    输出多空线:(20*X+19*1日前的X+18*2日前的X+17*3日前的X+16*4日前的X+15*5日前的X+14*6日前的X+13*7日前的X+12*8日前的X+11*9日前的X+10*10日前的X+9*11日前的X+8*12日前的X+7*13日前的X+6*14日前的X+5*15日前的X+4*16日前的X+3*17日前的X+2*18日前的X+20日前的X)/210,画黄色,线宽为0
    DD赋值:多空线<
    1日前的多空线
    PARTLINE(多空线,DD),COLORFFFFFF,DOTLINE
    A赋值:(MA5>
    多空线)
    PARTLINE(多空线,A),画黄色,线宽为3
    A1赋值:(MA5<
    多空线)
    PARTLINE(多空线,A1),画白色,DOTLINE
    XP赋值:上次DISPSTATUS=1距今天数+1
    E赋值:LLVALL(XP日内最低价的最低值)*0.95
    输出多空线M:多空线的3日指数移动平均
    输出多空:多空线M-1日前的多空线M,线宽为0
    当满足条件多空>时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
    0,E+多空*5,E,18,0),COLOR0000FF
    当满足条件多空<时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
    0,E+多空*5,E,18,0),COLOR00FF00
    填充背景
    0,STRIP(自定色,自定色,0)),LAYER0
    FILLRGN(UPPER,MID,UPPER>
    MIDAND多空>
    0,自定色),LAYER5
    VERTLINE(1日前的收盘价的18日加权移动平均上穿收盘价的18日加权移动平均AND多空>
    0,2),LAYER0,COLOR00FFFF