天软金融分析.NET函数大全 > 金融函数 > 网格池 > MultiProc_unit > 范例

提取50的5日涨幅    

  • //**********************参数设置***********************//
      N := 5;
      endt := today();
      stocks := getbk("上证50");

    //**********************网格模版*********************//
      gridNo := 3; //网格个数,0:表示只使用本地服务器
      func := FunctionName() + '.tsubbystocks'; //网格函数
      parms := array(N,endt,stocks);
      parmstype := array(0, 0, 1);
      return unit(MultiProc_unit).fastmap(gridNo,func,parms,parmstype);
    //***********************子函数**********************//
    function tsubbystocks(N, endt,stocks);
    begin
      sp_s(pn_date(),endt);
      i := 0;
      ret := array();

    for _,stk in stocks do
      begin
       sp_s(PN_Stock(),stk);
       for j := 0 to N do
       begin
         ret[I,'截止日'] := ref(sp_time(),j);
         ret[i,'代码'] := stk;
         ret[i,'名称'] := stockname(stk);
         ret[I,'涨幅(%)'] := ref(stockzf3(),j);
         i++;
       end
     
    end;
      return ret;
    end;

    //返回