Home > lattice > atshiftelem.m

atshiftelem

PURPOSE

ATSHIFTELEM set new displacement parameters

SYNOPSIS

function elem = atshiftelem(elem,dx,dz)

DESCRIPTION

ATSHIFTELEM set new displacement parameters
NEWELEM=ATSHIFTELEM(OLDELEM,DX,DZ)

DX:    horizontal element displacement
DZ:    Vertical element displacement

See also: attiltelem, atmodelem

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

atsetshift ATSETSHIFT sets the misalignment vectors

SOURCE CODE

0001 function elem = atshiftelem(elem,dx,dz)
0002 %ATSHIFTELEM set new displacement parameters
0003 %NEWELEM=ATSHIFTELEM(OLDELEM,DX,DZ)
0004 %
0005 %DX:    horizontal element displacement
0006 %DZ:    Vertical element displacement
0007 %
0008 %See also: attiltelem, atmodelem
0009 
0010 disp=[dx;0;dz;0;0;0];
0011 elem.T1=-disp;
0012 elem.T2=disp;
0013 end