轮回小屋

轮回

圈块地皮,盖个小屋,与朋友一块来品茶.

轮回

//------------------------------------------------------------------------
// 简称: ExportData
// 名称: K线数据导出
// 类别: 用户函数
// 类型: 内建函数
// 输出: 布尔型
// 语法: ExportData(路径) //不带参数的默认路径为当前磁盘的"\交易开拓者\K线数据"
// 例1:  begin        ExportData;        End        //如K图为ZN0710,将在当前目录下生成"K线数据沪锌0710.txt"的文件
//------------------------------------------------------------------------

Params
        String Num("..\\交易开拓者\\K线数据");
Vars
        String FileName;

Begin
        FileName=Left(Num,Len(Num)-4)+SymbolName+".txt";
        If (CurrentBar > 0)
        {
                FileAppend(FileName,Text(Year)+"/"+Text(Month)+"/"+Text(Day)+","+Text(Hour)+":"+Text(Minute)+","+
                Text(O)+","+Text(H)+","+Text(L)+","+Text(C)+","+Text(V)+","+Text(OpenInt));
        }
        Else
        {
                FileAppend(FileName,"日期"+","+"时间"+","+"开盘价"+","+"最高价"+","+"最低价"+","+"收盘价"+","+"成交量"+","+"持仓量");
                FileAppend(FileName,Text(Year)+"/"+Text(Month)+"/"+Text(Day)+","+Text(Hour)+":"+Text(Minute)+","+
                Text(O)+","+Text(H)+","+Text(L)+","+Text(C)+","+Text(V)+","+Text(OpenInt));
        }
        Return(True);
End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2007/08/20 21:49
// 版权所有        轮回
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

轮回

//------------------------------------------------------------------------
// 简称: HHV
// 名称: 求N周期的最高值
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
// 语法: HHV(序列变量名,长度)
// 例1:  H30=HHV(MA5,30);//求MA5在30K的最高值.  
// 例2:  H90=HHV(H,90);  //求90K的最高价.
//------------------------------------------------------------------------

Params
        NumericSeries Name(0);
        Numeric Length(5);
Vars
        Numeric highestValue(0);
        Numeric i;
Begin
        for i=0 to Length-1
        {
                highestValue=Max(highestValue,Name);
        }
        Return highestValue;
End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2007/08/19 10:32
// 版权所有        轮回
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

轮回

//------------------------------------------------------------------------
// 简称: LLV
// 名称: 求N周期的最低值
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
// 语法: LLV(序列变量名,长度)
// 例1:  L30=LLV(MA5,30);//求MA5在30K的最低值.  
// 例2:  L90=LLV(L,90);  //求90K的最低价.
//------------------------------------------------------------------------

Params
        NumericSeries Name(0);
        Numeric Length(5);
Vars
        Numeric lowestValue(999999);
        Numeric i;
Begin
        for i=0 to Length-1
        {
                lowestValue=Min(lowestValue,Name);
        }
        Return lowestValue;
End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2007/08/19 10:34
// 版权所有        轮回
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

ddbq

支持轮回老师,我会常来逛逛.
tb的用户函数里面好象是使用highest()和lowest()来求最高值和最低值.不像其他软件都使用hhv和
llv吧. 如果tb软件的老师们能够像轮回老师这样写用户函数说明,那就太好了.

stevehans

学习中。很蒙阿。岁数大了

guidaon

K线数据导出

怎么用

nopain

nopain

原帖由 ddbq 于 2007-8-21 00:22 发表
支持轮回老师,我会常来逛逛.
tb的用户函数里面好象是使用highest()和lowest()来求最高值和最低值.不像其他软件都使用hhv和
llv吧. 如果tb软件的老师们能够像轮回老师这样写用户函数说明,那就太好了. ...

用户函数的帮助正在编写中...

轮回

原帖由 guidaon 于 2007-8-21 09:00 发表
K线数据导出

怎么用

Begin
      ExportData;
End