文章
文章用户商铺文档快讯有问必答话题

[求助]通达信转文华 (文华财经WH6赢顺V6.7)

投资者咨询：[求助]通达信转文华 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-6-7 17:28

 老师你好：

请帮忙将通达信转文华，谢谢！

GD:=CONST(FINDHIGH(H,0,高点*10,1));
 DD:=CONST(FINDLOW(L,0,低点*10,1));
 GT:=CONST(BARSLAST(GD=H))+1;
 DT:=CONST(BARSLAST(DD=L))+1;
 SH:=CONST(IF(GT=1,H,REF(H,GT-1)));
 SL:=CONST(IF(DT=1,L,REF(L,DT-1)));
 CC:=IF(DT>GT,DT,GT);
 CD:=INTPART(CC-(DT+GT)/2);
 CG:=IF(高点>CD,CD/2,高点);
 下跌周期:BARSLAST(GD=H),COLORWHITE,NODRAW;
 下跌幅:IF(CURRBARSCOUNT<=GT,C/SH*100-100,DRAWNULL),NODRAW,COLORGREEN;
 下跌均价:IF(CURRBARSCOUNT<=GT,SUM(AMOUNT,GT)/SUM(V,GT)/100,DRAWNULL),NODRAW,COLORLIGRAY;
 跌换手%:IF(CURRBARSCOUNT<=GT,SUM(HSL.HSL,GT),DRAWNULL),COLORCYAN,NODRAW;
 上涨周期:IF(CURRBARSCOUNT<=DT,BARSLAST(DD=L),DRAWNULL),COLORWHITE,NODRAW;
 上涨幅:IF(CURRBARSCOUNT<=DT,C/SL*100-100,DRAWNULL),NODRAW,COLORRED;
 上涨均价:IF(CURRBARSCOUNT<=DT,SUM(AMOUNT,DT)/SUM(V,DT)/100,DRAWNULL),NODRAW,COLORLIGRAY;
 涨换手%:IF(CURRBARSCOUNT<=DT,SUM(HSL.HSL,DT),DRAWNULL),COLORLIMAGENTA,NODRAW;
 星期:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');
日期:=VARCAT('-',VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期));
 {自动黄金分割  普通等系坐标}
 DRAWRECTREL(990,1,382,1,RGB(250,250,0));
 DRAWTEXT_FIX(C>0,0.382,0.00,0,颼%'),COLOR00CCCC;
 DRAWRECTREL(990,188,382,188,RGB(200,200,0));
 DRAWTEXT_FIX(C>0,0.382,0.189,0,ཏ.1%'),COLOR00CCCC;
 DRAWRECTREL(990,375,382,375,RGB(200,200,0));
 DRAWTEXT_FIX(C>0,0.382,0.376,0,ར.2%'),COLOR00CCCC;
 DRAWRECTREL(990,491,382,491,RGB(200,200,0));
 DRAWTEXT_FIX(C>0,0.382,0.492,0,཮.0%'),COLOR00CCCC;
 DRAWRECTREL(990,607,382,607,RGB(200,200,0));
 DRAWTEXT_FIX(C>0,0.382,0.608,0,ཹ.8%'),COLOR00CCCC;
 DRAWRECTREL(990,794,382,794,RGB(200,200,0));
 DRAWTEXT_FIX(C>0,0.382,0.795,0,ྌ.9%'),COLOR00CCCC;
 DRAWRECTREL(990,982,382,982,RGB(250,250,0));
 DRAWTEXT_FIX(C>0,0.382,0.936,0,'BASE'),COLOR00CCCC;
 DRAWRECTREL(990,232,382,232,RGB(100,100,0));
 DRAWRECTREL(990,144.6,382,144.6,RGB(100,100,0));
 DRAWRECTREL(990,750,382,750,RGB(100,100,0));
 DRAWRECTREL(990,839,382,839,RGB(100,100,0));
 DRAWTEXT_FIX(C>0,0.01,0.01,0,'云枫添外 2016/10/10 绘'),COLORYELLOW;
 {斐波那契周期}
 DRAWTEXT(CURRBARSCOUNT=GT-2 ,L,Ɖ'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-4 ,L,Ƌ'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-7 ,L,Ǝ'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-12 ,L,ཉ'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-20 ,L,ད'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-33 ,L,ཞ '),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-54 ,L,ཱི'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-88 ,L,ྕ'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-143 ,L,飨'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-232 ,L,饁'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-376 ,L,駑'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=DT-2,H,Ɖ'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-4,H,Ƌ'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-7,H,Ǝ'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-12,H,ཉ'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-20,H,ད'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-33,H,ཞ'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-54,H,ཱི'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-88,H,ྕ'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-143,H,飨'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-232,H,饁'),DRAWABOVE,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-376,H,駑'),DRAWABOVE,COLORRED;
 {幅度尺}
 STICKLINE(CURRBARSCOUNT=DT,SL*20,SL,0,-1),COLORRED;
 STICKLINE(CURRBARSCOUNT=GT,SH,SH-SH*0.9,0,-1),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT ,(SL+SL*1.2)/2,日期),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=GT ,GD*0.97,日期),COLORYELLOW;
 {下跌尺}
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.14.6,STRCAT('-14.6% ',CON2STR(SH-SH*0.146,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.191,STRCAT('-19.1% ',CON2STR(SH-SH*0.191,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.236,STRCAT('-23.6% ',CON2STR(SH-SH*0.236,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.382,STRCAT('-38.2% ',CON2STR(SH-SH*0.382,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.5,STRCAT('-50.0% ',CON2STR(SH-SH*0.5,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.618,STRCAT('-61.8% ',CON2STR(SH-SH*0.618,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.764,STRCAT('-76.4% ',CON2STR(SH-SH*0.764,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.809,STRCAT('-80.9% ',CON2STR(SH-SH*0.809,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=GT,SH-SH*0.854,STRCAT('-85.4% ',CON2STR(SH-SH*0.854,2))),COLORGREEN;
 {上升尺}
 DRAWTEXT(CURRBARSCOUNT=DT,SL*1.191,STRCAT('-19.1%  ',CON2STR(SL*1.191,2))),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*1.382,STRCAT('-38.2%  ',CON2STR(SL*1.382,2))),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*1.5,STRCAT('-50.0%  ',CON2STR(SL*1.5,2))),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*1.618,STRCAT('-61.8%  ',CON2STR(SL*1.618,2))),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*1.809,STRCAT('-80.9%  ',CON2STR(SL*1.809,2))),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2,STRCAT('-100%  ',CON2STR(SL*2,2))),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*1.191,STRCAT('-138.2%  ',CON2STR(SL*2*1.191,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*1.382,STRCAT('-176.4%  ',CON2STR(SL*2*1.382,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*1.5,STRCAT('-200.0%  ',CON2STR(SL*2*1.5,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*1.618,STRCAT('-223.6%  ',CON2STR(SL*2*1.618,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*1.809,STRCAT('-261.8%  ',CON2STR(SL*2*1.809,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*2,STRCAT('-300.0%  ',CON2STR(SL*2*2,2))),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*2.191,STRCAT('-338.2%  ',CON2STR(SL*2*2.191,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*2.382,STRCAT('-376.4%  ',CON2STR(SL*2*2.382,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*2.5,STRCAT('-400.0%  ',CON2STR(SL*2*2.5,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*2.618,STRCAT('-423.6%  ',CON2STR(SL*2*2.618,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*2.809,STRCAT('-461.8%  ',CON2STR(SL*22.809,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*3,STRCAT('-500.0%  ',CON2STR(SL*2*3,2))),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*3.191,STRCAT('-538.2%  ',CON2STR(SL*2*3.191,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*3.382,STRCAT('-576.4%  ',CON2STR(SL*2*3.382,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*3.5,STRCAT('-600.0%  ',CON2STR(SL*2*3.5,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*3.618,STRCAT('-623.6%  ',CON2STR(SL*2*3.618,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*3.809,STRCAT('-661.8%  ',CON2STR(SL*2*3.809,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*4,STRCAT('-700.0%  ',CON2STR(SL*2*4,2))),COLORLIMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*4.191,STRCAT('-738.2%  ',CON2STR(SL*2*4.191,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*4.382,STRCAT('-776.4%  ',CON2STR(SL*2*4.382,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*4.5,STRCAT('-800.0%  ',CON2STR(SL*2*4.5,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*4.618,STRCAT('-823.6%  ',CON2STR(SL*2*4.618,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*4.809,STRCAT('-861.8%  ',CON2STR(SL*2*4.809,2))),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT,SL*2*5,STRCAT('-900.0%  ',CON2STR(SL*2*5,2))),COLORGREEN

技术人员回复
日期:2018-6-7 17:35
不同软件的函数编写机制不同，改写后可能会存在细微的效果差异，这个是正常的，

另外，您指标中也含有很多不支持修改的函数，例如：STRCAT,CON2STR函数，其余部分给您修改了一下，请参考：

CURRBARSCOUNT:=REFX1(BARPOS,10000)-BARPOS+1; 
高点:=22;
低点:=10;
GD:=REFX1(HHV(H,高点*10),10000);
DD:=REFX1(LLV(L,低点*10),10000);
GT:=REFX1(BARSLAST(GD=H),10000)+1;
DT:=REFX1(BARSLAST(DD=L),10000)+1;
SH:=REFX1(IF(GT=1,H,REF(H,GT-1)),10000);
SL:=REFX1(IF(DT=1,L,REF(L,DT-1)),10000);
CC:=IF(DT>GT,DT,GT);
CD:=INTPART(CC-(DT+GT)/2);
CG:=IF(高点>CD,CD/2,高点);
AMOUNT:=AVPRICE*V;
HSL:=1;
 下跌周期:BARSLAST(GD=H),COLORWHITE,NODRAW;
 下跌幅:IF(CURRBARSCOUNT<=GT,C/SH*100-100,NULL),NODRAW,COLORGREEN;
 下跌均价:IF(CURRBARSCOUNT<=GT,SUM(AMOUNT,GT)/SUM(V,GT)/100,NULL),NODRAW,COLORGRAY;
 跌换手%:IF(CURRBARSCOUNT<=GT,SUM(HSL,GT),NULL),COLORCYAN,NODRAW;
 上涨周期:IF(CURRBARSCOUNT<=DT,BARSLAST(DD=L),NULL),COLORWHITE,NODRAW;
 上涨幅:IF(CURRBARSCOUNT<=DT,C/SL*100-100,NULL),NODRAW,COLORRED;
 上涨均价:IF(CURRBARSCOUNT<=DT,SUM(AMOUNT,DT)/SUM(V,DT)/100,NULL),NODRAW,COLORGRAY;
 涨换手%:IF(CURRBARSCOUNT<=DT,SUM(HSL,DT),NULL),COLORMAGENTA,NODRAW;
 //星期:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',')))))),')'); 
//日期:=VARCAT('-',VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期));

 DRAWTEXT(CURRBARSCOUNT=GT-2 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-4 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-7 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-12 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-20 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-33 ,L,'? '),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-54 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-88 ,L,'?'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-143 ,L,'飨'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-232 ,L,'�'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GT-376 ,L,'�'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=DT-2,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-4,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-7,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-12,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-20,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-33,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-54,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-88,H,'?'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-143,H,'飨'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-232,H,'�'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=DT-376,H,'�'),COLORRED;

 STICKLINE(CURRBARSCOUNT=DT,SL*20,SL,0,-1),COLORRED;
 STICKLINE(CURRBARSCOUNT=GT,SH,SH-SH*0.9,0,-1),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=DT ,(SL+SL*1.2)/2,'日期'),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=GT ,GD*0.97,'日期'),COLORYELLOW;