投资者咨询：求修改一下函数 (文华财经WH8赢智V8.2)
来源:文华财经 日期:2018-8-29 15:55
帮助修改一下函数，可以文华用
COHL:=(C+O+H+L)/4;{算术均价}
成交均价:=AMOUNT/VOL/100;
TEST:=BETWEEN(成交均价,L,H);
CC0:=IF(TEST,成交均价,COHL),COLORWHITE;{当均价远离算术均价时,用算术均价}
CC:=FORCAST(CC0,5),COLORWHITE;
EMA34:EMA(CC,34),COLORFFCC66;
EMA21:EMA(CC,21),COLORGREEN;
EMA13:EMA(CC,13),COLORBROWN;
EMA5:EMA(EMA(CC,5),2),COLORYELLOW;
TJ:= {C>O AND} ABS(EMA13-EMA5)<EMA5*0.01
AND ABS(EMA13-EMA21)<EMA21*0.01
AND ABS(EMA34-EMA21)<EMA21*0.01
AND EMA5>REF(EMA5,1) AND EMA13>REF(EMA13,1)
AND EMA21>REF(EMA21,1) AND EMA34>REF(EMA34,1);
启动点:=FILTER(TJ,5);
DRAWTEXT(启动点,L*0.95,'启动'),COLORMAGENTA;
A1:=MA(C,5);
A2:=MA(C,10); {可以自设均线，牛市21日线，熊市10日线}
A3:=(A1+A2)/2;
IF (A1>A2,A1,A3),COLORRED,LINETHICK2;
IF (A1>A2,A2,A3),COLORRED,LINETHICK2;
IF (A1<=A2,A1,A3),COLOR00FF00,LINETHICK2;
IF (A1<=A2,A2,A3),COLOR00FF00,LINETHICK2;
A3,COLORWHITE,LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
DRAWICON(CROSS(84,RSI) ,H*1.03,5);
DRAWICON(CROSS(RSI,11) ,L*0.99,4);
VAR27:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-VAR27,0),5.5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100;
DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.03,5);
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0
AND EMA(CLOSE,12)/LOW>1.15,5),
LOW,'),LINETHICK7 , COLORFF00FF;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND
(AA>SS),H*1.02,'),LINETHICK7,COLORGREEN;
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1)
AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1)
AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VAR1,C,O,8,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR1,C,O,3,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR1,H,L,1,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR2,C,O,8,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2,C,O,3,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2,H,L,1,0),COLORFF00FF,LINETHICK2;
成交均价:=AMOUNT/VOL/100;
TEST:=BETWEEN(成交均价,L,H);
CC0:=IF(TEST,成交均价,COHL),COLORWHITE;{当均价远离算术均价时,用算术均价}
CC:=FORCAST(CC0,5),COLORWHITE;
EMA34:EMA(CC,34),COLORFFCC66;
EMA21:EMA(CC,21),COLORGREEN;
EMA13:EMA(CC,13),COLORBROWN;
EMA5:EMA(EMA(CC,5),2),COLORYELLOW;
TJ:= {C>O AND} ABS(EMA13-EMA5)<EMA5*0.01
AND ABS(EMA13-EMA21)<EMA21*0.01
AND ABS(EMA34-EMA21)<EMA21*0.01
AND EMA5>REF(EMA5,1) AND EMA13>REF(EMA13,1)
AND EMA21>REF(EMA21,1) AND EMA34>REF(EMA34,1);
启动点:=FILTER(TJ,5);
DRAWTEXT(启动点,L*0.95,'启动'),COLORMAGENTA;
A1:=MA(C,5);
A2:=MA(C,10); {可以自设均线，牛市21日线，熊市10日线}
A3:=(A1+A2)/2;
IF (A1>A2,A1,A3),COLORRED,LINETHICK2;
IF (A1>A2,A2,A3),COLORRED,LINETHICK2;
IF (A1<=A2,A1,A3),COLOR00FF00,LINETHICK2;
IF (A1<=A2,A2,A3),COLOR00FF00,LINETHICK2;
A3,COLORWHITE,LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
DRAWICON(CROSS(84,RSI) ,H*1.03,5);
DRAWICON(CROSS(RSI,11) ,L*0.99,4);
VAR27:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-VAR27,0),5.5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100;
DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.03,5);
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0
AND EMA(CLOSE,12)/LOW>1.15,5),
LOW,'),LINETHICK7 , COLORFF00FF;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND
(AA>SS),H*1.02,'),LINETHICK7,COLORGREEN;
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1)
AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1)
AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VAR1,C,O,8,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR1,C,O,3,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR1,H,L,1,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR2,C,O,8,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2,C,O,3,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2,H,L,1,0),COLORFF00FF,LINETHICK2;
技术人员回复
日期:2018-8-29 15:59
请参考：
COHL:=(C+O+H+L)/4;
AMOUNT:=V*AVPRICE;
成交均价:=AMOUNT/VOL/100;
TEST:=BETWEEN(成交均价,L,H);
CC0:=IF(TEST,成交均价,COHL),COLORWHITE;
{当均价远离算术均价时,用算术均价}
CC:=FORCAST(CC0,5),COLORWHITE;
EMA34:EMA(CC,34),COLORFFCC66;
EMA21:EMA(CC,21),COLORGREEN;
EMA13:EMA(CC,13),COLORLIGHTRED;
EMA5:EMA(EMA(CC,5),2),COLORYELLOW;
TJ:= ABS(EMA13-EMA5)<EMA5*0.01 AND ABS(EMA13-EMA21)<EMA21*0.01 AND ABS(EMA34-EMA21)<EMA21*0.01 AND EMA5>REF(EMA5,1) AND EMA13>REF(EMA13,1) AND EMA21>REF(EMA21,1) AND EMA34>REF(EMA34,1);
启动点:=FILTER(TJ,5);
DRAWTEXT(启动点,L*0.95,'启动'),COLORMAGENTA;
A1:=MA(C,5);
A2:=MA(C,10);
{可以自设均线，牛市21日线，熊市10日线}
A3:=(A1+A2)/2;
IF (A1>A2,A1,A3),COLORRED,LINETHICK2;
IF (A1>A2,A2,A3),COLORRED,LINETHICK2;
IF (A1<=A2,A1,A3),COLOR00FF00,LINETHICK2;
IF (A1<=A2,A2,A3),COLOR00FF00,LINETHICK2;
A3,COLORWHITE,LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
DRAWICON(CROSS(84,RSI) ,H*1.03,5);
DRAWICON(CROSS(RSI,11) ,L*0.99,4);
VAR27:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-VAR27,0),5.5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100;
DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.03,5);
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,' A') ,COLORFF00FF;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS),H*1.02,'B'),LINETHICK7,COLORGREEN;
VAR1:=ZIGZAG(C,10,1)<REF(ZIGZAG(C,10,1),1)
AND REF(ZIGZAG(C,10,1),1)>REF(ZIGZAG(C,10,1),2);
VAR2:=ZIGZAG(C,10,1)>REF(ZIGZAG(C,10,1),1)
AND REF(ZIGZAG(C,10,1),1)<REF(ZIGZAG(C,10,1),2);
STICKLINE(VAR1,C,O,8,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR1,C,O,3,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR1,H,L,1,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR2,C,O,8,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2,C,O,3,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2,H,L,1,0),COLORFF00FF,LINETHICK2;
