/prep7
*afun,deg

allsel

zeit=zeita

phase=freq*zeit*360
*Do,im,1,m
!
!  Spannungsvektoren
!
u1t=u1*cos(phase-(im-1)*360/m)
et,14+im-1,CIRCU124,4,0 
r,14+im-1,u1,phase-(im-1)*360/m

*If,leerlauf,eq,1,then
et,22+im-1,circu124,0,0
r,22+im-1,1e6
*EndIf
*If,leerlauf,eq,0,then
et,22+im-1,circu124,0,0
r,22+im-1,1e-6
*EndIf
*If,leerlauf,eq,2,then
et,22+im-1,circu124,0,0
r,22+im-1,rlast
*EndIf

*EndDo

allsel

/SOL
!*  
i=0

antyp,harmonic
time,zeit
HARFRQ,freq,0,
NSUBST, ,   
KBC,0   

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

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
SET,last,LAST,1,0, , ,  

esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u11,elem,eu11,etab,spanng
*get,u12,elem,eu12,etab,spanng
*get,u13,elem,eu13,etab,spanng
*get,u21,elem,eu21,etab,spanng
*get,u22,elem,eu22,etab,spanng
*get,u23,elem,eu23,etab,spanng

*get,i11,elem,er11,etab,strom
*get,i12,elem,er12,etab,strom
*get,i13,elem,er13,etab,strom
*get,i21,elem,er21,etab,strom
*get,i22,elem,er22,etab,strom
*get,i23,elem,er23,etab,strom

*get,Pauf1,elem,eu11,etab,leistu
*get,Pauf2,elem,eu12,etab,leistu
*get,Pauf3,elem,eu13,etab,leistu
*get,Pab1,elem,eu21,etab,leistu
*get,Pab2,elem,eu22,etab,leistu
*get,Pab3,elem,eu23,etab,leistu

*get,PR11,elem,er11,etab,leistu
*get,PR12,elem,er12,etab,leistu
*get,PR13,elem,er13,etab,leistu
*get,PR21,elem,er21,etab,leistu
*get,PR22,elem,er22,etab,leistu
*get,PR23,elem,er23,etab,leistu

/output,Transfo1%ausgabe%,lis,,append
*VWrite,i,zeit,U11,u12,u13,i11,i12,i13,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfo2%ausgabe%,lis,,append
*VWrite,i,zeit,U21,u22,u23,i21,i22,i23,rechzeit
(9(g14.6,' '))
/output,term

/output,Transfol1%ausgabe%,lis,,append
*VWrite,i,zeit,Pauf1,Pauf2,Pauf3,Pab1,Pab2,Pab3,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfol2%ausgabe%,lis,,append
*VWrite,i,zeit,PR11,PR12,PR13,PR21,PR22,PR23,rechzeit
(9(g14.6,' '))
/output,term

allsel
PLF2D,27,0,10,1 
/show,Plots%ausgabe%,grph,,append
aplot
/show,Plots%ausgabe%,grph,,append
plf2d,51,0,20,1
/show,term
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,plots%ausgabe%,grph,,append
PLF2D,27,0,10,1 
/show,term
allsel


SET,last,LAST,1,1, , ,  

esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u11,elem,eu11,etab,spanng
*get,u12,elem,eu12,etab,spanng
*get,u13,elem,eu13,etab,spanng
*get,u21,elem,eu21,etab,spanng
*get,u22,elem,eu22,etab,spanng
*get,u23,elem,eu23,etab,spanng

*get,i11,elem,er11,etab,strom
*get,i12,elem,er12,etab,strom
*get,i13,elem,er13,etab,strom
*get,i21,elem,er21,etab,strom
*get,i22,elem,er22,etab,strom
*get,i23,elem,er23,etab,strom

*get,Pauf1,elem,eu11,etab,leistu
*get,Pauf2,elem,eu12,etab,leistu
*get,Pauf3,elem,eu13,etab,leistu
*get,Pab1,elem,eu21,etab,leistu
*get,Pab2,elem,eu22,etab,leistu
*get,Pab3,elem,eu23,etab,leistu

*get,PR11,elem,er11,etab,leistu
*get,PR12,elem,er12,etab,leistu
*get,PR13,elem,er13,etab,leistu
*get,PR21,elem,er21,etab,leistu
*get,PR22,elem,er22,etab,leistu
*get,PR23,elem,er23,etab,leistu

/output,Transfo1%ausgabe%,lis,,append
*VWrite,i,zeit,U11,u12,u13,i11,i12,i13,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfo2%ausgabe%,lis,,append
*VWrite,i,zeit,U21,u22,u23,i21,i22,i23,rechzeit
(9(g14.6,' '))
/output,term

/output,Transfol1%ausgabe%,lis,,append
*VWrite,i,zeit,Pauf1,Pauf2,Pauf3,Pab1,Pab2,Pab3,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfol2%ausgabe%,lis,,append
*VWrite,i,zeit,PR11,PR12,PR13,PR21,PR22,PR23,rechzeit
(9(g14.6,' '))
/output,term

allsel
PLF2D,27,0,10,1 
/show,Plots%ausgabe%,grph,,append
aplot
/show,Plots%ausgabe%,grph,,append
plf2d,51,0,20,1
/show,term
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,plots%ausgabe%,grph,,append
PLF2D,27,0,10,1 
/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
/post1

!
/prep7

*Do,jj,1,jsteps,1

  zeit=zeit+tstep
!
/prep7
!
i=i+1
/prep7
!
phase=freq*zeit*360
!
!  Aenderung von Leitwerten fuer Einschwingvorgang
!
!  Spannungsvektor
!
*Do,im,1,m
!
!  Spannungsvektoren
!
u1t=u1*cos(phase-(im-1)*360/m)
et,14+im-1,CIRCU124,4,0 
r,14+im-1,u1,phase-(im-1)*360/m

*EndDo

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

antyp,harmonic
eqslv,sparse,stoler,-1
cnvt,a,
cnvt,csg,
lnsrch,on
time,zeit
HARFRQ,freq,0,
NSUBST, ,   
KBC,0   
!
*get,timea,active,0,time,cpu
SOLVE  
*get,timee,active,0,time,cpu
rechzeit=timee-timea

!
fini
/show,term
/post1                      !   bergang zum Postprozessor
!
!
/post1
SET,last,LAST,1,0, , ,  

esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u11,elem,eu11,etab,spanng
*get,u12,elem,eu12,etab,spanng
*get,u13,elem,eu13,etab,spanng
*get,u21,elem,eu21,etab,spanng
*get,u22,elem,eu22,etab,spanng
*get,u23,elem,eu23,etab,spanng

*get,i11,elem,er11,etab,strom
*get,i12,elem,er12,etab,strom
*get,i13,elem,er13,etab,strom
*get,i21,elem,er21,etab,strom
*get,i22,elem,er22,etab,strom
*get,i23,elem,er23,etab,strom

*get,Pauf1,elem,eu11,etab,leistu
*get,Pauf2,elem,eu12,etab,leistu
*get,Pauf3,elem,eu13,etab,leistu
*get,Pab1,elem,eu21,etab,leistu
*get,Pab2,elem,eu22,etab,leistu
*get,Pab3,elem,eu23,etab,leistu

*get,PR11,elem,er11,etab,leistu
*get,PR12,elem,er12,etab,leistu
*get,PR13,elem,er13,etab,leistu
*get,PR21,elem,er21,etab,leistu
*get,PR22,elem,er22,etab,leistu
*get,PR23,elem,er23,etab,leistu

/output,Transfo1%ausgabe%,lis,,append
*VWrite,i,zeit,U11,u12,u13,i11,i12,i13,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfo2%ausgabe%,lis,,append
*VWrite,i,zeit,U21,u22,u23,i21,i22,i23,rechzeit
(9(g14.6,' '))
/output,term

/output,Transfol1%ausgabe%,lis,,append
*VWrite,i,zeit,Pauf1,Pauf2,Pauf3,Pab1,Pab2,Pab3,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfol2%ausgabe%,lis,,append
*VWrite,i,zeit,PR11,PR12,PR13,PR21,PR22,PR23,rechzeit
(9(g14.6,' '))
/output,term

allsel
PLF2D,27,0,10,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

SET,last,LAST,1,1, , ,  

esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u11,elem,eu11,etab,spanng
*get,u12,elem,eu12,etab,spanng
*get,u13,elem,eu13,etab,spanng
*get,u21,elem,eu21,etab,spanng
*get,u22,elem,eu22,etab,spanng
*get,u23,elem,eu23,etab,spanng

*get,i11,elem,er11,etab,strom
*get,i12,elem,er12,etab,strom
*get,i13,elem,er13,etab,strom
*get,i21,elem,er21,etab,strom
*get,i22,elem,er22,etab,strom
*get,i23,elem,er23,etab,strom

*get,Pauf1,elem,eu11,etab,leistu
*get,Pauf2,elem,eu12,etab,leistu
*get,Pauf3,elem,eu13,etab,leistu
*get,Pab1,elem,eu21,etab,leistu
*get,Pab2,elem,eu22,etab,leistu
*get,Pab3,elem,eu23,etab,leistu

*get,PR11,elem,er11,etab,leistu
*get,PR12,elem,er12,etab,leistu
*get,PR13,elem,er13,etab,leistu
*get,PR21,elem,er21,etab,leistu
*get,PR22,elem,er22,etab,leistu
*get,PR23,elem,er23,etab,leistu

/output,Transfo1%ausgabe%,lis,,append
*VWrite,i,zeit,U11,u12,u13,i11,i12,i13,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfo2%ausgabe%,lis,,append
*VWrite,i,zeit,U21,u22,u23,i21,i22,i23,rechzeit
(9(g14.6,' '))
/output,term

/output,Transfol1%ausgabe%,lis,,append
*VWrite,i,zeit,Pauf1,Pauf2,Pauf3,Pab1,Pab2,Pab3,rechzeit
(9(g14.6,' '))
/output,term
/output,Transfol2%ausgabe%,lis,,append
*VWrite,i,zeit,PR11,PR12,PR13,PR21,PR22,PR23,rechzeit
(9(g14.6,' '))
/output,term

allsel
PLF2D,27,0,10,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
!
!
!
!  Felder fuer Konvergenzmonitor setzen
!
allsel
!
*EndDo
!


/prep7

*Do,im,1,m
!
!  Spannungsvektoren
!
u1t=u1*cos(phase-(im-1)*360/m)
et,14+im-1,CIRCU124,4,0 
r,14+im-1,u1t

u2t=u2*cos(phase-(im-1)*360/m)
et,22+im-1,circu124,4,0
r,22+im-1,u2t
*EndDo
