【阳光飞狐__与财富同行】

标题: ⊙基金状况排序 (鹏博F10)------ 指标原码 [打印本页]

作者: K线商人 时间: 2006-12-13 16:23
标题: ⊙基金状况排序 (鹏博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
不好意思。我感觉你的主图“多空”指标不错，可以贴出原码吗？

作者: 绿野浪子 时间: 2006-12-16 15:27
指标不错，谢谢！
能详细讲解一才用法吗？

作者: chwayne 时间: 2006-12-27 01:30
不错，学习一下

作者: zero-zero 时间: 2007-1-5 13:18
顶一下实用又漂亮。

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

用于排序或选股。

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

作者: KOKORO 时间: 2007-1-11 21:56
谢谢!学习一下 .

作者: 学习一定要 时间: 2007-1-22 15:19
谢谢楼主，好东东

作者: sxxmmm 时间: 2007-2-5 00:12
标题: 回复 #1 K线商人的帖子
先顶了再说

作者: sxxmmm 时间: 2007-2-5 00:17
能否说明一下如何使用，另，我的金狐中为何没有图呢

作者: 昆鹏 时间: 2007-2-8 20:15
指标不错，谢谢！
能详细讲解一才用法吗？

作者: chen777 时间: 2007-2-9 15:43
谢谢！！顶一下！！！！

作者: 我不怕输 时间: 2007-2-17 14:28
多谢好人！！！！！

作者: x88888888 时间: 2007-3-3 15:06
不错啊 ,感谢