求助：怎么实现这个交易思路呢？ - 策略编写求助区 - 金字塔客服中心 - 专业程序化交易软件提供商

//仅供参考

//定义开仓次数
variable:kc:=0;
variable:kcb:=0;
//满足节点1->3->7/8,开3次仓
if date<>ref(date,1) then
begin
if condA and c>ref(c,5) and kc=0 then
begin
   buy(1,1,market);
   kc:=1;
   kcb:=barpos;
   if condA and c>ref(c,5) and kc=1 and kcb<>barpos then
      begin
         buy(1,1,market);
         kc:=2;
         kcb:=barpos;
         if condA and c>ref(c,5) and kc=2 and kcb<>barpos then
            begin
                buy(1,1,market);
                kc:=3;
                kcb:=barpos;
            end
          else if condA and c<ref(c,5) then sellshort(1,0,market);
     end
end
end
//满足节点1->4->9/10,开3次仓
if date<>ref(date,1) then
begin
if condA and c>ref(c,5) and kc=0 then
begin
   buy(1,1,market);
   kc:=1;
   kcb:=barpos;
   if condA and c<ref(c,5) and kc=1 and kcb<>barpos then
      begin
         sellshort(1,0,market);
         kcb:=barpos;
         if condA and c>ref(c,5) and kc=1 and kcb<>barpos then
            begin
                buy(1,1,market);
                kc:=2;
                kcb:=barpos;
            end
          else if condA and c<ref(c,5) then buyshort(1,1,market);
     end
end
end

//满足节点2->5->11/12,开3次仓
if date<>ref(date,1) then
begin
if condA and c<ref(c,5) and kc=0 then
begin
   buyshort(1,1,market);
   kc:=1;
   kcb:=barpos;
   if condA and c>ref(c,5) and kc=1 and kcb<>barpos then
      begin
         sell(1,0,market);
         kcb:=barpos;
         if condA and c>ref(c,5) and kc=1 and kcb<>barpos then
            begin
                buy(1,1,market);
                kc:=2;
                kcb:=barpos;
            end
          else if condA and c<ref(c,5) then buyshort(1,1,market);
     end
end
end

//满足节点2->5->13/14,开3次仓
if date<>ref(date,1) then
begin
if condA and c<ref(c,5) and kc=0 then
begin
   buyshort(1,1,market);
   kc:=1;
   kcb:=barpos;
   if condA and c<ref(c,5) and kc=1 and kcb<>barpos then
      begin
         buyshort(1,0,market);
         kc:=2;
         kcb:=barpos;
         if condA and c>ref(c,5) and kc=2 and kcb<>barpos then
            begin
                sell(1,1,market);
                kcb:=barpos;
            end
          else if condA and c<ref(c,5) then buyshort(1,1,market);
     end
end
end

//如果15点收盘，14点55分全部平仓
if time>=145500 then
begin
sell(1,0,market);
sellshort(1,0,market);
end

主题：求助：怎么实现这个交易思路呢？