欧奈尔选股法80只牛股纵览（年盈利超130%）累计收益901.38%今日评分公布0426

xmany

多谢依然，辛苦了 :*19*:

handongwx

欧奈尔评分:SELFDATA('欧奈尔评分');
上期评分:ref(欧奈尔评分,1);
评分排名:EXTDATA(13)+1;
上期排名:ref(评分排名,1);
排名升降:上期排名-评分排名;


这个公式在我的大智慧新一代里不显示评分排名和上期排名。
请问一下如何处理。我已建立欧奈尔评分和排名两个自定义数据了，
还有另一个公式是我建立了是欧奈尔排名，可以显示。{欧奈尔排名, 大智慧适用}

{N1:短周期，N2:长周期，M:上榜的最低位次}
input:N1(5,1,100),N2(20,5,100); {,M(1,1,100);}
m:=5;


seq:selfdata('欧奈尔排名'),colorwhite,linethick0; {当日排名}
ma1:=ma(seq,N1){,coloryellow,linethick0};            {N1日平均排名}
ma2:=ma(seq,N2){,colormagenta,linethick0};         {N2日平均排名}
h1:=llv(seq,N1){,colorgreen,linethick0};             {N1日最高排名}
h2:=llv(seq,N2){,colorred,linethick0};             {N2日最高排名}

{倒数化排名}
rseq:1/seq,colorwhite;
rma1:ma(rseq,N1),coloryellow;
rma2:ma(rseq,N2),colormagenta;
rh1:hhv(rseq,N1),pointdot,colorgreen;
rh2:hhv(rseq,N2),pointdot,colorred;

{保持排名上升速度明日是否有可能进入前M名}
tom:(2*seq-ref(seq,1)),colorgray,linethick0; {简单预测明日排名}
aft:(3*seq-2*ref(seq,1)),colorgray,linethick0; {简单预测第三日排名}
gold1:tom<m,linethick0;
gold2:aft<m,linethick0;

{对预测第二天，第三天预计上榜的日期作醒目显示}
STICKLINE(gold2 and not(gold1),0,rseq,8,0),colorgreen,layer7;
STICKLINE(gold1,0,rseq,8,0),colorred,layer7;

{涨势跟踪－－如果上榜后，保持主力持仓净增则可认为是良性调整，}
{否则，如果后面的累计净卖出吞掉了上榜当天的净买入，则认为是假突破}

f:=not(gold1) and not(gold2);
pre:=BARSLAST(gold1 or gold2);  {前面的上榜日}
pregold1:(ref(gold1,pre)=1),linethick0;   {前面的上榜日是gold1日还是gold2日}
netbuy:=stkindi(STKLABEL, '主力K线.净买'); {净买}
netsum:=sum(netbuy,pre+1);  {累计净买}
prebuy:=ref(netbuy,pre);  {上榜日净买}
STICKLINE(f and pregold1 and prebuy+netsum>0, 0, rseq,8,1), colorred,layer7;
STICKLINE(f and not(pregold1) and prebuy+netsum>0, 0, rseq,8,1), colorgreen,layer7;
good:(gold1 or gold2 or prebuy+netsum>0),linethick0;  {上榜，或者良性整理状态};
请问有方法使这两个公式合在一个副图里吗，我试了一下，但只显示评分的线。
先谢谢了

xqfchyy

ly老师好，有一个问题想请教：我将您的大买卖量的所有历史数据导入到了大智慧传统行情中，运算慢。看了前面的文章是要进行剪切，PRP的文件我知道如何剪切，这文本文件导入后应该如何剪切呢！不好意思，我是个新手，试了几天也没弄好，希望能告诉我方法，谢谢！论坛上的那位老师要是知道的话，帮忙解答一下，一并谢了！

pigtou

原帖由 lymanqun 于 2007-4-8 20:25 发表

这个数据更准，其中很多已经我调整，调整到截止4月6日，所以最具权威性，以后每天在欧奈尔排名数据中的基金持仓率都会根据公开信息作相应调整，但不再作特别声明，

多谢老大！更新了，:*22*:

tjzh

谢谢 ly兄的辛勤劳动

lymanqun

根据朝阳永续作的解盘及公式，包括数据，引入即可用（20070104~20070405）



报告估值及目标位

{解盘}
drawtext(barpos=sysparam(2),h,
'      '+blkname{板块}
+'\n      流通 '+NUMTOSTR(FINANCE(7),0)+'万 '{资料}
+'每股收益 '+NUMTOSTR(FINANCE(33),2)+'元 '{资料}
+'净资收益率 '+NUMTOSTR(FINANCE(37),2)+'％ '{资料}
+'主营利润率 '+NUMTOSTR(selfdata('主营业务利润率'),2)+'％ '{资料}
+'净利润增长 '+NUMTOSTR(selfdata('净利润增长率'),2)+'％'{资料}
+'资产负债率 '+NUMTOSTR(selfdata('资产负债率'),0)+'％'{资料}
+'\n      主力持仓 '+NUMTOSTR(SELFDATA('持仓率'),2)+'％ '{主力分析}
+'两周增仓 '+NUMTOSTR(SELFDATA('上周增仓'),2)+'％ '{主力分析}
+'四周增仓 '+NUMTOSTR(SELFDATA('三周增仓'),2)+'％ '{主力分析}
+'基金持仓 '+NUMTOSTR(selfdata('持股率'),2)+'％ '{主力分析}
+'获利盘 '+NUMTOSTR(winner(c)*100,0)+'％ '
+'PEG '+NUMTOSTR(c/FINANCE(33)/selfdata('净利润增长率'),2)
+'\n      估值 '+NUMTOSTR(SELFDATA('估值'),1){研究报告目标价}
+' 上升空间 '+NUMTOSTR((SELFDATA('估值')-c)/c*100,1)+'％ '{研究报告目标价}
+' 2007一致预测收益 '+NUMTOSTR(SELFDATA('2007一致预测收益'),2) +'元 '
),ALIGN4,COLORRED;
{指数移动平均线}
EMA13:EMA(CLOSE,13),COLORWHITE;
EMA17:EMA(CLOSE,17),COLORYELLOW;
EMA34:EMA(CLOSE,34),COLORBLUE;
主线:(MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24)+MA(CLOSE,36))/4,LINETHICK2,colormagenta;
MA5:= EMA(CLOSE,5);
MA20:=MA(CLOSE,20);
STICKLINE(MA5>MA(CLOSE,20),MA5,主线,1,0),LINETHICK2 ,coloryellow;
STICKLINE(MA5<MA(CLOSE,20),MA5,MA(CLOSE,20),1,0),LINETHICK3 , colorblue;
ma60:ma(close,60)colorcyan;
ma90:=ema(close,90);
ma120:ema(close,120)colorred;
stickline(c>=o,c,o,8,0),COLOR0055AA;
stickline(c>=o,c,o,3,0),COLOR0077CC;
stickline(c>=o,o,l,1,0),COLOR00BBFF;
stickline(c>=o,c,h,1,0),COLOR00BBFF;
stickline(c<=o,c,o,8,0),COLOR006600;
stickline(c<=o,c,o,3,0),COLOR009900;
stickline(c<=o,h,l,1,0),COLOR00EE00;

handongwx

原帖由 xqfchyy 于 2007-4-8 21:26 发表
ly老师好，有一个问题想请教：我将您的大买卖量的所有历史数据导入到了大智慧传统行情中，运算慢。看了前面的文章是要进行剪切，PRP的文件我知道如何剪切，这文本文件导入后应该如何剪切呢！不好意思，我是个新 ...

我也才开始搞这个数据，看到200多页，按我的理解是，如果你按时下楼主的大买量大卖量数据定时更新的话，文本文件好象不用剪切吧。不用保留多天的分时数据，那样刷数据太慢，我只留4天的分时。

我才接触这个，如果说的不对，请其它人纠正。

tjzh

转一篇对“每笔成交股数(BS)”的研究：

如何以"每笔成交量"识别庄家?

   1、当股价呈现底部状态时，若\"每笔成交\"出现大幅跳升，则表明该股开始有大资金关注，若\"每笔成交\"连续数日在一较高水平波动而股价并未出现较明显的上升，更说明大资金正在默默吸纳该股。在这段时间里成交量倒未必出现大幅增加的现象。当我们发现了这种在价位底部的\"每笔成交\"和股价及成交量出现明显\"背驰\"的个股时，应予以特别的关注。一般而言，当个股\"每笔成交\"超过大市平均水平50％以上时，我们可以认为该股已有庄家入驻。

2、机构庄家入庄某股后，不获利一般是不会出局的。入庄后，无论股价是继续横盘还是呈现\"慢牛\"式的爬升，其间该股的\"每笔成交\"较庄家吸纳时是有所减少还是持平，也无论成交量有所增加还是萎缩，只要股价未见大幅放量拉升，都说明庄家仍在盘中。特别是在淡静市道中，庄家为引起散户注意，还往往用\"对敲\"来制造一定的成交假象，甚至有时还不惜用\"对敲\"来打压震仓，若如此，\"每笔成交\"应仍维持在一相对较高的水平。此时用其来判断庄家是否还在场内，十分灵验。

3、若股价放量大阳拉升，但\"每笔成交\"并未创新高时，应特别提高警惕，因为这说明庄家可能要派发离场了。而当股价及成交量创下新高但\"每笔成交\"出现明显萎缩，也就是出现\"背驰\"时，跟庄者切不可恋战，要坚决清仓离场，哪怕股价再升一程。
　　由此，我们得出一个简单的结论：当\"每笔成交\"与其他价量指标出现明显\"背驰\"时，应特别引起我们的注意。同时，我们应注意\"每笔成交金额\"(股价×每笔成交量)。因为10元/股的每笔成交显然比5元/股的庄家实力强劲。

Surreal

原帖由 xqfchyy 于 2007-4-8 21:26 发表
ly老师好，有一个问题想请教：我将您的大买卖量的所有历史数据导入到了大智慧传统行情中，运算慢。看了前面的文章是要进行剪切，PRP的文件我知道如何剪切，这文本文件导入后应该如何剪切呢！不好意思，我是个新 ...

其实，不必自己用prp文件算了，依然老大每天都有发txt文件的，直接导入自定义数据即可。

lymanqun

衡量一个企业成为未来伟大企业的标准！

有关衡量一个企业成为未来伟大企业的标准，现阶段的中国我认为，最有潜质的企业所呈现的，应该是一种尊重用户回报社会的服务精神,服务精神，可以简化为三个方面明晰的判据——按照行业和产品服务的形式 　　 　　对于提供集成性的产品，我们应该关注他的产品的人机工程设计是否优秀？易用性如何？ 　　 　　对于提供某种服务，我们要看这些所提供的服务的真实性和亲和性就足够了； 　　 　　对于提供产品附加服务的，按照上述标准综合考察，比如客户支持怎样？具体从操作界面到编制的使用说明书的指导是否准确清晰通俗易懂等等。 　　 　　如果还有补充，另外就是公司方面对于员工的真实态度，包括员工管理方式、工资分配和员工福利的指导思想。 　　 　　解释一下，以上诸项，是我长期观察思考的结论——以前我们讨论过一个最伟大的公司是全心全意为人民服务的公司，那时还比较模糊，就像秦淮老大提出低调淡定，还有些道德化理想化的色彩。现在基本上可以用某些简单的方式进行量化判别——服务精神最好的诠释，可以依照公司所提供的产品和服务进行简单的总结。我们回顾一下，后来我们曾分析到，现阶段乃至相当长一段时间，中国不会出现那种所谓的高科技高成长的公司，因为环境国情历史阶段积累制度等一系列原因，现在还不是那种公司浮出水面的时候，好公司的精耕细作，是需要沃土和农时配合的，后来我们在价值掠夺那个贴，分析了从比较优势上看中国现在不可能出现这样的公司，从国家利益博弈上，中国现在也不可能被允许出现这样的公司，因为价值的掠夺是依靠领先技术、国家实力、社会发展模式等多因素综合决定的，对于一个普通的中国公司，在相当长的时段里，他不能提供高科技高技术先进性能超级稳定的产品和服务，实在是苑囿于多种因素，决定一个公司能够成为优秀的公司的因素很多——并不一定是公司低能低效和没有进取心，工艺水平不行、材料行业不过硬、基础研究的积累、企业生存的环境有太多的滞肘、社会环境的不稳定等等因素，可以说埋葬了很多非常有前景的产业和有前途的公司。对于相当多的公司，最终为了并不是他们的过错而买单，所以现阶段，绝不能以技术、产品性能、简单的服务水准单纯衡量一个公司，至于公司管理层如何如何，公司的所处行业如何如何？这些都是比较复杂，需要大量时间和消耗大量资源去发现的隐私性问题，我想这对绝大多数的研究者，简直是噩梦。同时，能够大规模制造，靠成本低廉取胜离好公司更是渐行渐远，这个我们后面会提到。 　　 　　而具备上述服务精神品质的公司，一俟获得支持条件，或者压在他们头上的制约条件消失，他们就会成长为伟大优秀的公司，因为一个伟大公司最根本的品质和基础，他们早就具备了。其实好企业在幼小的时候，就是一个好企业，至于是不是有优秀的管理者，应该说，一个企业的精神是开始的成员与社会环境互动过程中决定的，一旦确立，就不是换个管理者就能改变的问题，需要知道，一个企业的精神实际上是一种长期发展演变和社会环境成员类型综合的历史记录的瞬间凝固，因此管理本身就像中国古代的壮阳药，他可以雪中送炭，他只能锦上添花，而不能使一个腐朽的企业走向辉煌和伟大。这就是欧美国家MBA毕业生做职业经理的绩效总体并不理想，而那种依照行政特权垄断公司鲜少出现伟大的经理人的深刻原因。其实另外方面说，这就牵扯到一个老问题，如果还没有巴菲特一生所投资的那些企业，能不能由巴菲特那样的伟大成绩呢？问问自己。 　　 　　还有一点就是，大家注意，这样尊重用户回报社会的服务精神，最大的优势是成本，现阶段，并没有多大的成本可言，某种方面讲，就是一种态度理念的升级和变迁，一种举手之劳的意识更新，其背景则是公司上下的和谐和共识，对从员工对企业，企业对客户，对社区报的一种负责任的态度。 　　这个和前一段时间的技术投入，科教兴国、863等等所花费的冤枉钱根本没法比，更比n多年以前600734为首的一群人花钱让麦肯锡上自己，钱打了水漂，股被st，构架变动整合纷扰搞的公司鸡犬不宁省事的多——老叶当初不迷信的话，不折腾实达至少还能活上五年，小贾那个团队不是还不错吗，需要知道，麦肯锡是打死也不肯参与实施的，这个行家都知道，各中原因，也算是经验教训，想想人家为什么不参与实施？所以，不能怪人家很精明，而是反思我们又太傻，呵呵 　　小举动，大背景，细节之处见端倪 　　 　　而我们所说具备这种优秀特质的公司，基本上都是那些真正尊重客户，积极进取和精细管理的公司，实际上，只有长期的坚持，这种公司的潜质和竞争力才会爆发出来，这种努力在短时间内，不仅看不到效果，还有多余的成本支出和工作量的担当，所以能真正坚持下来的，并不会很多。最明显的例子,小到东莞深圳大大小小的IT公司，大到就是现在的基金公司,不知道大家买没买过那种给大昌代工的深圳板卡，经常驱动安装不上，因为产品的ver变了，但是驱动和说明书还是原来那个，回答我们生产多么忙，打一次版编写校对工作量有多么大？一件明明不合理的事情总之一万个合理的理由，可是兄弟，这样骗谁呢？到头来还是一个小小的代工场，你没有做到超越总体行业的成就，怎么可能获得超越市场总体的收益呢？在比如，大家发现,基金几乎都没有自己的社区交流组织,一个管理上千亿资产的外国企业的网站,一般都做得有声有色,可是我们的呢?大多数凑合事,基金，不在乎自己的持有者交流和互信的建立，基金业现在面临一个非常大的困境，就是现在的基金持有者和1年之前大大的不同了，如果说，一年之前基金高折价的时候，他的持有者群体，应该更加理性和认同基金的价值信赖基金的能力，而现在这个比例大大的缩小了，基金业已经处于非常危险的境地——他的持有者群体发生了对基金未来非常不利的转化，大量的短线客和对基金根本不存在了解，对其理念根本不认同的持有者充斥着基金，很多人甚至连最起码的理财基础知识都不具备，而当作打新股一样对待基金，一旦市场出现震荡和逆转，开放基金就会出现竞相赎回的基金持有者多杀多，赎回——被动弃仓——净值亏损——更大的赎回......多米诺骨牌效应，最后恶性循坏，连信赖基金的持有者也会丧失信心，基金可能会在风光多年之后一举陷入被动...自身持有者沟通和认同问题不能解决，规模增长的越快，未来市场波动的赎回也会更加凶猛，投资的计划势必受到影响。客观说，基金当下投资管理能力还停留在资产组合的分散化投资，在不同类型资产上进行配置的方法上，在面临整体市场下跌的系统性风险时这种缺陷就会表现出来。一来二去，基金公司和持有者都是最终受害者，只不过损失的分别是基金的短期收益和长远利益。 目前的国内普通居民对理财产品的认识还很粗浅，对于基金产品的特性与功能了解甚少，对于基金而言难免承受规模波动带来的操作压力。市场出现回调，基金重仓股处于跌幅前列，其背后重要原因就是持有人不稳定申购赎回，基金改变持仓比例和结构的成本尤其巨大不说，而且对于这个只能做多的市场，一旦市场波动，无论在怎样的方向上调整仓位和组合的基金都会很被动。 　　 　　不知道对国内a这段时间的市场有什么看法？其实大家发现，这个阶段什么概念最吃香？资源，原材料和矿业，和某种特权、特许经营连接在一起的公司，而不是那些精耕细作的公司。某种程度上说，流动性过剩是客观因素，全球资源上涨，其实不过是换个价格榨取贫穷国家的资源而以，否则为什么都是欧美资本控股的公司的资源先涨，现在才轮到中国？而且依照这个顺序，欧美国家总体并不吃亏，呵呵，这些公司，算好公司吗？如果资源无穷尽，还叫资源吗？那么这种公司，是那种可以永续经营的公司吗？而伟大的公司，不一定是阶段最给股东挣大钱的公司，一定是能给股东持续稳定较好回报的公司，一戒看到了这种公司的表象，所谓好的公司，那些我们希望可以长期投资的公司，究竟为这个社会提供了什么？你会发现，他们最终都参与形成了一个国家、一个时代的文化建设，为什么是可口可乐？要知道2次大战可口可乐把自己的产品送到非洲前线广大美军之前，他并不是可口可乐，而是特仑苏，想想那时美国平均的工资和一听可乐的价格，如果没有后来的事情，他的生命力或许比健力宝长不到哪里去。不如问一个问题，时尚杂志究竟是时尚的发现、引领者还是时尚的附庸和奴隶呢？应该说好的杂志至少应该是发现者，而二流的杂志则是奴隶和附庸吧？呵呵~应该承认，我观察了很久，我们每个人其实依照自己的对世界和生活的认识去投资的，我们在用自己的人生观、价值观和信仰去投资，对不对？我们笃信价值投资，那么当我们去投资一个企业的时候，比如一个血汗工厂，它提供了过往连续三五年的高成长，可我们凭什么可以得出它可以长期被持有的结论和信心？——难道仅仅是因为我们不忍心亲自做那么残忍的管理经营者，或者干不了这么坏的事情，而公司的人能下手做，我们就可以信赖的投资于他们？不要笑，这是我前不久，看了一个新股上市的某机构价值分析报告通篇论证之后，总结作者潜台词的结论。或者某个依靠行政特许，在某个时间段里攫取了丰厚疯狂的利润？不错，我们不是卫道士，我们是投资者，我们要关心的两件事情就是买进股票之后，安全并赢利，但我们应该想想，这样的公司，是否永远可以这样“增长”下去？再则，凭什么在这个没有股权分享文化的国度里，我们一个普通投资者，会赢得一个那样公司，那样残忍贪婪的管理经营者的尊重和诚实？仅仅因为我们买了股票，就成了高贵的、可以获得区别对待的雅利安人？或许都这么想，就让雅利安人集体变成了纳粹。而前面我们提到的依靠大量制造、低毛利竞争的企业，其实说明了最关键的一点——中国人真的没有创造和创新能力吗？非也，中国人一点也不比老外差？那么为什么这么多企业安心做末端的世界工厂，安心于这样的低含量低收益？我来告诉你原因——缺乏远大的理想和进取心，思想懒惰。我说了这一点，我是负责任的，我们要知道，血汗工厂在某些方面最不需要技术含量和艰难变革，无须精耕细作，只要利用社会发展阶段就业压力等提供的大量可以肆意盘剥的工人就够了，实际上，血汗工厂也是职工血汗老板不血汗，想想那些老板，和苦心经营兢兢业业地职业经理们的收入有什么差别？个人收益并不差（甚至阶段会更加丰厚，而付出更少，哪个被选择，这时候就要看个人素养和理想了），老实说，一边是辛辛苦苦捉摸怎么把公司搞得更好让大家更满意辛苦不说还可能承担风险，一边是随心所欲肆意而为最后收益还很丰厚，换任何一个人，他会选择哪个？ 　　 　　不说大道理，一点也不夸张地说，我们这些600887当初的青睐者就这样考虑问题，最后被管理层狠狠地打了一顿耳光，看好600887的因素很多，归根结底三点： 　　1、公司背靠牧场，手握资源，掌控农户，是资源型的老大； 　　2、奶业未来在中国巨大的市场前景和潜力； 　　3、公司的产品品质不错成本低廉。 　　真的这么简单吗？结果呢？先是老郑想把公司装进自己的口袋，因为分赃不均被暴出，最后拿获法办，后来是潘刚这个坏小子继续捉摸打劫流通股东，搞董事强暴，公司+农户的模式，因为长期压迫而暴出血奶等事件，需要知道，换我们是农户，我们也会把血奶卖给他，想想他们怎么对待我们，怎么肯和我们共患难？再说血奶比陈奶粉兑的“鲜奶”，也是半斤八两不是？可以说这个公司的三个最重要的群体——投资者股东、消费者、农户和员工没有一个总体获益，公司的心思，也根本不在改变自身追求卓越上，所以最后的结果，就是公司内部反水，出来竞争者——猛牛，和887比，蒙牛比他对农户厚道（要不农户没道理给他）、新产品不断推出，对产品定位细分也远远超越887（重视客户需求，服务精神的一种体现），大的丑闻还没有发生过，虽然质疑不断。结果一下子以前的资源农户优势都消失了。 　　 　　做股和做人可不一样，做股可以投机，如上这些公司，阶段性完全可以出击一下，甚至抓住一个小辫子，想让她什么姿势就什么姿势，阶段赚了她钱，还可以享受一把，可是整不好，被人家搞就做了相公。只要自己不把自己忽悠了就好，但是做企业、做长线投资，就要像做人那样要求自己和所投资的公司，那些血汗工厂，傍政府和大企业大款的公司、靠特权潜规则营生的公司，最好敬而远之，让他们从我们的组合中play eggs go！核心就是君子不立危墙之下——要知道，你在危墙下，可不准备站一两天啊。 　　 　　员工回报也是问题，哈撒韦的管理层工资很低，管理层、员工不止一次抱怨过，但他们持有多少哈撒韦公司的股份，有多少论坛的交流者知道呢？这个国家的文化和国情，如果员工不被尊重，股东只能更悲惨，宅心仁厚的公司不要看在证券报和我们说什么，许诺什么，看看员工是不是满意，看看员工是在卖艺呢，还是在卖身？ 　　作为投资者，连员工那点可怜的收益都算计，最后被公司算计也算是不是不报时候未到吧，别那么残忍，二级市场遭报应啦 　　 　　经过多年向各位老大的学习和不懈的勤奋思考，现在的理解是，一切的价值，都建立在人才的价值基础之上的，所以伟大的投资，都是以某种形式投资于人——或者个人，或者群体。我们每个人其实依照自己的对世界和生活的认识去投资的，我们在用自己的人生观、价值观和信仰去投资，或者说投资于自己的人生观、价值观和信仰。价值投资的核心，貌似是投资于企业（真正的价值投资者并不关心二级市场的事情),其实还是投资于人，组织和团队。 　　 　　老摩根能在美国建立了一个金融帝国，凭什么？金钱？行业威望？no，是贡献，是对行业和社会的贡献，美国20世纪初的几次危机，摩根都出手了，挽救了行业，取得的巨大的利润，盈利投资于科学研究，现在那几个巨型公司，比如可乐，在二次大战中对美国政府的支持，对美军的支持，应该说，他们为美国的价值观，国民和社会的利益，做出了贡献吧？决定一个企业生存的，是利润，决定一个企业永续经营的，成为一个伟大的企业的，是他所创造的社会价值，首先是为了用户和员工，其后是他为这个社会提供的服务，而经济价值和社会效益在某些时候，会有一些表面矛盾内在微妙的联系，找到这个凯卡尔特门的人，找到把这两点巧妙转化的人，就成了伟大的企业家，崇高事业的组织者...而我们的目标，就是寻找这些人、团队和组织，能收购就收购，不能收购就收藏。 　　 　　反思一下,既然我们崇尚理性投资，为什么我们不能用一样的态度去建设组织、建立企业？美国历史上并没有明显的优势，为什么在30~40年代获得了飞跃的发展？谁能回答这个问题？！我可以告诉大家，解决温饱问题的是最廉价的、最没有技术含量的，实际上可替代性的选择也很多，但是真正跃迁，很多国家都没有处理好国民收入1000美元之后的阶段，小汤曾经说过，人解决了温饱问题之后的一切需求都可以视为精神需求，精辟！爱、认同、参与政治生活的权利、渴望创造和给予，等等，只有美国社会的企业生产出了这样足量的产品和服务，推动了人在解决最基本的生存压力之后的个性解放，创造力的换发！所以他强盛了一个世纪，因为他有积极进取的融合的民族和一大批优秀的企业，构成了一个国家的中坚。他最清楚人的精神需求和社会效益与经济之间的内在联系，这些东西，他们没有交给我们国内这些SB的经济学家，而把最没有效率的路径和最浮躁的泡沫。互联网时代以来一个鲜明的特征，所有的伟大的成功地企业，都是一群人基于兴趣和热爱，狂热的投身到一个全新的领域，可以说在开始，根本就没有想问结果，而他们的领域，恰恰契合了时代的需要，加上商业化环境的支持，加上余生俱来的商业熏陶，他们上手很快，成了伟大的企业，而从2001年以来你看到，还有多少亚虎、google、ebay这样的网站诞生？我说诞生，而不是上市，没有一群理想主义者不问回报的投入，没有和时代即将展现的蓬勃需求契合，光凭一个商业计划书，能起到这么远见卓识的判断？其实，应该说过vc不过是一个泡沫的产物而以，只要运气不是很差，我们就能期待他们依靠证券市场取得一个高溢价，用这个弥补大量的投资低效和失败，掩盖事实真相，只要这个溢价在，只要这个泡沫在。 　　 　　反思一下,既然我们崇尚理性投资，可是我们内心究竟追求的是什么东西？为什么我们不能用一样的态度去建设组织，建立企业？中国现在已经到了人均1000美元的上方，追求个性、自由、创造的时代来临了，大量的创新人才，有创造力和激情的年轻人降生到这里，以前不是没有，而是被严酷的生存环境和温饱的压力扼杀了，但是现在就有一个可能，社会发展了，宽容了，他们可能出现以后的盖茨和孙正义，但是他们缺乏从法律、文化到资本的支持，个人的未来不确定，生活漂泊不定，而他们只要一点点支持，就能迸发出伟大的激情和创造力，我们的投资其实际上填补了一项真正的有远大前程的空白，需求和前景，这些人，vc会青睐？才不会，vc才不关心这些，模式复杂了，受众难以理解，没有先例，怎么忽悠大家？是不是以后能成为伟大的企业有什么关系和我？老子搞垃圾上市，一样也是赚钱套现，多搞几次不就有了？但是这样，怎么可能诞生卓越伟大的企业呢？

[ 本帖最后由 lymanqun 于 2007-4-8 22:39 编辑 ]

handongwx

原帖由 lymanqun 于 2007-4-8 21:49 发表
根据朝阳永续作的解盘及公式，包括数据，引入即可用（20070104~20070405）



报告估值及目标位

{解盘}
drawtext(barpos=sysparam(2),h,
'      '+blkname{板块}
+'\n      流通 '+NUMTOSTR(FINANCE( ...

谢谢楼主数据。这公式大智慧新一代用不了。sysparam参数没有。改了改可以用了，谢谢。

蓬莱客

前几天才发现楼主老大的牛帖，已经看了2天才粗看10分之一，还是急切的想请“明天依然”兄点评一下600978宜华木业，我已经持股半年多了，打算长线持有的，感谢！
这也是我在这里的处女贴~

jinguolee

CJBS:TICKCOUNT,volstick;
每笔均额:AMOUNT/CJBS,COLORYELLOW;
每笔均额,STICK,COLORRED;
MA5:MA(每笔均额,5),COLORgreen;
MA10:MA(每笔均额,10),COLORblue;
MA20:MA(每笔均额,20),COLORblack;
MA50:MA(每笔均额,50),COLORred;
每笔均额变化五:MA5/REF(MA5,5);
每笔均额变化十:MA10/REF(MA10,10);
每笔额变化二十:MA10/REF(MA10,20);
DRAWTEXTREL(0,10,extrastring('评级'));
请问依然,在大智慧2 收费软件中,直接运行这个公式,是不是就不需要再下载导入您的 BS 文件了

逆势冲浪

原帖由 handongwx 于 2007-4-8 22:27 发表



谢谢楼主数据。这公式大智慧新一代用不了。sysparam参数没有。改了改可以用了，谢谢。

请问在新一代里如何改？
谢谢！

buhuiwang22

转一个网友的大盘走势分析
-------------------------------------------------------------------
3月30日的时候,我分析本周收阳线,但可能带有较长的上影线.
今日开盘,虽然有消化利空的低开,但由于深成指走势强劲,尽管上
证这边指标股压制大盘的反弹.但最后还是以阳线报收.周的上影
线没有收出来.

从技术角度分析,指数应当有个短线回调的过程,尤其是深成指,
短线指标已经很高,需要修复一下.
但从上证这边的指标股走势看,已经没有下行空间,因此周一可能
指标股带领上证大盘收出不错的阳线.深成指也会随之继续上攻一
天.但深成指在9440-9450一带有些压力.

但下周指数有冲高回落的短线调整要求.因此我认为指数下周将
围绕3400点进行争夺.下周的高点理论上在3420点-3430点一带,
估计上半周周二周三就会见到,周二上午的可能性大一些.
  如果周二周三在高位盘整,周四周五将会回调.回调的深度不会
太大估计在7日均线以上获得支撑.
  (7日均线今日收盘3265.就按每天20个点位上移到下周五会在
3365点一带,应当是下周的支撑位置)
  下周,上证指数可能收阳十字星,除非指标股下周大幅拉升,下
周收大阳线的可能不大.

  指数波段上行的趋势没有改变,如果指标股在4月16-20日那周拉
升,指数有挑战3650点以上的可能.

zhbsystem888

看看你所持股的主力实力如何！！
初步测试，有兴趣的大家可以一起研究下！先贴几张图片看看。图中的指标和说明在附件中。附件中有2005-07-22至2007-04-06涨幅前20名、中间20名、后20名的截图，可以对比看看。











[ 本帖最后由 zhbsystem888 于 2007-4-9 09:23 编辑 ]

handongwx

原帖由 逆势冲浪 于 2007-4-8 23:04 发表

请问在新一代里如何改？
谢谢！

拼凑的主图公式，大智慧用的。
em5:eMA(CLOSE,5);
em18:eMA(CLOSE,18);
eM34:eMA(CLOSE,34);
em60:eMA(CLOSE,60);
if DISPSTATUS=2 then drawtextrel(60,120,'主力持仓率: '  +NUMTOSTRN(selfdata('持仓率'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,170,'基金持股数(千万): '+NUMTOSTRN(selfdata('持股数')/1000,3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,220,'基金持股率: '  +NUMTOSTRN(selfdata('持股率'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,270,'主力上周增仓率: '  +NUMTOSTRN(selfdata('上周增仓'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,320,'主力三周增仓率: '  +NUMTOSTRN(selfdata('三周增仓'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,370,'2007一致预测收益: '  +NUMTOSTRN(selfdata('2007一致预测收益'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,420,'\估       值 : '  +NUMTOSTRN(selfdata('估值'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,470,'净利润增长: '  +NUMTOSTRN(selfdata('净利润增长率'),3)+' ％'),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,70,'流通 '+NUMTOSTRN(FINANCE(7),0)+'万 '{资料}
+'每股收益 '+NUMTOSTRN(FINANCE(33),2)+'元 '{资料}
+'净资收益率 '+NUMTOSTRN(FINANCE(37),2)+'％ '{资料}
+'主营增长 '+NUMTOSTRN(FINANCE(53),2)+'％ '{资料}
+'利润增长 '+NUMTOSTRN(FINANCE(54),0)+'％'{资料}
),VALIGN0,COLORRED;
t1:=EXTRASTRING('评级');
t06:=strfind(t1,'06年',1);
t07:=strfind(t1,'07年',1);
if t07>0 then begin t3:=strfind(t1,';',t07);
eps07:=strmid(t1,t07+3,t3-t07-4);
pe07:=', 07PE=';
pe07:=pe07+numtostrn(c/strtonum(eps07),2);
t2:=strfind(t1,';',t06);
end
else
begin pe07:='';
t2:=strfind(t1,'(',t06)-1;
end;
if t06>0 then begin  eps06:=strmid(t1,t06+3,t2-t06-4);
pe06:=', 06PE=';
pe06:=pe06+numtostrn(c/strtonum(eps06),1);
end
else
pe06:='';
outstr:=EXTRASTRING('评级')
  + pe06 + pe07 + ',  公告EPS='+numtostrn(finance(33),3);
if DISPSTATUS=2 then
   DRAWTEXTrel(0,25,outstr),Colorred;
F:=100*(C-REF(C,1))/REF(C,1);
今小昨:=IF(C<REF(O,1) AND f<0,1,0);
p1:=今小昨;
今小前:=IF(C<REF(O,2) AND f<0,1,0);
p2:=今小前;
stickline(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,open,CLOSE,3,0),colormagenta;
stickline(P1=1 AND REF(P1,1)=0 AND P2=1  AND REF(P2,1)=0,open,CLOSE,3,0),colorAAAAAA;

C:\Documents and Settings\Administrator\桌面\memoire\主图.jpg

wwss0

中国高科：买不到葛洲坝整体上市 就买它

    山西证券

    最近几天以广发证券股东辽宁成大、吉林敖东为代表的券商概念整体启动，是什么原因，就是传闻广发证券下周即将恢复交易，相信上市价格将直接开到40元左右，那么作为投资广发证券的股东就成为最大的受益者。同样的思路，作为2007年中国证券市场的最重要的题材，中央企业的整体上市是唯一能与券商概念相媲美的，今日随着葛洲坝的一则公告，中央企业又一匹整体上市黑马横空出世了，且葛洲坝将于下周一也就是4月9日恢复交易，相信等待其的将是连续的涨停，那么在买不到葛洲坝的情况下，投资者如何分享此次整体上市大宴呢？简单，和市场寻找券商概念一样，我们建议重点关注，（600730）中国高科：公司作为葛洲坝的第三大股东，成为此次央企整体上市的最大受益者，在下周投资者买不到葛洲坝的情况下，就买它中国高科！

    葛洲坝三当家，整体上市最大受益者！

    中国高科早期曾投资6900万参股葛洲坝上市公司，持有股份1552万股，是葛洲坝的第三大股东。随着已停牌两周的葛洲坝今日公告，央企整体上市再下一城。公司拟通过换股方式吸收合并中国葛洲坝水利水电工程集团有限公司，从而实现其实际控制人中国葛洲坝集团公司主业资产整体上市。根据葛洲坝今日公告的董事会决议，水电工程公司的股东将按照约1:0.57的比例转换成葛洲坝的股份。吸收合并完成后，水电工程公司的全部资产、负债及权益并入存续公司葛洲坝，持有葛洲坝的全部股份随之注销，其法人资格也因合并而注销。葛洲坝目前控股股东为水电工程公司，而后者又为葛洲坝集团绝对控股，且属于葛洲坝集团的核心资产。根据方案，在吸收合并前，葛洲坝集团还将与水电工程公司进行一次小规模的资产重组。具体包括将水电工程公司所属的非主业资产置入葛洲坝集团，同时将葛洲坝集团目前尚不在水电工程公司范围之内的主业资产注入水电工程公司，即在实现水电工程公司仅拥有葛洲坝集团全部主业资产之后，再通过换股方式吸收合并水电工程公司。另外，本次换股吸收合并还将设定现金选择权，由投资者自行选择全部或部分行使。行使现金选择权的股份将由第三方支付现金对价后持有。现金选择权的对价为葛洲坝的换股价格，即5.39元/股。通过以上程序，葛洲坝集团的主业资产将全部注入上市公司，相信随着下周该股的恢复交易，迎接其的将是一周的一字封停，也就是至少连续5个涨停，那么投资者在买不到葛洲坝的情况下可以重点关注其股东中国高科，正如同市场资金在买不到广发证券的情况下，疯狂狙击辽宁成大和吉林敖东，唯一不同的就是前者还没启动，后者已经翻了10番！

    尼日利亚100亿合同注入，葛洲坝疯狂上涨最大受益者！

    就在葛洲坝公布整体上市前两天，中国葛洲坝集团公司4月3日下午发布最新消息称，葛洲坝集团日前接到尼日利亚联邦ZF通知，中标该国总投资14．6亿美元的蒙贝拉水电工程，也相当于人民币超过100亿！这是中国公司在非洲承建的最大水电工程。尼日利亚蒙贝拉水电工程是第二届中非合作论坛北京峰会上达成的合作项目。该工程位于尼日利亚与喀麦隆交界地带的东戈河上，为跨流域调水和发电工程，装配机组8台，总容量达260万千瓦，总工期为6年零9个月，届时发出的电力将注入尼日利亚全国电网，是尼日利亚共计25亿美元总投资的国家综合电力工程项目中最大的水电项目。中国葛洲坝集团公司是三峡工程的主要施工单位。集团总经理杨继学表示，葛洲坝集团具备国际一流的大江大河截流技术、大坝基础处理技术、混凝土温控防裂技术等，管理经验丰富，对尼日利亚的人文、法律环境进行了长期调研，投标过程中也得到了国务院国有资产监督管理委员会、中国进出口银行、外交部、商务部、中国对外工程承包商会等单位的大力支持。本来该合同与上市公司无关，但随着今日葛洲坝集团公告将主业资产全部注入上市公司，相信这尼日利亚100亿合同将成为整体上市的最大礼物划归上市公司，整体上市+100亿合同将促使葛洲坝恢复交易后疯狂上涨，在葛洲坝股价疯狂上涨背后最大受益者就是三股东中国高科！

    葛洲坝参股长江证券，三大题材造牛中国高科！

    葛洲坝的题材除了整体上市和百亿大合同，还持有长江证券6850万股，持股比例为3.43%。长江证券是我国首批创新试点券商，并拥有长江巴黎百富勤证券、长信基金管理公司以及长江期货，资产质素十分优良，其06年上半年净利润便高达2.33亿元，全年收益更呈爆炸式增长，因此公司的投资回报十分惊人，更为重要的是，长江证券日前已有借壳S石炼化的信息，而从目前A股市场走势，凡是券商借壳出现明朗化的信息，那么参股券商的上市公司二级市场股价将火爆异常，因此参股长江证券的葛洲坝在整体上市和百亿大合同三大题材驱动下，极有可能连续5个涨停，还是那句话，买不到葛洲坝就效仿券商买中国高科，中国高科现持有葛洲坝1552万股，葛洲坝前收盘价6.52元，市值1.01亿，公司已经获利3000万，连续5个涨停，公司将在一周内增加市值6200万元，后期随着葛洲坝集团的正式上市，公司将获得更大的受益，技术上该股本身突破欲望就非常强烈，下周有望与葛洲坝齐涨停，建议投资者积极关注！

zhbsystem888

更新:大智慧L2官方灵通港澳F10，行业内排名指标。如果你的机器性能不够的话，请删除源码中{可删除}和{end 可删除}之间的这段代码。
附官方灵通港澳F10下载地址：http://data.chcj.net/yao0730/0612.html 请下载官方灵通港澳（更新日期为04-02），解压缩密码为大写的 GAZX
分别将解压缩出来的上海f10目录和深圳f10目录中的文件复制到大智慧L2的安装目录下的data\sh\base（先清空）和data\sz\base（先清空）里即可，别搞错位置了，:*22*: :*18*: ，建议先将两个base目录压缩备份，以防你还要用万国的F10，我会陆陆续续的出本帖中f10公式的灵通港澳版本。不知谁有更新更全的港澳F10？官方的似乎很多数据也不全，导致速度慢。
{基本信息}
【上市年】:=REF(YEAR,BARSCOUNT(C)-1);
【月】:=REF(MONTH,BARSCOUNT(C)-1);
【日】:=REF(DAY,BARSCOUNT(C)-1);
资料:=' 净资产:'+FINANCE(35)+'元'+' 每股未分配:'+FINANCE(32)+'元';
var100:='所属板块:';
if inblock('A股板块')=1 then var100:=var100+'A股板块,';
if inblock('B股板块')=1 then var100:=var100+'B股板块,';
if inblock('H股')=1 then var100:=var100+'H股,';
if inblock('ST')=1 then var100:=var100+'ST,';
if inblock('安徽')=1 then var100:=var100+'安徽,';
if inblock('奥运')=1 then var100:=var100+'奥运,';
if inblock('北京')=1 then var100:=var100+'北京,';
if inblock('创投')=1 then var100:=var100+'创投,';
if inblock('次新股')=1 then var100:=var100+'次新股,';
if inblock('大盘')=1 then var100:=var100+'大盘,';
if inblock('大智慧88')=1 then var100:=var100+'大智慧88,';
if inblock('低价')=1 then var100:=var100+'低价,';
if inblock('电力')=1 then var100:=var100+'电力,';
if inblock('电脑')=1 then var100:=var100+'电脑,';
if inblock('电器')=1 then var100:=var100+'电器,';
if inblock('电子信息')=1 then var100:=var100+'电子信息,';
if inblock('房地产')=1 then var100:=var100+'房地产,';
if inblock('纺织服装')=1 then var100:=var100+'纺织服装,';
if inblock('福建')=1 then var100:=var100+'福建,';
if inblock('甘肃')=1 then var100:=var100+'甘肃,';
if inblock('钢铁')=1 then var100:=var100+'钢铁,';
if inblock('高价')=1 then var100:=var100+'高价,';
if inblock('高派现')=1 then var100:=var100+'高派现,';
if inblock('工程建筑')=1 then var100:=var100+'工程建筑,';
if inblock('供水供气')=1 then var100:=var100+'供水供气,';
if inblock('广东')=1 then var100:=var100+'广东,';
if inblock('广西')=1 then var100:=var100+'广西,';
if inblock('贵州')=1 then var100:=var100+'贵州,';
if inblock('海南')=1 then var100:=var100+'海南,';
if inblock('河北')=1 then var100:=var100+'河北,';
if inblock('河南')=1 then var100:=var100+'河南,';
if inblock('黑龙江')=1 then var100:=var100+'黑龙江,';
if inblock('湖北')=1 then var100:=var100+'湖北,';
if inblock('湖南')=1 then var100:=var100+'湖南,';
if inblock('化工')=1 then var100:=var100+'化工,';
if inblock('化纤')=1 then var100:=var100+'化纤,';
if inblock('基金')=1 then var100:=var100+'基金,';
if inblock('基金重仓')=1 then var100:=var100+'基金重仓,';
if inblock('机械')=1 then var100:=var100+'机械,';
if inblock('吉林')=1 then var100:=var100+'吉林,';
if inblock('建材')=1 then var100:=var100+'建材,';
if inblock('江苏')=1 then var100:=var100+'江苏,';
if inblock('江西')=1 then var100:=var100+'江西,';
if inblock('交通工具')=1 then var100:=var100+'交通工具,';
if inblock('交通设施')=1 then var100:=var100+'交通设施,';
if inblock('教育传媒')=1 then var100:=var100+'教育传媒,';
if inblock('金融')=1 then var100:=var100+'金融,';
if inblock('可转债')=1 then var100:=var100+'可转债,';
if inblock('辽宁')=1 then var100:=var100+'辽宁,';
if inblock('旅游酒店')=1 then var100:=var100+'旅游酒店,';
if inblock('煤炭石油')=1 then var100:=var100+'煤炭石油,';
if inblock('内蒙古')=1 then var100:=var100+'内蒙古,';
if inblock('酿酒食品')=1 then var100:=var100+'酿酒食品,';
if inblock('宁夏')=1 then var100:=var100+'宁夏,';
if inblock('农林牧渔')=1 then var100:=var100+'农林牧渔,';
if inblock('农业龙头')=1 then var100:=var100+'农业龙头,';
if inblock('其他行业')=1 then var100:=var100+'其他行业,';
if inblock('汽车')=1 then var100:=var100+'汽车,';
if inblock('汽配')=1 then var100:=var100+'汽配,';
if inblock('青海')=1 then var100:=var100+'青海,';
if inblock('券商重仓')=1 then var100:=var100+'券商重仓,';
if inblock('山东')=1 then var100:=var100+'山东,';
if inblock('山西')=1 then var100:=var100+'山西,';
if inblock('陕西')=1 then var100:=var100+'陕西,';
if inblock('商业连锁')=1 then var100:=var100+'商业连锁,';
if inblock('上海')=1 then var100:=var100+'上海,';
if inblock('上证180')=1 then var100:=var100+'上证180,';
if inblock('上证50')=1 then var100:=var100+'上证50,';
if inblock('社保重仓')=1 then var100:=var100+'社保重仓,';
if inblock('深成40')=1 then var100:=var100+'深成40,';
if inblock('深证100')=1 then var100:=var100+'深证100,';
if inblock('深圳')=1 then var100:=var100+'深圳,';
if inblock('石化')=1 then var100:=var100+'石化,';
if inblock('数字电视')=1 then var100:=var100+'数字电视,';
if inblock('四川')=1 then var100:=var100+'四川,';
if inblock('送转')=1 then var100:=var100+'送转,';
if inblock('天津')=1 then var100:=var100+'天津';
if inblock('通信')=1 then var100:=var100+'通信,';
if inblock('外贸')=1 then var100:=var100+'外贸,';
if inblock('网络游戏')=1 then var100:=var100+'网络游戏,';
if inblock('西藏')=1 then var100:=var100+'西藏,';
if inblock('小盘')=1 then var100:=var100+'小盘,';
if inblock('新材料')=1 then var100:=var100+'新材料,';
if inblock('新疆')=1 then var100:=var100+'新疆,';
if inblock('新上海')=1 then var100:=var100+'新上海,';
if inblock('医药')=1 then var100:=var100+'医药,';
if inblock('仪电仪表')=1 then var100:=var100+'仪电仪表,';
if inblock('有色金属')=1 then var100:=var100+'有色金属,';
if inblock('预亏预减')=1 then var100:=var100+'预亏预减,';
if inblock('预盈预增')=1 then var100:=var100+'预盈预增,';
if inblock('云南')=1 then var100:=var100+'云南,';
if inblock('运输物流')=1 then var100:=var100+'运输物流,';
if inblock('造纸印刷')=1 then var100:=var100+'造纸印刷,';
if inblock('浙江')=1 then var100:=var100+'浙江,';
if inblock('振兴东北')=1 then var100:=var100+'振兴东北,';
if inblock('中价')=1 then var100:=var100+'中价,';
if inblock('中盘')=1 then var100:=var100+'中盘,';
if inblock('重庆')=1 then var100:=var100+'重庆,';
if inblock('自选股')=1 then var100:=var100+'自选股,';
if inblock('3G')=1 then var100:=var100+'3G,';
if inblock('IPO受益')=1 then var100:=var100+'IPO受益,';
if inblock('QFII持股')=1 then var100:=var100+'QFII持股,';
if inblock('参股金融')=1 then var100:=var100+'参股金融,';
if inblock('创新试点')=1 then var100:=var100+'创新试点,';
if inblock('低市净率')=1 then var100:=var100+'低市净率,';
if inblock('定向增发')=1 then var100:=var100+'定向增发,';
if inblock('封闭基金')=1 then var100:=var100+'封闭基金,';
if inblock('股权改革')=1 then var100:=var100+'股权改革,';
if inblock('股权激励')=1 then var100:=var100+'股权激励,';
if inblock('股权投资')=1 then var100:=var100+'股权投资,';
if inblock('航天军工')=1 then var100:=var100+'航天军工,';
if inblock('红利')=1 then var100:=var100+'红利,';
if inblock('沪深300')=1 then var100:=var100+'沪深300,';
if inblock('节能环保')=1 then var100:=var100+'节能环保,';
if inblock('每经G股')=1 then var100:=var100+'每经G股,';
if inblock('清欠')=1 then var100:=var100+'清欠,';
if inblock('权证')=1 then var100:=var100+'权证,';
if inblock('外资并购')=1 then var100:=var100+'外资并购,';
if inblock('未股改')=1 then var100:=var100+'未股改';
if inblock('稀缺资源')=1 then var100:=var100+'稀缺资源,';
if inblock('新能源')=1 then var100:=var100+'新能源,';
if inblock('循环经济')=1 then var100:=var100+'循环经济,';
if inblock('整体上市')=1 then var100:=var100+'整体上市,';
if inblock('中证100')=1 then var100:=var100+'中证100,';
DRAWTEXTREL(10,10,'代码：'+STKLABEL+'   名称：'+STKNAME+'【上市日期:'+NUMTOSTRN(【上市年】,0)+'年'+NUMTOSTRN(【月】,0)+'月'+NUMTOSTRN(【日】,0)+'日】'),LINETHICK4,Colorff00a0;
DRAWTEXTREL(10,100,'机构评级:'+Extrastring('评级')),COLORRED;
DRAWTEXTREL(10,160,var100),COLORRED;
DRAWTEXTREL(10,220,'总股本:'+NUMTOSTRN(FINANCE(1),0)+'万' +' 流通A股:'+NUMTOSTRN(FINANCE(7),0)+'万'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'%'+' 每股收益:'+NUMTOSTRN(FINANCE(33),3)+'元'+' 每股公积金:'+NUMTOSTRN(FINANCE(18),3)+'元'+资料),COLORRED;
{大智慧L2--港澳F10本行业排名}
gazx:=f10find('◇港澳资讯',1);
if gazx>0 then begin
{行业排名}
hydw:=f10find('☆行业分析☆',500);
{取行业}
hydw1:=f10find('更新日期：',hydw+1);
hydw2:=f10find('【所处行业】',hydw1+1);
hydw3:=f10find('1.行业地位',hydw2+1);
hydw4:=f10find('【截至日期】',hydw1+1);
hydw5:=f10find('【截至日期】',hydw4+1);
gpdm:=f10find(STKLABEL,hydw4+1);
gpdm1:=f10find(STKLABEL,gpdm+1);
gpdm2:=f10find(STKLABEL,hydw5+1);
gpdm3:=f10find(STKLABEL,gpdm2+1);
schy:=f10text(hydw2+14,hydw3-hydw2-15);
{取时间}
gxsj:=f10text(hydw1+10,10);
bqsj:=f10text(hydw4+14,10);
IF strfind(f10text(hydw4,hydw5-hydw4),STKLABEL,1)>0 THEN
sj:=f10text(hydw4+14,10);
else sj:=f10text(hydw5+14,10);
{取排名}
IF strfind(f10text(hydw4,hydw5-hydw4),STKLABEL,1)>0 THEN
主营收入排名:=strtonum(f10text(gpdm+56,3));
else 主营收入排名:=strtonum(f10text(gpdm2+56,3));
主营收入:主营收入排名,linethick0,colorgray;
IF strfind(f10text(hydw4,hydw5-hydw4),STKLABEL,1)>0 THEN
净利润增长排名:=strtonum(f10text(gpdm+68,3));
else 净利润增长排名:=strtonum(f10text(gpdm2+68,3));
净利润增长:净利润增长排名,linethick0,colorgray;
IF strfind(f10text(hydw4,hydw5-hydw4),STKLABEL,1)>0 THEN
净资产收益排名:=strtonum(f10text(gpdm1+56,3));
else 净资产收益排名:=strtonum(f10text(gpdm3+56,3));
净资产收益:净资产收益排名,linethick0,colorgray;
IF strfind(f10text(hydw4,hydw5-hydw4),STKLABEL,1)>0 THEN
每股收益排名:=strtonum(f10text(gpdm1+68,3));
else 每股收益排名:=strtonum(f10text(gpdm3+68,3));
每股收益:每股收益排名,linethick0,colorgray;
综合分值:主营收入+净利润增长+净资产收益+每股收益,linethick0,precis0,colorff00a0;
end;
{取最新财务数据}
zxts:=f10find('净资产收益率',1);
zxjzc:=f10find('★最新主要指标★ ',1);
if strtonum(f10text(zxts+20,5))>0 or strtonum(f10text(zxts+20,5))<0 then
jzcsyl:=strtonum(f10text(zxts+20,8));
else
jzcsyl:=strtonum(f10text(zxts+30,8));
if strtonum(f10text(zxts+20,5))>0 or strtonum(f10text(zxts+20,5))<0 then
zxjzcsj:=f10text(zxjzc+20,8);
else
zxjzcsj:=f10text(zxjzc+30,8);
净资产收益率:jzcsyl,linethick0,precis2,colorgray;
zxts1:=f10find('同比',zxts+1);
zxts2:=f10find('%',zxts1+1);
zxzy:=f10find('主营收入',zxts+1);
zxzysj:=f10text(zxzy-29,8);
主营收入同比:strtonum(f10text(zxts1+6,zxts2-(zxts1+6))),linethick0,precis2,colorgray;
zxts3:=f10find('同比',zxts1+1);
zxts4:=f10find('%',zxts3+1);
zxjlr:=f10find('净利润',zxts+1);
zxjlrsj:=f10text(zxjlr-31,8);
净利润同比:strtonum(f10text(zxts3+6,zxts4-(zxts3+6))),linethick0,precis2,colorgray;
{可删除}
{取最新提醒}
zxtx:=f10find('★特别提醒',1);
zxgg:=f10find('1.最新公告',zxtx+1);
zxtx1:=f10text(zxtx+74,38);
zxtx2:=f10text(zxtx+74+74,38);
if (zxtx+74+74+74)<(zxgg-74) then begin zxtx3:=f10text(zxtx+74+74+74,38);end;
if (zxtx+74+74+74+74)<(zxgg-74) then begin zxtx4:=f10text(zxtx+74+74+74+74,38);end;
if (zxtx+74+74+74+74+74)<(zxgg-74) then begin zxtx5:=f10text(zxtx+74+74+74+74+74,38);end;
{--------图解模版---------}
DRAWTEXTREL(500,310,'★特别提醒：  '+zxtx1+zxtx2),ALIGN1,COLOR8000CC;
DRAWTEXTREL(500,370,'★特别提醒：  '+zxtx3+zxtx4),ALIGN1,COLOR8000CC;
DRAWTEXTREL(350,430,'★特别提醒：  '+zxtx5),ALIGN1,COLOR8000CC;
{end 可删除}
DRAWTEXTREL(500,500,'主营收入同比增长 '+'（'+zxzysj+'）'+主营收入同比+' ％'+'  净利润同比增长  '+'（'+zxjlrsj+'）'+净利润同比+' ％'+' 净资产收益率 '+'（'+zxjzcsj+'）'+净资产收益率+' ％'),ALIGN1,COLORRED;
DRAWTEXTREL(500,600,'最新更新： '+bqsj+'  取到数据的截止日期：'+sj+'   港澳更新本栏日期：'+gxsj+'【所处行业】： '+schy),ALIGN1,COLORRED;
DRAWTEXTREL(350,700,'每股收益在本行业内排第 '+每股收益排名+' 位 '+'  净利润金额在本行业内排第 '+净利润增长排名+' 位'),ALIGN1,COLORRED;
DRAWTEXTREL(350,800,'主营收入在本行业内排第 '+主营收入排名+' 位 '+'  净资产收益在本行业内排第 '+净资产收益排名+' 位'),ALIGN1,COLORRED;
DRAWTEXTREL(500,900,' 在本行业综合排名分值  '+综合分值+'  （注：该分值越小越好！）'),ALIGN1,COLORff00a0,linethick4;



[ 本帖最后由 zhbsystem888 于 2007-4-9 06:33 编辑 ]

bewithjessie

原帖由 zhbsystem888 于 2007-4-9 06:23 发表
更新:大智慧L2官方灵通港澳F10，行业内排名指标。如果你的机器性能不够的话，请删除源码中{可删除}和{end 可删除}之间的这段代码。
附官方灵通港澳F10下载地址：http://data.chcj.net/yao0730/0612.html 请下载 ...

zhbsystem888兄真是勤奋，学习:*19*: