阳光飞狐

K线商人 发表于 2006-12-13 16:23:48

⊙基金状况排序 (鹏博F10)------ 指标原码

{基金状况排序}
{限制}
限制:=INBLOCK('基金板块');
tt1:=BARPOS=SYSPARAM(2);
Zbxz:=STRCMP(USERNAME,HARDWAREID)>0;
DRAWTEXT(tt1&&限制=0&&Zbxz,C,'注册:'+USERNAME+'硬件:'+HARDWAREID+'←对不起，此公式仅限“基金”使用！'),PXDN50,align4,COLORYELLOW;
IF 限制=0 THEN EXIT;

{指标：-------------------☆功能开关------------------------}
//表格
s1:=SYSPARAM(1);
s2:=SYSPARAM(2);
s3:=SYSPARAM(3);
KS:=SYSPARAM(3)-SYSPARAM(2);
Z:=ks/80;
x:=barpos=s2;
x1:=barpos=s2+ROUND(z);
{竖线}
x0:=barpos=s2+ROUND(z*27);
x1:=barpos=s2+ROUND(z*55);
x2:=barpos=s2+ROUND(z*27);
x3:=barpos=s2+ROUND(z*55);
x5:=barpos=s2+ROUND(z*80);
{基金情况-鹏博F10}
RQW:=F10FIND('指标名称',100),LINETHICK;
JZW:=F10FIND('单位基金净值',100),LINETHICK;
XRQ:=F10TEXT(RQW+19,8);
XJZ:=F10TEXT(JZW+29,8);
LXW:=F10FIND('基金类型',JZW+200);
LXW:=F10FIND('│',LXW),LINETHICK;
GMW:=F10FIND('基金规模',LXW+800);
GMW:=F10FIND('│',GMW),LINETHICK;
DQW:=F10FIND('存续期',LXW+400);
DQW:=F10FIND('│',DQW);
LXN:=RTRIM(F10TEXT(LXW+2,20));
FGN:=RTRIM(F10TEXT(LXW+42,20));
GMN:=RTRIM(F10TEXT(GMW+2,20));
DQN:=RTRIM(F10TEXT(DQW+2,30))+RTRIM(F10TEXT(F10FIND('│',DQW+75)+2,4));
FB:=STRFIND(LXN,'封闭',1);
QSW:=F10FIND('资产净值周报',100);
{时间}
T01:=F10TEXT(QSW+187,8);
T02:=F10TEXT(QSW+197,8);
T03:=F10TEXT(QSW+207,8);         
T04:=F10TEXT(QSW+217,8);
{净值}
T1:=F10TEXT(QSW+325,6);
T2:=F10TEXT(QSW+335,6);
T3:=F10TEXT(QSW+345,6);         
T4:=F10TEXT(QSW+355,6);
{净值增长率排名}
T001:=F10TEXT(QSW+802,5);
T002:=F10TEXT(QSW+812,5);
T003:=F10TEXT(QSW+822,5);         
T004:=F10TEXT(QSW+832,5);
{转换}
转换:=STRTONUM(T1);
最新单位净值:STRTONUM(XJZ),LINETHICK,PRECISION3,COLORRED;
折价额:C-转换,LINETHICK;
折价率:(1-C/最新单位净值)*100,LINETHICK;
XMC:=STKNAME+' ('+STKLABEL+')';

{-----------------【图解模板】---------------------}
//横线
PARTLINE(1,100),COLORWHITE;
PARTLINE(1,83),POINTDOT,Color008987;
PARTLINE(1,66),POINTDOT,Color008987;
PARTLINE(1,50),POINTDOT,Color008987;
PARTLINE(1,33),POINTDOT,Color008987;
PARTLINE(1,16),POINTDOT,Color008987;
PARTLINE(1,0),COLORWHITE;
{竖线}
STICKLINE(x,100,0,0,0),COLORWHITE;
STICKLINE(x0,100,65,0,0),Color008987;
STICKLINE(x1,100,83,0,0),Color008987;
STICKLINE(x2,65,0,0,0),Color008987;
STICKLINE(x3,65,0,0,0),Color008987;
STICKLINE(x5,100,0,0,0),COLORWHITE;
{填表}
DRAWTEXT(x,95,' '+XMC),COLORGREEN;
DRAWTEXT(x0,95,' 基金类型：'+LXN),COLORGREEN;
DRAWTEXT(x1,95,' 投资风格：'+FGN ),COLORGREEN;
DRAWTEXT(x,77,' 基金规模：'+GMN+'(亿份)'),COLORRED;
DRAWTEXT(x0,77,' 存续期：'+DQN),COLORRED;
DRAWTEXT(x,61,' 时间:'+T01),color888000;
DRAWTEXT(x2,61,' 净值:'+T1),color888000;
DRAWTEXT(x3,61,' 净值增长率排名:'+T001),color888000;
DRAWTEXT(x,45,' 时间:'+T02),color888000;
DRAWTEXT(x2,45,' 净值:'+T2),color888000;
DRAWTEXT(x3,45,' 净值增长率排名:'+T002),color888000;
DRAWTEXT(x,27,' 时间:'+T03),color888000;
DRAWTEXT(x2,27,' 净值:'+T3),color888000;
DRAWTEXT(x3,27,' 净值增长率排名:'+T003),color888000;
DRAWTEXT(x,11,' 时间:'+T04),color888000;
DRAWTEXT(x2,11,' 净值:'+T4),color888000;
DRAWTEXT(x3,11,' 净值增长率排名:'+T004),color888000;

//

stocklyg 发表于 2006-12-13 22:09:05

不好意思。我感觉你的主图“多空”指标不错，可以贴出原码吗？

绿野浪子 发表于 2006-12-16 15:27:24

指标不错，谢谢！
能详细讲解一才用法吗？

chwayne 发表于 2006-12-27 01:30:11

不错，学习一下

zero-zero 发表于 2007-1-5 13:18:29

顶一下   实用又漂亮。

能否将   ' 净值增长率排名:'也 提出来

用于排序或选股。

[ 本帖最后由 zero-zero 于 2007-1-5 13:21 编辑 ]

KOKORO 发表于 2007-1-11 21:56:38

谢谢!学习一下 .

学习一定要 发表于 2007-1-22 15:19:10

谢谢楼主，好东东

sxxmmm 发表于 2007-2-5 00:12:17

回复 #1 K线商人 的帖子

先顶了再说

sxxmmm 发表于 2007-2-5 00:17:53

能否说明一下如何使用，另，我的金狐中为何没有图呢

昆鹏 发表于 2007-2-8 20:15:21

指标不错，谢谢！
能详细讲解一才用法吗？

chen777 发表于 2007-2-9 15:43:35

谢谢！！顶一下！！！！

我不怕输 发表于 2007-2-17 14:28:27

多谢好人！！！！！

x88888888 发表于 2007-3-3 15:06:36

不错啊 ,感谢

坚决追涨 发表于 2007-3-8 00:09:53

不错的东东，谢谢发布，在时间研究一下

linxiao 发表于 2007-3-23 20:50:05

谢谢提供 !!!

ghwy8818 发表于 2007-11-25 14:15:55

谢谢

请帮改成Wind资讯f10用的

namtf 发表于 2007-11-25 22:36:08

谢谢发布，在时间研究一下

wangyitang 发表于 2007-11-26 00:11:48

wfjwfj 发表于 2007-12-2 20:15:46

谢谢发布Thks Thks agree

dahui19888 发表于 2008-1-13 02:47:06

谢谢楼主，好东东辛苦了

iason 发表于 2008-1-15 11:20:48

谢谢楼主agree agree agree
页: [1]
查看完整版本: ⊙基金状况排序 (鹏博F10)------ 指标原码