以下代码实现这个交易思想不知道哪里错了回测没有数据 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 以下代码实现这个交易思想不知道哪里错了回测没有数据

共有3487人关注过本帖树形打印复制链接主题：以下代码实现这个交易思想不知道哪里错了回测没有数据

TomRidder716

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：155 积分：0 威望：0 精华：0 注册：2016/8/8 9:03:02

Post By：2016/12/2 10:47:51 Post IP：113.137.33.188[只看该作者]

inputs:
LengthShort(9),LengthLong(45),BIASLength(6),n(2);
vars:
BIAS(0);
if Xaverage(close,LengthShort) crosses above Xaverage(close,LengthLong) then condition1=true;
value1=Xaverage(close,LengthShort)-Xaverage(close,LengthLong);

bias=XAverage(value1,n);
if condition1=true and Bias[2]>bias[1] and Bias[1] <Bias and Bias<BIASLength then begin
buy next bar at market;
end;
if Xaverage(close,LengthShort) crosses under Xaverage(close,LengthLong) then
begin
condition1=false;
sell next bar at market;
end;

if Xaverage(close,LengthShort) crosses below Xaverage(close,LengthLong) then condition2=true;
if condition2=true and Bias[2]<bias[1] and Bias[1] >Bias and Bias<BIASLength then
begin
sellshort next bar at market;
end;
if Xaverage(close,LengthShort) crosses above Xaverage(close,LengthLong) then
begin
condition2=false;
buytocover next bar at market;
end;

这个是mc 源码你们可以试着改写成pel语言

jinzhe

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25

Post By：2016/12/2 10:55:56 Post IP：180.169.30.6[只看该作者]

INPUT : SHORT(1,1,10,1),LONG(2,2,50,1),LENGTH(6,6,9,1),N(2,2,3,1),SS(5,1,100,1);//变量
SHORT1:MA(C,SHORT);//短线平均
LONG1:MA(C,LONG);//C长线平均
//VARIABLE:BIAS[10000]:=0;//数据赋值
VARIABLE:CONDITION1:=0;//变量1
VARIABLE:CONDITION2:=0;//变量2
W:=todaybar;//得到K线个数
///定义买入条件1
IF CROSS(SHORT1,LONG1) THEN BEGIN
CONDITION1:=1;
END
///
BIAS:=SHORT1-LONG1;//定义变量1 等于两条线之间的距离
//变量赋值
///买入条件拉伸成立

IF CONDITION1=1 AND W>1 AND ref(bias,1)=hhv(bias,3) and holding=0 and bias<length THEN BEGIN
BUY(1,SS,MARKET);
END
////穿过卖出
IF CROSS(LONG1,SHORT1) and holding>0 THEN BEGIN
CONDITION1:=0;
SELL(1,SS,MARKET);
END

if cross(long1,short1) then condition2:=1;
if condition2=1 and ref(bias,1)=llv(bias,3) and Bias<Length then
begin
sellshort(1,0,market);
end;
if cross(short1,long1) and holding<0 then
begin
condition2:=0;

buyshort(1,0,market);

end;

[此贴子已经被作者于2016-12-2 11:01:22编辑过]