同花顺MACD量能分析副图源码 EA-万能指标公式

MACD量能分析
r 本指标旨在探索换手率，量能与股价的涨跌关系。目前正在测试阶段，谨慎参考。

VAR2:MA(C,13),colorred,LINETHICK3;
r上翘:IF(VAR2>REF(VAR2,1),VAR2,DRAWNULL),colorred,LINETHICK3;
r下拐:IF(VAR2<REF(VAR2,1),VAR2,DRAWNULL),colorgreen,LINETHICK3;
r BIAS:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;
r F:=MA(S,121);
r RSV:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;
r K:=SMA(RSV,15,1);
r D:=SMA(K,15,1);
r J:=3*K-2*D;
r LC:=REF(CLOSE,1);
r RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
r S1:=IF((J<11 AND BIAS>-11 AND CROSS( S,F) AND (S-F)>0.010),2,0),STICK,LINETHICK3,COLOR00ff00;
r DRAWTEXT(S1=2,LOW,’!’), colorgreen;
r中轨:HHV(MA(H,13),13),colorwhite,LINETHICK1;
r趋势:LLV(MA(H,13),1),colorgreen,LINETHICK2;
r短期:100*(C-LLV(L,1))/(HHV(C,1)-LLV(L,1)),colorwhite;
r中期:100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10)),colorcyan;
r正负:= CLOSE-MA(CLOSE,s);
r成交额:IF(正负>0,VOL,-VOL)/1000000;
r MA$1:MA(成交额,n1);
r MA$2:MA(成交额,n2);
r MA$3:MA(成交额,n3);
r量能饱和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))>1,1,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)))*100,coloryellow;
r a:105,colorred;
r b:70,colorgreen;
r C:50,colorbluee;
r N:=9;
r TYP := (HIGH + LOW + CLOSE)/3;
r RS:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),N)/SUM(IF(TYP<=REF(TYP,1),TYP*VOL,0),N);
r MFI:=100-100/(1+RS);
r资金流量:MFI,NODRAW;
r A1:=SUM(IF(MFI>REF(MFI,1),VOL,IF(MFI<REF(MFI,1),-VOL,0)),0);//{OBV}
r STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,5,0),color0000ff;
r STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,5,0),colorffff00;
r STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,5,0),colorff00ff;
r STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,5,0),color00ff00;
r DIFF : EMA(CLOSE,SHORT) – EMA(CLOSE,LONG);
r DEA : EMA(DIFF,M);
r MACD : 2*(DIFF-DEA);
r Zero : 0;
r IF(CODETYPE>0)
r {
r IF( CODETYPE>2 AND CODETYPE <> 6)
r {
r a="该指标只用于个股和沪深指数。";
r换手:=a*100;
r RETURN 0;
r }
r ELSE
r {
r a=VOL/SHGZG;
r }
r }
r涨幅:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
r换手率:=a;
r N1天平均换手率:=MA(换手率,60);
r N1天平均涨幅:=MA(涨幅,N1);
r平均动能V:=N1天平均涨幅/N1天平均换手率;
r当日动能V:=涨幅/换手率;
r平均动能:平均动能V/100;
r IF(涨幅<=0 OR CLOSE<=OPEN)
r RETURN 0;
r IF(当日动能V<=平均动能V)
r RETURN 0;
r IF(当日动能V>平均动能V*50)
r {
r DRAWICON(1,0,1);
r爆表:0;
r RETURN 0;
r }
r当日动能:当日动能V/100;
r低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
r换手率:VOL/SHGZG*100;
r N日换手率平滑:EMA(换手率 ,N)