endt:=20251203t;
  rdate:=20241231;
  yz:=5;//阈值
  field:="权重(%)";
  arr:=select thisrow as "代码",spec(DividendYield6(rdate,endt),thisrow) as "股息率(%)" from GetbkbyDate("SH000016",endt) end;
  sumgxl:=sum(arr[:,"股息率(%)"]);
  
  arr:=select *,w:=["股息率(%)"]/sumgxl*100 as nil,
         w<=yz?w:yz as field
     from arr end;
  sumw:=sum(arr[:,field]);
  
  rt:=array();
  //将多余的权重重新分配
  if CompareValue(sumw-100,0,0.001) then
  begin
    rt&=select * from arr where [field]=yz end;
    arr_:=select * from arr where [field]<yz end;
    w_:=100-sumw;
    tsdn_getdataweigh(arr_,w_,yz,field,rt);
  end
  else
    rt:=arr;
  return rt;
  return sum(rt[:,field]);//100
  
function tsdn_getdataweigh(arr,w,yz,field,rt);
begin
{
  迭代分配权重
}
  sumw:=sum(arr[:,field]);
  update arr set [field]=([field]+w*[field]/sumw)<yz?([field]+w*[field]/sumw):yz end;
  allw:=sum(arr[:,field]);
  if CompareValue(allw,sumw+w,0.001)=0 then
  begin
    rt&=select * from arr where [field]<=yz end;
    return ;
  end
  else
  begin
    rt&=select * from arr where [field]=yz end;
    w_:=sumw+w-allw;
    arr_:=select * from arr where [field]<yz end;
    tsdn_getdataweigh(arr_,w_,yz,field,rt);
  end
end