N:=26;P:=2;N1:=9;N2:=5;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
卖点雷达:=CROSS(85,RSI1)*30;
DRAWTEXT(CROSS(85,RSI1),h,'顶'),colorgreen;
Varb:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
Varc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
Vard:=BARSCOUNT(CLOSE);
买点雷达:=(Varb< 20 AND Varc< 25 AND Vard> 50 AND AR<70 AND VOL<VOL[1] AND VOL[1]<VOL[2] AND VOL[2]<VOL[3])*30;
DRAWTEXTABS(5,5,'萃富网 www.cuiv.com'),linethick1,COLOR00EEff;
DRAWTEXT(CROSS(RSI1,25),l,'快买'),colorred;
主力:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5;
散户:=EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5;
DRAWTEXT(CROSS(主力,散户) AND 主力<-10,l,'主升'),colorred;
A1:=EMA(CLOSE,7)-EMA(CLOSE,21);
B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);
DRAWTEXT(CROSS(RSI1,20)AND 散户<-20 AND 买点雷达,l,'死了都要买');
正负量比:=1200*(WINNER(C)-WINNER(O));
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;
DD1:=BIGORDER(1,2)-BIGORDER(2,2);
DD2:="DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2);
DD:=IF(TODAY,DD2,DD1);
HS:=vol/capital;
DT:=HS*DD*100;
zl:= 50+Sum(DT,0);
dqs:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50);
mr:=EMA(C,2);
mc:=EMA(SLOPE(C,21)*20+C,42);
m:=2*(mr-mc)*ma(vol,1);
mx:=m>ref(m,1);
DRAWTEXT(zl>=ref(zl,1) and ref(zl,1)>=ref(zl,2) and dqs>ref(dqs,1) and mx and c<llv(h,10)*1.1 and c/o<1.05 and c<35,l,'买入'),COLORyellow;
Dma3:ma(c,3);
ma5:ma(c,5);
ma8:ma(c,8);
ma13:ma(c,13);
ma21:ma(c,21);
ma34:ma(c,34);
win:=ma(winner((c+o+h+l)/4),3);
winlong:=ma(winner((c+o+h+l)/4),10);
jc:=win;
DRAWTEXT(ref(jc,2)>ref(jc,1) and jc>ref(jc,1) and win<winlong and win<0.5,c,'筹 '),colormagenta;
tmd:=c-ref(c,1);
jx:=100*ema(ema(tmd,9),9)/ema(ema(abs(tmd),9),9);
yx:=MA(jx,5);
DRAWicon(jx>ref(jx,1) and (l-cyc(13))/cyc(13)<-0.1,l,1),colorred;
DRAWicon(jx<=ref(jx,1) and (h-cyc(13))/cyc(13)>0.05,l,2),colorgreen;
tm:=v-ref(v,1);
j:=100*ema(ema(tm,n1),n1)/ema(ema(abs(tm),n1),n1);
y:=MA(jx,N2);
DRAWTEXT(v>2*ref(v,1) and c>o,h,'减磅 '),colorgreen;