/TITLE, Electric circuit, electr04b.a
 ! Four-loop electric circuit, Spring 2004

/PREP7              ! preprocessor section
volt1 = 8
volt4 = 10
volt5 = 0

ET,1,Link68         ! THERMAL-ELECTRICAL LINE ELEMENT
R,1,(1/7)           ! length / resistance (area), 3 ohms
R,2,(1/12)
R,3,(sqrt(2)/7)     ! double length
R,4,(1/11)
R,5,(1/6)
MP,KXX,1            ! Thermal cond not used but is required
MP,RSVX,1,1         ! electrical resistivity

N,1,0,1
N,2,1,1
N,3,2,0
N,4,2,1
N,5,1,0
/PNUM,node,1        ! plot the nodes
APLOT,all           ! plot all areas
/PLOPTS,INFO,OFF    ! Removes entire legend column
/PLOPTS,FRAME,OFF   ! Removes frame

REAL,1   
E,1,2
E,2,5
REAL,2   
E,2,4
REAL,3   
E,2,3
REAL,4   
E,3,4
REAL,5   
E,3,5
FINISH              ! preprocessor section

/SOLUTION           ! solution section
antype,static
outpr,basic,1
outpr,nload,1
KRF,1               ! PRINT NODAL FORCES
KBC,1               ! STEP BOUNDARY CONDITIONS

D,1,VOLT,volt1      ! NODAL VOLTAGE, left
D,4,VOLT,volt4      ! NODAL VOLTAGE, center
D,5,VOLT,volt5      ! NODAL VOLTAGE, bottom
/output,Volts,txt,D:\Ansys\   !  volts, node currents
! /output,Volts,txt,U:\win\Ansys\   !  volts, node currents

solve
FINISH           ! solution section

/POST1           ! post processor
etable,cur,nmisc,5,4
pldisp,1             ! plot displacements
/output,Curr,txt,D:\Ansys\   !  branch currents
! /output,Curr,txt,U:\win\Ansys\   !  branch currents
pretab
! FINISH           ! post processor

!     NODE       VOLT
!        1      8.00000    
!        2      4.99093    
!        3      4.05082    
!        4     10.0000    
!        5      0.00000    

!     NODE       AMPS
!        1     0.429868    
!        4     0.958258    
!        5    -1.38813    

!     ELEM    CUR     
!        1  0.42987    
!        2  0.71299    
!        3 -0.41742    
!        4  0.13430    
!        5 -0.54083    
!        6  0.67514