大智慧心悦诚服E主图指标公式程序源码编程思路破译

编程思路破译

输出INPUT:N(26,5,300),P(2,0.1,10)

当满足条件收阳线时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000FF,LAYER3

当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR0022FF,LAYER6

当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR0598DD,LAYER3

当满足条件开盘价>=收盘价时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FF00,LAYER3

当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR00FF00,LAYER6

当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORFF0000,LAYER3

BBI赋值:(2*收盘价+最高价+最低价)/4

输出MID : BBI的N日简单移动平均 ,COLOR00FF00,DOTLINE

输出UPPER: MID + P*BBI的N日估算标准差 ,COLOR0000FF,DOTLINE

输出LOWER: MID - P*BBI的N日估算标准差 ,COLOR00FFFF,DOTLINE

输出A:(8*BBI+7*1日前的BBI+6*2日前的BBI+5*3日前的BBI+4*4日前的BBI+3*5日前的BBI+2*6日前的BBI+1*7日前的BBI)/36,COLOR00FFFF,线宽为1

B赋值:3日前的A的5日平滑移动平均

CG赋值:(A-B)

X赋值:上次DISPSTATUS=1距今天数+1

E赋值:LLVALL(X日内最低价的最低值)*0.95

当满足条件CG>=0时,在E+(CG)*2和E位置之间画柱状线,宽度为12,0不为0则画空心柱.,COLOR0000FF,LAYER3

当满足条件CG<0时,在E+(CG)*2和E位置之间画柱状线,宽度为12,0不为0则画空心柱.,COLORFF9900,LAYER3

填充背景,LAYER0

FILLRGN(UPPER,MID,UPPER>MID AND CG>0 AND 收盘价的2日简单移动平均> MID,自定色),LAYER5

FILLRGN(UPPER,LOWER,UPPER>LOWER ,自定色),LAYER7

AL赋值:A日内CG的最低值

FL赋值:CG上穿AL的5日过滤

画图片,ALIGN1,VALIGN0,LAYER0

PARTLINE(UPPER ,UPPER AND CG>0 AND 收盘价的2日简单移动平均> MID,自定色),线宽为3,LAYER0

PARTLINE(MID ,MID AND CG>0 AND 收盘价的2日简单移动平均> MID,自定色),线宽为3,LAYER0

VERTLINE(1日前的BBI的20日指数移动平均上穿BBI的20日指数移动平均 AND CG>0 ,2),LAYER0,COLOR00FFFF

PK赋值:0上穿CG AND CG<0 AND 收盘价的5日简单移动平均>MID

当满足条件PK时,在LOWER*0.999位置书写文字,LAYER3,ALIGN1,COLOR0000FF,线宽为2

当满足条件PK时,在LOWER*0.981位置书写文字,LAYER0,ALIGN1,COLOR00FFFF,线宽为1

当满足条件PK时,在LOWER*0.963位置书写文字,LAYER0,ALIGN1,COLOR00FFCC,线宽为1

当满足条件PK时,在LOWER*0.946位置书写文字,LAYER0,ALIGN1,COLOR00FFAA,线宽为1

当满足条件PK时,在LOWER*0.929位置书写文字,LAYER0,ALIGN1,COLOR00FF77,线宽为1

当满足条件PK时,在LOWER*0.912位置书写文字,LAYER0,ALIGN1,COLOR00FF00,线宽为1

当满足条件收盘价>OPENANDCG>=0时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000FF

当满足条件开盘价>=CLOSEANDCG>=0时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FF00

当满足条件开盘价>=CLOSEANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为9,0不为0则画空心柱.,COLOR006600

当满足条件开盘价>=CLOSEANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR009900

当满足条件开盘价>=CLOSEANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR00BB00

当满足条件开盘价>=CLOSEANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00DD00

当满足条件开盘价>=CLOSEANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00FF00

当满足条件收盘价>OPENANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为9,0不为0则画空心柱. ,COLOR000466

当满足条件收盘价>OPENANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱. ,COLOR000499

当满足条件收盘价>OPENANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱. ,COLOR0003BB

当满足条件收盘价>OPENANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱. ,COLOR0002DD

当满足条件收盘价>OPENANDCG>=0时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱. ,COLOR0001FF

程序源码

INPUT:N(26,5,300),P(2,0.1,10);

STICKLINE(OPEN<CLOSE ,H ,L,0.5,0 ),COLOR0000FF,LAYER3;

STICKLINE(OPEN<CLOSE ,CLOSE ,OPEN,8,0 ),COLOR0022FF,LAYER6;

STICKLINE(OPEN<CLOSE ,CLOSE ,OPEN,5,0 ),COLOR0598DD,LAYER3;

STICKLINE(OPEN>=CLOSE ,H ,L,0.5,0 ),COLOR00FF00,LAYER3;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR00FF00,LAYER6;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORFF0000,LAYER3;

{1.BBI}

BBI:=(2*C+H+L)/4;

{2.BOLL}

MID : MA(BBI,N) ,COLOR00FF00,DOTLINE;

UPPER: MID + P*STD(BBI,N) ,COLOR0000FF,DOTLINE;

LOWER: MID - P*STD(BBI,N) ,COLOR00FFFF,DOTLINE;

{3.持股}

A:(8*BBI+7*REF(BBI,1)+6*REF(BBI,2)+5*REF(BBI,3)+4*REF(BBI,4)+3*REF(BBI,5)+2*REF(BBI,6)

+1*REF(BBI,7))/36,COLOR00FFFF,LINETHICK1;

B:=REF(MEMA(A,5),3);

CG:=(A-B);

X:=BARSLAST(DISPSTATUS=1)+1;

E:=LLVALL(LLV(L,X))*0.95;

STICKLINE(CG>=0 ,E+(CG)*2,E,12,0),COLOR0000FF,LAYER3;

STICKLINE(CG<0 ,E+(CG)*2,E,12,0),COLORFF9900,LAYER3;

DRAWGBK(CG>0 ,STRIP(RGB(0,0,255),RGB(140,0,100),0)),LAYER0;

FILLRGN(UPPER,MID,UPPER>MID AND CG>0 AND MA(C,2)> MID,RGB(80,0,80)),LAYER5;

FILLRGN(UPPER,LOWER,UPPER>LOWER ,RGB(0,80,0)),LAYER7;

AL:=LLV(CG,A);

FL:=FILTER(CROSS(CG,AL),5);

DRAWBMP(FL AND CG<0 ,AL+E,'小牛.BMP'),ALIGN1,VALIGN0,LAYER0;

{4.画线}

PARTLINE(UPPER ,UPPER AND CG>0 AND MA(C,2)> MID,RGB(255,120,0)),LINETHICK3,LAYER0;

PARTLINE(MID ,MID AND CG>0 AND MA(C,2)> MID,RGB(0,255,0)),LINETHICK3,LAYER0;

VERTLINE(CROSS(REF(EMA(BBI,20),1),EMA(BBI,20)) AND CG>0 ,2),LAYER0,COLOR00FFFF;

{5.别坐过山车}

PK:=CROSS(0,CG) AND CG<0 AND MA(C,5)>MID;

DRAWTEXT(PK,LOWER*0.999,'●'),LAYER3,ALIGN1,COLOR0000FF,LINETHICK2;

DRAWTEXT(PK,LOWER*0.981,'【别】'),LAYER0,ALIGN1,COLOR00FFFF,LINETHICK1;

DRAWTEXT(PK,LOWER*0.963,'【坐】'),LAYER0,ALIGN1,COLOR00FFCC,LINETHICK1;

DRAWTEXT(PK,LOWER*0.946,'【过】'),LAYER0,ALIGN1,COLOR00FFAA,LINETHICK1;

DRAWTEXT(PK,LOWER*0.929,'【山】'),LAYER0,ALIGN1,COLOR00FF77,LINETHICK1;

DRAWTEXT(PK,LOWER*0.912,'【车】'),LAYER0,ALIGN1,COLOR00FF00,LINETHICK1;

{K线}

STICKLINE(CLOSE>OPEN AND CG>=0,HIGH,LOW,0.5,0 ),COLOR0000FF;

STICKLINE(OPEN>=CLOSE AND CG>=0,HIGH,LOW,0.5 ,0 ),COLOR00FF00;

STICKLINE(OPEN>=CLOSE AND CG>=0 ,CLOSE ,OPEN,9,0 ),COLOR006600;

STICKLINE(OPEN>=CLOSE AND CG>=0 ,CLOSE ,OPEN,7,0 ),COLOR009900;

STICKLINE(OPEN>=CLOSE AND CG>=0 ,CLOSE ,OPEN,5,0 ),COLOR00BB00;

STICKLINE(OPEN>=CLOSE AND CG>=0 ,CLOSE ,OPEN,3,0 ),COLOR00DD00;

STICKLINE(OPEN>=CLOSE AND CG>=0 ,CLOSE ,OPEN,1,0 ),COLOR00FF00;

STICKLINE(CLOSE>OPEN AND CG>=0,CLOSE,OPEN,9,0) ,COLOR000466;

STICKLINE(CLOSE>OPEN AND CG>=0,CLOSE,OPEN,7,0) ,COLOR000499;

STICKLINE(CLOSE>OPEN AND CG>=0,CLOSE,OPEN,5,0) ,COLOR0003BB;

STICKLINE(CLOSE>OPEN AND CG>=0,CLOSE,OPEN,3,0) ,COLOR0002DD;

STICKLINE(CLOSE>OPEN AND CG>=0,CLOSE,OPEN,1,0) ,COLOR0001FF;