/////////////////////////////////范例I:非篮子交易///////////////////////////////////////
argv:=array("柜台名":"Tinysoft","账号属性":"","账号":"10000003","密码":"10000003");
h:=TT_UserLogin(argv["柜台名"],argv['账号属性'],argv["账号"],argv["密码"],20000,err);
//得到VWAP策略参数和缺省值
VWAPPara:=TS_ATGetParamterandDefaultValue(argv, "TSVWAP");
//修改VWAP策略的某个参数(预测量分布,用过去60天数据,其余用系统缺省参数)
VWAPPara["预测量分布所用历史天数"]:=60;
//设置要交易股票的代码&交易方向&数量
VWAPPara["代码"]:="SZ000002";
VWAPPara["交易方向"]:="B";
VWAPPara["数量"]:=10000;
//调用天软算法交易模型,得到订单号
OrderID:=TS_ATStart(h,VWAPPara,2000,err);
Return OrderID;
/////////////////////////////////范例I:非篮子交易///////////////////////////////////////
/////////////////////////////////范例II:篮子交易/////////////////////////////////////////
//要买卖的股票篮子
StockArr:=array(
("代码":"SZ000001","交易方向":"B","多空标志":"L","数量":1000),
("代码":"SZ000002","交易方向":"B","多空标志":"L","数量":2000),
("代码":"SZ000003","交易方向":"B","多空标志":"L","数量":3000),
);
argv:=array("柜台名":"Tinysoft","账号属性":"","账号":"10000003","密码":"10000003");
h:=TT_UserLogin(argv["柜台名"],argv['账号属性'],argv["账号"],argv["密码"],20000,err);
//篮子交易缺省参数
BasketPara:=TS_ATGetParamterandDefaultValue(Argv,"TSBasket");
//篮子交易开始时间、结束时间
BasketPara['策略开始时间']:=date()+EncodeTime(09,31,0,0);
BasketPara['策略结束时间']:=date()+EncodeTime(09,35,0,0);
for nI:=0 to length(StockArr)-1 do
begin
//篮子中的股票交易策略
Para:=TS_ATGetParamterandDefaultValue(Argv,"TSQuickOrder");
Para["代码"]:=StockArr[nI]["代码"];
Para["交易方向"]:=StockArr[nI]["交易方向"];
Para["数量"]:=StockArr[nI]["数量"];
TS_ATAddItemToBasket(BasketPara,Para);
end;
//调用天软算法交易模型,得到订单号
OrderID:=TS_ATStart(h,BasketPara,20000,ErrStr);
return OrderID;
/////////////////////////////////范例II:篮子交易/////////////////////////////////////////