大智慧寶塔線主圖指標公式程序源碼編程思路破譯
編程思路破譯
輸出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;
0條評論