- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-4-7
|
|
发表于 2007-9-23 23:06
|
原帖由 宠物星球 于 2007-9-23 09:17 发表 
不好意思 还有一个问题 就是我已经按你的方法设置好了BS并引入了一个月的数据 如何才能在分析家中使用这些数据呢
呵呵 这个就是以前的帖子里讲的了!!!
点击 公式-> 公式管理->新建-> 把下面的东西考进去
CJBS:=SELFDATA('BS');{自定义数据BS}
{CJBS:TICKCOUNT,volstick;}{采用大智慧L2高速行情可用它}
每笔均额:AMOUNT/CJBS,COLORYELLOW;
每笔均额,STICK,COLORRED;
MA5:MA(每笔均额,5),COLORgreen;
MA10:MA(每笔均额,10),COLORblue;
MA20:MA(每笔均额,20),COLORblack;
MA50:MA(每笔均额,50),COLORred;
每笔均额变化五:MA5/REF(MA5,5);
每笔均额变化十:MA10/REF(MA10,10);
每笔额变化二十:MA10/REF(MA10,20);
大智慧新一代里头公式有点不同,如果你是收费版的,就不用天天引入老大的bs数据了
CJBS:IF(TICKCOUNT=0,SELFDATA('BS'),TICKCOUNT),volstick;
每笔均额:AMOUNT/CJBS,COLORYELLOW;
每笔均额,STICK,COLORRED;
MA5:MA(每笔均额,5),COLORgreen;
MA10:MA(每笔均额,10),COLORblue;
MA20:MA(每笔均额,20),COLORblack;
MA50:MA(每笔均额,50),COLORred;
每笔均额变化五:MA5/REF(MA5,5);
每笔均额变化十:MA10/REF(MA10,10);
每笔额变化二十:MA10/REF(MA10,20);
t1:=EXTRASTRING('评级');
t07:=strfind(t1,'07年',1);
t08:=strfind(t1,'08年',1);
if t08>0 then
begin
t3:=strfind(t1,';',t08);
eps08:=strmid(t1,t08+3,t3-t08-4);
pe08:=', 08PE=';
pe08:=pe08+numtostrn(c/strtonum(eps08),2);
t2:=strfind(t1,';',t07);
end
else
begin
pe08:='';
t2:=strfind(t1,'(',t07)-1;
end;
if t07>0 then
begin
eps07:=strmid(t1,t07+3,t2-t07-4);
pe07:=', 07PE=';
pe07:=pe07+numtostrn(c/strtonum(eps07),1);
end
else
pe07:='';
outstr:=EXTRASTRING('评级')
+ pe07 + pe08 + ', 公告EPS='+numtostrn(finance2(33),3);
if DISPSTATUS=2 then
DRAWTEXTrel(0,25,outstr),Colorred; |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|
|