老师 帮忙修改一下通达信转文华 (文华财经wh7睿期)

投资者咨询:老师 帮忙修改一下通达信转文华 (文华财经wh7睿期)
来源:文华财经  日期:2018-8-7 13:58

老师 请帮忙修改成文化的,谢谢!

 X:=5;
D:=10;
M5:MA(C,X);
M10:MA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
H1:=IF(CONST(M5)>CONST(M10),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(CONST(M5)<CONST(M10),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(CONST(M5)>CONST(M10),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(CONST(M5)<CONST(M10),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(CONST(M5)>CONST(M10),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(CONST(M5)<CONST(M10),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(T2) AND CURRBARSCOUNT<=CONST(ST2) AND L=CONST(L3);
TJ2:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(ST1) AND CURRBARSCOUNT<=CONST(T2) AND H=CONST(H3);
TJ3:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(T1) AND CURRBARSCOUNT<=CONST(ST1) AND L=CONST(L2);
TJ4:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(ST) AND CURRBARSCOUNT<=CONST(T1) AND H=CONST(H2);
TJ5:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(T)+1 AND CURRBARSCOUNT<=CONST(ST)+1 AND L=CONST(L1);
TJ6:=CONST(M5)>CONST(M10) AND H=CONST(H1) AND CURRBARSCOUNT<=CONST(ST2);
TJ7:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(ST2) AND CURRBARSCOUNT<=CONST(T2) AND H=CONST(H3);
TJ8:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(T1) AND CURRBARSCOUNT<=CONST(ST2) AND L=CONST(L3);
TJ9:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(ST1) AND CURRBARSCOUNT<=CONST(T1) AND H=CONST(H2);
TJ10:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(T) AND CURRBARSCOUNT<=CONST(ST1) AND L=CONST(L2);
TJ11:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(ST)+1 AND CURRBARSCOUNT<=CONST(T)+1 AND H=CONST(H1);
TJ12:=CONST(M5)<CONST(M10) AND L=CONST(L1)AND CURRBARSCOUNT<=CONST(T2);
DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=CONST(MAX(MAX(H1,H2),H3));
LL:=CONST(MIN(MIN(L1,L2),L3));
Z:=(HH-LL)/2+LL;
DRAWLINE(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,DOTLINE;
DRAWTEXT(TJ7,CONST(Z)*1.01,VARCAT(VARCAT('中区价位:',VAR2STR(CONST(Z),2)),'元')),COLORGREEN;
HH1:=CONST(MAX(H1,MAX(H2,H3)));
LL1:=CONST(MIN(MIN(L1,L2),L3));
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,DOTLINE;
DRAWTEXT(TJ1,CONST(Z)*1.01,VARCAT(VARCAT('中区价位:',VAR2STR(CONST(Z1),2)),'元')),COLORMAGENTA;
近高:H1,COLORMAGENTA,NODRAW;
近低:L1,COLORGREEN,NODRAW;
中高:H2,COLORMAGENTA,NODRAW;
中底:L2,COLORGREEN,NODRAW;
远高:H3,COLORMAGENTA,NODRAW;
远底:L3,COLORGREEN,NODRAW;

 
技术人员回复
日期:2018-8-7 14:02
不同软件对函数的处理略有不同,加载效果略有差异是正常的,参考:

X:=5;
D:=10;

M5:MA(C,X);
M10:MA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
CURRBARSCOUNT:DAYSTOEXPIRED(' ');
H1:=IF(REFX1(M5,1000)>REFX1(M10,1000),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(REFX1(M5,1000)<REFX1(M10,1000),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(REFX1(M5,1000)>REFX1(M10,1000),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(REFX1(M5,1000)<REFX1(M10,1000),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(REFX1(M5,1000)>REFX1(M10,1000),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(REFX1(M5,1000)<REFX1(M10,1000),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=REFX1(M5,1000)>REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(T2,1000) AND CURRBARSCOUNT<=REFX1(ST2,1000) AND L=REFX1(L3,1000);
TJ2:=REFX1(M5,1000)>REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(ST1,1000) AND CURRBARSCOUNT<=REFX1(T2,1000) AND H=REFX1(H3,1000);
TJ3:=REFX1(M5,1000)>REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(T1,1000) AND CURRBARSCOUNT<=REFX1(ST1,1000) AND L=REFX1(L2,1000);
TJ4:=REFX1(M5,1000)>REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(ST,1000) AND CURRBARSCOUNT<=REFX1(T1,1000) AND H=REFX1(H2,1000);
TJ5:=REFX1(M5,1000)>REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(T,1000)+1 AND CURRBARSCOUNT<=REFX1(ST,1000)+1 AND L=REFX1(L1,1000);
TJ6:=REFX1(M5,1000)>REFX1(M10,1000) AND H=REFX1(H1,1000) AND CURRBARSCOUNT<=REFX1(ST2,1000);
TJ7:=REFX1(M5,1000)<REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(ST2,1000) AND CURRBARSCOUNT<=REFX1(T2,1000) AND H=REFX1(H3,1000);
TJ8:=REFX1(M5,1000)<REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(T1,1000) AND CURRBARSCOUNT<=REFX1(ST2,1000) AND L=REFX1(L3,1000);
TJ9:=REFX1(M5,1000)<REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(ST1,1000) AND CURRBARSCOUNT<=REFX1(T1,1000) AND H=REFX1(H2,1000);
TJ10:=REFX1(M5,1000)<REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(T,1000) AND CURRBARSCOUNT<=REFX1(ST1,1000) AND L=REFX1(L2,1000);
TJ11:=REFX1(M5,1000)<REFX1(M10,1000) AND CURRBARSCOUNT>=REFX1(ST,1000)+1 AND CURRBARSCOUNT<=REFX1(T,1000)+1 AND H=REFX1(H1,1000);
TJ12:=REFX1(M5,1000)<REFX1(M10,1000) AND L=REFX1(L1,1000) AND CURRBARSCOUNT<=REFX1(T2,1000);
DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=REFX1(MAX(MAX(H1,H2),H3),1000);
LL:=REFX1(MIN(MIN(L1,L2),L3),1000);
Z:=(HH-LL)/2+LL;
DRAWLINE(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,DOT;
DRAWTEXT(TJ7,REFX1(Z,1000)*1.01,REFX1(Z,1000)),COLORGREEN;
HH1:=REFX1(MAX(H1,MAX(H2,H3)),10000);
LL1:=REFX1(MIN(MIN(L1,L2),L3),10000);
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,DOT;
DRAWTEXT(TJ1,REFX1(Z,1000)*1.01,REFX1(Z,1000)),COLORMAGENTA;
近高:H1,COLORMAGENTA,NODRAW;
近低:L1,COLORGREEN,NODRAW;
中高:H2,COLORMAGENTA,NODRAW;
中底:L2,COLORGREEN,NODRAW;
远高:H3,COLORMAGENTA,NODRAW;
远底:L3,COLORGREEN,NODRAW;


投资者咨询:老师 帮忙修改一下通达信转文华 (文华财经wh7睿期)
来源:文华财经  日期:2018-8-7 13:58
 老师 不用未来函数可以吗,还有程序中的1000是代表什么? 而且加载了没有显示呢? 谢谢!
技术人员回复
日期:2018-8-7 14:30
调整了一下,1楼源码中CONST本身就是一个未来函数的,您了解下

X:=5;
D:=10;
M5:MA(C,X);
M10:MA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
H1:=IF(REFX1(M5,10000)>REFX1(M10,10000),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(REFX1(M5,10000)<REFX1(M10,10000),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(REFX1(M5,10000)>REFX1(M10,10000),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(REFX1(M5,10000)<REFX1(M10,10000),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(REFX1(M5,10000)>REFX1(M10,10000),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(REFX1(M5,10000)<REFX1(M10,10000),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T2,10000) AND CURRBARSCOUNT<=REFX1(ST2,10000) AND L=REF(L3,10000);
TJ2:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST1,10000) AND CURRBARSCOUNT<=REFX1(T2,10000) AND H=REFX1(H3,10000);
TJ3:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T1,10000) AND CURRBARSCOUNT<=REFX1(ST1,10000) AND L=REFX1(L2,10000);
TJ4:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST,10000) AND CURRBARSCOUNT<=REFX1(T1,10000) AND H=REFX1(H2,10000);
TJ5:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T,10000)+1 AND CURRBARSCOUNT<=REFX1(ST,10000)+1 AND L=REFX1(L1,10000);
TJ6:=REFX1(M5,10000)>REFX1(M10,10000) AND H=REFX1(H1,10000) AND CURRBARSCOUNT<=REFX1(ST2,10000);
TJ7:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST2,10000) AND CURRBARSCOUNT<=REFX1(T2,10000) AND H=REFX1(H3,10000);
TJ8:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T1,10000) AND CURRBARSCOUNT<=REFX1(ST2,10000) AND L=REFX1(L3,10000);
TJ9:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST1,10000) AND CURRBARSCOUNT<=REFX1(T1,10000) AND H=REFX1(H2,10000);
TJ10:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T,10000) AND CURRBARSCOUNT<=REFX1(ST1,10000) AND L=REFX1(L2,10000);
TJ11:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST,10000)+1 AND CURRBARSCOUNT<=REFX1(T,10000)+1 AND H=REFX1(H1,10000);

TJ12:=REFX1(M5,10000)<REFX1(M10,10000) AND L=REFX1(L1,10000) AND CURRBARSCOUNT<=REFX1(T2,10000);

DRAWLINE1(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE1(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE1(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE1(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE1(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE1(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE1(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE1(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE1(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE1(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=REFX1(MAX(MAX(H1,H2),H3),10000);
LL:=REFX1(MIN(MIN(L1,L2),L3),10000);
Z:=(HH-LL)/2+LL;
DRAWLINE1(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,DOT;
DRAWNUMBER(TJ7,REFX1(Z,1000)*1.01,REFX1(Z,1000),2,COLORGREEN);
HH1:=REFX1(MAX(H1,MAX(H2,H3)),10000);
LL1:=REFX1(MIN(MIN(L1,L2),L3),10000);
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE1(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,DOT;
DRAWNUMBER(TJ1,REFX1(Z,1000)*1.01,REFX1(Z,1000),2,COLORMAGENTA);
近高:H1,COLORMAGENTA,NODRAW;
近低:L1,COLORGREEN,NODRAW;
中高:H2,COLORMAGENTA,NODRAW;
中底:L2,COLORGREEN,NODRAW;
远高:H3,COLORMAGENTA,NODRAW;
远底:L3,COLORGREEN,NODRAW;
投资者咨询:老师 帮忙修改一下通达信转文华 (文华财经wh7睿期)
来源:文华财经  日期:2018-8-7 13:58
 老师 加载没通过 11行没定义!
技术人员回复
日期:2018-8-7 14:39
本地在wh6 wh7上加载都是可以通过的,如图

是否是复制有误呢


图片点击可在新窗口打开查看

投资者咨询:老师 帮忙修改一下通达信转文华 (文华财经wh7睿期)
来源:文华财经  日期:2018-8-7 13:58
 哦 我是加载到8里面了
技术人员回复
日期:2018-8-7 15:19
 DATACOUNT是看盘软件独有的函数,您看盘继续在7中使用就可以了
投资者咨询:老师 帮忙修改一下通达信转文华 (文华财经wh7睿期)
来源:文华财经  日期:2018-8-7 13:58
 谢谢老师 这个函数是是什么意思呢?
技术人员回复
日期:2018-8-7 15:46
 是本地的k线数,您可以双击函数右键》查找函数说明了解一下