Mathematica Definition and 1000 Threads

Issues with Discrete Fourier Transform in Mathematica Maybe someone else had this problem. Lets say we have a sampled Gaussian pulse in time domain and transform it into frequency domain. For that I use the discrete Fourier transform. Now the resulting set of transformed values is made up of...

Hi, Iam looking for a specific command(s) that could give outputs which are determinate only, i.e. only and only if the outputs are not infinity. This is due to the fact that I have iterations cases (using Do-loop) which give both determinate and indeterminate outputs. However, I just...

I want to plot a list of points where each element is of the form {x,y,z} so that the list is like: { {x1,y1,z1} , {x2,y2,z2} , ... , {xN,yN,zN} }. And I want to connect a line between each consectutive pair (i.e. {x(i-1),y(i-1),z(i-1)} & {x(i),y(i),z(i)} ). Unfortunately, its not as...

Hi! It's been like two days since I have tried to make this work, still I got nothing. Searched Google etc. but no help there. I have a three dimensional matrix in form of {{a,b,c}, {d,e,f}, {g,h,i}, ... etc. } with a total of 51 elements, i.e. 51x3 matrix. What I want is to plot it as...

Hi all, I'd like to plot a family of curves corresponding to different values of an integer n (eg. sin(nx) for n=1,2,3...) on a single graph, along with some kind of indication as to what value of n each curve corresponds to. I'm using the command Plot[Evaluate@Table[Abs[P[-t, n]], {n, 3...

Hi all, I have difficulties about applying the Do-loop command as it takes very long time to run (more than 24 hours and it keeps running). However, if i do it manually, without Do command, i.e. putting the values of the variables, Mathematica gives me a pretty quick output. Please see...

I am trying to solve the following system of 2n variables: w1 + w2 + ... + wn = b0 w1x1 + w2x2 + ... + wnxn = b1 w1x12 + w2x22 + ... + wnxn2 = b2 ... w1x12n-1 + w2x22n-1 + ... + wnxn2n-1 = b2n-1 for w1, w2 ... wn and x1, x2 ... xn. The problem is the using the Solve command returns...

Hi All! I am trying to get used to Mathematica and rules and all things syntax. What I am trying t do is this: If I define a variable as such m = Solve[x^4 - 4 == 0, x] The output is: {{x -> -Sqrt[2]}, {x -> -I Sqrt[2]}, {x -> I Sqrt[2]}, {x -> Sqrt[2]}} So I believe what this means...

Hi All, I have a big ugly function (please see the attached Mathematica file), of tau (f(tau)). The only parameters there in symbolic form are w and v. I need to take the derivative of this function with respect to tau, set it equal to zero and solve for tau. (Please see g(tau)). But Solve...

I'm trying to use a random number generator in Mathematica that uses a distribution. I know there's a specific command to do so but I'm a bit confused on how to use it. In my example I'm trying to get random numbers from the wrapped Cauchy and Von Mises distributions. Any help would be great...

Hello :smile: I am a total amateur here and can't seem to get this to work: I have a function beta[M, θ] that I am trying to define. beta is a nasty equation that is way too many lines for me to input at once, so I tried to break it up into pieces. However, the part that is showing up in red...

Hi everyone, please help me to solve my difficulties with regard to simultaneous equations using Mathematica. Thanks for any response.

I have a function f(x,y) that I wish to evaluate for different values of x and y. I created two lists for x and y using table: x = Table[x,{x,1/10,1,1/10}] y = Table[y,{y,1/100,1/10,1/100}] This gives me 10 values for x and 10 for y. Now I want to evaluate my function f(x,y) for...

Hey I have Mathematica 8 and I'm wondering if FeynArts and FormCalc are already installed or I have to install them from somewhere else? If the first how I can get it? Many thanks in advance

I am trying to input the equation of motion for a pendulum: θ1'' = −g (2 m1 + m2) sin θ1 − m2 g sin(θ1 − 2 θ2) − 2 sin(θ1 − θ2) m2 (θ2'2 L2 + θ1'2 L1 cos(θ1 − θ2)) L1 (2 m1 + m2 − m2 cos(2 θ1 − 2 θ2)) with θ2 and θ2'2 being the only unknowns but I am not getting the results that are...

Hi, I faced a problem (in Mathematica) when trying to plot a partial derivative of a functiona (of two variables) obatined by "Interpolation". More precisely, here is my input: surf=Interpolation[{ {{160.0, 160.0}, 2.852688}, {{160.0, 170.0}, 2.827547}, {{160.0, 180.0}, 2.818931}...

Hi All, I have some simple Mathematica commands: f[x_]=x^2+3*x-1 Plot[f[x],{x,0,10}] Now, I need to "rescale" the horizontal axis of the resulting graph, so that number 25 is added to its value (i.e., the horizontal axis would take the starting value 25 (in place of 0) and 35 (in...

Hi All, does anyone know of a mathematica function that efficiently circularly shifts all array elements? e.g. {1,2,3,4,5} -> {4,5,1,2,3} without iterating? The reason I ask is because I have a huge data set I'm working with and right now iterating through is very processing intensive...

Hi, I have a question about fitting in Mathematica.I have a function like this: F=T*Y^(0.5) T is temperature but Y obtained from this coupled equation 1-u*Y=u(1-u/Y^.4)^.5*Y I have T and F from experimental data.so I want to obtain u from fitting. could you please advise me how can I do it...

Hi, I have a question about fitting in Mathematica.I have a function like this: F=T*Y^(0.5) T is temperature but Y obtained from this coupled equation 1-u*Y=u(1-u/Y^.4)^.5*Y I have T and F from experimental data.so I want to obtain u from fitting. could you please advise me how can I do it...

I'm having trouble getting data into mathematica. I have a text file will a list with members separated by returns (enters) that I want to import as an array. I tried: Import["data.txt", "Table"] Import["data.dat", "Table"] Import["data.txt"] Import["data.dat"] All of which failed to...

All, I am having trouble plotting nested lists. I have two data sets (A and B), both with dimensions 5x50. So far I have plot = Map[ ListPlot[#, PlotRange -> {0, Max[A]}, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {"position", "Intensity"}] &, A]; which...

I am very new with Mathematica and I need help writing a program that generates a Farey Sequence. Farey[n] := ? The result should appear as follows, for those values of N. Farey[1] = {0/1,1/1} Farey[2] = {0/1,1/2,1/1} Farey[3] = {0/1,1/3,1/2,2/3,1/1} Farey[4] =...

Hi, I'm trying to import multiple files into Mathematica. Each file is a 2d matrix and I would like to import multiple files into a nested list. So far I have something that only allows me to load a single file. In:= SetDirectory["/directory"]; In:= filenames = FileNames[] Out:=...

Here is an overview of Farey sequences; http://mathworld.wolfram.com/FareySequence.html" I need to write a program in Mathematica 8, FareySequence[n_], that takes a positive integer n and returns, as a list, the nth Farey sequence. So far I have, Module[{denleft, denright, f, i, j, k...

Homework Statement I am creating a program to help me analyze a quantum system. I am having a problem creating a large function that I can pass 6 initial values to and get the result out (IT). I am new to this language but have been asked to code in it. Homework Equations I am...

I need some help writing a Farey Sequence in Mathematica, so far this is all I have: FareySequence[n_] := GCD[a, b]; While b : a, b = b, a % b; result := a Simplify[a, b]; g := GCD[a, b] result := (a/g, b/g) I am very new to programming, please help!

Hi everyone, Please help me to rectify my problem using Mathematica. I got this difficulty on the very last code i.e, solving the simultaneous equation and Do summation process.The remaining codes are all working nicely. As you can see in the attached file, Iam using only variables m = 1...

Homework Statement I am trying to construct a Mathematica notebook that will be able to import sound in the form of a .wmv file and then create the frequency spectrum for a given time interval. Homework Equations I managed to complete this part, though I am trying to figure out: a)...

The Farey sequence F_n (F subscript n) for any positive integer n is the set of irreducible rational numbers a/b with 0<(or equal to)a<(or equal to)b<(or equal to) n and (a,b)=1 arranged in increasing order. The first one should be: F_1 = {0/1,1/1} F_2 = {0/1,1/2,1/1} F_3 =...

If I have : (1 \[PlusMinus] 5) * 5 I want it to read 5 \[PlusMinus] 25 Does anyone know how to get it to evaluate those? Then get to expand multiple terms with plus minuses in them, and ultimately get a min and max of the value. Such as : (a +- b)(c+-d)/(e+-f) where all...

Hi all, How to convert the root of an equation from symbolic form into an ordinary from? I have tried to use the N command, but still displaying in the symbolic form. Thanks

Hi everyone, Given the attached input and result, I'm confused as to how to interpret the 1.1, x.1, and y.1 terms in the solution. Does this mean I'm supposed to dot 1 into 1? How does that work? Any help is appreciated. Of course, x and y are vectors (not that it matters but they're xyz...

Hello all, Does anyone know anything about copyrighting? I have been downloading courseware 6.0 from math everywhere from the UIUC website (there is a direct download link on the webpage). This is recently become an issue, should I be worried? The material costs money but my school provides...

If I have a list say li = {18, 22, 4, 10} and I want to add for example 7 to this list Join[li, {7}] to get {18, 22, 4, 10, 7}, can I insert the 7 after the 4, to get {18, 22, 4, 7, 10}, I can't just use Sort[ {18, 22, 5, 10, 7}] as I don' t want to change the order of the whole list?

Just wondering if its possible to run a Mathematica package (package.m) on a computer that also has a copy of Matlab; because my university computer also has Matlab <..meh...> and I can't uninstall it and whenever I try to use the import functino etc... it thinks that the file is from Matlab and...

I am attempting to do a simple volume integral over a particular shape. However Mathematica will not simply return an answer. For my input Volume = Integrate[ Integrate[Integrate[1, {z, 0, c}], {y, 0, b}], {x, 0, a}] + Integrate[ Integrate[Integrate[1, {z, c, c + a}], {y, b/2, b...

Combine ListPlot and ErrorListPlot in Mathematica?? Hello, I'm pretty new to Mathematica and I'm having a problem getting error bars on a plot. I've been using ListPlot to graph points and then edit the appearance of the graph / include legend etc by: ListPlot["meansdata", Frame ->...

I'd like to write (so not calculate, just "publish") some notes using mathematica. My very big problem in fact is the text-mode... How could I write a system of equations in mathematica, so that it appears "beauty", divided into multiple lines? I don't want something like this: f =...

hi... I have written a Notebook.nb file which generates a vector according to certain criteria... and I need to repeatly re-import the last value (the vector) from the notebook, and the vector is kinda-random (so I need to rerun the first file each time I call it in my new code) and then...

Hi all, I have a hard time finding roots to the following system of equations in 2 unknowns (p,q): eq1 = Pu == f(q, alfa, beta) eq2 = Ql == g(p, alfa, beta) If the 2 parameters (alfa, beta) are given numerical values beforehand, no issue. But I would like to retain the parameters in...

“Non-integrable” multiple integrals for Mathematica Dear all, I have been trying to crack one problem in Mathematica, but I keep getting a wrong answer probably because I have something either fundamentally wrong analytically or code wise. OK, here is the problem. Suppose we have to...

I need help writing a Mathematica 8 function that takes a prime p as input and returns a list of the nonequivalent Pythagorean triples mod p. For example, PythagoreanTriples[13] should return the list; {{1,3,6},{1,4,2},{2,5,4},{2,6,1},{3,4,5},{5,6,3}}

Hello, I have a list {a,b,c,d} and i want a array of the form: {{a,b},{b,c},{c,d}} I think it is easy, but I'm new in mathematica and I don't know what funtion to use. Thanks.

Mathematica Disagrees with ME! Homework Statement (2xy-5)dx+(x^2+y^2)dy=0 y(3)=1 Homework Equations The Attempt at a Solution Ive solved this by hand and now where required to get Mathematica to solve to. My solution: -17/3=x^2y-5x+y^3/3 I've attached what mathematica has...

Hello everyone. I have two animations in Mathematica, each with 187 frames. I would like to put one in a corner of the other and for them to share a slider so they both respond to it simultaneously. Martin

Hi, I have put my data in column form ( a large number of data) in Notepad. I have attached example of the data. I know how to import it into Mathematica. However I face the problem to change the whole set of data to row form in Mathematica so that I can plot the histogram in Mathematica. Thanks.

Hi intelligent people, Forgive me for a silly question, but I am really new to Mathematica and thus I need your help for my own research (I am done constructing NIntegrate values for some "non-integrable" functions, involving multiple steps, and I am kinda stuck at the last step. Here is the...

Homework Statement I have solved this by hand but we are also required to get Mathematica to spit out a solution and I need some help. (2xy-5)dx+(x^2+y^2)dy=0 , y(3)=1 Homework Equations The Attempt at a Solution I know the command is DSolve but I don't know how to put in dx...

Matrix Systems of ODEs -- Mathematica I'm trying to solve the classic "systemm of linear ODEs" of the form: Y(t)' = X*Y(t) Its homogenous, so it wouldn't hurt to rewrite it as Y(t)' - X*Y(t) = 0 (if that helps?) so here is my attempt at the solution solExp == NDSolve[Y'[t] ==...