相關標簽:

?

原理解析：
M1賦值:5 M2賦值:10 M3賦值:20 M4賦值:60 M5賦值:120 M6賦值:250 輸出MA1:收盤價的M1日簡單移動平均,COLOR0000FF 輸出均線:收盤價的M2日簡單移動平均 輸出MA3:收盤價的M3日簡單移動平均 輸出MA4:收盤價的M4日簡單移動平均 輸出MA5:收盤價的M5日簡單移動平均 輸出MA6:收盤價的M6日簡單移動平均 A賦值:收盤價的有效數據周期數 AH賦值:200日內最高價的最高值 AL賦值:200日內最低價的最低值 B0賦值:(AH-AL)/40 B1賦值:最高價+B0 B2賦值:最低價-B0 當滿足條件(A+0)/34=(A+0)/34的向下舍入時,在B2-2.2*B0*1.1位置書寫文字,畫紅色 LC賦值:1日前的收盤價 RSI賦值:收盤價-LC和0的較大值的4.1日[1日權重]移動平均/收盤價-LC的絕對值的4.1日[1日權重]移動平均*100 當滿足條件RSI上穿11時,在最低價*0.99位置畫3號圖標 VAR28賦值:收盤價-LC和0的較大值的5.5日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 當滿足條件收盤價的60日指數移動平均-收盤價的12日指數移動平均>0ANDEMA(收盤價,12)/最低價>1.15的5日過濾時,在最低價位置書寫文字,COLORFF00FF VARA賦值:((成交額(元))/(成交量(手)))/(100) VARB賦值:((3)*(最高價)+最低價+開盤價+(2)*(收盤價))/(7) VARC賦值:((成交額(元)的7日累和)/(VARA))/(100) VARD賦值:以(成交量(手))/(VARC)為權重VARB的動態移動平均 VARE賦值:((收盤價-VARD)/(VARD))*(100) VARF賦值:((收盤價-34日內最低價的最低值)/(34日內最高價的最高值-34日內最低價的最低值))*(100) VARJ賦值:VARE的20日簡單移動平均+VARE的20日估算標準差 BIAS18賦值:((收盤價-收盤價的18日簡單移動平均)/(收盤價的18日簡單移動平均))*(100) AA賦值:VARF的3日[1日權重]移動平均 SS賦值:(1日前的BIAS18>=5) AND VARJ上穿VARE AND (AA>79) V7賦值:如果到最后交易的周期=1,返回成交量(手)*240/當前離開盤分鐘數/1日前的成交量(手)-1,否則返回成交量(手)/1日前的成交量(手)-1 當滿足條件V7>=1時,在開盤價和收盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫黃色 LC1賦值:1日前的收盤價 RSI1賦值:(((收盤價-LC1)和0的較大值的3日[1日權重]移動平均 / (收盤價-LC1)的絕對值的3日[1日權重]移動平均) * 100) FF賦值:收盤價的3日指數移動平均 MA15賦值:收盤價的21日指數移動平均 當滿足條件FF上穿MA15時,在(最低價*0.85)位置書寫文字,畫黃色 AA1賦值:(20日內最高價的最高值 - (2 * 真實波幅)) BB賦值:收盤價上穿1日前的55日內最高價的最高值 SSS賦值:收盤價的13日簡單移動平均和AA1的較小值上穿收盤價 BBB賦值:上次BB距今天數 SSSB賦值:上次SSS距今天數 B11賦值:((BBB = 0) AND (1日前的SSSB < 1日前的BBB)) B1B賦值:上次B11距今天數 B21賦值:((((BB = 1) AND (B1B < SSSB)) AND (B1B > 0)) AND (統計SSSB日中滿足BB的天數 < 3)) B2B賦值:上次B21距今天數 B3賦值:((((BB = 1) AND (B2B < B1B)) AND (統計SSSB日中滿足BB的天數 < 4)) AND (統計SSSB日中滿足BB的天數 > 2)) VAR2S賦值:(2*收盤價+最高價+最低價)/4 VAR3S賦值:如果年份>=2099ANDMONTH>2,返回0,否則返回1 VAR4S賦值:5日內最低價的最低值 VAR5S賦值:4日內最高價的最高值 散戶賦值:(VAR2S-VAR4S)/(VAR5S-VAR4S)*100的4日指數移動平均*VAR3S 莊家賦值:0.667*1日前的散戶+0.333*散戶的2日指數移動平均*VAR3S 當滿足條件散戶上穿莊家AND散戶<30時,在最低價-0.05位置書寫文字,畫紅色 MA20賦值:收盤價的20日簡單移動平均 MA90賦值:收盤價的90日簡單移動平均 Y1賦值:上次MA5上穿MA20距今天數 AND MA5>MA20 Y2賦值:Y1 AND 上次MA5上穿MA90距今天數 Y3賦值:Y2 AND MA20上穿MA90 當滿足條件Y3時,在開盤價和收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫黃色 當滿足條件Y3時,在最低價-0.40位置書寫文字,畫白色 F0賦值:上次收盤價的5日簡單移動平均上穿收盤價的90日簡單移動平均距今天數 F1賦值:F0 AND 上次收盤價的20日簡單移動平均上穿收盤價的90日簡單移動平均距今天數 F2賦值:F1 AND 收盤價的5日簡單移動平均上穿收盤價的20日簡單移動平均 AND 收盤價的20日簡單移動平均>收盤價的90日簡單移動平均 當滿足條件F2時,在最低價-0.10位置畫1號圖標 當滿足條件F2時,在最低價-0.40位置書寫文字,COLORFF00FF M賦值:開盤價 M11賦值:收盤價的1日簡單移動平均 M22賦值:1日前的M11 M33賦值:1日前的M22 輸出保護價:(M22+M33+M)/3,畫白色,線寬為0 VAR1賦值:21日內最低價的最低值 VAR2賦值:21日內最高價的最高值 AK1賦值:(((收盤價-VAR1)/(VAR2-VAR1))*100)的5日指數移動平均 AK賦值:(((收盤價-VAR1)/(VAR2-VAR1))*50)的13日指數移動平均 DD賦值:((0.667*1日前的AK1)+(0.333*AK1))的2日指數移動平均 VAR3賦值:55日內最低價的最低值 VAR4賦值:34日內最高價的最高值 VAR5賦值:(((收盤價-VAR3)/(VAR4-VAR3))*100)的3日指數移動平均 VAR6賦值:((AK + VAR5) / 2) VAR7賦值:((0.667*1日前的VAR5)+(0.333*AK1))的2日指數移動平均 VAR8賦值:VAR6的5日指數移動平均 BBA賦值:((0.667*1日前的VAR8)+(0.333*VAR8))的2日指數移動平均 AB賦值:AK1上穿AK BB1賦值:(AK1上穿BBA AND (BBA < 30)) CD賦值:(BBA * 0.6) 當滿足條件(CD=0.6)時,在(最低價*0.99)位置書寫文字,線寬為2,COLOR33CC99 當滿足條件(AB=1)時,在(最低價*0.99)位置書寫文字,線寬為2,畫白色 C1賦值:(收盤價+最低價+最高價)/3 C2賦值:C1的6日指數移動平均 C3賦值:C2的5日指數移動平均 C4賦值:C2上穿C3 當滿足條件C4時,在最低價/1.01位置書寫文字,,畫紅色 C5賦值:C3上穿C2 當滿足條件C5時,在最高價*1.03位置書寫文字,,畫藍色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

M1:=5;
M2:=10;
M3:=20;
M4:=60;
M5:=120;
M6:=250;
MA1:MA(CLOSE,M1),COLOR0000FF;
MA2:MA(CLOSE,M2);
MA3:MA(CLOSE,M3);
MA4:MA(CLOSE,M4);
MA5:MA(CLOSE,M5);
MA6:MA(CLOSE,M6);
A:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,200);
AL:=LLV(LOW,200);
B0:=(AH-AL)/40;
B1:=HIGH+B0;
B2:=LOW-B0;
DRAWTEXT((A+0)/34=FLOOR((A+0)/34),
B2-2.2*B0*1.1,'←窗,變盤'),COLORRED;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
DRAWICON(CROSS(RSI,11) ,L*0.99,3);
VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'買'),COLORFF00FF;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
V7:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
STICKLINE(V7>=1,O,C,1,0),COLORYELLOW;
LC1:=REF(CLOSE,1);
RSI1:=((SMA(MAX((CLOSE - LC1),0),3,1) / SMA(ABS((CLOSE - LC1)),3,1)) * 100);
FF:=EMA(CLOSE,3); MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.85),'←底背離'),COLORYELLOW;
AA1:=(HHV(HIGH,20) - (2 * ATR));
BB:=CROSS(CLOSE,REF(HHV(HIGH,55),1));
SSS:=CROSS(MIN(MA(CLOSE,13),AA1),CLOSE);
BBB:=BARSLAST(BB); SSSB:=BARSLAST(SSS);
B11:=((BBB = 0) AND (REF(SSSB,1) < REF(BBB,1)));
B1B:=BARSLAST(B11);
B21:=((((BB = 1) AND (B1B < SSSB)) AND (B1B > 0)) AND (COUNT(BB,SSSB) < 3));
B2B:=BARSLAST(B21); B3:=((((BB = 1) AND (B2B < B1B)) AND (COUNT(BB,SSSB) < 4)) AND (COUNT(BB,SSSB) > 2));
VAR2S:=(2*CLOSE+HIGH+LOW)/4;
VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4S:=LLV(LOW,5);
VAR5S:=HHV(HIGH,4);
散戶:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S;
莊家:=EMA(0.667*REF(散戶,1)+0.333*散戶,2)*VAR3S;
DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L-0.05,'←吸'),COLORRED;
MA20:=MA(C,20);
MA90:=MA(C,90);
Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20;
Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90));
Y3:=Y2 AND CROSS(MA20,MA90);
STICKLINE(Y3,O,C,3,0),COLORYELLOW;
DRAWTEXT(Y3,L-0.40,'←黑馬'),COLORWHITE;
F0:=BARSLAST(CROSS(MA(C,5),MA(C,90)));
F1:=F0 AND BARSLAST(CROSS(MA(C,20),MA(C,90)));
F2:=F1 AND CROSS(MA(C,5),MA(C,20)) AND MA(C,20)>MA(C,90);
DRAWICON(F2,L-0.10,1);
DRAWTEXT(F2,L-0.40,'←黑馬'),COLORFF00FF;
M:=OPEN;
M11:=MA(C,1);
M22:=REF(M11,1);
M33:=REF(M22,1);
保護價:(M22+M33+M)/3,COLORWHITE,LINETHICK0;
{DRAWTEXT(CROSS(Y,X),(LOW * 0.985),'▲'),LINETHICK2,COLORRED;
DRAWTEXT(CROSS(X,Y),(HIGH * 1.02),'◆'),LINETHICK2,COLOR00FF00;
DRAWTEXT(DB,(HIGH * 1.02),'●'),LINETHICK2,COLOR00FF00;}
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
DD:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
VAR3:=LLV(LOW,55);
VAR4:=HHV(HIGH,34);
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
VAR6:=((AK + VAR5) / 2); VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);
VAR8:=EMA(VAR6,5);
BBA:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
AB:=CROSS(AK1,AK);
BB1:=(CROSS(AK1,BBA) AND (BBA < 30));
CD:=(BBA * 0.6); DRAWTEXT((CD = 0.6),(LOW * 0.99),'□'),LINETHICK2,COLOR33CC99;
DRAWTEXT((AB = 1),(LOW * 0.99),'□'),LINETHICK2,COLORWHITE;
C1:=(CLOSE+LOW+HIGH)/3;
C2:=EMA(C1,6);
C3:=EMA(C2,5);
C4:=CROSS(C2,C3);
DRAWTEXT(C4,LOW/1.01,''),,COLORRED;
C5:=CROSS(C3,C2);
DRAWTEXT(C5,HIGH*1.03,''),,COLORBLUE;
{IF(MA1>REF(MA1,1),MA1,DRAWNULL),COLORRED,LINETHICK2;
IF(MA1>REF(均衡,1) AND 中軌>REF(C,1),11);
DRAWTEXT(VAR55,L*0.98,'←追'),COLORYELLOW;};
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?