中多排列開盤殺到近跌停而沒關門

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

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

if  q_Last  = q_DailyHigh and {如果現價走到今日最高}

    q_DailyOpen < q_RefPrice *0.97 and {今日開低3%以上}

    q_DailyLow < q_DailyDownlimit*1.01 and  q_DailyLow > q_DailyDownlimit then {最低價逼近跌停但沒有跌停}到底距跌停?%可以讓USER自己設

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 time<100000 then  ret=1; {10點前一路走升}

end;

紅字這段看不懂