//万科在指定区间内的均线穿越情况；
  setsysparam(pn_stock(),'SZ000002');
  end_date := inttodate(20110829);
  beg_date := IncWeek(end_date,-1); //end_date 前推一个
  r := array();
  i := 0;
  for d := end_date downto beg_date do
  begin
   if not istradeday(d) then continue;
   setsysparam(pn_date(),d);
r[i]['date'] := datetostr(d);
   case cross(close(),ma(close(),5)) of
   1:begin
     r[i]['cross_state'] := '突破5日均线';
    end
   -1:begin
     r[i]['cross_state'] := '跌破5日均线';
    end
   0:begin
     r[i]['cross_state'] := '';
    end
   end;
   i++;
  end;
  return r;