相關標簽:

?

難得的【數字均線+籌碼堆積】主圖源碼奉獻和圖
希望散戶朋友們喜歡。

源碼如下：

?

原理解析：
//數字均線+成交堆積DRAWGBK(日期>900101,COLORRGB(95,95,95),COLORRGB(0,0,0),1) A0賦值:收盤價的有效數據周期數 A3賦值:SYSPARAM(3) A2賦值:SYSPARAM(2) A4賦值:SYSPARAM(4) A5賦值:SYSPARAM(5) NN0賦值:A3-A2 NN賦值:A0-A2 HH1賦值:(A4-A5)/8 HH2賦值:HH1/4 LL1賦值:NN0日內最低價的最低值 LL2賦值:LL1[A3] Y0賦值:A0>=A2 VV0賦值:如果Y0=1ANDSYSPARAM(1)>=A0,返回成交量(手),否則返回0 C1賦值:如果收盤價位于A4-0*HH1和A4-1*HH1之間,返回VV0,否則返回0 C2賦值:如果收盤價位于A4-1*HH1和A4-2*HH1之間,返回VV0,否則返回0 C3賦值:如果收盤價位于A4-2*HH1和A4-3*HH1之間,返回VV0,否則返回0 C4賦值:如果收盤價位于A4-3*HH1和A4-4*HH1之間,返回VV0,否則返回0 C5賦值:如果收盤價位于A4-4*HH1和A4-5*HH1之間,返回VV0,否則返回0 C6賦值:如果收盤價位于A4-5*HH1和A4-6*HH1之間,返回VV0,否則返回0 C7賦值:如果收盤價位于A4-6*HH1和A4-7*HH1之間,返回VV0,否則返回0 C8賦值:如果收盤價位于A4-7*HH1和A4-8*HH1之間,返回VV0,否則返回0 C9賦值:如果收盤價位于A4-8*HH1和A4-9*HH1之間,返回VV0,否則返回0 C10賦值:如果收盤價位于A4-9*HH1和A4-10*HH1之間,返回VV0,否則返回0 V1賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C1的NN0日累和,否則返回0,2)),線寬為0 V2賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C2的NN0日累和,否則返回0,2)) V3賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C3的NN0日累和,否則返回0,2)) V4賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C4的NN0日累和,否則返回0,2)) V5賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C5的NN0日累和,否則返回0,2)) V6賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C6的NN0日累和,否則返回0,2)) V7賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C7的NN0日累和,否則返回0,2)) V8賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C8的NN0日累和,否則返回0,2)) V9賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C9的NN0日累和,否則返回0,2)) V10賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C10的NN0日累和,否則返回0,2)) AV0賦值:V1和V2和V3和V4和V5和V6和V7和V8和V9和V10的較大值的較大值的較大值的較大值的較大值的較大值的較大值的較大值的較大值 X1賦值:V1/AV0>=NN/NN0 AND NN>=0 X2賦值:V2/AV0>=NN/NN0 AND NN>=0 X3賦值:V3/AV0>=NN/NN0 AND NN>=0 X4賦值:V4/AV0>=NN/NN0 AND NN>=0 X5賦值:V5/AV0>=NN/NN0 AND NN>=0 X6賦值:V6/AV0>=NN/NN0 AND NN>=0 X7賦值:V7/AV0>=NN/NN0 AND NN>=0 X8賦值:V8/AV0>=NN/NN0 AND NN>=0 FILLRGN(V1/AV0>=NN/NN0 AND NN>=0,A4-0*HH1,A4-1*HH1+HH1*0.5),COLOR003CB7 FILLRGN(V2/AV0>=NN/NN0 AND NN>=0,A4-1*HH1,A4-2*HH1+HH1*0.5),COLOR808000 FILLRGN(V3/AV0>=NN/NN0 AND NN>=0,A4-2*HH1,A4-3*HH1+HH1*0.5),COLOR8B4D43 FILLRGN(V4/AV0>=NN/NN0 AND NN>=0,A4-3*HH1,A4-4*HH1+HH1*0.5),COLOR1B3D70 FILLRGN(V5/AV0>=NN/NN0 AND NN>=0,A4-4*HH1,A4-5*HH1+HH1*0.5),COLOR00AEAE FILLRGN(V6/AV0>=NN/NN0 AND NN>=0,A4-5*HH1,A4-6*HH1+HH1*0.5),COLOR666666 FILLRGN(V7/AV0>=NN/NN0 AND NN>=0,A4-6*HH1,A4-7*HH1+HH1*0.5),COLOR666666 FILLRGN(V8/AV0>=NN/NN0 AND NN>=0,A4-7*HH1,A4-8*HH1+HH1*0.5),COLOR666666 當滿足條件6日后的X1<1日前的X1ANDV1>0的10日過濾時,在A4位置書寫數字,COLOR00FF00 當滿足條件6日后的X2<1日前的X2ANDV2>0的10日過濾時,在(A4-1*HH1)位置書寫數字,COLOR00FF00 當滿足條件6日后的X3<1日前的X3ANDV3>0的10日過濾時,在(A4-2.7*3*HH2)位置書寫數字,COLOR00FF00 當滿足條件6日后的X4<1日前的X4ANDV4>0的10日過濾時,在(A4-12*HH2)位置書寫數字,COLOR00FF00 當滿足條件6日后的X5<1日前的X5ANDV5>0的10日過濾時,在(A4-16*HH2)位置書寫數字,COLOR00FF00 當滿足條件6日后的X6<1日前的X6ANDV6>0的10日過濾時,在(A4-20*HH2)位置書寫數字,COLOR00FF00 當滿足條件6日后的X7<1日前的X7ANDV7>0的10日過濾時,在(A4-24*HH2)位置書寫數字,COLOR00FF00 當滿足條件5日后的X8<1日前的X8ANDV8>0的10日過濾時,在LL2+1*4*HH2位置書寫數字,COLOR00FF00 指導線賦值: (收盤價的4日指數移動平均+收盤價的6日指數移動平均+收盤價的12日指數移動平均+收盤價的24日指數移動平均)/4的2日指數移動平均,線寬為0,COLOR00FFFF,LINEDOT 界賦值: 收盤價的21日簡單移動平均,線寬為0,COLORFEBAF5 輸出上限: 界+3*收盤價的20日估算標準差,線寬為0,COLOR00FFFF 輸出賣: 界+2*收盤價的20日估算標準差,線寬為0,COLORFF00FF 輸出買: 界-2*收盤價的20日估算標準差,線寬為0,COLORF0FF00 輸出下限: 界-2.9*收盤價的20日估算標準差,線寬為0,COLOR00FF00 當滿足條件最高價>=上限時,在最高價位置畫10號圖標,ALIGN0,PXUP15 當滿足條件最高價上穿上限時,在最高價位置畫12號圖標,ALIGN0 當滿足條件最高價上穿上限時,在最高價位置書寫文字,ALIGN0,COLOR00FFFF 當滿足條件上限上穿最高價時,在最高價位置畫5號圖標,ALIGN0 當滿足條件上限上穿最高價時,在最高價位置書寫文字,ALIGN0,COLOR00FFFF 當滿足條件最高價上穿賣時,在最高價位置畫5號圖標,ALIGN0 當滿足條件最高價上穿賣時,在最高價位置書寫文字,ALIGN0,COLORFF00FF 當滿足條件收盤價上穿賣時,在最高價位置書寫文字,ALIGN0,COLORFF0000 當滿足條件收盤價上穿賣時,在最高價位置畫5號圖標,ALIGN0 當滿足條件下限上穿最低價時,在最低價位置書寫文字,ALIGN0,COLOR00FF00 當滿足條件下限上穿最低價時,在最低價位置書寫文字,ALIGN0,COLOR00FF00 當滿足條件買上穿最低價時,在最低價位置書寫文字,ALIGN0,COLORFFFF00 當滿足條件買上穿最低價時,在最低價位置書寫文字,ALIGN0,COLORFFFF00 當滿足條件買上穿收盤價時,在最低價位置書寫文字,ALIGN0,COLORFFFF00 當滿足條件買上穿收盤價時,在最低價位置書寫文字,ALIGN0,COLORFFFF00 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR0000AA 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR0000BB 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR0000CC 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000DD 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000EE 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000FF 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000FF 當滿足條件收盤價>=開盤價時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,畫紅色 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORAAAA00 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORBBBB00 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORCCCC00 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORDDDD00 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOREEEE00 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFFF00 當滿足條件收盤價<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 當滿足條件收盤價<=開盤價時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFF00 當滿足條件收盤價/1日前的收盤價>1.05時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR00AAAA 當滿足條件收盤價/1日前的收盤價>1.05時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00CCCC 當滿足條件收盤價/1日前的收盤價>1.05時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00EEEE 當滿足條件收盤價/1日前的收盤價>1.05時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫黃色 另一色。DH賦值:(((收盤價 - 1日前的收盤價) / 1日前的收盤價) * 100) 當滿足條件DH<=-4時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORAA0000 當滿足條件DH<=-4時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORCC0000 當滿足條件DH<=-4時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOREE0000 當滿足條件DH<=-4時,在(收盤價+開盤價)/2和收盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF0000 輸出//當跌幅大于3-4-5％，要主圖K線的實體的一半變為另一色。MB5:收盤價的5日簡單移動平均,COLORFFFFFF,線寬為1 輸出MB10:收盤價的10日簡單移動平均,COLOR00FFFF,線寬為1 輸出MB20:收盤價的20日簡單移動平均,COLOR00FF00,線寬為1 輸出MB30:收盤價的30日簡單移動平均,COLORFF00FF,線寬為1 VAR1賦值:(100 - ((90 * (21日內最高價的最高值 - 收盤價)) / (21日內最高價的最高值 - 21日內最低價的最低值))) VAR2賦值:(100 - ((90 * (21日內最高價的最高值 - 收盤價)) / (21日內最高價的最高值 - 21日內最低價的最低值))) VAR3賦值:(100 - ((100*(6日內最高價的最高值-收盤價))/(6日內最高價的最高值-6日內最低價的最低值))的34日簡單移動平均) 當滿足條件VAR2上穿VAR3的6日簡單移動平均時,在(最低價*0.998)位置畫4號圖標 當滿足條件VAR3的6日簡單移動平均上穿VAR1時,在(最高價*1.013)位置畫5號圖標 當滿足條件VAR2上穿VAR3的6日簡單移動平均時,在(最低價*0.98)位置書寫文字,COLOR4440FF 當滿足條件VAR3的6日簡單移動平均上穿VAR1時,在(最高價*1.016)位置書寫文字,COLORFFFF34 X6賦值:1日前的收盤價 X7賦值:收盤價-X6和0的較大值的7日[1日權重]移動平均/收盤價-X6的絕對值的7日[1日權重]移動平均*100 X8賦值:79上穿X7 X9賦值:X8的4日過濾 當滿足條件X9時,在最高價*1.02位置書寫文字,COLOR9000F5 MTM賦值:收盤價-1日前的收盤價 DX賦值:100*MTM的6日指數移動平均的6日指數移動平均/MTM的絕對值的6日指數移動平均的6日指數移動平均 買賦值:如果2日內DX的最低值=7日內DX的最低值ANDCOUNT(DX<0,2)ANDCROSS(DX,DX的2日簡單移動平均),返回1,否則返回0 當滿足條件買=1的5日過濾時,在最低價-0.03位置書寫文字,畫紅色 均價賦值:(收盤價+最高價+最低價+最低價)/4 P賦值:均價的9日指數移動平均 Q賦值:1日前的P的3日指數移動平均 換手賦值:1000*成交量(手)/當前流通股本(手) CLOSE3賦值:3日前的收盤價 CLOSE5賦值:5日前的收盤價 CLOSE7賦值:7日前的收盤價 CLOSE8賦值:8日前的收盤價 CLOSE13賦值:13日前的收盤價 CLOSE21賦值:21日前的收盤價 JC賦值:(3日前的收盤價+5日前的收盤價+7日前的收盤價+8日前的收盤價+13日前的收盤價+21日前的收盤價)/6 參考價賦值:JC的5日[1日權重]移動平均,COLORFFCCFF AA賦值:如果收盤價>=3日前的收盤價,返回1,否則返回0 BB賦值:如果收盤價>=5日前的收盤價,返回1,否則返回0 CC賦值:如果收盤價>=7日前的收盤價,返回1,否則返回0 DD賦值:如果收盤價>=8日前的收盤價,返回1,否則返回0 EE賦值:如果收盤價>=13日前的收盤價,返回1,否則返回0 FF賦值:如果收盤價>=21日前的收盤價,返回1,否則返回0 GZ2賦值:AA+BB+CC+DD+EE+FF S賦值:收盤價的1日簡單移動平均 當滿足條件收盤價>0時,在S位置書寫數字,畫白色

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

//數字均線+成交堆積
DRAWGBK(DATE>900101,COLORRGB(95,95,95),COLORRGB(0,0,0),1);

a0:=BARSCOUNT(c);
a3:=SYSPARAM(3);
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);
a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/8;
hh2:=hh1/4;
ll1:=llv(l,nn0);ll2:=ll1[a3];
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2)),LINETHICK;
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));

x1:=v1/av0>=nn/nn0 and nn>=0;
x2:=v2/av0>=nn/nn0 and nn>=0;
x3:=v3/av0>=nn/nn0 and nn>=0;
x4:=v4/av0>=nn/nn0 and nn>=0;
x5:=v5/av0>=nn/nn0 and nn>=0;
x6:=v6/av0>=nn/nn0 and nn>=0;
x7:=v7/av0>=nn/nn0 and nn>=0;
x8:=v8/av0>=nn/nn0 and nn>=0;

FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+hh1*0.5),Color003CB7;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+hh1*0.5),Color808000;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+hh1*0.5),Color8B4D43;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+hh1*0.5),Color1B3D70;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+hh1*0.5),Color00AEAE;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+hh1*0.5),color666666;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+hh1*0.5),color666666;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+hh1*0.5),color666666;

DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*hh1),a4-1*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*hh2),a4-2*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*hh2),a4-3*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*hh2),a4-4*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*hh2),a4-5*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*hh2),a4-6*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and v8>0,5),10),ll2+1*4*hh2,a4-7*hh1,2),COLOR00FF00;
指導線:= EMA((EMA(C,4)+EMA(C,6)+EMA(C,12)+EMA(C,24))/4,2),linethick0,Color00ffFF,LINEDOT;
界:= MA(CLOSE,21),linethick0,ColorFEBAF5;
上限: 界+3*STD(C,20),linethick0,Color00FFFF;
賣: 界+2*STD(C,20),linethick0,ColorFF00FF;
買: 界-2*STD(C,20),linethick0,ColorF0FF00;
下限: 界-2.9*STD(close,20),linethick0,Color00FF00;
DRAWICON(H>=上限,h,10),ALIGN0,pxup15;
DRAWICON(cross(H,上限),h,12),ALIGN0;
DRAWTEXT(cross(H,上限),H,'￣'),ALIGN0,Color00ffff;
DRAWICON(cross(上限,H),h,5),ALIGN0;
DRAWTEXT(cross(上限,H),H,'￣'),ALIGN0,Color00ffff;
DRAWICON(cross(H,賣),h,5),ALIGN0;
DRAWTEXT(cross(H,賣),H,'￣'),ALIGN0,Colorff00ff;
DRAWTEXT(cross(C,賣),H,'￣'),ALIGN0,Colorff0000;
DRAWICON(cross(C,賣),h,5),ALIGN0;
DRAWTEXT(cross(下限,L),l,'跟'),ALIGN0,Color00ff00;
DRAWTEXT(cross(下限,L),l,'￣'),ALIGN0,Color00ff00;
DRAWTEXT(cross(買,L),l,'△'),ALIGN0,Colorffff00;
DRAWTEXT(cross(買,L),l,'￣'),ALIGN0,Colorffff00;
DRAWTEXT(cross(買,C),L,'▲'),ALIGN0,Colorffff00;
DRAWTEXT(cross(買,C),L,'￣'),ALIGN0,Colorffff00;
STICKLINE(C>=O,C,O,7,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,5,0),COLOR0000cc;
STICKLINE(C>=O,C,O,4,0),COLOR0000DD ;
STICKLINE(C>=O,C,O,3,0),COLOR0000ee;
STICKLINE(C>=O,C,O,2,0),COLOR0000FF;
STICKLINE(C>=O,C,O,1,0),COLOR0000ff;
STICKLINE(C>=O,H,L,0,0),COLORRED;
STICKLINE(C<=O,C,O,7,0),Coloraaaa00;
STICKLINE(C<=O,C,O,6,0),Colorbbbb00;
STICKLINE(C<=O,C,O,5,0),Colorcccc00;
STICKLINE(C<=O,C,O,4,0),Colordddd00;
STICKLINE(C<=O,C,O,3,0),Coloreeee00;
STICKLINE(C<=O,C,O,2,0),COLORffff00;
STICKLINE(C<=O,C,O,1,0),Colorffff00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,7,0),color00AAAA;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,5,0),color00CCCC;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,3,0),color00EEEE;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,1,0),coloryellow;//當漲幅大于3--5％，要主圖K線的實體的一半變為另一色。
DH:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
STICKLINE(DH<=-4,(c+o)/2,c,7,0),colorAA0000;
STICKLINE(DH<=-4,(c+o)/2,c,5,0),colorCC0000;
STICKLINE(DH<=-4,(c+o)/2,c,3,0),colorEE0000;
STICKLINE(DH<=-4,(c+o)/2,c,1,0),colorFF0000;//當跌幅大于3-4-5％，要主圖K線的實體的一半變為另一色。

Mb5:MA(CLOSE,5),ColorFFFfff,linethick1;
Mb10:MA(CLOSE,10),Color00Ffff,linethick1;
Mb20:MA(CLOSE,20),Color00ff00,linethick1;
Mb30:MA(CLOSE,30),Colorff00ff,linethick1;


VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),4);
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),5);
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.98),'Ｂ '),color4440FF;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.016),'Ｓ '),colorFFFF34;


x6:=REF(CLOSE,1);
x7:=SMA(MAX(CLOSE-x6,0),7,1)/SMA(ABS(CLOSE-x6),7,1)*100;
x8:=CROSS(79,x7);
x9:=FILTER(x8,4);
DRAWTEXT(x9,HIGH*1.02,'←出貨'),Color9000F5;


MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(filter(買=1,5),LOW-0.03,'。買'),COLORRED;

均價:=(CLOSE+HIGH+LOW+LOW)/4;
p:=EMA(均價,9);
q:=EMA(REF(p,1),3);
換手:=1000*vol/capital;
close3:=ref(close,3);
close5:=ref(close,5);
close7:=ref(close,7);
close8:=ref(close,8);
close13:=ref(close,13);
close21:=ref(close,21);
jc:=(ref(c,3)+ref(c,5)+ref(c,7)+ref(c,8)+ref(c,13)+ref(c,21))/6;
參考價:=sma(jc,5,1),colorffccff;
aa:=if(c>=ref(c,3),1,0);
bb:=if(c>=ref(c,5),1,0);
cc:=if(c>=ref(c,7),1,0);
dd:=if(c>=ref(c,8),1,0);
ee:=if(c>=ref(c,13),1,0);
ff:=if(c>=ref(c,21),1,0);
gz2:=aa+bb+cc+dd+ee+ff;
s:=ma(c,1);
DRAWNUMBER(c>0,s,gz2,0),colorwhite;{ffccff}

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?