檢測主力軌跡 主力進場 主力監控[通達信公式]

原理解析

N1賦值:9
N2賦值:5
MTM賦值:收盤價-1日前的收盤價
輸出主力軌跡:100*MTM的N1日指數移動平均的N1日指數移動平均/MTM的絕對值的N1日指數移動平均的N1日指數移動平均,畫白色
輸出MAZL:主力軌跡的N2日簡單移動平均,畫黃色
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.6,0不為0則畫空心柱.,COLOR000077
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR000099
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR0000BB
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.9,0不為0則畫空心柱.,COLOR0000DD
當滿足條件VAR5>1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR0000FF
輸出洗盤:如果VAR5<1日前的VAR5,返回VAR5,否則返回0,COLOR000079,NODRAW
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000079
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.6,0不為0則畫空心柱.,COLOR000093
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR0000C6
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR4A4AFF
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.9,0不為0則畫空心柱.,COLOR7D7DFF
當滿足條件VAR5<1日前的VAR5時,在0和VAR5位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLORAAAAFF
VAR21賦值:最高價-VAR1的絕對值的13日[1日權重]移動平均/最高價-VAR1和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.6,0不為0則畫空心柱.,COLOR007777
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR009999
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR11BBBB
當滿足條件VAR51<1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.9,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.6,0不為0則畫空心柱.,COLOR777777
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為2.1,0不為0則畫空心柱.,COLOR999999
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLORBBBBBB
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.9,0不為0則畫空心柱.,COLORDDDDDD
當滿足條件VAR51>1日前的VAR51時,在0和VAR51位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLORFFFFFF
當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色
當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色
 

源碼：
 

{主力監控}
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;
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.6,0 ),COLOR000077;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.1,0 ),COLOR000099;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1.5,0 ),COLOR0000BB;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.9,0 ),COLOR0000DD;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.3,0 ),COLOR0000FF;
洗盤:IF(VAR5<REF(VAR5,1),VAR5,0),COLOR000079,NODRAW;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLOR000079;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.6,0),COLOR000093;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.1,0),COLOR0000C6;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1.5,0),COLOR4A4AFF;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.9,0),COLOR7D7DFF;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.3,0),COLORAAAAFF;
VAR21:=SMA(ABS(HIGH-VAR1),13,1)/SMA(MIN(HIGH-VAR1,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.6,0),COLOR007777;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.1,0),COLOR009999;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,1.5,0),COLOR11BBBB;
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.9,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.6,0),COLOR777777;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.1,0),COLOR999999;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,1.5,0),COLORBBBBBB;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.9,0),COLORDDDDDD;
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.3,0),COLORFFFFFF;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;