logo
搜索
我的图书馆

发文章

发文工具

其他工具

留言交流
搜索
分享

炒股赚钱的精明：上海深圳35个行业30大概念【指数分析 短线买卖】 提供两套公式源码共享：

 李庆军 2010-05-15

（1）简单型公式源码，适用于机器配置低，网速较慢的朋友分析。但不影响个股对应上海深圳两地大盘指数的分析。
（2）完整型公式源码，适用于机器配置高，网速快的朋友分析使用。个股能够完整的对应35个行业30大概念指数的分析。

一，简单型【指数分析 短线买卖】公式源码如下：

{行业概念指数分析}

K:=(DATE < 1341230);
XD1:=INDEXO;
XD2:=INDEXH;
XD3:=INDEXL;
XD4:=INDEXC;
对应指数开盘:INDEXO,LINETHICK0,Color0000FF;
盘中最高:INDEXH,LINETHICK0 ;
盘中最低:INDEXL,LINETHICK0 ;
收盘点位:INDEXC,LINETHICK0 ;
大盘资金增减:(100 * ((INDEXV / REF(INDEXV,1)) - 1)),LINETHICK0,ColorFFFF00;
JJ:=(((XD4 + XD2) + XD3) / 3);
A:=EMA(JJ,10);
B:=REF(A,1);
买卖决策点位:B,LINETHICK0,ColorFFFFFD;
{短线MACD}
VAR1:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR2:=EMA(VAR1,50);
VAR3:=2*(VAR1-VAR2);
STICKLINE(VAR3<ref(VAR3,1) and VAR3>0,0,VAR3,4,1),COLORYELLOW;
STICKLINE(VAR3>=ref(VAR3,1)and VAR3>0,0,VAR3,4,1),COLORRED;
STICKLINE(VAR3>ref(VAR3,1)and VAR3<0,0,VAR3,4,1),COLORFFC8FF;
STICKLINE(VAR3<=ref(VAR3,1)and VAR3<0,0,VAR3,4,1),COLORFFCC66;
短趋势:EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE;
长趋势:EMA(VAR1,50),COLORYELLOW;
{简单基本面信息}
流通盘大小:=FINANCE2(37)/1000000*100;
销售毛利率:=FINANCE2(12);
净利润同比增长:=FINANCE2(10);
DRAWTEXTABS(10,100,'流通盘大小：'+流通盘大小+'亿 '),LINETHICK1,colorwhite;  
DRAWTEXTABS(150,100,'销售毛利率：'+销售毛利率+'% '),LINETHICK1,colorwhite;
DRAWTEXTABS(280,100,'净利润同比增长：'+净利润同比增长+'% '),LINETHICK1,colorwhite;
当日换手率:=sum(100*v/capital,1);
DRAWTEXTABS(440,100,'当日换手率： '+NUMTOSTRN(当日换手率,2)+'%'),colorwhite,LINETHICK1;
五日换手率:=sum(100*v/capital,5);
DRAWTEXTABS(560,100,'五日换手率： '+NUMTOSTRN(五日换手率,2)+'%'),colorwhite,LINETHICK1;
DRAWTEXTABS(10,120,'所属板块：'+BKNAME),COLORffffff;
吸筹:=barslast(FILTER(CROSS("KD.K","KD.D") and "KD.D"<30,13));
主力吸筹区:=if(吸筹>0 and 吸筹<61,吸筹,0);
DRAWTEXTREL(10,15,STKLABEL+' '+STKNAME),LINETHICK2,Color00FF05;
DRAWTEXTREL(120,20,'主力建仓天数：'+NUMTOSTRN(主力吸筹区,0)+'天'),Color00FF05,LINETHICK2;

二，完整型【指数分析 短线买卖】公式源码如下：

{行业概念指数分析}

K:=(DATE < 1341231);
XD1:=INDEXO;
XD2:=INDEXH;
XD3:=INDEXL;
XD4:=INDEXC;
对应指数开盘:INDEXO,LINETHICK0,Color0000FF;
盘中最高:INDEXH,LINETHICK0 ;
盘中最低:INDEXL,LINETHICK0 ;
收盘点位:INDEXC,LINETHICK0 ;
大盘资金增减:(100 * ((INDEXV / REF(INDEXV,1)) - 1)),LINETHICK0,ColorFFFF00;
JJ:=(((XD4 + XD2) + XD3) / 3);
A:=EMA(JJ,10);
B:=REF(A,1);
买卖决策点位:B,ColorFFFFFF,LINETHICK0;
A1:=EMA(XD4,5);
B1:=EMA(XD4,10);
AA1:=FILTER(((A > B) AND (A1 < B1)),5);
QW:=(0 - ((100 * (HHV(XD2,14) - XD4)) / (HHV(XD2,14) - LLV(XD3,14))));
WR1:=DMA(QW,17);
DDF:=((((DATE <= 700101) OR ((DATE >= 1060101) AND (DATE <= 1070201))) OR ((DATE >= 1070401) AND (DATE <= 1070630))) OR (DATE >= 1341231));
HJK:="1a0001$CLOSE";
MA1JKK:=MA(HJK,2);
MA2JKK:=MA(HJK,5);
HHKK:=(SMA(("1a0001$AMOUNT" + "399001$AMOUNT"),10,1) / 1000000);
HHHK:=(HHKK * CLOSE);
MA1KK:=MA(HHHK,2);
MA2KK:=MA(HHHK,5);
MSD1:=((("BI01$CLOSE" - LLV("BI01$LOW",34)) / (HHV("BI01$HIGH",34) - LLV("BI01$LOW",34))) * 100);
电力:=MA(MSD1,3);
MSD2:=((("BI02$CLOSE" - LLV("BI02$LOW",34)) / (HHV("BI02$HIGH",34) - LLV("BI02$LOW",34))) * 100);
电力设备:=MA(MSD2,3);
MSD3:=((("BI03$CLOSE" - LLV("BI03$LOW",34)) / (HHV("BI03$HIGH",34) - LLV("BI03$LOW",34))) * 100);
上海:=MA(MSD3,3);
MSD4:=((("BI04$CLOSE" - LLV("BI04$LOW",34)) / (HHV("BI04$HIGH",34) - LLV("BI04$LOW",34))) * 100);
深圳:=MA(MSD4,3);
MSD5:=((("BI05$CLOSE" - LLV("BI05$LOW",34)) / (HHV("BI05$HIGH",34) - LLV("BI05$LOW",34))) * 100);
工程建筑:=MA(MSD5,3);
MSD6:=((("BI06$CLOSE" - LLV("BI06$LOW",34)) / (HHV("BI06$HIGH",34) - LLV("BI06$LOW",34))) * 100);
供水供气:=MA(MSD6,3);
MSD7:=((("BI07$CLOSE" - LLV("BI07$LOW",34)) / (HHV("BI07$HIGH",34) - LLV("BI07$LOW",34))) * 100);
化纤:=MA(MSD7,3);
MSD8:=((("BI08$CLOSE" - LLV("BI08$LOW",34)) / (HHV("BI08$HIGH",34) - LLV("BI08$LOW",34))) * 100);
交通设施:=MA(MSD8,3);
MSD9:=((("BI09$CLOSE" - LLV("BI09$LOW",34)) / (HHV("BI09$HIGH",34) - LLV("BI09$LOW",34))) * 100);
机械:=MA(MSD9,3);
MSD10:=((("BI10$CLOSE" - LLV("BI10$LOW",34)) / (HHV("BI10$HIGH",34) - LLV("BI10$LOW",34))) * 100);
计算机:=MA(MSD10,3);
MSD11:=((("BI11$CLOSE" - LLV("BI11$LOW",34)) / (HHV("BI11$HIGH",34) - LLV("BI11$LOW",34))) * 100);
建材:=MA(MSD11,3);
MSD12:=((("BI12$CLOSE" - LLV("BI12$LOW",34)) / (HHV("BI12$HIGH",34) - LLV("BI12$LOW",34))) * 100);
交通工具:=MA(MSD12,3);
MSD13:=((("BI13$CLOSE" - LLV("BI13$LOW",34)) / (HHV("BI13$HIGH",34) - LLV("BI13$LOW",34))) * 100);
房地产:=MA(MSD13,3);
MSD14:=((("BI14$CLOSE" - LLV("BI14$LOW",34)) / (HHV("BI14$HIGH",34) - LLV("BI14$LOW",34))) * 100);
钢铁:=MA(MSD14,3);
MSD15:=((("BI15$CLOSE" - LLV("BI15$LOW",34)) / (HHV("BI15$HIGH",34) - LLV("BI15$LOW",34))) * 100);
电子信息:=MA(MSD15,3);
MSD16:=((("BI16$CLOSE" - LLV("BI16$LOW",34)) / (HHV("BI16$HIGH",34) - LLV("BI16$LOW",34))) * 100);
纺织服装:=MA(MSD16,3);
MSD17:=((("BI17$CLOSE" - LLV("BI17$LOW",34)) / (HHV("BI17$HIGH",34) - LLV("BI17$LOW",34))) * 100);
教育传媒:=MA(MSD17,3);
MSD18:=((("BI18$CLOSE" - LLV("BI18$LOW",34)) / (HHV("BI18$HIGH",34) - LLV("BI18$LOW",34))) * 100);
旅游酒店:=MA(MSD18,3);
MSD19:=((("BI19$CLOSE" - LLV("BI19$LOW",34)) / (HHV("BI19$HIGH",34) - LLV("BI19$LOW",34))) * 100);
电器:=MA(MSD19,3);
MSD20:=((("BI20$CLOSE" - LLV("BI20$LOW",34)) / (HHV("BI20$HIGH",34) - LLV("BI20$LOW",34))) * 100);
汽车:=MA(MSD20,3);
MSD21:=((("BI21$CLOSE" - LLV("BI21$LOW",34)) / (HHV("BI21$HIGH",34) - LLV("BI21$LOW",34))) * 100);
化工:=MA(MSD21,3);
MSD22:=((("BI22$CLOSE" - LLV("BI22$LOW",34)) / (HHV("BI22$HIGH",34) - LLV("BI22$LOW",34))) * 100);
煤炭石油:=MA(MSD22,3);
MSD23:=((("BI23$CLOSE" - LLV("BI23$LOW",34)) / (HHV("BI23$HIGH",34) - LLV("BI23$LOW",34))) * 100);
造纸印刷:=MA(MSD23,3);
MSD24:=((("BI24$CLOSE" - LLV("BI24$LOW",34)) / (HHV("BI24$HIGH",34) - LLV("BI24$LOW",34))) * 100);
石化:=MA(MSD24,3);
MSD25:=((("BI25$CLOSE" - LLV("BI25$LOW",34)) / (HHV("BI25$HIGH",34) - LLV("BI25$LOW",34))) * 100);
酿酒食品:=MA(MSD25,3);
MSD26:=((("BI26$CLOSE" - LLV("BI26$LOW",34)) / (HHV("BI26$HIGH",34) - LLV("BI26$LOW",34))) * 100);
医药:=MA(MSD26,3);
MSD27:=((("BI27$CLOSE" - LLV("BI27$LOW",34)) / (HHV("BI27$HIGH",34) - LLV("BI27$LOW",34))) * 100);
农林牧渔:=MA(MSD27,3);
MSD28:=((("BI28$CLOSE" - LLV("BI28$LOW",34)) / (HHV("BI28$HIGH",34) - LLV("BI28$LOW",34))) * 100);
其它行业:=MA(MSD28,3);
MSD29:=((("BI29$CLOSE" - LLV("BI29$LOW",34)) / (HHV("BI29$HIGH",34) - LLV("BI29$LOW",34))) * 100);
汽配:=MA(MSD29,3);
MSD30:=((("BI30$CLOSE" - LLV("BI30$LOW",34)) / (HHV("BI30$HIGH",34) - LLV("BI30$LOW",34))) * 100);
券商:=MA(MSD30,3);
MSD31:=((("BI31$CLOSE" - LLV("BI31$LOW",34)) / (HHV("BI31$HIGH",34) - LLV("BI31$LOW",34))) * 100);
商业连锁:=MA(MSD31,3);
MSD32:=((("BI32$CLOSE" - LLV("BI32$LOW",34)) / (HHV("BI32$HIGH",34) - LLV("BI32$LOW",34))) * 100);
通信:=MA(MSD32,3);
MSD33:=((("BI33$CLOSE" - LLV("BI33$LOW",34)) / (HHV("BI33$HIGH",34) - LLV("BI33$LOW",34))) * 100);
外贸:=MA(MSD33,3);
MSD34:=((("BI34$CLOSE" - LLV("BI34$LOW",34)) / (HHV("BI34$HIGH",34) - LLV("BI34$LOW",34))) * 100);
仪电仪表:=MA(MSD34,3);
MSD35:=((("BI35$CLOSE" - LLV("BI35$LOW",34)) / (HHV("BI35$HIGH",34) - LLV("BI35$LOW",34))) * 100);
银行类:=MA(MSD35,3);
MSD36:=((("BI36$CLOSE" - LLV("BI36$LOW",34)) / (HHV("BI36$HIGH",34) - LLV("BI36$LOW",34))) * 100);
有色金属:=MA(MSD36,3);
MSD37:=((("BI37$CLOSE" - LLV("BI37$LOW",34)) / (HHV("BI37$HIGH",34) - LLV("BI37$LOW",34))) * 100);
运输物流:=MA(MSD37,3);
MSD38:=((("BI38$CLOSE" - LLV("BI38$LOW",34)) / (HHV("BI38$HIGH",34) - LLV("BI38$LOW",34))) * 100);
送转:=MA(MSD38,3);
MSD39:=((("BI39$CLOSE" - LLV("BI39$LOW",34)) / (HHV("BI39$HIGH",34) - LLV("BI39$LOW",34))) * 100);
QFII持股:=MA(MSD39,3);
MSD40:=((("BI40$CLOSE" - LLV("BI40$LOW",34)) / (HHV("BI40$HIGH",34) - LLV("BI40$LOW",34))) * 100);
ST:=MA(MSD40,3);
MSD41:=((("BI41$CLOSE" - LLV("BI41$LOW",34)) / (HHV("BI41$HIGH",34) - LLV("BI41$LOW",34))) * 100);
奥运:=MA(MSD41,3);
MSD42:=((("BI42$CLOSE" - LLV("BI42$LOW",34)) / (HHV("BI42$HIGH",34) - LLV("BI42$LOW",34))) * 100);
参股金融:=MA(MSD42,3);
MSD43:=((("BI43$CLOSE" - LLV("BI43$LOW",34)) / (HHV("BI43$HIGH",34) - LLV("BI43$LOW",34))) * 100);
次新股:=MA(MSD43,3);
MSD44:=((("BI44$CLOSE" - LLV("BI44$LOW",34)) / (HHV("BI44$HIGH",34) - LLV("BI44$LOW",34))) * 100);
大盘:=MA(MSD44,3);
MSD45:=((("BI45$CLOSE" - LLV("BI45$LOW",34)) / (HHV("BI45$HIGH",34) - LLV("BI45$LOW",34))) * 100);
小盘:=MA(MSD45,3);
MSD46:=((("BI46$CLOSE" - LLV("BI46$LOW",34)) / (HHV("BI46$HIGH",34) - LLV("BI46$LOW",34))) * 100);
低价:=MA(MSD46,3);
MSD47:=((("BI47$CLOSE" - LLV("BI47$LOW",34)) / (HHV("BI47$HIGH",34) - LLV("BI47$LOW",34))) * 100);
中价:=MA(MSD47,3);
MSD48:=((("BI48$CLOSE" - LLV("BI48$LOW",34)) / (HHV("BI48$HIGH",34) - LLV("BI48$LOW",34))) * 100);
高价:=MA(MSD48,3);
MSD49:=((("BI49$CLOSE" - LLV("BI49$LOW",34)) / (HHV("BI49$HIGH",34) - LLV("BI49$LOW",34))) * 100);
定向增发:=MA(MSD49,3);
MSD50:=((("BI50$CLOSE" - LLV("BI50$LOW",34)) / (HHV("BI50$HIGH",34) - LLV("BI50$LOW",34))) * 100);
节能环保:=MA(MSD50,3);
MSD51:=((("BI51$CLOSE" - LLV("BI51$LOW",34)) / (HHV("BI51$HIGH",34) - LLV("BI51$LOW",34))) * 100);
农业龙头:=MA(MSD51,3);
MSD52:=((("BI52$CLOSE" - LLV("BI52$LOW",34)) / (HHV("BI52$HIGH",34) - LLV("BI52$LOW",34))) * 100);
券商重仓:=MA(MSD52,3);
MSD53:=((("BI53$CLOSE" - LLV("BI53$LOW",34)) / (HHV("BI53$HIGH",34) - LLV("BI53$LOW",34))) * 100);
社保重仓:=MA(MSD53,3);
MSD54:=((("BI54$CLOSE" - LLV("BI54$LOW",34)) / (HHV("BI54$HIGH",34) - LLV("BI54$LOW",34))) * 100);
数字电视:=MA(MSD54,3);
MSD55:=((("BI55$CLOSE" - LLV("BI55$LOW",34)) / (HHV("BI55$HIGH",34) - LLV("BI55$LOW",34))) * 100);
外资并购:=MA(MSD55,3);
MSD56:=((("BI56$CLOSE" - LLV("BI56$LOW",34)) / (HHV("BI56$HIGH",34) - LLV("BI56$LOW",34))) * 100);
网络游戏:=MA(MSD56,3);
MSD57:=((("BI57$CLOSE" - LLV("BI57$LOW",34)) / (HHV("BI57$HIGH",34) - LLV("BI57$LOW",34))) * 100);
稀缺资源:=MA(MSD57,3);
MSD58:=((("BI58$CLOSE" - LLV("BI58$LOW",34)) / (HHV("BI58$HIGH",34) - LLV("BI58$LOW",34))) * 100);
预亏预减:=MA(MSD58,3);
MSD59:=((("BI59$CLOSE" - LLV("BI59$LOW",34)) / (HHV("BI59$HIGH",34) - LLV("BI59$LOW",34))) * 100);
预盈预增:=MA(MSD59,3);
MSD60:=((("BI60$CLOSE" - LLV("BI60$LOW",34)) / (HHV("BI60$HIGH",34) - LLV("BI60$LOW",34))) * 100);
整体上市:=MA(MSD60,3);
MSD61:=((("BI61$CLOSE" - LLV("BI61$LOW",34)) / (HHV("BI61$HIGH",34) - LLV("BI61$LOW",34))) * 100);
低市盈利:=MA(MSD61,3);
MSD62:=((("BI62$CLOSE" - LLV("BI62$LOW",34)) / (HHV("BI62$HIGH",34) - LLV("BI62$LOW",34))) * 100);
新能源:=MA(MSD62,3);
MSD63:=((("BI63$CLOSE" - LLV("BI63$LOW",34)) / (HHV("BI63$HIGH",34) - LLV("BI63$LOW",34))) * 100);
新材料:=MA(MSD63,3);
MSD64:=((("BI64$CLOSE" - LLV("BI64$LOW",34)) / (HHV("BI64$HIGH",34) - LLV("BI64$LOW",34))) * 100);
注资承诺:=MA(MSD64,3);
MSD65:=((("BI65$CLOSE" - LLV("BI65$LOW",34)) / (HHV("BI65$HIGH",34) - LLV("BI65$LOW",34))) * 100);
沪深300:=MA(MSD65,3);
MSD66:=((("BI66$CLOSE" - LLV("BI66$LOW",34)) / (HHV("BI66$HIGH",34) - LLV("BI66$LOW",34))) * 100);
中小板指:=MA(MSD66,3);
V1:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(电力, 电力设备),上海),深圳),工程建筑), 供水供气), 化纤),交通设施), 机械),计算机), 建材), 交通工具),房地产),钢铁),电子信息),纺织服装), 教育传媒), 旅游酒店),电器),汽车),化工), 煤炭石油),造纸印刷),石化), 酿酒食品),医药), 农林牧渔),其它行业),汽配),券商),商业连锁),通信),外贸),仪电仪表),银行类),有色金属),运输物流),送转),QFII持股),ST),奥运),参股金融),次新股),大盘),小盘),低价),中价),高价),定向增发),节能环保),农业龙头),券商重仓),社保重仓),数字电视),外资并购),网络游戏),稀缺资源),预亏预减),预盈预增),整体上市),低市盈利),新能源),新材料),注资承诺),沪深300),中小板指);
H1:=INDEXA;
VAR2HGG:=(((INDEXC + INDEXL) + INDEXH) / 3);
XHH:=((INDEXA / INDEXV) / 100);
{短线买卖}
VAR1:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR2:=EMA(VAR1,50);
VAR3:=2*(VAR1-VAR2);
STICKLINE(VAR3<ref(VAR3,1) and VAR3>0,0,VAR3,4,1),COLORYELLOW;
STICKLINE(VAR3>=ref(VAR3,1)and VAR3>0,0,VAR3,4,1),COLORRED;
STICKLINE(VAR3>ref(VAR3,1)and VAR3<0,0,VAR3,4,1),COLORFFC8FF;
STICKLINE(VAR3<=ref(VAR3,1)and VAR3<0,0,VAR3,4,1),COLORFFCC66;
短趋势:EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE;
长趋势:EMA(VAR1,50),COLORYELLOW;
{简单基本面信息}
流通盘大小:=FINANCE2(37)/1000000*100;
销售毛利率:=FINANCE2(12);
净利润同比增长:=FINANCE2(10);
DRAWTEXTABS(10,100,'流通盘大小：'+流通盘大小+'亿 '),LINETHICK1,colorwhite;  
DRAWTEXTABS(150,100,'销售毛利率：'+销售毛利率+'% '),LINETHICK1,colorwhite;
DRAWTEXTABS(280,100,'净利润同比增长：'+净利润同比增长+'% '),LINETHICK1,colorwhite;
当日换手率:=sum(100*v/capital,1);
DRAWTEXTABS(440,100,'当日换手率： '+NUMTOSTRN(当日换手率,2)+'%'),colorwhite,LINETHICK1;
五日换手率:=sum(100*v/capital,5);
DRAWTEXTABS(560,100,'五日换手率： '+NUMTOSTRN(五日换手率,2)+'%'),colorwhite,LINETHICK1;
DRAWTEXTABS(10,120,'所属板块：'+BKNAME),COLORffffff;
吸筹:=barslast(FILTER(CROSS("KD.K","KD.D") and "KD.D"<30,13));
主力吸筹区:=if(吸筹>0 and 吸筹<61,吸筹,0);
DRAWTEXTREL(10,15,STKLABEL+' '+STKNAME),LINETHICK2,Color00FF05;
DRAWTEXTREL(120,20,'主力建仓天数：'+NUMTOSTRN(主力吸筹区,0)+'天'),Color00FF05,LINETHICK2;

请往下查看附件：使用方法及要领

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： 李庆军 > 《我的图书馆》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多