Commit b144e3a3 by Christophe Geuzaine

rework magsta

parent b2f0d5b3
......@@ -13,7 +13,6 @@
// * _mur : relative magnetic permeability [-]
// * _epsilonr : relative dielectric permittivity [-]
// * _sigma : electric conductivity [S/m]
// * _hc : coercitive magnetic field [A/m]
//
// Lists:
// * _h_list() and _b_list() : pairs of magnetic fields h [A/m] and magnetic
......@@ -104,12 +103,6 @@ Function{
SteelAnalytic_dnudb2[] = 18. * Exp[1.8*SquNorm[$1]] ;
SteelAnalytic_mu[] = ***;
SteelAnalytic_dmudh2[] = ***;
// NdFeB magnet
Materials() += Str[ "NdFeB" ];
NdFeB_mur = 1;
NdFeB_sigma = 2e5;
NdFeB_hc = 1.85/mu0;
}
// The following macro automatically creates all the functions required by the
......@@ -164,13 +157,6 @@ Macro DefineMaterialFunctions
EndIf
EndIf
// Permanent magnets:
If(Exists[StringToName[StrCat[n, "_hc"]]])
If(Exists[permanentMagnetMaterials] && !StrFind[n, "UserMaterial"])
permanentMagnetMaterials() += Str[n];
EndIf
EndIf
// Linear dielectric materials:
If(Exists[StringToName[StrCat[n, "_epsilonr"]]])
If(Exists[linearDielectricMaterials] && !StrFind[n, "UserMaterial"])
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment