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

老师帮忙修改成可文化用， (文华财经WH6赢顺V6.7)

投资者咨询：老师帮忙修改成可文化用， (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-7-20 19:51
 M1:=5;M2:=10;M3:=20;M4:=120;

VOLUME:VOL,VOLSTICK;

MAVOL1:MA(VOLUME,M1),LINETHICK2;

MAVOL2:MA(VOLUME,M2),LINETHICK0;

MAVOL3:MA(VOLUME,M3),LINETHICK0;

MAVOL4:MA(VOLUME,M4),LINETHICK2,COLORYELLOW;

IF(MA(VOL,5)>=REF(MA(VOL,5),1),MA(VOL,5),DRAWNULL),COLORRED,LINETHICK2;

VAR2:=(HIGH - LOW);

VAR3:=ABS((OPEN - CLOSE));

VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));

VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);

VAR6:=((VAR3 / VAR2) * VOL);

VAR7:=((VAR4 / VAR2) * VOL);

VAR8:=((VAR5 / VAR2) * VOL);

VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));

VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);

VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));

VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));

DRAWTEXT(CROSS(MA(VOL,5),MA(VOL,10)),MA(VOL,5),'○'),LINETHICK2, COLORYELLOW;

DRAWTEXT(CROSS(MA(VOL,10),MA(VOL,20)),MA(VOL,10),'◎'),LINETHICK2, COLORYELLOW;

DRAWTEXT(CROSS(MA(VOL,20),MA(VOL,60)),MA(VOL,20),'●'),LINETHICK2, COLORYELLOW;

相对地量:STICKLINE(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),0,VOL,2.2,0),,COLORYELLOW;

地量:DRAWTEXT(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),VOL,'地量'),,COLORYELLOW;

放量:STICKLINE((VOL > (MA(VOL,5) * 2.5)),0,VOL,2.2,0),,COLORYELLOW;

高出:DRAWTEXT(((((((((VAR7 > VAR6) AND (VARA > 2)) AND (VAR7 > VAR8)) AND (CLOSE > MA(CLOSE,5))) AND (CLOSE > MA(CLOSE,30))) AND (HIGH > MA(CLOSE,60))) AND (VOL > MA(VOL,5))) AND (VAR7 >= MA(VOL,5))),VOL,'高出'),COLORYELLOW;

低进:DRAWTEXT(((((((VAR8 > VAR6) AND (VAR8 > VAR7)) AND (VARA < (0 - 2))) AND (CLOSE < MA(CLOSE,30))) AND (VAR8 < (MA(VOL,5) / 2))) AND (MA(VOL,5) < MA(VOL,10))),VOL,'低进'),,COLORYELLOW;

强势参与:DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)),VOL,'参与'),,COLORYELLOW;

空头释放:DRAWTEXT(((((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)) AND ((VAR6 / VOL) > 0.7)) AND VARC) AND (VAR6 > MA(VOL,5))),(VAR6 * 2),'空头释放'),,COLORYELLOW;

技术人员回复
日期:2018-7-20 19:56
参考：

 M1:=5;
M2:=10;
M3:=20;
M4:=120;
VOLUME:VOL,VOLSTICK;

MAVOL1:MA(VOLUME,M1),LINETHICK2;

MAVOL2:MA(VOLUME,M2),LINETHICK1;

MAVOL3:MA(VOLUME,M3),LINETHICK1;

MAVOL4:MA(VOLUME,M4),LINETHICK2,COLORYELLOW;

IF(MA(VOL,5)>=REF(MA(VOL,5),1),MA(VOL,5),NULL),COLORRED,LINETHICK2;

VAR2:=(HIGH - LOW);

VAR3:=ABS((OPEN - CLOSE));

VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));

VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);

VAR6:=((VAR3 / VAR2) * VOL);

VAR7:=((VAR4 / VAR2) * VOL);

VAR8:=((VAR5 / VAR2) * VOL);

CAPITAL:=GETPRICE('流通股本');

VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));

VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);

VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));

VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));

DRAWTEXT(CROSS(MA(VOL,5),MA(VOL,10)),MA(VOL,5),'○'),LINETHICK2, COLORYELLOW;

DRAWTEXT(CROSS(MA(VOL,10),MA(VOL,20)),MA(VOL,10),'◎'),LINETHICK2, COLORYELLOW;

DRAWTEXT(CROSS(MA(VOL,20),MA(VOL,60)),MA(VOL,20),'●'),LINETHICK2, COLORYELLOW;
STICKLINE(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),0,VOL,2.2,0),COLORYELLOW;

DRAWTEXT(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),VOL,'地量'),COLORYELLOW;
STICKLINE((VOL > (MA(VOL,5) * 2.5)),0,VOL,2.2,0),COLORYELLOW;

DRAWTEXT(((((((((VAR7 > VAR6) AND (VARA > 2)) AND (VAR7 > VAR8)) AND (CLOSE > MA(CLOSE,5))) AND (CLOSE > MA(CLOSE,30))) AND (HIGH > MA(CLOSE,60))) AND (VOL > MA(VOL,5))) AND (VAR7 >= MA(VOL,5))),VOL,'高出'),COLORYELLOW;

DRAWTEXT(((((((VAR8 > VAR6) AND (VAR8 > VAR7)) AND (VARA < (0 - 2))) AND (CLOSE < MA(CLOSE,30))) AND (VAR8 < (MA(VOL,5) / 2))) AND (MA(VOL,5) < MA(VOL,10))),VOL,'低进'),COLORYELLOW;

DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)),VOL,'参与'),COLORYELLOW;

DRAWTEXT(((((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)) AND ((VAR6 / VOL) > 0.7)) AND VARC) AND (VAR6 > MA(VOL,5))),(VAR6 * 2),'空头释放'),COLORYELLOW;