/TITLE, Electric circuit, electr01a.a
 ! Four-loop electric circuit, Spring 2001, ver 2

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

ET,1,Link68        ! thermal-electrical line element
R,1,(1/7)          ! length / resistance (area), 3 ohms
R,2,(1/8)
R,3,(sqrt(2)/12)
R,4,(1/6)
R,5,(sqrt(2)/11)
MP,KXX,1           ! thermal cond not used but is required
MP,RSVX,1,1        ! electrical resistivity

N,1,0,2
N,2,0,1
N,3,1,1
N,4,2,1
N,5,0,0
N,6,2,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              ! 7 ohms
E,1,2
E,2,3
E,2,5
REAL,2              ! 8 ohms
E,3,4
REAL,3              ! 12 ohms
E,3,6
REAL,4              ! 6 ohms
E,4,6
REAL,5              ! 11 ohms
E,1,3
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,5,VOLT,volt5      ! NODAL VOLTAGE, center
D,6,VOLT,volt6      ! NODAL VOLTAGE, bottom
/output,D:\Ansys\Volts.txt   !  volts, node currents
! /output,U:\win\Ansys\Volts.txt   ! volts, node currents
solve
FINISH          ! solution section

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

pretab
! FINISH         ! post processor

!   NODE       VOLT
!       1      8.00000
!       2      7.54921
!       3      4.64762
!       4      1.99184
!       5     10.0000
!       6      0.00000

!    NODE         AMPS
!       1       0.369161
!       5       0.350113
!       6      -0.719274

!   ELEM    CUR
!     1   0.64399E-01
!     2   0.41451
!     3  -0.35011
!     4   0.33197
!     5   0.38730
!     6   0.33197
!     7   0.30476