引用:
原帖由 zyd123456 于 2008-6-5 17:10 发表 
N1:=6;N2:=12;N3:=26;
MA6:MA(CLOSE,6),COLORWHITE{,LINETHICK2};
MA18:MA(CLOSE,18),COLORBLUE{,LINETHICK2};
a:=(3*c+l+o+h)/6;
X:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+
14* ...
通达信通用版
N1:=6;N2:=12;N3:=26;N:=30{原版默认值n:=14};
MA6:MA(CLOSE,6),COLORWHITE{,LINETHICK2};
MA18:MA(CLOSE,18),COLORBLUE{,LINETHICK2};
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
庄成本:EMA(X,13),COLORRED,LINETHICK2;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
{买卖}
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0),COLORRED;
卖:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0),COLOR00FF00;
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'买'),COLORRED;
{STICKLINE(FILTER(买=1,5),HIGH,LOW,0,1),COLORRED}{,LINETHICK2};
{STICKLINE(FILTER(买=1,5),OPEN,CLOSE,4,1),COLORRED}{,LINETHICK2};
DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,'卖'),COLORBLUE;
{STICKLINE(FILTER(卖=1,1),HIGH,LOW,0,1),COLORBLUE}{,LINETHICK2};
{STICKLINE(FILTER(卖=1,1),OPEN,CLOSE,4,1),COLORBLUE}{,LINETHICK2};
{加仓}
加仓A:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
加仓B:=加仓A;{白K突破压力位要用}
DRAWTEXT(FILTER((CROSS(加仓A,0) OR CROSS(CLOSE,庄成本)) {AND MA18>REF(MA18,1)} AND IF(买
=1,0,1),3),LOW-0.03,'加'),COLORFF00FF;
{STICKLINE(FILTER((CROSS(加仓A,0) OR CROSS(CLOSE,庄成本))} {AND MA18>REF(MA18,1)}{ AND IF(买
=1,0,1),3),HIGH,LOW,0,1),COLORFF00FF}{,LINETHICK2};
{STICKLINE(FILTER((CROSS(加仓A,0) OR CROSS(CLOSE,庄成本))} {AND MA18>REF(MA18,1)}{ AND IF(买
=1,0,1),3),OPEN,CLOSE,4,1),COLORFF00FF}{,LINETHICK2};
加仓:=FILTER((CROSS(加仓A,0) OR CROSS(CLOSE,庄成本)) {AND MA18>REF(MA18,1)} AND IF(买
=1,0,1),3),COLORFF00FF;
{追加}
追:=IF(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),1,0),COLOR006633;
DRAWTEXT(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),LOW*0.96,'追'),COLOR006633;
{STICKLINE(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),HIGH,LOW,0,1),COLOR006633}{,LINETHICK2};
{STICKLINE(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),OPEN,CLOSE,4,1),COLOR006633
}{,LINETHICK2};
{注意}
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1),COLORFFFFFF;
D:=SMA(K,3,1),COLOR00FFFF;
J:=3*K-2*D,COLORFF00FF;
BDGD:=HHV(J,2)=HHV(J,8) AND J>80;
注意:=IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),1,0),COLORYELLOW;
DRAWTEXT(注意 AND IF(卖=1,0,1),HIGH*1.02,'减'),COLORYELLOW;
{STICKLINE(注意 AND IF(卖=1,0,1),HIGH,LOW,0,1),COLORYELLOW}{,LINETHICK2};
{STICKLINE(注意 AND IF(卖=1,0,1),OPEN,CLOSE,4,1),COLORYELLOW}{,LINETHICK2};
{买跌}
KA:=N/2;
DTPL:=MA(C,N)>MA(C,N*1.5) AND MA(C,N*1.5)>MA(C,N*3) AND MA(C,3)>MA(C,N*6);
连续走强:=COUNT(C>MA(C,N),KA)=KA;
ZQSJ:=BARSLAST(连续走强);
下穿:=CROSS(MA(C,N),C);
GL:=MA(C,N/2)/MA(C,N*2)>=1.05;
买跌A:=(下穿 AND ZQSJ<=3 AND DTPL AND GL)*N;
DRAWTEXT(买跌A>0,LOW*0.98 , '买'),COLOR00FF00;
{STICKLINE(买跌A>0,HIGH,LOW,0,1),COLOR00FF00}{,LINETHICK2};
{STICKLINE(买跌A>0,OPEN,CLOSE,4,1),COLOR00FF00}{,LINETHICK2};
买跌:=IF((下穿 AND ZQSJ<=3 AND DTPL AND GL)*N,1,0),COLOR00FF00;
RSV1:=(C-LLV(LOW,13))/(HHV(H,13)-LLV(L,13))*100;
K1:=SMA(RSV1,3,1),COLORFFFFFF;
D1:=SMA(K1,3,1),COLOR00FFFF;
J1:=3*K1-2*D1,COLORFF00FF;
RSV2:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K2:=SMA(RSV2,3,1);
D2:=SMA(K2,3,1);
J2:=3*K2-2*D2;
支撑:=IF(CROSS(J1,J2),L,REF(L,BARSLAST(CROSS(J1,J2)))),COLORRED;
压力:=IF(CROSS(J2,J1),H,REF(H,BARSLAST(CROSS(J2,J1)))),COLOR00FF00;
{DRAWTEXT(支撑=压力 AND IF(REF(支撑,1)=REF(压力,1),0,1),LOW*0.99,'●'),COLOR3300FF;
}DRAWTEXT(支撑=压力 AND IF(REF(支撑,1)=REF(压力,1),0,1),LOW*0.97,'优'),COLOR3300FF;
DRAWTEXT((CROSS(C,压力) AND IF(加仓B=加仓A,0,1)) OR (CROSS(C,压力) AND IF(买=1,0,1)) OR
(C=压力 AND OPEN<CLOSE),LOW*0.98,'突'),COLORWHITE;
{STICKLINE((CROSS(C,压力) AND IF(加仓B=加仓A,0,1)) OR (CROSS(C,压力) AND IF(买=1,0,1)) OR
(C=压力 AND OPEN<CLOSE),HIGH,LOW,0,1),COLORWHITE}{,LINETHICK2};
{STICKLINE((CROSS(C,压力) AND IF(加仓B=加仓A,0,1)) OR (CROSS(C,压力)AND IF(买=1,0,1)) OR
(C=压力 AND OPEN<CLOSE),OPEN,CLOSE,4,1),COLORWHITE}{,LINETHICK2};
突破压力位:=IF((CROSS(C,压力) AND IF(加仓B=加仓A,0,1)) OR (CROSS(C,压力)AND IF(买=1,0,1))
OR (C=压力 AND OPEN<CLOSE),1,0),COLORWHITE;
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A2:=REF(C,BARSLAST(HD));
B2:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪顶:IF(T1,A2,A2),COLOR00FF00,POINTDOT,LINETHICK2;
{STICKLINE(T1,A2,A2,9,0),COLOR00FF00;}
波浪底:IF(T2,B2,B2),COLORFF00FF,POINTDOT,LINETHICK2;
[
本帖最后由 zhzwdc 于 2008-6-5 21:35 编辑 ]
