alert問題

本人在寫:
高於前5根BAR 買入
低於前5根BAR賣出
20點takeprofit
買入時:在高位回落0.3%便反向賣出

但寫了數星期ALERT 也不完成
請求各大大幫忙解決

[IntrabarOrderGeneration = True]
[SameExitFromOneEntryOnce = True]
Input: Trailing1( 20 ),Nbar( 5 ), X( 0.3 ), BuyorSellContracts(4),shareCounter1(1);
var: str(""), intrabarpersist mp1(0),intrabarpersist mp0(0), mp2(0), Starp( 0 ), TradeCounts( 0 ), Mycontracts( 0 ), TrailingPrice1( 0 ), intrabarpersist MyHigh( 0 );

var: open_alert(0), takprofit_alert(0); //false = not yet alert

mp2 = mp1;
mp1=mp0;
mp0=marketposition;
str="";

//entry
buy ("Buy") next bar at Highest(high,Nbar) +1 stop ;
sellshort ("Short") next bar at Lowest(low,Nbar)-1 stop ;
TradeCounts = PosTradeCount( 0 ) - 1 ;
Mycontracts = currentcontracts ;

if close >= Highest(high,Nbar) and open_alert = 0 then begin
str=text(str)+text(Mycontracts)+text(" buy open")+text(BuyorSellContracts);
open_alert = 1;
takprofit_alert = 0;
//end else if close > Lowest(high,Nbar) and mp1 = -1 and mp2 = -1 and open_alert = 0 then begin
//str=text(str)+text(Mycontracts)+text(" buy open")+text(BuyorSellContracts);
//open_alert = true;
//takprofit_alert = false;
end else if close <= Lowest(low,Nbar) and open_alert = 0  then begin
str=text(str)+text(Mycontracts)+text(" sell open")+text(BuyorSellContracts);
open_alert = 1;
takprofit_alert = 0;
end;

//long
if mp0 = 1 then begin
      //update high
      if mp1 <> 1 then begin
            MyHigh = High ;
      end else if High > MyHigh then MyHigh = High ;
      //backhand
            sellshort ("call to put") next bar at ( 1 - X / 100 ) * MyHigh stop ;
      //Trailing
      TrailingPrice1 = entryprice + Trailing1 points ;
      //print (date , time_s, TrailingPrice1, entryprice );
      if (close >= TrailingPrice1 and takprofit_alert = 0) then begin
         str=text(str)+text(" Ctp1 ")+text(shareCounter1);
         open_alert = 0;
         takprofit_alert = 1;
      end;
      sell ("Ctp1") next bar at TrailingPrice1 limit;
end

else if mp0 = -1 then
begin
      if mp0 <> mp1 then begin
            if (mp1 = 1) then begin
                     str=text(str)+text(" cut ")+text(Mycontracts)+text(" and call to put ")+text(PosTradeSize(0,0));
                     open_alert = 0;
            end else begin
            str=text(str)+text(" cut ")+text(Mycontracts)+text(" sell")+text(BuyorSellContracts);
            open_alert = 0;
            end;
      end ;
      //Trailing
      TrailingPrice1 = entryprice - Trailing1 points;
      if (close <= TrailingPrice1 and takprofit_alert = 0) then begin
         str=text(str)+text(" Ptp1 ")+text(shareCounter1);
         open_alert = 0;
         takprofit_alert = 1;
      end;
      buytocover ("Ptp1") next bar at TrailingPrice1 limit;
end ;

if str<>"" then begin
      alert(str);
      //print (str);
end;

论坛官方微信、群（期货热点、量化探讨、开户与绑定实盘）

期货论坛 - 版权/免责声明   1.本站发布源码(包括函数、指标、策略等)均属开放源码，用意在于让使用者学习程序化语法撰写，使用者可以任意修改语法內容并调整参数。仅限用于个人学习使用，请勿转载、滥用，严禁私自连接实盘账户交易。
  2.本站发布资讯(包括文章、视频、历史记录、教材、评论、资讯、交易方案等)均系转载自网络主流媒体，内容仅为作者当日个人观点，本网转载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。本网不对该类信息或数据做任何保证。不对您构成任何投资建议，不能依靠信息而取代自身独立判断，不对因使用本篇文章所诉信息或观点等导致的损失承担任何责任。
  3.本站发布资源(包括书籍、杂志、文档、软件等)均从互联网搜索而来，仅供个人免费交流学习，不可用作商业用途，本站不对显示的内容承担任何责任。请在下载后24小时内删除。如果喜欢，请购买正版，谢谢合作！
  4.龙听期货论坛原创文章属本网版权作品，转载须注明来源“龙听期货论坛”，违者本网将保留追究其相关法律责任的权力。本论坛除发布原创文章外，亦致力于优秀财经文章的交流分享，部分文章推送时若未能及时与原作者取得联系并涉及版权问题时，请及时联系删除。联系方式：http://www.qhlt.cn/thread-262-1-1.html