你看我用"主力持仓率"进行的排序,在那个数值范围的个股最有参与价值?
谢谢依然^_^
辛苦你啦:*29*: 请问大家的主力增减和依然大哥的差别大不大，我的和依然大哥的不一样，比如主力持仓率及基金持仓率12.15日 601588 北辰实业主力减仓19.45％ 公式上五天增减反映的是增加 421527 原帖由 dasayu 于 2006-12-17 17:11 发表
依然你好,请教一个问题,"主力持仓率"的取值在哪个范围最合适?
你看我用"主力持仓率"进行的排序,在那个数值范围的个股最有参与价值?
谢谢依然^_^
辛苦你啦:*29*:
这个公式单独占用一个副图太浪费位置了..能不能把它写成在其他副图的里面显示... 原帖由 dasayu 于 2006-12-17 17:04 发表
你先点"管理"按钮,就会弹出一个窗口,找到"系统选项",然后点击,在弹出的窗口找到"选项"点击,然后在"监视粘贴板(证券智能输入)"前打勾即可使用.
谢谢dasayu. 晚上请Surreal帮忙把那个主力持仓的数据弄在主图里也能显示吧... Surreal 兄弟提供公式的分析家版本，另有少量无伤大雅的小修改，就不说明了
大买:=SELFDATA('大买量');
大卖:=SELFDATA('大卖量');
当天增减:(大买-大卖),LINETHICK0,COLOR0000ff;
主力仓量:sum(大买-大卖,0),COLORGRAY;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);
三天增减:主力仓量-三天前仓,LINETHICK0,color003399;
五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
廿天增减:主力仓量-廿天前仓,LINETHICK0,color00ffff;
FILLRGN(廿天增减,0,廿天增减>0,rgb(255,255,00),廿天增减<0,rgb(00,255,255));
{廿天增减,COLORWHITE;}
FILLRGN(十天增减,0,十天增减>0,rgb(255,170,00),十天增减<0,rgb(00,170,255));
{十天图:十天增减,COLORWHITE;}
FILLRGN(五天增减,0,五天增减>0,rgb(255,85,00),五天增减<0,rgb(00,85,255));
{五天图:五天增减,COLORWHITE;}
FILLRGN(三天增减,0,三天增减>0,rgb(153,51,00),三天增减<0,rgb(00,51,153));
{三天图:三天增减,COLORWHITE;}
STICKLINE(当天增减>0,当天增减,0,6,0),COLOR0000ff;
STICKLINE(当天增减<0,当天增减,0,6,0),color00ff00;
ma5:MA(主力仓量,5),colorred;
ma10:MA(主力仓量,10),COLORGRAY;
ma30:MA(主力仓量,30),colorgreen;
ma50:MA(主力仓量,50),CIRCLEDOT,COLORMAGENTA;
drawtext(ma(主力仓量,50)>ref(ma(主力仓量,50),1),ma(主力仓量,50),'o'),COLORffff00; Surreal 兄弟这个公式那些颜色具体是什么意思啊...有谁能够详细讲解一下...都看不懂 原帖由 Surreal 于 2006-12-16 20:25 发表
这个修改版强调了主力在不同时间段的筹码增减量，我觉得这个很重要，不知是不是这样。老师可以讲讲吗
对了，源码中的笑脸是冒号和左括号
具体的详细讲解一下...谢谢拉 好极了,我们这里真热闹,能人很多啊,写出来的公式大家受益,谢谢各位了~~~~ 原帖由 dasayu 于 2006-12-17 17:11 发表
依然你好,请教一个问题,"主力持仓率"的取值在哪个范围最合适?
你看我用"主力持仓率"进行的排序,在那个数值范围的个股最有参与价值?
谢谢依然^_^
辛苦你啦:*29*:
这个很难讲,还是看短线的爆发力了,那个有启动迹象,又在前80中,就进那个,但高度控盘达90%以上的个股还是要小心,股价的涨跌全看主力的意志了.
感谢多位同道的无私分享
:*19*: 祝此处交流平台越来越棒感谢多位同道的无私分享
:*19*: 祝此处交流平台越来越棒多谢明天老大和各位热心网友，搞了几天总算搞好了！
哈哈，走到半路忽然闻喜报，今天不用上夜班了，赶紧回来研究dasayu的帖子。感谢依然老师提供数据，感谢dasayu提供方法，我把主图解盘重新修改，加入主力、基金持仓增仓信息，喜欢的兄弟可以试试（需配合dasayu发的自定义数据和我上次修改的主力持筹公式，飞狐适用）——
{五日换手和}
换手率:=VOL/FINANCE(7),VOLSTICK;
换手率和:=SUM(换手率,5);
{解盘}
drawtext(barpos=sysparam(2),h,
' '+blkname{板块}
+'\n 流通 '+NUMTOSTR(FINANCE(7),0)+'万 '{资料}
+'每股收益 '+NUMTOSTR(FINANCE(33),2)+'元 '{资料}
+'净资收益率 '+NUMTOSTR(FINANCE(37),2)+'％ '{资料}
+'主营增长 '+NUMTOSTR(FINANCE(53),2)+'％ '{资料}
+'利润增长 '+NUMTOSTR(FINANCE(54),0)+'％'{资料}
+'\n 主力持仓 '+NUMTOSTR(SELFDATA('持仓率'),2)+'％ '{主力分析}
+'三周增仓 '+NUMTOSTR(SELFDATA('三周增仓'),2)+'％ '{主力分析}
+'上周增仓 '+NUMTOSTR(SELFDATA('上周增仓'),2)+'％ '{主力分析}
+'基金持仓 '+NUMTOSTR(SELFDATA('持股率'),2)+'％ '{主力分析}
+'\n 当天增减 '+NUMTOSTR("主力持筹.当天增减",0)+' '{主力动态}
//+'主力仓量 '+NUMTOSTR("主力持筹.主力仓量",0)+' '
+'获利盘 '+NUMTOSTR(winner(c)*100,0)+'％ '
+'五天换手 '+NUMTOSTR(换手率和,0)+'％ '{五日换手}
+'\n 三天增减 '+NUMTOSTR("主力持筹.三天增减",0)+' '{主力动态}
+'\n 五天增减 '+NUMTOSTR("主力持筹.五天增减",0)+' '{主力动态}
+'\n 十天增减 '+NUMTOSTR("主力持筹.十天增减",0)+' '{主力动态}
+'\n 廿天增减 '+NUMTOSTR("主力持筹.廿天增减",0)+' '{主力动态}
),ALIGN4,COLORCYAN;
高手真多啊！！请出手把这个公式改成分析家的，只用在DZH2上就可
可以——排序：
1.股东增幅：一目了然；
2.持股增幅：看图方便；
3.主力增幅：省劲省力；
4.主力占流通比增幅：
{★股市浪子}
{适用于万国、Wind、鹏搏、维赛特、港澳资讯F10}
DRAWGBK(1, COLORRGB(60,60,60),COLORRGB(50,50,50),1);
{-------------------☆功能开关-------------------}
{选择F10类型}
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯',1)
>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('维赛特',1)>0,4,IF
(F10FIND('☆ ◇港澳资讯',1)>0,5,0)))));
DRAWTEXT(SYSPARAM(2)+20=BARPOS AND F10=0,15,'本公式不适合该种F10资料
。'),COLOREEFF;
{F10数据查找}
IF F10=0 THEN EXIT;
QSW:=IF(F10=2,F10FIND('【1:主力运作】',100),IF(F10=3,F10FIND('控盘情
况:',1),IF(F10=4,F10FIND('（三）历年人均持股情况',1),IF
(F10=5,F10FIND('【1.机构持股汇总】 ',1000),F10FIND('◆ 控盘情况
◆',100)))));
QSW:=IF(F10=5,F10FIND('【2.股东户数',QSW),QSW);
IF QSW>0 THEN BEGIN
WZ1:=F10FIND('-',QSW)-4;WZ2:=F10FIND('-',WZ1+IF(F10=1,10,IF
(F10=4,60,20)))-4;WZ3:=F10FIND('-',WZ2+IF(F10=1,10,IF(F10=4,60,20)))
-4;WZ4:=F10FIND('-',WZ3+IF(F10=1,10,IF(F10=4,60,20)))-4;
WZ5:=IF(F10=2,F10FIND('【2:机构持股】',WZ1),IF(F10=3,F10FIND('公司简
况',WZ1),IF(F10=4,F10FIND('（四）QFII持股',WZ1),IF(F10=5,F10FIND('└
--',WZ1),F10FIND('◆ 概念题材',WZ1)))));//查找结束位
{取时间}
T1:=F10TEXT(WZ1,10);
T2:=IF(WZ2<WZ5,F10TEXT(WZ2,10),'');
T3:=IF(WZ3<WZ5,F10TEXT(WZ3,10),'');
T4:=IF(WZ4<WZ5,F10TEXT(WZ4,10),'');
{取股东户数}
LS:=IF(F10=1,142,IF(F10=4,29,IF(F10=5,12,14)));//14;
HS1:=STRTONUM(F10TEXT(WZ1+LS,10));
HS2:=IF(WZ2<WZ5,STRTONUM(F10TEXT(WZ2+LS,10)),0);
HS3:=IF(WZ3<WZ5,STRTONUM(F10TEXT(WZ3+LS,10)),0);
HS4:=IF(WZ4<WZ5,STRTONUM(F10TEXT(WZ4+LS,10)),0);
{取户均持股数}
LS:=IF(F10=2,28,IF(F10=3,38,IF(F10=4,43,IF(F10=5,30,205))));
RS1:=STRTONUM(F10TEXT(WZ1+LS,10));
RS2:=IF(WZ2<WZ5 AND HS2>100,STRTONUM(F10TEXT(WZ2+LS,10)),0);
RS3:=IF(WZ3<WZ5 AND HS3>100,STRTONUM(F10TEXT(WZ3+LS,10)),0);
RS4:=IF(WZ4<WZ5 AND HS4>100,STRTONUM(F10TEXT(WZ4+LS,10)),0);
{日期转换}
TD1:=STRTONUM('1'+STRMID(T1,3,2)+STRMID(T1,6,2)+STRRIGHT(T1,2));
TD2:=STRTONUM('1'+STRMID(T2,3,2)+STRMID(T2,6,2)+STRRIGHT(T2,2));
TD3:=STRTONUM('1'+STRMID(T3,3,2)+STRMID(T3,6,2)+STRRIGHT(T3,2));
TD4:=STRTONUM('1'+STRMID(T4,3,2)+STRMID(T4,6,2)+STRRIGHT(T4,2));
END;
//===================================================================
============
{大股东数据查找}
QSW1:=IF(F10=2,F10FIND('股东进出】 <<占流通股比例区',1000),IF
(F10=3,F10FIND('【十大流通股东】',500),IF(F10=5,F10FIND('☆股东研究☆
',500),F10FIND('【基金机构持股】',1000))));//起
JSW1:=IF(F10=2,F10FIND('【2:大股东介绍】',QSW1+300),IF(F10=3,F10FIND
('【十大股东】',QSW1+500),IF(F10=5,F10FIND('【2.基金持
股】',QSW1+300),F10FIND('<!P关联个股>',QSW1+300))));//止
IF QSW1<0 THEN EXIT;
SJT:=IF(F10=2,F10FIND('流通股东名',QSW1+50),IF(F10=5,F10FIND('十大流
通股东情况',QSW1+50),F10FIND('截止日期',QSW1+10)));
IF SJT<0 THEN EXIT;
VARIABLE:TT='STR',持股='STR',比例=0,变化=0;
FOR i=1 to 4 DO BEGIN
TT:=RTRIM(F10TEXT(SJT+IF(F10=2,(-145),IF(F10=3,9,IF(F10=5,(-
12),10))),12));//时间
HJW:=F10FIND(IF(F10=2,'总计',IF(F10=3,'流通A股合计',IF(F10=5,'合
计持有','合计'))),SJT+300);
CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-'│'-'─',IF(F10=5,F10TEXT
(HJW+8,0)-'流通',F10TEXT(HJW+IF(F10=2,20,12),60))));
持股:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,' ',3)-1),STRLEFT
(CGT,STRFIND(CGT,IF(F10=2,' ',IF(F10=5,'万','(万股')),1)-1));
CGT1:=LTRIM(IF(F10=5,STRRIGHT(CGT-持股,STRLEN(CGT-持股)-
STRFIND(CGT-持股,'％',1)-3),CGT-持股));
比例:=STRTONUM(IF(F10=4,STRLEFT(CGT1,STRFIND(CGT1,' ',3)-1),IF
(F10=2,STRLEFT(CGT1,STRFIND(CGT1,'%',1)-1),
IF(F10=5,STRMID(CGT1,STRFIND(CGT1,'股',1)+2,STRFIND
(CGT1,'％',5)),STRMID(CGT,STRFIND(CGT,':',10)+1,STRFIND(CGT,'％',10)
-1)))));
//变化:=STRTONUM(STRRIGHT(CGT,STRLEN(CGT)-STRFIND(CGT,' ',16)));//
维赛特
SJT:=IF(F10=2,F10FIND('流通股东名',HJW+50),IF(F10=5,F10FIND('十大流
通股东情况',HJW+50),F10FIND('截止日期',HJW+10)));
IF SJT>JSW1 OR SJT<0 THEN BREAK;
END;
当期:=STRTONUM(持股),COLORFF,LINETHICK;
当期（%）:=比例,PRECISION2,COLORCC,LINETHICK;
上期:=STRTONUM(持股),COLORFFFF,LINETHICK;
上期（%）:=比例,PRECISION2,COLORCCDD,LINETHICK;
±比例:=当期（%）-上期（%）,PRECISION2,COLORCC00DD,LINETHICK;
前二:=STRTONUM(持股),LINETHICK,COLORFFFF00;
前二（%）:=比例,PRECISION2,COLORCDDD00,LINETHICK;
前三:=STRTONUM(持股),COLORFF00,LINETHICK;
前三（%）:=比例,PRECISION2,COLORAD00,LINETHICK;
{将变化持股数对应显示在对应位置}
A2:=SYSPARAM(2);//最初
A3:=SYSPARAM(3);//最后
A5:=SYSPARAM(5);//最低
A6:=MIN(MIN(RS1,RS2),MIN(RS3,RS4));//最小值
AG:=INTPART((A3-A2)/8);//柱宽控制
{排序}
股东增幅:(HS1-HS2)/HS2*100,PRECISION2,linethick,Color008987;
持股增幅:(RS1-RS2)/RS2*100,PRECISION2,linethick,COLORRED;
主力增幅:(当期-上期)/上期*100,PRECISION2,LINETHICK,ColorFA7D7D;
主力占流通比增幅:(当期（%）-上期（%）)/当期（%）
*100,PRECISION2,LINETHICK,ColorFFA935;
{-------------------【图解模板】-------------------}
{柱线}
{持股数柱线}
STICKLINE(BARPOS=A3-AG*1-10 AND
HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-15 AND
HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-20 AND
HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-25 AND
HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;
{10大股东画柱线}
STICKLINE(BARPOS=A3-AG*1-6AND 当期>0,0,当
期,AG*3,0),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-11 AND 上期>0,0,上
期,AG*3,0),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-16 AND 前二>0,0,前
二,AG*3,0),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-21 AND 前三>0,0,前
三,AG*3,0),LINETHICK2,ColorB9FFFF;
{显示文字}
DRAWTEXT(A2=BARPOS AND HS1>100,A6,'户均持股'),PXUP50,ColorFFC800;
DRAWTEXT(A2=BARPOS AND HS1>100,(A5+A6)/2,'股东户
数'),PXUP10,ColorFA7D7D;
DRAWTEXT(A2=BARPOS AND HS1>100,A5,'报表时间'),COLORDD00;
{10大股东显示文字}
DRAWTEXT(A3=BARPOS AND 当期>0 ,(A5+A6)/2,'主力持股数
(万)'),PXUP60,ALIGN2,SHIFT4,COLORRED;
DRAWTEXT(A3=BARPOS AND 当期>0 ,A5,'主力占流通
比'),PXUP35,ALIGN2,SHIFT2,COLORMAGENTA;
{户均持股}
DRAWNUMBER(BARPOS=A3-AG*1-10 AND
HS1>100,A6,RS1,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*2-15 AND
HS2>100,A6,RS2,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*3-20 AND
HS3>100,A6,RS3,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*4-25 AND
HS4>100,A6,RS4,2),PXUP50,ALIGN,ColorFFC800;
{股东户数}
DRAWNUMBER(BARPOS=A3-AG*1-10 AND HS1>100,
(A5+A6)/2,HS1,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*2-15 AND HS2>100,
(A5+A6)/2,HS2,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*3-20 AND HS3>100,
(A5+A6)/2,HS3,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*4-25 AND HS4>100,
(A5+A6)/2,HS4,0),PXUP10,ALIGN,ColorFA7D7D;
{10大股东持股}
DRAWNUMBER(BARPOS=A3-AG*1-6AND 当期>0,(A5+A6)/2,当
期,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*2-11 AND 上期>0,(A5+A6)/2,上
期,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*3-16 AND 前二>0,(A5+A6)/2,前
二,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*4-21 AND 前三>0,(A5+A6)/2,前
三,2),PXUP60,ALIGN,COLORRED;
{10大股东%}
DRAWNUMBER(BARPOS=A3-AG*1-6AND 当期>0,A5,当期
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*2-11 AND 上期>0,A5,上期
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*3-16 AND 前二>0,A5,前二
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*4-21 AND 前三>0,A5,前三
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
{时间}
DRAWTEXT(BARPOS=A3-AG*1-12 AND HS1>100,A5,T1),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*2-17 AND HS2>100,A5,T2),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*3-22 AND HS3>100,A5,T3),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*4-27 AND HS4>100,A5,T4),COLORDD00;
// 原帖由 awangpian 于 2006-12-17 18:08 发表
Surreal 兄弟这个公式那些颜色具体是什么意思啊...有谁能够详细讲解一下...都看不懂
那些山形状的东西就是主力三日增减、五日增减……颜色最浅的是二十日增减、最深的是三日增减；另外，红色和绿色的短柱是当日增减。
至于用法，我也不敢乱说，还是原创者依然老师来讲解才最权威啊，嘿嘿。 好极了,主图上的内容太多了,快看不过来了,如图: 原帖由 lymanqun 于 2006-12-17 21:03 发表
好极了,主图上的内容太多了,快看不过来了,如图:
依然老大终于现身了... 原帖由 awangpian 于 2006-12-17 21:05 发表
依然老大终于现身了...
下午出去玩了一趟,回来后打开电脑,一看大家热情如此高涨,编公式的编公式,写程序的写程序,好不热闹啊.... 怎么老大那些主力仓位都各不相同啊..而且飞狐竟然也有10档买卖?