- #1

asynja

- 16

- 0

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}]