/solu

eqslv,pcg,1e-5
antype,trans         ! transiente Analyse
TRNOPT,FULL
TIMINT,on,all


esel,s,mat,,3
esel,a,mat,,1
nsle,s,1

ic,all,temp,25
alls





C*** 1. Schritt
Pow1 = 3.18e6		! Set Power in Step 1 
U = 30
epsilon = 1e-2

/solu
d,volt_sel,volt,U

time,36
nsub,1               ! Anzahl der Schritte
kbc,1                ! Lastschtitt sprungfoermig
outress,all,1        ! alle Zwischenschritte werden gespeichert
solve
fini

/post1
set,last
alls

/com,JHEAT
etable,erase
etab,el_heat,jheat
etab,el_volu,volu
smult,jv,el_heat,el_volu,1
ssum
*get,my_power_sum1,ssum,,item,jv
pw=2*my_power_sum1
fini
!

i=1
delta=ABS((Pow1-pw)/Pow1)-epsilon
*DOWHILE,delta
/solu
Pnew=pw
Rnew=U*U/Pnew
U=sqrt(Pow1*Rnew)
d,volt_sel,volt,U
time,36               ! Zeit in [s]
nsub,1              ! Anzahl der Schritte
kbc,1                ! Lastschritt sprungfoermig
outress,all,1        ! alle Zwischenschritte werden gespeichert
solve
!
fini
/post1
set,last


alls
/com,JHEAT
etable,erase
etab,el_heat,jhea
etab,el_volu,volu
smult,jv,el_heat,el_volu,1
ssum
*get,my_power_sum,ssum,,item,jv
pw=2*my_power_sum
delta=ABS((Pow1-pw)/Pow1)-epsilon         !Abfrage nach Toleranzkriterium in Schleife
i=i+1
fini
*ENDDO



/solu

C*** 2. Schritt
Pow2 = 8.11e6		! Set Power in Step 2 
U = 30
epsilon = 1e-2

d,volt_sel,volt,U

time,1188
nsub,1               ! Anzahl der Schritte
kbc,1                ! Lastschtitt sprungfoermig
outress,all,1        ! alle Zwischenschritte werden gespeichert
solve
fini

/post1
set,last
alls

/com,JHEAT
etable,erase
etab,el_heat,jheat
etab,el_volu,volu
smult,jv,el_heat,el_volu,1
ssum
*get,my_power_sum1,ssum,,item,jv
pw=2*my_power_sum1
fini
!

i=1
delta=ABS((Pow2-pw)/Pow2)-epsilon
*DOWHILE,delta
/solu
antype,trans,rest,2
Pnew=pw
Rnew=U*U/Pnew
U=sqrt(Pow2*Rnew)
d,volt_sel,volt,U
time,1188               ! Zeit in [s]
nsub,1              ! Anzahl der Schritte
kbc,1                ! Lastschritt sprungfoermig
outress,all,1        ! alle Zwischenschritte werden gespeichert
solve
!
fini
/post1
set,last


alls
/com,JHEAT
etable,erase
etab,el_heat,jhea
etab,el_volu,volu
smult,jv,el_heat,el_volu,1
ssum
*get,my_power_sum,ssum,,item,jv
pw=2*my_power_sum
delta=ABS((Pow2-pw)/Pow2)-epsilon         !Abfrage nach Toleranzkriterium in Schleife
i=i+1
fini
*ENDDO






fini