|
复制这个能通过,只不过主图不咋的,拿走不谢
{==1==2==3===================================================!==!==!==}
Z1:=STRCAT(HYBLOCK,''); Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK); Z4:=STRCAT(Z3,'');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORFFFFFF;
{==1==2==3===================================================!==!==!==}
{换手率主图}
{-----------------------------------------}
换手率:10000*VOL/FINANCE(7),NODRAW;
周换手率:SUM(VOL/CAPITAL*100,5),NODRAW;
月换手率:SUM(VOL/CAPITAL*100,20),NODRAW;
{==1==2==3===================================================!==!==!==}
{裸K}
STICKLINE(C>O,H,L,0,0),COLORYELLOW;
STICKLINE(C>O,C,O,3,1),COLOR0000FF;
STICKLINE(C<O,H,L,0,0),COLORCYAN;
STICKLINE(C<O,C,O,3,1),COLORLICYAN;
{==1==2==3===================================================!==!==!==}
MA9:MA(C,09),COLORYELLOW , LINETHICK0;
{==1==2=======================================================3==4==5==}
{锁喉神器}
AAA:=(3*C+H+L+O)/6;
VAR18*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36,LINETHICK2,COLORRED;
VAR2:=(HHV(VAR1,2)+HHV(VAR1,4)+HHV(VAR1,8))/3;
VAR3:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,8))/3;
VAR4HHV(VAR2,2)+HHV(VAR2,4)+HHV(VAR2,8))/3;
VAR5LLV(VAR3,2)+LLV(VAR3,4)+LLV(VAR3,8))/3,COLORWHITE;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,8))/3;
{DRAWBAND(VAR1,RGB(155,50,50),VAR6,RGB(250,250,0));}
IF((VAR1 <= REF(VAR1,1)),VAR1,DRAWNULL),COLORGREEN,LINETHICK3;
IF((VAR1 >= REF(VAR1,1)),VAR1,DRAWNULL),COLORRED,LINETHICK3;
STICKLINE(VAR4>VAR1,VAR4,VAR1,0,0),COLORBLUE;
DRAWKLINE(H,O,L,C);
DRAWTEXT(REF(VAR5,1)=REF(VAR1,1) AND VAR5<VAR1,L*0.99,'↖买点'),COLORRED;
DRAWTEXT(REF(VAR6,1)=REF(VAR1,1) AND VAR6<VAR1,L*0.98,'↖加仓'),COLORYELLOW;
DRAWTEXT(REF(VAR4,1)=REF(VAR1,1) AND VAR4>VAR1,H,'卖点'),COLORGREEN;
ZT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停};
突破:=CROSS(C,VAR4) AND ZT;
DRAWTEXT(突破,L,'爆点');
STICKLINE(突破,CLOSE,OPEN,3.2,0),COLOR0077FF;
STICKLINE(突破,CLOSE,OPEN,2.5,0),COLOR0099FF;
STICKLINE(突破,CLOSE,OPEN,1.9,0),COLOR00BBFF;
STICKLINE(突破,CLOSE,OPEN,1.2,0),COLOR00DDFF;
STICKLINE(突破,CLOSE,OPEN,0.3,0),COLOR00FFFF;
{==1==2=======================================================3==4==5==}
{倍量主图}
BLZ:=VOL>REF(V,1)*1.8 {AND C>=O,COLORYELLOW,NODRAW};
STICKLINE(BLZ,C,O+(C-O)/2,1.0,0),COLORYELLOW;
STICKLINE(BLZ,O,C+(O-C)/3,0.1,0),COLORRED;
XB:=SUMBARS(BLZ,1);
STICKLINE(XB,REF(C,XB-1),REF(C,XB-1),7,1),NODRAW;
{==1==2=======================================================3==4==5==}
{BS标志}
{--1-2-3-----------------------------!--!--!--}
VAR11:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR22:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
{----------------------------------------}
STICKLINE(VAR1,H,L,0.0,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR1,C,O,1.0,0),COLORGREEN,LINETHICK2;
{----------------------------------------}
STICKLINE(VAR2,H,L,0.0,0),COLORMAGENTA,LINETHICK2;
STICKLINE(VAR2,C,O,1.2,0),COLORMAGENTA,LINETHICK2;
{--1-2-3-----------------------------!--!--!--}
{高低区}
高区:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H,BARSLAST
(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,NODRAW;
STICKLINE(CCI>=200 AND H>=高区,O,C,1,0),COLORBLUE;
{----------------------------------------}
低区:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(O,BARSLAST
(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORGREEN,NODRAW;
STICKLINE(CCI<=100 AND L<=低区,O,O+(C-O)/5,2.0,0),COLORRED;
STICKLINE(CCI<=100 AND L<=低区,O,O+(C-O)/5,0.1,0),COLORYELLOW;
{==1==2==3===================================================!==!==!==}
{起爆}
TT2:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
TT1:=REF(EMA(TT2,3),1);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
AA1:=AMOUNT/VOL;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=VOL<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
F:=100*(C-REF(C,1))/REF(C,1);
P1:=IF(C<REF(O,1) AND F<0,1,0);
P2:=IF(C<REF(O,2) AND F<0,1,0);
TT3:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 ;
TT4:=P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0 ;
STICKLINE(TT3,C,O+(C-O)/2,1.0,0),COLORFF00FF;
STICKLINE(TT3,O,C+(O-C)/3,0.1,0),COLOR00EEFF;
{==1==2==3===================================================!==!==!==}
{*********************************************************************}
{上线买入}
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
X1:=L=LLV(L,5);
X2:=BARSLAST(X1);
A1:=L=LLV(L,10);
A2:=BARSLAST(A1);
ZT1:=(C-REF(C,1))/REF(C,1)*100;
涨副:=ZT>3.3 ;
X35:REF(H,BARSLAST(CURRBARSCOUNT=CONST(X2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(X2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,X35)AND 涨副,L,1);
A310:REF(H,BARSLAST(CURRBARSCOUNT=CONST(A2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(A2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,A310)AND 涨副,L,1);
B1:=L=LLV(L,30);
B2:=BARSLAST(B1);
B330:REF(H,BARSLAST(CURRBARSCOUNT=CONST(B2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(B2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,B330)AND 涨副,L,1);
C1:=L=LLV(L,60);
C2:=BARSLAST(C1);
C360:REF(H,BARSLAST(CURRBARSCOUNT=CONST(C2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(C2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,C360)AND 涨副,L,1);
{*********************************************************************}
{==1==2=======================================================3==4==5==}
{起爆点}
L1A:=LLV(L,10);
起爆点:=(DCLOSE-REF(C,1))/REF(C,1)*100;
XD:=CROSS(起爆点,20) OR CROSS(起爆点,18);
LB:=IF(XD,O,L1A*0.985),COLORYELLOW;
DRAWTEXT(XD,LB,'--------------TNT'),COLORYELLOW;
STICKLINE(XD,LB,LB,40,1),COLORGREEN;
DRAWICON(XD,L*0.999,0);
{==1==2==3===================================================!==!==!==}
{现价线}
C_: CONST(C) , COLORAF7086;
{==1==2==3===================================================!==!==!==}
{3121}
中心线:=(O+C)/2,NODRAW;
STICKLINE((O+C)/2,(O+C)/2,(O+C)/2,1.1,0),COLORWHITE;
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(C+O)/2,(C+O)/2,4,1),COLORYELLOW;{中分线};
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),
(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),1.3,1),COLORYELLOW;{上三一线};
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))/3+MIN(O,C),
(MAX(O,C)-MIN(O,C))/3+MIN(O,C),1.3,1),COLORYELLOW;{下三一线};
{==1==2==3===================================================!==!==!==}; |
|