相關標簽:

?

{金錢摸鬼}

?

?

原理解析：
輸出VAR2:如果收盤價的5日指數移動平均/收盤價的9日指數移動平均的16日指數移動平均<=0.85ANDCLOSE/1日前的收盤價>0.905ANDCLOSE/1日前的收盤價<1.05ANDVOL/當前流通股本(手)*100<5,返回50,否則返回0 VAR3賦值:(-100)*(34日內最高價的最高值-收盤價)/(34日內最高價的最高值-34日內最低價的最低值)+100 VAR4賦值:(-100)*(50日內最高價的最高值-收盤價)/(50日內最高價的最高值-50日內最低價的最低值)+100 VAR5賦值:(-100)*(70日內最高價的最高值-收盤價)/(70日內最高價的最高值-70日內最低價的最低值)+100 VAR6賦值:((收盤價-收盤價的34日簡單移動平均)/收盤價的34日簡單移動平均*100+10)*5 VAR7賦值:((收盤價-收盤價的50日簡單移動平均)/收盤價的50日簡單移動平均*100+10)*5 VAR8賦值:((收盤價-收盤價的70日簡單移動平均)/收盤價的70日簡單移動平均*100+10)*5 VAR9賦值:(VAR3+VAR4+VAR5+VAR6+VAR7+VAR8)/6 VARA賦值:VAR9的3日指數移動平均 VARB賦值:VAR6-VAR8的絕對值 VARC賦值:(VAR9+VARB)/2 VARD賦值:(-1)*(100*(1-以收盤價計算的獲利盤比例)的1日指數移動平均-50)+50 VARE賦值:VARD+VARC 輸出VARF:如果VAR2>0ANDVARE<0,返回200,否則返回0 輸出VAR10:如果VARC<0ANDCLOSE=5日內收盤價的最低值ANDCLOSE/1日前的收盤價>0.905ANDCLOSE/1日前的收盤價<1.05ANDVOL/當前流通股本(手)*100<5,返回-50,否則返回0 輸出VAR11:如果VARE<0ANDVAR10=-50,返回100,否則返回0 VAR12賦值:收盤價的3日簡單移動平均 VAR13賦值:2日前的收盤價*0.865 VAR14賦值:13日前的收盤價*0.772 VAR15賦值:VAR13和VAR14的較小值 VAR16賦值:100*成交量(手)/當前流通股本(手) VAR17賦值:收盤價的13日簡單移動平均 輸出VAR18:如果(收盤價-VAR15)/收盤價<0.03ANDSUM(VAR16,5)/5<1.8,返回1,否則返回0 輸出VAR19:如果VAR18>0AND(VAR10<0ORVAR2>0),返回100,否則返回0 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

VAR2:IF(EMA(CLOSE,5)/EMA(EMA(CLOSE,9),16)<=0.85 AND CLOSE/REF(CLOSE,1)>0.905 AND CLOSE/REF(CLOSE,1)<1.05 AND VOL/CAPITAL*100<5,50,0);
VAR3:=(-100)*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100;
VAR4:=(-100)*(HHV(HIGH,50)-CLOSE)/(HHV(HIGH,50)-LLV(LOW,50))+100;
VAR5:=(-100)*(HHV(HIGH,70)-CLOSE)/(HHV(HIGH,70)-LLV(LOW,70))+100;
VAR6:=((CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100+10)*5;
VAR7:=((CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100+10)*5;
VAR8:=((CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100+10)*5;
VAR9:=(VAR3+VAR4+VAR5+VAR6+VAR7+VAR8)/6;
VARA:=EMA(VAR9,3);
VARB:=ABS(VAR6-VAR8);
VARC:=(VAR9+VARB)/2;
VARD:=(-1)*(EMA(100*(1-WINNER(CLOSE)),1)-50)+50;
VARE:=VARD+VARC;
VARF:IF(VAR2>0 AND VARE<0,200,0);
VAR10:IF(VARC<0 AND CLOSE=LLV(CLOSE,5) AND CLOSE/REF(CLOSE,1)>0.905 AND CLOSE/REF(CLOSE,1)<1.05 AND VOL/CAPITAL*100<5,-50,0);
VAR11:IF(VARE<0 AND VAR10=-50,100,0);
VAR12:=MA(CLOSE,3);
VAR13:=REF(CLOSE,2)*0.865;
VAR14:=REF(CLOSE,13)*0.772;
VAR15:=MIN(VAR13,VAR14);
VAR16:=100*VOL/CAPITAL;
VAR17:=MA(CLOSE,13);
VAR18:IF((CLOSE-VAR15)/CLOSE<0.03 AND SUM(VAR16,5)/5<1.8,1,0);
VAR19:IF(VAR18>0 AND (VAR10<0 OR VAR2>0),100,0);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?