Mathematica Definition and 1000 Threads

Hi all, a quistion about how to add the cofficients list to gether? here is an example: For[m = 2, m ≤ 4 , m++, For[p = 2, p ≤ m^2, p++, If[PrimeQ[p], Print[CoefficientList[PolynomialMod[Expand[(1 - x)^m], p], x]]]]] {1,0,1} {1,1,1} {1,1,1,1} {1,0,0,2} {1,2,3,4} {1,4,3,6}...

Hello. I have a question about Mathematica. I have a series of files named P1.txt, P2.txt, etc. Each file contains 200 pairs of coordinates [x,y]. I want to write a loop that would import each of these files in turn, process them with NSolve, and then export the output files as Q1.txt...

Homework Statement hello, I have to solve a couple of equations on Mathematica for a project, and since they are not really working out, I wondered if you could help me out a bit. I need to solve equation (1) (you can find the equations in the .doc attached) and plot the solution for a...

Hello, i have the following problem in mathematica and i want to convert it in MATLAB ,but in 3 dimensions. npoints = 10000; vectorpoint := {RandomReal[{-1, 1}], RandomReal[{-1, 1}]} experiment = Table[vectorpoint, {npoints}]; experiment[[10]] the result is for example {-0.921607...

Hi, I have just started working with mathematica and I am making a few manipulable plots of differential equations. The problem is that when I use the slider to change the value of certain parameters, the size of both axes change along, which makes it difficult to compare graphs. I would...

For example, how would I plot the fixed vector <3, 4, 3>? I'm not sure if I'm using the correct language; I mean the vector with its tail at (0, 0, 0) and head at (3, 4, 3).Also, how would I plot the plane 11x + 19y + 39z = 88?

The following Mathematica code generates a highly oscillatory plot. I would like to plot only the lower envelope of the plot but do not know how. Any suggestions wouuld be appreciated. tk0 = \[Theta]'[t]*\[Theta]'[t] - \[Theta][t]*\[Theta]''[t] tk1 = \[Theta]''[t]*\[Theta]''[t] -...

I'm currently learning Mathematica. Are there any forums that you guys usually surf?

Hey guys, i have the following situation: I have a function which looks like \frac{(a+bx)^3}{(x-y)^6(x-z)^6} As one can easily see this function has poles at y and z of order 6. Now, I know how to calculate the residue of this function for instance at y, but how do I implement this into...

Dear forum members: After numerically solving a differential equation and plotting the results I would like to determine the single maximum value in the plotted range but do not know how. The code below works for numerically solving the differential equation and plotting the results...

Hello, i have this formula to iterate(attached). It is hermite's polynomial . I wanted to ask if in order to access Ai(x) , where A is another function , can i do this ? ... suma = 0; sumb = 0; For[i = 1, i <= n, i++, suma +=[SIZE="4"] a[x][[i]]*Cos[Pi*x] ; (a is A) sumb +=...

I don't understand why I didn't get the number in the end? Thanks for your answer!

Hi, Quick question about Mathematica. As far as I know, squaring a negative number should give a positive result, right ? Let's say -2² should be 4 or is that wrong ? When doing this in Mathematica I get -4 as a result. Shouldn't it be 4 ? Any help is greatly appreciated. Also, does...

I've been trying to work through the heat equation given in this Sous Vide cooking primer: http://amath.colorado.edu/~baldwind/sous-vide.html It gives a modified version of the heat equation with a shape parameter for simplification. The equations are shown below...

Homework Statement I need to find a away to make circuit elements (resister capacitor etec) in Mathematica using lines graphic, and I am new to this so I am not really sure how...and i need to connect the elements to make a circuit. i think i made a resister Graphics[Line[{{0, 0}...

I need to calculate integral \int^{\frac{2\pi}{a}}_{0}\int^{\frac{2\pi}{a}}_{0}\int^{\frac{2\pi}{a}}_{0}\frac{1}{\sqrt{1-\frac{(cosxa+cosya+cosza)^2}{9}}}ctgh(\frac{6SJ\sqrt{1-\frac{(cosxa+cosya+cosza)^2}{9}}}{2T})dxdydz a,S,J are constants different then 0. I try to use Mathematica...

Hi, Does anyone know how mathematica and maple solve cubics? Do they do it numerically?

Hi guys, I need a hint on how to solve this integral using mathematica I = Integral ( A(x)*x^2*cos(nx) )dx , (0 to infinity) A is a function of x and infact i have the values of A for different values of x which was obtained experimentally. I need to find the value of I(the integral)...

Hello there! I'm doing a plot of some measured forces in mathematica. I have the measured values (in Newtons) in the form: {0, 0.000981, 0.004905, 0.001962, 0.002943, 0.003924, 0.005886,0.006867, 0.007848} When i plot it (as ListPlot against some other set of values) those small numbers...

Mathematica problem: Filter: H(jw)=(3.84+5 (j w))/(5+j (1.11 w^2)) Bandwidth where: |H|>1/Sqrt[2]*Hmax Calculate the bandwidht Tips or solution would be much appriciated Thanks

I want to make a Table[] but aI don't want this function to evaluate its argument each time. for example, I want to make the table {12,22,32,42,...}, instead of {1,4,9,16,...} how?

As you may have seen in previous postings I am developing a code that will ultimately take as input the Red, Green, Blue channels of an image and convert each pixel value to its corresponding Hue, Saturation, Intensity value. I have gotten a great deal of the code to work properly but am really...

Hello all, There's something I don't understand when using Return[]… Take this input : f := Function[{x}, (If[x > 5, Return[a]]; x + 3)]; g[x_] := (If[x > 5, Return[a]]; x + 3); and this output : In[25]:= f[6] g[6] Out[25]= Return[a] Out[26]= a In one case, it returns...

I've this problem i don't know how to solve ... I declare this two vectors of numbers(a shortened list) and then when I make a table with them for further calculation, Mathematica truncates some of them, not showing the decimal part of the numbers with more than 6 digits ... The code is...

I would like to perform a complicated nonlinear fit with mathematica, which involves a numerical integral in the fitted model. But i can't get it to work. If I say something like: NonlinearRegress[data, NIntegrate[f[x, p1, p2, y], {y, 0, 1}], {p1, p2}, x] it says the integrand evaluated...

Hi, is there a way to factor expressions in matrices? for example In[1]:= MatrixSimplify[{{3/2, 5/2}, {9/2, 1/2}}] (*I just made up the name MatrixSimplify*) Out[1]:= 1/2 * {{3, 5}, {9, 1}} I tried with Simplify[] and with Factor[] but it didn't work, it seems they just simplify every...

I am hoping to use Mathematica to solve simple projectile motion equations. Can anyone offer some tips in regard to the syntax, or maybe a reference guide/site?

Does anybody know how i can make files in a do loop in mathematica? For example i want a do loop as (here is not mathematica language) do i=1,10 make file = text_i.txt (here i is the index of the do loop) end do The results of this process would be ten files as text_1.txt text_2.txt...

Hi, I have just started using Mathematica mainly for its symbolic math abilities; however, I have run into a small problem that I don't know how to fix. I have generated a matrix of dimensions: Dimensions[A] = {4,4,1} And I need to convert this to a matrix of dimensions...

I am currently working on an algorithm which will ultimately be able to take as input a 3 matrices, (R,G,B) and convert each pixel value into hue saturation and intensity values. So far I have been able to get all but the hue portion to work properly. Here is the code thus far...

How can I force : A Log[b] + A Log[c] to simplify to A Log[b c]? I tried, A,b,c all elements of reals, but it doesn't do it. (Assume everything is Real) I know I can make some patterned rules but I'd rather have it be by default. (i.e. : a_ Log[b_] + a_ Log[c_] :> a Log[b c])

Hi all, I have a 2nd order ODE I am trying to solve using NDSolve. In the ODE there are two constant coefficients and an initial condition that I want to 'vary'; meaning, I have a table of initial conditions with corresponding constant coefficients. It is straight forward to solve the ODE...

Hello , i wanted to ask sth I have a map : xn+1=rxne-xn , r>0 and r<20 I want to find fixed points .My problem is that i don't have a value or r.I can't manipulate the r values. (if i had an r value i would do : r=2;) My code is: y[x_]:= r x Exp[-x]; To find the fixed points ...

Hi everybody, This is my first post in this forum. So, "Hello everybody" ! I hope someone can help me. I started to learn Mathematica a few weeks back and really like the software. I actually prefer it over Matlab but that's just my personal opinion. I used 'Mathematica demystified' and...

I have three n x n matrices for which I am try to compute the saturation of each element in the matrix. The function to find this is S:=1-3(Min r,g,b) where r,g,b are the color channel matrices. For my output I am trying to get it to return an n x n matrix with each element having the function S...

Hi all, Does anyone know how to get Mathematica make a 3D plot with logarithmic axes? I need a, say, 3D version of LogLogPlot. I have a 3D function Rdb[nf, pf] which I want to plot for {nf, 10^10,10^18} and {pf, 10^10,10^18}. I can get cross sections of what I need when I do...

I want to plot a line in mathematica with a negative slope by setting it's starting point, length, and slope but i couldn't figure out how to do it. example: A line "AB" has a starting point (40,0) has a length 10 has an angle 127 degrees between x axisIn MATLAB i can do this with %% k =...

Hi I'm trying to solve this famous problem with Mathematica: "How many ways can a math professor incorrectly address Christmas cards so that no card gets to the originally intended recipient" I found a recurrence formula but don`t know how to implement it in Mathematica, this is the...

Hello everyone, I apologize for posting such an introductory mathematica question, but I can't find an answer anywhere. I seem to be having trouble assigning variables and then plotting with the variable name. Perhaps I'm thinking too much in terms of ordinary computer programming or...

Homework Statement I have to program a three component decay chain using finite difference approximation. I understand finite difference and have written my code, but I have an error I can not find which is giving me an erroneous answer. The curve is correct, but the magnitude of the...

Hi to everyone I'm new to this forum and if someone knows about formulas or how to generate the arithmetic and progression geometric and with the software Mathematica 5.0?! Both of these have starting member and step for calculation...Thanks in advance, G.S

Hi there. Well, I got a surface plotted with Mathematica. I've used the Plot3D command for this. But now I want to plot a point in the same graph. The thing is I've used Taylors polynomial of second degree, and I want to "see" the point around which I'm making the approximation. But I don't know...

How do I fit the data given below into the standard form (ignore the part saying to use MathCad): http://screensnapr.com/u/apmqkd.png {{{0.002, 0.726}, {0.022, 0.739}, {0.042, 0.75}, {0.062, 0.759}, {0.082, 0.768}, {0.102, 0.776}, {0.121, 0.785}, {0.141, 0.794}, {0.161, 0.802}...

While I know there exists: In[1]:= Timing[Integrate[blah]] Out[1]:= {result,time it took to calculate} Is there a way to just have the time it took to process a step appear in the Out[1]:= part, or after every step rather than having to use the Timing function and then pull out the...

I wish to compute Sum[f[i], {i, 0, m}] - Sum[f[i], {i, 0, j}] but can't get the expected result Sum[f[i], {i, j+1, m}] I also tried Sum[f[i], {i, 0, m}] - f[0] but can't get the expected result Sum[f[i], {i, 1, m}] It seems that mathematica can't change the minimum/maximum...

Hi everyone, i have a problem with mathematica. I am supposed to compute the eigenvalue of a matrix, and I need the expression for the eigenvalues analytically. But it output strange symbols. and I am unable to decipher what it means. What I got is an output consisting of words like root and...

Hi all, I am trying to evaluate and plot a function of two variable in mathematica. Function: R(t,\theta) = a(t) + b(t)*Y_n(\theta) Where a(t) and b(t) are functions (that I have evaluated already), and Y is the spherical harmonic for a given n, and R is the radius. In...

I'm trying to calculate several stuff about the electric field generated by 2 "plaques" My main problem being that in mathematica it calculates fast for a point of the electric field generated in the Y component, but if i try to make the median of all the points in the plaque it takes way to...

Hi, I'm currently working on a C program where I have a huge 2d array that changes with time, so in the end, what I have is a 3d array (double 25*24000*100) in a plain text file (about 700MB). I tried to import with Mathematica7 as a "Table" but after a long time (about 15 minutes) the kernel...

a\text{''}[t]+B[t]*a'[t]-A[t]*a[t]==0 a[0] = 10^-9 a'[0] = 0 a[t] = ? The coefficients A and B are variable over time. I HAVE solved (experimental and theoretical values) for the values of A and B over the time interval of interest! I attempted to solve for a[t] using NDSolve as one...