【通达信免费源码】操盘马力指标 主图 波段 短线 买卖点 操盘控盘

{操盘马力主图★,HLN(1,1000,55),通达信}

BCTC:=BARSCOUNT(C);

LC:=REF(CLOSE,1);

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORAA16FF;

顶UPR:=BBI+3*STD(BBI,13),COLOR004AFF;

底DWN:=BBI-3*STD(BBI,13),COLOR67FF00;

爆发临界:=BBI>REF(BBI,1) AND LLV(顶UPR-底DWN,3)=(顶UPR-底DWN) AND CROSS(C,顶UPR),COLORRED,LINESTICK;

DRAWBAND(BBI,RGB(57,55,00),底DWN,RGB(57,55,00));

DRAWBAND(BBI,RGB(25,45,55),顶UPR,RGB(25,45,55));

PE:MID/FINANCE(33),COLOR1816FF,NODRAW;{年市盈率}

BBI线:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,15)+MA(CLOSE,20))/4,COLORFFAA16;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

{量能平台}

HV:=HHV(V,20)=V OR V/REF(V,1)>=5 ;

FT:=BARSLAST(HV);

量能平台1:IF(HV,C,REF(C,FT)),COLOR18AFAF,POINTDOT;{白点DOTLINE}

{量能平台2}

PTN:=10;

PT1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;

量能平台:IF(CURRBARSCOUNT<=PTN+7,CONST(IF(PT1=0,C,REF(C,PT1))),DRAWNULL),COLOR1FFFFF,LINETHICK1,DOTLINE;{CURRBARSCOUNT<=PTN+15}

DRAWTEXT(ISLASTBAR,量能平台,' 量台'),COLOR18FFFF;

CPX40:=WMA(MID,40);

CPX30:=WMA(MID,30);

CPX20:=WMA(MID,20);

CPX15:=WMA(MID,15);

CPX10:=WMA(MID,10);

CPX5:=WMA(MID,5);

CPX3:=WMA(MID,3);

STZF:=(MAX(CLOSE,OPEN)/MIN(CLOSE,OPEN)-1)*100;

均STZF:=(SUM(STZF,21)-STZF)/20;

DYX:=CLOSE<LC AND (100(LC-CLOSE)/LC>(均STZF2.5));

ZNCPX3:=IFF(DYX,(6CLOSE+2REF(MID,1)+1*REF(MID,2))/9,CPX3);

DYKX:=CLOSE>LC AND (100(CLOSE-LC)/LC>(均STZF2.5));

ZNCPX5:=IFF(DYKX,(6CLOSE+2REF(MID,1)+1*REF(MID,2))/9,CPX5);

CPMXK:=CPX20;

CPMXM:=CPX30;

CPKXM:=ZNCPX3;

CPKXK:=ZNCPX3;

UP:=CPX30>REF(CPX30,1);

DOWN:=CPX30<REF(CPX30,1);

CPXM:=IFF(UP,CPMXK,IFF(DOWN,CPMXM,0));

CPXK:=IFF(UP,CPKXM,IFF(DOWN,CPKXK,0));

D:=CPXK> CPXM;

K:=CPXK<=CPXM;

长:=WMA(MID,30);

中:=WMA(MID,20);

短:=WMA(MID,10);

SXX:=短>REF(短,1) AND 中<REF(中,1) AND 长<REF(长,1);

SMX:=短>REF(短,1) AND 中>REF(中,1) AND 长<REF(长,1);

SML:=短>REF(短,1) AND 中>REF(中,1) AND 长>REF(长,1);

SXL:=短>REF(短,1) AND 中<REF(中,1) AND 长>REF(长,1);

XML:=短<REF(短,1) AND 中>REF(中,1) AND 长>REF(长,1);

XXL:=短<REF(短,1) AND 中<REF(中,1) AND 长>REF(长,1);

XXX:=短<REF(短,1) AND 中<REF(中,1) AND 长<REF(长,1);

均线最大:=MAX(CPX5,MAX(CPX10,MAX(CPX20,MAX(CPX30,CPX40))));

均线最小:=MIN(CPX5,MIN(CPX10,MIN(CPX20,MIN(CPX30,CPX40))));

高缠绕度:=1000*(均线最大/均线最小-1)<27;

低缠绕度:=1000*(均线最大/均线最小-1)>=27;

投机:=10;

试盘:=IFF(SXX,20,0);

加仓:=IFF(SMX AND D,40,IFF(SMX AND K,20,0));

重仓:=IFF(SML AND D AND 低缠绕度,90,IFF(SML AND D AND 高缠绕度,60,IFF(SML AND K,20,0)));

高仓:=IFF(SXL AND D AND 低缠绕度,70,IFF(SXL AND D AND 高缠绕度,40,IFF(SXL AND K,20,0)));

减仓:=IFF(XML AND D,60,IFF(XML AND K,20,0));

轻仓:=IFF(XXL AND D,30,IFF(XXL AND K,20,0));

空仓:=IFF(XXX,0,0);

仓位1:=IFF(SML AND D AND 低缠绕度,90,IFF(SXL AND D AND 低缠绕度,70,IFF((XML AND D) OR (SML AND D AND 高缠绕度),60,IFF((1/2)==10,50,IFF((SMX AND D) OR (SXL AND D AND 高缠绕度),40,IFF(XXL AND D,30,0))))));

仓位2:=IFF(SXX OR (SMX AND K) OR (SML AND K) OR (SXL AND K) OR

(XML AND K) OR (XXL AND K),20,10);

仓位A:=MAX(仓位1,仓位2);

配置仓位:=IFF(((REF(仓位A,1)==90) OR (REF(仓位A,1)==70)) AND (仓位A<=50 AND 仓位A>=30),60,仓位A),NODRAW,COLORWHITE;

修正一天:=COUNT(配置仓位>=70,2)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,2)==1;

修正二天:=COUNT(配置仓位>=70,3)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,3)==2;

修正三天:=COUNT(配置仓位>=70,4)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,4)==3;

修正四天:=COUNT(配置仓位>=70,5)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,5)==4;

修正五天:=COUNT(配置仓位>=70,6)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,6)==5;

修正六天:=COUNT(配置仓位>=70,7)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,7)==6;

修正七天:=COUNT(配置仓位>=70,8)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,8)==7;

修正八天:=COUNT(配置仓位>=70,9)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,9)==8;

修正九天:=COUNT(配置仓位>=70,10)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,10)==9;

修正十天:=COUNT(配置仓位>=70,11)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,11)==10;

修正十一天:=COUNT(配置仓位>=70,12)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,12)==11;

修正十二天:=COUNT(配置仓位>=70,13)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,13)==12;

修正十三天:=COUNT(配置仓位>=70,14)==1 AND COUNT(配置仓位>=30 AND 配置仓位<=60,14)==13;

蓝:=配置仓位<=20;

红:=(配置仓位>=70) OR 修正一天 OR 修正二天 OR 修正三天 OR 修正四天 OR 修正五天 OR 修正六天 OR

修正七天 OR 修正八天 OR 修正九天 OR 修正十天 OR 修正十一天 OR 修正十二天 OR 修正十三天;

黄:=(红==0) AND (蓝==0);

VAR1:=EMA(EMA(CLOSE,9),9);

控盘:=((VAR1-REF(VAR1,1))/REF(VAR1,1)*1000)>0;

仓位马力:IFF(控盘 AND 配置仓位<=50,50,配置仓位),NODRAW,COLOR1658AA;

黄新:=黄 OR (控盘==0 AND 红) OR (控盘 AND 蓝) OR (控盘==0 AND 仓位马力>=60);

蓝新:=蓝 OR (控盘==0 AND 黄);

红新:=红;

修一天:=COUNT(红新,2)==1 AND COUNT(黄新,2)==1;

修二天:=COUNT(红新,3)==1 AND COUNT(黄新,3)==2;

修三天:=COUNT(红新,4)==1 AND COUNT(黄新,4)==3;

修四天:=COUNT(红新,5 )==1 AND COUNT(黄新,5 )==4;

修五天:=COUNT(红新,6 )==1 AND COUNT(黄新,6 )==5;

修六天:=COUNT(红新,7 )==1 AND COUNT(黄新,7 )==6;

修七天:=COUNT(红新,8 )==1 AND COUNT(黄新,8 )==7;

修八天:=COUNT(红新,9 )==1 AND COUNT(黄新,9 )==8;

修九天:=COUNT(红新,10)==1 AND COUNT(黄新,10)==9;

修十天:=COUNT(红新,11)==1 AND COUNT(黄新,11)==10;

修十一天:=COUNT(红新,12)==1 AND COUNT(黄新,12)==11;

红色修正:=修一天 OR 修二天 OR 修三天 OR 修四天 OR 修五天 OR 修六天 OR

修七天 OR 修八天 OR 修九天 OR 修十天 OR 修十一天;

XYELLOW:= (控盘 AND 蓝) OR (控盘 AND 黄) OR (控盘==0 AND 红) OR (控盘==0 AND 仓位马力>=60);

XRED:= (控盘 AND 红) OR 红色修正;

XBLUE:= (控盘==0 AND 蓝) OR (控盘==0 AND 黄);

黄柱:IF((XRED==0) AND XYELLOW,1,DRAWNULL),COLOR0088FF,NODRAW;{ISCOLORYELLOW}

红柱:IF(XRED,1,DRAWNULL),COLOR1816FF,NODRAW;{ISCOLORRED}

蓝柱:IF(XBLUE AND (XYELLOW)==0,1,DRAWNULL),COLORFF8800,NODRAW;{ISCOLORBLUE}

MA5:=MA(CLOSE,5),COLORFFEFDF;

EMA21:EMA(C,21),COLORFF16FF,LINETHICK2;

EMA55:EMA(C,55),COLOR16AA18,LINETHICK2;

EMA89:EMA(C,89),COLOR5856EE,LINETHICK2;

IF(BBI线>REF(BBI线,1),BBI线,DRAWNULL),COLOR18AAFF;

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORAAA818;

DEA:=EMA(DIFF,9),COLORAAFF56,LINETHICK2;

MACD :=2*(DIFF-DEA),COLORAA5678;

牛回头:=CROSS(DEA,DIFF) AND DIFF>0 AND EMA55>REF(EMA55,2) AND MA(VOL,5)<REF(MA(VOL,5),5);

DRAWTEXT(FILTERX(牛回头,BCTC),MIN(EMA55,LOW*0.99),'牛回'),COLOR5816FF;

{箱体顶底}

HLN:=55;

顶线:HHV(MA((HIGH),6),HLN),DOTLINE,COLOR987868;

底线:LLV(MA((LOW),5),HLN),DOTLINE,COLOR688899;

操作:=MA(MID,5);

拉升:HHV(操作,13),DOTLINE,COLORFF18AA;

买卖:LLV(操作,13),DOTLINE,COLORCDFFFF;

STICKLINE((控盘==0 AND 仓位马力>=60),C,O,1.5,0),COLOR0088FF;

STICKLINE(红色修正,C,O,1.5,0),COLOR0000AA;

STICKLINE(控盘 AND 蓝,C,O,1.3,0),COLORFF5816;

STICKLINE(控盘 AND 红,C,O,1.3,0),COLOR0000FF;

STICKLINE(控盘 AND 黄,C,O,1.3,0),COLOR0088FF;

STICKLINE(控盘==0 AND 蓝,C,O,1.5,0),COLORFF8816;

STICKLINE(控盘==0 AND 红,C,O,1.3,0),COLOR0088FF;

STICKLINE(控盘==0 AND 黄,C,O,1.3,0),COLOR00FFFF;

CPM1:=MA(CLOSE,1);

CPM2:=(LOW+HIGH+CLOSE)/3;

CPM3:= MA(CPM2,5);

CPM4:= HHV(CPM3,10);

CPZ:=HHV((CPM1<CPM4),10) OR HHV((CPM1<CPM4),10);

RSI34S:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,35)-LLV(LOW,34)),3);

DRAWTEXT(FILTER(CROSS(RSI34S ,60),20),MIN(L*0.97,EMA55),'▲'),COLORYELLOW;

DRAWTEXT(FILTERX(爆发临界,BCTC),MIN(底DWN,EMA55),'界'),COLOR16FF58;

{量支撑}

MV135:=MA(VOL,135);

TJ1:=VOL=HHV(VOL,10) AND VOL>1.7REF(VOL,1) AND C>=REF(C,1) AND C>=O AND VOL<=MV1353.5;

STICKLINE(FILTER(TJ1,3),OPEN,CLOSE,1,0),COLORF05FF0;

DRAWTEXT(FILTERX(FILTER(TJ1,3),BCTC),MIN(L*0.965,EMA89),'量撑'),COLORAA16AA;

DRAWTEXT(FILTERX(CROSS(MA(CLOSE,10),MA5),BCTC),LOW*0.95,'坑?'),COLOR18FFAA;

BIAS5:=(CLOSE-MA5)/MA5*100;

DRAWTEXT(FILTERX(CROSS(-7.1,BIAS5),BCTC),MIN(LOW*0.97,EMA89),'鼠'),COLOR18FFAA;

{KDJ短抄底,信号出现等待股价放量上穿EMA14或至前低企稳，如果短抄底信号出现后向下调整，3天不回补，止损}

RSV8:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;

操盘K:=SMA(RSV8,2,1);

{V5:=SMA(操盘K,2,1);}

短抄底信号:=操盘K>REF(操盘K,1) AND REF(操盘K,1)<REF(操盘K,2) AND 操盘K<23;

DRAWTEXT(FILTERX(短抄底信号,BCTC),MIN(LOW*0.975,EMA89),'待抄短'),COLOR16DFEF;

{抓主升浪，急涨7-12天卖出，五日内突破创新高就是买入机会}

涨空间L:=(HHV(H,89)-LLV(L,89))*100/LLV(L,89)>35 AND HIGH>REF(HIGH,5) AND HIGH>REF(HHV(H,83),5);

多头排列:=MA(CLOSE,10)>=MA(CLOSE,20) AND MA(CLOSE,20)>REF(MA(CLOSE,20),5){AND CLOSE>MA(CLOSE,10)};

HSL:=VOL/CAPITAL*100;{换手}

低换手30:=LLV(HSL,30)=HSL;

ZF:=(H-L)/REF(C,1)*100;

小振幅:=LLV(ZF,10)=ZF OR ZF<3.5;

主升起爆点:IF(涨空间L AND 多头排列 AND (低换手30 OR 小振幅),EMA21,DRAWNULL),COLORCFFFCF,LINETHICK3;

DRAWTEXT(FILTER(主升起爆点,3),EMA89*0.997,'爆'),COLORCFFFCF;

{强势逃顶卖出}

强势股:=H/REF(L,1)>1.15 OR H/REF(L,2)>1.18;

回调:=L/REF(H,1)<0.97 AND C<REF(C,1);

强势逃顶:=REF(强势股,1) AND 回调;

DRAWTEXT(FILTERX(强势逃顶,BCTC),H*1.039,'调'),COLORAFAF6F;

{}

顶HH:=REF(HHV(H,HLN),0);

底LL:=REF(LLV(L,HLN),0);

F80:=顶HH-(顶HH-底LL)*0.191,COLORFFA816,DOTLINE,NODRAW;

F61:=顶HH-(顶HH-底LL)*0.382,COLORGREEN,DOTLINE,NODRAW;

F中50:=顶HH-(顶HH-底LL)*0.5,COLOR3366AA,DOTLINE,NODRAW;

F38:=顶HH-(顶HH-底LL)*0.618,COLOR18FFFF,DOTLINE,NODRAW;

F19:=顶HH-(顶HH-底LL)*0.809,COLORAA18AA,DOTLINE,NODRAW;

{DRAWTEXT(ISLASTBAR AND 上涨,C,' ↑空间％'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR AND 下跌,C,' ↓空间％'),COLORYELLOW;}

DRAWTEXT(ISLASTBAR,顶HH,' ...最高％'),COLORWHITE;

DRAWTEXT(ISLASTBAR,底LL,' ...最低％'),COLORWHITE;

DRAWTEXT(ISLASTBAR,F19,' ..19.8％'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,F38,' ...38.2％'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,F中50,' ...中50％'),COLOR86789A;

DRAWTEXT(ISLASTBAR,F61,' ...61.8％'),COLOR16FF18;

DRAWTEXT(ISLASTBAR,F80,' ...80.9％'),COLORFFA816;

{主力介入}

VAR013:=IF(MA(CLOSE,13)>REF(MA(CLOSE,13),1),MA(CLOSE,13),DRAWNULL);

主力介入:=(IF(CLOSE>MA(CLOSE,13) AND OPEN<CLOSE,-0.1,0))AND((C-REF(C,1))/(REF(C,1))>0.061)AND (MA(CLOSE,13)=VAR013) AND (MA(CLOSE,1),MA(CLOSE,13)) AND (VOL>REF(HHV(VOL,3),1)*2);

DRAWTEXT(主力介入,MIN(EMA55,L*0.95),'主力'),COLOR18AAFF;