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

通达信改wh6 (文华财经WH6赢顺V6.7)

投资者咨询：通达信改wh6 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-7-16 15:04
 请帮忙修改能在文华上用，谢谢！

Y:=((HIGH + LOW) / 2);
BLUE:=SMA(Y,13,1);
RED:=SMA(Y,8,1);
GREEN:=SMA(Y,5,1);
B2:=REF(BLUE,8);
R2:=REF(RED,5);
G2:=REF(GREEN,3);
KU1:=IF((HIGH = HHV(HIGH,3)),1,0);
KD1:=IF((LOW = LLV(LOW,3)),1,0);
UL:=IF((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)),REF(HIGH,2),REF(HIGH,(2 + BARSLAST((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0))))));
DL:=IF((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)),REF(LOW,2),REF(LOW,(2 + BARSLAST((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0))))));
KU:=IF((((CLOSE > B2) AND (CLOSE > R2)) AND (CLOSE > G2)),1,0);
KD:=IF((((CLOSE < B2) AND (CLOSE < R2)) AND (CLOSE < G2)),(0 - 1),0);
KK:=IF((BARSLAST(((KU = 1) AND (REF(KU,1) = 0))) < BARSLAST(((KD = (0 - 1)) AND (REF(KD,1) = 0)))),1,(0 - 1));
AO:=(MA(Y,5) - MA(Y,34));
AC:=MA((AO - MA(AO,5)),5);
AC1:=REF(AC,1);
AO1:=REF(AO,1);
AO转:(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29),LINETHICK0;
AO零:(((165 * MA(Y,33)) - (136 * MA(Y,4))) / 29),LINETHICK0;
AC转:((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29),LINETHICK0;
AC零:((((((170 * 4) * MA(AO,4)) + ((20 * 33) * MA(Y,33))) - ((16 * 34) * MA(Y,4))) - (((170 * 5) * 4) * MA((AO - MA(AO,5)),4))) / 116),LINETHICK0;
KAC:=IF(((AC > AC1) AND (AO > AO1)),1,0);
KAO:=IF(((AC < AC1) AND (AO < AO1)),(0 - 1),0);
VAR1:=(HIGH+LOW)/2;
蓝:REF(SMA(VAR1,13,1),8),COLORBLUE;
红:REF(SMA(VAR1,8,1),5),COLORRED;
绿:REF(SMA(VAR1,5,1),3),COLORGREEN;
上碎型:=IF((HIGH >= R2),UL,REF(UL,BARSLAST((HIGH > R2)))),COLORFF00FF;
下碎型:=IF((LOW <= R2),DL,REF(DL,BARSLAST((LOW <= R2)))),COLORFFFF00;
STICKLINE((BARSLAST(ABS((上碎型 - REF(上碎型,1)))) < BARSLAST(((CLOSE > 上碎型) AND (REF(CLOSE,1) < REF(上碎型,1))))),上碎型,上碎型,5,1),COLORFF00FF;
STICKLINE((BARSLAST(ABS((下碎型 - REF(下碎型,1)))) < BARSLAST(((CLOSE < 下碎型) AND (REF(CLOSE,1) > REF(下碎型,1))))),下碎型,下碎型,5,1),COLORFFFF00;
OL:=(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29);
CL:=((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29);
H1:=REF(HIGH,4);
H2:=REF(HIGH,3);
H3:=REF(HIGH,2);
H4:=REF(HIGH,1);
H5:=HIGH;
L1:=REF(LOW,4);
L2:=REF(LOW,3);
L3:=REF(LOW,2);
L4:=REF(LOW,1);
L5:=LOW;
‖:=H3>H2 AND H3>H1 AND H3>H4 AND H3>H5;
‖FRACTAL:=IF(‖,1,0);
‖VAR1:=BACKSET(‖FRACTAL,3);
‖VAR2:=FILTER(‖VAR1,2);
‖VAR3:=BACKSET(‖FRACTAL,5);
�:=L3
�FRACTAL:=IF(�,1,0);
�VAR1:=BACKSET(�FRACTAL,3);
�VAR2:=FILTER(�VAR1,2);
�VAR3:=BACKSET(�FRACTAL,5);
DRAWICON(‖VAR2,HIGH*1.001,8);
DRAWICON(�VAR2,LOW,9);
DRAWICON(CLOSE>上碎型 AND REF(CLOSE,1);
DRAWICON(CLOSE<下碎型 AND REF(CLOSE,1)>REF(下碎型,1),LOW*0.99,5);
STICKLINE(((KAC = 1) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORRED;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORGREEN;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORGRAY;
STICKLINE((CLOSE >= OPEN),HIGH,CLOSE,0.5,0),COLORRED;
STICKLINE((CLOSE >= OPEN),OPEN,LOW,0.5,0),COLORRED;
STICKLINE(((KAC = 1) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORRED;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORGREEN;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORGRAY;
STICKLINE((OPEN > CLOSE),HIGH,OPEN,0.5,0),COLORCYAN;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,0.5,0),COLORCYAN;

 
技术人员回复
日期:2018-7-16 15:05

不同软件函数机制不同，加载效果会有差异，请理解。

 

请参考：

 

Y:=((HIGH + LOW) / 2);
BLUE:=SMA(Y,13,1);
RED:=SMA(Y,8,1);
GREEN:=SMA(Y,5,1);
B2:=REF(BLUE,8);
R2:=REF(RED,5);
G2:=REF(GREEN,3);
KU1:=IF((HIGH = HHV(HIGH,3)),1,0);
KD1:=IF((LOW = LLV(LOW,3)),1,0);
UL:=IF((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)),REF(HIGH,2),REF(HIGH,(2 + BARSLAST((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0))))));
DL:=IF((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)),REF(LOW,2),REF(LOW,(2 + BARSLAST((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0))))));
KU:=IF((((CLOSE > B2) AND (CLOSE > R2)) AND (CLOSE > G2)),1,0);
KD:=IF((((CLOSE < B2) AND (CLOSE < R2)) AND (CLOSE < G2)),(0 - 1),0);
KK:=IF((BARSLAST(((KU = 1) AND (REF(KU,1) = 0))) < BARSLAST(((KD = (0 - 1)) AND (REF(KD,1) = 0)))),1,(0 - 1));
AO:=(MA(Y,5) - MA(Y,34));
AC:=MA((AO - MA(AO,5)),5);
AC1:=REF(AC,1);
AO1:=REF(AO,1);
AO转:(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29),LINETHICK1;
AO零:(((165 * MA(Y,33)) - (136 * MA(Y,4))) / 29),LINETHICK1;
AC转:((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29),LINETHICK1;
AC零:((((((170 * 4) * MA(AO,4)) + ((20 * 33) * MA(Y,33))) - ((16 * 34) * MA(Y,4))) - (((170 * 5) * 4) * MA((AO - MA(AO,5)),4))) / 116),LINETHICK1;
KAC:=IF(((AC > AC1) AND (AO > AO1)),1,0);
KAO:=IF(((AC < AC1) AND (AO < AO1)),(0 - 1),0);
VAR1:=(HIGH+LOW)/2;
蓝:REF(SMA(VAR1,13,1),8),COLORBLUE;
红:REF(SMA(VAR1,8,1),5),COLORRED;
绿:REF(SMA(VAR1,5,1),3),COLORGREEN;
上碎型:=IF((HIGH >= R2),UL,REF(UL,BARSLAST((HIGH > R2)))),COLORFF00FF;
下碎型:=IF((LOW <= R2),DL,REF(DL,BARSLAST((LOW <= R2)))),COLORFFFF00;
STICKLINE((BARSLAST(ABS((上碎型 - REF(上碎型,1)))) < BARSLAST(((CLOSE > 上碎型) AND (REF(CLOSE,1) < REF(上碎型,1))))),上碎型,上碎型,5,1),COLORFF00FF;
STICKLINE((BARSLAST(ABS((下碎型 - REF(下碎型,1)))) < BARSLAST(((CLOSE < 下碎型) AND (REF(CLOSE,1) > REF(下碎型,1))))),下碎型,下碎型,5,1),COLORFFFF00;
OL:=(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29);
CL:=((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29);
H1:=REF(HIGH,4);
H2:=REF(HIGH,3);
H3:=REF(HIGH,2);
H4:=REF(HIGH,1);
H5:=HIGH;
L1:=REF(LOW,4);
L2:=REF(LOW,3);
L3:=REF(LOW,2);
L4:=REF(LOW,1);
L5:=LOW;
FRACTAL:=IF(H3>H2 AND H3>H1 AND H3>H4 AND H3>H5,1,0);
VAR10:=BACKSET(FRACTAL,3);
VAR2:=FILTER(VAR10,2);
VAR3:=BACKSET(FRACTAL,5);
AA:=L3;
FRACTAL1:=IF(AA,1,0);
VAR11:=BACKSET(FRACTAL1,3);
VAR21:=FILTER(VAR11,2);
VAR31:=BACKSET(FRACTAL1,5);
DRAWICON(VAR21,HIGH*1.001,8);
DRAWICON(VAR21,LOW,9);

DRAWICON(CLOSE>上碎型 AND REF(CLOSE,1)<REF(上碎型,1),HIGH*1.01,'ICO14');//这句您1楼给的源码不全，根据下一句做反向修改的。
DRAWICON(CLOSE<下碎型 AND REF(CLOSE,1)>REF(下碎型,1),LOW*0.99,5);
STICKLINE(((KAC = 1) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORRED;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORGREEN;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORGRAY;
STICKLINE((CLOSE >= OPEN),HIGH,CLOSE,0.5,0),COLORRED;
STICKLINE((CLOSE >= OPEN),OPEN,LOW,0.5,0),COLORRED;
STICKLINE(((KAC = 1) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORRED;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORGREEN;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORGRAY;
STICKLINE((OPEN > CLOSE),HIGH,OPEN,0.5,0),COLORCYAN;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,0.5,0),COLORCYAN;

 

投资者咨询：通达信改wh6 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-7-16 15:04
 麻烦再改一改：将那些图标（三角形、箭头）去掉，谢谢！
技术人员回复
日期:2018-7-16 15:55

 参考

 

Y:=((HIGH + LOW) / 2);
BLUE:=SMA(Y,13,1);
RED:=SMA(Y,8,1);
GREEN:=SMA(Y,5,1);
B2:=REF(BLUE,8);
R2:=REF(RED,5);
G2:=REF(GREEN,3);
KU1:=IF((HIGH = HHV(HIGH,3)),1,0);
KD1:=IF((LOW = LLV(LOW,3)),1,0);
UL:=IF((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)),REF(HIGH,2),REF(HIGH,(2 + BARSLAST((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0))))));
DL:=IF((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)),REF(LOW,2),REF(LOW,(2 + BARSLAST((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0))))));
KU:=IF((((CLOSE > B2) AND (CLOSE > R2)) AND (CLOSE > G2)),1,0);
KD:=IF((((CLOSE < B2) AND (CLOSE < R2)) AND (CLOSE < G2)),(0 - 1),0);
KK:=IF((BARSLAST(((KU = 1) AND (REF(KU,1) = 0))) < BARSLAST(((KD = (0 - 1)) AND (REF(KD,1) = 0)))),1,(0 - 1));
AO:=(MA(Y,5) - MA(Y,34));
AC:=MA((AO - MA(AO,5)),5);
AC1:=REF(AC,1);
AO1:=REF(AO,1);
AO转:(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29),LINETHICK1;
AO零:(((165 * MA(Y,33)) - (136 * MA(Y,4))) / 29),LINETHICK1;
AC转:((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29),LINETHICK1;
AC零:((((((170 * 4) * MA(AO,4)) + ((20 * 33) * MA(Y,33))) - ((16 * 34) * MA(Y,4))) - (((170 * 5) * 4) * MA((AO - MA(AO,5)),4))) / 116),LINETHICK1;
KAC:=IF(((AC > AC1) AND (AO > AO1)),1,0);
KAO:=IF(((AC < AC1) AND (AO < AO1)),(0 - 1),0);
VAR1:=(HIGH+LOW)/2;
蓝:REF(SMA(VAR1,13,1),8),COLORBLUE;
红:REF(SMA(VAR1,8,1),5),COLORRED;
绿:REF(SMA(VAR1,5,1),3),COLORGREEN;
上碎型:=IF((HIGH >= R2),UL,REF(UL,BARSLAST((HIGH > R2)))),COLORFF00FF;
下碎型:=IF((LOW <= R2),DL,REF(DL,BARSLAST((LOW <= R2)))),COLORFFFF00;
STICKLINE((BARSLAST(ABS((上碎型 - REF(上碎型,1)))) < BARSLAST(((CLOSE > 上碎型) AND (REF(CLOSE,1) < REF(上碎型,1))))),上碎型,上碎型,5,1),COLORFF00FF;
STICKLINE((BARSLAST(ABS((下碎型 - REF(下碎型,1)))) < BARSLAST(((CLOSE < 下碎型) AND (REF(CLOSE,1) > REF(下碎型,1))))),下碎型,下碎型,5,1),COLORFFFF00;
OL:=(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29);
CL:=((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29);
H1:=REF(HIGH,4);
H2:=REF(HIGH,3);
H3:=REF(HIGH,2);
H4:=REF(HIGH,1);
H5:=HIGH;
L1:=REF(LOW,4);
L2:=REF(LOW,3);
L3:=REF(LOW,2);
L4:=REF(LOW,1);
L5:=LOW;
FRACTAL:=IF(H3>H2 AND H3>H1 AND H3>H4 AND H3>H5,1,0);
VAR10:=BACKSET(FRACTAL,3);
VAR2:=FILTER(VAR10,2);
VAR3:=BACKSET(FRACTAL,5);
AA:=L3;
FRACTAL1:=IF(AA,1,0);
VAR11:=BACKSET(FRACTAL1,3);
VAR21:=FILTER(VAR11,2);
VAR31:=BACKSET(FRACTAL1,5);
STICKLINE(((KAC = 1) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORRED;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORGREEN;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE >= OPEN)),OPEN,CLOSE,10,1),COLORGRAY;
STICKLINE((CLOSE >= OPEN),HIGH,CLOSE,0.5,0),COLORRED;
STICKLINE((CLOSE >= OPEN),OPEN,LOW,0.5,0),COLORRED;
STICKLINE(((KAC = 1) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORRED;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORGREEN;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE < OPEN)),OPEN,CLOSE,10,0),COLORGRAY;
STICKLINE((OPEN > CLOSE),HIGH,OPEN,0.5,0),COLORCYAN;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,0.5,0),COLORCYAN;