
求高手把通达信的指标改成文华财经的!多谢! 10
源程序:{小改动的MACD。1.原始DIF三个单位平滑2.柱子平滑3.DIF线拐头变色4.柱子四色分型,5.做头做底警示6.金叉死叉提示}{SHORT:12LONG:26...
源程序:{小改动的MACD。1.原始DIF三个单位平滑 2.柱子平滑 3.DIF线拐头变色 4.柱子四色分型,5.做头做底警示 6.金叉死叉提示}
{SHORT:12 LONG:26 MID:9}DIF:(EMA(C,SHORT)-EMA(C,LONG))/EMA(C,LONG)*100,,CROSSDOT,COLORWHITE;DIFF:MA(DIF,3),COLORWHITE;DEA:EMA(DIF,MID),COLORYELLOW;MACD:=(DIF-DEA)*2,COLORSTICK;IF(DIF,DIF,DRAWNULL),COLOR444444;{此段为DIFF线变色} IF(DIFF,DIFF,DRAWNULL),COLORWHITE;IF(DIFF>REF(DIFF,1),DIFF,DRAWNULL),COLORRED;IF(DIFFREF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLOR0000CC;STICKLINE(((MACD0)),0,MACD,0,0),COLOR00CC00;STICKLINE(((MACD>REF(MACD,1)) AND (MACD<0)),0,MACD,0,0),COLORFFFF00;STICKLINE(((MACD<REF(MACD,1)) AND (MACD<0)),0,macd,0,0),colorffffff;}{顶底双线逆向文字标示}dif3:=ma(dif,3);sxns1:=dif3>REF(DIF3,1) AND DEA<REF(DEA,1) ;{底部双线逆向}DRAWTEXT(SXNS1=1 AND REF(SXNS1,1)=0 AND COUNT(SXNS1,20)<=5,0.95*dif,'警'),color4444ff;sxns2:=dif3REF(DEA,1) ;{顶部双线逆向}DRAWTEXT(SXNS2=1 AND REF(SXNS2,1)=0 AND COUNT(SXNS2,20)<=5,1.05*dif,'警'),color44ff44;{dea转向标记}lxss:=dif>REF(DIF,1) AND DEA>REF(DEA,1) ;{双线顺上}DRAWICON(IF(LXSS=1 AND REF(LXSS,1)=0 AND COUNT(LXSS,20)<=5,LXSS,0),0.95*DEA,1);LXSX:=DIF<REF(DIF,1) AND DEA<REF(DEA,1);{双线顺下}DRAWICON(IF(LXSX=1 AND REF(LXSX,1)=0 AND COUNT(LXSX,20)<=5,LXSX,0),1.05*DEA,2);<!--=5,0.95*dif,'警'),color4444ff;sxns2:=dif3 展开
{SHORT:12 LONG:26 MID:9}DIF:(EMA(C,SHORT)-EMA(C,LONG))/EMA(C,LONG)*100,,CROSSDOT,COLORWHITE;DIFF:MA(DIF,3),COLORWHITE;DEA:EMA(DIF,MID),COLORYELLOW;MACD:=(DIF-DEA)*2,COLORSTICK;IF(DIF,DIF,DRAWNULL),COLOR444444;{此段为DIFF线变色} IF(DIFF,DIFF,DRAWNULL),COLORWHITE;IF(DIFF>REF(DIFF,1),DIFF,DRAWNULL),COLORRED;IF(DIFFREF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLOR0000CC;STICKLINE(((MACD0)),0,MACD,0,0),COLOR00CC00;STICKLINE(((MACD>REF(MACD,1)) AND (MACD<0)),0,MACD,0,0),COLORFFFF00;STICKLINE(((MACD<REF(MACD,1)) AND (MACD<0)),0,macd,0,0),colorffffff;}{顶底双线逆向文字标示}dif3:=ma(dif,3);sxns1:=dif3>REF(DIF3,1) AND DEA<REF(DEA,1) ;{底部双线逆向}DRAWTEXT(SXNS1=1 AND REF(SXNS1,1)=0 AND COUNT(SXNS1,20)<=5,0.95*dif,'警'),color4444ff;sxns2:=dif3REF(DEA,1) ;{顶部双线逆向}DRAWTEXT(SXNS2=1 AND REF(SXNS2,1)=0 AND COUNT(SXNS2,20)<=5,1.05*dif,'警'),color44ff44;{dea转向标记}lxss:=dif>REF(DIF,1) AND DEA>REF(DEA,1) ;{双线顺上}DRAWICON(IF(LXSS=1 AND REF(LXSS,1)=0 AND COUNT(LXSS,20)<=5,LXSS,0),0.95*DEA,1);LXSX:=DIF<REF(DIF,1) AND DEA<REF(DEA,1);{双线顺下}DRAWICON(IF(LXSX=1 AND REF(LXSX,1)=0 AND COUNT(LXSX,20)<=5,LXSX,0),1.05*DEA,2);<!--=5,0.95*dif,'警'),color4444ff;sxns2:=dif3 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询