/TITLE, Your name, ME 421, and date here, truss4.a
  ! 3 nodes, 2 materials and area

/COLOR,PBAK,off  ! black background
/PREP7           ! preprocessor section
pi = (4*atan(1))
dtor = pi/180    ! convert degrees to radians
force = 50e3     ! applied force
fang = -60*dtor  ! angle of force
px = (force*cos(fang))
py = (force*sin(fang))
fivsq = (5*sqrt(2))

ET,1,1           ! type 1 is a spar
R,1,3.0          ! area for material 1
R,2,5.0          ! area for material 2
MP,ex,1,11e6     ! Young's modulus aluminum
MP,ex,2,15e6     ! Young's modulus brass

N,1,0,0          ! node 1 at (0,0)
N,2,fivsq,fivsq  ! node 2
N,3,fivsq+(5*sqrt(6)),0 ! node 3
/pnum,node,1     ! node plot

TYPE,1           ! element type (ET) 1
MAT,1            ! material property MP 1
REAL,1           ! area R 1
E,1,2            ! elem 1, node 1-2
MAT,2            ! material property MP 2
REAL,2           ! area R 2
E,2,3            ! elem 2, node 2-3
APLOT,all           ! plot all areas
/PLOPTS,INFO,OFF    ! Removes entire legend column
/PLOPTS,FRAME,OFF   ! Removes frame

FINISH           ! preprocessor section

/SOLUTION        ! solution section
antype,static    ! analysis type is static
outpr,basic,1
outpr,nload,1
D,1,UX,0         ! constrain node 1 in x direction
D,1,UY,0         ! constrain node 1 in y direction
D,3,UX,0,,,,UY   ! constrain node 1 in x, y direction
F,2,FX,px        ! x force at node 2
F,2,FY,py        ! y force at node 2
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

!   NODE      UX              UY
!       1    0.              0.
!       2    0.284200E-02   -0.139337E-01
!       3    0.              0.

!   NODE      FX              FY
!     1     18301.3         18301.3
!     3    -43301.3         25000.0

!    ELEM    STR
!       1   -8627.3
!       2  -10000.