Mathematica problem with plotting

  • #1
16
0
Hello,
I'm trying to plot some functions with different parameters on the same graph. For each one I have to calculate some parameters from a matrix A. I need to plot this for several matrices A, so I'd like to be able to just copy-paste the new elements in the matrix A, rather than writing them in any other form. But it doesn't want to plot it. What am I doing wrong? Here's the code:

psi[n_, x_] := Exp[-x^2/2] Sqrt[1/(2^n n!)] HermiteH[n, x]

A = {{0, 1.00000000, 0, 0, 0, 0, 0, 0, 0, 0}
{0, 0.96702400, 0, 0, 0, 0.03485079, 0, 0.00757913, 0, 0}
{0, 0, 0, 0.33830360, 0, 0, 0, 0.00747333, 0, 0.00884880}
{0, 0.91306615, 0, 0, 0, 0.12627611, 0, 0, 0, 0}
{0, 0.89336436, 0, 0, 0, 0.15727524, 0, 0, 0, 0.00220772}
{0, 0.87655652, 0, 0, 0, 0.18238453, 0, 0, 0, 0.00976638}}

Plot[Evaluate[
Table[(A[[n]][[1]]*psi[0, x] + A[[n]][[2]]*psi[1, x] +
A[[n]][[3]]*psi[2, x] + A[[n]][[4]]*psi[3, x] +
A[[n]][[5]]*psi[4, x]), {n, 6}] ], {x, -5, 5}]
 

Answers and Replies

  • #2
vela
Staff Emeritus
Science Advisor
Homework Helper
Education Advisor
15,094
1,674
You need commas between the lists that form the rows of the matrix A. Also, did you mean to have all those zeros in A? The odd-numbered columns are all 0s.

You can accomplish what I think you're trying to do a bit more simply if you use matrix multiplication. After removing the zero columns from A, I used this command to produce the attached plot.

Plot[A.Table[psi[m, x], {m, 0, 4}], {x, -5, 5}]
plot.png
 

Related Threads on Mathematica problem with plotting

Replies
4
Views
2K
  • Last Post
Replies
1
Views
2K
  • Last Post
Replies
4
Views
2K
  • Last Post
Replies
1
Views
3K
  • Last Post
Replies
1
Views
3K
Replies
1
Views
976
Replies
1
Views
3K
  • Last Post
Replies
1
Views
1K
  • Last Post
Replies
6
Views
13K
  • Last Post
Replies
9
Views
15K
Top