Home > pubtools > lattice_tools > setsext.m

setsext

PURPOSE

newring=setsext(ring,fam,val);

SYNOPSIS

function newring=setsext(ring,sextfam,val)

DESCRIPTION

newring=setsext(ring,fam,val);
note: use integrated strengths.  If it is a thick sext, then the length
will be divided out to put the correct value in the polynomB

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

setsextall newring=setsextall(ring,fam,val);

SOURCE CODE

0001 function newring=setsext(ring,sextfam,val)
0002 %newring=setsext(ring,fam,val);
0003 %note: use integrated strengths.  If it is a thick sext, then the length
0004 %will be divided out to put the correct value in the polynomB
0005 newring=ring;
0006 ind=findcells(newring,'FamName',sextfam);
0007    
0008 for j=1:length(ind)
0009     val0=val;
0010     if strcmp(ring{ind(j)}.BetaCode,'SX'), val0=val0/(ring{ind(j)}.Length); end;
0011     newring{ind(j)}.PolynomB(3)= val0;
0012 end