換:VOL/CAPITAL*100,COLORWHITE,NODRAW;
STICKLINE1(換>20,L,H,5,0),COLORBLUE;
DRAWTEXT(換>20,HHV(H,2),'高換'),COLORGREEN;
DRAWKLINE1(H,O,L,C);
今:REFX1(REF(C,5),10000),COLORYELLOW,NODRAW;
明:REFX1(REF(C,4),10000),COLORCYAN,NODRAW;
空:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*3.5+REFX1(MA(REFX1(MA(H,25),25/2),25),25/2),DOT,COLORGREEN;
多:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,DOT,COLOR0099FF;
壓:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*3.5+REFX1(MA(REFX1(MA(H,25),25/2),25),25/2),DOT,COLORFF7700;
撐:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*3.5,DOT,COLORMAGENTA;
上:MA(CLOSE,20)+2*STD(CLOSE,20),COLORCYAN,DOT;
下:MA(CLOSE,20)-2*STD(CLOSE,20),COLORRED,DOT;
MA5:MA(CLOSE,5),COLORWHITE;
MA10:MA(CLOSE,10),COLORYELLOW;
MA20:MA(CLOSE,20),COLORMAGENTA;
MA60:MA(CLOSE,60),COLORCYAN,LINETHICK2;
MA120:MA(CLOSE,120),COLORBLUE,LINETHICK2;
MA240:MA(CLOSE,240),COLORRED,LINETHICK2;
ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);
V5:=MA(V,5);
V10:=MA(VOL,10);
V20:=MA(VOL,20);
LDAY1:=BARSLAST(CROSS(V5,V10));
LDAY2:=BARSLAST(CROSS(V5,V20));
LDAY3:=BARSLAST(CROSS(V10,V20));
LTJ1:=(LDAY1>LDAY2 OR LDAY1=LDAY2) AND LDAY2=0 AND V10<V20;
LTJ2:=(C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2) AND C>REF(C,2));
LTJ:=LTJ1 AND LTJ2;
LTJ0:=LTJ1 AND V10>REF(V10,1);
TJ3:=VOL>REF(VOL,1);
TJ:=REF(O,DAYBARPOS-1)>0
AND HHV(HIGH,10)/LLV(LOW,10)<1.25
AND REF(CLOSE,1)<(LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85)
AND CLOSE>OPEN
AND CLOSE>=HHV(HIGH,10);
DRAWTEXT(TJ,LLV(L,2), '突破'),COLORYELLOW;
STICKLINE1(TJ,H,L,0.5,0),COLORRED;
STICKLINE1(TJ,O,C,8,0),COLORRED;
DRAWTEXT(LTJ0 AND C>=O ,LLV(L,2),'上行'),COLORYELLOW;
DRAWTEXT(LTJ0 AND C<O,HHV(H,2),'下行'),COLORGREEN;
STICKLINE1(LTJ0,O,C,8,0),COLOR1880FF;
STICKLINE1(LTJ0 AND C>=O ,H,L,0.5,0),COLORRED;
STICKLINE1(LTJ0 AND C<O,H,L,0.5,0),COLORCYAN;
DRAWTEXT(LTJ,LLV(L,2),'量托+多方炮'),COLORYELLOW;
STICKLINE1(LTJ,H,L,0.5,0),COLORRED;
STICKLINE1(LTJ,O,C,8,0),COLORRED;
VAR6:=REF(C,1);
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
DRAWTEXT(CROSS(84,VAR7),H,'▲逃莊'),COLORGREEN ;
INDEXC:=嘙$C'
VAR34:=(INDEXC-REF(INDEXC, 1))/REF(INDEXC, 1);
VAR35:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1);
VAR36:=IF(VAR34>0.010, 0.900, 1) AND IF(VAR34>(-0.025), 1, 1.200);
VAR37:=VAR36*(VAR35-VAR34)*100;
VAR38:=SUM(VAR37, 10);
VAR39:=SMA(VAR38, 40, 1);
VAR310:=VAR38>20;
VAR326:=IF(CLOSE AND MA(VOL, 5)/240 AND CLOSE>REF(CLOSE, 1)*1.0 AND CLOSE,88,0);
VAR327:=IF(CLOSE/REF(CLOSE, 1)>1.050 AND VOL/CAPITAL*100<10 AND CLOSE<17 AND HIGH/CLOSE<1.010 AND VAR326>0, 91, 0);
DRAWICON(VAR327>90,LOW*0.96,34);
DRAWTEXT(VAR327>90,LOW*0.97,'殺莊'),COLORYELLOW;
DRAWICON(VAR310>0 AND VAR327=0,HIGH*1.01,35);
JJ:=(CLOSE+HIGH+LOW)/3;
AA:=EMA(JJ,10);
BB:=REF(AA,1);
STICKLINE1(AA>BB,AA,BB,12,0),COLORMAGENTA;
STICKLINE1(AA<BB,AA,BB,12,0),COLORBLUE;
DRAWTEXT(C>REF(C,1)*1.02 AND V/REF(MA(V,5),1)>2,L,'放量'),COLORGREEN;
DRAWTEXT(C>REF(C,1)*1.02 AND V/REF(MA(V,5),1)>2 AND C>=O AND H-C<=O-L,L,'放量'),COLORYELLOW;
DRAWICON(CROSS(MA5,MA(O,5)),L,5);
DRAWICON(CROSS(MA(O,5),MA5),H,6);
DRAWICON(C>REF(C,5) AND COUNT(C>REF(C,5),2)=1,L,1);
DRAWICON(C<REF(C,5) AND COUNT(C<REF(C,5),2)=1,H,2);?

?

?來源:程序化99