直效主图
文章出处: 发布时间:2006-06-22
{n=10,150 CX=1,1,2}
s1:=if(STKTYPE=0 OR STKTYPE=7,0.999,0.98);
s2:=if(STKTYPE=0 OR STKTYPE=7,1.001,1.02);
MA06:MA(C,6),PRECISION2,COLOR00FFFF,LINEDOT;
MA18:MA(C,18),PRECISION2,COLOREEEEEE,LINEDOT;
PARTLINE(MA06>=REF(MA06,1) AND CX=1,MA06),COLOR0000CC,LINETHICK2;
PARTLINE(MA06<REF(MA06,1) AND CX=1,MA06),COLOR009900,LINETHICK2;
PARTLINE(MA18>=REF(MA18,1) AND CX=2,MA18),COLOR0000CC,LINETHICK2;
PARTLINE(MA18<REF(MA18,1) AND CX=2,MA18),COLOR009900,LINETHICK2;
BZA06:=BarsLast(C<MA06);
BZB06:=BarsLast(MA06<REF(MA06,1));
BZA18:=BarsLast(C<MA18);
BZB18:=BarsLast(MA18<REF(MA18,1));
BDA06:=BarsLast(C>MA06);
BDB06:=BarsLast(MA06>REF(MA06,1));
BDA18:=BarsLast(C>MA18);
BDB18:=BarsLast(MA18>REF(MA18,1));
V06:MA(VOL,6),LINETHICK0,PRECISION0,COLOR6666CC;
V36:MA(VOL,36),LINETHICK0,PRECISION0,COLORFFCC00;
VVOL:v,LINETHICK0,PRECISION0,COLORFF00FF;
A1:=REF(C,N)=HHV(C,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); HD:=FILTER(C1,N);
A2:=REF(C,N)=LLV(C,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); LD:=FILTER(C2,N);
A:=REF(C,BARSLAST(HD)); B:=REF(C,BARSLAST(LD));
t1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
t2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
PARTLINE(t1,A),COLORCC6600,LINETHICK2;
PARTLINE(t2,B),COLORDDDDDD,LINETHICK2;
DRAWNUMBER(t1=0 and ref(t1,1)>0 or ISLASTBAR and t1>0,ref(a,1),ref(a,1),2),COLORCC6600;
DRAWNUMBER(t2=0 and ref(t2,1)>0 or ISLASTBAR and t2>0,ref(b,1),ref(b,1),2),COLORDDDDDD;
PARTLINE(t1,A*0.9),COLORCC6600,LINETHICK1;
DRAWNUMBER(t1=0 and ref(t1,1)>0 or ISLASTBAR and t1>0,ref(a*0.9,1),ref(a*0.9,1),2),COLORCC6600;
PARTLINE(t2,B*1.1),COLORDDDDDD,LINETHICK1;
DRAWNUMBER(t2=0 and ref(t2,1)>0 or ISLASTBAR and t2>0,ref(b*1.1,1),ref(b*1.1,1),2),COLORCDDDDDD;
DRAWTEXT(BZA06>=2 AND BZB06=1 AND V06>V36 AND CX=1,MA06*s1,'买入'),COLOR0000CC;
DRAWTEXT(BDA06>=2 AND BDB06=1 AND CX=1,MA06*s2,'卖出'),COLOR009900;
DRAWTEXT(BZA18>=2 AND BZB18=1 AND V06>V36 AND CX=2,MA18*s1,'买入'),COLOR0000CC;
DRAWTEXT(BDA18>=2 AND BDB18=1 AND CX=2,MA18*s2,'卖出'),COLOR009900;
tj:=close>open or close=open and close>ref(close,1);
stickline(tj and C>MA18,high,low,0.1,0),colorred;
stickline(tj and C>MA18,close,open,7,0),colorred;
stickline(not(tj) and C>MA18,high,low,0.1,0),colorcyan;
stickline(not(tj) and C>MA18,close,open,7,0),colorcyan;
stickline(tj and C<MA18,high,low,0.1,0),colorred;
stickline(tj and C<MA18,close,open,7,1),colorred;
stickline(not(tj) and C<MA18,high,low,0.1,0),colorcyan;
stickline(not(tj) and C<MA18,close,open,7,1),colorcyan