麻烦老师帮我改成文华指标，谢谢！ (文华财经WH6赢顺V6.7)

投资者咨询：麻烦老师帮我改成文华指标，谢谢！ (文华财经WH6赢顺V6.7)

来源:文华财经日期:2019-4-16 10:32

N: 10 (3.00--100.00)

VAR0 := (CONST(BARSLAST(HIGH = (HHV(HIGH,10 * N))))) + 1;

VAR1 := (CONST(BARSLAST(LOW = (LLV(LOW,10 * N))))) + 1;

VAR2 := CONST(IF(VAR0 = 1,HIGH,REF(HIGH,VAR0 - 1)));

VAR3 := CONST(IF(VAR1 = 1,LOW,REF(LOW,VAR1 - 1)));

VAR4 := MIN(VAR1,VAR0);

VAR5 := MAX(VAR0,VAR1);

VAR6 := VAR5 - VAR4;

VAR7 := CONST((VAR2 - VAR3) / VAR6);

VAR8 := IF(VAR4 = VAR1,VAR5 - CURRBARSCOUNT,CURRBARSCOUNT - VAR4);

VAR9 := IF(CURRBARSCOUNT <= VAR5,VAR2 - (VAR7 * VAR8),DRAWNULL);

VAR10 := IF(VAR5 = VAR1,((VAR9 - VAR3) / 2) + VAR3,VAR2 - ((VAR2 - VAR9) / 2));

VAR11 := IF(VAR5 = VAR1,((VAR9 - VAR3) / 3) + VAR3,VAR2 - ((VAR2 - VAR9) / 3));

VAR12 := IF(VAR5 = VAR1,((VAR9 - VAR3) / 4) + VAR3,VAR2 - ((VAR2 - VAR9) / 4));

VAR13 := IF(VAR5 = VAR1,((VAR9 - VAR3) / 8) + VAR3,VAR2 - ((VAR2 - VAR9) / 8));

VAR14 := IF(VAR5 = VAR1,((VAR9 - VAR3) * 2) + VAR3,VAR2 - ((VAR2 - VAR9) * 2));

VAR15 := IF(VAR5 = VAR1,((VAR9 - VAR3) * 3) + VAR3,VAR2 - ((VAR2 - VAR9) * 3));

VAR16 := IF(VAR5 = VAR1,((VAR9 - VAR3) * 4) + VAR3,VAR2 - ((VAR2 - VAR9) * 4));

VAR17 := IF(VAR5 = VAR1,((VAR9 - VAR3) * 8) + VAR3,VAR2 - ((VAR2 - VAR9) * 8));

VAR18 := IF(VAR5 = VAR1,VAR2 * 1.05,VAR3 * 0.95);

NOTEXT1 : IF(VAR5 = VAR1,IF(VAR9 <= VAR18,VAR9,DRAWNULL),IF(VAR9 >= VAR18,VAR9,DRAWNULL)),COLORWHITE;

NOTEXT2 : IF(VAR5 = VAR1,IF(VAR10 <= VAR18,VAR10,DRAWNULL),IF(VAR10 >= VAR18,VAR10,DRAWNULL)),DOTLINE,COLORYELLOW;

NOTEXT3 : IF(VAR5 = VAR1,IF(VAR11 <= VAR18,VAR11,DRAWNULL),IF(VAR11 >= VAR18,VAR11,DRAWNULL)),DOTLINE,COLORMAGENTA;

NOTEXT4 : IF(VAR5 = VAR1,IF(VAR12 <= VAR18,VAR12,DRAWNULL),IF(VAR12 >= VAR18,VAR12,DRAWNULL)),DOTLINE,COLORGREEN;

NOTEXT5 : IF(VAR5 = VAR1,IF(VAR13 <= VAR18,VAR13,DRAWNULL),IF(VAR13 >= VAR18,VAR13,DRAWNULL)),DOTLINE,COLORRED;

NOTEXT6 : IF(VAR5 = VAR1,IF(VAR14 <= VAR18,VAR14,DRAWNULL),IF(VAR14 >= VAR18,VAR14,DRAWNULL)),DOTLINE,COLORYELLOW;

NOTEXT7 : IF(VAR5 = VAR1,IF(VAR15 <= VAR18,VAR15,DRAWNULL),IF(VAR15 >= VAR18,VAR15,DRAWNULL)),DOTLINE,COLORMAGENTA;

NOTEXT8 : IF(VAR5 = VAR1,IF(VAR16 <= VAR18,VAR16,DRAWNULL),IF(VAR16 >= VAR18,VAR16,DRAWNULL)),DOTLINE,COLORGREEN;

NOTEXT9 : IF(VAR5 = VAR1,IF(VAR17 <= VAR18,VAR17,DRAWNULL),IF(VAR17 >= VAR18,VAR17,DRAWNULL)),DOTLINE,COLORRED;

STICKLINE(((LOW = VAR3) AND (VAR5 = VAR1)) AND (CURRBARSCOUNT = VAR1),VAR2 * 1.05,VAR3,0,0),COLORRED;

STICKLINE(((HIGH = VAR2) AND (VAR5 = VAR0)) AND (CURRBARSCOUNT = VAR0),VAR2,VAR3 * 0.95,0,0),COLORGREEN;

VAR19 := IF(VAR5 = VAR1,((VAR2 - VAR3) * 0.88) + VAR3,VAR2 - ((VAR2 - VAR3) * 0.7));

VAR20 := IF(VAR5 = VAR1,CROSS(NOTEXT1,VAR19),CROSS(VAR19,NOTEXT1));

DRAWTEXT(VAR20,VAR19,157),COLOR80FFFF;

DRAWTEXT(VAR20,NOTEXT2,158),COLOR80FFFF;

DRAWTEXT(VAR20,NOTEXT3,159),COLOR80FFFF;

DRAWTEXT(VAR20,NOTEXT4,160),COLOR80FFFF;

DRAWTEXT(VAR20,NOTEXT5,161),COLOR80FFFF;

DRAWTEXT(IF(VAR5 = VAR1,CROSS(NOTEXT6,VAR19),CROSS(VAR19,NOTEXT6)),VAR19,162),COLOR80FFFF;

DRAWTEXT(IF(VAR5 = VAR1,CROSS(NOTEXT7,VAR19),CROSS(VAR19,NOTEXT7)),VAR19,163),COLOR80FFFF;

DRAWTEXT(IF(VAR5 = VAR1,CROSS(NOTEXT8,VAR19),CROSS(VAR19,NOTEXT8)),VAR19,164),COLOR80FFFF;

DRAWTEXT(IF(VAR5 = VAR1,CROSS(NOTEXT9,VAR19),CROSS(VAR19,NOTEXT9)),VAR19,165),COLOR80FFFF;

技术人员回复

日期:2019-4-16 10:38

参考：

N:10;

VAR0:=REFX1(BARSLAST(HIGH=(HHV(HIGH,10 * N))),10000)+1;

VAR1 := REFX1(BARSLAST(LOW = (LLV(LOW,10 * N))),10000)+1;

VAR2 := REFX1(IF(VAR0 = 1,HIGH,REF(HIGH,VAR0 - 1)),10000);

VAR3 := REFX1(IF(VAR1 = 1,LOW,REF(LOW,VAR1 - 1)),10000);

VAR4 := MIN(VAR1,VAR0);

VAR5 := MAX(VAR0,VAR1);

VAR6 := VAR5 - VAR4;

VAR7 := REFX1((VAR2 - VAR3) / VAR6,10000);

CURRBARSCOUNT:=BARPOS-DATACOUNT+1;

VAR8 := IF(VAR4 = VAR1,VAR5 - CURRBARSCOUNT,CURRBARSCOUNT - VAR4);

VAR9 := IF(CURRBARSCOUNT <= VAR5,VAR2 - (VAR7 * VAR8),NULL);