wigtaylor2
PURPOSE
WIGGLER('FAMILYNAME',Length [m], Order, NumOfVar, MapX, NumOfMonoX, MapPx, NumOfMonoPx,
SYNOPSIS
function z=wigtaylor2(fname,L,no,nv,x,nx,px,npx,y,ny,py,npy,delta,ndelta,t,nt,t1,t2,method)
DESCRIPTION
CROSS-REFERENCE INFORMATION
This function calls:
This function is called by:
SOURCE CODE
0001 function z=wigtaylor2(fname,L,no,nv,x,nx,px,npx,y,ny,py,npy,delta,ndelta,t,nt,t1,t2,method)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028 NumOfColumns = 9;
0029
0030 ElemData.FamName = fname;
0031 ElemData.Length = L;
0032 ElemData.Order = no;
0033 ElemData.NumOfVar = nv;
0034
0035 for i=1:nx
0036 for j=1:NumOfColumns
0037 ElemData.MapX(i,j) = x(i,j);
0038 end
0039 end
0040 ElemData.NumOfMonoX = nx;
0041
0042 for i=1:npx
0043 for j=1:NumOfColumns
0044 ElemData.MapPx(i,j) = px(i,j);
0045 end
0046 end
0047 ElemData.NumOfMonoPx = npx;
0048
0049 for i=1:ny
0050 for j=1:NumOfColumns
0051 ElemData.MapY(i,j) = y(i,j);
0052 end
0053 end
0054 ElemData.NumOfMonoY = ny;
0055
0056 for i=1:npy
0057 for j=1:NumOfColumns
0058 ElemData.MapPy(i,j) = py(i,j);
0059 end
0060 end
0061 ElemData.NumOfMonoPy = npy;
0062
0063 for i=1:ndelta
0064 for j=1:NumOfColumns
0065 ElemData.MapDelta(i,j) = delta(i,j);
0066 end
0067 end
0068 ElemData.NumOfMonoDelta = ndelta;
0069
0070 for i=1:nt
0071 for j=1:NumOfColumns
0072 ElemData.MapT(i,j) = t(i,j);
0073 end
0074 end
0075 ElemData.NumOfMonoT = nt;
0076
0077 ElemData.R1 = diag(ones(6,1));
0078 ElemData.R2 = diag(ones(6,1));
0079 ElemData.T1 = t1;
0080 ElemData.T2 = t2;
0081 ElemData.PassMethod = method;
0082
0083 global FAMLIST
0084 z = length(FAMLIST)+1;
0085 FAMLIST{z}.FamName = fname;
0086 FAMLIST{z}.NumKids = 0;
0087 FAMLIST{z}.KidsList= [];
0088 FAMLIST{z}.ElemData= ElemData;
Generated on Mon 21-May-2007 15:26:45 by m2html © 2003