In[]:=
L1=1/10;​​L2=2/10;​​C1=5/10;​​CFF=3/10;​​ωs=1/100;​​
v
g
=10;​​Rload=2;
In[]:=
Eq1=-
1
L1
*
v
C1c
-
1
L1
*
4
π
*
v
CF
*
(
i
L1c
+
i
L2c
)
2
(
i
L1s
+
i
L2s
)
+
2
(
i
L1c
+
i
L2c
)
-ωs*
i
L1s
0;​​Eq2=
1
L1
*
v
g
*
4
π
-
1
L1
v
C1s
-
1
L1
*
4
π
*
v
CF
*
(
i
L1s
+
i
L2s
)
2
(
i
L1s
+
i
L2s
)
+
2
(
i
L1c
+
i
L2c
)
+ωs*
i
L1c
0;​​Eq3=-
1
L2
*
v
C1c
-
1
L2
*
4
π
*
v
CF
*
(
i
L1c
+
i
L2c
)
2
(
i
L1s
+
i
L2s
)
+
2
(
i
L1c
+
i
L2c
)
-ωs*
i
L2s
0;​​Eq4=-
1
L2
*
v
C1s
-
1
L2
*
4
π
*
v
CF
*
(
i
L1s
+
i
L2s
)
2
(
i
L1s
+
i
L2s
)
+
2
(
i
L1c
+
i
L2c
)
+ωs*
i
L2c
0;​​Eq5=
1
C1
*
i
L1c
+
1
C1
*
i
L2c
-ωs*
v
C1s
0;​​Eq6=
1
C1
*
i
L1s
+
1
C1
*
i
L2s
+ωs*
v
C1c
0;​​Eq7=
1
CFF
*
2
π
*
2
(
i
L1s
+
i
L2s
)
+
2
(
i
L1c
+
i
L2c
)
-
1
CFF
*
v
CF
Rload
0;
In[]:=
NSolve[{Eq1,Eq2,Eq3,Eq4,Eq5,Eq6,Eq7},{
i
L1c
,
i
L1s
,
i
L2c
,
i
L2s
,
v
C1c
,
v
C1s
,
v
CF
}]
Out[]=
{{
i
L1c
-4244.1,
i
L1s
0.000229331,
i
L2c
4244.15,
i
L2s
0.000114665,
v
C1c
-0.0687992,
v
C1s
8.48773,
v
CF
0.0540364}}
In[]:=
Reduce[{Eq1,Eq2,Eq3,Eq4,Eq5,Eq6,Eq7},{
i
L1c
,
i
L1s
,
i
L2c
,
i
L2s
,
v
C1c
,
v
C1s
,
v
CF
}]
Out[]=
i
L1c
-
120000(64000000+9999866667
4
π
)
π(576000000+89999400001
4
π
)
&&
i
L1s

640000000π
576000000+89999400001
4
π
&&
i
L2c

4000000000(1920+299999
4
π
)
π(576000000+89999400001
4
π
)
&&
i
L2s

320000000π
576000000+89999400001
4
π
&&
v
C1c
-
192000000000π
576000000+89999400001
4
π
&&
v
C1s

2399992000000
3
π
576000000+89999400001
4
π
&&
v
CF

160000
576000000+89999400001
4
π
In[]:=
%//N
Out[]=
i
L1c
-4244.1&&
i
L1s
0.000229331&&
i
L2c
4244.15&&
i
L2s
0.000114665&&
v
C1c
-0.0687992&&
v
C1s
8.48773&&
v
CF
0.0540364