/TITLE, half distrb, cantilever, canthalf.a
     ! W 8 x 31
     
/PREP7          ! preprocessor section
w2 = 10         ! uniform load

ET,1,Beam3      ! Type 3 is beam
R,1,9.1,110,8   ! Area, Iz, height
MP,EX,1,30E6    ! Young-s modulus, steel
MP,GXY,1,11.2E6  ! shear modulus
N,1,0           ! Node 1 at 0
N,2,100         ! Node 2 at 100
N,3,200         ! Node 3 at 200
E,1,2           ! Element 1, nodes 1-2
E,2,3           ! Element 2, nodes 2-3
FINISH          ! preprocessor section

/SOLUTION       ! solution section
antype,static
outpr,basic,1
outpr,nload,1
D,1,ALL,0           ! Fix node 1
SFBEAM,2,1,pres,w2  ! 10 lb/in
/output,Displ,txt,D:\Ansys\   !  displacements
! /output,Displ,txt,U:\win\Ansys\   !  displacements
solve
/PBC,ALL,1
FINISH           ! solution section

/POST1           ! post processor
etable,STR,ls,1,3
/output,Force,txt,D:\Ansys\   !  forces and stresses
! /output,Force,txt,U:\win\Ansys\   !  forces and stresses
pretab
prrsol
FINISH           ! post processor

!    NODE      FX          FY          MZ    
!       1   0.0000      1000.0     0.15000E+06

!   NODE    UX           UY          ROTZ
!      1   0.00000     0.00000     0.00000    
!      2   0.00000    -0.176768   -0.303030E-02
!      3   0.00000    -0.517677   -0.353535E-02

! EL=     1  NODES=     1     2  MAT=  1
! LOCATION   SMAX        SMIN
!  1 (I)    5454.5     -5454.5
!  2 (J)    1818.2     -1818.2

! EL=     2  NODES=     2     3  MAT=  1 
! LOCATION   SMAX        SMIN
!  1 (I)    1818.2     -1818.2
!  2 (J)   0.72760E-12 -0.72760E-12