{N:=31}

J5:MA(C,5),COLORRED,LINETHICK1;

Z5:=REF(MA(C,5),1);

IF(J5>=Z5,J5,DRAWNULL),COLORWHITE,LINETHICK1;

IF(J5<Z5,J5,DRAWNULL),COLORGRAY ,LINETHICK1;

J250:MA(C,250),COLORRED,LINETHICK2;

Z250:=REF(MA(C,250),1);

IF(J250>=Z250,J250,DRAWNULL),COLOR0000FF,LINETHICK2;

IF(J250<Z250,J250,DRAWNULL),COLORBLUE,LINETHICK2;

MA1:=MA(CLOSE,7);

MA2:=MA(CLOSE,13);

MA3:=MA(CLOSE,34);

MA4:=MA(CLOSE,50);

VAR3:=LLV(HIGH,240);

VAR4:=100*(CLOSE-VAR3)/VAR3;

VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;

VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;

VAR7:=0;

VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;

VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;

VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);

VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);

VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);

VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);

VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);

VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);

買１:=VAR10;

買２:=(VAR11+VAR13+VAR15+VAR17);

賣１:=(VAR12+VAR14+VAR16+VAR18);

B:=IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;

DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'入',COLORRED;

S:=IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;

DRAWTEXT(賣１>0,HIGH*1.02,'出',COLORGREEN;

VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));

VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));

VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));

BOLL:MA(CLOSE,N),COLORBROWN;

UB:BOLL+2*STD(CLOSE,N),LINETHICK1,COLORYELLOW;

LB:BOLL-2*STD(CLOSE,N),LINETHICK1,COLORMAGENTA;

DRAWICON(CURRBARSCOUNT=N,H*1.03,14);

DRAWICON(CURRBARSCOUNT=250,H*1.03,25);

上升:IF(BOLL>REF(BOLL,1),BOLL,DRAWNULL),LINETHICK3,COLORRED;

下降:IF(BOLL<=REF(BOLL,1),BOLL,DRAWNULL),LINETHICK3,COLORGREEN;

?

?來源:程序化99