home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / r / rlab / CTB / xgpart < prev    next >
Encoding:
Text File  |  1995-11-15  |  328 b   |  20 lines
  1. //---------------------------------------------------
  2. //
  3. // [AG] = xgpart(A,nu,nz,nc)
  4. //
  5. // Returns the corresponding "G" partition from A
  6. //
  7. // L.D. Peterson
  8. // version 900305
  9. //
  10. //---------------------------------------------------
  11.  
  12. xgpart = function(A,nu,nz,nc)
  13. {
  14.    local(AG);
  15.  
  16.    AG = A[1:nu;nz+1:nz+nc];
  17.  
  18.    return AG;
  19. };
  20.