開盤後十五分鐘內一路向上不回頭但漲幅在2%以內

if barfreq <> "Tick" then RaiseRuntimeError("請設定頻率為TICK");

variable:BarNumberOfToday(0); if Date <> Date[1] then  BarNumberOfToday=1 else  BarNumberOfToday+=1;{記錄今天的Bar數}

if Date =currentdate  then begin

  variable: Point(0),idx(0),tTime(0);tTime=0;

  Point = intportion( BarNumberOfToday/10);

   for idx = 0 to 9

   begin

      if  Close[idx*Point] > Close[(idx+1)*Point] then  tTime+=1; {推升時記1}

   end; 

  

   if tTime > Point*0.7 and Point>= 3 and{30多個價幾乎一路向上}

      Timediff(Time,Time[BarNumberOfToday-1],"M") < 15{分鐘} and {離開盤第1個價15分鐘內}

      q_PriceChangeRatio < 2 {漲幅仍在2%內}

   then   ret=1;

  

end;