functions returns a new ring with a different value for K1 of fam
0001 function R=VaryQuadFam(R,K1val,fam) 0002 % 0003 % functions returns a new ring with a different value for K1 of fam 0004 0005 indfam=findcells(R,'FamName',fam); 0006 %*ones(size(indfam)) 0007 R=setcellstruct(R,'PolynomB',indfam,K1val*ones(size(indfam)),1,2); 0008