相關標簽:

?

?

?

原理解析：
賦值:(收盤價*3+最高價+最低價+開盤價)/6 賦值: JJ的13日指數移動平均 - JJ的21日指數移動平均 賦值: SK的3日指數移動平均 賦值: SK的10日指數移動平均 A1賦值:收盤價的7日指數移動平均-收盤價的21日指數移動平均 B1賦值:(0.668*1日前的A1+0.333*A1)的1日指數移動平均 B1,COLORSTICK X1賦值:成交量(手)/成交量(手)的13日累和 X2賦值:以X1為權重收盤價的動態移動平均 X3賦值:(收盤價-X2)/X2*40 L2賦值:成交額(元)/(100*成交量(手))的13日簡單移動平均 CYS13賦值: (收盤價-L2)/L2*100 輸出天堂:如果A1>=B1,返回A1,否則返回B1,線寬為2,畫洋紅色 輸出地獄:如果B1-A1,返回B1,否則返回A1,畫綠色,線寬為2 輸出上帝:當滿足條件CYS13>5時,在0和-地獄位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫黃色 輸出得道成仙:當滿足條件X3>0AND天堂>0時,在天堂+0.1和天堂位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫洋紅色 收盤價>收盤價的30日簡單移動平均,COLORFF80FF,線寬為2 DIFF賦值:收盤價的12日指數移動平均 - 收盤價的26日指數移動平均 DEA賦值:DIFF的9日指數移動平均 RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 J1賦值:DIFF J2賦值:DEA J3賦值:K J4賦值:D VL賦值:1日前的最低價 VH賦值:1日前的最高價 VAR1賦值:最高價-VH的絕對值的13日[1日權重]移動平均/最高價-VH和0的較大值的13日[1日權重]移動平均*100 VAR2賦值:最低價-VL的絕對值的13日[1日權重]移動平均/最低價-VL和0的較大值的13日[1日權重]移動平均*100 VAR3賦值:1日前的收盤價 VAR4賦值:VAR2的13日簡單移動平均 VAR5賦值:34日內最低價的最低值 VAR6賦值:收盤價-VAR3和0的較大值的6日[1日權重]移動平均/收盤價-VAR3的絕對值的6日[1日權重]移動平均*100 VAR7賦值:93上穿VAR6 VAR8賦值:如果最低價<=VAR5,返回VAR4,否則返回0的3日指數移動平均 VAR9賦值:最高價>0日內最低價的最低值*7 VAR10賦值:((((收盤價-54日內最低價的最低值)/(54日內最高價的最高值-54日內最低價的最低值))*100)的7日[1日權重]移動平均的5日[1日權重]移動平均) VAR11賦值:((((收盤價-54日內最低價的最低值)/(54日內最高價的最高值-54日內最低價的最低值)*100)的7日[1日權重]移動平均) * 16.18) - (VAR10 * 10.9) 輸出得道:J1上穿J2ANDVOL>1日前的成交量(手)的5日累和的3日過濾,畫黃色,線寬為2 WR10賦值:-100*(10日內最高價的最高值-收盤價)/(10日內最高價的最高值-10日內最低價的最低值),畫白色,線寬為1 WR45賦值:-100*(45日內最高價的最高值-收盤價)/(45日內最高價的最高值-45日內最低價的最低值),COLORFFB900,線寬為1 WR99賦值:-100*(99日內最高價的最高值-收盤價)/(99日內最高價的最高值-99日內最低價的最低值),畫紅色,線寬為1 天賦值: 0, 線寬為2 COLOR446600 地1賦值:-95, 線寬為2 COLOR446600 輸出選股2:如果天堂上穿0,返回1,否則返回0 當滿足條件(天堂上穿0)時,在0.8位置畫1號圖標 當滿足條件(天堂上穿0)時,在-0.5位置畫25號圖標 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

JJ :=(C*3+H+L+O)/6;SK := EMA(JJ,13) - EMA(JJ,21);SD := EMA(SK,3);SP := EMA(SK,10);A1:=EMA(C,7)-EMA(C,21);B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);B1,COLORSTICK;X1:=V/SUM(V,13);X2:=DMA(C,X1);X3:=(C-X2)/X2*40;L2:=MA(AMOUNT/(100*V),13);CYS13:= (C-L2)/L2*100;天堂:IF(A1>=B1,A1,B1),LINETHICK2,COLORMAGENTA;地獄:IF(B1-A1,B1,A1),COLORGREEN,LINETHICK2;上帝:STICKLINE(CYS13>5,0,-地獄,2,0 ),COLORYELLOW;得道成仙:STICKLINE(X3>0 AND 天堂>0,天堂+0.1,天堂,1,0),COLORMAGENTA;C>MA(C,30),COLORFF80FF,LINETHICK2;DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);DEA:=EMA(DIFF,9);RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);J1:=DIFF;J2:=DEA;J3:=K;J4:=D;VL:=REF(LOW,1); VH:=REF(H,1);VAR1:=SMA(ABS(H-VH),13,1)/SMA(MAX(H-VH,0),13,1)*100;VAR2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;VAR3:=REF(CLOSE,1);VAR4:=MA(VAR2,13);VAR5:=LLV(L,34);VAR6:=SMA(MAX(CLOSE-VAR3,0),6,1)/SMA(ABS(CLOSE-VAR3),6,1)*100;VAR7:=CROSS(93,VAR6);VAR8:=EMA(IF(L<=VAR5,VAR4,0),3);VAR9:=H>LLV(L,0)*7;VAR10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));VAR11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (VAR10 * 10.9);得道:FILTER(CROSS(J1,J2) AND VOL>REF(SUM(VOL,5),1),3),COLORYELLOW,LINETHICK2;WR10:=-100*(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10)),COLORWHITE,LINETHICK1;WR45:=-100*(HHV(HIGH,45)-CLOSE)/(HHV(HIGH,45)-LLV(LOW,45)),COLORFFB900,LINETHICK1;WR99:=-100*(HHV(HIGH,99)-CLOSE)/(HHV(HIGH,99)-LLV (LOW,99)),COLORRED,LINETHICK1;天:= 0, LINETHICK2 COLOR446600;地1:=-95, LINETHICK2 COLOR446600;選股2:IF(CROSS(天堂,0),1,0);DRAWICON((CROSS(天堂,0) ),0.8,1);DRAWICON((CROSS(天堂,0) ),-0.5,25);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?