相關標簽:

?

?

?

原理解析：

輸出A5:收盤價的5日簡單移動平均,COLOR00FFFF

輸出A20:收盤價的20日簡單移動平均,COLORFF00FF

輸出A30:收盤價的30日簡單移動平均,COLOR00FF00

M5賦值:(A5/1日前的A5-1)*100的反正切*180/3.14159

M20賦值:(A20/1日前的A20-1)*100的反正切*180/3.14159

M30賦值:(A30/1日前的A30-1)*100的反正切*180/3.14159

QSXS賦值:M30>0

A50賦值:如果M5<0,返回-25,否則返回0

A51賦值:如果M5位于0和45之間,返回25,否則返回A50

A52賦值:如果M5位于45和75之間,返回50,否則返回A51

MA5賦值:如果M5>75,返回75,否則返回A52*QSXS

A200賦值:如果M20<0,返回-25,否則返回0

A201賦值:如果M20位于0和45之間,返回25,否則返回A200

A202賦值:如果M20位于45和75之間,返回50,否則返回A201

MA20賦值:如果M20>75,返回75,否則返回A202*QSXS

A300賦值:如果M30<0,返回-25,否則返回0

A301賦值:如果M30位于0和45之間,返回25,否則返回A300

A302賦值:如果M30位于45和75之間,返回50,否則返回A301

MA30賦值:如果M30>75,返回75,否則返回A302*QSXS

SGSJ賦值:上次MA5上穿1日前的MA5+1距今天數

XGSJ賦值:上次1日前的MA5-1上穿MA5距今天數

列車賦值:如果MA5>=50ANDMA20>=25ANDMA30>=25ANDSGSJ<XGSJ,返回50,否則返回25

啟動賦值:如果列車上穿45,返回50,否則返回25

站臺賦值:如果MA5<=0ANDCOUNT(MA20>=25,10)>=9ANDMA30>=25,返回-25,否則返回25

買票賦值:如果站臺=-25ANDCOUNT(站臺=-25,3)>=2ANDC>=4日前的收盤價,返回25,否則返回-10

上車賦值:如果MA5上穿0ANDCOUNT(MA20>=25,10)>=9ANDMA30>=25,返回50,否則返回25

當滿足條件列車=50時,在A30位置書寫文字,COLOR88FFFF

當滿足條件啟動=50時,在A30位置書寫文字,COLORFF00FF

當滿足條件站臺=-25時,在A30和A30*0.98位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFFF00

當滿足條件買票=25時,在A30和A30*0.98位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFFFFF

當滿足條件買票=25時,在A30*0.97位置書寫文字,COLORFF8800

當滿足條件上車=50時,在A30位置書寫文字,COLORFFFFFF

源碼：

?

A5:MA(C,5),COLOR00FFFF;
A20:MA(C,20),COLORFF00FF;
A30:MA(C,30),COLOR00FF00;
M5:=ATAN((A5/REF(A5,1)-1)*100)*180/3.14159;
M20:=ATAN((A20/REF(A20,1)-1)*100)*180/3.14159;
M30:=ATAN((A30/REF(A30,1)-1)*100)*180/3.14159;
QSXS:=M30>0;
A50:=IF(M5<0,-25,0);
A51:=IF(BETWEEN(M5,0,45),25,A50);
A52:=IF(BETWEEN(M5,45,75),50,A51);
MA5:=IF(M5>75,75,A52)*QSXS;
A200:=IF(M20<0,-25,0);
A201:=IF(BETWEEN(M20,0,45),25,A200);
A202:=IF(BETWEEN(M20,45,75),50,A201);
MA20:=IF(M20>75,75,A202)*QSXS;
A300:=IF(M30<0,-25,0);
A301:=IF(BETWEEN(M30,0,45),25,A300);
A302:=IF(BETWEEN(M30,45,75),50,A301);
MA30:=IF(M30>75,75,A302)*QSXS;
SGSJ:=BARSLAST(CROSS(MA5,REF(MA5+1,1)));
XGSJ:=BARSLAST(CROSS(REF(MA5-1,1),MA5));
列車:=IF(MA5>=50 AND MA20>=25 AND MA30>=25 AND SGSJ<XGSJ,50,25);
啟動:=IF(CROSS(列車,45),50,25);
站臺:=IF(MA5<=0 AND COUNT(MA20>=25,10)>=9 AND MA30>=25,-25,25);
買票:=IF(站臺=-25 AND COUNT(站臺=-25,3)>=2 AND C>=REF(C,4),25,-10);
上車:=IF(CROSS(MA5,0) AND COUNT(MA20>=25,10)>=9 AND MA30>=25,50,25);
DRAWTEXT(列車=50,A30, '○'),COLOR88FFFF;
DRAWTEXT(啟動=50,A30, '●'),COLORFF00FF;
STICKLINE(站臺=-25,A30,A30*0.98,4,0),COLORFFFF00;
STICKLINE(買票=25,A30,A30*0.98,2,0),COLORFFFFFF;
DRAWTEXT(買票=25,A30*0.97, '票'),COLORFF8800;
DRAWTEXT(上車=50,A30, '△'),COLORFFFFFF;{來源:www.kzuj.com.cn　程序化交易}

?

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

?

原理解析：

?

源碼：

?