大智慧宝塔线主图指标公式程序源码编程思路破译

编程思路破译

输出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>=B2ORB1>=B3)ORB1=CMAXAND(B2=CMINORB3=CMIN)ANDC>=B2ORB2=CMAXANDB3=CMINANDC>=B1ORB3=CMAXANDC>=B1ANDC>=B2时,在B1和收盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画红色,LAYER0

当满足条件收盘价=CMAXANDB1=CMIN时,在B2和收盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画红色,LAYER0

当满足条件收盘价=CMINAND(B1<B2ORB1<B3)ORB1=CMINAND(B2=CMAXORB3=CMAX)ANDC<B2ORB2=CMINANDB3=CMAXANDC<B1ORB3=CMINANDC<B1ANDC<B2时,在B1和收盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画绿色,LAYER0

当满足条件B1=CMAXANDC=CMIN时,在B2和收盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画绿色,LAYER0

当满足条件B1=CMINANDC>=B2OR(B2=CMINANDB1<=B3ORB3=CMINANDB1<=B2)ANDB2<B4ANDC>=B1时,在B1和B2位置之间画柱状线,宽度为5,0不为0则画空心柱.,画绿色,LAYER0

当满足条件B1=CMAXANDC<B2OR(B2=CMAXANDB1>B3ORB3=CMAXANDB1>B2)ANDB2>=B4ANDC<B1时,在B1和B2位置之间画柱状线,宽度为5,0不为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时,在E+多空*5和E位置之间画柱状线,宽度为18,0不为0则画空心柱.,COLOR0000FF

当满足条件多空<0时,在E+多空*5和E位置之间画柱状线,宽度为18,0不为0则画空心柱.,COLOR00FF00

填充背景,LAYER0

FILLRGN(UPPER,MID,UPPER>MID AND 多空>0,自定色),LAYER5

VERTLINE(1日前的收盘价的18日加权移动平均上穿收盘价的18日加权移动平均 AND 多空>0,2),LAYER0,COLOR00FFFF

程序源码

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=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND C>=B2 OR

B2=CMAX AND B3=CMIN AND C>=B1 OR B3=CMAX AND C>=B1 AND C>=B2,B1,C,5,0),COLORRED,LAYER0;

STICKLINE(C=CMAX AND B1=CMIN,B2,C,5,0),COLORRED,LAYER0;

STICKLINE(C=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND C<B2 OR

B2=CMIN AND B3=CMAX AND C<B1 OR B3=CMIN AND C<B1 AND C<B2,B1,C,5,0),COLORGREEN,LAYER0;

STICKLINE(B1=CMAX AND C=CMIN,B2,C,5,0),COLORGREEN,LAYER0;

STICKLINE(B1=CMIN AND C>=B2 OR (B2=CMIN AND B1<=B3 OR

B3=CMIN AND B1<=B2) AND B2<B4 AND C>=B1,B1,B2,5,0),COLORGREEN,LAYER0;

STICKLINE(B1=CMAX AND C<B2 OR (B2=CMAX AND B1>B3 OR

B3=CMAX AND B1>B2) AND B2>=B4 AND C<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>MID AND 多空>0,RGB(40,0,100)),LAYER5;

VERTLINE(CROSS(REF(WMA(C,18),1),WMA(C,18)) AND 多空>0,2),LAYER0,COLOR00FFFF;