0001 function r=VaryMagLength(r,DL,indP,indM) 0002 0003 ndp=length(indP); 0004 ndm=length(indM); 0005 0006 r=atsetfieldvalues(r,indP,'Length',atgetfieldvalues(r,indP,'Length')+DL/ndp); 0007 r=atsetfieldvalues(r,indM,'Length',atgetfieldvalues(r,indM,'Length')-DL/ndm); 0008 0009 return