/prep7

ET,14,CIRCU124,3,0  
R,14,i1,0,
et,19,circu124,3,0
r,19,0,0

/SOL
!*  
i=0
zeit=1e-6

antyp,static
time,zeit
eqslv,sparse,stoler,-1
cnvt,a,
cnvt,csg,
lnsrch,on

neqit,250

*get,timea,active,0,time,cpu
SOLVE  
*get,timee,active,0,time,cpu
rechzeit=timee-timea
/post1
esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u1e,elem,eu1,etab,spanng
*get,u2e,elem,eu2,etab,spanng
*get,i1e,elem,er1,etab,strom
*get,i2e,elem,er2,etab,strom
*get,Pauf,elem,eu1,etab,leistu
*get,Pab,elem,eu2,etab,leistu
*get,PR1,elem,er1,etab,leistu
*get,PR2,elem,er2,etab,leistu


/output,term
/gropts,view,1
allsel
!
!
!
/post1
set,last,last,,0,,,             ! real part to be written out
plf2d,51,0,20,1
/post1

!
et,19,circu124,0,0