<P>应朋友们的要求、现把【霸占大牛股】修改成大智慧新一代、分析家可用版本。<BR>功能与飞狐版本相同：<BR><BR>图一、上证指数：<BR> 指标公式探讨区≡ - " />

1.gif (35.79 KB)

2008-1-18 10:09

</P>
<P> </P>
<P>霸占大牛股出点</P>
<P>

2.gif (36.3 KB)

2008-1-18 10:09

</P>
<P> </P>
<P>源码：<BR><BR>varl13:=("macd.diff#WEEK"(26,12,9));<BR>varl14:=("macd.dea#WEEK"(26,12,9));<BR>VL:=REF(LOW,1); VH:=REF(H,1);<BR>Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100; <BR>Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;<BR>Var3:=MA(Var1,13); <BR>Var4:=MA(Var2,13);<BR>Var5:=LLV(L,34);<BR>Var6:=HHV(H,34);<BR>Var7:=EMA(IF(H&gt;=Var6,Var3,0),3);<BR>Var8:=EMA(IF(L&lt;=Var5,Var4,0),3);<BR>var9:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));<BR>var10:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var9* 10.9);<BR>Var11:=FILTER(IF(var10&lt;=var9 AND Var8&gt;REF(Var8,1),Var8*8,0),55);<BR>Var21:=LLV(LOW,60);<BR>Var31:=HHV(HIGH,60);<BR>Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);<BR>Var51:=EMA(0.667*REF(Var41,1)+0.333*Var41,21);<BR>varl2:=FILTER(CROSS(Var51,Var41) AND Var41&gt;84,13);<BR>{K线}<BR>STICKLINE(CLOSE&gt;OPEN or CLOSE=OPEN and CLOSE&gt;REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;<BR>STICKLINE(CLOSE&gt;OPEN or CLOSE=OPEN and CLOSE&gt;REF(CLOSE,1),OPEN,CLOSE,7,0),colorred;<BR>STICKLINE(CLOSE&lt;OPEN or CLOSE=OPEN and CLOSE&lt;=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan;<BR>STICKLINE(CLOSE&lt;OPEN or CLOSE=OPEN and CLOSE&lt;=REF(CLOSE,1),OPEN,CLOSE,7,0),colorcyan;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00; <BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;<BR>STICKLINE(OPEN&gt;=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF; <BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF; <BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;<BR>STICKLINE(CLOSE&gt;OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;<BR>DRAWTEXTABS(20,0,STKLABEL+' '+STKNAME+' '),ColorFFFF80;<BR>持股线:MA(C,26),LINETHICK2,COLOR6600FF;<BR>qjj:FILTER((CROSS(varl13,varl14) and varl14&lt;0 and CROSS(c,持股线)),90),LINETHICK0;<BR>DRAWTEXTREL(0,900,'一发千钧告诫朋友:指标是参考,决策在人脑.锁定:分批建仓.霸占:满仓待涨.逃跑:遵守纪律.祝君:股海拾贝 沙海淘金'),Color989500;<BR>var100:='所属板块:';<BR>if inblock('电力')=1 then var100:=var100+' 电力';<BR>if inblock('电脑')=1 then var100:=var100+' 电脑';<BR>if inblock('电器')=1 then var100:=var100+' 电器';<BR>if inblock('电子信息')=1 then var100:=var100+' 电子信息';<BR>if inblock('房地产')=1 then var100:=var100+' 房地产';<BR>if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';<BR>if inblock('钢铁')=1 then var100:=var100+' 钢铁';<BR>if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';<BR>if inblock('供水供气')=1 then var100:=var100+' 供水供气';<BR>if inblock('化工')=1 then var100:=var100+' 化工';<BR>if inblock('化纤')=1 then var100:=var100+' 化纤';<BR>if inblock('机械')=1 then var100:=var100+' 机械';<BR>if inblock('建材')=1 then var100:=var100+' 建材';<BR>if inblock('交通工具')=1 then var100:=var100+' 交通工具';<BR>if inblock('交通设施')=1 then var100:=var100+' 交通设施';<BR>if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';<BR>if inblock('金融')=1 then var100:=var100+' 金融';<BR>if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';<BR>if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';<BR>if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';<BR>if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';<BR>if inblock('其他行业')=1 then var100:=var100+' 其他行业';<BR>if inblock('汽车')=1 then var100:=var100+' 汽车';<BR>if inblock('汽配')=1 then var100:=var100+' 汽配';<BR>if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';<BR>if inblock('石化')=1 then var100:=var100+' 石化';<BR>if inblock('通信')=1 then var100:=var100+' 通信';<BR>if inblock('外贸')=1 then var100:=var100+' 外贸';<BR>if inblock('医药')=1 then var100:=var100+' 医药';<BR>if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';<BR>if inblock('有色金属')=1 then var100:=var100+' 有色金属';<BR>if inblock('运输物流')=1 then var100:=var100+' 运输物流';<BR>if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';<BR>if inblock('安徽')=1 then var100:=var100+' 安徽';<BR>if inblock('北京')=1 then var100:=var100+' 北京';<BR>if inblock('福建')=1 then var100:=var100+' 福建';<BR>if inblock('甘肃')=1 then var100:=var100+' 甘肃';<BR>if inblock('广东')=1 then var100:=var100+' 广东';<BR>if inblock('广西')=1 then var100:=var100+' 广西';<BR>if inblock('贵州')=1 then var100:=var100+' 贵州';<BR>if inblock('海南')=1 then var100:=var100+' 海南';<BR>if inblock('河北')=1 then var100:=var100+' 河北';<BR>if inblock('河南')=1 then var100:=var100+' 河南';<BR>if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';<BR>if inblock('湖北')=1 then var100:=var100+' 湖北';<BR>if inblock('湖南')=1 then var100:=var100+' 湖南';<BR>if inblock('吉林')=1 then var100:=var100+' 吉林';<BR>if inblock('江苏')=1 then var100:=var100+' 江苏';<BR>if inblock('江西')=1 then var100:=var100+' 江西';<BR>if inblock('辽宁')=1 then var100:=var100+' 辽宁';<BR>if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';<BR>if inblock('宁夏')=1 then var100:=var100+' 宁夏';<BR>if inblock('青海')=1 then var100:=var100+' 青海';<BR>if inblock('山东')=1 then var100:=var100+' 山东';<BR>if inblock('山西')=1 then var100:=var100+' 山西';<BR>if inblock('陕西')=1 then var100:=var100+' 陕西';<BR>if inblock('上海')=1 then var100:=var100+' 上海';<BR>if inblock('深圳')=1 then var100:=var100+' 深圳';<BR>if inblock('四川')=1 then var100:=var100+' 四川';<BR>if inblock('天津')=1 then var100:=var100+' 天津';<BR>if inblock('***')=1 then var100:=var100+' ***';<BR>if inblock('新疆')=1 then var100:=var100+' 新疆';<BR>if inblock('云南')=1 then var100:=var100+' 云南';<BR>if inblock('浙江')=1 then var100:=var100+' 浙江';<BR>if inblock('重庆')=1 then var100:=var100+' 重庆';<BR>if inblock('3G')=1 then var100:=var100+' 3G';<BR>if inblock('H股')=1 then var100:=var100+' H股';<BR>if inblock('QFII持股')=1 then var100:=var100+' QFII持股';<BR>if inblock('ST')=1 then var100:=var100+' ST';<BR>if inblock('奥运')=1 then var100:=var100+' 奥运';<BR>if inblock('创投')=1 then var100:=var100+' 创投';<BR>if inblock('次新股')=1 then var100:=var100+' 次新股';<BR>if inblock('大盘')=1 then var100:=var100+' 大盘';<BR>if inblock('股权改革')=1 then var100:=var100+' 股权改革';<BR>if inblock('股权投资')=1 then var100:=var100+' 股权投资';<BR>DD:=FINANCE2(35);<BR>SS:=FINANCE2(37);<BR>GG:=FINANCE2(3);<BR>TH:=DYNAINFO(39);<BR>DRAWTEXTABS(20,20,'总股本:'+NUMTOSTRn(DD,0)+'万股' +' 流通A股:'+NUMTOSTRn(SS,0)+'万股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+'  每股收益:'+NUMTOSTRn(GG,3)+' 元'),Color989500;<BR>DRAWTEXTABS(20,40,var100+' '),Color989500;<BR>DRAWTEXT(var11,C*0.98,'锁定'),ColorFFFF00;<BR>DRAWICON(qjj,C*1.09,1);<BR>DRAWTEXT(qjj,l*0.78,'霸占大牛股'),COLOR00FFFF;<BR>DRAWTEXT(varl2,C*1.04,'逃跑'),Colorgreen;<BR></P>

提示语法有错误。。。。。。。。。。。。。。。。。。。。。。

<P><FONT style="BACKGROUND-COLOR: #f6f2e8">谢谢，搞定</FONT></P>

谢谢楼主提供分享。。。。。。。。。。。