Changeset 9366

Timestamp:

08/22/11 08:15:57 (14 years ago)

Author:

Mathieu Morlighem

Message:

some cleanup

Location:

issm/trunk/src/m/model

Files:

• shear2d.m (modified) (2 diffs)
• shearnorm2d.m (deleted)

issm/trunk/src/m/model/shear2d.m

@@ -6 +6 @@
 %   Usage:
 %      [sx,sy,sxy,s]=shear2d(md);
+%      s=shear2d(md);
 
 [alpha beta]=GetNodalFunctionsCoeff(md.elements,md.x,md.y); 
@@ -16 +17 @@
 sxy=(uy+vx)/2;
 s=sqrt(sx.^2+sy.^2+sxy.^2+sx.*sy);
+
+%if user requested only one output, it must be the norm
+if nargout==1,
+        sx=s;
+end