/TITLE, 8 nodes, four tension elements,  trussten.a
  ! Truss with four tension-only elements
  ! For original area, FOM = 4.0, wt = 175

/COLOR,PBAK,off    ! black background
/PREP7             ! preprocessor section
p1 = -25e3 
ET,1,Link1         ! Type 1 is a spar
R,1,3              ! Original area
ET,2,Link10        ! Type 10 is a tension-only spar
R,2,2              ! area diagonal elements
MP,EX,1,30e6       ! Young-s modulus, material 1
MP,DENS,1,0.284    ! steel density, lbs/cu in
ACEL,,1            ! gravity

! bottom nodes, don't change the next three lines
N,1,0              ! Node 1
N,5,40             ! Node 5
FILL,1,5           ! nodes 2,3,4

! top nodes
N,7,20,10*sqrt(3)
N,6,10,10*sqrt(3)
N,8,30,10*sqrt(3)
/pnum,node,1

TYPE,1             ! element type 3 (beam)
MAT,1              ! material property MP 1 (steel)
REAL,1             ! original area
! bottom elements
E,1,2              ! bottom left element  1
E,4,5              ! bottom right element 2
E,2,3              ! bottom left-center element 3
E,3,4              ! bottom right-center element 4
! far left and right elements
E,1,6              ! left 5
E,8,5              ! right 6
! top elements
E,6,7              ! left 7
E,7,8              ! right 8
! vertical elements
E,2,6              ! left 9
E,4,8              ! right 10
E,3,7              ! center 11
APLOT,all           ! plot all areas
/PLOPTS,INFO,OFF    ! Removes entire legend column
/PLOPTS,FRAME,OFF   ! Removes frame

TYPE,2             ! tension-only
REAL,2             ! second area
E,2,7              ! interior diagonals, 12-15
E,3,6
E,4,7
E,3,8
FINISH             ! preprocessor section

/SOLUTION          ! solution section
antype,static      ! analysis type is static
outpr,basic,1
outpr,nload,1
D,1,UX,0,,,,UY     ! Pin at left end
D,5,UY,0           ! roller at right end
F,2,FY,p1          ! apply 3 loads
F,3,FY,p1
F,4,FY,p1
! /output,Mass,txt,D:\Ansys\   !  mass
 /output,Mass,txt,U:\win\Ansys\   !  mass

solve
/PBC,ALL,1
eplot

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

! TOTAL MASS =   174.91    

!  TYPE      MASS
!     1   129.471
!     2    45.4400

!    NODE      UX            UY
!       1  0.            0.
!       2  0.24104E-02  -0.20588E-01
!       3  0.48208E-02  -0.23195E-01
!       4  0.72312E-02  -0.20588E-01
!       5  0.96417E-02   0.
!       6  0.80349E-02  -0.15772E-01
!       7  0.48208E-02  -0.23201E-01
!       8  0.16068E-02  -0.15772E-01

!    ELEM    STR
!       1    7231.2
!       2    7231.2
!       3    7231.2
!       4    7231.2
!       5  -14462.
!       6  -14462.
!       7   -9642.1
!       8   -9642.1
!       9    8340.5
!      10    8340.5
!      11      -9.0862
!      12       0.
!      13    7232.6
!      14       0.
!      15    7232.6