你需要用的全在这里(源码略作修改重新上传了所有附件)
指标功能:[B]国产软件[/B]
指标类型:简体中文
所需积分:0
推荐星级:
授权方式:共享版
公式大小:58.0 KB
更新时间:2011-09-04 09:04:00
公式简介:
先把我自己的K线图和分时图放上,大家看图觉得有用可以看下面的指标源码,图上有的下面都有了。
K线界面
分时界面
1.K线主图:这个主图能添加6条均线,并在左上角显示总股本、市盈率、流通A股、每股收益、主营增长、获利盘、每股收益、资产收益、所属板块信息,并能自动提示跳空缺口及缺口价格。随光标移动会有浮标提示股价及需要关注的信息。当股价运行在强势区间时,背景会呈现紫红色。
{K线主图} (N1,N2,N3,N4,N5,N6需自定义你想要的天数)
DRAWGBK((MA(C,5)>EMA(C,25)) AND (MA(C,10)>EMA(C,25)) AND (C>EMA(C,25)),STRIP(RGB(200,100,150),RGB(5,2,5),0));
MA1:MA(C,N1),COLORWHITE;
MA2:MA(C,N2),COLORYELLOW;
MA3:EMA(C,N3),COLORMAGENTA;
MA4:EMA(C,N4),COLORGREEN;
MA5:EMA(C,N5),COLORCYAN;
MA6:EMA(C,N6),COLORRED;
a1:=BIGORDER(1) - BIGORDER(2);
a2:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a3:=((DYNAINFO(104) - DYNAINFO(105)) / VOL) * 100;
a4:=WINNER(CLOSE) * 100;
a5:=DYNAINFO(102) - DYNAINFO(103);
a6:=DYNAINFO(101);
a7:=SUM((((a1 * VOL) / CAPITAL) * 100),5);
a8:=FINANCE2(35);
a9:=FINANCE2(37);
a10:=FINANCE2(3);
a11:=DYNAINFO(39);
a12:=FINANCE2(11);
a13:=FINANCE2(10);
a14:=PFFIN(1609,0);
a15:=FINANCE2(5);
DRAWFLAGTEXT((CLOSE > 0),CLOSE,'…… '+STKNAME+' ('+STKLABEL+')'+' …… 价:'+NUMTOSTRN(CLOSE,3)),colorYellow;
DRAWFLAGTEXT((a4 <= 15),CLOSE,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'+' 关注下方支撑'),colorRed;
DRAWFLAGTEXT(((a4 > 15) AND (a4 < 50)),CLOSE,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'+' 关注上方筹码');
DRAWFLAGTEXT((a4 >= 50),CLOSE,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'+' 关注能否创新高'),colorYellow;
DRAWTEXTABS(20,62,'主营范围:'+F10TEXT((F10FIND('主营范围',1)),10)),colorYellow;
DRAWTEXTABS(20,49,'所属板块:'+BKNAME),color00A1FF;
DRAWTEXTABS(240,10,'净利增长:'+NUMTOSTRN(a13,0)+'%'),color00a1ff;
DRAWTEXTABS(140,10,'市 盈 率:'+NUMTOSTRN(a11,2)),color00a1ff;
DRAWTEXTABS(20,10,'总 股 本:'+NUMTOSTRN((a8 / 10000),2)+'亿股'),color00a1ff;
DRAWTEXTABS(240,23,'主营增长:'+NUMTOSTRN(a12,0)+'%'),color00a1ff;
DRAWTEXTABS(140,23,'每股收益:'+NUMTOSTRN(a10,3)),color00a1ff;
DRAWTEXTABS(20,23,'流通 A股:'+NUMTOSTRN((a9 / 10000),2)+'亿股'),color00a1ff;
DRAWTEXTABS(240,36,'资产收益:'+NUMTOSTRN(a15,0)+'%'),color00a1ff;
DRAWTEXTABS(140,36,'每股净资:'+NUMTOSTRN(FINANCE2(4),2)),color00a1ff;
DRAWTEXTABS(20,36,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'),color00a1ff;
{向下跳空缺口}
I1:=0;
flag1:=0;
while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1)
THEN BEGIN FLAG1:=1;
S1:=I1;
I1:=BARSLAST(DISPSTATUS=1);
END
ELSE I1:=I1+1;
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Colorgray,ALIGN1,LAYER7;
DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(h,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLOR00ffff;
{向上跳空缺口}
I:=0;
flag:=0;
while I<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(L,I)>REF(H,I+1) AND REF(H,I+1)<LLV(LOW,I+1)
THEN BEGIN FLAG:=1;
S:=I;
I:=BARSLAST(DISPSTATUS=1);
END
ELSE I:=I+1;
STICKLINE(FLAG,REF(h,S+1),LLV(LOW,S+1),20*(s+1),500),Colorgray,ALIGN1,LAYER7;
DRAWTEXT(FLAG,REF(H,s+1),NUMTOSTRN(ref(h,s+1),2)+'-'+NUMTOSTRN(LLV(LOW,S+1),2)),ALIGN2,COLOR00ffff;
2.虚拟成交量:能在一天的开始虚拟出全天成交量
{虚拟成交}
sj:=0;
if CURRENTDATE=date then {BARSTATUS=2}
sj:=if(CURRENTTIME>= 93000 and CURRENTTIME<=113000,(TIMETOT0(CURRENTTIME)-34200)/60,
if(CURRENTTIME> 113000 and CURRENTTIME< 130000,120,
if(CURRENTTIME>=130000 and CURRENTTIME<=150000,(TIMETOT0(CURRENTTIME)-46800)/60+120,
if(CURRENTTIME> 150000,240,1))));
VOL,VOLSTICK;
if DATATYPE=8 then
STICKLINE(sj>0,vol,vol*240/sj,7,1),color00c0c0;
MA5:MA(VOL,5),colorwhite;
MA10:MA(VOL,10),coloryellow;
MA20:MA(VOL,20),colormagenta;
3,分时主图:我一直不知道怎么在分时界面自动叠加对应大盘指数,在网上查了好多别人的方法,但是发现那些方法虽然能把指数线画上去,但是相对位置却不正确,比如大盘明明低开低走,叠加的大盘线却在涨幅超过2%的地方,虽然走势形态正确,但是相对个股走势线的位置不对容易产生误判,所以最后把上证和深证分时图分开做了两个不同模版,精确还原指数线并叠加在正确位置。
在使用主图叠加指标前,需要先建立一个名为 MAB 的指标,不要改名,保存即可,因为分时主图要引用这个指标中的数据。
公式建立好后,在分时界面点“存为模版”,分别建立“上证”,“深证”两个模版,看哪个市场的股票就点一下相对模版,这样就能正确精准的叠加对应大盘线,只要在刚创立好时点一次就行,以后你看该市场的股票时便会自动调用对应模版。
该模版在分时左上角显示MA5,MA10,EMA25均线价格和所属行业,右上角显示昨高和昨低的价格,下面分时成交量处显示所属板块、流通盘、同比增长、每股收益、每股市盈信息。
使用非付费行情的同学,因为免费软件不是全推行情,是请求数据,所以你有时会发现分时大盘线会是一条直线,这是你只要按一下键盘上的:“F3”和“F4”键,读出上证指数和深证成指的指数走势,再切换回个股分时,指数线就正常了。
{上证分时}
a1:=DYNAINFO(3);
a2:='sh000001';
昨收:=hhv(STKINDI(a2,'MAB.昨收#day'),0);
开盘:=HHv(STKINDI(a2,'MAB.开盘#day'),0);
收盘:=if(time>093000,STKINDI(a2,'MAB.收盘#min1'),开盘);
叠加指数:=(收盘/昨收-1)*a1+a1;
POLYLINE(C,叠加指数),colorCYAN,linethick1;
POLYLINE(C,C),LINETHICK2,COLORblack;
最新:C,PRECIS2,COLORWHITE,LAYER0;
所属板块:=BKNAME;
每股市盈率:=DYNAINFO(39);
每股收益:=FINANCE2(3);
流通盘大小:=FINANCE2(37)/1000000*100;
同比增长:=FINANCE2(10);
DRAWTEXTREL(0,765,'同比增长:'+NUMTOSTRN(同比增长,2)+'%'),LINETHICK1,ColorCYAN;
DRAWTEXTREL(0,695,'流 通 盘:'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,ColorCYAN;
DRAWTEXTREL(180,695,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),ColorCYAN;
DRAWTEXTREL(180,765,'每股市盈:'+NUMTOSTRN(每股市盈率,1)+'倍'),ColorCYAN;
DRAWTEXTREL(0,625,'所属板块:'+所属板块),COLORCYAN;
MA5:="MAB.MA5#day";
MA10:="MAB.MA10#day";
MA25:="MAB.MA25#day";
MA30:="MAB.MA30#day";
MA60:="MAB.MA60#day";
MA100:="MAB.MA100#day";
MA200:="MAB.MA200#day";
MA300:="MAB.MA300#day";
MA400:="MAB.MA400#day";
MA5P:=(MA5-DYNAINFO(3))/DYNAINFO(3)*100;
MA10P:=(MA10-DYNAINFO(3))/DYNAINFO(3)*100;
MA25P:=(MA25-DYNAINFO(3))/DYNAINFO(3)*100;
MA30P:=(MA30-DYNAINFO(3))/DYNAINFO(3)*100;
MA60P:=(MA60-DYNAINFO(3))/DYNAINFO(3)*100;
DRAWTEXTREL( 0,10,' 5日线: '+NUMTOSTRN(MA5,2)+'元 '+NUMTOSTRN(MA5P,1)+'%'),colorwhite;
DRAWTEXTREL( 0,60 ,'10日线: '+NUMTOSTRN(MA10,2)+'元 '+NUMTOSTRN(MA10P,1)+'%'),COLORyellow;
DRAWTEXTREL( 0,110 ,'25日线: '+NUMTOSTRN(MA25,2)+'元 '+NUMTOSTRN(MA25P,1)+'%'),ColorMAGENTA;
DRAWTEXTREL( 690,10 ,'昨高点: '+NUMTOSTRN(MA30,2)+'元 '+NUMTOSTRN(MA30P,1)+'%'),COLORred;
DRAWTEXTREL( 690,60 ,'昨低点: '+NUMTOSTRN(MA60,2)+'元 '+NUMTOSTRN(MA60P,1)+'%'),Colorgreen;
板块:=IFS(INBLOCK('工程建筑'),'工程建筑',
IFS(INBLOCK('电力'),'电力',
IFS(INBLOCK('计算机'),'计算机',
IFS(INBLOCK('电子信息'),'电子信息',
IFS(INBLOCK('房地产'),'房地产',
IFS(INBLOCK('纺织服装'),'纺织服装',
IFS(INBLOCK('钢铁'),'钢铁',
IFS(INBLOCK('供水供气'),'供水供气',
IFS(INBLOCK('化工化纤'),'化工化纤',
IFS(INBLOCK('电器'),'电器',
IFS(INBLOCK('交通设施'),'交通设施',
IFS(INBLOCK('银行类'),'银行类',
IFS(INBLOCK('旅游酒店'),'旅游酒店',
IFS(INBLOCK('煤炭石油'),'煤炭石油',
IFS(INBLOCK('酿酒食品'),'酿酒食品',
IFS(INBLOCK('农林牧渔'),'农林牧渔',
IFS(INBLOCK('商业连锁'),'商业连锁',
IFS(INBLOCK('建材'),'建材',
IFS(INBLOCK('其他行业'),'其他行业',
IFS(INBLOCK('交通工具'),'交通工具',
IFS(INBLOCK('机械'),'机械',
IFS(INBLOCK('医药'),'医药',
IFS(INBLOCK('外贸'),'外贸',
IFS(INBLOCK('教育传媒'),'教育传媒',
IFS(INBLOCK('仪电仪表'),'仪电仪表',
IFS(INBLOCK('有色金属'),'有色金属',
IFS(INBLOCK('造纸印刷'),'造纸印刷',
IFS(INBLOCK('券商'),'券商',
IFS(INBLOCK('电力设备'),'电力设备',
IFS(INBLOCK('通信'),'通信',
IFS(INBLOCK('运输物流'),'运输物流',
IFS(INBLOCK('海峡西岸'),'海峡西岸',
IFS(INBLOCK('保险'),'保险','')
))))))))))))))))))))))))))))))));
DRAWTEXTABS(0,70,'行业板块: '+板块),color00a1ff;
上证指数:INDEXC,PRECIS0,ColorCYAN,LINETHICK0;
{深证分时}
a1:=DYNAINFO(3);
a2:='SZ399001';
昨收:=hhv(STKINDI(a2,'MAB.昨收#day'),0);
开盘:=HHv(STKINDI(a2,'MAB.开盘#day'),0);
收盘:=if(time>093000,STKINDI(a2,'MAB.收盘#min1'),开盘);
叠加指数:=(收盘/昨收-1)*a1+a1;
POLYLINE(C,叠加指数),colorcyan,linethick1;
POLYLINE(C,C),LINETHICK2,COLORblack;
最新:C,PRECIS2,COLORWHITE,LAYER0;
所属板块:=BKNAME;
每股市盈率:=DYNAINFO(39);
每股收益:=FINANCE2(3);
流通盘大小:=FINANCE2(37)/1000000*100;
同比增长:=FINANCE2(10);
DRAWTEXTREL(0,765,'同比增长:'+NUMTOSTRN(同比增长,2)+'%'),LINETHICK1,colorcyan;
DRAWTEXTREL(0,695,'流 通 盘:'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,colorcyan;
DRAWTEXTREL(180,695,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),colorcyan;
DRAWTEXTREL(180,765,'每股市盈:'+NUMTOSTRN(每股市盈率,1)+'倍'),colorcyan;
DRAWTEXTREL(0,625,'所属板块:'+所属板块),COLORCYAN;
MA5:="MAB.MA5#day";
MA10:="MAB.MA10#day";
MA25:="MAB.MA25#day";
MA30:="MAB.MA30#day";
MA60:="MAB.MA60#day";
MA100:="MAB.MA100#day";
MA200:="MAB.MA200#day";
MA300:="MAB.MA300#day";
MA400:="MAB.MA400#day";
MA5P:=(MA5-DYNAINFO(3))/DYNAINFO(3)*100;
MA10P:=(MA10-DYNAINFO(3))/DYNAINFO(3)*100;
MA25P:=(MA25-DYNAINFO(3))/DYNAINFO(3)*100;
MA30P:=(MA30-DYNAINFO(3))/DYNAINFO(3)*100;
MA60P:=(MA60-DYNAINFO(3))/DYNAINFO(3)*100;
DRAWTEXTREL( 0,10,' 5日线: '+NUMTOSTRN(MA5,2)+'元 '+NUMTOSTRN(MA5P,1)+'%'),colorwhite;
DRAWTEXTREL( 0,60 ,'10日线: '+NUMTOSTRN(MA10,2)+'元 '+NUMTOSTRN(MA10P,1)+'%'),COLORyellow;
DRAWTEXTREL( 0,110 ,'25日线: '+NUMTOSTRN(MA25,2)+'元 '+NUMTOSTRN(MA25P,1)+'%'),ColorMAGENTA;
DRAWTEXTREL( 690,10 ,'昨高点: '+NUMTOSTRN(MA30,2)+'元 '+NUMTOSTRN(MA30P,1)+'%'),COLORred;
DRAWTEXTREL( 690,60 ,'昨低点: '+NUMTOSTRN(MA60,2)+'元 '+NUMTOSTRN(MA60P,1)+'%'),Colorgreen;
板块:=IFS(INBLOCK('工程建筑'),'工程建筑',
IFS(INBLOCK('电力'),'电力',
IFS(INBLOCK('计算机'),'计算机',
IFS(INBLOCK('电子信息'),'电子信息',
IFS(INBLOCK('房地产'),'房地产',
IFS(INBLOCK('纺织服装'),'纺织服装',
IFS(INBLOCK('钢铁'),'钢铁',
IFS(INBLOCK('供水供气'),'供水供气',
IFS(INBLOCK('化工化纤'),'化工化纤',
IFS(INBLOCK('电器'),'电器',
IFS(INBLOCK('交通设施'),'交通设施',
IFS(INBLOCK('银行类'),'银行类',
IFS(INBLOCK('旅游酒店'),'旅游酒店',
IFS(INBLOCK('煤炭石油'),'煤炭石油',
IFS(INBLOCK('酿酒食品'),'酿酒食品',
IFS(INBLOCK('农林牧渔'),'农林牧渔',
IFS(INBLOCK('商业连锁'),'商业连锁',
IFS(INBLOCK('建材'),'建材',
IFS(INBLOCK('其他行业'),'其他行业',
IFS(INBLOCK('交通工具'),'交通工具',
IFS(INBLOCK('机械'),'机械',
IFS(INBLOCK('医药'),'医药',
IFS(INBLOCK('外贸'),'外贸',
IFS(INBLOCK('教育传媒'),'教育传媒',
IFS(INBLOCK('仪电仪表'),'仪电仪表',
IFS(INBLOCK('有色金属'),'有色金属',
IFS(INBLOCK('造纸印刷'),'造纸印刷',
IFS(INBLOCK('券商'),'券商',
IFS(INBLOCK('电力设备'),'电力设备',
IFS(INBLOCK('通信'),'通信',
IFS(INBLOCK('运输物流'),'运输物流',
IFS(INBLOCK('海峡西岸'),'海峡西岸',
IFS(INBLOCK('保险'),'保险','')
))))))))))))))))))))))))))))))));
DRAWTEXTABS(0,70,'行业板块: '+板块),color00a1ff;
深证成指:INDEXC,PRECIS0,colorcyan,LINETHICK0;
{MAB}
MA5:MA(CLOSE,5),PRECIS2;
MA10:MA(CLOSE,10),PRECIS2;
MA25:EMA(CLOSE,25),PRECIS2;
MA30:ref(h,1),PRECIS2;
MA60:ref(l,1),PRECIS2;
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
ATR:=MA(TLAMSENR,13);
VAR1A:=(REF(CLOSE,1)-REF(ATR,1));
MA400:(HHV(VAR1A,12)),PRECIS2;
VAR1:=EMA(AMOUNT/VOL/100,3);
MA100:EMA(VAR1,88),PRECIS2;
MA200:EMA(VAR1,88)*0.85,PRECIS2;
MA300:MA200*0.87,PRECIS2;
收盘:c;
开盘:o;
昨收:DYNAINFO(3);
4.太极量,这是在理想中找的加密指标,直接引用即可。
5.分时副图中那个很好看的渐变色MACD。
{RFMACD}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
STICKLINE((MACD > 0),0,MACD,1,0),COLOR0000CC;
STICKLINE((MACD > 0),0,MACD*0.9,1,0),COLOR0000EE;
STICKLINE((MACD > 0),0,MACD*0.8,1,0),COLOR0011FF;
STICKLINE((MACD > 0),0,MACD*0.7,1,0),COLOR0033FF;
STICKLINE((MACD > 0),0,MACD*0.6,1,0),COLOR0055FF;
STICKLINE((MACD > 0),0,MACD*0.5,1,0),COLOR0077FF;
STICKLINE((MACD > 0),0,MACD*0.4,1,0),COLOR0099FF;
STICKLINE((MACD > 0),0,MACD*0.3,1,0),COLOR00BBFF;
STICKLINE((MACD > 0),0,MACD*0.2,1,0),COLOR00DDFF;
STICKLINE((MACD > 0),0,MACD*0.1,1,0),COLOR00FFFF;
STICKLINE((MACD < 0),0,MACD,1,0),COLORCC0033;
STICKLINE((MACD < 0),0,MACD*0.9,1,0),COLOREE0033;
STICKLINE((MACD < 0),0,MACD*0.8,1,0),COLORFF1133;
STICKLINE((MACD < 0),0,MACD*0.7,1,0),COLORFF3333;
STICKLINE((MACD < 0),0,MACD*0.6,1,0),COLORFF5533;
STICKLINE((MACD < 0),0,MACD*0.5,1,0),COLORFF7733;
STICKLINE((MACD < 0),0,MACD*0.4,1,0),COLORFF9933;
STICKLINE((MACD < 0),0,MACD*0.3,1,0),COLORFFBB33;
STICKLINE((MACD < 0),0,MACD*0.2,1,0),COLORFFDD33;
STICKLINE((MACD < 0),0,MACD*0.1,1,0),COLORFFFF33;
喜欢简单省事的朋友,可以直接下载下面的文件,然后全部引入,这里包括了我文中提到的所有指标,你只要引入并调用就好了,我没有加密,你下载后仍可看到源码。太极量这个指标由于是别人加密的,你需要到本文最下方单独下载引入。
[url=http://www.goodgupiao.com/gupiaogongshi/15355.html][B]你需要用的全在这里(源码略作修改重新上传了所有附件)[/B][/url]