eq0=α(Rn
C
1,1
-Ra
B
1,1
)-
4
δ
A
1,1
-Q
C
0,2
π
2
δ
0;​​eq1=-(
2
δ
-Ri)
B
1,1
-α
A
1,1
F+πα
A
1,1
B
0,2
0;​​eq2=
1
2
απ
A
1,1
B
1,1
-8
2
π
B
0,2
+2
B
0,2
Ri0;​​eq3=-πα
C
0,2
A
1,1
+α
A
1,1
+
2
δ
C
1,1
Le
+
NA
Le
B
1,1
0;​​eq4=-
-πα
2
A
1,1
C
1,1
+4
2
π
C
0,2
Le
+
NA
Le
B
0,2
0;​​eq5=π
A
1,1
-
2
δ
D
1,1
-πα
D
0,2
A
1,1
0;​​eq6=-
πα
2
A
1,1
D
1,1
+4
2
α
D
0,2
0;​​eq7={(*eq0,*)eq1,eq2,eq3,eq4,eq5,eq6};​​eq7//TableForm
Fα
A
1,1
-πα
A
1,1
B
0,2
-(-Ri+
2
δ
)
B
1,1
0
1
2
-8
2
π
B
0,2
+2Ri
B
0,2
+πα
A
1,1
B
1,1
0
-α
A
1,1
-πα
A
1,1
C
0,2
-
2
δ
NA
B
1,1
Le
+
C
1,1
Le
0
-4
2
π
NA
B
0,2
Le
+
C
0,2
Le
+
1
2
πα
A
1,1
C
1,1
0
π
A
1,1
-πα
A
1,1
D
0,2
-
2
δ
D
1,1
0
-4
2
α
D
0,2
-
1
2
πα
A
1,1
D
1,1
0
Solve[eq7,{
B
1,1
,
B
0,2
,
C
1,1
,
C
0,2
,
D
1,1
,
D
0,2
}]

B
1,1

F(-4
2
π
+Ri)α
A
1,1
-(-4
2
π
+Ri)(Ri-
2
δ
)-
1
2
2
π
2
α
2
A
1,1
,
B
0,2
-
Fπ
2
α
2
A
1,1
8
2
π
Ri-2
2
Ri
-8
2
π
2
δ
+2Ri
2
δ
-
2
π
2
α
2
A
1,1
,
C
1,1

8Le(-1+FNA)α
A
1,1
8
2
δ
+
2
Le
2
α
2
A
1,1
-
8FNA(-4
2
π
+Ri)α(-LeRi+
2
δ
+Le
2
δ
)
A
1,1
8
2
δ
+
2
Le
2
α
2
A
1,1
-(-4
2
π
+Ri)(Ri-
2
δ
)-
1
2
2
π
2
α
2
A
1,1

,
C
0,2
-
8FNA
2
δ
+
2
Le
2
α
2
A
1,1
π8
2
δ
+
2
Le
2
α
2
A
1,1

-
FNA(-4
2
π
+Ri)
2
δ
8Ri-8
2
δ
+Le
2
α
2
A
1,1

π8
2
δ
+
2
Le
2
α
2
A
1,1
-(-4
2
π
+Ri)(Ri-
2
δ
)-
1
2
2
π
2
α
2
A
1,1

,
D
1,1
-
8π
A
1,1
-8
2
δ
+
2
π
2
A
1,1
,
D
0,2

2
π
2
A
1,1
α-8
2
δ
+
2
π
2
A
1,1


poly=Assuming[​​Le≠0,​​Collect[​​Simplify@Eliminate[{eq0,eq1,eq2,eq3,eq4,eq5,eq6},{
B
1,1
,
B
0,2
,
C
1,1
,
C
0,2
,
D
1,1
,
D
0,2
}],​​
A
1,1
,​​Simplify​​]​​]