Reductiion in calculating the system matrix
- To: mathgroup at smc.vnet.net
- Subject: [mg84621] Reductiion in calculating the system matrix
- From: lightnation <lightnation at naver.com>
- Date: Mon, 7 Jan 2008 02:39:42 -0500 (EST)
Hello,
The target is calculating system matrix Asys.
However, the huge amount of calculation is required mainly due to
calculating Inverse[D75].
I am expecting the idea or suggestions that can reduce the calculation
time.
A15 = {{0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {0, 0, -7.973585415202521` Subscript[Iqv,
1], -7.973585415202521` Subscript[Idv, 1], 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -0.11160714285714285`, 0,
0.11160714285714285`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {0, 0, 0, -3.2258064516129035`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
3.1847133757961785` (-1 -
0.0039` \[ExponentialE]^(1.555` Subscript[Efdv, 1]) -
0.0060645` \[ExponentialE]^(1.555` Subscript[Efdv, 1])
Subscript[Efdv, 1]), 3.1847133757961785`, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, -18.`, -5.`, 100.`, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
0.5142857142857142`, 0, -2.857142857142857`, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0,
0, -29.452431127404306` Subscript[Iqv,
2], -29.452431127404306` Subscript[Idv, 2], 0, 0, 0, 0, 0, 0, 0,
0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, -1/6, 0, 1/6, 0, 0, 0, 0, 0,
0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.8691588785046729`,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3.1847133757961785` (-1 -
0.0039` \[ExponentialE]^(1.555` Subscript[Efdv, 2]) -
0.0060645` \[ExponentialE]^(1.555` Subscript[Efdv, 2])
Subscript[Efdv, 2]), 3.1847133757961785`, 0, 0, 0, 0, 0, 0,
0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -18.`, -5.`, 100.`, 0, 0,
0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0.5142857142857142`, 0, -2.857142857142857`, 0, 0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, -62.623109373882926` Subscript[Iqv,
3], -62.623109373882926` Subscript[Idv, 3], 0, 0, 0}, {0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.16977928692699493`, 0,
0.16977928692699493`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, -1.6666666666666667`, 0, 0, 0}, {0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3.1847133757961785` (-1 -
0.0039` \[ExponentialE]^(1.555` Subscript[Efdv, 3]) -
0.0060645` \[ExponentialE]^(1.555` Subscript[Efdv, 3])
Subscript[Efdv, 3]), 3.1847133757961785`, 0}, {0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -18.`, -5.`, 100.`}, {0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0.5142857142857142`, 0, -2.857142857142857`}};
B15 = {{0, 0, 0, 0, 0,
0}, {7.973585415202521` (-Subscript[Edpv, 1] -
0.0361` Subscript[Iqv, 1]),
7.973585415202521` (-Subscript[Eqpv, 1] -
0.0361` Subscript[Idv, 1]), 0, 0, 0,
0}, {-0.009508928571428571`, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0}, {0, 0,
29.452431127404306` (-Subscript[Edpv, 2] -
0.07709999999999999` Subscript[Iqv, 2]),
29.452431127404306` (-Subscript[Eqpv, 2] -
0.07709999999999999` Subscript[Idv, 2]), 0, 0}, {0,
0, -0.12933333333333333`, 0, 0, 0}, {0, 0, 0, 1.2478504672897197`,
0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
62.623109373882926` (-Subscript[Edpv, 3] -
0.06870000000000001` Subscript[Iqv, 3]),
62.623109373882926` (-Subscript[Eqpv, 3] -
0.06870000000000001` Subscript[Idv, 3])}, {0, 0, 0,
0, -0.19205432937181666`, 0}, {0, 0, 0, 0, 0,
1.6796666666666669`}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0,
0, 0, 0, 0, 0}};
B25 = {{0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0,
0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, -100.`, 0, 0, 0, 0}, {0,
0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0,
0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0,
0, -100.`, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0,
0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
0, 0}, {0, 0, 0, 0, 0, -100.`}, {0, 0, 0, 0, 0, 0}};
C15 = {{-Cos[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {Sin[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0,
0, -Cos[Subscript[\[Delta], 2] - Subscript[\[Theta],
2]] Subscript[V, 2], 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0, 0,
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[V,
2], 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0,
0, -Cos[Subscript[\[Delta], 3] - Subscript[\[Theta],
3]] Subscript[V, 3], 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[V,
3], 0, 1, 0, 0, 0, 0}};
D15 = {{0, 0.0969`, 0, 0, 0, 0}, {-0.0608`, 0, 0, 0, 0, 0}, {0, 0, 0,
0.1969`, 0, 0}, {0, 0, -0.1198`, 0, 0, 0}, {0, 0, 0, 0, 0,
0.25`}, {0, 0, 0, 0, -0.1813`, 0}};
D25 = {{Cos[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], -Sin[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]], 0, 0,
0, 0}, {-Sin[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], -Cos[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]], 0, 0,
0, 0}, {0, 0,
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[V,
2], -Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]], 0,
0}, {0, 0, -Sin[
Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[V,
2], -Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]], 0,
0}, {0, 0, 0, 0,
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[V,
3], -Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]]}, {0,
0, 0, 0, -Sin[
Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[V,
3], -Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]]}};
C25 = {{Cos[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[Idv,
1] Subscript[V, 1] -
Sin[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Iqv, 1] Subscript[V, 1], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0,
0}, {-Sin[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Idv, 1] Subscript[V, 1] -
Cos[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Iqv, 1] Subscript[V, 1], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Idv, 2] Subscript[V, 2] -
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Iqv, 2] Subscript[V, 2], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0,
0, -Sin[Subscript[\[Delta], 2] - Subscript[\[Theta],
2]] Subscript[Idv, 2] Subscript[V, 2] -
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Iqv, 2] Subscript[V, 2], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Idv, 3] Subscript[V, 3] -
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Iqv, 3] Subscript[V, 3], 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,
0, -Sin[Subscript[\[Delta], 3] - Subscript[\[Theta],
3]] Subscript[Idv, 3] Subscript[V, 3] -
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Iqv, 3] Subscript[V, 3], 0, 0, 0, 0, 0, 0}};
D35 = {{Sin[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], Cos[Subscript[\[Delta], 1] - Subscript[\[Theta],
1]] Subscript[V, 1], 0, 0, 0,
0}, {Cos[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], -Sin[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[V,
1], 0, 0, 0, 0}, {0, 0,
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[V,
2], Cos[Subscript[\[Delta], 2] - Subscript[\[Theta],
2]] Subscript[V, 2], 0, 0}, {0, 0,
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[V,
2], -Sin[
Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[V,
2], 0, 0}, {0, 0, 0, 0,
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[V,
3], Cos[Subscript[\[Delta], 3] - Subscript[\[Theta],
3]] Subscript[V, 3]}, {0, 0, 0, 0,
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[V,
3], -Sin[
Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[V,
3]}};
D45 = {{-Cos[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Idv, 1] Subscript[V, 1] +
Sin[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Iqv, 1] Subscript[V, 1] -
17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1] Subscript[V, 4],
Sin[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Idv, 1] +
Cos[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Iqv, 1] -
17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
4], 0, 0, 0,
0}, {Sin[
Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[Idv,
1] Subscript[V, 1] +
Cos[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Iqv, 1] Subscript[V, 1] -
17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1] Subscript[V, 4],
Cos[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Idv, 1] -
Sin[Subscript[\[Delta], 1] - Subscript[\[Theta], 1]] Subscript[
Iqv, 1] - 34.72222222222222` Subscript[V, 1] +
17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
4], 0, 0, 0, 0}, {0,
0, -Cos[
Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Idv, 2] Subscript[V, 2] +
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Iqv, 2] Subscript[V, 2] -
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2] Subscript[V, 7],
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Idv, 2] +
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Iqv, 2] -
16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
7], 0, 0}, {0, 0,
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Idv, 2] Subscript[V, 2] +
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Iqv, 2] Subscript[V, 2] -
16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2] Subscript[V, 7],
Cos[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Idv, 2] -
Sin[Subscript[\[Delta], 2] - Subscript[\[Theta], 2]] Subscript[
Iqv, 2] - 32.` Subscript[V, 2] +
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
7], 0, 0}, {0, 0, 0,
0, -Cos[Subscript[\[Delta], 3] - Subscript[\[Theta],
3]] Subscript[Idv, 3] Subscript[V, 3] +
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Iqv, 3] Subscript[V, 3] -
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3] Subscript[V, 9],
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Idv, 3] +
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Iqv, 3] -
17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
9]}, {0, 0, 0, 0,
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Idv, 3] Subscript[V, 3] +
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Iqv, 3] Subscript[V, 3] -
17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3] Subscript[V, 9],
Cos[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Idv, 3] -
Sin[Subscript[\[Delta], 3] - Subscript[\[Theta], 3]] Subscript[
Iqv, 3] - 34.129692832764505` Subscript[V, 3] +
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
9]}};
D55 = {{17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V, 1]
Subscript[V,
4], -17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1], 0, 0, 0, 0, 0, 0, 0, 0, 0,
0}, {17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V, 1]
Subscript[V, 4],
17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0,
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V, 2]
Subscript[V,
7], -16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0,
16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V, 2]
Subscript[V, 7],
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V, 3]
Subscript[V,
9], -17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3]}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V, 3]
Subscript[V, 9],
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3]}};
D65 = {{17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V, 1]
Subscript[V, 4],
17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
4], 0, 0, 0,
0}, {-17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V, 1]
Subscript[V, 4],
17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
4], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0,
0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0,
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V, 2]
Subscript[V, 7],
16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
7], 0, 0}, {0,
0, -16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V, 2]
Subscript[V, 7],
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
7], 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V, 3]
Subscript[V, 9],
17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
9]}, {0, 0, 0,
0, -17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V, 3]
Subscript[V, 9],
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
9]}};
D75 = {{-17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1] Subscript[V, 4] -
11.684124756739719` Sin[
1.687905071361761`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 5]] Subscript[V, 4] Subscript[V, 5] -
10.688617499098877` Sin[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V, 6],
17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1] - 6.614757924050619` Subscript[V, 4] -
11.684124756739719` Cos[
1.687905071361761`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 5]] Subscript[V, 5] -
10.688617499098877` Cos[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 6],
11.684124756739719` Sin[
1.687905071361761`- Subscript[\[Theta], 4] + Subscript[\[Theta],
5]] Subscript[V, 4] Subscript[V,
5], -11.684124756739719` Cos[
1.687905071361761`- Subscript[\[Theta], 4] + Subscript[\[Theta],
5]] Subscript[V, 4],
10.688617499098877` Sin[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V,
6], -10.688617499098877` Cos[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 4], 0, 0, 0, 0, 0,
0}, {17.36111111111111` Sin[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1] Subscript[V, 4] -
11.684124756739719` Cos[
1.687905071361761`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 5]] Subscript[V, 4] Subscript[V, 5] -
10.688617499098877` Cos[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V, 6],
17.36111111111111` Cos[
Subscript[\[Theta], 1] - Subscript[\[Theta], 4]] Subscript[V,
1] - 78.61777745223795` Subscript[V, 4] +
11.684124756739719` Sin[
1.687905071361761`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 5]] Subscript[V, 5] +
10.688617499098877` Sin[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 6],
11.684124756739719` Cos[
1.687905071361761`- Subscript[\[Theta], 4] + Subscript[\[Theta],
5]] Subscript[V, 4] Subscript[V, 5],
11.684124756739719` Sin[
1.687905071361761`- Subscript[\[Theta], 4] + Subscript[\[Theta],
5]] Subscript[V, 4],
10.688617499098877` Cos[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V, 6],
10.688617499098877` Sin[
1.7535178875569941`- Subscript[\[Theta], 4] +
Subscript[\[Theta], 6]] Subscript[V, 4], 0, 0, 0, 0, 0,
0}, {11.684124756739719` Sin[
1.687905071361761`+ Subscript[\[Theta], 4] - Subscript[\[Theta],
5]] Subscript[V, 4] Subscript[V,
5], -11.684124756739719` Cos[
1.687905071361761`+ Subscript[\[Theta], 4] - Subscript[\[Theta],
5]] Subscript[V,
5], -11.684124756739719` Sin[
1.687905071361761`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 5]] Subscript[V, 4] Subscript[V, 5] -
6.092014186855476` Sin[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V,
7], -11.684124756739719` Cos[
1.687905071361761`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 5]] Subscript[V, 4] -
5.105584185203453` Subscript[V, 5] -
6.092014186855476` Cos[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 7], 0, 0,
6.092014186855476` Sin[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V,
7], -6.092014186855476` Cos[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 5], 0, 0, 0,
0}, {11.684124756739719` Cos[
1.687905071361761`+ Subscript[\[Theta], 4] - Subscript[\[Theta],
5]] Subscript[V, 4] Subscript[V, 5],
11.684124756739719` Sin[
1.687905071361761`+ Subscript[\[Theta], 4] - Subscript[\[Theta],
5]] Subscript[V,
5], -11.684124756739719` Cos[
1.687905071361761`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 5]] Subscript[V, 4] Subscript[V, 5] -
6.092014186855476` Cos[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V, 7],
11.684124756739719` Sin[
1.687905071361761`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 5]] Subscript[V, 4] -
34.67646019289704` Subscript[V, 5] +
6.092014186855476` Sin[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 7], 0, 0,
6.092014186855476` Cos[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V, 7],
6.092014186855476` Sin[
1.7669971440830132`- Subscript[\[Theta], 5] +
Subscript[\[Theta], 7]] Subscript[V, 5], 0, 0, 0,
0}, {10.688617499098877` Sin[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V,
6], -10.688617499098877` Cos[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 6], 0,
0, -10.688617499098877` Sin[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V, 6] -
5.7334133978252355` Sin[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V,
9], -10.688617499098877` Cos[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 4] -
6.448400774277682` Subscript[V, 6] -
5.7334133978252355` Cos[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 9], 0, 0, 0, 0,
5.7334133978252355` Sin[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V,
9], -5.7334133978252355` Cos[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V,
6]}, {10.688617499098877` Cos[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V, 6],
10.688617499098877` Sin[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 6], 0,
0, -10.688617499098877` Cos[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 4] Subscript[V, 6] -
5.7334133978252355` Cos[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V, 9],
10.688617499098877` Sin[
1.7535178875569941`+ Subscript[\[Theta], 4] -
Subscript[\[Theta], 6]] Subscript[V, 4] -
31.681854028458915` Subscript[V, 6] +
5.7334133978252355` Sin[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 9], 0, 0, 0, 0,
5.7334133978252355` Cos[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V, 9],
5.7334133978252355` Sin[
1.7963059619833206`- Subscript[\[Theta], 6] +
Subscript[\[Theta], 9]] Subscript[V, 6]}, {0, 0,
6.092014186855476` Sin[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V,
7], -6.092014186855476` Cos[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 7], 0,
0, -16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2] Subscript[V, 7] -
6.092014186855476` Sin[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V, 7] -
13.793103448275863` Sin[
1.688307972226342`- Subscript[\[Theta], 7] +
Subscript[\[Theta], 8]] Subscript[V, 7] Subscript[V, 8],
16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2] - 6.092014186855476` Cos[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 5] -
5.609453705074567` Subscript[V, 7] -
13.793103448275863` Cos[
1.688307972226342`- Subscript[\[Theta], 7] +
Subscript[\[Theta], 8]] Subscript[V, 8],
13.793103448275863` Sin[
1.688307972226342`- Subscript[\[Theta], 7] + Subscript[\[Theta],
8]] Subscript[V, 7] Subscript[V,
8], -13.793103448275863` Cos[
1.688307972226342`- Subscript[\[Theta], 7] + Subscript[\[Theta],
8]] Subscript[V, 7], 0, 0}, {0, 0,
6.092014186855476` Cos[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V, 7],
6.092014186855476` Sin[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 7], 0, 0,
16.` Sin[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2] Subscript[V, 7] -
6.092014186855476` Cos[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 5] Subscript[V, 7] -
13.793103448275863` Cos[
1.688307972226342`- Subscript[\[Theta], 7] +
Subscript[\[Theta], 8]] Subscript[V, 7] Subscript[V, 8],
16.` Cos[
Subscript[\[Theta], 2] - Subscript[\[Theta], 7]] Subscript[V,
2] + 6.092014186855476` Sin[
1.7669971440830132`+ Subscript[\[Theta], 5] -
Subscript[\[Theta], 7]] Subscript[V, 5] -
70.89122626043408` Subscript[V, 7] +
13.793103448275863` Sin[
1.688307972226342`- Subscript[\[Theta], 7] +
Subscript[\[Theta], 8]] Subscript[V, 8],
13.793103448275863` Cos[
1.688307972226342`- Subscript[\[Theta], 7] + Subscript[\[Theta],
8]] Subscript[V, 7] Subscript[V, 8],
13.793103448275863` Sin[
1.688307972226342`- Subscript[\[Theta], 7] + Subscript[\[Theta],
8]] Subscript[V, 7], 0, 0}, {0, 0, 0, 0, 0, 0,
13.793103448275863` Sin[
1.688307972226342`+ Subscript[\[Theta], 7] - Subscript[\[Theta],
8]] Subscript[V, 7] Subscript[V,
8], -13.793103448275863` Cos[
1.688307972226342`+ Subscript[\[Theta], 7] - Subscript[\[Theta],
8]] Subscript[V,
8], -13.793103448275863` Sin[
1.688307972226342`+ Subscript[\[Theta], 7] -
Subscript[\[Theta], 8]] Subscript[V, 7] Subscript[V, 8] -
9.852216748768473` Sin[
1.688307972226342`- Subscript[\[Theta], 8] +
Subscript[\[Theta], 9]] Subscript[V, 8] Subscript[V,
9], -13.793103448275863` Cos[
1.688307972226342`+ Subscript[\[Theta], 7] -
Subscript[\[Theta], 8]] Subscript[V, 7] -
5.544419908272468` Subscript[V, 8] -
9.852216748768473` Cos[
1.688307972226342`- Subscript[\[Theta], 8] +
Subscript[\[Theta], 9]] Subscript[V, 9],
9.852216748768473` Sin[
1.688307972226342`- Subscript[\[Theta], 8] + Subscript[\[Theta],
9]] Subscript[V, 8] Subscript[V,
9], -9.852216748768473` Cos[
1.688307972226342`- Subscript[\[Theta], 8] + Subscript[\[Theta],
9]] Subscript[V, 8]}, {0, 0, 0, 0, 0, 0,
13.793103448275863` Cos[
1.688307972226342`+ Subscript[\[Theta], 7] - Subscript[\[Theta],
8]] Subscript[V, 7] Subscript[V, 8],
13.793103448275863` Sin[
1.688307972226342`+ Subscript[\[Theta], 7] - Subscript[\[Theta],
8]] Subscript[V,
8], -13.793103448275863` Cos[
1.688307972226342`+ Subscript[\[Theta], 7] -
Subscript[\[Theta], 8]] Subscript[V, 7] Subscript[V, 8] -
9.852216748768473` Cos[
1.688307972226342`- Subscript[\[Theta], 8] +
Subscript[\[Theta], 9]] Subscript[V, 8] Subscript[V, 9],
13.793103448275863` Sin[
1.688307972226342`+ Subscript[\[Theta], 7] -
Subscript[\[Theta], 8]] Subscript[V, 7] -
46.60649804654324` Subscript[V, 8] +
9.852216748768473` Sin[
1.688307972226342`- Subscript[\[Theta], 8] +
Subscript[\[Theta], 9]] Subscript[V, 9],
9.852216748768473` Cos[
1.688307972226342`- Subscript[\[Theta], 8] + Subscript[\[Theta],
9]] Subscript[V, 8] Subscript[V, 9],
9.852216748768473` Sin[
1.688307972226342`- Subscript[\[Theta], 8] + Subscript[\[Theta],
9]] Subscript[V, 8]}, {0, 0, 0, 0,
5.7334133978252355` Sin[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V,
9], -5.7334133978252355` Cos[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 9], 0, 0,
9.852216748768473` Sin[
1.688307972226342`+ Subscript[\[Theta], 8] - Subscript[\[Theta],
9]] Subscript[V, 8] Subscript[V,
9], -9.852216748768473` Cos[
1.688307972226342`+ Subscript[\[Theta], 8] - Subscript[\[Theta],
9]] Subscript[V,
9], -17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3] Subscript[V, 9] -
5.7334133978252355` Sin[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V, 9] -
9.852216748768473` Sin[
1.688307972226342`+ Subscript[\[Theta], 8] -
Subscript[\[Theta], 9]] Subscript[V, 8] Subscript[V, 9],
17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3] - 5.7334133978252355` Cos[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 6] -
9.852216748768473` Cos[
1.688307972226342`+ Subscript[\[Theta], 8] -
Subscript[\[Theta], 9]] Subscript[V, 8] -
4.87419323862842` Subscript[V, 9]}, {0, 0, 0, 0,
5.7334133978252355` Cos[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V, 9],
5.7334133978252355` Sin[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 9], 0, 0,
9.852216748768473` Cos[
1.688307972226342`+ Subscript[\[Theta], 8] - Subscript[\[Theta],
9]] Subscript[V, 8] Subscript[V, 9],
9.852216748768473` Sin[
1.688307972226342`+ Subscript[\[Theta], 8] - Subscript[\[Theta],
9]] Subscript[V, 9],
17.064846416382252` Sin[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3] Subscript[V, 9] -
5.7334133978252355` Cos[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 6] Subscript[V, 9] -
9.852216748768473` Cos[
1.688307972226342`+ Subscript[\[Theta], 8] -
Subscript[\[Theta], 9]] Subscript[V, 8] Subscript[V, 9],
17.064846416382252` Cos[
Subscript[\[Theta], 3] - Subscript[\[Theta], 9]] Subscript[V,
3] + 5.7334133978252355` Sin[
1.7963059619833206`+ Subscript[\[Theta], 6] -
Subscript[\[Theta], 9]] Subscript[V, 6] +
9.852216748768473` Sin[
1.688307972226342`+ Subscript[\[Theta], 8] -
Subscript[\[Theta], 9]] Subscript[V, 8] -
64.3077236102139` Subscript[V, 9]}};
Ap5 = (A15 - B15.Inverse[D15].C15);
Bp5 = (B25 - B15.Inverse[D15].D25);
K15 = D45 - D35.Inverse[D15].D25;
K25 = C25 - D35.Inverse[D15].C15;
temp1 = K15 - D55.Inverse[D75].D65;
Asys = Ap5 - Bp5.Inverse[temp1].K25;