相關標簽:

?

飛狐介入增倉副圖指標源碼

?

?

原理解析：
N賦值:3 M賦值:12 P賦值:24 DAT1賦值:1 賦值: 1日前的收盤價 RSI1賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 WR1賦值:-100*(34日內最高價的最高值-收盤價)/(34日內最高價的最高值-34日內最低價的最低值)+100 WR2賦值:-100*(50日內最高價的最高值-收盤價)/(50日內最高價的最高值-50日內最低價的最低值)+100 WR3賦值:-100*(70日內最高價的最高值-收盤價)/(70日內最高價的最高值-70日內最低價的最低值)+100 賦值: ((收盤價-收盤價的34日簡單移動平均)/收盤價的34日簡單移動平均*100+10)*5 賦值: ((收盤價-收盤價的50日簡單移動平均)/收盤價的50日簡單移動平均*100+10)*5 賦值: ((收盤價-收盤價的70日簡單移動平均)/收盤價的70日簡單移動平均*100+10)*5 S1賦值:(WR1+WR2+WR3+BIAS1+BIAS2+BIAS3)/6*DAT1 S2賦值:S1的3日指數移動平均 S3賦值:BIAS1-BIAS3的絕對值 獲利賦值:(-1)*(100*(1-以收盤價計算的獲利盤比例)的1日指數移動平均-50)+50 XC1賦值:獲利的3日指數移動平均 VAR1賦值:1/以收盤價計算的獲利盤比例 VAR2賦值:(收盤價-收盤價的13日簡單移動平均)/收盤價的13日簡單移動平均*100 VAR3賦值:100-VAR2的絕對值 VAR4賦值:3*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均-2*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR5賦值:3*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均-2*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR6賦值:100-VAR5 VAR7賦值:100-VAR4 VAR8賦值:以收盤價*0.95計算的獲利盤比例*100的3日簡單移動平均 VAR9賦值:如果VAR1>5,返回如果VAR1<100,返回VAR1,否則返回VAR3-10,否則返回0 ZLLZ賦值:((-1*(VAR7的1日指數移動平均-50))+50)*DAT1 SX賦值:(S2*2+S3*2+XC1+ZLLZ*3)/8*DAT1 X賦值:SX的N日指數移動平均*DAT1 SZ賦值:X的M日指數移動平均 Y賦值:SZ Z賦值:SX的P日簡單移動平均 當滿足條件RSI1>92ANDREF(RSI1,1)<92時,在Z位置書寫文字 LKJ賦值:ZLLZ的9日簡單移動平均的70日簡單移動平均 RRX賦值:如果ZLLZ上穿LKJANDLKJ<15,返回60,否則返回0 輸出介入:如果RRX>0,返回60,否則返回0 STICK,畫白色 當滿足條件介入>0時,在60位置畫1號圖標 當滿足條件介入>0時,在50位置書寫文字畫白色 RRRQ賦值:上次RRX>0距今天數<14 AND 收盤價=9日內收盤價的最低值 輸出增倉:如果RRRQ>0,返回40,否則返回0 STICK,畫黃色 當滿足條件增倉>0時,在40位置畫1號圖標 當滿足條件增倉>0時,在30位置書寫文字 ,畫黃色 MA1賦值:收盤價的3日指數移動平均 XA1賦值:MA1 MA2賦值:收盤價的10日指數移動平均 MA4賦值:收盤價的20日指數移動平均 MA3賦值:收盤價的30日指數移動平均 BA賦值:3*MA4-2*MA3 A賦值:(3*收盤價+最低價+開盤價+最高價)/6 B賦值:(20*A+19*1日前的A+18*2日前的A+17*3日前的A+16*4日前的A+15*5日前的A+14*6日前的A+13*7日前的A+12*8日前的A+11*9日前的A+10*10日前的A+9*11日前的A+8*12日前的A+7*13日前的A+6*14日前的A+5*15日前的A+4*16日前的A+3*17日前的A+2*18日前的A+20日前的A)/210 CIA賦值:(B+BA)/2 XA2賦值:CIA CMA賦值:CIA的13日指數移動平均 XA3賦值:CMA XDFG賦值:CIA的26日簡單移動平均 CFDS賦值:以收盤價計算的獲利盤比例*100的14日指數移動平均 CGHZ賦值:(50日內CFDS的最高值+CFDS*2)/3 輸出買1:如果Z<50ANDCROSS(Y,Z)ANDXA1>XDFG,返回30,否則返回0,STICK,畫綠色 當滿足條件買1>0時,在30位置畫1號圖標 當滿足條件買1>0時,在20位置書寫文字 ,,畫綠色 XZSA賦值:(100日內X的最高值+X*2)/3 CLOSE1賦值:"1A0001$收盤價" MA1D賦值:CLOSE1的5日指數移動平均 MA3D賦值:CLOSE1的20日指數移動平均 輸出買2:如果MA1D>MA3DAND買1>0,返回20,否則返回0,STICK,畫洋紅色 當滿足條件買2>0時,在20位置畫1號圖標 當滿足條件買2>0時,在10位置書寫文字畫洋紅色 輸出陰跌區:(100-(以收盤價的1日簡單移動平均計算的獲利盤比例*100))/(成交量(手)/當前流通股本(手)*1000)的12日指數移動平均,畫藍色 輸出賣:當滿足條件1日前的CFDS-1日前的CGHZ的絕對值<0.01ANDABS(CFDS-CGHZ)>0.01ANDCFDS>30ANDX>61時,在X和100位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫紅色 輸出排序A:如果介入>0OR增倉>0OR買1>0OR買2>0,返回1,否則返回0,STICK,畫青色

?

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

源碼：

?

?

N:=3;M:=12;P:=24;dat1:=1;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
wr1:=-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100;
wr2:=-100*(HHV(HIGH,50)-CLOSE)/(HHV(HIGH,50)-LLV(LOW,50))+100;
wr3:=-100*(HHV(HIGH,70)-CLOSE)/(HHV(HIGH,70)-LLV(LOW,70))+100;
BIAS1 := ((CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100+10)*5;
BIAS2 := ((CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100+10)*5;
BIAS3 := ((CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100+10)*5;
s1:=(wr1+wr2+wr3+bias1+bias2+bias3)/6*dat1;
s2:=ema(s1,3);
s3:=abs(bias1-bias3);
獲利:=(-1)*(ema(100*(1-WINNER(CLOSE)),1)-50)+50;
xc1:=ema(獲利,3);
Var1:=1/WINNER(CLOSE);
Var2:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Var3:=100-ABS(Var2);
Var4:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)
-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var5:=3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)
-2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var6:=100-Var5;
Var7:=100-Var4;
Var8:=MA(WINNER(CLOSE*0.95)*100,3);
Var9:=IF(Var1>5,IF(Var1<100,Var1,Var3-10),0);
zllz:=((-1*(ema(var7,1)-50))+50)*dat1;
sx:=(s2*2+s3*2+xc1+zllz*3)/8*dat1;
x:=ema(sx,n)*dat1;
sz:=ema(x,m);
y:=sz;
z:=ma(sx,p);
DRAWtext(rsi1>92 and ref(rsi1,1)<92 ,z,'X先生' );
lkj:=ma(ma(zllz,9),70);
rrx:=if(cross(zllz,lkj) and lkj<15,60,0);
介入:if(rrx>0,60,0) STICK,COLORWHITE;
DRAWICON(介入>0,60 ,1 );
DRAWTEXT(介入>0,50, '介入')COLORWHITE ;
rrrQ:=BARSLAST(rrx>0 )<14 and c=llv(c,9);
增倉:if(rrrQ>0,40,0) STICK,COLORYELLOW ;
DRAWICON(增倉>0,40 ,1 );
DRAWTEXT(增倉>0,30, '增倉') ,COLORYELLOW ;
MA1:=eMA(CLOSE,3);XA1:=ma1;
MA2:=EMA(CLOSE,10);
MA4:=EMA(CLOSE,20);
MA3:=EMA(CLOSE,30);
ba:=3*ma4-2*ma3;
a:=(3*c+l+o+h)/6;
b:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+14*ref(a,6)
+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)
+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+
ref(a,20))/210;
cia:=(b+ba)/2;XA2:=cia;
cma:=ema(cia,13);XA3:=cma;
xdfg:=ma(cia,26);
cfds:=ema(winner(c)*100,14);
cghz:=(hhv(cfds,50)+cfds*2)/3;
買1:if(z<50 and cross(y,z) and xa1>xdfg,30,0),stick,COLORGREEN;
DRAWICON(買1>0,30,1 );
DRAWTEXT(買1>0,20, '買1') ,,COLORGREEN;
xzsa:=(hhv(x,100)+x*2)/3;
close1:="1a0001$close";
MA1d:=EMA(CLOSE1,5);
MA3d:=EMA(CLOSE1,20);
買2:if(ma1d>ma3d and 買1>0,20,0),STICK,COLORMAGENTA;
DRAWICON(買2>0,20,1 );
DRAWTEXT(買2>0,10, '買2')COLORMAGENTA;
陰跌區:ema((100-(winner(ma(c,1))*100))/(vol/CAPITAL*1000),12),colorblue;
賣:STICKLINE(abs(ref(cfds,1)-ref(cghz,1))<0.01 and abs(cfds-cghz)>0.01 and cfds>30
and x>61,x,100,1,0),colorred;
排序A:if(介入>0 or 增倉>0 or 買1>0 or 買2>0,1,0),STICK,COLORCYAN;{程序化交易 www.kzuj.com.cn }

?

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

?