@@ -112,21 +112,11 @@ Group{
112112 DomainCC += Region[{DomainS}] ;
113113 // the linear and non linear domains to air and all windings
114114
115- If(Flag_NL)
116- Domain_Lin = Region[{Air}];
117- For n In {1:n_windings}
118- Domain_Lin += Region[{Winding~{n}, StrandedWinding~{n}}];
119- EndFor
120- Domain_Lin_NoJs = Region[{Air}];
121- Domain_NonLin = Region[{Core}];
122- Else
123- Domain_Lin = Region[{Air, Core}];
124- For n In {1:n_windings}
125- Domain_Lin += Region[{Winding~{n}, StrandedWinding~{n}}];
126- EndFor
127- Domain_Lin_NoJs = Region[{Air, Core}];
128- Domain_NonLin = Region[{}];
129- EndIf
115+ Domain_Lin = Region[{Air, Core}];
116+ For n In {1:n_windings}
117+ Domain_Lin += Region[{Winding~{n}, StrandedWinding~{n}}];
118+ EndFor
119+ Domain_Lin_NoJs = Region[{Air, Core}];
130120 // Initialize the main domain to the core and core-shell domains
131121 Domain = Region[{DomainC, DomainCC}] ;
132122
@@ -208,7 +198,7 @@ Function {
208198 EndFor
209199
210200 If(Flag_Conducting_Core)
211- sigma[# {Core}] = Complex[sigma_core , sigma_core_imag];
201+ sigma[# {Core}] = Complex[sigma_core_real , sigma_core_imag];
212202 sigma[# {Air}] = 0.;
213203 EndIf
214204 If(!Flag_Conducting_Core)
@@ -226,33 +216,16 @@ Function {
226216
227217 // Hysteresis Loss
228218 // Imaginary Part Of Permeability
229- // Liste von Lukas hinterlegen
230- //mu_imag[ # {Core} ] = mu0 * f_mu_imag[$1, $2];
231-
232- If(!Flag_NL)
233- If(Flag_Fixed_Loss_Angle)
234- mu[# {Core}] = Complex[mu0*mur_real, -mu0*mur_imag] ;
235- nu[# {Core}] = 1/mu[$1, $2] ;
236- ElseIf(Flag_Permeability_From_Data)
237- mu[# {Core}] = Complex[mu0*f_mu_real[$1], -mu0*f_mu_imag[$1]] ;
238- nu[# {Core}] = 1/mu[$1, $2] ;
239- Else
240- mu[# {Core}] = mu0*mur ;
241- nu[# {Core}] = 1/mu[$1, $2] ;
242- EndIf
243219
220+ If(Flag_Fixed_Loss_Angle)
221+ mu[# {Core}] = Complex[mu0*mur_real, -mu0*mur_imag] ;
222+ nu[# {Core}] = 1/mu[$1, $2] ;
223+ ElseIf(Flag_Permeability_From_Data)
224+ mu[# {Core}] = Complex[mu0*f_mu_real[$1], -mu0*f_mu_imag[$1]] ;
225+ nu[# {Core}] = 1/mu[$1, $2] ;
244226 Else
245- //nu[ # {Core} ] = nu_3kW[$1] ;
246- //h[ # {Core} ] = h_3kW[$1];
247- //dhdb_NL[ # {Core} ]= dhdb_3kW_NL[$1] ;
248- //dhdb[ # {Core} ] = dhdb_3kW[$1] ;
249-
250- //nu[ # {Core} ] = nu_N95[$1] ;
251- nu[ # {Core} ] = nu~{Core_Material}[$1] ;
252- h[ # {Core} ] = h~{Core_Material}[$1];
253- //dhdb_NL[ # {Core} ]= dhdb_95_NL[$1] ;
254- dhdb_NL[ # {Core} ]= dhdb_95100_NL[$1] ;
255- dhdb[ # {Core} ] = dhdb~{Core_Material}[$1] ;
227+ mu[# {Core}] = mu0*mur ;
228+ nu[# {Core}] = 1/mu[$1, $2] ;
256229 EndIf
257230
258231 // Excitation Current
@@ -409,10 +382,14 @@ Resolution {
409382 CreateDir[DirResValsWinding~{n}];
410383 EndFor
411384
412- // Non-linear iteration is always called. If system is linear, convergence will be achieved after one iteration.
413- IterativeLoop[Nb_max_iter, stop_criterion, relaxation_factor]{
414- GenerateJac[A] ; SolveJac[A] ;
415- }
385+ If(!Flag_Permeability_From_Data)
386+ Generate[A] ; Solve[A] ;
387+ Else
388+ IterativeLoop[Nb_max_iter, stop_criterion, relaxation_factor]{
389+ GenerateJac[A] ; SolveJac[A] ;
390+ }
391+ EndIf
392+
416393
417394 SaveSolution[A] ;
418395
@@ -575,33 +552,6 @@ PostProcessing {
575552
576553
577554
578- // ------------------------------------------------------------------------------------------------
579- // Steinmetz Core Loss
580-
581- // for piecewise linear currents
582- // iGSE Integral explicitely solved
583- // needs the result of Magb at peak current to evaluate the peak flux density
584- // (Norm[{d a}]*2) is delta_B
585-
586- If(Flag_Generalized_Steinmetz_loss)
587- { Name piGSE ; Value { Integral { [ Freq * ki * (Norm[{d a}]*2)^(beta-alpha) * (
588- ((Norm[{d a}]*2 / t_rise )^alpha) * t_rise +
589- ((Norm[{d a}]*2 / t_fall )^alpha) * t_fall
590- // 10 abschnitte reinbauen
591- // python überprüfung + vorfaktoren zu NULL
592- ) ] ; In Core ; Jacobian Vol ; Integration II ;} } }
593- EndIf
594-
595- If(Flag_Steinmetz_loss)
596- { Name pSE ; Value { Integral { [ CoefGeo * ki * Freq^alpha * (Norm[{d a}])^beta
597- ] ; In Core ; Jacobian Vol ; Integration II ;} } }
598-
599- { Name pSE_density ; Value { Integral { [ CoefGeo* ki * Freq^alpha * (Norm[{d a}])^beta
600- ] ; In Core ; Jacobian Vol ; Integration II ;} } }
601- EndIf
602-
603-
604-
605555 // ------------------------------------------------------------------------------------------------
606556 // Hysteresis Losses (According To Complex Core Parameters)
607557
0 commit comments