[求助]通达信 修改成文化财经主图 (文华财经WH6赢顺V6.7)

黄金柱:=V/REF(V,1)>=2.0;
 
K2:=SUMBARS(黄金柱,2);
K3:=SUMBARS(黄金柱,3);
K4:=SUMBARS(黄金柱,4);
K5:=SUMBARS(黄金柱,5);
K6:=SUMBARS(黄金柱,6);
K7:=SUMBARS(黄金柱,7);
K8:=SUMBARS(黄金柱,8);
K9:=SUMBARS(黄金柱,9);
K10:=SUMBARS(黄金柱,10);
 

T60:=V=HHV(V,60);
T100:=V=HHV(V,100);
T2:=V/REF(VOL,1)>=3;
T3:=REF(C,1)/REF( O,1)<3;
五星上将:=(T60 AND T2 AND T3) OR (T100 AND T2 AND T3);
DRAWICON(五星上将,H,23);
 

N:=3;
 L0:=0.00;{点位差参数}
L1:=ABS(L-REF(L,1))<=L0;
 L2:=ABS(L-REF(L,2))<=L0;
 L3:=ABS(L-REF(L,3))<=L0;
 L4:=ABS(L-REF(L,4))<=L0;
 L5:=ABS(L-REF(L,5))<=L0;
精准线首次:=L1 OR L2 OR L3 OR L4 OR L5;
精准左:=FILTER(精准线首次,N) ;
天数:=BARSLAST(精准左);
LTS:=REF(L,天数);
精准右:=ABS(L-LTS)<=L0;
 STICKLINE(精准左,L,L,50,-1),COLORMAGENTA;
 G1:=ABS(H-REF(H,1))<=L0;
 G2:=ABS(H-REF(H,2))<=L0;
 G3:=ABS(H-REF(H,3))<=L0;
 G4:=ABS(H-REF(H,4))<=L0;
 G5:=ABS(H-REF(H,5))<=L0;
 G6:=ABS(H-REF(H,6))<=L0;
 G7:=ABS(H-REF(H,7))<=L0;
 G8:=ABS(H-REF(H,8))<=L0;
 精准线1首次:=G1 OR G2 OR G3 OR G4 OR G5 OR G6 OR G7 OR G8;
 精准左1:=FILTER(精准线1首次,N) ;
 天数1:=BARSLAST(精准左1);
 GTS:=REF(L,天数1);
 精准右1:=ABS(H-LTS)<=L0;
 STICKLINE(精准左1,H,H,50,-1),COLOR00FF00;

HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;

三日量缩:=HHV(VOL,3)=1.03 AND VOL=HHV(VOL,35);

 DRAWKLINE(H,O,L,C);
TJ:=VOL>=REF(V,1)*1.95 AND C>REF(C,1)*1.01;
STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORYELLOW;

PHD:=IF(LLV(L,3)>=REF(H,3),REF(H,3),
IF((LLV(L,3)>=REF(C,3) AND REF(C,3)>REF(O,3)),REF(C,3),
IF(LLV(L,3)>=REF(O,3) AND REF(C,3)>REF(O,3),REF(O,3),REF(L,3))));
{画量柱标识:}
{1.画倍量黄金柱标识}
倍量黄金柱:=DRAWICON((LLV(L,3)>REF(L,3) OR LLV(L,3)=REF(L,3)) AND HHV(V,3)<REF(V,3) AND
REF(C,3)>REF(O,3) AND REF(V,3)>=2*REF(V,4),H+0.2,17);
{2.画梯量黄金柱标识}
梯量黄金柱:=DRAWICON(LLV(L,3)>REF(L,3) AND HHV(V,3)<REF(V,3) AND
REF(V,5)>REF(V,6) AND REF(V,4)>REF(V,5) AND REF(V,3)>REF(V,4),H,17);
{3.画平量黄金柱标识}
平量黄金柱:=DRAWICON(LLV(L,3)>REF(L,3) AND HHV(V,3)<REF(V,3) AND
REF(C,3)>REF(O,3) AND ABS(REF(V,3)-REF(V,4))/REF(V,4)<=0.03,H,19);

倍量黄金线:STICKLINE(倍量黄金柱,PHD,PHD,28,0),COLORBLUE,LINETHICK5;
DRAWICON(倍量黄金柱,PHD*1.008,12);
DRAWTEXT(倍量黄金柱,PHD*1.008,''),COLORMAGENTA;

 DRAWKLINE(H,O,L,C);

 DRAWTEXT(TJ,LOW*0.986,' '),COLORRED;
 STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORBLUE;

平量黄金线:STICKLINE(平量黄金柱,PHD*1.002,PHD,28,0),COLORBLUE;
DRAWTEXT(平量黄金柱,PHD*1.015,''),COLORFFCC00 ;
梯量黄金线:STICKLINE(梯量黄金柱,PHD*1.002,PHD,28,0),COLORBLUE;
DRAWTEXT(梯量黄金柱,PHD*1.015,''),COLORCYAN ;

价涨不破:=LLV(L,3)>=REF(L,3);

高量柱:=C/REF(C,1)>=1.03 AND VOL=HHV(VOL,35);

梯量柱:=VOL>REF(VOL,1) AND REF(VOL,1)>REF(VOL,2) AND C/REF(C,1)>=1.03;
高黄金柱:=REF(高量柱,3) AND 价涨不破 AND 三日量缩;
 
梯黄金柱:=REF(梯量柱,3) AND 价涨不破 AND 三日量缩;
STICKLINE(高量柱,OPEN,CLOSE,2,0),COLORGREEN;
 
STICKLINE(梯量柱,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(高黄金柱,LLV(L,3),LLV(L,3),25,1),COLORGREEN;
 
STICKLINE(梯黄金柱,LLV(L,3),LLV(L,3),25,1),COLORGREEN;

{元帅主图}

比系数:=1.3;

金线:=1;

临界点:=0;

MA20:=MA(C,20);

RV1:=REF(V,1);

RV2:=REF(V,2);

RV3:=REF(V,3);

RC2:=REF(C,2);

RC3:=REF(C,3);

RC4:=REF(C,4);

RO1:=REF(O,1);

RO2:=REF(O,2);

RO3:=REF(O,3);

RO4:=REF(O,4);

不破价底:=L>RO3 AND REF(L,1)>RO3 AND REF(L,2)>RO3;

DRAWTEXT(TJ,LOW*0.986,''),COLORGREEN;
STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORGREEN;

{画量柱标识:}

DRAWICON(倍量黄金柱,PHD*1.008,12);
DRAWTEXT(倍量黄金柱,PHD*1.008,''),COLORGREEN;

STICKLINE(黄金柱,O,C,3.3,0),COLORGREEN;
STICKLINE(黄金柱,H,L,0.1,0),COLORGREEN;
DRAWTEXT(黄金柱,H*0.98,''),COLORGREEN;

DRAWTEXT(平量黄金柱,PHD*1.015,''),COLORFFCC00 ;

DRAWTEXT(梯量黄金柱,PHD*1.015,''),COLORCYAN ;

 DRAWKLINE(H,O,L,C);

 DRAWTEXT(TJ,LOW*0.986,''),COLORYELLOW;
 STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORYELLOW;
 

 DRAWKLINE(H,O,L,C);
 DRAWTEXT(TJ,LOW*0.986,''),COLORYELLOW;
 STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORGREEN;
 K1:=SUMBARS(TJ,1);
 STICKLINE(K1,REF(C,K1-1),REF(C,K1-1),10,0),COLORGREEN,LINETHICK2;

出招:=3; 高:=REF(HHV(H,N),出招); 一刀切:REFDATE(高,DATE),COLORCYAN,LINETHICK1;
 

 
 DRAWTEXT(TJ,LOW*0.986,''),COLORYELLOW;
 STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORYELLOW;

 STICKLINE(K1,REF(C,K1-1),REF(C,K1-1),10,0),COLORGREEN;

 
{===============================原来的接力合力黄金柱==============================};
合力黄金柱:=黄金柱 AND COUNT(黄金柱,4)>=2 AND COUNT(黄金柱,20)<=2;

{DRAWTEXT(合力黄金柱,LOW*0.956,'�合力'),COLORYELLOW;}
JLHJZ1:=黄金柱 AND COUNT(合力黄金柱,4)=1 AND COUNT(黄金柱,20)>=3;
JLHJZ2:=黄金柱 AND O>=REF(C,REF(BARSLAST(黄金柱),1)+1) AND O<=REF(C*1.02,REF(BARSLAST(黄金柱),1)+1) AND REF(BARSLAST(黄金柱),1)+1>=4 AND REF(BARSLAST(黄金柱),1)+1<=20;
接力黄金柱:=JLHJZ1 OR JLHJZ2;

STICKLINE(接力黄金柱,OPEN,CLOSE,3,0),COLORYELLOW;
DRAWTEXT(接力黄金柱,LOW*0.97,'�接力'),COLORWHITE;

AD1:=C<O AND C<REF(C,1);
AD2:=C>REF(C,1);
AD3:=COUNT(AD1,3)=3;
AD4:=COUNT(AD3,6)>=1 AND REF(AD3,1);
AD5:=REF(BARSLAST(AD2),1)+1;
ZTLD:=C>REF(O,AD5-1) AND AD4 AND AD2 AND AD5<=7;
ZTB:=(C-REF(C,1))/REF(C,1)*100>=9.4 AND C=H;
DRAWTEXT(ZTLD AND ZTB=0,LOW*0.986,'�力'),COLORWHITE;
DRAWTEXT(ZTLD AND ZTB,LOW*0.986,''),COLORWHITE;

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

倍数:=1.9;
倍量:VOL>=REF(V,1)*倍数 AND (IF(C<O,C>REF(C,1),1)),COLORRED,NODRAW;
精幅:=25;
倍量2:=V>REF(V,1)*1.71 AND C>REF(C,1)*1.03;
WZ1:=BARSLAST(倍量2),NODRAW;
WZ2:=REF(WZ1,WZ1+1)+1+WZ1,NODRAW;
WZ3:=REF(WZ2,WZ2)+WZ2,NODRAW;
 
假阴真阳:=C<O AND C>REF(C,1);
 STICKLINE(假阴真阳,O,C,1,0),COLORMAGENTA;
假阳真阴:=C>O AND C<REF(C,1);
 STICKLINE(假阳真阴,O,C,1,0),COLORGREEN;
 XG:=V>REF(V,1)*1.5 AND O>REF(C,1) AND C<O AND C>REF(C,1);
 DRAWICON(XG,L*0.98,1);

均价:=OPI/VOL/100;

 DT:=假阴真阳;
STICKLINE(DT,H,L,0,0),COLORGREEN;
 STICKLINE(DT,O,C,3.5,0),COLORGREEN;
 STICKLINE(DT,O,C,2,0),COLORGREEN;
 STICKLINE(DT,O,C,1,0),COLORGREEN;
 STICKLINE(DT,O,C,0.1,0),COLORGREEN;

 YX:=REF(O,BARSLAST(假阴真阳));
假阴实顶:YX,COLORYELLOW,NODRAW;
 STICKLINE(V,YX,YX,1,0),COLORYELLOW;

{黄金柱主图}
JJ:=(3*C+H+L+O)/6;
VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(HIGH,3),1,0)));
TP:=TJ2=1;
STICKLINE(CLOSE,REF(LOW,BARSLAST(LJL)),REF(LOW,BARSLAST(LJL)),3,0),COLORBLUE;
TJ3:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(LOW,3),1,0)));
STFZ:=TJ3=1;
CL:=STFZ AND TP;
TJCL:=FILTER(CL,3);
STICKLINE(LJL,OPEN,CLOSE,8,0),COLORRED;
DRAWTEXT(LJL,L*0.99,'黄'),COLORCYAN;
DRAWTEXT(LJL,L*0.95,'金'),COLORCYAN;
DRAWTEXT(LJL,L*0.90,'柱'),COLORCYAN;