shear
PURPOSE 
SHEAR - compute strain rate components
SYNOPSIS 
function [ux,uy,vx,vy]=shear(index,alpha,beta,u,v)
DESCRIPTION 
CROSS-REFERENCE INFORMATION 
This function calls:
This function is called by:
- stress STRESS - compute the stress components
- visc_grad VISC_GRAD - computes the derivative of the viscosity with respect to the velocity
- viscosity VISCOSITY - compute the viscosity
SOURCE CODE 
0001 function [ux,uy,vx,vy]=shear(index,alpha,beta,u,v)
0002
0003
0004
0005
0006
0007
0008
0009
0010 summation=[1;1;1];
0011 ux=(u(index).*alpha)*summation;
0012 uy=(u(index).*beta)*summation;
0013 vx=(v(index).*alpha)*summation;
0014 vy=(v(index).*beta)*summation;
Generated on Sun 29-Mar-2009 20:22:55 by m2html © 2003