郎少
发表于 2010-3-10 15:43
<DIV id=postmessage_66064099 class=t_msgfont>{MACD实战0源码}<BR>中DIFF:(EMA(CLOSE,12) - EMA(CLOSE,26)),LINETHICK2,COLOR2A2AA5;<BR>中DEA:EMA(中DIFF,9),COLORFFFF00;<BR>MACD2:(2 * (中DIFF -中DEA)),LINETHICK0,COLORFFFF00;<BR>STICKLINE((MACD2>=0),0,MACD2,1,1),COLORD700FF;<BR>STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,1,0),COLOR0099FF;<BR>STICKLINE((MACD2<0),0,MACD2,1,0),COLORFFC0CB;<BR>STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,1,1),COLORCYAN;<BR>DU0:=CROSS(中DIFF,0);<BR>UD0:=CROSS(0,中DIFF);<BR>TDU0:=BARSLAST(DU0);<BR>TUD0:=BARSLAST(UD0);<BR>DU3:=REF(DU0,1);<BR>UD3:=REF(UD0,1);<BR>TDU3:=BARSLAST(DU3);<BR>TUD3:=BARSLAST(UD3);<BR>UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));<BR>JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));<BR>JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));<BR>JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));<BR>JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));<BR>JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));<BR>JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));<BR>JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));<BR>JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));<BR>BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));<BR><BR>DEFUT:=BARSLAST(CROSS(MACD2,0));<BR>DEFDT:=BARSLAST(CROSS(0,MACD2));<BR>DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));<BR>DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));<BR>DEFU2L:=REF(DEFUL,(DEFUT + 1));<BR>DEFD2L:=REF(DEFDL,(DEFDT + 1));<BR>STICKLINE(中DIFF>=中DEA,中DIFF,中DEA,6,0),COLOR00FFFF;<BR>STICKLINE(中DIFF<中DEA,中DIFF,中DEA,6,0),COLORBLUE;<BR>短DIFF:(EMA(C,3)-EMA(C,10)),LINETHICK2,COLORC0C0C0;<BR>短DEA:EMA(短DIFF,9),LINETHICK2,COLOR33FF33;<BR>IF(短DIFF>=短DEA,短DIFF,DRAWNULL),COLORRED,LINETHICK2;<BR><BR>D1:=EMA(C,3)-EMA(C,8);<BR>D2:=EMA(O,3)-EMA(O,8);<BR>D3:=EMA(H,3)-EMA(H,8);<BR>D4:=EMA(L,3)-EMA(L,8);<BR>DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,6);<BR>DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,4);<BR>DRAWICON(CROSS(中DIFF,D1) AND 中DIFF>0.1 ,D3+0.1,2);<BR>EE:=CROSS(中DIFF,中DEA) AND MACD2>REF(MACD2,1) AND 短DIFF>=REF(短DIFF,1) AND 中DEA>=REF(中DEA,1);<BR>出来:=FILTER(EE,10);<BR>DRAWICON(出来,中DEA,1);</DIV>
页:
[1]