通达信【斋主自用主图】资金净进出 低吸突破 内外盘比 趋势评分
股市有一句谚语叫：“高量不破，后市必火”这就是高量柱的口诀，如果你还没有形成自己的一套稳定的盈利模式，掌握这一套高量柱战法足矣跑赢大部分散户投资者！
SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,
(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
量能饱和度:SAT,COLORYELLOW,NODRAW;
{STICKLINE(C<0.905*REF(C,1),C,O,2.5,0),COLORYELLOW;}
LCZ:=REF(CLOSE,1);
RSI5:=(SMA(MAX(CLOSE-LCZ,0),3,1))/(SMA(ABS(CLOSE-LCZ),3,1))*100;
WR10:=100*(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3));
活跃度:RSI5-WR10,LINETHICK0,COLORFFFF00,NODRAW;
年内最高价:HHV(H,240),COLORRED,NODRAW;
年内最低价:LLV(L,240),COLORGREEN,NODRAW;
{相对涨幅:(年内最低价)/年内最低价*100,COLORMAGENTA,NODRAW;}
EXP4:=EXPMA(CLOSE,233),LINETHICK9;
CYC∞:DMA(CLOSE,VOL/CAPITAL) ,LINETHICK9,COLORRED;
IF(C>CYC∞,CYC∞,DRAWNULL),LINETHICK9,COLORRED;
IF(C<CYC∞,CYC∞,DRAWNULL),LINETHICK9,COLORBLUE;
SSX1:=IF(DATE<999999999,1,DRAWNULL);
{主趋势线:EMA(EMA(CLOSE,10),10)*SSX1,COLORRED,LINETHICK3;}
主趋势线:EMA(EMA(CLOSE,13),13)*SSX1,COLORRED,LINETHICK3;
SSX2:=IF(DATETODAY(DATE)<999999999,1,DRAWNULL);
SSX3:=主趋势线>REF(主趋势线,1)*SSX1;
IF(SSX3-1,主趋势线,DRAWNULL)*SSX1,COLORGREEN,LINETHICK3;
前开:=REF(O,2),NODRAW;
前高:=REF(H,2),NODRAW;
前低:REF(L,2),NODRAW;
前收:=REF(C,2),NODRAW;
昨开:REF(O,1),NODRAW;
昨高:REF(H,1),NODRAW;
昨低:REF(L,1),NODRAW;
昨收:DYNAINFO(3),NODRAW;
今开:DYNAINFO(4),COLORLICYAN,NODRAW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.01,0,STRCAT('前开: ',CON2STR(前开,2))),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.03,0,STRCAT('前高: ',CON2STR(前高,2))),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.05,0,STRCAT('前低: ',CON2STR(前低,2))),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.07,0,STRCAT('前收: ',CON2STR(前收,2))),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.09,0,STRCAT('昨开: ',CON2STR(昨开,2))),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.111,0,STRCAT('昨高: ',CON2STR(昨高,2))),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.13,0,STRCAT('昨低: ',CON2STR(昨低,2))),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.15,0,STRCAT('昨收: ',CON2STR(昨收,2))),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.17,0,STRCAT('今开: ',CON2STR(今开,2))),COLORRED;
{板块信息}
{DRAWTEXT_FIX(1,0.00,0,0,'行业：')COLORRED;
DRAWTEXT_FIX(1,0.03,0,0,HYBLOCK)COLORRED;}
DRAWTEXT_FIX(1,0.00,0.04,0,'概念：')COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.04,0,GNBLOCK)COLORYELLOW;
DRAWTEXT_FIX(1,0.00,0.08,0,'地区：')COLORMAGENTA;
DRAWTEXT_FIX(1,0.03,0.08,0,DYBLOCK)COLORMAGENTA;
DRAWTEXT_FIX(1,0.00,0.12,0,'风格：')COLORCYAN;
DRAWTEXT_FIX(1,0.03,0.12,0,FGBLOCK)COLORCYAN;
DRAWTEXT_FIX(1,0.00,0.16,0,'指数：')COLORLIRED;
DRAWTEXT_FIX(1,0.03,0.16,0,ZSBLOCK)COLORLIRED;
DRAWTEXT_FIX(1,0.00,0.20,0,'自定：')COLORLIMAGENTA;
DRAWTEXT_FIX(1,0.03,0.20,0,ZDBLOCK)COLORLIMAGENTA;
LTP:=CAPITAL/1000000;
去ST:=NAMELIKE('ST')=0 AND NAMELIKE('*ST')=0 AND NAMELIKE('SST')=0 AND NAMELIKE('S*ST')=0;
去除停牌:=DYNAINFO(4)>0;
去:=去ST AND 去除停牌 AND LTP<15;
庄家筹码1:=(COST(75)-COST(25))/(COST(75)+COST(25))*100;
获利筹码2:=COST(庄家筹码1)*1.28,COLORGREEN;
成本筹码3:=COST(庄家筹码1)*0.98,COLORCYAN;
突破:=CROSS(C,获利筹码2);
龙头基础1:=REF(C/REF(C,1)>1.09 AND C=H,1) AND COUNT(REF(C/REF(C,1)>1.09 AND C=H,1),6)<=2 AND REF(C<40,1) ;
龙头基础2:=DYNAINFO(15)/OPEN/FINANCE(46)*100;
龙头基础3:=龙头基础1 AND 龙头基础2>0.18;
筹码寻龙:=突破 AND REF(C/REF(C,1)>1.09 AND C=H,1) AND 龙头基础3 AND 去;
DRAWTEXT(突破,LOW*0.93,'▲突破'),COLORYELLOW;
STICKLINE(筹码寻龙,O,CLOSE,3,1),COLORLIMAGENTA;
DRAWTEXT(筹码寻龙,LOW*1.02,' **筹码寻龙'),COLORYELLOW;
{兄弟指标}
AAA:=MA(LOW,5)*(1-5/100);
BBB:=(HHV(AAA,5)+LLV(AAA,5))/2;
DRAWTEXT(CROSS(BBB,L) AND BBB>REF(BBB,1),L*0.98,'←斋主回马枪'),COLORWHITE;
X1:=(C+L+H)/3;
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;
EMA8:=EMA(C,8);
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'★∠45升'),COLORWHITE;
{大机构进场}
A0Z:=(3*C+L+O+H)/6;
XZ:=(20*A0Z+19*REF(A0Z,1)+18*REF(A0Z,2)+17*REF(A0Z,3)+16*REF(A0Z,4)+15*REF(A0Z,5)+
14*REF(A0Z,6)+13*REF(A0Z,7)+12*REF(A0Z,8)+11*REF(A0Z,9)+10*REF(A0Z,10)+9*REF(A0Z,11)+8*REF(A0Z,12)
+7*REF(A0Z,13)+6*REF(A0Z,14)+5*REF(A0Z,15)+4*REF(A0Z,16)+3*REF(A0Z,17)+2*REF(A0Z,18)+
REF(A0Z,20))/210;
MTMZ:=C-REF(C,1);
DXZ:=100*EMA(EMA(MTMZ,6),6)/EMA(EMA(ABS(MTMZ),6),6);
CB2Z:=EMA(XZ,13);
卖1:=IF(HHV(DXZ,2)=HHV(DXZ,7) AND COUNT(DXZ>50,2) AND CROSS(MA(DXZ,2),DXZ),1,0);
{DRAWTEXT(FILTER(卖1=1,1),HIGH*1.02,'卖'),COLORWHITE;}
买2:=IF(LLV(DXZ,2)=LLV(DXZ,7) AND COUNT(DXZ<0,2) AND CROSS(DXZ,MA(DXZ,2)),1,0);
DRAWTEXT(FILTER(买2=1,5),LOW*0.97,'★'),COLORRED;
筹码盈利:=STRCAT(STRCAT('筹码盈利:',CON2STR(WINNER(DYNAINFO(7))*100,1)),'%');
DRAWTEXT_FIX(1,0.87,0.13.14,0,筹码盈利),COLORYELLOW;
{STICKLINE(C<0.905*REF(C,1),C,O,2.5,0),COLORYELLOW;}
SA1:=EMA(C,14)COLORWHITE,LINETHICK1;
A1W:=(SA1-REF(SA1,1))/REF(SA1,1)*100,NODRAW;
STICKLINE(CROSS(A1W,0),C,O,2,0)COLORYELLOW;
STICKLINE(CROSS(0,A1W),C,O,2,0)COLORGREEN;
STICKLINE(CROSS(A1W,0)OR CROSS(0,A1W),REF(EMA(C,14),1),REF(EMA(C,14),1)*0.998,5,0)COLORWHITE;
STICKLINE(ISLASTBAR,REF(EMA(C,12),1),REF(EMA(C,12),1)*0.998,19,0)COLORWHITE;
DRAWTEXT(ISLASTBAR,REF(EMA(C,13),1)*0.991, '向上突破白色线进入，向下破位白色线必出'),COLORWHITE;
{DRAWKLINE(H,O,L,C);}
TJZ:=VOL>=REF(V,1)*2.8 AND C>REF(C,1)*1.01;
DRAWTEXT(TJZ,LOW*0.986,'↖高量柱'),COLORYELLOW;
STICKLINE(TJZ,OPEN,CLOSE,1.5,0),COLORYELLOW;
K1:=SUMBARS(TJZ,1);
STICKLINE(K1,REF(C,K1-1)*0.9995,REF(C,K1-1),31,0),COLORMAGENTA;
STICKLINE(K1,REF(O,K1-1)*0.9995,REF(O,K1-1),31,0),COLORMAGENTA;
TJ1:=VOL>=REF(V,1)*3;
DRAWTEXT(TJ1,LOW*0.986,'↖高量柱'),COLORYELLOW;
STICKLINE(TJ1,OPEN,CLOSE,1.5,0),COLORYELLOW;
K2:=SUMBARS(TJ1,1);
STICKLINE(K2,REF(C,K2-1)*0.9995,REF(C,K2-1),14,0),COLORYELLOW;
STICKLINE(K1,REF(O,K2-1)*0.9995,REF(O,K2-1),14,0),COLORYELLOW;
实体上三分之一:=(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),COLORGREEN,NODRAW;
实体下三分之一:=(MAX(O,C)-MIN(O,C))/3+MIN(O,C),NODRAW;
实体二分之一:=(O+C)/2,NODRAW;
整体上三分之一:=(MAX(H,L)-MIN(H,L))*2/3+MIN(H,L),NODRAW;
整体下三分之一:=(MAX(H,L)-MIN(H,L))/3+MIN(H,L),COLORYELLOW,NODRAW;
整体二分之一:=(H+L)/2,COLORLIMAGENTA,NODRAW;
STICKLINE(ISLASTBAR,整体上三分之一,整体上三分之一,14,0),COLORWHITE;
STICKLINE(ISLASTBAR,实体下三分之一,实体下三分之一,13,0),COLORRED;
STICKLINE(ISLASTBAR,整体二分之一,整体二分之一,31,0),COLORCYAN;
半分位:=(O+C)/2;
{半分位:=(H+L)/2;}
昨半分位:=REF(半分位,1);
{STICKLINE(ISLASTBAR,昨半分位,昨半分位,14,0)COLORWHITE;}
H分:=(H+L)/2;
昨H分:=REF(H分,1);
STICKLINE(ISLASTBAR,昨H分,昨H分,14,0)COLORYELLOW;
均价Z:=(OPEN+LOW+HIGH+CLOSE)/4,NODRAW;
昨均:=REF(均价Z,1),NODRAW;
{STICKLINE(ISLASTBAR,REF(均价Z,1),REF(均价Z,1),31,0)COLORYELLOW,LINETHICK3;
{DRAWTEXT(ISLASTBAR,昨均,'☆------昨半分位线'),COLORWHITE;}
DRAWTEXT(ISLASTBAR,整体上三分之一,'☆---------整体上三分之一线'),COLORWHITE;
DRAWTEXT(ISLASTBAR,整体下三分之一,'☆---------整体下三分之一线'),COLORWHITE;
DRAWTEXT(ISLASTBAR,整体二分之一,'☆-----------整体二分之一线'),COLORCYAN;
STICKLINE(ISLASTBAR,REF(整体上三分之一,1),REF(整体上三分之一,1),19,0)COLORYELLOW,LINETHICK3;
STICKLINE(ISLASTBAR,REF(整体下三分之一,1),REF(整体下三分之一,1),19,0)COLORYELLOW,LINETHICK3;
{半分位:=(O+C)/2;
{半分位:=(H+L)/2;
昨半分位:=REF(半分位,1);
STICKLINE(ISLASTBAR,昨半分位,昨半分位,14,0)COLORWHITE;
{H分:=(H+L)/2;
昨H分:=REF(H分,1);}
STICKLINE(ISLASTBAR,昨H分*0.9995,昨H分,31,0),COLORRED;
DRAWTEXT(ISLASTBAR,昨均*1.002,'-------☆昨半分位线'),COLORRED;
AAZ:=(EMA(C,5) * 7 + EMA(C,10) * 3) / 10,LINETHICK2,COLORWHITE;
捉大妖:=FILTER(CROSS(AAZ,MA(H,30) * (1 + 13 / 100)),5);
STICKLINE(捉大妖,O,C,3.5,1),COLORYELLOW;
STICKLINE(捉大妖,O,C,3,0),COLORLIMAGENTA;
STICKLINE(捉大妖,O,C*0.96,2.5,0),COLORMAGENTA;
STICKLINE(捉大妖,O,C*0.96,2,0 ),COLORCYAN;
STICKLINE(捉大妖,O,C*0.94,1.5,0 ),COLOR004444;
STICKLINE(捉大妖,O,C*0.94,1 ,0 ),COLORYELLOW;
DRAWTEXT(捉大妖,L*0.98,'↖★耍妖气'),COLORWHITE;
AAVZ:=VOL/((H-L)*2-ABS(C-O));
KKPU1:=IF(C>OPEN,AAVZ*(HIGH-LOW),IF(C<OPEN,AAVZ*((HIGH-OPEN)+(C-LOW)),VOL/2)),NODRAW;
KKPU2:=IF(C>OPEN,0-AAVZ*((HIGH-C)+(OPEN-LOW)),IF(C<OPEN,0-AAVZ*(HIGH-LOW),0-VOL/2)),NODRAW;
净流入:=(KKPU1+KKPU2)/99,NODRAW;
KKPU3:=(C/REF(C,1)-1)*100;
DRAWTEXT(净流入>=300 AND KKPU3>=4,L*0.995,VARCAT(VARCAT('净买:',VAR2STR(净流入,0)),'万')),COLORMAGENTA;
DRAWICON(净流入>=300 AND KKPU3>=4,L,1);
DRAWICON(净流入<-300 AND KKPU3<=-3,H,2);
DRAWTEXT(净流入<-300 AND KKPU3<=-3,H*1.01,VARCAT(VARCAT('流出:',VAR2STR(净流入,0)),'万')),COLORGREEN;
AP:=AMOUNT/10000;
占比Z:=净流入/AP*100,NODRAW;
DRAWTEXT(净流入>=200 AND KKPU3>=3 AND 占比Z>=15 ,L*0.965,VARCAT(VARCAT('占比Z:',VAR2STR(占比Z,0)),'%')),COLORMAGENTA;
{DRAWTEXT_FIX(1,0.92,0.85,0,' '),COLORWHITE;
{DRAWTEXT_FIX(1,0.94,0.9,0,''),COLORWHITE;
DRAWTEXT_FIX(1,0.92,0.95,0,''),COLORBLUE;};
DF:=BETWEEN(CLOSE/REF(CLOSE,1),1.0983,1.110);
ZA:=(O+H)/2;
涨停中位线:DRAWLINE(DF,ZA,REF(DF,1),REF(ZA,1),1),COLORMAGENTA, LINETHICK3;
DRAWTEXT(ISLASTBAR,涨停中位线,'...☆涨停中位线'),COLORYELLOW ;
{内外盘比}
DRAWRECTREL(IF(CODELIKE('999999') OR CODELIKE('399001'),0,760),IF(CODELIKE('999999') OR CODELIKE('399001'),0,12),IF(CODELIKE('999999') OR CODELIKE('399001'),0,890),IF(CODELIKE('999999') OR CODELIKE('399001'),0,70),RGB(255,0,0));
DRAWRECTREL(IF(CODELIKE('999999') OR CODELIKE('399001'),0,760),IF(CODELIKE('999999') OR CODELIKE('399001'),0,12),IF(CODELIKE('999999') OR CODELIKE('399001'),0,890),IF(CODELIKE('999999') OR CODELIKE('399001'),0,70),IF(CONST(DYNAINFO(51))>=1,RGB(0,255,0),RGB(255,0,0)));
NNN1:=CON2STR(CONST(DYNAINFO(51)),2);
NNN2:=STRCAT('【 内外盘比：',NNN1);
NNN3:=STRCAT(NNN2,' 】');
DRAWTEXT_FIX(IF(CODELIKE('999999') OR CODELIKE('399001'),DRAWNULL,1),0.78,0.035,0,NNN3),COLORYELLOW;
DRAWTEXT_FIX(IF(CODELIKE('999999') OR CODELIKE('399001'),DRAWNULL,CONST(DYNAINFO(51))>=1),0.78,0.015,0,NNN3),COLORBLACK;
成交额:=IF(DYNAINFO(10)>99999999,STRCAT(CON2STR(DYNAINFO(10)/100000000,2),'亿 (成交额)'),STRCAT(CON2STR(DYNAINFO(10)/10000,0),'万 (成交额)'));
DRAWTEXT_FIX(1,0.87,0.072,0,成交额),COLORYELLOW;
{板块排名}
TAX:=HORCALC(HYBLOCK,105,1,DRAWNULL);
TAA:=STRCAT(HYBLOCK,' 排名 ：');
DRAWTEXT_FIX(ISLASTBAR,0.87,0.096,0,STRCAT(TAA,CON2STR(TAX,0)));
现价:PLOYLINE(1,CONST(C)),COLORWHITE, LINETHICK3;
NW:=20;
TS:=BARSLAST(CURRBARSCOUNT=11);
IF(TS>=0,CONST(REF(C,NW)),DRAWNULL),COLORCYAN,LINETHICK5;
DRAWNUMBER(ISLASTBAR,CONST(REF(C,NW)),NW),COLORRED;
X1Q:=IF(MA(C,5)>MA(C,10),20,0);
X2:=IF(MA(C,20)>MA(C,60),10,0);
X3:=IF(KDJ.J>KDJ.K,10,0);
X4:=IF(MACD.DIF>MACD.DEA,10,0);
X5:=IF(MACD.MACD>0,10,0);
X6:=IF(V>MA(V,60),10,0);
X7:=IF(WINNER(C)>0.5,10,0);
X8:=IF(C/REF(C,1)>1.03,10,0);
趋势评分:X1Q+X2+X3+X4+X5+X6+X7+X8,NODRAW,COLORYELLOW;
DRAWTEXT_FIX(V>O,0.8,0.08,0,STRCAT('趋势评分： ',STRCAT(CON2STR(趋势评分,2),' '))),COLORYELLOW;
MA5:=MA(C,5);
MA10:=MA(C,10);
MA30:=MA(C,30);
FA:=BARSLAST(CROSS(MA10,MA5)) AND CROSS(MA5,MA10);
FB:=FA AND MA5>MA30 AND MA10>MA30 AND MA10>REF(MA10,1);
DRAWTEXT(FB,L-0.58,'持股'),COLORRED;
V1:=EMA(CLOSE,5);
V2:=EMA(EMA(CLOSE,90)*1.01,10);
DRAWTEXT(CROSS(V1,V2),V1+0.05,'直到涨'),COLORGREEN;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWTEXT((AB = 1),(LOW * 0.99),'低吸'),COLORMAGENTA;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
慢建仓:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0,COLOR0099FF;
DRAWTEXT(慢建仓,L*0.99,'慢建仓'),COLOR0099FF;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'★介必升 '),COLOR00FFFF;
DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.99000001),'★莫观望'),COLOR00FFFF;
A1AA:=9;
A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);
DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.05),'手勿痒'),COLORFFFFFF;
VAR6:=REF(C,1);
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
DRAWTEXT(CROSS(82,VAR7),H*1.01,'高抛'),COLORBLUE;
{TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1);
B1:=FILTER(A1,10);
C1Z:=BACKSET(B1,10+1);
HD:=FILTER(C1Z,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
B2:=FILTER(A2,10);
C2:=BACKSET(B2,10+1);
LD:=FILTER(C2,10);
前期高位:REF(C,BARSLAST(HD)),COLOR00FF00,POINTDOT;
前期低位:REF(C,BARSLAST(LD)),COLOR00FF00,POINTDOT;
STICKLINE(C,前期高位,前期高位,8,0),COLORFF00FF;
STICKLINE(C,前期低位,前期低位,8,0),COLOR00FF00;};
