相關標簽:

?

?

?

原理解析：
A1賦值:收盤價的7日指數移動平均-收盤價的21日指數移動平均 B1賦值:(0.668*1日前的A1+0.333*A1)的1日指數移動平均 輸出天知多:如果A1>=B1,返回A1,否則返回B1,線寬為1,畫黃色 輸出天知空:B1,線寬為1,畫綠色 輸出天知:0,畫淡洋紅色 LC賦值:1日前的收盤價 RSI1賦值:收盤價-LC和0的較大值的2日[1日權重]移動平均/收盤價-LC的絕對值的2日[1日權重]移動平均*100 RSI2賦值:收盤價-LC和0的較大值的3日[1日權重]移動平均/收盤價-LC的絕對值的3日[1日權重]移動平均*100 RSI3賦值:收盤價-LC和0的較大值的4日[1日權重]移動平均/收盤價-LC的絕對值的4日[1日權重]移動平均*100 RSI4賦值:收盤價-LC和0的較大值的5日[1日權重]移動平均/收盤價-LC的絕對值的5日[1日權重]移動平均*100 RSI5賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 RSI6賦值:收盤價-LC和0的較大值的7日[1日權重]移動平均/收盤價-LC的絕對值的7日[1日權重]移動平均*100 RSI7賦值:收盤價-LC和0的較大值的8日[1日權重]移動平均/收盤價-LC的絕對值的8日[1日權重]移動平均*100 RSI8賦值:收盤價-LC和0的較大值的9日[1日權重]移動平均/收盤價-LC的絕對值的9日[1日權重]移動平均*100 RSI9賦值:收盤價-LC和0的較大值的10日[1日權重]移動平均/收盤價-LC的絕對值的10日[1日權重]移動平均*100 RSI10賦值:收盤價-LC和0的較大值的11日[1日權重]移動平均/收盤價-LC的絕對值的11日[1日權重]移動平均*100 RSI11賦值:收盤價-LC和0的較大值的12日[1日權重]移動平均/收盤價-LC的絕對值的12日[1日權重]移動平均*100 RSI12賦值:收盤價-LC和0的較大值的13日[1日權重]移動平均/收盤價-LC的絕對值的13日[1日權重]移動平均*100 RSI13賦值:收盤價-LC和0的較大值的14日[1日權重]移動平均/收盤價-LC的絕對值的14日[1日權重]移動平均*100 RSI14賦值:收盤價-LC和0的較大值的15日[1日權重]移動平均/收盤價-LC的絕對值的15日[1日權重]移動平均*100 RSI15賦值:收盤價-LC和0的較大值的16日[1日權重]移動平均/收盤價-LC的絕對值的16日[1日權重]移動平均*100 RSI16賦值:收盤價-LC和0的較大值的17日[1日權重]移動平均/收盤價-LC的絕對值的17日[1日權重]移動平均*100 RSI17賦值:收盤價-LC和0的較大值的18日[1日權重]移動平均/收盤價-LC的絕對值的18日[1日權重]移動平均*100 RSI18賦值:收盤價-LC和0的較大值的19日[1日權重]移動平均/收盤價-LC的絕對值的19日[1日權重]移動平均*100 RSI19賦值:收盤價-LC和0的較大值的20日[1日權重]移動平均/收盤價-LC的絕對值的20日[1日權重]移動平均*100 RSI21賦值:收盤價-LC和0的較大值的21日[1日權重]移動平均/收盤價-LC的絕對值的21日[1日權重]移動平均*100 RSI30賦值:收盤價-LC和0的較大值的30日[1日權重]移動平均/收盤價-LC的絕對值的30日[1日權重]移動平均*100 RSI40賦值:收盤價-LC和0的較大值的40日[1日權重]移動平均/收盤價-LC的絕對值的40日[1日權重]移動平均*100 RSI50賦值:收盤價-LC和0的較大值的50日[1日權重]移動平均/收盤價-LC的絕對值的50日[1日權重]移動平均*100 RSI60賦值:收盤價-LC和0的較大值的60日[1日權重]移動平均/收盤價-LC的絕對值的60日[1日權重]移動平均*100 RSI70賦值:收盤價-LC和0的較大值的70日[1日權重]移動平均/收盤價-LC的絕對值的70日[1日權重]移動平均*100 RSI80賦值:收盤價-LC和0的較大值的80日[1日權重]移動平均/收盤價-LC的絕對值的80日[1日權重]移動平均*100 RSI90賦值:收盤價-LC和0的較大值的90日[1日權重]移動平均/收盤價-LC的絕對值的90日[1日權重]移動平均*100 RSI100賦值:收盤價-LC和0的較大值的100日[1日權重]移動平均/收盤價-LC的絕對值的100日[1日權重]移動平均*100 RSI110賦值:收盤價-LC和0的較大值的110日[1日權重]移動平均/收盤價-LC的絕對值的110日[1日權重]移動平均*100 RSI120賦值:收盤價-LC和0的較大值的120日[1日權重]移動平均/收盤價-LC的絕對值的120日[1日權重]移動平均*100 短線RSI賦值:(RSI1+RSI2+RSI3+RSI4+RSI5)/5,畫白色 中線RSI賦值:(RSI6+ RSI7+ RSI8+ RSI9+ RSI10+ RSI11+ RSI12+ RSI13+ RSI14+ RSI15+ RSI16+ RSI17+ RSI18+ RSI19+ RSI21)/15,畫黃色 長線RSI賦值:(RSI21+RSI30+RSI40+RSI50+RSI60+RSI70+RSI80+RSI90+RSI100+RSI110+RSI120)/11 A賦值:短線RSI上穿中線RSI B賦值:中線RSI上穿短線RSI 當滿足條件A時,在天知空位置畫1號圖標 當滿足條件B時,在天知空位置畫12號圖標 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

A1:=EMA(CLOSE,7)-EMA(CLOSE,21);
B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);
天知多:IF(A1>=B1,A1,B1),LINETHICK1,coloryellow;
天知空:B1,LINETHICK1,colorgreen;
天知:0,colorlimagenta;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),4,1)/SMA(ABS(CLOSE-LC),4,1)*100;
RSI4:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
RSI5:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI6:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
RSI7:=SMA(MAX(CLOSE-LC,0),8,1)/SMA(ABS(CLOSE-LC),8,1)*100;
RSI8:=SMA(MAX(CLOSE-LC,0),9,1)/SMA(ABS(CLOSE-LC),9,1)*100;
RSI9:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1)*100;
RSI10:=SMA(MAX(CLOSE-LC,0),11,1)/SMA(ABS(CLOSE-LC),11,1)*100;
RSI11:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI12:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
RSI13:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
RSI14:=SMA(MAX(CLOSE-LC,0),15,1)/SMA(ABS(CLOSE-LC),15,1)*100;
RSI15:=SMA(MAX(CLOSE-LC,0),16,1)/SMA(ABS(CLOSE-LC),16,1)*100;
RSI16:=SMA(MAX(CLOSE-LC,0),17,1)/SMA(ABS(CLOSE-LC),17,1)*100;
RSI17:=SMA(MAX(CLOSE-LC,0),18,1)/SMA(ABS(CLOSE-LC),18,1)*100;
RSI18:=SMA(MAX(CLOSE-LC,0),19,1)/SMA(ABS(CLOSE-LC),19,1)*100;
RSI19:=SMA(MAX(CLOSE-LC,0),20,1)/SMA(ABS(CLOSE-LC),20,1)*100;
RSI21:=SMA(MAX(CLOSE-LC,0),21,1)/SMA(ABS(CLOSE-LC),21,1)*100;
RSI30:=SMA(MAX(CLOSE-LC,0),30,1)/SMA(ABS(CLOSE-LC),30,1)*100;
RSI40:=SMA(MAX(CLOSE-LC,0),40,1)/SMA(ABS(CLOSE-LC),40,1)*100;
RSI50:=SMA(MAX(CLOSE-LC,0),50,1)/SMA(ABS(CLOSE-LC),50,1)*100;
RSI60:=SMA(MAX(CLOSE-LC,0),60,1)/SMA(ABS(CLOSE-LC),60,1)*100;
RSI70:=SMA(MAX(CLOSE-LC,0),70,1)/SMA(ABS(CLOSE-LC),70,1)*100;
RSI80:=SMA(MAX(CLOSE-LC,0),80,1)/SMA(ABS(CLOSE-LC),80,1)*100;
RSI90:=SMA(MAX(CLOSE-LC,0),90,1)/SMA(ABS(CLOSE-LC),90,1)*100;
RSI100:=SMA(MAX(CLOSE-LC,0),100,1)/SMA(ABS(CLOSE-LC),100,1)*100;
RSI110:=SMA(MAX(CLOSE-LC,0),110,1)/SMA(ABS(CLOSE-LC),110,1)*100;
RSI120:=SMA(MAX(CLOSE-LC,0),120,1)/SMA(ABS(CLOSE-LC),120,1)*100;
短線RSI:=(RSI1+RSI2+RSI3+RSI4+RSI5)/5,colorwhite;
中線RSI:=(RSI6+ RSI7+ RSI8+ RSI9+ RSI10+ RSI11+ RSI12+ RSI13+ RSI14+ RSI15+ RSI16+ RSI17+ RSI18+ RSI19+ RSI21)/15,coloryellow;
長線RSI:=(RSI21+RSI30+RSI40+RSI50+RSI60+RSI70+RSI80+RSI90+RSI100+RSI110+RSI120)/11;
A:=CROSS(短線RSI,中線RSI);
B:=CROSS(中線RSI,短線RSI);
DRAWICON(A,天知空,1);
DRAWICON(B,天知空,12);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?