以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [求助]排列引用问题  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=30493)
--  作者：PanS
--  发布时间：2012/11/8 15:13:26
--  [求助]排列引用问题

K1:TINSORT(\'A1\',\'KDJ.K\',1)；

横向排列里有一个MAX值和一个MIN值，我要这2个值呢？

比如：KDJ.K

1  K值的排列有一个最大值与一个最小值，我需要这2个值如何引用。

2  我要得到K值排列最大值的品种代码与最小值的品种代码如何引用。
--  作者：jinzhe
--  发布时间：2012/11/8 15:48:36
--  
排列之后输出a1[1]吧
--  作者：PanS
--  发布时间：2012/11/8 16:00:34
--  

详细点啊 老大
--  作者：jinzhe
--  发布时间：2012/11/8 16:24:21
--  
这个等高人来解释吧，这个函数解释看不明白，光说了如何使用，没说使用之后的如何调用变化后的数据
--  作者：PanS
--  发布时间：2012/11/8 16:48:24
--  

KMAX:TINSORT(\'A1\',\'KDJ.K\',1)；

KMIN :TINSORT(\'A1\',\'KDJ.K\',0)；

If KMAX=1 then maxpz:=STKNAME;
if KMIN=1 then minpz:=STKNAME;

    DEBUGFILE(\'E:\\debugfile.txt\',MAXPZ,1);
    DEBUGFILE(\'E:\\debugfile.txt\',MINPZ,1);// 品种得到了 输出可以查看

Maxzz:stkindi(\'maxpz\',\'KDJ.K\',0,6);
Minzz:stkindi(\'minpz\',\'KDJ.K\',0,6);  //但是这里的值又引用不出来
--  作者：RogarZ
--  发布时间：2012/11/8 17:46:52
--  

K1:TINSORT(\'A1\',\'KDJ.K\',1)；

 

例子里一共5个品种，最大的K1=1 最小的K1=5

If K1=1 then maxpz:=STKNAME;
if K1=5  then minpz:=STKNAME;

    DEBUGFILE(\'E:\\debugfile.txt\',MAXPZ,1);
    DEBUGFILE(\'E:\\debugfile.txt\',MINPZ,1);// 品种得到了 输出可以查看

Maxzz:stkindi(\'maxpz\',\'KDJ.K\',0,6);
Minzz:stkindi(\'minpz\',\'KDJ.K\',0,6);  //但是这里的值又引用不出来

 

 

debugfile这个函数的目的是为了后台的调试只能写文件，

你必须得去读文件才能得到值啊~   PEL不支持读文件 只有VBA才能实现

所以红字部分是无效的
--  作者：PanS
--  发布时间：2012/11/12 11:01:59
--  

了解。VBA扩展才能实现。TINSORT函数 还是达不到VBA扩展的效果。