!   TITLE:  gyro_flex.mac
!
!---------------------------------------------------------------------------
!       Rev -   09/15/2001      D. Edwards
!---------------------------------------------------------------------------
!
!   This macro builds the AAAV gyro flex tape.
!
!               P/N: SK535A037
!
!   CSgft0:     Cartesian Gyro Flex Tape Coordinate System
!   CSgft1:     Cylindrical Gyro Flex Tape Coordinate System
!   CSgft2:     Spherical Gyro Flex Tape Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!      Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!   4.  FEA Model
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gyro_flex.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------- 3.1  Create Initial Profile Volume ----------------
!
csys,CSgft0

! Nodes
*do,i,0,num
    n,,i*el,0
*enddo

! Elements
mat,flex
type,4
*do,i,1,num
    e,i,i+1
*enddo

! Nodal constraints
d,1,all,0

!d,num+1,ux,-.2
!d,num+1,uy,.2
!d,num+1,rotz,0

d,num+1,ux,flex_ux
d,num+1,uy,flex_uy
d,num+1,rotz,flex_rz

fini
!
! Solve for deflected shape
!
/sol

antype,static

!solcontrol,off,off

nlgeom,on
cnvtol,U,,.02
!cnvtol,ROT,,.05
!cnvtol,F,value, toler, norm, minref
!cnvtol,M,value, toler, norm, minref

!ARCLEN, Key, MAXARC, MINARC
!arclen,on,3,.005


autots,on
nsubst,500
!kbc,0

lnsrch,auto             ! Use line search method
!pred,on,,on

acel,0,386

neqit,50

solve

fini

/post1

/dscale,1,1.0

/eface,1
avprin,0,0,
/view,1,,,1

plnsol,u,sum,2,1

:skip