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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 修正错误 图表改后台

   

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


  共有2588人关注过本帖树形打印复制链接

主题:修正错误 图表改后台

帅哥哟,离线,有人找我吗?
f三年
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:38 积分:0 威望:0 精华:0 注册:2018/10/23 11:12:13
修正错误 图表改后台  发帖心情 Post By:2019/1/1 10:47:13    Post IP:119.233.232.96[只看该作者]

图表程序是下面这个  我要改后台  然后呢  后台的手数不对  还有开仓重复了   老师帮我看下   后台程序再图表下面

N_DAY:=10;
FUND:=20000;
VAR1:=MAX(1,INTPART(Fund/(O*MULTIPLIER*0.1)));
NN:=BARSLAST(DATE<>REF(DATE,1))+1;
LENGTH_DAY:=HHV(NN,NN+62);
O_TODAY:=VALUEWHEN(NN=1,OPEN);
H_TODAY:=HHV(HIGH,NN);
L_TODAY:=LLV(LOW,NN);
H_YESTERDAY:=REF(H_TODAY,NN);
L_YESTERDAY:=REF(L_TODAY,NN);
C_YESTERDAY:=REF(C,NN);
LENGTH:=N_DAY*LENGTH_DAY;
DISTANCE:=MA(H_YESTERDAY-L_YESTERDAY,LENGTH);
ORB:=MIN(ABS(H_YESTERDAY-C_YESTERDAY),ABS(L_YESTERDAY-C_YESTERDAY));
BAND:=MAX(ORB,DISTANCE*0.1);
UPBAND:=O_TODAY+BAND;
DOWNBAND:=O_TODAY-BAND;
MAC:=MA(CLOSE,LENGTH);
MA_HH:=MA(HHV(HIGH,LENGTH),LENGTH);
MA_LL:=MA(LLV(LOW,LENGTH),LENGTH);
BUYPK:=CLOSE>UPBAND AND CLOSE>MAC AND CLOSE>MA_HH;
SELLPK:=CLOSE<DOWNBAND AND CLOSE<MAC AND CLOSE<MA_LL;
SELLY:=CLOSE<MAC AND CLOSE>ENTERPRICE;
BUYY:=CLOSE>MAC AND CLOSE<ENTERPRICE;
IF BARPOS >LENGTH THEN 
BEGIN
IF BuyPK THEN 
BEGIN
sellshort(holding<0,0,market);
Buy(holding=0,Var1,market); 
END
IF SellPK THEN
BEGIN
sell(holding>0,0,market);
buyShort(holding=0,Var1,MARKET);
END
END
if ENTERBARS>1 then
begin
卖盈:SELL(holding>0 and SellY,0,market);
买盈:SELLSHORT(holding<0 and BuyY,0,market);
end


后台

N_DAY:=10;
FUND:=20000;
VAR1:=MAX(1,INTPART(Fund/(O*MULTIPLIER*0.1)));
NN:=BARSLAST(DATE<>REF(DATE,1))+1;
LENGTH_DAY:=HHV(NN,NN+62);
O_TODAY:=VALUEWHEN(NN=1,OPEN);
H_TODAY:=HHV(HIGH,NN);
L_TODAY:=LLV(LOW,NN);
H_YESTERDAY:=REF(H_TODAY,NN);
L_YESTERDAY:=REF(L_TODAY,NN);
C_YESTERDAY:=REF(C,NN);
LENGTH:=N_DAY*LENGTH_DAY;
DISTANCE:=MA(H_YESTERDAY-L_YESTERDAY,LENGTH);
ORB:=MIN(ABS(H_YESTERDAY-C_YESTERDAY),ABS(L_YESTERDAY-C_YESTERDAY));
BAND:=MAX(ORB,DISTANCE*0.1);
UPBAND:=O_TODAY+BAND;
DOWNBAND:=O_TODAY-BAND;
MAC:=MA(CLOSE,LENGTH);
MA_HH:=MA(HHV(HIGH,LENGTH),LENGTH);
MA_LL:=MA(LLV(LOW,LENGTH),LENGTH);
BUYPK:=CLOSE>UPBAND AND CLOSE>MAC AND CLOSE>MA_HH;
SELLPK:=CLOSE<DOWNBAND AND CLOSE<MAC AND CLOSE<MA_LL;
SELLY:=CLOSE<MAC AND CLOSE>ENTERPRICE;
BUYY:=CLOSE>MAC AND CLOSE<ENTERPRICE;
IF BARPOS >LENGTH THEN 
BEGIN
IF BuyPK THEN 
BEGIN
sellshort(holding<0,0,market);
Buy(holding=0,Var1,market); 
END
IF SellPK THEN
BEGIN
sell(holding>0,0,market);
buyShort(holding=0,Var1,MARKET);
END
END
if ENTERBARS>1 then
begin
卖盈:SELL(holding>0 and SellY,0,market);
买盈:SELLSHORT(holding<0 and BuyY,0,market);
end





 回到顶部
帅哥哟,离线,有人找我吗?
yukizzc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2019/1/2 9:02:49    Post IP:180.169.30.6[只看该作者]

下面这个和上面一样,都是图表的

 回到顶部
帅哥哟,离线,有人找我吗?
f三年
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:38 积分:0 威望:0 精华:0 注册:2018/10/23 11:12:13
  发帖心情 Post By:2019/1/3 11:29:56    Post IP:119.233.140.175[只看该作者]

求老师帮忙改下后台 谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
wenarm
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:26632 积分:0 威望:0 精华:7 注册:2015/4/9 14:59:07
  发帖心情 Post By:2019/1/3 13:18:05    Post IP:180.169.30.6[只看该作者]

你把你后台修改的策略贴出来看下,我们看下具体什么地点造成的差异。


编程无捷径,技巧靠积累。
 回到顶部
帅哥哟,离线,有人找我吗?
f三年
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:38 积分:0 威望:0 精华:0 注册:2018/10/23 11:12:13
  发帖心情 Post By:2019/1/3 16:23:05    Post IP:119.233.140.175[只看该作者]

老师  看下  这是修改的 


N_DAY:=10;
FUND:=20000;
VAR1:=MAX(1,INTPART(Fund/(O*MULTIPLIER*0.1)));
NN:=BARSLAST(DATE<>REF(DATE,1))+1;
LENGTH_DAY:=HHV(NN,NN+62);
O_TODAY:=VALUEWHEN(NN=1,OPEN);
H_TODAY:=HHV(HIGH,NN);
L_TODAY:=LLV(LOW,NN);
H_YESTERDAY:=REF(H_TODAY,NN);
L_YESTERDAY:=REF(L_TODAY,NN);
C_YESTERDAY:=REF(C,NN);
LENGTH:=N_DAY*LENGTH_DAY;
DISTANCE:=MA(H_YESTERDAY-L_YESTERDAY,LENGTH);
ORB:=MIN(ABS(H_YESTERDAY-C_YESTERDAY),ABS(L_YESTERDAY-C_YESTERDAY));
BAND:=MAX(ORB,DISTANCE*0.1);
UPBAND:=O_TODAY+BAND;
DOWNBAND:=O_TODAY-BAND;
MAC:=MA(CLOSE,LENGTH);
MA_HH:=MA(HHV(HIGH,LENGTH),LENGTH);
MA_LL:=MA(LLV(LOW,LENGTH),LENGTH);
BUYPK:=CLOSE>UPBAND AND CLOSE>MAC AND CLOSE>MA_HH;
SELLPK:=CLOSE<DOWNBAND AND CLOSE<MAC AND CLOSE<MA_LL;
SELLY:=CLOSE<MAC AND CLOSE>ENTERPRICE;
BUYY:=CLOSE>MAC AND CLOSE<ENTERPRICE;
IF tbuyholding(1)>0 and BARPOS >LENGTH  and SELLPK THEN tsell(1,tbuyholding(1),mkt);
if tsellholding(1)>0 and  BARPOS >LENGTH  and BUYPK  THEN tsellshort(1,tsellholding(1),mkt);
if TBUYHOLDING(1)=0 and tsellholding(1)=0  and  BARPOS >LENGTH  and BUYPK then tbuy(1,Var1,mkt);
if TBUYHOLDING(1)=0 and tsellholding(1)=0  and  BARPOS >LENGTH  and SELLPK then tbuyshort(1,Var1,mkt);
if tbuyholding(1)>0 and TENTERBARS>1 and SELLY then  tSELL(1,tbuyholding(1),mkt);
if tsellholding(1)>0 and TENTERBARS>1 and BUYY then  tSELL(1,tsellholding(1),mkt);

 回到顶部
帅哥哟,离线,有人找我吗?
FireScript
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2019/1/4 9:25:36    Post IP:180.169.30.6[只看该作者]

 ENTERPRICE 这是图表上的。你怎么用在后台代码里面了。

SELLY:=CLOSE<MAC AND CLOSE>ENTERPRICE;
BUYY:=CLOSE>MAC AND CLOSE<ENTERPRICE;

这段代码编译时候应该直接就报提示的啊,你换成tENTERPRICE。

然后还有这里

if tsellholding(1)>0 and TENTERBARS>1 and BUYY then  tSELL(1,tsellholding(1),mkt);

你是要平空吧。怎么写成平多了。




命数如织,当如磐石。
 回到顶部