投资者咨询：ifthen改写 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-7-9 8:48
请老师修改成H6能加载，谢谢老师
VARIABLE:FH:=0 , FM:=0,XFH:=0 , XFM:=0 ; DIFF : =EMA(CLOSE,12) - EMA(CLOSE,26); DEA : =EMA(DIFF,9); MACD:=2*(DIFF-DEA),COLORSTICK; JC:=CROSS(DIFF,DEA); SC:=CROSSDOWN(DIFF,DEA); HHO:IF(SC,REF(HHV(H,SUMBARS(JC,1)),1),NULL); MHDO:=IF(SC,REF(HHV(MACD,SUMBARS(JC,1)),1),NULL); XG:=SC&&HHO>REF(HHO,SUMBARS(SC,2)-1) &&MHDO>REF(MHDO,SUMBARS(SC,2)-1); H1:=VALUEWHEN(XG,HHO); M1:=VALUEWHEN(XG,MHDO); HP1:=SC&&HHO<H1&&MHDO>M1; HP:=HP1&&COUNT(HP1,BARPOS)=1; DBL1:=SC&&HHO>H1&&MHDO<M1; DBL:=DBL1&&COUNT(DBL1,BARPOS)=1; IF DBL1&&COUNT(DBL1,BARPOS)=1 THEN BEGIN FH:HHO; FM:MHDO; END IF HHO>REF(FH,BARSLAST(ISNULL(FH)=0)) && MHDO<REF(FM,BARSLAST(ISNULL(FM)=0)) &&SC &&COUNT(DBL1,BARPOS)>1 THEN BEGIN FH:=HHO; FM:=MHDO; END HP2:SC&&HHO<FH&&MHDO>FM; DBL2:FH<>REF(FH,1); DRAWTEXT(CROSS(BACKSET(HP||HP2,1+HHVBARS(MACD,SUMBARS(JC,1))),0.5),H,'横盘'),COLORRED; DRAWTEXT(CROSS(BACKSET(DBL||DBL2,1+HHVBARS(MACD,SUMBARS(JC,1))),0.5),H,'顶背离'),COLORRED; XHHO:=IF(JC,REF(LLV(L,SUMBARS(SC,1)),1),NULL); XMHDO:=IF(JC,REF(LLV(MACD,SUMBARS(SC,1)),1),NULL); XXG:=JC&&XHHO<REF(XHHO,SUMBARS(JC,2)-1) &&XMHDO<REF(XMHDO,SUMBARS(JC,2)-1); XH1:=VALUEWHEN(XXG,XHHO); XM1:=VALUEWHEN(XXG,XMHDO); XHP1:=JC&&XHHO>XH1&&XMHDO>XM1; XHP:=XHP1&&COUNT(XHP1,BARPOS)=1; XDBL1:=JC&&XHHO<XH1&&XMHDO>XM1; XDBL:=XDBL1&&COUNT(XDBL1,BARPOS)=1; IF XDBL1&&COUNT(XDBL1,BARPOS)=1 THEN BEGIN XFH:XHHO; XFM:XMHDO; END IF XHHO>REF(XFH,BARSLAST(ISNULL(XFH)=0)) && XMHDO<REF(XFM,BARSLAST(ISNULL(XFM)=0)) &&JC &&COUNT(XDBL1,BARPOS)>1 THEN BEGIN XFH:=XHHO; XFM:=XMHDO; END XHP2:JC&&XHHO<XFH&&XMHDO>XFM; XDBL2:XFH<>REF(XFH,1); DRAWTEXT(CROSS(BACKSET(XHP||XHP2,1+LLVBARS(MACD,SUMBARS(SC,1))),0.5),L,'横盘'),COLORGREEN,VALIGN0; DRAWTEXT(CROSS(BACKSET(XDBL||XDBL2,1+LLVBARS(MACD,SUMBARS(SC,1))),0.5),L,'底背离'),COLORGREEN,VALIGN0; |
技术人员回复
日期:2018-7-9 8:56
您提供的源码含有IF ... THEN BEGIN ... END语法，WH6无法实现。
该语法需要在专业的程序化软件wh8上实现，源码可以直接加载使用。
您可以先下载模拟版本了解下：www.wenhua.com.cn
软件右上角帮助提供软件说明书可以查看。
