原理：
填充背景
VAR1賦值:1日前的(最低價+開盤價+收盤價+最高價)/4
VAR2賦值:最低價-VAR1的絕對值的13日[1日權重]移動平均/最低價-VAR1和0的較大值的10日[1日權重]移動平均
VAR3賦值:VAR2的10日指數移動平均
VAR4賦值:33日內最低價的最低值
VAR5賦值:如果最低價<=VAR4,返回VAR3,否則返回0的3日指數移動平均
輸出主力進場:如果VAR5>1日前的VAR5,返回VAR5,否則返回0,畫紅色,NODRAW
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000055
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.3,0不為0則畫空心柱.,COLOR000077
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR000099
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR0000BB
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR0000DD
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR0000FF
輸出拉升:如果VAR5<1日前的VAR5,返回VAR5,否則返回0,畫綠色,NODRAW
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR005500
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.3,0不為0則畫空心柱.,COLOR007700
 當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR009**0
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR00BB00
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR00DD00
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR00FF00
A1賦值:收盤價的12日指數移動平均-收盤價的25日指數移動平均
A2賦值:A1的6日指數移動平均
獲利回吐賦值:(A2>=0)*A2,畫白色,線寬為1
大黑馬賦值:(A2<0)*A2,COLORD4FF7F,線寬為1
堅絕做空賦值:(A1<0)*A1,COLORB00058,線寬為1
買入持股賦值:(A1>=0)*A1,畫紅色,線寬為1
當滿足條件A2>=0時,在A2和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫白色
當滿足條件A2<0時,在A2和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORD4FF7F
當滿足條件A1<0時,在A1和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORB00058
當滿足條件A1>=0時,在A1和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫紅色
VAR8賦值:成交量(手)>2*成交量(手)的30日簡單移動平均
VAR9賦值:"DMI的ADX"(12,6)
VARA賦值:"DMI的ADXR"(12,6)
VARB賦值:收盤價>收盤價的30日簡單移動平均 AND 收盤價<收盤價的30日簡單移動平均*1.04
VARC賦值:收盤價的30日簡單移動平均>1日前的收盤價的30日簡單移動平均
VARD賦值:上次收盤價的5日簡單移動平均上穿收盤價的10日簡單移動平均距今天數<上次收盤價的10日簡單移動平均上穿收盤價的5日簡單移動平均距今天數
VARF賦值:收盤價15%之字轉向的前1個波谷位置<4
VAR10賦值:收盤價的30日指數移動平均>2日前的收盤價的30日指數移動平均
VAR11賦值:如果VARF=1,返回50,否則返回0
多空賦值:(收盤價-(2*收盤價+最高價+最低價)/4的30日簡單移動平均)/(2*收盤價+最高價+最低價)/4的30日簡單移動平均*100的3日指數移動平均,畫白色
0,畫紅色
當滿足條件VARF=1的5日過濾AND多空<-10時,在80和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORF00FF0
當滿足條件VARF=1的5日過濾時,在60和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫黃色

輸出周J1:"KDJ的J[取周線數據]"(9,3,3)的5日簡單移動平均,畫綠色,線寬為2
20,畫洋紅色,線寬為1
80,畫綠色
當滿足條件周J1上穿20時,在20位置畫1號圖標
當滿足條件周J1上穿20時,在15位置書寫文字,畫紅色
當滿足條件周J1上穿80時,在70位置書寫文字,畫黃色

N1賦值:9
N2賦值:5
MTM賦值:收盤價-1日前的收盤價
輸出主力軌跡:100*MTM的N1日指數移動平均的N1日指數移動平均/MTM的絕對值的N1日指數移動平均的N1日指數移動平均,畫白色
輸出MAZL:主力軌跡的N2日簡單移動平均,畫黃色
VAR1X賦值:1日前的(最低價+開盤價+收盤價+最高價)/4
VAR2X賦值:最低價-VAR1X的絕對值的13日[1日權重]移動平均/最低價-VAR1X和0的較大值的10日[1日權重]移動平均
VAR3X賦值:VAR2X的10日指數移動平均
VAR4X賦值:33日內最低價的最低值
VAR5X賦值:如果最低價<=VAR4X,返回VAR3X,否則返回0的3日指數移動平均
輸出主力進場X:如果VAR5X>1日前的VAR5X,返回VAR5X,否則返回0,畫紅色,NODRAW
當滿足條件VAR5X>1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000055
當滿足條件VAR5X>1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為2.3,0不為0則畫空心柱.,COLOR000077
當滿足條件VAR5X>1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR000099
當滿足條件VAR5X>1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR0000BB
當滿足條件VAR5X>1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR0000DD
當滿足條件VAR5X>1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR0000FF
輸出洗盤:如果VAR5X<1日前的VAR5X,返回VAR5X,否則返回0,COLOR000079,NODRAW
當滿足條件VAR5X<1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000079
當滿足條件VAR5X<1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為2.3,0不為0則畫空心柱.,COLOR000093
當滿足條件VAR5X<1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR0000C6
當滿足條件VAR5X<1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR4A4AFF
當滿足條件VAR5X<1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR7D7DFF
當滿足條件VAR5X<1日前的VAR5X時,在0和VAR5X位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLORAAAAFF
VAR21賦值:最高價-VAR1X的絕對值的13日[1日權重]移動平均/最高價-VAR1X和0的較小值的10日[1日權重]移動平均
VAR31賦值:VAR21的10日指數移動平均
VAR41賦值:33日內最高價的最高值
VAR51賦值:如果最高價>=VAR41,返回VAR31,否則返回0的3日指數移動平均
輸出主力拉高:如果VAR51<1日前的VAR51,返回VAR51,否則返回0,畫黃色,NODRAW
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR005555
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為2.3,0不為0則畫空心柱.,COLOR007777
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR009999
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR11BBBB
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR33DDDD
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR55FFFF
輸出出貨:如果VAR51>1日前的VAR51,返回VAR51,否則返回0,畫青色,NODRAW
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫青色
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR555555
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為2.3,0不為0則畫空心柱.,COLOR777777
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR999999
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLORBBBBBB
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLORDDDDDD
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLORFFFFFF



源碼：
DRAWGBK(O>C,RGB(48,41,124),RGB(0,0,0),0,'1',0);
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1); 
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1); 
VAR3:=EMA(VAR2,10);
VAR4:=LLV(LOW,33);
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);
主力進場:IF(VAR5>REF(VAR5,1),VAR5,0),COLORRED,NODRAW;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0 ),COLOR000055;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.3,0 ),COLOR000077;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.1,0 ),COLOR000099;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1.3,0 ),COLOR0000BB;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.3,0 ),COLOR0000DD;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.3,0 ),COLOR0000FF;
拉升:IF(VAR5<REF(VAR5,1),VAR5,0),COLORGREEN,NODRAW;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLOR005500;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.3,0),COLOR007700; 
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.1,0),COLOR009**0;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1.3,0),COLOR00BB00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.3,0),COLOR00DD00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.3,0),COLOR00FF00;
{黑馬}
A1:=EMA(C,12)-EMA(C,25);
A2:=EMA(A1,6);
獲利回吐:=(A2>=0)*A2,COLORWHITE,LINETHICK1;
大黑馬:=(A2<0)*A2,COLORD4FF7F,LINETHICK1;
堅絕做空:=(A1<0)*A1,COLORB00058,LINETHICK1;
買入持股:=(A1>=0)*A1,COLORRED,LINETHICK1;
STICKLINE(A2>=0,A2,0,3,0),COLORWHITE;
STICKLINE(A2<0,A2,0,3,0),COLORD4FF7F;
STICKLINE(A1<0,A1,0,3,0),COLORB00058;
STICKLINE(A1>=0,A1,0,3,0),COLORRED;
VAR8:=VOL>2*MA(VOL,30);
VAR9:="DMI.ADX"(12,6);
VARA:="DMI.ADXR"(12,6);
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
VARF:=TROUGHBARS(3,15,1)<4;
VAR10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
VAR11:=IF(VARF=1,50,0);
多空:=EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),COLORWHITE;0,COLORRED;
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,80,0,3,0),COLORF00FF0;
STICKLINE(FILTER(VARF=1,5),60,0,3,0),COLORYELLOW;
{DRAWTEXT(FILTER(VARF=1,3),25,'黑馬'),COLORRED ;
{STICKLINE(多空<-10,0,多空,0.85,0),COLORYELLOW;
STICKLINE(多空>10,0,多空,0.95,0),COLORRED;};
周J1:MA("KDJ.J#WEEK"(9,3,3) ,5),COLORGREEN,LINETHICK2;
20,COLORMAGENTA,LINETHICK1;
80,COLORGREEN;
DRAWICON(CROSS(周J1,20),20,1);
DRAWTEXT(CROSS(周J1,20),15,'++抄'),COLORRED;
DRAWTEXT(CROSS(周J1,80),70,'=追'),COLORYELLOW;
{STICKLINE(周J1<0,周J1,0,5,0),COLORLIRED;
STICKLINE(CROSS(周J1,0),0,-50,3,0),COLORMAGENTA;
DRAWTEXT(CROSS(周J1,0),-35,'———底部'),COLORMAGENTA;}
{抓牛黑馬
VAR1000:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR2000:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;
VAR3000:=SMA(SMA(VAR2000,3,1),3,1);
VAR4000:=EMA(VAR3000,5);
VAR5000:=LLV(LOW,26);
VAR6000:=HHV(HIGH,34);
VAR7000:=EMA((CLOSE-VAR5000)/(VAR6000-VAR5000)*4,4)*25;
{撞坷狀?=IF(CROSS(VAR4000,10) AND VAR4000>10,50,0),STICK,COLORYELLOW,LINETHICK3;0,STICK,COLOR000000,LINETHICK3;
建倉區: IF((VAR7000<10),20,0), LINETHICK2,COLOR00CCFF ;
派發區: IF((VAR7000>**),80,100), LINETHICK2 ,COLORF00FF0;};
N1:=9;
N2:=5;
MTM:=C-REF(C,1);
主力軌跡:100*EMA(EMA(MTM,N1),N1)/EMA(EMA(ABS(MTM),N1),N1),COLORWHITE;
MAZL:MA(主力軌跡,N2),COLORYELLOW;
VAR1X:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2X:=SMA(ABS(LOW-VAR1X),13,1)/SMA(MAX(LOW-VAR1X,0),10,1);
VAR3X:=EMA(VAR2X,10);
VAR4X:=LLV(LOW,33);
VAR5X:=EMA(IF(LOW<=VAR4X,VAR3X,0),3);
主力進場X:IF(VAR5X>REF(VAR5X,1),VAR5X,0),COLORRED,NODRAW;
STICKLINE(VAR5X>REF(VAR5X,1),0,VAR5X,3,0 ),COLOR000055;
STICKLINE(VAR5X>REF(VAR5X,1),0,VAR5X,2.3,0 ),COLOR000077;
STICKLINE(VAR5X>REF(VAR5X,1),0,VAR5X,2.1,0 ),COLOR000099;
STICKLINE(VAR5X>REF(VAR5X,1),0,VAR5X,1.3,0 ),COLOR0000BB;
STICKLINE(VAR5X>REF(VAR5X,1),0,VAR5X,0.3,0 ),COLOR0000DD;
STICKLINE(VAR5X>REF(VAR5X,1),0,VAR5X,0.3,0 ),COLOR0000FF;
洗盤:IF(VAR5X<REF(VAR5X,1),VAR5X,0),COLOR000079,NODRAW;
STICKLINE(VAR5X<REF(VAR5X,1),0,VAR5X,3,0),COLOR000079;
STICKLINE(VAR5X<REF(VAR5X,1),0,VAR5X,2.3,0),COLOR000093;
STICKLINE(VAR5X<REF(VAR5X,1),0,VAR5X,2.1,0),COLOR0000C6;
STICKLINE(VAR5X<REF(VAR5X,1),0,VAR5X,1.3,0),COLOR4A4AFF;
STICKLINE(VAR5X<REF(VAR5X,1),0,VAR5X,0.3,0),COLOR7D7DFF;
STICKLINE(VAR5X<REF(VAR5X,1),0,VAR5X,0.3,0),COLORAAAAFF;
VAR21:=SMA(ABS(HIGH-VAR1X),13,1)/SMA(MIN(HIGH-VAR1X,0),10,1);
VAR31:=EMA(VAR21,10);
VAR41:=HHV(HIGH,33);
VAR51:=EMA(IF(HIGH>=VAR41,VAR31,0),3);
主力拉高:IF(VAR51<REF(VAR51,1),VAR51,0),COLORYELLOW,NODRAW;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,3,0),COLOR005555;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.3,0),COLOR007777;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.1,0),COLOR009999;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,1.3,0),COLOR11BBBB;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.3,0),COLOR33DDDD;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.3,0),COLOR55FFFF;
出貨:IF(VAR51>REF(VAR51,1),VAR51,0),COLORCYAN,NODRAW;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,3,0 ),COLORCYAN;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,3,0),COLOR555555;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.3,0),COLOR777777;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.1,0),COLOR999999;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,1.3,0),COLORBBBBBB;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.3,0),COLORDDDDDD;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.3,0),COLORFFFFFF;






如有需要，請加QQ：88652583 或微信： 88652583