投资者咨询：请老师帮忙编辑指标 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-5-9 20:05
{参数设置如下}
{T 1---1000---125}
{T1 1---500---1}
{HDAY 1---600---13}
{LDAY 1---600---20}
{调点 1---3---3}
{黄金分割}
PP:=REF(HHV(H,T),T1);
JJ:=REF(LLV(L,T),T1);
H1:=PP-(PP-JJ)*0.191;
H2:=PP-(PP-JJ)*0.382;
H3:=PP-(PP-JJ)*0.5;
H4:=PP-(PP-JJ)*0.618;
H5:=PP-(PP-JJ)*0.764;
H6:=PP-(PP-JJ)*0.809;
H7:=PP-(PP-JJ)*0.236;
顶1:=PP+(PP-JJ)*0.191;
顶2:=PP+(PP-JJ)*0.382;
顶3:=PP+(PP-JJ)*0.618;
底1:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.191,JJ-JJ*0.191);
底2:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.382,JJ-JJ*0.382);
底3:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.618,JJ-JJ*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(PP,DATE),DRAWNULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(JJ,DATE),DRAWNULL);
NOTEXT1:高,COLOR007799;
AA:REFDATE(一,DATE),DOTLINE,COLOR777777;
BB:REFDATE(二,DATE),DOTLINE,COLOR777777;
CC:REFDATE(三,DATE),DOTLINE,COLOR777777;
DD:REFDATE(四,DATE),DOTLINE,COLOR777777;
QQ:REFDATE(五,DATE),DOTLINE,COLOR777777;
RR:REFDATE(六,DATE),DOTLINE,COLOR777777;
VV:REFDATE(七,DATE),DOTLINE,COLOR777777;
NOTEXT8:低,COLOR668800;
TT:=INTPART(T*0.5)+T1;
TT1:=(CURRBARSCOUNT=TT);
TT2:=(CURRBARSCOUNT=TT-32);
TT3:=(CURRBARSCOUNT=TT-40);
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT(' 【高点】: ',CON2STR(PP,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT(餗 (809): ',CON2STR(H1,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT(駖 (618): ',CON2STR(H2,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT(' 【中点】: ',CON2STR(H3,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT(髂 (382): ',CON2STR(H4,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT(魔 (236): ',CON2STR(H5,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT(鮁 (191): ',CON2STR(H6,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT(饄 (764): ',CON2STR(H7,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT(' 【低点】: ',CON2STR(JJ,2))),COLORYELLOW;
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{顶距};
以上为原黄金分割公式原码，增加扩展参数：1，1.236，1.382，1.5，1.618，1.764，2，2.382，2.618，3，3.382 ， 3.618
{T 1---1000---125}
{T1 1---500---1}
{HDAY 1---600---13}
{LDAY 1---600---20}
{调点 1---3---3}
{黄金分割}
PP:=REF(HHV(H,T),T1);
JJ:=REF(LLV(L,T),T1);
H1:=PP-(PP-JJ)*0.191;
H2:=PP-(PP-JJ)*0.382;
H3:=PP-(PP-JJ)*0.5;
H4:=PP-(PP-JJ)*0.618;
H5:=PP-(PP-JJ)*0.764;
H6:=PP-(PP-JJ)*0.809;
H7:=PP-(PP-JJ)*0.236;
顶1:=PP+(PP-JJ)*0.191;
顶2:=PP+(PP-JJ)*0.382;
顶3:=PP+(PP-JJ)*0.618;
底1:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.191,JJ-JJ*0.191);
底2:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.382,JJ-JJ*0.382);
底3:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.618,JJ-JJ*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(PP,DATE),DRAWNULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(JJ,DATE),DRAWNULL);
NOTEXT1:高,COLOR007799;
AA:REFDATE(一,DATE),DOTLINE,COLOR777777;
BB:REFDATE(二,DATE),DOTLINE,COLOR777777;
CC:REFDATE(三,DATE),DOTLINE,COLOR777777;
DD:REFDATE(四,DATE),DOTLINE,COLOR777777;
QQ:REFDATE(五,DATE),DOTLINE,COLOR777777;
RR:REFDATE(六,DATE),DOTLINE,COLOR777777;
VV:REFDATE(七,DATE),DOTLINE,COLOR777777;
NOTEXT8:低,COLOR668800;
TT:=INTPART(T*0.5)+T1;
TT1:=(CURRBARSCOUNT=TT);
TT2:=(CURRBARSCOUNT=TT-32);
TT3:=(CURRBARSCOUNT=TT-40);
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT(' 【高点】: ',CON2STR(PP,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT(餗 (809): ',CON2STR(H1,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT(駖 (618): ',CON2STR(H2,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT(' 【中点】: ',CON2STR(H3,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT(髂 (382): ',CON2STR(H4,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT(魔 (236): ',CON2STR(H5,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT(鮁 (191): ',CON2STR(H6,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT(饄 (764): ',CON2STR(H7,2))),COLORYELLOW;
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT(' 【低点】: ',CON2STR(JJ,2))),COLORYELLOW;
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{顶距};
以上为原黄金分割公式原码，增加扩展参数：1，1.236，1.382，1.5，1.618，1.764，2，2.382，2.618，3，3.382 ， 3.618
技术人员回复
日期:2018-5-9 20:40
改编如下，不支持的字符串函数已删除，扩展思路请您具体说下，如果是基于标注显示，那么实现不了
不支持其他软件字符函数的
T:=125;
T1:=1;
HDAY:=13;
LDAY:=20;
CURRBARSCOUNT:=REFX1(BARPOS,10000)-BARPOS+1;
PP:=REF(HHV(H,T),T1);
JJ:=REF(LLV(L,T),T1);
H1:=PP-(PP-JJ)*0.191;
H2:=PP-(PP-JJ)*0.382;
H3:=PP-(PP-JJ)*0.5;
H4:=PP-(PP-JJ)*0.618;
H5:=PP-(PP-JJ)*0.764;
H6:=PP-(PP-JJ)*0.809;
H7:=PP-(PP-JJ)*0.236;
顶1:=PP+(PP-JJ)*0.191;
顶2:=PP+(PP-JJ)*0.382;
顶3:=PP+(PP-JJ)*0.618;
底1:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.191,JJ-JJ*0.191);
底2:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.382,JJ-JJ*0.382);
底3:=IF((PP-JJ)<JJ,JJ-(PP-JJ)*0.618,JJ-JJ*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFX1(PP,DATE),NULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFX1(H1,DATE),NULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFX1(H2,DATE),NULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFX1(H3,DATE),NULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFX1(H4,DATE),NULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFX1(H5,DATE),NULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFX1(H6,DATE),NULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFX1(H7,DATE),NULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFX1(JJ,DATE),NULL);
NOTEXT1:高,COLOR007799;
AA:REFX1(一,10000),DOT,COLOR777777;
BB:REFX1(二,10000),DOT,COLOR777777;
CC:REFX1(三,10000),DOT,COLOR777777;
DD:REFX1(四,10000),DOT,COLOR777777;
QQ:REFX1(五,10000),DOT,COLOR777777;
RR:REFX1(六,10000),DOT,COLOR777777;
VV:REFX1(七,10000),DOT,COLOR777777;
NOTEXT8:低,COLOR668800;
