相關標簽:

?

?

原理解析：
PASTDAYS賦值:3 N賦值:27 N2賦值:9 N3賦值:3 N4賦值:16 VAR1賦值:如果日期>=1030131,返回1,否則返回1 VAR2賦值:(收盤價-N日內最低價的最低值)/(N日內最高價的最高值-N日內最低價的最低值)*100 輸出獲利盤:以收盤價計算的獲利盤比例*100*VAR1 VAR3賦值:VAR2的3日[1日權重]移動平均*VAR1 VAR4賦值:VAR3的N2日[1日權重]移動平均*VAR1 VAR5賦值:3*VAR3-2*VAR4*VAR1 VAR6賦值:成交量(手)*VAR1 角度賦值:(收盤價-29日前的開盤價)/29日前的開盤價*100*VAR1 輸出換手: 成交量(手)/當前流通股本(手)*100*VAR1 VAR7賦值:換手的30日累和*VAR1 VAR8賦值:5日內大盤的最低價的最低值*VAR1 VAR9賦值:5日內大盤的最高價的最高值*VAR1 VARA賦值:(大盤的收盤價-VAR8)/(VAR9-VAR8)*100的4日指數移動平均 VARB賦值:0.667*1日前的VARA+0.333*VARA的2日指數移動平均的9日簡單移動平均 VARC賦值:VARB的30日簡單移動平均 VARD賦值:獲利盤的4日指數移動平均*VAR1 輸出本盤億股: 當前流通股本(手)/1000000 輸出V5: 成交量(手)的5日簡單移動平均*2*VAR1,畫紅色 輸出V13: 成交量(手)的13日簡單移動平均*2*VAR1,畫綠色 VARB上穿VARC AND VARC<29*VAR1 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,COLOR000055 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000066 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR000077 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR000088 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR000099 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000AA 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000BB 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000CC 當滿足條件VOLANDVAR5>VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000DD 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,COLORFF1100 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF2200 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFF3300 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF4400 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF5500 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF6600 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF7700 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFF8800 當滿足條件VOLANDVAR5<VAR4時,在0和成交量(手)位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF9900 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,COLOR333333 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR444444 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR555555 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR666666 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR777777 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR888888 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR999999 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORAAAAAA 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORBBBBBB 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORCCCCCC 當滿足條件VOLANDVAR4<N4時,在0和成交量(手)位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORDDDDDD RSI賦值:收盤價-1日前的收盤價和0的較大值的5日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的6日[1日權重]移動平均*100 輸出拋壓:當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,COLORFF0033 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF0044 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFF0055 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF0066 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF0077 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF0088 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF0099 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFF00AA 當滿足條件84上穿RSI時,在0和成交量(手)位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF00BB VAR13賦值:(收盤價-收盤價的6日簡單移動平均)/收盤價的6日簡單移動平均*100,畫紅色 VAR14賦值:(收盤價-收盤價的24日簡單移動平均)/收盤價的24日簡單移動平均*100 VAR15賦值:(收盤價-收盤價的32日簡單移動平均)/收盤價的32日簡單移動平均*100 VAR16賦值:(VAR13+VAR14+VAR15)/3 VAR18賦值:如果VAR16<=-20,返回10,否則返回0 VAR19賦值:10日內VAR18的最高值 VAR20賦值:如果VAR19ANDCROSS(收盤價的3日簡單移動平均,收盤價的5日簡單移動平均),返回20,否則返回0 輸出底部:當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,COLOR005555 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR006666 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR007777 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR008888 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR009999 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00AAAA 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00BBBB 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00CCCC 當滿足條件VAR20=20時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00DDDD 當滿足條件VAR20=20時,在0位置書寫文字,畫白色 VARE賦值:100*(收盤價-34日內收盤價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的5日簡單移動平均-20 VARF賦值:100-3*(收盤價-66日內最低價的最低值)/(66日內最高價的最高值-66日內最低價的最低值)*100的20日[1日權重]移動平均+2*(收盤價-66日內最低價的最低值)/(66日內最高價的最高值-66日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR100賦值:100-3*(開盤價-66日內最低價的最低值)/(66日內最高價的最高值-66日內最低價的最低值)*100的20日[1日權重]移動平均+2*(開盤價-66日內最低價的最低值)/(66日內最高價的最高值-66日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR111賦值:VARF<1日前的VAR100 AND 成交量(手)>1日前的成交量(手) AND 收盤價>1日前的收盤價 輸出大資金活動:當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,畫洋紅色 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR007700 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR008800 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR009900 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00AA00 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00BB00 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00CC00 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00DD00 當滿足條件VAR111ANDCOUNT(VAR111,30)=1時,在0和成交量(手)位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00EE00 A8賦值:(收盤價的3日簡單移動平均+收盤價的6日簡單移動平均+收盤價的12日簡單移動平均+收盤價的24日簡單移動平均)/4 B8賦值:A8*(1+ ((收盤價+開盤價+最高價+最低價)/4-收盤價的10日[1日權重]移動平均)/收盤價的21日[1日權重]移動平均) D8賦值:A8+3*A8的10日估算標準差 當滿足條件B8上穿A8ANDA8>1日前的A8ANDD8>1日前的D8時,在0位置畫1號圖標 TIPTEXT(ISNULL(1日后的&收盤價),0,' m.weiqiv.net.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

?來源:程序化99（ m.weiqiv.net.cn ）

源碼：

?

?

?

PASTDAYS:=3;
N:=27;N2:=9;N3:=3;N4:=16;
Var1:=IF(DATE>=1030131,1,1);
Var2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
獲利盤:WINNER(CLOSE)*100*Var1;
Var3:=SMA(Var2,3,1)*Var1;
Var4:=SMA(Var3,N2,1)*Var1;
Var5:=3*Var3-2*Var4*Var1;
Var6:=VOL*Var1;
角度:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100*Var1;
換手: VOL/CAPITAL*100*Var1;
Var7:=SUM(換手,30)*Var1;
Var8:=LLV(INDEXL,5)*Var1;
Var9:=HHV(INDEXH,5)*Var1;
VarA:=EMA((INDEXC-Var8)/(Var9-Var8)*100,4);
VarB:=MA(EMA(0.667*REF(VarA,1)+0.333*VarA,2),9);
VarC:=MA(VarB,30);
VarD:=EMA(獲利盤,4)*Var1;
本盤億股: CAPITAL/1000000;
V5: MA(VOL,5)*2*Var1,colorred;
V13: MA(VOL,13)*2*Var1,colorgreen;
CROSS(VarB,VarC) AND VarC<29*Var1;
STICKLINE(VOL AND Var5>Var4,0,VOL,9,0),color000055;
STICKLINE(VOL AND Var5>Var4,0,VOL,8,0),color000066;
STICKLINE(VOL AND Var5>Var4,0,VOL,7,0),color000077;
STICKLINE(VOL AND Var5>Var4,0,VOL,6,0),color000088;
STICKLINE(VOL AND Var5>Var4,0,VOL,5,0),color000099;
STICKLINE(VOL AND Var5>Var4,0,VOL,4,0),color0000aa;
STICKLINE(VOL AND Var5>Var4,0,VOL,3,0),color0000bb;
STICKLINE(VOL AND Var5>Var4,0,VOL,2,0),color0000cc;
STICKLINE(VOL AND Var5>Var4,0,VOL,1,0),color0000dd;
STICKLINE(VOL AND Var5<Var4,0,VOL,9,0),colorFF1100;
STICKLINE(VOL AND Var5<Var4,0,VOL,8,0),colorFF2200;
STICKLINE(VOL AND Var5<Var4,0,VOL,7,0),colorFF3300;
STICKLINE(VOL AND Var5<Var4,0,VOL,6,0),colorFF4400;
STICKLINE(VOL AND Var5<Var4,0,VOL,5,0),colorFF5500;
STICKLINE(VOL AND Var5<Var4,0,VOL,4,0),colorFF6600;
STICKLINE(VOL AND Var5<Var4,0,VOL,3,0),colorFF7700;
STICKLINE(VOL AND Var5<Var4,0,VOL,2,0),colorFF8800;
STICKLINE(VOL AND Var5<Var4,0,VOL,1,0),colorFF9900;
STICKLINE(VOL AND Var4<N4,0,VOL,9,0),color333333;
STICKLINE(VOL AND Var4<N4,0,VOL,8,0),color444444;
STICKLINE(VOL AND Var4<N4,0,VOL,7,0),color555555;
STICKLINE(VOL AND Var4<N4,0,VOL,6,0),color666666;
STICKLINE(VOL AND Var4<N4,0,VOL,7,0),color777777;
STICKLINE(VOL AND Var4<N4,0,VOL,6,0),color888888;
STICKLINE(VOL AND Var4<N4,0,VOL,5,0),color999999;
STICKLINE(VOL AND Var4<N4,0,VOL,4,0),coloraaaaaa;
STICKLINE(VOL AND Var4<N4,0,VOL,3,0),colorbbbbbb;
STICKLINE(VOL AND Var4<N4,0,VOL,2,0),colorcccccc;
STICKLINE(VOL AND Var4<N4,0,VOL,1,0),colordddddd;
RSI:=SMA(MAX(CLOSE-REF(CLOSE,1),0),5,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
拋壓:STICKLINE(CROSS(84,RSI),0 ,VOL,9,0),COLORFF0033;
STICKLINE(CROSS(84,RSI),0 ,VOL,8,0),COLORFF0044;
STICKLINE(CROSS(84,RSI),0 ,VOL,7,0),COLORff0055;
STICKLINE(CROSS(84,RSI),0 ,VOL,6,0),COLORff0066;
STICKLINE(CROSS(84,RSI),0 ,VOL,5,0),COLORff0077;
STICKLINE(CROSS(84,RSI),0 ,VOL,4,0),COLORFF0088;
STICKLINE(CROSS(84,RSI),0 ,VOL,3,0),COLORff0099;
STICKLINE(CROSS(84,RSI),0 ,VOL,2,0),COLORff00aa;
STICKLINE(CROSS(84,RSI),0 ,VOL,1,0),COLORff00bb;
VAR13:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100,colorred;
VAR14:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR15:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR16:=(VAR13+VAR14+VAR15)/3;
VAR18:=IF(VAR16<=-20,10,0);
VAR19:=HHV(VAR18,10);
VAR20:=IF(VAR19 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
底部:STICKLINE(VAR20=20,0 ,VOL,9,0),COLOR005555;
STICKLINE(VAR20=20,0 ,VOL,8,0),COLOR006666;
STICKLINE(VAR20=20,0 ,VOL,7,0),COLOR007777;
STICKLINE(VAR20=20,0 ,VOL,6,0),COLOR008888;
STICKLINE(VAR20=20,0 ,VOL,5,0),COLOR009999;
STICKLINE(VAR20=20,0 ,VOL,4,0),COLOR00aaaa;
STICKLINE(VAR20=20,0 ,VOL,3,0),COLOR00bbbb;
STICKLINE(VAR20=20,0 ,VOL,2,0),COLOR00CCCC;
STICKLINE(VAR20=20,0 ,VOL,2,0),COLOR00dddd;
DRAWTEXT(VAR20=20,0,'底'),colorwhite;
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARF:=100-3*SMA((CLOSE-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1),15,1);
VAR100:=100-3*SMA((OPEN-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1),15,1);
VAR111:=VARF<REF(VAR100,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
大資金活動:STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,9,0),colormagenta;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,8,0),COLOR007700;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,7,0),COLOR008800;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,6,0),COLOR009900;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,5,0),COLOR00aa00;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,4,0),COLOR00BB00;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,3,0),COLOR00CC00;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,2,0),COLOR00DD00;
STICKLINE(VAR111 AND COUNT(VAR111,30)=1,0 ,VOL,1,0),COLOR00EE00;
A8:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4;
B8:=A8*(1+ ((C+O+H+L)/4-SMA(C,10,1))/SMA(C,21,1));
D8:=A8+3*STD(A8,10);
DRAWICON(CROSS(B8,A8) AND A8>REF(A8,1) AND D8>REF(D8,1),0,1);TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' m.weiqiv.net.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?