专栏名称: 股斗罗
长剑倚天星斗烂,古今过眼成空...
目录
相关文章推荐
花果科技  ·  iPhone 16e 发布,这配置太离谱了! ·  2 天前  
花果科技  ·  iPhone 16e 发布,这配置太离谱了! ·  2 天前  
富阳日报  ·  查分时间,定了! ·  2 天前  
富阳日报  ·  查分时间,定了! ·  2 天前  
晨报平遥  ·  查分时间定了!查询通道先收藏 ·  2 天前  
晨报平遥  ·  查分时间定了!查询通道先收藏 ·  2 天前  
科技美学  ·  Nothing ... ·  3 天前  
科技美学  ·  Nothing ... ·  3 天前  
51好读  ›  专栏  ›  股斗罗

同花顺-通达信主图+分时显示概念+涨停变色

股斗罗  · 公众号  ·  · 2024-04-06 18:26

正文

平时我自己看盘都是一个通达信,一个同花顺,之前有股友说想要我的同花顺显示概念的代码,这次一并分享给大家。

同花顺分时图:

我尽量讲的仔细点,如果还是不会,那一定是你的原因。

打开同花顺分时图,点击黄色的分时均线,出现白色的点点后,鼠标右键就会显示上图,点击修改分时走势-更多设置:

出现下面的框:


源码如下:

先把原来的代码删掉,然后把下面的全部复制过去,测试公式没问题,确定就行。

S1:=BARSLAST(FORMATTIME(1)=1);

竞额:=REF(MONEYFS,S1)/10000;

竞量:=REF(VOL,S1)/100;

DRAWTEXT_FIX(ISLASTBAR,0.65,0.90,0,"竞价金额:"+TOSTRING(竞额,1)+'万'),coloryellow;

DRAWTEXT_FIX(ISLASTBAR,0.65,0.84,0,"竞价手数:"+TOSTRING(竞量,0)+'手'),coloryellow;


上涨家数:=INDEXDATA("1A0002",&RISECOUNT) + INDEXDATA("399002",&RISECOUNT);

下跌家数:=INDEXDATA("1A0002",&FALLCOUNT) + INDEXDATA("399002",&FALLCOUNT);

涨停:=INDEXDATA("1A0002",&RISELIMITCOUNT) + INDEXDATA("399002",&RISELIMITCOUNT);

跌停:=INDEXDATA("1A0002",&FALLLIMITCOUNT) + INDEXDATA("399002",&FALLLIMITCOUNT);

涨:="涨:"+上涨家数+"涨停("+涨停+")";

DRAWTEXT_FIX(ISLASTBAR,0.85,0.65,0,涨),colorred;

跌:="跌:"+下跌家数+"跌停("+跌停+")";

DRAWTEXT_FIX(ISLASTBAR,0.85,0.70,0,跌),colorgreen;


DRAWTEXT_FIX(1,0.85,0.80,0,'流通股:'+TOSTRING(SHGZG/100000000,2)+'亿股'),coloryellow;

DRAWTEXT_FIX(1,0.85,0.85,0,'实际股:'+TOSTRING(ZYLTGB/100000000,2)+'亿股'),colormagenta;


DRAWTEXT_FIX(1,0.85,0.90,0,'流通市值:'+TOSTRING(LTSZ/100000000,2)+"亿"),coloryellow;

自由市值:=TOSTRING(NEW*ZYLTGB/100000000,2);

DRAWTEXT_FIX(ISLASTBAR,0.85,0.95,0,"实际市值:"+TOSTRING(自由市值,0)+'亿'),coloryellow;


DRAWTEXT_FIX(1,0.85,0.20,0,'净利润:'+TOSTRING(JYLX ,0)+''),colorcyan;

DRAWTEXT_FIX(1,0.85,0.24,0,'每股收益:'+TOSTRING(MGSYX,0)+'元'),colorcyan;


换手:=TOSTRING(V/ZYLTGB*100,2);

DRAWTEXT_FIX(ISLASTBAR,0.25,0.90,0,"真实换手:"+TOSTRING(换手,0)+'%'),colorcyan;


成交:=TOSTRING(MONEY/100000000,2,);

DRAWTEXT_FIX(ISLASTBAR,0.39,0.90,0,"实时成交:"+TOSTRING(成交,0)+'亿'),colorlired;


DRAWTEXT_FIX(1,0.65,0.95,0,'地域:'+BLOCK(2,0)),colorred;


DRAWTEXT_FIX(1,0.25,0.65,0,'概念:'+BLOCK(3,5)),colormagenta;

DRAWTEXT_FIX(1,0.25,0.95,0,'行业:'+BLOCK(0,0)+'*/*'+BLOCK(1,0)),colorred;


最新:IF(ISNULL(NEW),PRE,NEW);

IF (ISNULL(RANGE_AVG_PRICE) OR RANGE_AVG_PRICE <= 0)

{

IF (MARKETTYPE == 232 OR MARKETTYPE == 56 OR MARKETTYPE==64 OR MARKETTYPE==128  OR MARKETTYPE == 80 OR MARKETTYPE==88 OR (VOL > 1 AND VOL<100))

{

b=SUBSAMEDAY(&VOL) ;

m=SUM(b*最新,0);

均价:IF(m>0,m/VOL,PRE);

}

ELSE IF(CODETYPE!=0 AND MONEY>0 AND MARKETTYPE != 48)

{

IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)

均价:PRE;

ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])

均价:均价[1];

ELSE

均价:MONEY/VOL;

}

ELSE IF (MARKETTYPE == 176)

{

b=SUBSAMEDAY(&MONEY);

m=SUM(b*最新,0);

IF(m>0)

均价:m/MONEY;

}

}

ELSE

{

均价:RANGE_AVG_PRICE;

}

DRAWGBK(MARKETTYPE==32 AND FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);

RETURN;



hx_star;

hx_star_p;




日线主图:


同样点击随便哪根均线,然后修改均线:


注意参数:




DRAWTEXT_FIX(1,0.06,0.02,0,'行业:'+BLOCK(0,0)+'/'+BLOCK(1,0)),colormagenta;
DRAWTEXT_FIX(1,0.24,0.02,0,'地域:'+BLOCK(2,0)),colorlimagenta;
DRAWTEXT_FIX(1,0.06,0.07,0,'概念:'+BLOCK(3,25)),colorcyan;
DRAWTEXT_FIX(ISLASTBAR,0.33,0.02,0,'实际流通:'+TOSTRING(ZYLTGB*C/100000000,1)+"亿"),coloryellow;
上涨家数:=INDEXDATA("1A0002",&RISECOUNT) + INDEXDATA("399002",&RISECOUNT);
下跌家数:=INDEXDATA("1A0002",&FALLCOUNT) + INDEXDATA("399002",&FALLCOUNT);
DRAWTEXT_FIX(ISLASTBAR,0.46,0.02,0,"上涨:"+TOSTRING(上涨家数,0)),colorred;
DRAWTEXT_FIX(ISLASTBAR,0.52,0.02,0,"下跌:"+TOSTRING(下跌家数,0)),colorgreen;
涨停:=INDEXDATA("1A0002",&RISELIMITCOUNT)+INDEXDATA("399002",&RISELIMITCOUNT);
跌停:=INDEXDATA("1A0002",&FALLLIMITCOUNT)+INDEXDATA("399002",&FALLLIMITCOUNT);
DRAWTEXT_FIX(ISLASTBAR,0.62,0.02,0,"涨停:"+TOSTRING(涨停,0)),colorlired;
DRAWTEXT_FIX(ISLASTBAR,0.68,0.02,0,"跌停:"+TOSTRING(跌停,0)),colorliblue;
DRAWTEXT_FIX(ISLASTBAR,0.75,0.02,0,'昨交:'+TOSTRING(REF(MONEY/100000000,1),2)+"亿"),coloryellow;

C2:=REF(C,1);
涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(涨停,OPEN,CLOSE,10,0),colormagenta;
STICKLINE(涨停,H,L,0,0),colormagenta;
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(跌停,OPEN,CLOSE,10,0),colorgreen;
STICKLINE(跌停,H,L,0,1),colorgreen;

IF (k<=0)
RETURN 0;
MA$1:MA(CLOSE, N1);
IF (k<=1)
RETURN 0;
MA$2:MA(CLOSE, N2);
IF (k<=2)
RETURN 0;
MA$3:MA(CLOSE, N3);
IF (k<=3)
RETURN 0;
MA$4:MA(CLOSE, N4);
IF (k<=4)
RETURN 0;
MA$5:MA(CLOSE, N5);
IF (k<=5)
RETURN 0;
MA$6:MA(CLOSE, N6);
IF (k<=6)
RETURN 0;
MA$7:MA(CLOSE, N7);
IF (k<=7)
RETURN 0;
MA$8:MA(CLOSE, N8);
DRAWTEXT_FIX(1,0.06,0.02,0,'行业:'+BLOCK(0,0)+'/'+BLOCK(1,0)),colormagenta;
DRAWTEXT_FIX(1,0.24,0.02,0,'地域:'+BLOCK(2,0)),colorlimagenta;
DRAWTEXT_FIX(1,0.06,0.07,0,'概念:'+BLOCK(3,25)),colorcyan;
DRAWTEXT_FIX(ISLASTBAR,0.33,0.02,0,'实际流通:'+TOSTRING(ZYLTGB*C/100000000,1)+"亿"),coloryellow;
上涨家数:=INDEXDATA("1A0002",&RISECOUNT) + INDEXDATA("399002",&RISECOUNT);
下跌家数:=INDEXDATA("1A0002",&FALLCOUNT) + INDEXDATA("399002",&FALLCOUNT);
DRAWTEXT_FIX(ISLASTBAR,0.46,0.02,0,"上涨:"+TOSTRING(上涨家数,0)),colorred;
DRAWTEXT_FIX(ISLASTBAR,0.52,0.02,0,"下跌:"+TOSTRING(下跌家数,0)),colorgreen;
涨停:=INDEXDATA("1A0002",&RISELIMITCOUNT)+INDEXDATA("399002",&RISELIMITCOUNT);
跌停:=INDEXDATA("1A0002",&FALLLIMITCOUNT)+INDEXDATA("399002",&FALLLIMITCOUNT);
DRAWTEXT_FIX(ISLASTBAR,0.62,0.02,0,"涨停:"+TOSTRING(涨停,0)),colorlired;
DRAWTEXT_FIX(ISLASTBAR,0.68,0.02,0,"跌停:"+TOSTRING(跌停,0)),colorliblue;
DRAWTEXT_FIX(ISLASTBAR,0.75,0.02,0,'昨交:'+TOSTRING(REF(MONEY/100000000,1),2)+"亿"),coloryellow;

C2:=REF(C,1);
涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(涨停,OPEN,CLOSE,10,0),coloryellow;
STICKLINE(涨停,H,L,0,0),coloryellow;
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(跌停,OPEN,CLOSE,10,0),colorgreen;
STICKLINE(跌停,H,L,0,1),colorgreen;


效果图:


涨幅大于10% 就是紫色K线、跌幅大于10%就是绿色K线



看盘的时候还是方便一些,不用按F10 就知道个股概念以及板块,虽然我认为这是基本功。涨停板变色,突出大阳、大阴线,个股股性好坏,一眼就能看出来。涨停多肯定就是股性好,但是有些股首板涨停后,第二天都是低开或者炸板,这种就是里面的资金有问题,股性差。看一个例子:


前面是三板炸,后面也是三板炸,一碗大面,第三个指示处更是首版都没人封,股性差,有老庄在,容易被爆头,这种板尤其是加速板是一定不能打的。


比如下面这种股,我随便翻的

一看就知道不是活跃的,短线交易过程中,不活跃的股要避免。

因为短线就是要活跃,围绕热点来炒作。涨停板封死,就会有人去研究逻辑,换句话说 涨停板就是操作资金在市场上打的广告。




一支股票的资金成分是比较复杂的,有外资、公募、各种大小基金、游资、私募、大牛散户等等。市场的短线活跃资金肯定是去往阻力最小的方向,用最少的钱,获取大的拉升空间。


大资金砸不死的股,往往都能高看一眼。



二、通达信版本


主图展示:



代码直接加到自己用的主图上就行:


C2:=REF(C,1);
涨停1:=C/REF(C,1)>=1.097 AND C=H;
QFN1:=IF(CODELIKE('300') OR CODELIKE('688') OR CODELIKE('301'),0,1);
ZTG1:=涨停1 AND QFN1;
涨停2:=C/REF(C,1)>=1.197 AND C=H;
QFN2:=IF(CODELIKE('300') OR CODELIKE('301'),1,0);
ZTG2:=涨停2 AND QFN2;
涨停:=ZTG1 OR ZTG2;
STICKLINE(涨停,H,L,3,0),COLORMAGENTA;


跌停1:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
DTG1:=跌停1 AND QFN1;
跌停2:=IF((C2-C)*100/C2>=(20-0.01*100/C2),1,0);
DTG2:=跌停2 AND QFN2;
跌停:=DTG1 OR DTG2;

STICKLINE(跌停,H,L,3,0),COLORBLUE;

{输出概念、行业、地域文本:}
DRAWTEXT_FIX(C>0,0.00,0.004,0,DYBLOCK),COLOR00DDFF,LINETHICK2;
DRAWTEXT_FIX(C>0,0.06,0.004,0,HYBLOCK),COLOR2200FF,LINETHICK2;
DRAWTEXT_FIX(C>0,0.12,0.004,0,GNBLOCK),COLORFFCC00,LINETHICK2;
DRAWTEXT_FIX(1,0.36,0.004,0,FGBLOCK),COLORMAGENTA;

AAA1:=STRCAT('沪深总上涨数:',CON2STR(DYNAINFO(60),0));
AAA2:=STRCAT('沪深总下跌数:',CON2STR(DYNAINFO(61),0));
AAA3:=STRCAT('沪深总成交金额:',CON2STR(DYNAINFO(62)/100000000,0));
DRAWTEXT_FIX(ISLASTBAR,0,0.06,0,AAA1),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,AAA2),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0,0.18,0,AAA3),COLORYELLOW;


{股本市值}
总股本:=STRCAT(STRCAT(' 总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT('      流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT('      全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT('      流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
股本市值:=STRCAT('  ',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值));
DRAWTEXT_FIX(ISLASTBAR,0,1.2,0,股本市值),COLORYELLOW;


{业绩}
市盈率:=STRCAT('市盈率: ',CON2STR(DYNAINFO(39),2));
市净率:=STRCAT('      市净率: ',CON2STR(C/FINANCE(34),2));
每股收益:=STRCAT('     每股收益: ',CON2STR(FINANCE(38),2));
股值:=STRCAT('  ',STRCAT(STRCAT(市盈率,市净率),每股收益));
DRAWTEXT_FIX(ISLASTBAR,0.38,1.2,0,股值),COLORLIBLUE;    {主图显示}

净资收益率:=STRCAT('净资收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2));
毛利率:=STRCAT('    毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
主营利润率:=STRCAT('    主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT(' ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率));






请到「今天看啥」查看全文