/TITLE, Your name and date here, truss3d2.a
 ! 3d truss, Beer, Page 293, 6-40
 ! Force Q at node 1 is -9kip k

/COLOR,PBAK,off   ! black background
/PREP7            ! preprocessor section
ET,1,Link8        ! Type 8 is a 3d spar
R,1,1.0           ! area
MP,EX,1,29e6      ! Young's modulus, steel
MP,DENS,1,0.284   ! steel density, lbs/cu in
ACEL,,1           ! gravity

N,1,0,       (3*12), 0      ! Node A
N,2,(-0.6*12),0,(0.75*12)   ! Node B
N,3,(1.2*12), 0,(0.75*12)   ! Node C
N,4,(1.2*12), 0,(-2.25*12)  ! Node D
N,5,(-0.6*12),0,(-2.25*12)  ! Node E
/pnum,node,1

TYPE,1           ! Spar
REAL,1           ! steel area
MAT,1            ! steel E
E,1,2            ! Elem 1, node 1-2
E,1,3
E,1,4
E,1,5
E,2,3            ! Elem 2, node 2-3
E,2,5
E,3,4
E,3,5
E,4,5
APLOT,all        ! plot all areas

FINISH           ! preprocessor section

/SOLUTION        ! solution section
antype,static
outpr,basic,1
outpr,nload,1

D,2,UX,0          ! Fix X at node 1
D,2,UY,0          ! Fix Y at node 1
D,2,UZ,0
D,3,UY,0          ! Fix Y at node 3
D,4,UY,0          ! Fix X at node 4
D,4,UZ,0          ! Fix Y at node 4
F,1,FZ,-9e3       ! Z load at node 1

! /output,Mass,txt,D:\Ansys\   !  mass
 /output,Mass,txt,U:\win\Ansys\   !  mass
solve
/PBC,ALL,1
eplot              ! element plot
FINISH             ! solution section

/POST1             ! post processor
etable,STR,ls,1,3
pldisp,1           ! plot displacements
! /OUTPUT,Displ,txt,D:\Ansys\   !  displacements
 /OUTPUT,Displ,txt,U:\win\Ansys\   !  displacements

PRNSOL,U           ! show displacements
! /OUTPUT,Stress,txt,D:\Ansys\   !  forces and stresses
 /OUTPUT,Stress,txt,U:\win\Ansys\   !  forces and stresses
PRRSOL             ! show forces
PRETAB             ! stresses
! FINISH             ! post processor

!  TYPE      MASS
!     1     93.040

!    NODE      UX          UY          UZ
!       1 -0.23356E-01 -0.94745E-02 -0.56371E-01
!       2  0.0000       0.0000       0.0000
!       3  0.54738E-05  0.0000       0.46800E-02
!       4  0.42697E-01  0.0000       0.0000
!       5  0.40008E-01 -0.58883E-01 -0.74597E-02

!    NODE      FX          FY          FZ
!       2  0.84492E-11  50.292      6000.0
!       3              -8998.8
!       4               9041.6      3000.0

!    ELEM    STR
!       1  -38.583    A-B
!       2   9971.6    A-C
!       3  -11847.    A-D
!       4   26.093    A-E
!       5   7.3491    B-C
!       6   6009.2    B-E
!       7   3770.0    C-D
!       8  -7025.9    C-E
!       9   3610.7    D-E