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 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 =...
Homework Statement
Produce a graphical display of the solutions for the ode:
y''+8y'-9y=22e^(2t)
Homework Equations
The Attempt at a Solution
VectorPlot[{1, y'' + 8 y' - 9 y}, {x, -3, 3}, {y, -3, 3}] Doesn't seem to work, because it just gives me a graph of horizontal line. I...
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 want to solve FFT and IFFT in the same problem. My function is Exp[2*(1 + I*c)*T^2].
For FFT, I used the following code:
ClearAll["Global'*"]
c = 0;
f[t_] = Exp[-(1 + I*c)*2*t^2];
sampleTime = .01;
data1 = Table[f[t], {t, -5, 5, sampleTime}];
freq1 =...
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] ==...
How is MM doing the integral? Is this something with a definite solution?
Limit[Integrate[(1 - 2 x)/x^2, {x, a, b}], a -> 0]
Integrate[(1 - 2 x)/x^2, {x, 0, b}]
The first one gives infinity, the second a closed solution, though technically they should be the same, right?
I am using
co = 0;
co++
If[Mod[co, 20, 1] > 10, 1, 0];
which is used in an iterative function
which produces 10 1' s 10 0' s, 10 1' s 10 0' s and so on ...
Could I use a similar method to produce 10 1' s then 5 0' s, 10 1's 5 0' s and so on...
So, I've managed to get the distribution in a decent way. Using this code;
hw = 1;
kt = 25;
n = 10000;
dist[b_] := 1/(b*Exp[hw*m/kt] - 1);
normsum[b_] := Sum[dist[b]*(m + 2)*(m + 1)/2, {m, 0, 300}]
q = FindRoot[normsum[b] == n, {b, 0.5}]
occnumber = Table[N[dist[b /. q]*(m + 2)*(m +...
Homework Statement
Hi. My question is about braid relations and yang-baxter equation. braiding operators should satisfy the relations given in pdf file. But according to my mathematica calculation one braiding operator does not satisfy the relations.where did I make a mistake? I include...
Hello,
I'm quite new to Wolfram Mathematica and do like the elegance of some parts of the language. However, I think that loop controls are quite different and not very intuitive.
Here is a simplified version of what I'm trying to do (now of course done manually):
k[1] = {200, 300, 400...
I'm kinda of messing around with a model of a biological system, I've found the equilibriums and decided I'd get the stability relations as well. I tried using mathematica to get the eigenvalues of the system to see if its stable or not and when I got the eigenvalues of my matrix mathematica...
I am trying to input these 2 equations of motion for a double acting pendulum into mathematica in hopes of solving for θ2, θ2', and θ2''. I am fairly new to the program and I am having trouble inputting the equations. I am swinging a prosthetic leg like a pendulum and I am trying to predict what...
Hi everyone, i have been recently trying to get familiar with the Mathematica software for a project am working on. In the course of that i encountered a problem on graphics. here's the question:
Superimpose the plots y=√(x^2+a), √a≤x≤√a+3 for the values a=1,a=4,a=9 in the same figure...
Suppose that I had a set of Y points Y = {y1,y2,...yN} and I want to plot them again a set X = {1,2,3,...,N}
Naturally, I would like to do something like:
YX = { {y1, 1} , {y2,2} , ... , {yN,N} }
followed by
ListPlot[YX,PlotJoined->True]
My question is: How can I construct YX...
Hi All,
Does anyone know of a way to make plots in mathematica in terms of variables?
For example, suppose you had a function sin(a*x), and you wanted to plot it but did not want to set a to a specific value, the purpose being to have the graph report multiples of a, not specific numbers...
OK.
Could somebody please tell me how to get a graph/plot from Mathematica into WinEdit.
I've seached on the internet and it all talks about source codes and a lot of other stuff I don't understand.
Copy and paste does not seem to be an option!
Could some one exlpain to how to do it...
Hello,
does anyone have an idea how easily to display a matrix of numbers such that each entry, for example 3, is displayed (3%), without having to type it manually, i.e. a command to do it for each entry in my output matrix?
Thanks a lot!
Given a set of points in a list how can you not only plot them (which I know how to do) but how can you connected a line between each successive pair of points.
i.e. { {Point1},{Point2},{Point3},...{PointN} } so that Point 1 has a straight line connecting to Point2, 2 to 3, 3 to...
Basically, I'm trying to get the various entries of TT to be dotted with the various entries of KK. Each row of TT is a vector while in KK the elements are vectors.
So I'm working with different dimensions, but should be able to "call" them still using the right command. My attempt is below...
I wanted to make a matrix whose elements are the Eucledian distance between row vectors in another matrix, obviously this matrix will be symmetric because distance(x,y) = distance(y,x).
I have had no difficulty doing this in Matlab but I can't do it in Mathematica
Here is my attempt
A =...
Trying to define the size of a matrix by making a zero matrix then adding elements to it (piece by piece in a loop).
Here is the general idea:
U = ConstantArray[0, {3, 3}] // MatrixForm
U[[2, 2]] = 2
(except in the actual code, I would use U[[i,j]] , for example).
My error message...
I have 2 questions:
1. Solve sin x + cos x =Sqrt2, 0 lessthanequalto x lessthanequalto pi/2.
I can't figure out how to input this question into Mathematica...
2. Find the equation of the tangent to the curve y = x^2+1 at the point (2,4) and plot both the tangent and the graph on...
Hello,
does anyone know how to specify the number of ticks to be labelled in a plot at an equal distance, without writing the list of positions explicitly?
Thanks!
Hi everyone,
I'm wondering why Mathematica (8.0) can't bring this to the obvious form -1, and leaves the expression as is:
Simplify[(b^8 + c^4) /a^8, a^8 + b^8 + c^4 == 0]
Is there any nice and elegant way how to achieve that?
(I know, that I could take e.g. /.c->(-a^8-b^8)^(1/4), but...
I am trying to create a list of 5 random numbers between 1 and 20
In[62]:= RandomInteger[{1, 20}, 5]
Out[62]:= {10, 11, 9, 8, 1}
But is it possible to exclude the number 10 from appearing?
Hello,
I have a Mathematica code with Manipulate [] and a number of inputs. At the end I have ContinuousAction->False, but my code keeps repeating the evaluation, even when the inputs are not changing. Ideally, I would like it to evaluate once when an input is changed. But now it goes like...
Hello, everyone.
I have a code written in Mathematica that loads a single file in turn. Each file contains a 200×2 array of numbers which are x,y coordinates of points. I feed each line of each file in a loop that contains a NSolve equation system. The equation system returns 5 outputs for...
I've created a simple algorithm to count primes up to say 1000 which satisfies a certain criterion :
count = 0;
Do[p = Prime[jj];
If[And[MultiplicativeOrder[2, p] == p - 1,
MultiplicativeOrder[3, p] == p - 1], count = count + 1], {jj, 3, 1000}]
count
Now this algorithm works...
lis= {{{2, 1}, {3, 2}, {8, 2}}, {{9, 6}, {1, 0}, {0, 2}}}
I am trying to reverse the subsublist so {2,1} becomes {1,2}, {3,2} becomes {2,3}...
I have tried Map[Reverse, Flatten[lis, 1]] but this creates
{{1,2},{2,3},{2,8},{6,9},{0,1},{2,0}}
which erases my sublist
Is there a way I...
Hi guys,
I have a problem with exporting to PDF format from Mathematica 7.0.
As seen in the attachment PlotLabel is correctly displayed in the note book (test.nb), but when I try to export it, some characters just don't seem to be displayed correctly (plot.pdf).
I've tried the "Save...
If I have a list;
list={ {{1, 2}, {1, 3}, {1, 5}},
{{2, 2}, {2, 4}, {2, 1}},
{{3, 3}, {3, 5}, {3, 2}} }
and want to plot it using ListPlot[list]
Is it possibe to colour all the 1st pairs of the list e.g. {1,2}, {2,2}, {3,3} blue, {1,3},
{2,4},{3,5} green and {1,5}, {2,1}, {3,2} red using...
Hello,
I need help constructing a drop-down menu in Mathematica with options depending on the selection from a previous drop-down menu. The example is first the user selects a continent, and then the second drop-down menu shows the respective countries.
Any help would be much appreciated.
Hello ,i have the following problem in mathematica and want to do it in matlab.
mathematica :
...
Walk1D[n_] := FoldList[Plus, 0, steps[n]]
LastPoint1D[n_] := Fold[Plus, 0, steps[n]]
...
nsteps = 200; nsq = Floor[Sqrt[nsteps]];
MeanSquareDistance1D[n_Integer, m_Integer] :=...
I wish to integrate:
\int dE \frac{\sqrt{E^2-m^2}}{E} \log \left(\frac{E-\sqrt{E^2-m^2}}{E+\sqrt{E^2-m^2}} \right)
Integrate[ Sqrt[(El - m) (El + m)]/El Log[( (El -Sqrt[(El - ml) (El + ml)])/ (Sqrt[(El - ml) (El + ml)] + El))], El]
But it won't do it. Anyone have any ideas as to why...
reading data from txt files
there are two .txt files. One is map.txt, another is event.txt.
map looks like below:
dfafdafskdjf:{{0.837711763427 -0.8359730469 2.4152891949e-04 0.000360245716236} {0.831761777387 -0.8240730748 2.4446745066e-04 0.000359914513716} {0.819861805217 -0.8062231165...