大智慧心悅誠服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;