平时我自己看盘都是一个通达信,一个同花顺,之前有股友说想要我的同花顺显示概念的代码,这次一并分享给大家。
同花顺分时图:
我尽量讲的仔细点,如果还是不会,那一定是你的原因。
打开同花顺分时图,点击黄色的分时均线,出现白色的点点后,鼠标右键就会显示上图,点击修改分时走势-更多设置:
出现下面的框:
源码如下:
先把原来的代码删掉,然后把下面的全部复制过去,测试公式没问题,确定就行。
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;
涨停:=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;
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;
涨停:=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 就知道个股概念以及板块,虽然我认为这是基本功。涨停板变色,突出大阳、大阴线,个股股性好坏,一眼就能看出来。涨停多肯定就是股性好,但是有些股首板涨停后,第二天都是低开或者炸板,这种就是里面的资金有问题,股性差。看一个例子:
前面是三板炸,后面也是三板炸,一碗大面,第三个指示处更是首版都没人封,股性差,有老庄在,容易被爆头,这种板尤其是加速板是一定不能打的。
比如下面这种股,我随便翻的
一看就知道不是活跃的,短线交易过程中,不活跃的股要避免。
因为短线就是要活跃,围绕热点来炒作。涨停板封死,就会有人去研究逻辑,换句话说 涨停板就是操作资金在市场上打的广告。
一支股票的资金成分是比较复杂的,有外资、公募、各种大小基金、游资、私募、大牛散户等等。市场的短线活跃资金肯定是去往阻力最小的方向,用最少的钱,获取大的拉升空间。
大资金砸不死的股,往往都能高看一眼。
二、通达信版本
主图展示:
代码直接加到自己用的主图上就行:
涨停1:=C/REF(C,1)>=1.097 AND C=H;
QFN1:=IF(CODELIKE('300') OR CODELIKE('688') OR CODELIKE('301'),0,1);
涨停2:=C/REF(C,1)>=1.197 AND C=H;
QFN2:=IF(CODELIKE('300') OR CODELIKE('301'),1,0);
STICKLINE(涨停,H,L,3,0),COLORMAGENTA;
跌停1:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
跌停2:=IF((C2-C)*100/C2>=(20-0.01*100/C2),1,0);
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(净资收益率,毛利率),主营利润率));