Register to reply

Adding many functions in mathematica

by wil3
Tags: mathematica 8
Share this thread:
wil3
#1
Jun13-11, 10:52 PM
P: 181
Hello. Can someone tell me what I can do to the following code fragment:

sigma = {2,4,6,8}
mu = {1,3,5,7}
gauss[x_, mu_, sigma_] = (1/(2*\[Pi] * sigma^2))*
E^-((x - mu)^2/(2*sigma^2))
lorentz[x_, m_, gamma_] = 1/(\[Pi]*gamma*(1 + ((x - m)/gamma)^2))
spec1 = Apply[Plus, gauss[x, mu, sigma]]
spec2 = Apply[Plus, lorentz[x, mu, sigma]]

spec1 and spec 2 correctly appear as sums of multiple terms, but I cannot plot either as a function of x. Where have I gone wrong?

thanks for any help
Phys.Org News Partner Science news on Phys.org
Suddenly, the sun is eerily quiet: Where did the sunspots go?
'Moral victories' might spare you from losing again
Mammoth and mastodon behavior was less roam, more stay at home
Simon_Tyler
#2
Jun14-11, 12:56 AM
P: 313
The following quick fix will work:

sigma = {2, 4, 6, 8};
mu = {1, 3, 5, 7};

gauss[x_, mu_, sigma_] := E^(-(x - mu)^2/(2*sigma^2))/(2*Pi*sigma^2)
lorentz[x_, m_, gamma_] := 1/(Pi*gamma*(1 + ((x - m)/gamma)^2))

spec1[x_] := Total[gauss[x, mu, sigma]]
spec2[x_] := Total[lorentz[x, mu, sigma]]

Plot[{spec1[x], spec2[x]}, {x, -10, 10}]
wil3
#3
Jun14-11, 07:56 AM
P: 181
that works for me. I probably should get better acquainted with that "Apply" operator. Thanks for your help.


Register to reply

Related Discussions
Adding sine functions General Math 9
MathOO: Adding Object Orientation to Mathematica Math & Science Software 0
Adding cosine functions Precalculus Mathematics Homework 2
Adding two complex functions? Calculus & Beyond Homework 5
Adding Two Wave Functions Introductory Physics Homework 0