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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 老师帮我改改,谢谢

   

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


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

主题:老师帮我改改,谢谢

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


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2020/6/30 16:12:01    Post IP:58.246.57.26[显示全部帖子]

 RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
N:=BARSLAST(DATE<>REF(DATE,1))+1;
MA6:MA(C,6);
MA18:MA(C,18);
MA40:MA(C,40);
M1:=BARSLAST(CROSS(MA6,MA18)); //上一次条件满足金叉(后加)
M2:=BARSLAST(CROSS(MA18,MA6)); //上一次条件满足死叉(后加)


HH:=HHV(HIGH,6);
LL:=LLV(LOW,18);
HH1:=BARSLAST((HH > REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));

 

if (TIME>=130500 and TIME<185600  or TIME>10500 and TIME<25500)and CROSS(LL1,HH1) then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);    
end

if (TIME>=130500 and TIME<185600 or TIME> 10500 and TIME<25500) and CROSS(HH1,LL1) then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);    
end


DRAWTEXT(FILTER(((HH1 < REF(HH1,1)) AND (HH1 < LL1)),90),LOW,'加多',COLORRED);
DRAWTEXT(FILTER(((LL1 < REF(LL1,1)) AND (HH1 > LL1)),90),HIGH,'加空',COLORGREEN);

//MULTSIG(0,0,1,5);  设置软件交易时候固定轮询为5秒即可

//这部分是收盘前五分钟平仓
INPUT:X(3,1,200,1);//X表示分钟数
MARK:=0;//用于记录当前是否满足某个收盘K结束前N分钟的变量

FOR I=0 TO 1 DO  //循环遍历每个收盘时间来进行判断,这里只判断最后一节和第一节 2个时间区间
BEGIN
abb:=timetot0(CLOSETIME(I))-time0,NODRAW;//当前K线时间距离收盘K线结束倒计时
abb3:=timetot0(CLOSETIME(I))-timetot0(dynainfo(207)),NODRAW;//当前时间距离收盘K时间    
IF     (abb<X*60 and abb>=0 and (not(ISLASTBAR))) or (ISLASTBAR and  abb3>=0 and abb3<X*60) THEN MARK:=1;
END


if MARK  then //兼顾实际交易时候的信号和历史回测信号
begin
sell(holding>0,holding,market);
sellshort(holding<0,holding,market);    
end








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