老师您好,麻烦您这个转化为文华代码,谢谢! (文华财经WH6赢顺V6.7)

投资者咨询:老师您好,麻烦您这个转化为文华代码,谢谢! (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-22 15:52

 HJ_1:=1;
{DIF现价}
DIF现价:CONST(HJ_1*(EMA(CLOSE,12)-EMA(CLOSE,26))),DOTLINE,COLORLIGRAY;
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*HJ_1,COLORLIGRAY,LINETHICK1;
DEA:EMA(DIF,9),LINETHICK1,COLORLIGRAY;
MACD:(DIF-DEA)*2,COLORSTICK;
DIF1:IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORGREEN,LINETHICK1;
DIF2:IF(DIF<REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK1;
DEA1:IF(DEA>REF(DEA,1),DEA,DRAWNULL),COLORGRAY,LINETHICK1;
DEA2:IF(DEA<REF(DEA,1),DEA,DRAWNULL),COLORLIGRAY,LINETHICK1;
MACD2:=2*(DIF-DEA);
STICKLINE(MACD2>0 AND MACD2>REF(MACD2,1),0,MACD2,0,0),COLORRED;
STICKLINE(MACD2>0 AND MACD2<REF(MACD2,1),0,MACD2,0,1),COLORLIRED;
STICKLINE(MACD2<0 AND MACD2<REF(MACD2,1),0,MACD2,0,1),COLORCYAN;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,0,0),COLORLICYAN;
NOTEXT0:0,NODRAW;
HJ_3:=IF(HJ_1=0,HIGH,CLOSE);
HJ_4:=IF(HJ_1=0,LOW,CLOSE);
HJ_5:=IF(MACD>0,1,(-1));
HJ_6:=REF(HJ_5,1);
HJ_7:=HJ_5*HJ_6;
HJ_8:=BARSLAST(HJ_7<0);


HJ_11:=HJ_9+REF(HJ_9,HJ_9+REF(HJ_9,HJ_9))+REF(HJ_9,HJ_9);
HJ_12:=HHV(HJ_3,HJ_11);
HJ_13:=LLV(HJ_4,HJ_11);
HJ_14:=HHV(HJ_3,HJ_9);
HJ_15:=LLV(HJ_4,HJ_9);
HJ_16:=HHV(DIF,HJ_9);
HJ_17:=LLV(DIF,HJ_9);
HJ_18:=IF(HJ_9>0,REF(HJ_16,HJ_9+REF(HJ_9,HJ_9)),DRAWNULL);
HJ_19:=IF(HJ_9>0,REF(HJ_17,HJ_9+REF(HJ_9,HJ_9)),DRAWNULL);
HJ_20:=HHVBARS(DIF,HJ_11);
HJ_21:=LLVBARS(DIF,HJ_11);
HJ_22:=HHV(DIF,HJ_11);
HJ_23:=LLV(DIF,HJ_11);
HJ_24:=DIF<0 AND HJ_9>0 AND HJ_4=HJ_13 AND HJ_17>HJ_19 AND DIF>HJ_19 AND HJ_17<0 AND EVERY(0>MACD,HJ_9);
HJ_25:=REF(HJ_24,1) AND HJ_4>REF(HJ_4,1) AND DIF<0 AND DIF>HJ_19 AND HJ_21<HJ_11 AND HJ_9<HJ_21 AND EVERY(0>MACD,HJ_9) AND COUNT(DIF<0,HJ_9)>1;
HJ_26:=BARSLAST(HJ_24);
HJ_27:=LLV(DIF,HJ_26);
HJ_28:=COUNT(DIF>REF(DIF,1) AND REF(DIF,1)<REF(DIF,2) AND COUNT(DIF<0,2)=2,HJ_26);
HJ_29:=HHV(HJ_28,HJ_26);
HJ_30:=REF(HJ_28,1)=HJ_29-1 AND HJ_28=HJ_29 AND HJ_4>REF(HJ_4,1) AND HJ_27>HJ_19 AND DIF>HJ_19 AND DIF>REF(DIF,1) AND DIF<0 AND HJ_15=HJ_13 AND HJ_21<HJ_11 AND HJ_9<HJ_21 AND EVERY(0>MACD,HJ_9) AND COUNT(DIF<0,HJ_9)>1;
HJ_31:=IF(HJ_30 AND HJ_26=1,2,IF(HJ_30 AND HJ_26>1,1,IF(HJ_25,0,DRAWNULL)));
HJ_32:=IF(HJ_31=0,HJ_25,IF(HJ_31=1,HJ_30 AND HJ_26>1,IF(HJ_31=2,HJ_30 AND HJ_26=1,HJ_25)));
HJ_33:=BARSLAST(HJ_32);
HJ_34:=IF(DIF>REF(DIF,1),1,0);
HJ_35:=DIF<0 AND HJ_9>0 AND HJ_15=HJ_13 AND HJ_4>=HJ_15 AND HJ_17>HJ_23 AND DIF>=HJ_17 AND HJ_17<0 AND EVERY(0>MACD,HJ_9);
HJ_36:=COUNT(HJ_35,HJ_9);
HJ_37:=BARSLAST(HJ_36=1 AND REF(HJ_36,1)=0);
HJ_38:=BARSLAST(HJ_35);
HJ_39:=IF(HJ_30 AND HJ_26>=1,2,IF(HJ_35,1,DRAWNULL));
STICKLINE(HJ_39=1 AND EVERY(HJ_34=0,HJ_38+1),0,MACD,0,0),COLORMAGENTA;
{STICKLINE(TFILTER((HJ_39=1 AND EVERY(HJ_34=0,HJ_38+1)),MACD>0,1),0,MACD,0,0),COLORMAGENTA;}
DRAWTEXT(TFILTER((HJ_39=1 AND EVERY(HJ_34=0,HJ_38+1)),MACD>0,1),DIF*1.1,'钝化'),COLORLIRED;
STICKLINE(HJ_39=2,0,MACD,0.3,0),COLORYELLOW;
DRAWTEXT(TFILTER(HJ_39=2,MACD>0,1),DIF*1.1,'结构'),COLORYELLOW;
DRAWNUMBER(HJ_32,DIF,HJ_31),COLORYELLOW;
DIF前值L:=IF(HJ_39=1,REF(DIF,HJ_21),DRAWNULL),NODRAW;
DIF差值L:=IF(HJ_39=1,DIF-REF(DIF,HJ_21),DRAWNULL),NODRAW;
DIF底钝化T:=IF(HJ_35,HJ_37+1,DRAWNULL),NODRAW;
DIF底背离T:IF(HJ_32,HJ_26,DRAWNULL),NODRAW;

HJ_40:=DIF>0 AND HJ_9>0 AND HJ_3=HJ_12 AND HJ_16<HJ_18 AND DIF<HJ_18 AND HJ_16>0 AND EVERY(MACD>0,HJ_9);
HJ_41:=REF(HJ_40,1) AND HJ_3<REF(HJ_3,1) AND DIF>0 AND DIF<HJ_18 AND HJ_20<HJ_11 AND HJ_9<HJ_20 AND EVERY(MACD>0,HJ_9) AND COUNT(DIF>0,HJ_9)>1;
HJ_42:=BARSLAST(HJ_40);
HJ_43:=HHV(DIF,HJ_42);
HJ_44:=COUNT(DIF<REF(DIF,1) AND REF(DIF,1)>REF(DIF,2) AND COUNT(DIF>0,2)=2,HJ_42);
HJ_45:=HHV(HJ_44,HJ_42);
HJ_46:=REF(HJ_44,1)=HJ_45-1 AND HJ_44=HJ_45 AND HJ_3<REF(HJ_3,1) AND HJ_43<HJ_18 AND DIF<HJ_18 AND DIF>0 AND DIF<REF(DIF,1) AND HJ_14=HJ_12 AND HJ_20<HJ_11 AND HJ_9<HJ_20 AND EVERY(0<MACD,HJ_9) AND COUNT(DIF>0,HJ_9)>1;
HJ_47:=IF(HJ_46 AND HJ_42=1,2,IF(HJ_46 AND HJ_42>1,1,IF(HJ_41,0,DRAWNULL)));
HJ_48:=IF(HJ_47=0,HJ_41,IF(HJ_47=1,HJ_46 AND HJ_42>1,IF(HJ_47=2,HJ_46 AND HJ_42=1,HJ_41)));
HJ_49:=BARSLAST(HJ_48);
HJ_50:=IF(DIF<REF(DIF,1),1,0);
HJ_51:=DIF>0 AND HJ_9>0 AND HJ_14=HJ_12 AND HJ_3<=HJ_14 AND HJ_16<HJ_22 AND DIF<=HJ_16 AND HJ_16>0 AND EVERY(0<MACD,HJ_9);
HJ_52:=COUNT(HJ_51,HJ_9);
HJ_53:=BARSLAST(HJ_52=1 AND REF(HJ_52,1)=0);
HJ_54:=BARSLAST(HJ_51);
HJ_55:=IF(HJ_46 AND HJ_42>=1,2,IF(HJ_51,1,DRAWNULL));
STICKLINE(HJ_55=1 AND EVERY(HJ_50=0,HJ_54+1),0,MACD,0,0),COLORCYAN;
{STICKLINE(TFILTER((HJ_55=1 AND EVERY(HJ_50=0,HJ_54+1)),MACD<0,1),0,MACD,0,0),COLORCYAN;}
DRAWTEXT(TFILTER((HJ_55=1 AND EVERY(HJ_50=0,HJ_54+1)),MACD<0,1),DIF*1.1,'钝化'),COLORGREEN;
STICKLINE(HJ_55=2,0,MACD,0.3,0),COLORMAGENTA;
DRAWTEXT(TFILTER(HJ_55=2,MACD<0,1),DIF*1.1,'结构'),COLORMAGENTA;
DIF前值H:=IF(HJ_55=1,REF(DIF,HJ_20),DRAWNULL),NODRAW;
DIF差值H:=IF(HJ_55=1,REF(DIF,HJ_20)-DIF,DRAWNULL),NODRAW;
DIF顶钝化T:=IF(HJ_51,HJ_53+1,DRAWNULL),NODRAW;
DIF顶背离T:IF(HJ_48,HJ_42,DRAWNULL),NODRAW;
DRAWNUMBER(HJ_48,DIF,HJ_47),COLORCYAN;
HJ_56:=BACKSET(HJ_48,HJ_20+1);
HJ_57:=BACKSET(HJ_32,HJ_21+1);
NOTEXTDIFL:DRAWLINE(REF(HJ_57,1)=0 AND HJ_57=1 AND DIF<0,DIF,HJ_32,DIF,0),COLORMAGENTA,DOTLINE;
NOTEXTDIFH:DRAWLINE(REF(HJ_56,1)=0 AND HJ_56=1 AND DIF>0,DIF,HJ_48,DIF,0),COLORCYAN,DOTLINE;
HJ_58:=REF(HJ_9,HJ_11);
HJ_59:=REF(HJ_9,HJ_11+HJ_58);
HJ_60:=HJ_11+HJ_58+HJ_59;
HJ_61:=HHV(HJ_3,HJ_60);
HJ_62:=LLV(HJ_4,HJ_60);
HJ_63:=REF(HJ_16,HJ_11+HJ_58);
HJ_64:=REF(HJ_17,HJ_11+HJ_58);
HJ_65:=HHV(DIF,HJ_60);
HJ_66:=LLV(DIF,HJ_60);
HJ_67:=HHVBARS(DIF,HJ_60);
HJ_68:=LLVBARS(DIF,HJ_60);
HJ_69:=DIF<0 AND HJ_9>0 AND HJ_4=HJ_62 AND HJ_17>HJ_64 AND DIF>HJ_64 AND HJ_17<0 AND EVERY(0>MACD,HJ_9);
HJ_70:=BARSLAST(HJ_69);
HJ_71:=LLV(DIF,HJ_70);
HJ_72:=COUNT(DIF>REF(DIF,1) AND REF(DIF,1)<REF(DIF,2) AND COUNT(DIF<0,2)=2,HJ_70);
HJ_73:=HHV(HJ_72,HJ_70);
HJ_74:=REF(HJ_72,1)=HJ_73-1 AND HJ_72=HJ_73 AND HJ_4>REF(HJ_4,1) AND HJ_71>HJ_64 AND DIF>HJ_64 AND DIF>REF(DIF,1) AND DIF<0 AND HJ_15=HJ_62 AND HJ_68<HJ_60 AND HJ_9<HJ_68 AND EVERY(0>MACD,HJ_9) AND COUNT(DIF<0,HJ_9)>1;
HJ_75:=BARSLAST(HJ_74);
HJ_76:=IF(DIF>REF(DIF,1),1,0);
HJ_77:=DIF<0 AND HJ_9>0 AND HJ_15=HJ_62 AND HJ_4>=HJ_15 AND HJ_17>HJ_66 AND DIF>=HJ_17 AND HJ_17<0 AND EVERY(0>MACD,HJ_9);
HJ_78:=COUNT(HJ_77,HJ_9);
HJ_79:=BARSLAST(HJ_78=1 AND REF(HJ_78,1)=0);
HJ_80:=BARSLAST(HJ_77);
HJ_81:=IF(HJ_74,2,IF(HJ_77,1,DRAWNULL));
NOTEXTGFDHL:IF(HJ_81=1 AND EVERY(HJ_76=0,HJ_80+1),0,DRAWNULL),CIRCLEDOT,COLORLIRED;
NOTEXTGFBLL:IF(HJ_81=2,0,DRAWNULL),CIRCLEDOT,COLORMAGENTA,LINETHICK1;
DRAWTEXT(TFILTER(HJ_81=2,MACD>0,1),DIF*1.3,'隔峰'),COLORWHITE;
STICKLINE(HJ_81=2,0,MACD,0.3,0),COLORWHITE;
HJ_82:=DIF>0 AND HJ_9>0 AND HJ_3=HJ_61 AND HJ_16<HJ_63 AND DIF<HJ_63 AND HJ_16>0;
HJ_83:=BARSLAST(HJ_82);
HJ_84:=HHV(DIF,HJ_83);
HJ_85:=COUNT(DIF<REF(DIF,1) AND REF(DIF,1)>REF(DIF,2) AND COUNT(DIF>0,2)=2,HJ_83);
HJ_86:=HHV(HJ_85,HJ_83);
HJ_87:=REF(HJ_85,1)=HJ_86-1 AND HJ_85=HJ_86 AND HJ_3<REF(HJ_3,1) AND HJ_84<HJ_63 AND DIF<HJ_63 AND DIF>0 AND DIF<REF(DIF,1) AND HJ_14=HJ_61 AND HJ_67<HJ_60 AND HJ_9<HJ_67 AND EVERY(0<MACD,HJ_9) AND COUNT(DIF>0,HJ_9)>1;
HJ_88:=BARSLAST(HJ_87);
HJ_89:=IF(DIF<REF(DIF,1),1,0);
HJ_90:=DIF>0 AND HJ_9>0 AND HJ_14=HJ_61 AND HJ_3<=HJ_14 AND HJ_16<HJ_65 AND DIF<=HJ_16 AND HJ_16>0 AND EVERY(0<MACD,HJ_9);
HJ_91:=COUNT(HJ_90,HJ_9);
HJ_92:=BARSLAST(HJ_91=1 AND REF(HJ_91,1)=0);
HJ_93:=BARSLAST(HJ_90);
HJ_94:=IF(HJ_87,2,IF(HJ_90,1,DRAWNULL));
NOTEXTGFDHH:IF(HJ_94=1 AND EVERY(HJ_89=0,HJ_93+1),0,DRAWNULL),CIRCLEDOT,COLORLICYAN;
NOTEXTGFBLH:IF(HJ_94=2,0,DRAWNULL),CIRCLEDOT,COLORCYAN,LINETHICK1;
DRAWTEXT(TFILTER(HJ_94=2,MACD<0,1),DIF*1.3,'隔峰'),COLORLIGRAY;
STICKLINE(HJ_94=2,0,MACD,0.3,0),COLORLIGRAY;
HJ_95:=BACKSET(HJ_87,HJ_67+1);
HJ_96:=BACKSET(HJ_74,HJ_68+1);
NOTEXTGFDIFL:DRAWLINE(REF(HJ_96,1)=0 AND HJ_96=1 AND DIF<0,DIF,HJ_74,DIF,0),POINTDOT,COLORMAGENTA;
NOTEXTGFDIFH:DRAWLINE(REF(HJ_95,1)=0 AND HJ_95=1 AND DIF>0,DIF,HJ_87,DIF,0),POINTDOT,COLORCYAN;
{斐波拉契数列}
DRAWNUMBER(HJ_9=1 AND MACD>0,MACD,1),COLORLIRED;
DRAWNUMBER(HJ_9=2 AND MACD>0,MACD,2),COLORLIRED;
DRAWNUMBER(HJ_9=3 AND MACD>0,MACD,3),COLORLIRED;
DRAWNUMBER(HJ_9=5 AND MACD>0,MACD,5),COLORLIRED;
DRAWNUMBER(HJ_9=8 AND MACD>0,MACD,8),COLORLIRED;
DRAWNUMBER(HJ_9=13 AND MACD>0,MACD,13),COLORLIRED;
DRAWNUMBER(HJ_9=21 AND MACD>0,MACD,21),COLORLIRED;
DRAWNUMBER(HJ_9=34 AND MACD>0,MACD,34),COLORLIRED;
DRAWNUMBER(HJ_9=1 AND MACD<0,MACD,1),COLORLIGRAY;
DRAWNUMBER(HJ_9=2 AND MACD<0,MACD,2),COLORLIGRAY;
DRAWNUMBER(HJ_9=3 AND MACD<0,MACD,3),COLORLIGRAY;
DRAWNUMBER(HJ_9=5 AND MACD<0,MACD,5),COLORLIGRAY;
DRAWNUMBER(HJ_9=8 AND MACD<0,MACD,8),COLORLIGRAY;
DRAWNUMBER(HJ_9=13 AND MACD<0,MACD,13),COLORLIGRAY;
DRAWNUMBER(HJ_9=21 AND MACD<0,MACD,21),COLORLIGRAY;
DRAWNUMBER(HJ_9=34 AND MACD<0,MACD,34),COLORLIGRAY;

 

{-----------------------------------};
 

技术人员回复
日期:2018-8-22 15:53
我们分析了下您1楼的指标不完整

其中HJ_9没有定义,需要您补充完整后我们帮您改写
投资者咨询:老师您好,麻烦您这个转化为文华代码,谢谢! (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-22 15:52
 HJ_9:=HJ_8+1;
HJ_10:=REF(HJ_9,HJ_9);
投资者咨询:老师您好,麻烦您这个转化为文华代码,谢谢! (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-22 15:52

老师补充了,在三楼,请你看看,谢谢您

技术人员回复
日期:2018-8-22 16:30
不同软件函数机制不同,加载效果可能略有差异,改写参考

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看文件名:方法.zip

软件右上角》系统工具》指标管理器》导入导出》导入

投资者咨询:老师您好,麻烦您这个转化为文华代码,谢谢! (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-22 15:52

谢谢老师!