投资者咨询：[求助]通达信公式改成文华的 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-8-16 14:13
{根据缠中说禅笔、线段规则编写，需要绑定CHANTDX.DLL}
{问题报告：HUOZHINIAO@SINA.COM}
MA1:IF(均线1<>0,MA(C,均线1),DRAWNULL);
MA2:IF(均线2<>0,MA(C,均线2),DRAWNULL);
{MACD}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
笔条件:=新笔+超出前分型成笔*2+最高最低点成笔*4+前分型超出成笔*8;
{得到笔，画笔}
BI:=TDXDLL9(1,H,L,笔条件);
红面积1:=SUM(MACD*(MACD>0),BARSLAST(BI=-1));
绿面积1:=SUM(MACD*(MACD<0),BARSLAST(BI=1));
AA1:=ROUND(红面积1*100);
BB1:=ROUND(绿面积1*100);
DRAWLINE(IF(显示笔线段=1 OR 显示笔线段=3,BI=1,BI=9),H,BI=-1,L,0),DOTLINE,COLORYELLOW;
DRAWLINE(IF(显示笔线段=1 OR 显示笔线段=3,BI=-1,BI=9),L,BI=1,H,0),DOTLINE,COLORYELLOW;
DRAWNUMBER(显示顶点=1 AND BI=1,H,IF(显示力度=1,AA1,H)),COLORMAGENTA,DRAWABOVE;
DRAWNUMBER(显示顶点=1 AND BI=-1,L,IF(显示力度=1,BB1,L)),COLORGREEN;
{得到线段，画线段}
DUAN:=TDXDLL9(2,H,L,笔条件);
红面积2:=SUM(MACD*(MACD>0),BARSLAST(DUAN=-1));
绿面积2:=SUM(MACD*(MACD<0),BARSLAST(DUAN=1));
AA2:=ROUND(红面积2*100);
BB2:=ROUND(绿面积2*100);
DRAWLINE(IF(显示笔线段=2 OR 显示笔线段=3,DUAN=1,DUAN=9),H,DUAN=-1,L,0),COLORGREEN;
DRAWLINE(IF(显示笔线段=2 OR 显示笔线段=3,DUAN=-1,DUAN=9),L,DUAN=1,H,0),COLORGREEN;
DRAWNUMBER(显示顶点=2 AND DUAN=1,H,IF(显示力度=1,AA2,H)),COLORMAGENTA,DRAWABOVE;
DRAWNUMBER(显示顶点=2 AND DUAN=-1,L,IF(显示力度=1,BB2,L)),COLORGREEN;
{显示分型}
FENXING:=IF(显示分型=1,TDXDLL9(3,H,L,0),0);
DRAWICON(FENXING=1,H,2);
DRAWICON(FENXING=-1,L,1);
{得到笔中枢，画中枢}
BIZS:=IF(显示中枢=1,TDXDLL9(4,H,L,0),0);
T1:=BARSLAST(BIZS<>0 AND REF(BIZS,1)=0);
{中枢顶、底、中轴}
TOP1:=REF(BIZS,T1);
BTM1:=IF(T1=0,REFX(BIZS,1),REF(BIZS,T1-1));
MID1:=(TOP1+BTM1)/2;
ZSTYPE:=IF(T1=0,REFX(BIZS,2),REF(BIZS,T1-2));
DRAWLINE(ZSTYPE>0 AND REF(BIZS,1)=0 AND BIZS<>0,TOP1,ZSTYPE>0 AND BIZS<>0 AND REFX(BIZS,1)=0,TOP1,0),COLORMAGENTA;
DRAWLINE(ZSTYPE>0 AND REF(BIZS,1)=0 AND BIZS<>0,BTM1,ZSTYPE>0 AND BIZS<>0 AND REFX(BIZS,1)=0,BTM1,0),COLORMAGENTA;
DRAWLINE(ZSTYPE>0 AND REF(BIZS,1)=0 AND BIZS<>0,MID1,ZSTYPE>0 AND BIZS<>0 AND REFX(BIZS,1)=0,MID1,0),DOTLINE,COLORMAGENTA;
DRAWLINE(ZSTYPE<0 AND REF(BIZS,1)=0 AND BIZS<>0,TOP1,ZSTYPE<0 AND BIZS<>0 AND REFX(BIZS,1)=0,TOP1,0),COLORFFFF00;
DRAWLINE(ZSTYPE<0 AND REF(BIZS,1)=0 AND BIZS<>0,BTM1,ZSTYPE<0 AND BIZS<>0 AND REFX(BIZS,1)=0,BTM1,0),COLORFFFF00;
DRAWLINE(ZSTYPE<0 AND REF(BIZS,1)=0 AND BIZS<>0,MID1,ZSTYPE<0 AND BIZS<>0 AND REFX(BIZS,1)=0,MID1,0),DOTLINE,COLORFFFF00;
STICKLINE(REF(BIZS,1)=0 AND BIZS<>0,TOP1,BTM1,0,0),COLORGREEN;
STICKLINE(BIZS<>0 AND REFX(BIZS,1)=0,TOP1,BTM1,0,0),COLORGREEN;
DRAWNUMBER(REF(BIZS,1)=0 AND BIZS<>0,TOP1,TOP1),COLORWHITE,DRAWABOVE;
DRAWNUMBER(BIZS<>0 AND REFX(BIZS,1)=0,BTM1,BTM1),COLORWHITE;
{得到线段中枢，画中枢}
DUANZS:=IF(显示中枢=2,TDXDLL9(4,H,L,1),0);
T4:=BARSLAST(DUANZS<>0 AND REF(DUANZS,1)=0);
{中枢顶、底、中轴}
TOP2:=REF(DUANZS,T4);
BTM2:=IF(T4=0,REFX(DUANZS,1),REF(DUANZS,T4-1));
MID2:=(TOP2+BTM2)/2;
ZSTYPE1:=IF(T4=0,REFX(DUANZS,2),REF(DUANZS,T4-2));
DRAWLINE(ZSTYPE1>0 AND REF(DUANZS,1)=0 AND DUANZS<>0,TOP2,DUANZS<>0 AND REFX(DUANZS,1)=0,TOP2,0),COLORMAGENTA;
DRAWLINE(ZSTYPE1>0 AND REF(DUANZS,1)=0 AND DUANZS<>0,BTM2,DUANZS<>0 AND REFX(DUANZS,1)=0,BTM2,0),COLORMAGENTA;
DRAWLINE(ZSTYPE1>0 AND REF(DUANZS,1)=0 AND DUANZS<>0,MID2,DUANZS<>0 AND REFX(DUANZS,1)=0,MID2,0),COLORMAGENTA;
DRAWLINE(ZSTYPE1<0 AND REF(DUANZS,1)=0 AND DUANZS<>0,TOP2,DUANZS<>0 AND REFX(DUANZS,1)=0,TOP2,0),COLORFFFF00;
DRAWLINE(ZSTYPE1<0 AND REF(DUANZS,1)=0 AND DUANZS<>0,BTM2,DUANZS<>0 AND REFX(DUANZS,1)=0,BTM2,0),COLORFFFF00;
DRAWLINE(ZSTYPE1<0 AND REF(DUANZS,1)=0 AND DUANZS<>0,MID2,DUANZS<>0 AND REFX(DUANZS,1)=0,MID2,0),DOTLINE,COLORFFFF00;
STICKLINE(REF(DUANZS,1)=0 AND DUANZS<>0,TOP2,BTM2,0,0),COLORRED;
STICKLINE(DUANZS<>0 AND REFX(DUANZS,1)=0,TOP2,BTM2,0,0),COLORRED;
DRAWNUMBER(REF(DUANZS,1)=0 AND DUANZS<>0,TOP2,TOP2),COLORWHITE,DRAWABOVE;
技术人员回复
日期:2018-8-16 14:34
您一楼这个源码中引用了第三方函数的，第一行就有提示的（需要绑定CHANTDX.DLL）
投资者咨询：[求助]通达信公式改成文华的 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-8-16 14:13
投资者咨询：[求助]通达信公式改成文华的 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-8-16 14:13
怎么这样显示啊？怎么改
技术人员回复
日期:2018-8-16 15:08
