文华ema源码
① 文华财经MACD底背离,顶背离指标怎么编写
{macd底背离选股}DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIFF,9);A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));B1:=REF(C,A1+1)>CANDREF(DIFF,A1+1)0,5);
② 文华指标公式大全
上升线:EMA(C,3),COLORRED,LINETHICK2;
下降线:EMA(C,5),COLOR00FF00,LINETHICK2;
中间线:EMA(下降线,5),COLORWHITE,LINETHICK2;
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=SMA((CLOSE-VAR2),6,1)/SMA(ABS(CLOSE-VAR2),6,1)*100;
VAR4:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VAR5:=EMA(0.667*REF(VAR4,1)+0.333*VAR4,5);
VAR6:=IF(VOL>=1.3*MA(VOL,5) AND COUNT(VAR4>=VAR5 AND VAR4<-17,3) AND REF(LOW,1)=LLV(LOW,120),1,0);
VAR7:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
VAR8:=SMA(MAX(VAR1-VAR2,0),10,1)/SMA(ABS(VAR1-VAR2),10,1)*100;
VAR9:=IF(COUNT(VAR8<20,5)>=1 AND COUNT(VAR1=LLV(VAR1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0);
HH:=HHV(HIGH,10);
LL:=LLV(LOW,10);
HH1:=BARSLAST((HH>REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));
DRAWTEXT(CROSS(HH1,LL1),90,'众'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),90,'4');
DRAWTEXT(CROSS(HH1,LL1),60,'龙'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),60,'8');
DRAWTEXT(CROSS(HH1,LL1),70,'育'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),70,'1');
DRAWTEXT(CROSS(HH1,LL1),50,'指'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),50,'3');
DRAWTEXT(CROSS(HH1,LL1),40,'标'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),40,'7');
DRAWTEXT(CROSS(HH1,LL1),30,'公'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),30,'3');
DRAWTEXT(CROSS(HH1,LL1),20,'式'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),20,'9');
DRAWTEXT(CROSS(HH1,LL1),10,'网'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),10,'6');
DRAWTEXT(CROSS(HH1,LL1),100,'公'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),100,'QQ');
DRAWTEXT(CROSS(HH1,LL1),80,'号'),COLORWHITE;
DRAWTEXT(CROSS(LL1,HH1),80,'8');
110,COLORBLACK;
0,COLORBLACK;
③ 跪求大神修改文华财经指标转成同花顺或者大智慧的。
因为您没有贴图,本人没有文华软件,也不知您原图什么效果,只是改为大智慧通过,引入大智慧后您可以和文华对比看一下,不妥之处贴出(文华)原图,我们再一起探讨改进。
改后(大智慧通过)的源码如下:
第一个:
m:=HHV(H,120);y:=REF(m,3);x:=LLV(L,120);z:=REF(x,3);
H1:=y-(y-z)*0.191; H2:=y-(y-z)*0.382; H3:=y-(y-z)*0.5;
H4:=y-(y-z)*0.618; H5:=y-(y-z)*0.809;ww1:=EMA(C,14);
ww2:=REF(ww1,1);
A1X:=(EMA(C,12)-ww2)/ww2*100;
STICKLINE(A1X>0,C,O,6,0),COLORRED;
STICKLINE(A1X<0,C,O,6,0),colorwhite;
M1:MA(CLOSE,5),COLORRED;
M2:MA(CLOSE,6),COLORRED;
M11:MA(CLOSE,7),COLORRED;
M22:MA(CLOSE,8),COLORRED;M13:MA(CLOSE,9),COLORRED;
M24:MA(CLOSE,10),COLORRED;M3:MA(CLOSE,20),COLORBLUE;
M4:MA(CLOSE,22),COLORBLUE;M5:MA(CLOSE,24),COLORBLUE;
M6:MA(CLOSE,26),COLORBLUE;M7:MA(CLOSE,28),COLORBLUE;
M8:MA(CLOSE,30),COLORBLUE;
----------------------
第二个:
H31:EMA(CLOSE,5),COLORRED;
H32:EMA(H31,15),COLORYELLOW;
STICKLINE(H31>H32,H31,H32,6,0),COLORRED;
STICKLINE(H31<H32,H31,H32,6,0),colorwhite;
④ 请高手帮忙破解文华公式源码,一经验证加到200分
1.
HH1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0); LL1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0); HH2:=VALUEWHEN(HH1>0,HH1); LL2:=VALUEWHEN(LL1>0,LL1); K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0)); K2:=VALUEWHEN(K1<>0,K1); G:=IFELSE(K2=1,HH2,LL2); G1:=VALUEWHEN(ISLASTBAR,G); DRAWNUMBER(L>0,G1,G1,0,COLORCYAN); W1:=K2; W2:=OPEN-CLOSE; HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE); LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE); DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN); DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN); DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED); DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED); STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1); STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1); STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0); STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0); DRAWLINE(W1=1&&REF(W1,1)=1,G,W1=1&&REF(W1,1)=1,REF(G,1),COLORGREEN); DRAWLINE(W1=-3&&REF(W1,1)=-3,G,W1=-3&&REF(W1,1)=-3,REF(G,1),COLORYELLOW); DRAWSL(K2=1,G,0,1,0,COLORGREEN); DRAWSL(K2=-3,G,0,1,0,COLORYELLOW);
HH:=IFELSE(H>REF(H,1)&&H>REF(H,2)&&H>REF(H,3)&&H>REF(H,4)&&H>REF(H,5)&&L<REF(L,1)&&L<REF(L,2)
&&L<REF(L,3)&&L<REF(L,4)&&L<REF (L,5),H-(H-L)*0.333,H); LL:=IFELSE(H>REF(H,1)&&H>REF(H,2)&&H>REF(H,3)&&H>REF(H,4)&&H>REF(H,5)&&L<REF(L,1)&&L<REF(L,2)
&&L<REF(L,3)&&L<REF(L,4)&&L<REF (L,5),(H-L)*0.333+L,L); H1:=IFELSE(H>=REF(H,1)&&H>=REF(H,2)&&H>=REF(H,3)&&H>=REF(H,4)&&H>=REF(H,5)&& H>REFX(H,1)
&&H>REFX(H,2)&&H>REFX(H,3)&&H>REFX(H,4) &&H>REFX(H,5),HH,0); L1:=IFELSE(L<=REF(L,1)&&L<=REF(L,2)&&L<=REF(L,3)&&L<=REF(L,4)&&L<=REF(L,5)&& L<REFX(L,1)
&&L<REFX(L,2)&&L<REFX(L,3)&&L<REFX(L,4) &&L<REFX(L,5),LL,0); H2:=BARSLAST(H1); L2:=BARSLAST(L1); H3:=REFX(REF(H1,H2),2); L3:=REFX(REF(L1,L2),2); H4:=ZIGZAG(H3,0,0); L4:=ZIGZAG(L3,0,0); H5:=VALUEWHEN(H4<REF(H4,1)&&REF(H4,1)>REF(H4,2),HH); L5:=VALUEWHEN(L4>REF(L4,1)&&REF(L4,1)<REF(L4,2),LL); POLYLINE(H5>0,H5,COLORWHITE); POLYLINE(L5>0,L5,COLORWHITE); DRAWNUMBER(H5<>REF(H5,1),H5,H5-L5,0,COLORMAGENTA); DRAWNUMBER(L5<>REF(L5,1),L5,H5-L5,0,COLORMAGENTA); D:=VALUEWHEN(ISLASTBAR,H5); E:=VALUEWHEN(ISLASTBAR,L5); DRAWNUMBER(LOW>0,D,D,0,COLORWHITE); DRAWNUMBER(LOW>0,E,E,0,COLORWHITE);
=======================================================================================
2.
N:0 50 2
N1:0 5 2
Q:0 1000 0
Q1:0 9000 0
HH:=HHV(HIGH,N);
LH:=LLV(LOW,N);
H1:=IFELSE(HH<REF(HH,1)&&LH<REF(LH,1)&&REF(OPEN,1) >CLOSE&&OPEN>CLOSE&&(HHV(OPEN,Q)-CLOSE)>Q1,REF(HH,N1),0);
L1:=IFELSE(LH>REF(LH,1)&&HH>REF(HH,1)&&REF(OPEN,1) <CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,Q))>Q1,REF(LH,N1),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(LH>0,G1,G1,0,COLORCYAN);
TMP:=K2;W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);
DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF (G,1),COLORCYAN);DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF (TMP,1)=-3,REF(G,1),COLORRED);DRAWSL(K2=1,G,0,1,0,COLORCYAN);DRAWSL (K2=-3,G,0,1,0,COLORRED);
DRAWTEXT(CROSS(TMP,0),HH,'卖↓');
DRAWTEXT(CROSS(0,TMP),LH,'买↑');
MA55:=MA(CLOSE,55);
DRAWTEXT(CROSS(TMP,0)&&CLOSE<=MA55,HH,'卖↓');
DRAWTEXT(CROSS(0,TMP)&&CLOSE>=MA55,LH,'买↑');
=======================================================================================
3.
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR6:=(VAR3+VAR4+VAR5)/3;
VAR7:=EMA(VAR6,5);
ZHIB: EMA(EMA(VAR3,5),5)*3, COLORSTICK;
VAR8:=IFELSE(VAR6<=-20,10,0);
VAR9:=HHV(VAR8,10);
STICKLINE(VAR8=10,20,10,COLORRED,0);
VARA:=IFELSE(VAR9 && CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
K:EMA(VAR7,5)*2,COLORGREEN;
D:EMA(K,5), COLORWHITE;
J:K*3-D*2, COLORYELLOW;
VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) && J>10;
DRAWTEXT(VARA=20,15,'底部');
STICKLINE((VARA=20),0,10,COLORWHITE,0);
VARC:=(ZIGZAG(CLOSE,5,1)>REF(ZIGZAG(CLOSE,5,1),1)) && (REF(ZIGZAG(CLOSE,5,1),1)<=REF(ZIGZAG(CLOSE,5,1),2)) && (REF(ZIGZAG
(CLOSE,5,1),2)<=REF(ZIGZAG(CLOSE,5,1),3));
VARD:=(ZIGZAG(CLOSE,5,1)<REF(ZIGZAG(CLOSE,5,1),1)) && (REF(ZIGZAG(CLOSE,5,1),1)>=REF(ZIGZAG(CLOSE,5,1),2)) && (REF(ZIGZAG
(CLOSE,5,1),2)>=REF(ZIGZAG(CLOSE,5,1),3));
STICKLINE((VARC=1),(-14),0,COLORMAGENTA,0);
DRAWTEXT((VARC=1),(-14),'买');
STICKLINE((VARD=1),14,0,COLORGREEN,0);
DRAWTEXT((VARD=1),18,'卖');
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR11:=VARF<REF(VAR10,1) && VOL>REF(VOL,1) && CLOSE>REF(CLOSE,1);
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IFELSE(VAR13>=150 && VAR13<200 && VAR14>=150 && VAR14<200,10,0);
VAR16:=IFELSE(VAR13<=-150 && VAR13>-200 && VAR14<=-150 && VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IFELSE(VAR18<90,VAR18,100);
VAR1A:=IFELSE(VARE>0,VARE,0);
VAR1B:=IFELSE(VAR14>=200 && VAR13>=150,15,IFELSE(VAR14<=-200 && VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 && VAR1B>60 && VAR19<100;
这个应该是飞狐的, "&&"通达信里应该是用and