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

请老师解决呀 (文华财经WH6赢顺V6.7)

投资者咨询：请老师解决呀 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-14 10:21

 

 N:=20;//33
UR:=5;//6
LR:=5;//6
CURRBARSCOUNT:=REFX1(BARPOS,99999)-BARPOS+1;
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),10000)+1;
UP:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),10000);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),10000)+1;
LL:=REFX1(IF(BC2=1,L,REF(L,BC2-1)),10000);
LP:=CURRBARSCOUNT<=BC2 AND L=LL;
HP:=CURRBARSCOUNT<=TC2 AND H=UP;
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),REFX1(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1)),10000),NULL),LINETHICK3,COLOR93BDA8;
LR2:=SLOPE(C,NOD+1);
LR3:=REFX1(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)),10000);
FP:=NP-LR3*(NOD),COLORGRAY,LINETHICK3;//,POINTDOT,COLOR93BDA8
EQU:=(NP+FP)/2,COLORGRAY,LINETHICK3;//,POINTDOT,COLOR93BDA8
AD:=ABS(NP-FP);
DBL:=BARSLAST(ISNULL(BC1)=0)+1;
DBH:=BARSLAST(ISNULL(TC1)=0)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=REFX1(BARSLAST(AT1-LRL=AT2),10000);
AT4:=REFX1(IF(AT3=0,H,REF(H,AT3)),10000);
AT5:=REFX1(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)),10000);
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=REFX1(BARSLAST(LRL-UT1=UT2),10000);
UT4:=REFX1(IF(UT3=0,H,REF(H,UT3)),10000);
UT5:=REFX1(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)),10000);
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,REFX1(REF(ATL,MIN(BC2,TC2)-11),10000));
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,REFX1(REF(UTL,MIN(BC2,TC2)-11),10000));
上轨:IF(NP>FP,IF(ATL<=RH,ATL,NULL),IF(ATL>=RL,ATL,NULL)),COLORGREEN,LINETHICK2;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,NULL),IF(UTL>=RL,UTL,NULL)),COLORRED,LINETHICK2;



图片点击可在新窗口打开查看
技术人员回复
日期:2018-8-14 10:26
 请参考：

 N:=20;//33
UR:=5;//6
LR:=5;//6
CURRBARSCOUNT:=REFX1(BARPOS,99999)-BARPOS+1;
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),10000)+1;
UP:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),10000);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),10000)+1;
LL:=REFX1(IF(BC2=1,L,REF(L,BC2-1)),10000);
LP:=CURRBARSCOUNT<=BC2 AND L=LL;
HP:=CURRBARSCOUNT<=TC2 AND H=UP;
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),REFX1(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1)),10000),NULL),LINETHICK3,COLOR93BDA8;
LR2:=SLOPE(C,NOD+1);
LR3:=REFX1(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)),10000);
FP:=NP-LR3*(NOD),COLORGRAY,LINETHICK3;//,POINTDOT,COLOR93BDA8
EQU:=(NP+FP)/2,COLORGRAY,LINETHICK3;//,POINTDOT,COLOR93BDA8
AD:=ABS(NP-FP);
DBL:=BARSLAST(ISNULL(BC1)=0)+1;
DBH:=BARSLAST(ISNULL(TC1)=0)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=REFX1(BARSLAST(AT1-LRL=AT2),10000);
AT4:=REFX1(IF(AT3=0,H,REF(H,AT3)),10000);
AT5:=REFX1(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)),10000);
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=REFX1(BARSLAST(LRL-UT1=UT2),10000);
UT4:=REFX1(IF(UT3=0,H,REF(H,UT3)),10000);
UT5:=REFX1(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)),10000);
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,REFX1(REF(ATL,MIN(BC2,TC2)-11),10000));
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,REFX1(REF(UTL,MIN(BC2,TC2)-11),10000));
上轨:IF(NP>FP,IF(ATL<=RH,ATL,NULL),IF(ATL>=RL,ATL,NULL)),COLORGREEN,LINETHICK2;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,NULL),IF(UTL>=RL,UTL,NULL)),COLORRED,LINETHICK2;
FILLRGN(1,上轨,下轨,COLORYELLOW);
投资者咨询：请老师解决呀 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-14 10:21
 不能上传截图了，不完美有角度时填充缺失，请老师以两条线长度之间都填充黄色。
投资者咨询：请老师解决呀 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-14 10:21
 就是两条斜线；两头上下不成90度角的部分，没有填充颜色，请老师解决，让他都填充颜色。
技术人员回复
日期:2018-8-14 11:08
如果显示不全，ALT+U切换一下，之后加载如下源码

N:=20;//33
UR:=5;//6
LR:=5;//6
CURRBARSCOUNT:=REFX1(BARPOS,99999)-BARPOS+1;
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),10000)+1;
UP:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),10000);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),10000)+1;
LL:=REFX1(IF(BC2=1,L,REF(L,BC2-1)),10000);
LP:=CURRBARSCOUNT<=BC2 AND L=LL;
HP:=CURRBARSCOUNT<=TC2 AND H=UP;
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),REFX1(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1)),10000),NULL),LINETHICK3,COLOR93BDA8;
LR2:=SLOPE(C,NOD+1);
LR3:=REFX1(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)),10000);
FP:=NP-LR3*(NOD),COLORGRAY,LINETHICK3;//,POINTDOT,COLOR93BDA8
EQU:=(NP+FP)/2,COLORGRAY,LINETHICK3;//,POINTDOT,COLOR93BDA8
AD:=ABS(NP-FP);
DBL:=BARSLAST(ISNULL(BC1)=0)+1;
DBH:=BARSLAST(ISNULL(TC1)=0)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=REFX1(BARSLAST(AT1-LRL=AT2),10000);
AT4:=REFX1(IF(AT3=0,H,REF(H,AT3)),10000);
AT5:=REFX1(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)),10000);
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=REFX1(BARSLAST(LRL-UT1=UT2),10000);
UT4:=REFX1(IF(UT3=0,H,REF(H,UT3)),10000);
UT5:=REFX1(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)),10000);
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,REFX1(REF(ATL,MIN(BC2,TC2)-11),10000));
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,REFX1(REF(UTL,MIN(BC2,TC2)-11),10000));
上轨:IF(NP>FP,IF(ATL<=RH,ATL,NULL),IF(ATL>=RL,ATL,NULL)),COLORGREEN,LINETHICK2;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,NULL),IF(UTL>=RL,UTL,NULL)),COLORRED,LINETHICK2;
NA:=BARSLAST(上轨>=0&&下轨>0&&REFX(ISNULL(上轨)&&下轨>0,1))+1;
AA:=REF(上轨,NA-1);
NB:=BARSLAST(上轨>=0&&下轨>0&&REFX(ISNULL(下轨)&&上轨>0,1))+1;
BB:=REF(下轨,NB-1);
FILLRGN(下轨>0&&上轨>0,上轨,下轨,COLORYELLOW);
FILLRGN(1,AA,下轨,COLORYELLOW);
FILLRGN(1,BB,上轨,COLORYELLOW);