/prep7

*afun,deg



ET,14,CIRCU124,4,0  
R,14,u1,0,
et,19,circu124,0,0
*If,leerlauf,eq,1,then
r,19,1e4,0
*EndIf
*If,leerlauf,eq,0,then
r,19,1e-4,0
*EndIf
*If,leerlauf,eq,2,then
r,19,rlast,0
*EndIf
*If,leerlauf,eq,3,then
r,19,rlast,0
*EndIf
allsel

R,14,1e-6,0,


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

antyp,trans
timinit,off,mag
timinit,off,elec
time,zeit

*if,fronspar,eq,0,then
eqslv,frontal
*else
eqslve,sparse,stoler,-1
*endif

cnvt,a,
cnvt,csg,
lnsrch,on

neqit,250

allsel

*get,timea,active,0,time,cpu
SOLVE  
*get,timee,active,0,time,cpu
rechzeit=timee-timea
/post1
SET,last,LAST
  
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

PLF2D,27,0,10,1 
/auto,1
/show,plots%ausgabe%,grph,,append
PLF2D,27,0,10,1 
ASEL,S,MAT,,1   
ALLSEL,BELOW,AREA   
/show,plots%ausgabe%,grph,,append
PLESOL,B,SUM,0, 
/show,plots%ausgabe%,grph,,append
PLESOL,H,SUM,0, 
/show,term
allsel

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

!
/prep7

*Do,jj,1,jsteps,1

  zeit=zeit+tstep
!
/prep7
!

*if,zeit,gt,zeitk,then
*If,leerlauf,eq,3,then
      r,19,1e-6
*endif
*endif


i=i+1
/prep7
!
phase=freq*(zeit-zeita)*360
!
!  Aenderung von Leitwerten fuer Einschwingvorgang
!
!  Spannungsvektor
!
u1t=u1*cos(phase-phasea)
r,14,u1t

!
alls
!
fini
!
/prep7
dsys,0
csys
save,sicher,db
resume,leer,db
resume,sicher,db
/solu

antyp,tran,rest
timinit,on,mag
timinit,on,elec
tintp,,,,1

cnvt,a,
cnvt,csg,
lnsrch,on
time,zeit
!

allsel

*get,timea,active,0,time,cpu
SOLVE  
*get,timee,active,0,time,cpu
rechzeit=timee-timea

!
fini
/show,term
/post1                      !   bergang zum Postprozessor
!
!
set,last,last               !   Whlen des letzten Datensatzes der Lsung
/post1
esel,s,enam,,124
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,Transfo%ausgabe%,lis,,append
*VWrite,i,zeit,u1t,U1e,i1e,u2e,i2e,rechzeit
(8(g14.6,' '))
/output,term
/output,Transfol%ausgabe%,lis,,append
*VWrite,i,zeit,Pauf,Pab,PR1,PR2,rechzeit
(7(g14.6,' '))
PLF2D,27,0,10,1 
/auto,1
/show,plots%ausgabe%,grph,,append
PLF2D,27,0,10,1 
ASEL,S,MAT,,1   
ALLSEL,BELOW,AREA   
/show,plots%ausgabe%,grph,,append
PLESOL,B,SUM,0, 
/show,plots%ausgabe%,grph,,append
PLESOL,H,SUM,0, 
/show,term
allsel
/output,term
/gropts,view,1
plf2d,51,0,20,1
!
!
!
!  Felder fuer Konvergenzmonitor setzen
!
allsel
!
*EndDo
!
 