Help with Matrices in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg21054] Help with Matrices in Mathematica
- From: aranisin at usc.edu (aranisin)
- Date: Sun, 12 Dec 1999 23:51:19 -0500 (EST)
- Organization: University of Southern California, Los Angeles, CA
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I am trying to build a matrix of matrices
and wondering whether the following does
not work. I will appreciate your help. Please
e-mail to this address.
Thanks,
Arani
ScientificForm[%];
R11=20
R22=20
L11=10^-8
L22=10^-8
L12=5 10^-9
C11=25 10^-14
C22=25 10^-14
C12=15 10^-14
Rs1=50
Rs2=50
Cs1=10^-14
Cs2=10^-14
Table[Table[f[p,q],{p,4},{q,4}],{i,6},{j,20}]
D1={{0,0,-R11,0},{0,0,0,-R22},{0,0,0,0},{0,0,0,0}}
E1={{0,0,-L11,-L12},{0,0,-L12,-L22},{-C11,-C12,0,0},{-C12,-C22,0,0}}
One={{1,1,1,1},{1,1,1,1},{1,1,1,1},{1,1,1,1}}
Mat[[1,1]] = One
Mat[[1,2]] = D1
For[i=3, i< 20, i++,Mat[[1,i]]=0]
Mat[[2,1]] = E1
Mat[[3,1]] = (1/2) E1.E1
Mat[[4,1]] = (1/6) E1.E1.E1
Mat[[5,1]] = (1/24) E1.E1.E1.E1
Mat[[6,1]] = (1/120) E1.E1.E1.E1.E1
Do[Mat[[i,j]] = (1/(i+j))*(D1.Mat[[i,j-1]] + E1.Mat[[i-1,j]]),{i,2,6,1},{j,2,20,1}]
Print[Mat[[3,1]]