打印本文
關閉窗口
?
?來源:程序化99
請參考
?
NF:=1;
Z1:=(REF(H,NF)-REF(L,NF))/REF(C,NF+1)*100;
Z2:=(REF(H,NF+1)-REF(L,NF+1))/REF(C,NF+2)*100;
Z3:=(REF(H,NF+2)-REF(L,NF+2))/REF(C,NF+3)*100;
前三日均振:(Z1+Z2+Z3)/3,NODRAW;
P3:EMA(CLOSE,43),COLORGREEN,LINETHICK1;
IF(P3>REF(P3,1), P3,NULL),COLORRED,LINETHICK1;
C2:= O<=REF(L,1)*0.98 AND CLOSE/OPEN>=1.05 AND? REF(SUM((C-REF(C,1))/C*100,3)<-7,1) ;
DRAWICON(C2,LOW*0.97,38);
AP1:=MA(C,1);
BP1:=SMA(SMA(SMA(AP1,2,1),2,1),2,1);
CP1:=MA(BP1,3);
//DRAWBAND(BP1,RGB(255,0,0),CP1,RGB(0,255,0));
FILLRGN(BP1>CP1,BP1,CP1,RGB(255,0,0));
FILLRGN(BP1>CP1,BP1,CP1,RGB(0,255,0));
BDGD:=C=HHV(C,40);
GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),20))+1;
GD:REF(H,GDSJ),COLOR00FF00,POINTDOT,LINETHICK1;
TTP:=CROSS(C,REF(GD,1)),COLOR00FFFF,POINTDOT,LINETHICK1;
STICKLINE1(GDSJ<=6,GD,GD,8,0),COLORFF00FF;
N1:=60;
BDDD:=C=LLV(C,N1);
N2:=20;
DDSJ:=BARSLAST(FILTER(CROSS(0.8,BDDD),N2))+1;
DDD1:REF(L,DDSJ),COLOR00FFFF,POINTDOT,LINETHICK1;
STICKLINE1(DDSJ<=6,DDD1,DDD1,8,0),COLOR00FF00;
XG6:=DDSJ=1;
DRAWICON(XG6,L*0.99,1);
XGT6:=BARSLAST(XG6);
ZSJ:IF(XGT6<=30,REF(L,XGT6),NULL),COLORRED,DOT;
?
DPD:=C=LLV(C,60);
DPD2:=FILTER(CROSS(0.8,DPD),10) AND REF(SUM((C-REF(C,1))/C*100,3)<-10,1) ;
DRAWICON(DPD2,L*0.95,17);
VAR1:=REF(CLOSE,1);
VAR2:=((SMA(MAX((CLOSE - VAR1),0),6,1) / SMA(ABS((CLOSE - VAR1)),6,1)) * 100);
MC:=CROSS(90,VAR2);
DRAWICON(MC,H*1.005,2);
A11:=H>MAX(O,C)*1.03;
?A12:=V=HHV(V,30);
XG11:=A11 AND A12 AND C/REF(C,5)>1.081;
DRAWICON(XG11,H*1.005,2);
A13:=V=HHV(V,40) AND C<O AND C/REF(C,11)>1.1? ;
DRAWICON(A13,H*1.005,12);
DIFF :EMA(CLOSE,12) - EMA(CLOSE,26);
DEA2:=EMA(DIFF,9);
MACDD:=(DIFF-DEA2)*2;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:=SMA(RSV,9,3);
D:=SMA(K,9,3);
J:=3*K-2*D;
AP:=CROSS(DIFF,DEA2) AND CROSS(K,D) AND CROSS(J,D) AND DIFF<0;
A7:=FILTER(AP,20);
DRAWTEXT(A7,L*0.991,'↑金振'),COLOR80FFFF;
SA:=CROSS(DEA2,DIFF) AND CROSS(D,K) AND CROSS(D,J) AND DIFF>0;
A8:=FILTER(SA,20);
DRAWTEXT(A8,H,'↓死振'),COLORWHITE;
B:=C/REF(C,1)>1.095 AND H=O AND L=H;
B1:=NOT(B);
B2:=1;
E2:=DDSJ=1? AND B1;
E3:=DDSJ=2 AND B1;
E4:=E2 OR E3;
E5:=H>MAX(O,C)*1.03 OR L<MIN(O,C)*0.97 ;
E6:=REF(E5,1);
E9:=E5 OR E6;
A1:=REF(SUM((C-REF(C,1))/C*100,3)<-10,1) OR REF(SUM((C-REF(C,1))/C*100,4)<-10,1) OR REF(SUM((C-REF(C,1))/C*100,5)<-15,1);
A3:=REF(SUM((C-REF(C,1))/C*100,3)<-10,1);
A2:=DDSJ=1 AND B1;
DDD2:=REF(C,DDSJ);
A4:=DDD2>REF(DDD2,1);
XGT:=BARSLAST(A2);
AD:=REF(L,REF(XGT,1)+1);
XG7:=BETWEEN(L,AD,AD*1.06)? AND XGT=0 AND REF(XGT,1)<=30 AND E2 ;
XG8:= XG7 AND B2? AND A1? ;
DRAWICON(XG8,L*0.95,23);
J3:=SUM((C-REF(C,1))/C*100,3)<-15 OR SUM((C-REF(C,1))/C*100,4)<-15 OR SUM((C-REF(C,1))/C*100,5)<-20;
J5:= EVERY(CLOSE<OPEN,3) OR EVERY(CLOSE<OPEN,4)? OR EVERY(CLOSE<OPEN,5);
J4:=REF(O,1)<REF(C,2)*0.98 OR O<REF(C,1)*0.98? OR REF(O,2)<REF(C,3)*0.98;
J6:=J3 AND? J5;
J9:=J3 AND J4 AND J5;
J10:=J6 OR J9;
J11:=FILTER(J10,5);
DRAWICON(J11,L*0.97,41);
BAA:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
BAB:=BAA>=9.6 AND CLOSE=HIGH;
STICKLINE1(BAB,CLOSE,OPEN,3,0 ),COLOR000085;
STICKLINE1(BAB,CLOSE,OPEN,2.6,0 ),COLOR0000A5;
STICKLINE1(BAB,CLOSE,OPEN,2.2,0 ),COLOR0005B5;
STICKLINE1(BAB,CLOSE,OPEN,1.8,0 ),COLOR0015D5;
STICKLINE1(BAB,CLOSE,OPEN,1.4,0 ),COLOR0025F5;
STICKLINE1(BAB,CLOSE,OPEN,1,0 ),COLOR0035FF;
STICKLINE1(BAB,CLOSE,OPEN,0.5,0 ),COLOR0045FF;
STICKLINE1(BAB,HIGH,LOW,0,0 ),COLOR0055FF;
?
?
MTM:=C-REF(C,1);
ZLGJ:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
買1:=IF(LLV(ZLGJ,2)=LLV(ZLGJ,7) AND COUNT(ZLGJ<0,2) AND CROSS(ZLGJ,MA(ZLGJ,2)),1,0);
賣1:=IF(HHV(ZLGJ,2)=HHV(ZLGJ,7) AND COUNT(ZLGJ>50,2) AND CROSS(MA(ZLGJ,2),ZLGJ),1,0);
STICKLINE1(FILTER(買1=1,5),C,O,1,0),COLORFF00FF;
STICKLINE1(FILTER(賣1=1,1),C,O,1,0),COLOR00FF00;
CK:=C/REF(C,1)>1.095 AND H=O AND L=H;
CK1:=NOT(CK);
CDDD:=C=LLV(C,20);
DDSJ1:=BARSLAST(FILTER(CROSS(0.8,CDDD),10))+1;
?
DEA? :=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
XG10:= A2 AND MACD>-0.4 AND A3 AND? CK1;
DRAWICON(XG10,L*0.97,5);
H1:=C/REF(C,1)>1.095 AND H=O AND L=H;
H2:=NOT(H1);
H3:=C/REF(C,1)>1.04?? ;
N3:=15;
H4:=COUNT(L=LLV(L,N3),3);
H5:=CROSS(H4 AND C>REF(C,1)*1.095,0.5) ;
H6:=REF(C,1)<REF(C,2)*0.96;
H7:= O<REF(C,1) AND? C>REF(O,1);
H8:=REF(C,1)*1.04;
XG9:= H2 AND H3 AND H4 AND H5? AND H7 AND H6;
STICKLINE1(XG9,O,H8 ,3,0),COLORYELLOW;
?
CD1: IF(BARSLAST(XG9)<=30
AND (REF(H8,BARSLAST(XG9)))=REF(REF(H8,BARSLAST(XG9)),1)
,REF(H8,BARSLAST(XG9)),NULL),DOT,COLORYELLOW,LINETHICK1;
STICKLINE1(XG9,C,O,2,0),COLORYELLOW;
STICKLINE1(XG9,H,L,2,0),COLORYELLOW;
?
ZT:=C/REF(C,1)>1.095;
AA1:=C/REF(C,1)>1.04;
AA2:=REF(C,1)<REF(C,2)*0.96 ;
XG12:=AA1 AND? AA2 AND L>REF(L*0.94,BARSLAST(REF(ZT,1))+1) AND L<REF(C*0.95,BARSLAST(REF(ZT,1))+1)
AND BARSLAST(REF(ZT,1))>=2 AND BARSLAST(REF(ZT,1))<=30;
AA3:=REF(C,1)*1.04;
STICKLINE1(XG12,O,AA3 ,3,0),COLORWHITE;
AMOUNT:=AVPRICE*V;
INDEXC:="999001$C";
CD2: IF(BARSLAST(XG12)<=30
AND (REF(AA3,BARSLAST(XG12)))=REF(REF(AA3,BARSLAST(XG12)),1)
,REF(AA3,BARSLAST(XG12)),NULL),DOT,COLORWHITE,LINETHICK1;
N:=7;
BC:=(H*0.382+L*0.618+O*0.382+C*0.618)/2;
LJ:=IF(INDEXC=C,BC,(BC+AMOUNT/(V*100))/2);
HT:=REF((HHV(LJ,N*0.691)+HHV(LJ,N)+HHV(LJ,N*1.309))/3,1),LINETHICK1,COLORRED;
LT:=REF((LLV(LJ,N*0.691)+LLV(LJ,N)+LLV(LJ,N*1.309))/3,1),LINETHICK1,COLORGREEN;
ZT1:=(HT+LT)/2,LINETHICK1,COLORYELLOW;
STICKLINE1(ISLASTBAR=1? AND LJ<ZT1,HT,LT,N*8,1),COLORGREEN;
STICKLINE1(ISLASTBAR=1? AND LJ=ZT1,HT,LT,N*8,1),COLORRED;
STICKLINE1(ISLASTBAR=1? AND LJ>ZT1,HT,LT,N*8,1),COLORYELLOW;
STICKLINE1(ISLASTBAR=1,ZT1,ZT1,N*8,0),COLORRED;
箱頂:HT,LINETHICK1,COLORRED;
箱底:LT,LINETHICK1,COLORGREEN;
箱中:ZT1,LINETHICK1,COLORYELLOW;
DRAWKLINE1(HIGH,OPEN,LOW,CLOSE);