In[]:=
ClearAll["Global`*"]
(*danezHybreid...*)
Input values from table 1:
In[]:=
ClearAll["Global`*"]
In[]:=
AHyb=11.0*
-12
10
;(*J/m*)​​MsHyb=1448*
3
10
;(*(2)1229.0*
3
10
(1)840.0*
3
10
;(A/m*)​​HkHyb=0.098;(*(2)640.0*
-3
10
(1)330.0*
-3
10
[T]*)​​mi0=
4*π
7
10
;​​deltaHyb=2.5957086136369814`*^-9;​​lambdaHyb=2*84.0*
-9
10
(*(2)150.0*
-9
10
(1)167.0*
-9
10
*);​​tHyb=(19*2.7+20*1.2)*
-9
10
(*(2)(1)(4*2+5*0.8)(1)(4*2+5*0.6)*)​​f1=
1.2
2.7+1.2
(*(2)
0.8
2.8
(1)
0.6
2.6
*);​​P=(2.7+1.2)*
-9
10
;​​T=1.2*
-9
10
;​​N1=20;​​KeffHyb=70958.948;​​KuHyb=1375650.43;​​K=KuHyb-KeffHyb;​​(*effectivemediumparameters:*)
Out[]=
7.53×
-8
10
In[]:=
MsHybEff=MsHyb*f1;​​KeffHybEff=KeffHyb*f1;​​AHybEff=AHyb*f1;​​tHybEff=tHyb*f1;​​KuHybEff=KuHyb*f1-mi0*
2
(MsHyb)
2*(f1-f1^2);(*!!!!!!*)
In[]:=
lambdaHyb1=2*84.0*
-9
10
Out[]=
1.68×
-7
10
In[]:=
Minimize(2/lambdaHybm)*
2*AHybEff
deltaHyb
+(2*KuHybEff*deltaHyb)+(π*0.004*f1)+mi0*π*
2
(MsHybEff)
*
2*
2
f1
*
2
(deltaHyb)
tHybEff*lambdaHybm
*Sum
2
Sin
n*π
2

2
Sinh
n*π*π*deltaHyb
lambdaHybm

1-
-2*π*n*
tHybEff
lambdaHybm

n
,{n,1,Infinity}+mi0*π*
2
(MsHybEff)
*
2*
2
f1
*
2
(deltaHyb)
tHybEff*lambdaHybm
*Sum
2
Sin
n*π
2

2
Cosh
n*π*π*deltaHyb
lambdaHybm

-2*π*n*
tHybEff
lambdaHybm

+
2*π*n*tHybEff
lambdaHybm
-1
n
,{n,1,Infinity}+mi0*
2
(MsHyb)
2*(f1-
2
f1
),lambdaHybm
Out[]=
{165416.,{lambdaHybm-7.57738×
-8
10
}}
In[]:=
90.2549796965241872`*^-9
Out[]=
9.0255×
-8
10