Changeset 434 for trunk/src/read_get_field.m

Timestamp:

May 29, 2012, 11:02:08 PM (12 years ago)

Author:

sommeria

Message:

corrections in the use of get_field
test_tps introduced, to test thin plate shell functions
tps-eval_dxy corrected (bug on the calculation of the derivatives fixed)

File:

• trunk/src/read_get_field.m (modified) (1 diff)

trunk/src/read_get_field.m

@@ -768 +768 @@
     for ilist=1:numel(VarIndex_y)
         VarName=Field.ListVarName{VarIndex_y(ilist)};
-        eval(['npxy=size(SubField.' VarName ');'])
+        npxy=size(SubField.(VarName));
         ind_select=find(npxy~=1);
         SubField.VarDimName{subvarindex(ilist)}=SubField.VarDimName{subvarindex(ilist)}(ind_select);
-        eval(['SubField.' VarName '=squeeze(SubField.' VarName ');'])%remove singleton dimensions
+        SubField.(VarName)=squeeze(SubField.(VarName));%remove singleton dimensions
         if testpermute(ilist)
-            eval(['SubField.' VarName '=permute(SubField.' VarName ',[2 1]);'])
+            SubField.(VarName)=permute(SubField.(VarName),[2 1]);
             SubField.VarDimName{subvarindex(ilist)}=SubField.VarDimName{subvarindex(ilist)}([2 1]);
         end