|
海涛二级专家
 
- 帖子
- 1488
- 金币
- 2535 ￥
- 推广积分
- 0 点
- 最后登录
- 2008-9-12
|
1#
大 中
小 发表于 2007-11-22 10:33 只看该作者
『11-22』 真正可移动的日线【龙虎榜】源码！
本文来自:海涛股票论坛(www.198bbs.com) 作者:方展博 点击1221次
<P>这个版本早已成型，迟迟未发是因为看到本<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%C2%DB%CC%B3">论坛</SPAN>有要发此<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%D6%B8%B1%EA">指标</SPAN>的。<BR>所以一直等到现在，应朋友们的要求，为让大家开盘能用上，特深夜发此指标。<BR>千钧的老朋友直接导入就可以使用。<BR>新朋友，去仿-【赢富-指标】帖下载五个扩展<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%CA%FD%BE%DD">数据</SPAN><SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%B9%AB%CA%BD">公式</SPAN>，同时导入就可以使用了。<BR><BR>千钧可移动日线【龙虎榜】<BR>
 指标公式探讨区≡ - " />
</P>
<P> </P>
<P>
</P>
<P> </P>
<P> 免费内容: </P>
<P>DRAWGBK(1, COLORRGB(180,180,180),COLORRGB(250,250,250),1);<BR>{时间}<BR>variable:wday[7]='星期六';<BR>wday[1]:='星期日';<BR>wday[2]:='星期一';<BR>wday[3]:='星期二';<BR>wday[4]:='星期三';<BR>wday[5]:='星期四';<BR>wday[6]:='星期五';<BR>fy:=YEAR;<BR>fm:=MONTH;<BR>fd:=DAY;<BR>wd:=WEEKDAY;<BR>p:=SYSPARAM(1);<BR>str1:='今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];<BR>{指标：-------------------☆功能开关--------------------}<BR>{龙虎榜}<BR>机构:=EXTDATA(9); <BR>券商:=EXTDATA(10);<BR>大户:=EXTDATA(11);<BR>中户:=EXTDATA(12);<BR><SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%C9%A2%BB%A7">散户</SPAN>:=EXTDATA(13);<BR>机金额:=机构*c; <BR>券金额:=券商*c;<BR>大金额:=大户*c; <BR>中金额:=中户*c;<BR>散金额:=散户*c; <BR>主力<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%D7%CA%BD%F0">资金</SPAN>进出:=(机构+券商+大户)*100/100000;<BR>机构均价:=机金额/机构;<BR>券商均价:=券金额/券商;<BR>大户均价:=大金额/大户;<BR>中户均价:=中金额/中户;<BR>散户均价:=散金额/散户;<BR>散户跟风系数:=(散户+中户)/(机构+券商+大户)*100,LINETHICK;<BR>变换:=IF(CLOSE>OPEN,1,-1);<BR>总:=机构+券商+大户+中户+散户;<BR>总1:=机构+券商+大户;<BR>总2:=IF(总>0,总,总*-1);<BR>{趋势}<BR>X_L1:=reverse((3*C+2*O+L+H)/7)+2*wma(wma((3*C+2*O+L+H)/7,1),5);<BR>千钧:= 3*X_L1-2*sma(X_L1,2,1);<BR>yyh1:=IF(C>=千钧 or O>=千钧,1,0);//多<BR>yyh2:=IF(C<=千钧 or O<=千钧,1,0);//空<BR>yyh3:=O<C;//多<BR>yyh4:=O>C;//空<BR>xL1:=散户跟风系数*变换;<BR>xL2:=IF(xL1>60,1,IF(xL1<-60,1,0));<BR>xL3:=IF(BARPOS=SYSPARAM(1)&&xL2>0,1,0);//散<BR>xL4:=IF(xL1<31&&xL1>-31&&OPEN<CLOSE,1,IF(xL1>-31&&xL1<31&&OPEN>CLOSE,1,0));<BR>xL5:=IF(BARPOS=SYSPARAM(1)&&xL4>0,1,0);<BR>QD:=LBOUND(EXTDATA(9));<BR>IF P<QD THEN EXIT;<BR>{-----------------【图解模板】---------------------}<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],'★代码：'+STKLABEL+' ★名称：'+STKNAME+' ★流通盘：'+NUMTOSTR(FINANCE(1)/10000,4)+'(亿股)'),PXDN8,align4,COLORBLACK;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n■■机构：'+NUMTOSTR(机构[p],0)),align4,COLORRED;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n ■■占：'+NUMTOSTR(机构[p]/总[p]*100,0)+'%'),align4,COLORRED;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n ■■均价：'+NUMTOSTR(机构均价[p],2)+'(元)'),align4,COLORRED;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n■■券商：'+NUMTOSTR(券商[p],0)),PXDN3,align4,Color005200;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n ■■占：'+NUMTOSTR(券商[p]/总[p]*100,0)+'%'),PXDN3,align4,Color005200;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n ■■均价：'+NUMTOSTR(券商均价[p],2)+'(元)'),PXDN3,align4,Color005200;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n■■大户：'+NUMTOSTR(大户[p],0)),PXDN6,align4,COLORMAGENTA;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n ■■均价：'+NUMTOSTR(大户均价[p],2)+'(元)'),PXDN6,align4,ColorFF0066;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n■■中户：'+NUMTOSTR(中户[p],0)+''),PXDN6,align4,COLORBLACK; <BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n ■■均价：'+NUMTOSTR(中户均价[p],2)+'(元)'),PXDN6,align4,Color0C1B16;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n■■散户：'+NUMTOSTR(散户[p],0)),PXDN6,align4,COLORMAGENTA;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n ■■均价：'+NUMTOSTR(散户均价[p],2)+'(元)'),PXDN6,align4,ColorFF0066;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n■■委买总量：'+NUMTOSTR(总2[p],0)),PXDN6,align4,COLORMAGENTA;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n ■■散户跟风系数：'+NUMTOSTR(散户跟风系数[p]*变换[p],2)+' %'),PXDN6,align4,ColorFF0066;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n■■主力净买：'+NUMTOSTR(总1[p],0)),PXDN6,align4,COLORMAGENTA;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n ■■流通比：'+NUMTOSTR(总1[p]/FINANCE( 7),2)),PXDN6,align4,ColorFF0066;<BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n \n■■主力资金进出：'+NUMTOSTR(主力资金进出[p],2)+'(万元)'),PXDN6,align4,COLORBLUE; <BR>DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n \n \n ■■'+str1),PXUP8,align4,COLORBROWN;<BR>{柱线}<BR>STICKLINE(BARPOS=SYSPARAM(3)-8,0,总[p]*1.02,196,0),SHIFT1,ALIGN2,COLORBLUE;<BR>STICKLINE(BARPOS=SYSPARAM(3)-8,0,总[p]*0.99,188,0),SHIFT1,ALIGN2,COLORWHITE;<BR>STICKLINE(BARPOS=DATACOUNT,1,总[p],18,0),COLORRED; <BR>STICKLINE(BARPOS=DATACOUNT-3,0,机构[p],18,0),COLORRED;<BR>STICKLINE(BARPOS=DATACOUNT-6,0,券商[p],18,0),COLOR8000;<BR>STICKLINE(BARPOS=DATACOUNT-9,0,大户[p],18,0),COLOR8000;<BR>STICKLINE(BARPOS=DATACOUNT-12,0,中户[p],18,0),COLORMAGENTA;<BR>STICKLINE(BARPOS=DATACOUNT-15,0,散户[p],18,0),COLOR8000;<BR>DRAWTEXT(BARPOS=DATACOUNT-16,总[p],'散 \n户'),PXUP38,align5,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT-13,总[p],'中 \n户'),PXUP38,align5,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT-10,总[p],'大 \n户'),PXUP38,align5,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT -7,总[p],'券 \n商'),PXUP38,align5,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT- 4,总[p],'机 \n构'),PXUP38,align5,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT - 1,总[p],'总 \n买'),PXUP38,align5,COLORBLACK;<BR>STICKLINE(BARPOS=SYSPARAM(3)-7,总[p]/2,总[p]/2,238,0),ALIGN2,Color008293;//中线<BR>DRAWTEXT(BARPOS=DATACOUNT-16 and xL3[p],总[p]*0.99,' \n今日涨跌:散户所为' ),PXDN16,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT-16 and xL5[p],总[p]*0.99,' \n今日涨跌:主力所为' ),PXDN16,COLORBLACK;<BR>DRAWTEXT(BARPOS=DATACOUNT-16&&yyh2[p]&&yyh4[p],总[p]*0.99,'■趋势: →跌' ),PXDN8,COLORBLUE;//空<BR>DRAWTEXT(BARPOS=DATACOUNT-16&&yyh1[p]&&yyh3[p],总[p]*0.99,'■趋势: →涨' ),PXDN8,COLORRED;//多<BR>换手率:IF(CAPITAL=0,VOL/SUM(VOL,100)*100,VOL/FINANCE(7)),PRECISION2,LINETHICK,COLORGREEN;<BR>涨跌幅:(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,PRECISION2,LINETHICK,COLORYELLOW;<BR></P>
<P> </P>
<P>
 千钧【移动龙虎榜】.rar (3.72 KB)
</P>
<P>【【【【【注意！！！！】】】】<BR>现在是一点三十三分。<BR>在这以前下载公式的朋友，请你重新下载。<BR>刚才由于发的匆忙，有一处错误：机构:=EXTDATA(8); <BR>应该改成：机构:=EXTDATA(9); <BR>谢谢【十轮】<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%C0%CF%CA%A6">老师</SPAN>的提醒，使千钧免翻了一次大错误。<BR>再次感谢【十轮】老师！<BR>谢谢！千钧替论坛的朋友们，再次谢谢【十轮】老师！<BR><BR><BR><BR><BR>大家好！朋友们好！<BR>鉴于本论坛指标区，有鼓励<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%C6%C6%BD%E2">破解</SPAN>本论坛首创指标之嫌。<BR>一发千钧学习【大庆老杨】从现在起，在理想论坛“禁言”！<BR>不发标！不回复【包括系统短信】！<BR>修身养性，潜水学习。<BR>如遇实在必须回复朋友们的问题，请原谅，我也只能用图来回复。<BR>能否看懂，就看朋友们了。<BR>感谢朋友们一直以来的支持与鼓励！<BR>但我真的不想，在我的孩子还没有长大成人之前，交给我不信任的人横加管教。<BR>我爱我的孩子！我希望他长大后是个好材料，而不是泛泛之辈！<BR>没办法，请大家谅解！<BR></P>
|
Powered by Discuz! 6.0.0 © 2001-2007 Comsenz Inc.
