forked from modelica/ModelicaStandardLibrary
-
Notifications
You must be signed in to change notification settings - Fork 0
/
GenericHystTellinenHard.mo
77 lines (69 loc) · 3.48 KB
/
GenericHystTellinenHard.mo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
within Modelica.Magnetic.FluxTubes.Shapes.HysteresisAndMagnets;
model GenericHystTellinenHard
"Generic flux tube with hard magnetic hysteresis based on the Tellinen model and simple tanh()-functions"
extends BaseClasses.GenericHysteresisTellinen( mu0=K*mu_0);
//Hysteresis parameter
parameter SI.MagneticFluxDensity Br=1.2 "Remanence" annotation (Dialog(group="Hysteresis", groupImage="modelica://Modelica/Resources/Images/Magnetic/FluxTubes/Shapes/HysteresisAndMagnets/GenericHystTellinenHard/HardMagneticHysteresis.png"));
parameter SI.MagneticFieldStrength Hc=5e5 "Coercitivity" annotation (Dialog(group="Hysteresis"));
parameter Real M(final unit="m/A") = 10/Hc "Slope of tanh()-function" annotation (Dialog(group="Hysteresis"));
parameter Real K=1 "Slope of hysteresis in the saturation region (K*mu_0)" annotation (Dialog(group="Hysteresis"));
protected
final parameter SI.MagneticFluxDensity eps = Br/1000;
//final parameter Real mu0(final unit="N/A2") = K*mu_0;
final parameter Real H0= 0.5*log((1+mu0*Hc/Br)/(1-mu0*Hc/Br)) + M*Hc;
constant SI.MagneticFieldStrength unitH = 1;
Real tanhR;
Real tanhF;
equation
tanhR = tanh(M*H - H0);
tanhF = tanh(M*H + H0);
hystR = Br*tanhR + mu0*H - eps/2;
hystF = Br*tanhF + mu0*H + eps/2;
annotation (defaultComponentName="core", Icon(coordinateSystem(preserveAspectRatio=true, extent={{-100,
-100},{100,100}}), graphics={
Rectangle(
extent={{-70,32},{70,-30}},
lineColor={255,128,0},
fillColor={255,255,255},
fillPattern=FillPattern.Solid),
Line(
points={{70,0},{100,0}},
color={255,128,0}),
Line(
points={{-90,0},{-70,0}},
color={255,128,0}), Line(
points={{-30,-20},{-14,-20},{-6,-16},{2,0},{10,16},{18,20},{26,20}},
color={255,128,0},
smooth=Smooth.Bezier,
origin={-14,0},
rotation=180), Line(
points={{-18,-20},{-2,-20},{6,-16},{14,0},{22,16},{30,20},{38,
20}},
color={255,128,0},
smooth=Smooth.Bezier),
Line(
points={{-18,-20},{-42,-20}},
color={255,128,0}),
Line(
points={{16,20},{40,20}},
color={255,128,0}),
Text(
extent={{40,-2},{40,-30}},
textColor={255,128,0},
textString="TH")}), Documentation(info="<html>
<p>
Flux tube element for modeling the ferromagnetic (static) hysteresis of hard magnetic materials. The ferromagnetic hysteresis behavior is defined by the <a href=\"modelica://Modelica.Magnetic.FluxTubes.UsersGuide.Hysteresis.StaticHysteresis.Tellinen\">Tellinen hysteresis model</a>. The shape of the limiting hysteresis loop is described by simple hyperbolic tangent functions with 4 parameters.
</p>
<table cellspacing=\"0\" cellpadding=\"2\" border=\"0\">
<caption><strong>Fig. 1:</strong> Hyperbolic tangent functions define the shape of the ferromagnetic (static) hysteresis</caption>
<tr>
<td>
<img src=\"modelica://Modelica/Resources/Images/Magnetic/FluxTubes/Shapes/HysteresisAndMagnets/GenericHystTellinenHard/HardMagneticHysteresis.png\">
</td>
</tr>
</table>
<p>
An overview of all available hysteresis and permanent magnet elements of the package <a href=\"modelica://Modelica.Magnetic.FluxTubes.Shapes.HysteresisAndMagnets\">HysteresisAndMagnets</a> can be found in <a href=\"modelica://Modelica.Magnetic.FluxTubes.UsersGuide.Hysteresis\">UsersGuide.Hysteresis</a>.
</p>
</html>"));
end GenericHystTellinenHard;