Mathematica Asked by PiE on January 20, 2021
I’m trying to compute a double sum…
For scalars, it seems to be working fine. Here is an example:
Sum[ρ^(h - 1)/
Sum[ρ^x, {x, 0, h - 1}], {h, 1, ∞}] /. {λ ->
0.5, μ -> 2.0, ρ -> 0.5}
But for matrices, similar code does not work.
Subscript[I, 2] = IdentityMatrix[2];
e = ({{1, 1}})
p = ({{1, 0}})
B = ( {{μ, -μ}, {0, μ}} )
Q = Transpose[e].p
V = Inverse[B];
EX = p.V.Transpose[e] /. {μ -> 2.0}
A = Subscript[I, 2] + 1/λ B - Q
U = Inverse[A]
Sum[p.MatrixPower[U, h - 1].Transpose[e]/
Sum[p.MatrixPower[U, x].Transpose[e], {x, 0, h - 1}], {h,
1, ∞}] /. {λ -> 0.5, μ -> 2.0, ρ -> 0.5}
I am unclear what I am doing wrong. Any help would be appreciated.
Thanks
Continuation of my comment: I meant have:
λ = 0.5; μ = 2.0; ρ = 0.5;
The sum value evaluates to
{{1.59413}}
Also please use i instead of I
=========
λ = 0.5; μ = 2.0; ρ = 0.5;
Subscript[i, 2] = IdentityMatrix[2];
e = ({{1, 1}});
p = ({{1, 0}});
B = ({{μ, -μ}, {0, μ}});
Q = Transpose[e].p;
V = Inverse[B];
EX = p.V.Transpose[e] /. {μ -> 2.0};
A = Subscript[i, 2] + 1/λ B - Q;
U = Inverse[A];
N@Sum[p.MatrixPower[U, h - 1].Transpose[e]/
Sum[p.MatrixPower[U, x].Transpose[e], {x, 0, h - 1}], {h,
1, ∞}]
{{1.59413}}
Answered by Lotus on January 20, 2021
Get help from others!
Recent Answers
Recent Questions
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP