Home > pubtools > lattice_tools > scalesext.m

scalesext

PURPOSE

newring=scalesext(ring,sextfam,scale)

SYNOPSIS

function newring=scalesext(ring,sextfam,scale)

DESCRIPTION

newring=scalesext(ring,sextfam,scale)

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

sext_sens_scan esrf(:)

SOURCE CODE

0001 function newring=scalesext(ring,sextfam,scale)
0002 %newring=scalesext(ring,sextfam,scale)
0003 newring=ring;
0004 ind=findcells(newring,'FamName',sextfam);
0005 for j=1:length(ind)
0006     newring{ind(j)}.PolynomB(3)= newring{ind(j)}.PolynomB(3)*scale;
0007 end