相關(guān)標(biāo)簽:

?

?

原理解析：
R賦值:((收盤(pán)價(jià) - 9日內(nèi)最低價(jià)的最低值)/(9日內(nèi)最高價(jià)的最高值 - 9日內(nèi)最低價(jià)的最低值))*(100) K賦值:R的3日指數(shù)移動(dòng)平均 D賦值:K的3日指數(shù)移動(dòng)平均 陡峭度賦值:如果(收盤(pán)價(jià)的有效數(shù)據(jù)周期數(shù)>7),返回(100)*((收盤(pán)價(jià)的7日簡(jiǎn)單移動(dòng)平均)/(7日內(nèi)收盤(pán)價(jià)的7日簡(jiǎn)單移動(dòng)平均的最低值)-1),否則返回1 N賦值:如果(陡峭度>0.35),返回6,否則返回65 VAR1賦值:((-((100)*(N日內(nèi)最高價(jià)的最高值 - 收盤(pán)價(jià)))/(N日內(nèi)最高價(jià)的最高值 - N日內(nèi)最低價(jià)的最低值))) VAR1A賦值:((-((100)*(N日內(nèi)最高價(jià)的最高值 - 收盤(pán)價(jià)))/(N日內(nèi)最高價(jià)的最高值 - N日內(nèi)最低價(jià)的最低值)) + 100) 獲利盤(pán)賦值:(以收盤(pán)價(jià)計(jì)算的獲利盤(pán)比例)*(100) 獲利線賦值:獲利盤(pán)的7日線性回歸預(yù)測(cè)值 線賦值:(VAR1A的7日線性回歸預(yù)測(cè)值)*((日期 < 20070110)) 滿倉(cāng)賦值:((線 > 1日前的線) AND (線 < 25) AND (統(tǒng)計(jì)5日中滿足(線>1日前的線)的天數(shù) = 1) AND 如果(N=6),返回(獲利盤(pán)<60),否則返回(獲利盤(pán)<40) AND (統(tǒng)計(jì)20日中滿足(獲利線>20)的天數(shù) > 0))*(40) 當(dāng)滿足條件滿倉(cāng)時(shí),在0和40位置之間畫(huà)柱狀線,寬度為5,0不為0則畫(huà)空心柱.,COLOR008000 當(dāng)滿足條件滿倉(cāng)時(shí),在45位置書(shū)寫(xiě)文字,畫(huà)白色 輕倉(cāng)賦值:如果(獲利盤(pán)>=60)AND(線>1日前的線)AND(1日前的線<20)AND(線<40)AND(統(tǒng)計(jì)5日中滿足(線>1日前的線)的天數(shù)=1)AND(1日前的N=6),返回1,否則返回0 當(dāng)滿足條件輕倉(cāng)時(shí),在20和D位置之間畫(huà)柱狀線,寬度為4,1不為0則畫(huà)空心柱.,COLORFF00FF 當(dāng)滿足條件輕倉(cāng)時(shí),在45位置書(shū)寫(xiě)文字,COLORFF00FF 出擊賦值:線上穿20 AND 如果(統(tǒng)計(jì)3日中滿足K上穿D的天數(shù)=1)AND(D<40),返回1,否則返回(線>D)OR(K>D)AND(D<60) AND 如果(N=6),返回(獲利盤(pán)<70),否則返回(獲利盤(pán)<40) AND (統(tǒng)計(jì)20日中滿足(獲利線>20)的天數(shù) > 0) 當(dāng)滿足條件出擊時(shí),在0和50位置之間畫(huà)柱狀線,寬度為3,1不為0則畫(huà)空心柱.,COLOR44BB00 當(dāng)滿足條件出擊時(shí),在55位置書(shū)寫(xiě)文字,畫(huà)紅色 輸出進(jìn)一:線上穿D AND (D > 30) AND (D > 1日前的D) AND (D < 80) 輸出進(jìn)二:線上穿獲利線 AND (D > 30) AND (獲利線 > 25) AND (D > 1日前的D) 低進(jìn)賦值:如果進(jìn)一AND(D>獲利線),返回進(jìn)二,否則返回進(jìn)一 當(dāng)滿足條件低進(jìn)時(shí),在30位置書(shū)寫(xiě)文字,畫(huà)白色 當(dāng)滿足條件低進(jìn)時(shí),在20和30位置之間畫(huà)柱狀線,寬度為3,1不為0則畫(huà)空心柱.,COLOR000080 當(dāng)滿足條件進(jìn)二時(shí),在50位置書(shū)寫(xiě)文字,COLOR800080 當(dāng)滿足條件進(jìn)二時(shí),在30和50位置之間畫(huà)柱狀線,寬度為3,1不為0則畫(huà)空心柱.,畫(huà)黃色 狂喜賦值:(30)*(VAR1上穿(-2)) 當(dāng)滿足條件狂喜時(shí),在0和20位置之間畫(huà)柱狀線,寬度為3,1不為0則畫(huà)空心柱.,畫(huà)黃色 當(dāng)滿足條件狂喜時(shí),在(-5)位置書(shū)寫(xiě)文字,畫(huà)黃色 狂喜過(guò)望賦值:(50)*((VAR1 = 0)) 恐慌賦值:(20)*(VAR1 < -94) 當(dāng)滿足條件恐慌時(shí),在0和(-20)位置之間畫(huà)柱狀線,寬度為5,0不為0則畫(huà)空心柱.,COLORC1C1C1 當(dāng)滿足條件恐慌時(shí),在(-25)位置書(shū)寫(xiě)文字,COLORC1C1C1 極度恐慌賦值:(-40)*(VAR1 = (-100)) 當(dāng)滿足條件極度恐慌時(shí),在0和(-40)位置之間畫(huà)柱狀線,寬度為7,1不為0則畫(huà)空心柱.,COLOR800000 當(dāng)滿足條件極度恐慌時(shí),在(-45)位置書(shū)寫(xiě)文字,畫(huà)綠色 半倉(cāng)賦值:(30)*(VAR1上穿(-94) AND (統(tǒng)計(jì)5日中滿足恐慌的天數(shù) > 0) AND (N = 1日前的N) AND 如果(N=6),返回(獲利盤(pán)<60),否則返回(獲利盤(pán)<40) AND (統(tǒng)計(jì)20日中滿足(獲利線>20)的天數(shù) > 0)) 當(dāng)滿足條件半倉(cāng)時(shí),在0和30位置之間畫(huà)柱狀線,寬度為4,1不為0則畫(huà)空心柱.,COLORFFFF00 當(dāng)滿足條件半倉(cāng)時(shí),在35位置書(shū)寫(xiě)文字,COLORFFFF00 加倉(cāng)賦值:(30)*(K上穿20 AND (統(tǒng)計(jì)5日中滿足半倉(cāng)的天數(shù) > 0)) 當(dāng)滿足條件加倉(cāng)時(shí),在0和20位置之間畫(huà)柱狀線,寬度為6,1不為0則畫(huà)空心柱.,COLOR808080 當(dāng)滿足條件加倉(cāng)時(shí),在25位置書(shū)寫(xiě)文字,COLOR808080 背離賦值:(統(tǒng)計(jì)2日中滿足恐慌的天數(shù) > 0) AND (收盤(pán)價(jià) < 1日前的收盤(pán)價(jià)) AND (VAR1 > 1日前的VAR1) 當(dāng)滿足條件背離時(shí),在0位置畫(huà)1號(hào)圖標(biāo),COLORFFFFFF TIPTEXT(ISNULL(1日后的&收盤(pán)價(jià)),0,' m.weiqiv.net.cn '),畫(huà)紅色 TIPTEXT(ISNULL(1日前的收盤(pán)價(jià)),0,'同花順程序化交易')

?

?來(lái)源:程序化99（ m.weiqiv.net.cn ）

源碼：

?

?

?

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
K:=EMA(R,3);
D:=EMA(K,3);
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
N:=IF((陡峭度 > 0.35),6,65);
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))));
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100);
獲利盤(pán):=(WINNER(CLOSE))*(100);
獲利線:=FORCAST(獲利盤(pán),7);
線:=(FORCAST(VAR1A,7))*((DATE < 20070110));滿倉(cāng):=((線 > REF(線,1)) AND (線 < 25) AND (COUNT((線 > REF(線,1)),5) = 1) AND IF((N = 6),(獲利盤(pán) < 60),(獲利盤(pán) < 40)) AND (COUNT((獲利線 > 20),20) > 0))*(40);
STICKLINE(滿倉(cāng),0,40,5,0),Color008000;
DRAWTEXT(滿倉(cāng),45,'滿倉(cāng)'),colorwhite;
輕倉(cāng):=IF((獲利盤(pán) >= 60) AND (線 > REF(線,1)) AND (REF(線,1) < 20) AND (線 < 40) AND (COUNT((線 > REF(線,1)),5) = 1) AND (REF(N,1) = 6),1,0);
STICKLINE(輕倉(cāng),20,D,4,1),ColorFF00FF;
DRAWTEXT(輕倉(cāng),45,'輕倉(cāng)'),ColorFF00FF;

出擊:=CROSS(線,20) AND IF((COUNT(CROSS(K,D),3) = 1) AND (D < 40),1,(線 > D) OR (K > D) AND (D < 60)) AND IF((N = 6),(獲利盤(pán) < 70),(獲利盤(pán) < 40)) AND (COUNT((獲利線 > 20),20) > 0);
STICKLINE(出擊,0,50,3,1),Color44BB00;
DRAWTEXT(出擊,55,'出擊'),colorred;
進(jìn)一:CROSS(線,D) AND (D > 30) AND (D > REF(D,1)) AND (D < 80);
進(jìn)二:CROSS(線,獲利線) AND (D > 30) AND (獲利線 > 25) AND (D > REF(D,1));
低進(jìn):=IF(進(jìn)一 AND (D > 獲利線),進(jìn)二,進(jìn)一);
DRAWTEXT(低進(jìn),30,'低進(jìn)'),colorwhite;
STICKLINE(低進(jìn),20,30,3,1),Color000080;
DRAWTEXT(進(jìn)二,50,'高進(jìn)'),Color800080;
STICKLINE(進(jìn)二,30,50,3,1),coloryellow;
狂喜:=(30)*(CROSS(VAR1,(-2)));
STICKLINE(狂喜,0,20,3,1),coloryellow;
DRAWTEXT(狂喜,(-5),'要漲停'),coloryellow;
狂喜過(guò)望:=(50)*((VAR1 = 0));
恐慌:=(20)*(VAR1 < -94);
STICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;
DRAWTEXT(恐慌,(-25),'恐慌'),ColorC1C1C1;
極度恐慌:=(-40)*(VAR1 = (-100));
STICKLINE(極度恐慌,0,(-40),7,1),Color800000;
DRAWTEXT(極度恐慌,(-45),'極度恐慌'),colorgreen;
半倉(cāng):=(30)*(CROSS(VAR1,(-94)) AND (COUNT(恐慌,5) > 0) AND (N = REF(N,1)) AND IF((N = 6),(獲利盤(pán) < 60),(獲利盤(pán) < 40)) AND (COUNT((獲利線 > 20),20) > 0));
STICKLINE(半倉(cāng),0,30,4,1),ColorFFFF00;
DRAWTEXT(半倉(cāng),35,'半倉(cāng)'),ColorFFFF00;
加倉(cāng):=(30)*(CROSS(K,20) AND (COUNT(半倉(cāng),5) > 0));
STICKLINE(加倉(cāng),0,20,6,1),Color808080;
DRAWTEXT(加倉(cāng),25,'加倉(cāng)'),Color808080;
背離:=(COUNT(恐慌,2) > 0) AND (CLOSE < REF(CLOSE,1)) AND (VAR1 > REF(VAR1,1));
DRAWICON(背離,0,1),ColorFFFFFF;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' m.weiqiv.net.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?