[求助]通达信转文华 (文华财经WH6赢顺V6.7)

投资者咨询:[求助]通达信转文华 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2019-7-28 21:52

老师你好:

请帮忙转文华,谢谢! 

 

N:=2;
M:=30;
 MA(H,M) * (1 + 13 / 100) * 1.0382,LINETHICK1,COLORFF7F00;
 MA(H,M) * (1 + 13 / 100),LINETHICK1,COLORFF7F00;
 VAR22:=IF(((YEAR) >= (2039)) AND ((MONTH) > 3),0,1);
VAR33:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4 + ((1.88) * (STD((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4,9))) * (VAR22);
急拉涨停线:=((MA(VAR33,12)) * (1.06)) * (VAR22),LINETHICK2,COLORCYAN ;
 VAR55:=(EMA(H,10)) * (1 + 5 / (100));
 VAR6:=C * V;
 VAR7:=EMA(((EMA(VAR6,3)) / (EMA(V,3)) + (EMA(VAR6,6)) / (EMA(V,6)) + (EMA(VAR6,12)) / (EMA(V,12)) + (EMA(VAR6,24)) / (EMA(V,24))) / 4,13);
 VAR8:=(1.06) * (VAR7);
VAR9:=(L / ((H + REF(C,1) + O) / 3)) * C+0.01;
急拉:DRAWICON(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND C/REF(C,1)>1.099 AND (C+0.01 >= (急拉涨停线)),L,26);
{==========开口捉妖多彩K线========}
DRAWTEXT(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND C/REF(C,1)>1.099 AND (C+0.01 >= (急拉涨停线)),L*0.97,'牛'),COLORYELLOW;


 M2:=(EMA(C,2)+EMA(C,3))/2,COLORBROWN,DOTLINE;
 M5:=(EMA(C,5)+EMA(C,6))/2;
 M12:=EMA(C,12);
 BSBL:=M12+2*STD(M12,6),COLORWHITE,DOTLINE;
 M26:=EMA(C,26);
 CSBL:=M26+2*STD(M26,13),COLORMAGENTA,DOTLINE;
 M56:=EMA(C,56);
 DSBL:=M56+2*STD(M56,28),COLORYELLOW,DOTLINE;
 M120:=EMA(C,120);
 ESBL:=M120+2*STD(M120,60),COLORLIBLUE,DOTLINE;
 EXBL:=M120-2*STD(M120,60),COLORLIGREEN,DOTLINE;
 M256:=EMA(C,256);
 FSBL:=M256+2*STD(M256,256/2),COLORRED,DOTLINE;
 JD:=INTPART(ABS(ATAN((M2/REF(M2,1)+M5/REF(M5,1)+M12/REF(M12,1)+M26/REF(M26,1)
 +M56/REF(M56,1)+M120/REF(M120,1)+M256/REF(M256,1)-7)/7*100)*180/3.14));
 QZ:=IF(JD<=1,1,JD);
 JDX:EMA(M56,QZ),COLORLIMAGENTA,LINETHICK2;
 IF(M2<JDX,JDX,DRAWNULL),COLORLICYAN,LINETHICK2;

{九转序列}
AB1:=C>REF(C,4);
 AB2:=BARSLASTCOUNT(AB1);
 AB3:=REF(AB2,1)=8 AND AB2>REF(AB2,1);
 AB4:=REF(BETWEEN(AB2,5,8),1) AND AB2<REF(AB2,1);
 AB5:=ISLASTBAR AND BETWEEN(AB2,6,8);
 AB6:=(BACKSET(AB3>0,9) OR BACKSET(AB4>0,AB2+1)*0 OR BACKSET(AB5>0,AB2))*AB2;
 DRAWTEXT(AB6>0,H+H*0.02,VAR2STR(AB6,0)),COLORFF00FF{COLOR00FFFF};
 DRAWTEXT(AB2=9,H+H*0.02,Ə'),COLOR00FF00;
 B1:=C<REF(C,4);
 B2:=BARSLASTCOUNT(B1);
 B3:=REF(B2,1)=8 AND B2>REF(B2,1);
 B4:=REF(BETWEEN(B2,5,8),1) AND B2<REF(B2,1);
 B5:=ISLASTBAR AND BETWEEN(B2,6,8);
 B6:=(BACKSET(B3>0,9) OR BACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
 DRAWTEXT(B6>0,L-L*0.02,VAR2STR(B6,0)),COLOR00FF00{COLORFFFFFF};
 DRAWTEXT(B2=9,L-L*0.02,Ə'),COLORFF00FF;

{小虚线}
NS:=8;
 AA:=REF(H,NS)=HHV(H,2*NS+1);
 AA1:=REF(L,NS)=LLV(L,2*NS+1);
 QY:=BACKSET(AA,NS+1);
 QY1:=BACKSET(AA1,NS+1);
 CC:=FILTER(QY,NS) AND H=HHV(H,NS+1);
 CC1:=FILTER(QY1,NS) AND L=LLV(L,NS+1);
 DDD:=BARSLAST(CC);
 DD2:=BARSLAST(CC1);
 GDTS:=IF(CC,CURRBARSCOUNT,0);
 DDTS:=IF(CC1,CURRBARSCOUNT,0);
 DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
 DDTS1:=IF(DD2,REF(DDTS,DD2),DDTS);
 GDCS1:=CONST(DINGBUTS);
 DDCS1:=CONST(DDTS1);
 GDCS13:=CONST(REF(HIGH,GDCS1-1));
 DDCS13:=CONST(REF(L,DDCS1-1));
 DINGBUTS1:=REF(DINGBUTS,DDD+1);
 DDTS2:=REF(DDTS1,DD2+1);
 GDCS2:=CONST(DINGBUTS1);
 DDCS2:=CONST(DDTS2);
GDCS23:=CONST(REF(HIGH,DINGBUTS1-1));
 DDCS23:=CONST(REF(L,DDTS2-1));
 XG1:=BACKSET(ISLASTBAR,GDCS1);
 XD1:=BACKSET(ISLASTBAR,DDCS1);
 XG2:=BACKSET(ISLASTBAR,DINGBUTS1);
 XD2:=BACKSET(ISLASTBAR,DDTS2);

STICKLINE(XG2,GDCS23,GDCS23,2,0),COLORWHITE;
 STICKLINE(XG1,GDCS13,GDCS13,2,0),COLORYELLOW;
 STICKLINE(XD2,DDCS23,DDCS23,2,0),COLORGRAY;
 STICKLINE(XD1,DDCS13,DDCS13,2,0),COLORCYAN;

STICKLINE(C/REF(C,1)>=1.096 AND H=C,O,C,1.5,0),COLORRED;


 VAR4:=EMA(CLOSE,24);
底:EMA(VAR4*80/100,5),COLORGREEN,LINETHICK1;
去除ST:=NOT(NAMELIKE('S') OR NAMELIKE('*')),NODRAW ;
 TJ1:=(REF(底,1)>REF(C,1) AND C>底 AND C>REF(C,1)*1.02 ) ,NODRAW;
 TJ:=FILTER(TJ1,3) ,NODRAW;
 DRAWICON(TJ1,L*0.98,44);

{抛物线}
抛物线:SAR(4,2,20)COLORRED,LINETHICK1,DOTLINE;


操:=MA(C,5);
神秘线:HHV(操,13)DOTLINE,COLORFFB9CC;

L1:=IF((REF(C,1)-REF(C,2))/REF(C,2)>0.07,1,0);
 L2:=IF(C>REF(C,1),1,0);
 L3:=IF(H>O AND O>C AND C>L,1,0);
 L4:=(REF(VOL,0)-REF(VOL,1))/ REF(VOL,1)*100>30;
 L5:=CAPITAL<20000000;
 L6:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
假阴线:=IF(L1+L2+L3+L4=4,1,0) AND L5 AND L6>REF(L6,1) AND L4 AND FILTER(REF(C,1)<L AND C>=L AND VOL>=REF(VOL,1),1);
DRAWICON(FILTER(L2>=75 AND CROSS(90,L2) AND L3>L4>COST(95)<(COST(99)-COST(1))/20*0.7,25),L*0.97,9);

STICKLINE(假阴线,OPEN,CLOSE,3,0),COLOR8000FF;
 DRAWICON(假阴线,L*0.94,9);

RC1:=REF(C,1);
 CS:=IF(C>=1,10000,100000);
 C涨停10:=1.10*RC1-49/CS;
{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
 C跌停10:=0.90*RC1+51/CS;
 C跌停5 :=0.95*RC1+51/CS;
 ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);

STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORWHITE;
{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLOR00AA00;
{跌停后回升}
大阳线:=C>O AND (C>=C涨停5 OR C>(1.05*O-51/CS) ) OR (C>1000 AND C>RC1*1.024);
 STICKLINE(大阳线,OPEN,CLOSE,1,0),COLOR0000AA;
大阴线:=C<O AND (C<=C跌停5 OR C<(0.95*O+49/CS) ) OR (C>1000 AND C<RC1*0.976);
 STICKLINE(大阴线,OPEN,CLOSE,1,0),COLOR2F4F2F;
 STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORFF00FF;
 STICKLINE(跌停,OPEN,CLOSE,2.5,0),COLORGREEN;
假阴:=C<O AND C>REF(C,1);
 STICKLINE(假阴,O,C,0.5,0),COLORRED;
{假阴柱};
假阳:=C>O AND C<REF(C,1);
 STICKLINE(假阳,O,C,0.5,0),COLORGREEN;
{假阳柱};
半分位:=(O+C)/2;
昨半分位:=REF(半分位,1);
 STICKLINE(CURRBARSCOUNT<=1,昨半分位,昨半分位,12,0),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.18,0.06,1,'昨半分位'),LINETHICK5,COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.22,0.06,1,昨半分位);

{最佳买点}
A7:=C-REF(C,1);
 A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
 DRAWTEXT(FILTER(买=1,5),LOW-0.05,'�I买'),COLORYELLOW;
 STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;

 

 

技术人员回复
日期:2019-7-29 8:08
参考:

N:=2;
M:=30;
 CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
AMOUNT:=AVPRICE*V;
CAPITAL:=GETPRICE1('流通股本');
 MA(H,M) * (1 + 13 / 100) * 1.0382,LINETHICK1,COLORFF7F00;
 MA(H,M) * (1 + 13 / 100),LINETHICK1,COLORFF7F00;
 VAR22:=IF(((YEAR) >= (2039)) AND ((MONTH) > 3),0,1);
VAR33:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4 + ((1.88) * (STD((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4,9))) * (VAR22);
急拉涨停线:=((MA(VAR33,12)) * (1.06)) * (VAR22),LINETHICK2,COLORCYAN ;
 VAR55:=(EMA(H,10)) * (1 + 5 / (100));
 VAR6:=C * V;
 VAR7:=EMA(((EMA(VAR6,3)) / (EMA(V,3)) + (EMA(VAR6,6)) / (EMA(V,6)) + (EMA(VAR6,12)) / (EMA(V,12)) + (EMA(VAR6,24)) / (EMA(V,24))) / 4,13);
 VAR8:=(1.06) * (VAR7);
VAR9:=(L / ((H + REF(C,1) + O) / 3)) * C+0.01;
DRAWICON(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND C/REF(C,1)>1.099 AND (C+0.01 >= (急拉涨停线)),L,26);

DRAWTEXT(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND C/REF(C,1)>1.099 AND (C+0.01 >= (急拉涨停线)),L*0.97,'牛'),COLORYELLOW;


 M2:=(EMA(C,2)+EMA(C,3))/2,COLORYELLOW,DOT;
 M5:=(EMA(C,5)+EMA(C,6))/2;
 M12:=EMA(C,12);
 BSBL:=M12+2*STD(M12,6),COLORWHITE,DOT;
 M26:=EMA(C,26);
 CSBL:=M26+2*STD(M26,13),COLORMAGENTA,DOT;
 M56:=EMA(C,56);
 DSBL:=M56+2*STD(M56,28),COLORYELLOW,DOT;
 M120:=EMA(C,120);
 ESBL:=M120+2*STD(M120,60),COLORBLUE,DOT;
 EXBL:=M120-2*STD(M120,60),COLORGREEN,DOT;
 M256:=EMA(C,256);
 FSBL:=M256+2*STD(M256,256/2),COLORRED,DOT;
 JD:=INTPART(ABS(ATAN((M2/REF(M2,1)+M5/REF(M5,1)+M12/REF(M12,1)+M26/REF(M26,1)
 +M56/REF(M56,1)+M120/REF(M120,1)+M256/REF(M256,1)-7)/7*100)*180/3.14));
 QZ:=IF(JD<=1,1,JD);
 JDX:EMA(M56,QZ),COLORMAGENTA,LINETHICK2;
 IF(M2<JDX,JDX,NULL),COLORCYAN,LINETHICK2;

{九转序列}
AB1:=C>REF(C,4);
 AB2:=BARSLASTCOUNT(AB1);
 AB3:=REF(AB2,1)=8 AND AB2>REF(AB2,1);
 AB4:=REF(BETWEEN(AB2,5,8),1) AND AB2<REF(AB2,1);
 AB5:=ISLASTBAR AND BETWEEN(AB2,6,8);
 AB6:=(BACKSET(AB3>0,9) OR BACKSET(AB4>0,AB2+1)*0 OR BACKSET(AB5>0,AB2))*AB2;
 DRAWNUMBER1(AB6>0,H+H*0.02,AB6,0),COLORFF00FF{COLOR00FFFF};
 DRAWTEXT(AB2=9,H+H*0.02,' ?'),COLOR00FF00;
 B1:=C<REF(C,4);
 B2:=BARSLASTCOUNT(B1);
 B3:=REF(B2,1)=8 AND B2>REF(B2,1);
 B4:=REF(BETWEEN(B2,5,8),1) AND B2<REF(B2,1);
 B5:=ISLASTBAR AND BETWEEN(B2,6,8);
 B6:=(BACKSET(B3>0,9) OR BACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
 DRAWNUMBER1(B6>0,L-L*0.02,B6,0),COLOR00FF00{COLORFFFFFF};
 DRAWTEXT(B2=9,L-L*0.02,' ?'),COLORFF00FF;


NS:=8;
 AA:=REF(H,NS)=HHV(H,2*NS+1); 
 AA1:=REF(L,NS)=LLV(L,2*NS+1);
 QY:=BACKSET(AA,NS+1); 
 QY1:=BACKSET(AA1,NS+1);
 CC:=FILTER(QY,NS) AND H=HHV(H,NS+1); 
 CC1:=FILTER(QY1,NS) AND L=LLV(L,NS+1);
 DDD:=BARSLAST(CC); 
 DD2:=BARSLAST(CC1);
 GDTS:=IF(CC,CURRBARSCOUNT,0);
 DDTS:=IF(CC1,CURRBARSCOUNT,0);
 DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS); 
 DDTS1:=IF(DD2,REF(DDTS,DD2),DDTS);
 GDCS1:=REFX1(DINGBUTS,10000); 
 DDCS1:=REFX1(DDTS1,10000);
 GDCS13:=REFX1(REF(HIGH,GDCS1-1),10000); 
 DDCS13:=REFX1(REF(L,DDCS1-1),10000);
 DINGBUTS1:=REF(DINGBUTS,DDD+1); 
 DDTS2:=REF(DDTS1,DD2+1);
 GDCS2:=REFX1(DINGBUTS1,10000); 
 DDCS2:=REFX1(DDTS2,10000);
GDCS23:=REFX1(REF(HIGH,DINGBUTS1-1),10000); 
 DDCS23:=REFX1(REF(L,DDTS2-1),10000);
 XG1:=BACKSET(ISLASTBAR,GDCS1);
 XD1:=BACKSET(ISLASTBAR,DDCS1);
 XG2:=BACKSET(ISLASTBAR,DINGBUTS1); 
 XD2:=BACKSET(ISLASTBAR,DDTS2);

STICKLINE(XG2,GDCS23,GDCS23,2,0),COLORWHITE;
 STICKLINE(XG1,GDCS13,GDCS13,2,0),COLORYELLOW;
 STICKLINE(XD2,DDCS23,DDCS23,2,0),COLORGRAY;
 STICKLINE(XD1,DDCS13,DDCS13,2,0),COLORCYAN;

STICKLINE(C/REF(C,1)>=1.096 AND H=C,O,C,1.5,0),COLORRED;


 VAR4:=EMA(CLOSE,24); 
底:EMA(VAR4*80/100,5),COLORGREEN,LINETHICK1;
去除ST:=NOT(NAMELIKE('S') OR NAMELIKE('*')),NODRAW ;
 TJ1:=(REF(底,1)>REF(C,1) AND C>底 AND C>REF(C,1)*1.02 ) ,NODRAW;
 TJ:=FILTER(TJ1,3) ,NODRAW; 
 DRAWICON(TJ1,L*0.98,44);

{抛物线}
抛物线:SAR(4,2,20),COLORRED,LINETHICK1,DOT;


操:=MA(C,5);
神秘线:HHV(操,13),DOT,COLORFFB9CC;

L1:=IF((REF(C,1)-REF(C,2))/REF(C,2)>0.07,1,0);
 L2:=IF(C>REF(C,1),1,0);
 L3:=IF(H>O AND O>C AND C>L,1,0);
 L4:=(REF(VOL,0)-REF(VOL,1))/ REF(VOL,1)*100>30;
 L5:=CAPITAL<20000000;
 L6:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
假阴线:=IF(L1+L2+L3+L4=4,1,0) AND L5 AND L6>REF(L6,1) AND L4 AND FILTER(REF(C,1)<L AND C>=L AND VOL>=REF(VOL,1),1);
DRAWICON(FILTER(L2>=75 AND CROSS(90,L2) AND L3>L4>COST(95)<(COST(99)-COST(1))/20*0.7,25),L*0.97,9);

STICKLINE(假阴线,OPEN,CLOSE,3,0),COLOR8000FF;
 DRAWICON(假阴线,L*0.94,9);

RC1:=REF(C,1);
 CS:=IF(C>=1,10000,100000);
 C涨停10:=1.10*RC1-49/CS;
{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
 C跌停10:=0.90*RC1+51/CS;
 C跌停5 :=0.95*RC1+51/CS;
 ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);

STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORWHITE;

STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLOR00AA00;

大阳线:=C>O AND (C>=C涨停5 OR C>(1.05*O-51/CS) ) OR (C>1000 AND C>RC1*1.024);
 STICKLINE(大阳线,OPEN,CLOSE,1,0),COLOR0000AA;
大阴线:=C<O AND (C<=C跌停5 OR C<(0.95*O+49/CS) ) OR (C>1000 AND C<RC1*0.976);
 STICKLINE(大阴线,OPEN,CLOSE,1,0),COLOR2F4F2F;
 STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORFF00FF;
 STICKLINE(跌停,OPEN,CLOSE,2.5,0),COLORGREEN;
假阴:=C<O AND C>REF(C,1);
 STICKLINE(假阴,O,C,0.5,0),COLORRED;

假阳:=C>O AND C<REF(C,1);
 STICKLINE(假阳,O,C,0.5,0),COLORGREEN;

半分位:=(O+C)/2;
昨半分位:=REF(半分位,1);
 STICKLINE(CURRBARSCOUNT<=1,昨半分位,昨半分位,12,0),COLORYELLOW;


{最佳买点}
A7:=C-REF(C,1);
 A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
 DRAWTEXT(FILTER(买=1,5),LOW-0.05,'�I买'),COLORYELLOW;
 STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;