Register to reply 
Adding many functions in mathematicaby wil3
Tags: mathematica 8 
Share this thread: 
#1
Jun1311, 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 


#2
Jun1411, 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}] 


#3
Jun1411, 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 