引用另一个品种的行情数据
用法:
DATA2.OPEN, DATA2.HIGH, DATA2.LOW, DATA2.CLOSE, DATA2.VOL, DATA2.AMOUNT
从DATA2到DATA10可引用其他9只品种的行情数据
表示另一只品种的开、高、低、收、量额;
例如: RELATE(C, DATA2.CLOSE, 10);
对于指标图表示计算与主图叠加的品种的收盘价10周期相关系数

这是函数表中复制下来的DATA2的函数,"可引用其他9只品种的行情数据"//要用的就是这句话
我的设想是,如今天的涨仃股600620天宸股份,板块:房地产
假设它为今天的地产股龙头,求其它九只地产股的相关系数

要用到的相关公式:
bk:='地产股板块';
stksum:=STKCOUNT(bk);
variable:dmstr[stksum]='';  
for k=1 to stksum do  
begin
    dm:=stkfromblk(bk,k);
    dmstr[k]:=dm;  
end;

//以下是一些字符串函数及运算的综合应用
EXPLAIN(1,dmstr[1]);  //在解盘中，输出深圳股第1只股票的代码
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名称
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代码及名称
EXPLAIN(1,bk+'第4只股票的代码是：'+dmstr[4]);
EXPLAIN(1,stkname+'最后收盘价:'+numtostr(close,2));
EXPLAIN(1,bk+'共有股票:'+numtostr(stksum,0)+'只');

[ 本帖最后由 戊辰 于 2008-7-5 21:37 编辑 ]

给自己留个位置,给自己留个位置

戊晨老师你好：
看了一下、源码应该没问题、问题可能出在引用板块上。
目前可能是、某一指数内的具体指数是不能单独引用的。也可能可以引用，不过我目前还不会。
我想这个问题、去阳光应该能解决。

引用板块指数

2.gif (2.53 KB)

2008-7-1 11:42

引用A股板块

3.gif (2.69 KB)

2008-7-1 11:42

就是不能引用具体的板块指数，解决了这个问题、其它的就好办了。

留个位子,向大师学习

谢谢千钧老师,真君子也!
bk:='地产股板块'; 这一句根据自己软件内的板块----行业内的名称就可以了,
用这公式是为了找其它九只股,谢谢!这九只股还不是终极目标,是用在这里的:

DATA2的函数,"可引用其他9只品种的行情数据"
这样通过这个公式可找出同一板块中九只股的相同系数

[ 本帖最后由 戊辰 于 2008-7-1 13:53 编辑 ]

戊辰老师下午好.

留个位子,向大师学习

戊辰老师是想找出个股所属板块的所有个股数据吗？

[ 本帖最后由 顺风千里 于 2008-7-1 19:15 编辑 ]

引用:

原帖由 顺风千里 于 2008-7-1 17:38 发表
留个位子,向大师学习

戊辰老师是想找出个股所属板块的所有个股数据吗？

不是所有,也不可能所有,照这个函数也只有九只呀!

高深，只有看的份了，

引用:

原帖由 戊辰 于 2008-7-1 20:38 发表

不是所有,也不可能所有,照这个函数也只有九只呀!

参与讨论
取出所有板块个股数据是可能的(当然相应的后续程序就不用DATA2函数了)，只是还不明白老师的要求。
现在我们应当解决的是哪一步的问题，是取板块数据，还是其他？
个人认为，用DATA2函数数据局限很大，直接取个股数据求相关系数可能还好些。
老师因何选定用DATA2函数呢，两者之间有区别吗？


喜欢看到有见地思想的好贴

戊辰老师下午好.

引用:

原帖由 顺风千里 于 2008-7-2 15:48 发表


参与讨论
取出所有板块个股数据是可能的(当然相应的后续程序就不用DATA2函数了)，只是还不明白老师的要求。
现在我们应当解决的是哪一步的问题，是取板块数据，还是其他？
个人认为，用DATA2函数数据局限 ...

谢谢顺风兄,我今天怎么也上不了论台,才上来,谢谢!
一般对相同系数可认为只要比较就能求出相同系数,如MSD,我现在的做法是,一,先对板块内的股排序,二,以1为样本,再对其它九只,求
相同系数,老实说现在也只是一个想法,思路还未很清晰,总之要求出同一板块内的相同系数,请兄赐教,谢谢!

论坛故障，今天才看见。

戊辰老师，要求明白了。
迟些按兄的要求写一个，再请指正。

谢谢,看见兄的帖很欣慰,谢谢

久等了，戊辰老师。
你看是不是这样？


//引用公式名：相关引用
相关:c;
时间:DATE;


代码:=STKLABEL;
名称:=STKNAME;
字符长:=STRLEN(BLKNAME);
开始位置:=STRFIND(BLKNAME,',',1);
BK:=STRLEFT(BLKNAME,开始位置-1);//'房地产';
板块个股:=STKCOUNT(bk),linethick0;
指数类:=STKINBLOCK(STKLABEL,'板块指数'),linethick0;
指数个:=STKCOUNT('板块指数'),linethick0;
BKK:=if(指数类>0,指数个,板块个股),linethick0;
PARTLINE(1,0),COLORBLACK;
BKS:=if(指数类>0,STKCOUNT('板块指数'),STKCOUNT(BK));//板块中的证券数量
PX:='相关引用.相关';//排序指标
TT:='相关引用.时间';//排序日期
SS:=DATACOUNT;//

variable:DM1[BKS]='',VarX1[BKS]=0,VarH1[BKS]=0;

for i=1 to BKS do begin
    D:=if(指数类>0,STRRIGHT(STKFROMBLK('板块指数',i),4),STRRIGHT(STKFROMBLK(BK,i),6));//板块中第i个成员的代码
    E:=if(STKINBLOCK(STKLABEL,'板块指数'),4,6);
    DM1[i]:=strright(D,E);
    TMPC:=STKINDI(代码,PX,0,6);
    TMPM:=STKINDI(D,PX,0,6);
    TMP1:=RELATE(TMPC,TMPM,5);
    TMPP1:=STKINDI(D,TT,0,6);//板块中第i个成员在最后周期日期
    tmpPP1:=stkindi('1A0001',tt,0,6);//大盘的最后周期日期
    VarX1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
    VarH1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
end;

Nu1:=SORTPOS(VarX1,1,1,BKS);
xss:='';
xs:='';
xss1:='';
xss1d:='';
for j=1 to bks do BEGIN
zxff:=if(j=2,'                                                         正序  ','                                                               ');
dxff:=if(j=bks-1,'                                                                                                  倒序  ','                                                                                                        ');
zxsf:=if(j<10,'  ',if(j<100,' ',''))+NUMTOSTR(j,0)+'.';
dxsf:=if(bks-j+1<10,'  ',if(bks-j+1<100,' ',''))+NUMTOSTR(bks-j+1,0)+'.';
aa:=STRLEFT(STKNAMEEX(DM1[VarX1[j]]),8)+'('+DM1[VarX1[j]]+')'+'='+NUMTOSTR(VarH1[VarX1[j]],3)+{'% '+}'\n';
XSS1:=XSS1+zxff+zxsf+aa;
xss1d:=dxff+dxsf+aa+XSS1d;
end;

排序日期:tmppp1[datacount],LINETHICK,COLORWHITE;
DRAWTEXT(barpos=SYSPARAM(2),10,代码+' '+名称),COLORyellow;
DRAWTEXT(barpos=SYSPARAM(2)+20,10,'所属板块：'+if(指数类>0,'板块指数',BK)),COLORyellow;
DRAWTEXT(barpos=SYSPARAM(2),10,xss1),COLORRED;
DRAWTEXT(barpos=SYSPARAM(2),10,xss1d),COLORCYAN;