angelsongjunqin

inputF(10,10,30);
DRAWGBKLAST(v>1,STRIP(RGB(00,0,0),RGB(90,90,90),0));
{筹码集中}
筹码集中度:=cost(10)/(cost(80)-cost(10));
筹码集中度3:ema(筹码集中度,3)*10,LINETHICK2,colorred;{可以将本行改为：筹码集中度1:ema(筹码集中度,1)*10,LINETHICK2,colorred;试试}
筹码集中度13:ema(筹码集中度,13)*10,LINETHICK2;
筹码集中度34:ema(筹码集中度,34)*10,LINETHICK2;
筹码集中度55:ema(筹码集中度,55)*10,LINETHICK2;{
筹码集中度90:ema(筹码集中度,90)*10,LINETHICK2;
筹码集中度250:ema(筹码集中度,250)*10,LINETHICK2,coloryellow;}
{三浪启动突破}
MA60:=MA(CLOSE,60);
MA250:=MA(CLOSE,250);
PL1:=(CLOSE - MA60) / MA60 < 0.1;
PL2:=(CLOSE - MA250) / MA250 < 0.3;
偏离率:=(PL1 = 1 AND PL2 = 1) * 0.2;
突破:=(偏离率 = 0 AND REF(COUNT(偏离率 = 0.2,10) = 10,1) = 1);
DRAWTEXT(cross(突破,1),筹码集中度55*0.8,'〆突破'),COLORMAGENTA,linethick4;
{经典震仓}
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA30:=MA(C,30);
DTPL:=MA5>MA10 AND MA10>MA20 AND MA20>MA30;
DTSJ:=BARSLAST(DTPL AND NOT(REF(DTPL,1)));
ZXDT:=MA10>MA20 AND MA20>MA30 AND MA10>REF(MA10,1) AND MA20>REF(MA20,1) AND MA30>REF(MA30,1);
TDDF:=(L/REF(C,1)-1)*100<=-5 AND (REF(HHV(H,5),1)/L-1)*100>=DDF;
BMBD:=DTSJ<20 AND ZXDT AND COUNT(ZXDT,5)>=3;
DRZC:=COUNT(H/REF(C,1)>=1.08,7) AND C/REF(C,1)<=0.93 AND BMBD;
单日震仓:=IF(DRZC>0,1,0);
DRAWTEXT(cross(单日震仓,1),筹码集中度55*1.1,'♀单日震仓'),COLORgreen;
经典震仓:=(DRZC OR TDDF) AND BMBD AND L=LLV(L,5);
DRAWTEXT(经典震仓,筹码集中度55*1.2,'●经典震仓'),COLORyellow;
{庄见愁}
庄筹估算:=EMA(WINNER(C)*70,5);
散筹估算:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,3);{5}
控庄估算:=散筹估算- 庄筹估算;
启动线:=(HHV(HIGH,26)+LLV(LOW,26))/2;
启动快线:=(HHV(HIGH,9)+LLV(LOW,9))/2;
阻力一:=REF((启动线+启动快线)/2,26);
阻力二:=REF((HHV(HIGH,52)+LLV(LOW,52))/2,26);
打压区:STICKLINE(庄筹估算<散筹估算 and 庄筹估算<控庄估算,-1,1,10,0),colorwhite;
吸筹区:STICKLINE(庄筹估算>=控庄估算 and 庄筹估算<散筹估算 or (控庄估算<=0 and 筹码集中度3>=筹码集中度13) or (控庄估算<=0 and  (c<阻力一 or c<阻力二)) or (控庄估算<=0 and (启动线<阻力一 or 启动线<阻力二)),-1,1,10,0),colorgreen;
拉升区:STICKLINE(控庄估算<=0 and 筹码集中度3<筹码集中度13 and 启动线>=阻力一 and 启动线>=阻力二,-1,1,10,0),color0000FF;

[ 本帖最后由 angelsongjunqin 于 2008-1-10 00:05 编辑 ]