Wolfram Mathematica is a software system with built-in libraries for several areas of technical computing that allow symbolic computation, manipulating matrices, plotting functions and various types of data, implementation of algorithms, creation of user interfaces, and interfacing with programs written in other programming languages. It was conceived by Stephen Wolfram and is developed by Wolfram Research of Champaign, Illinois. The Wolfram Language is the programming language used in Mathematica.
Hi All,
In mathematica, I'm trying to use Conjugate[] to take the complex conjugate of a function that has imaginary numbers in it, but I want to tell mathematica that the variables are real and positive, so that it can nicely combine terms into, say, x^2 instead of x*x.
I've tried doing...
Hi There,
Once I put in values for variable farther down the code from when I first use them (I initially want them just in variable form, I don't want their values defined), every time I evaluate the cell mathematica puts the values in farther up.
Even more disturbing, however, is in...
Hello all :)
I would like to redefine the built-in square root function.
I have written this :
mySqrt[z_]:=√z;
Unprotect[Sqrt];
Sqrt[z_]:=If[Re[mySqrt[z]]+Im[mySqrt[z]]>0,mySqrt[z],-mySqrt[z]];
Protect[Sqrt]
This works fine and redefine Sqrt[] as I want it to be. But, the symbol √ (by typing...
I want to copy and paste a very large equation from Mathematica into MathType in Word however MathType is saying my equation is too large. I need to do this for supplementary info for a publication. Any ideas?
If I have 2 list which are made up of pairs of numbers
e.g.
list1 = {{4, 5}, {2, 10}, {0, 15}}
list2 = {{5, 2}, {3, 7}, {1, 12}}
is there a way I can apply a function (that I have already created, f[x_]) on the lists which runs for e.g. 5 iterative steps with list1 then apply the same...
Mathematica: Div in Cylindrical and "Shadowing"
I have a vector given in cylindrical coordinates. I know that the divergence of the vector should be zero. However, I am not sure why Mathematica is not returning zero. Also, the Div operator is showing up red (Div) and it is saying something...
Ok, I have either completely lost it (very likely) or Mathematica is being weird (much less likely). The finction D[f,x] is supposed to return the partial of f with respect to x, \partial{f}/\partial{x}.
So I have a function V_\theta = (A/r^2 + B)\sin\theta where A and B are constants. So we...
Hello All,
Thanks in advance for any advice.
I'm trying to evaluate whether or not a given wavefunction is a valid solution to the time-dependent schroedinger wave equation, the bottom line being that I want to check that two functions are equal to each other at all points (within a...
Hi all,
I'd like to define a vector valued function in mathematica 7 as the exponential of a quadratic form, defined with respect to a purely symbolic matrix. What I want to do with it is to take derivatives with respect to the components of my vector, and evaluate the result when all...
I want to write down summation of the type
\sum_{d|n , d<n} or \sum_{d|n} both summing over d.
and d|n means d divides n.
I know that I can use Sum[term, {i, n-1}] but I don't know how to use this condition of divisibility to the summation.
any help?
Thanks.
The problem: I need to find the (minimal) rank of some matrix which is basically all parameters. For example, when i ask for the rank of \begin{pmatrix} a& b& c \\ d& e& f \\ g& h& i \end{pmatrix}, I get 3. I would like to get 1, since (excluding the possibility of a matrix of all 0's) it...
Homework Statement
I have a problem with program Mathematica and function FindRoot
Homework Equations
Relevent equations are in the mathematica document in attachment of this post.
The Attempt at a Solution
I tried in the same document but I don't get numerical value? What I...
Homework Statement
That's right, Maple is the dumbest program in existence. Everything I try to erase a line by hitting delete or backspace, it won't disappear. When I want to use an function, I have to load a package ex. "Student Linear Algebra" to use a certain command.
Sometimes the...
I have a set of elements (matrices with symbolic entries and certain special properties) which I constructed in mathematica. I would like to identify the matrices in this (finite but large) set which solve a certain linear equation. I've tried to use Solve in conjunction with Assumptions but was...
Hi all,
Please help me to improve the syntax which involving Do-loop function and solving simultaneous equations and summation together.
the answer should match with the one given in the following cell.
Many thanks for any feeback.
Hello, my problem is that I could not be able to find to separate the roots with the command of FindRoot. Altough I have 2 non-linear equations, I can solve these with FindRooot, but I'd like to have separetely the roots I mean independent roots each other (x apart and y apart). I wonder if i...
I want to create an If statement that states; if the elements in, list1>0 , true subtract list2, false keep value from list1 so that i
end up with ans: {0,2,5,4}
list1 = {0, 2, 8, 9}
list2 = {1, 0, 3, 5}
I don't know how to represent the elements in the lists so that my If statement works
Hi all,
I got stucked with the problem with regard to Do-Loop and solving simultaneous equations together.
Please help me on this matter and the file is attached, Iam using Mathematica 7
Thanks
Hi,
I have imported a data set from EXCEL that is 18 columns wide and 25 rows long. Each row of data appears within it own set of brackets as expected. I am able to pull out individual elements of the array. However, I want to plot column 2 vs column 4. How might I extract those two columns...
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...
Hey,
I am using Mathematica 8 and I finally figured out how to drag a point along a graph using a slider bar, which increases or decreases the x value. Now, I am stuck on how to display the y value for the changing x value on the screen.
My code is below:
parabola = Plot[x^2, {x, -4, 4}...
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 have a list of vectors I would like to plot.
Lets say, I have 4 of them:
{0,0,1}@{0,0,0}
{0,0,2}@{0,1,0}
{0,0,2}@{1,0,0}
{0,0,1}@{1,1,0}
So its basically a 2x2 array of vectors in the Z plane, all pointing in the Z direction with varying magnitude. I can't seem to get it to work, as...
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 += a[x][[i]]*Cos[Pi*x] ; (a is A)
sumb +=...
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 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?