0
votes
2answers
119 views

Where are the functional programming constructs: `every` and `some`? [duplicate]

Coming from other functional programming environments (e.g., Clojure) I've become accustomed to some functions that I haven't found equivalents for in Mathematica yet. The two I reached for last ...
0
votes
0answers
152 views
7
votes
3answers
234 views

How to Flatten Array of Arrays of the highest order in a simple way?

I have a matrix of matrices, given in the following code. I want to flatten the array... ...
5
votes
2answers
229 views

Why does Mathematica stop when run in the background in command line mode?

If I try to start a Mathematica script in the background from the command line, like this: math -script someFile.m & then the process gets automatically ...
0
votes
1answer
170 views

PDE Solving in mathematica

I'd like to ask how I might go about solving this equation: $\frac{\partial Ci}{\partial t} + \frac{1}{r^2}\frac{\partial (r^2 Ci)}{\partial r} = D\frac{1}{r^2}\frac{\partial}{\partial ...
1
vote
3answers
394 views

Can plot a function, NSolve takes too long

I'm new to Mathematica, so maybe mine is an easy to solve issue, but I haven't been able to figure it out. I have a series of linear ODEs I solve using for: ...
0
votes
3answers
95 views

Manipulate syntax

I am trying to manipulate a plot of the Bernoulli roots as follows: The following code clearly is not going to work, but I have included it in an effort to illustrate my meaning. ...
0
votes
2answers
245 views

Replace Do loop with Nest

...
1
vote
0answers
153 views

Exporting graphics to PDF results in destroyed fonts on Windows 8

Executing plot = Plot[x^2, {x, 0, 100}, PlotLabel -> "Plot"]; SetDirectory[NotebookDirectory[]]; Export["plot.pdf", plot, "PDF"]; results in Is this a bug? ...
1
vote
1answer
59 views

Option Inspector — option definitions

Relatively new to Mathematica, using v. 8.0.4.0 on OSX, and wanting to know where I can find something like a list of definitions for each of the many Global, Notebook, Cell, etc. options listed in ...
11
votes
1answer
240 views

How to find longest monotonic sequence?

I have a list, for example list = {2, 1, 3, 5, 4, 6} How to find longest ascending sequence of this list? There are two meanings of this question: Find the ...
4
votes
1answer
79 views

Syntax for FrontEnd`SelectionSetStyle

I know FrontEnd`SelectionSetStyle is undocumented, but its name suggests it does what I need. What is its syntax? I have already tried several variations of the ...
1
vote
1answer
162 views

Gradually coloring edges in terms of their vertices colors

In order to color Edges in a Graph after applying a function such as VertexDegree I did the ...
0
votes
1answer
137 views

Understanding distribution chart

How to explain DistributionChart function in mathematica, For example: if I have ...
1
vote
1answer
104 views

How accurate is Collect?

Background: I am trying to compute the Lyapunov exponent for the logistic map given by \begin{equation*} x_{n+1}=F(x_n)=ax_n(1-x_n) \end{equation*} The formula for the Lyapunov exponent for a given ...
1
vote
0answers
40 views

Get pattern from rising numbers [duplicate]

I am no mathematician or math star, yet wondering if there is a formula or a way to calculate what follows: I have series of numbers: ...
-2
votes
1answer
874 views

Convolution of two dirac delta functions

Why mathematica doesnt produce any answer to the following integral? Integrate[0.040608386793220284*DiracDelta[w]*DiracDelta[-w + x], {w, -2, 2}] and how can I ...
2
votes
0answers
92 views

TableHeading Lines Do Not Show Up

For a list list = {{"a", "b", "c"}, {"d", "e"}}; Table heading lines do not show up ...
-2
votes
1answer
156 views

Proof: Convergence of an equation and show the first derivative is bounded

We have the following equation \begin{equation} x(k+1)=\arccos\bigg( -\frac{1}{2(Dr^{\frac {|\sin(2x(k)+\theta)|}{M\sin x(k)\sqrt{A+2B\cos(2x(k)+\theta)}}}+1)} \bigg) \nonumber \end{equation} ...
2
votes
5answers
226 views

Treat list as cyclic

I am considering the following case. Say that T={p1,p2,p3} represents a triangle. In addition, I want to parameterize the edges of the triangle ...
2
votes
1answer
172 views

How to make an efficient difference of sets function?

How to write a nice code that removes all elements from given set A, that occur also in set B? I would like to use DeleteCases[] for this purpose, but have no good ...
0
votes
2answers
99 views

fourier issue arising from input miscommunication

xdomain = Table[i , {i, -10, 10, .1}]; ListPlot[InverseFourier[ Fourier[E^-#^2 & /@ xdomain]*E^#^2 & /@ xdomain]] So I want to numerically fourier ...
15
votes
1answer
932 views

How to remap a fisheye image?

I want to flatten a series of fisheye images by remapping them to a rectinlinear projection. To achieve this, I need to be able to remap the pixels of the image using fisheye correction formulas for ...
0
votes
2answers
205 views

NestWhile application

I have the function which take the last list in nested list, reduce it somehow in several ways so the length of list reduces and output new list wherein input list appended with defferent reduced ...
1
vote
1answer
192 views

Defining a curved region for NDSolve

I have an equation to solve using NDSolve which involves two parameters: $en$ and $k$. The equation produces a set of curves when $en$ is plotted against $k$. In ...
2
votes
1answer
445 views

How to combine two plots with the same y-axis

I have a data file which contains three columns of data. The first and the second column correspond to $x$ coordinates, while the third column to $y$ coordinate. Here is a small sample of the data ...
3
votes
2answers
399 views

How to show the coordinates of a point and the equation of a line dynamically? [duplicate]

I am constructing a diagram that consists of a sine curve and its tangent line at a given argument. However, I want to show the coordinates of the point of tangency and the equation of the tangent ...
1
vote
0answers
142 views

parameter NDSolve

the question I need to solve is: t x'[t] == -x[t] + y[t], t y'[t] == -5 t^2/x[t]^2 + x[t] - y[t], x[1] == 4, x[b] == 1 in order to solve the coupled ...
1
vote
1answer
250 views

Plot the solution complex transcendental equation

I'm trying to plot an implicit function satisfying a complex transcendental equation. The code is the following: ...
1
vote
1answer
69 views

What's wrong with the following Plot in Manipulate?

I try to show the convolution of a step function and a triangle function is smooth with the following code: ...
5
votes
4answers
607 views

How can I create an image like this

I'm trying to get an algorithm that generates a picture like this So far I've tried a little something with the help of the knowledge center, getting a graphics grid of squares already. But what ...
0
votes
0answers
182 views

Approximating a stochastic integral with a Wiener process

I would like some assistance to solve the following: $\sum\limits_{i=0}^{n-1} e^{-k(n\Delta t -i\Delta t)}\Delta z_i$ where $z$ is a Wiener process, $\Delta z_i = z((i+1)\Delta t)-z(i\Delta t)$. ...
1
vote
5answers
126 views

What's wrong with my implementation of SquareFreeQ?

This was a question I had last month: Part A: Looking at the exponent of each of the elements in the list, FactorInteger and using ...
1
vote
1answer
624 views

Taking the LCM of algebraic expressions

Is it possible in Mathematica to take the LCM of an algebraic expression? For example, I want to take the LCM of $9$, $9y$, ...
1
vote
1answer
362 views

Invert Colors Stylesheet White on Black

There have been a couple studies done that showed that white text on a black background increase recall of data. Although this is certainly debatable how might I invert the colors of Notebook font ...
2
votes
2answers
183 views

Nonlinear Optimization with conditional statement

I find Maximize doesn't work well under conditional statement. Here is an example. A car is driving up a slope. I want to find out the largest slope angle the car can drive upwards. I choose the ...
3
votes
2answers
402 views

Interpolating data with a step

Suppose I have some data with a step in it: data = {{1, 1}, {2, 2}, {3, 3}, {3, 4}, {4, 5}, {5, 6}}; Interpolation will complain about this and not give you an ...
6
votes
2answers
1k views

Too much whitespace in a GraphicsGrid containing Legended Plots

Where is all the vertical whitespace coming from, and how do I get rid of it? ...
2
votes
1answer
160 views

Manipulate Locator warping (snap to cursor)

I'm looking to have a Manipulator Locator that moves in discrete steps and requies the user to click on/near the locator position.. consider these two examples: ...
0
votes
1answer
137 views

NDSolve finding solution when it shouldn't

NDSolve in mathematica drives me crazy and I'm seriously thinking about switching to Matlab because of strange bugs I run into. ...
3
votes
7answers
373 views

Concise way to generate multiset lists

I wrote the following to generate a multiset with the same number of items over a fixed range: ConstantArray[#, 3]& /@ Range[9] // Flatten ...
2
votes
1answer
82 views

Plot with non-standard domain

I have data {x, y} where x starts at -25 degrees and goes up to +25 degrees in 1 degree steps, and then comes back down to -25 degrees in 1 degree steps again. I ...
9
votes
4answers
361 views

Finding a point from a set of contours such that it is nearest to a given point

I have several contour lines and one point. How can I find a point in one of those contour lines which is nearest to the given point? ...
2
votes
2answers
989 views

Q-Function representation in Mathematica

I observed that there is no Q-function representation in Mathematica. The definition of Q-Function is: \begin{align} Q(x) &= \frac{1}{\sqrt{2\pi}} \int_x^\infty e^{-\frac{u^2}{2}}du \\ ...
1
vote
1answer
103 views

How to use ProbabilityDistribution for a posterior expression [duplicate]

I am performing a Bayesian updating on a Lognormal prior. After combining the prior and likelihood and dividing by the normalization constant I get the following expression as the posterior: ...
2
votes
2answers
137 views

bulk initialization of associative array/hash implemented with function pattern matching?

I see that we can do associative arrays in Mathematica using functions that have implicit pattern arguments, as in ...
1
vote
1answer
144 views

Convolution of a denstity function having a point mass with itself

My density function is as follows: ...
0
votes
0answers
37 views

Use Output as Input [duplicate]

I have this function which as a result returns a point ...
0
votes
1answer
163 views

Adding labels on ArrayPlot and coloring rows

I need to add lables on the right from ArrayPlot for each row and color the black square of each row depending on values from two list. Color list has a numbers in some range and should be mapped ...
0
votes
0answers
44 views

How to fit ODE's coefficient, just like using NMinimize [duplicate]

I want to fit ODE's coefficients to a model. I tried using NMinimize, but it seems it does symbolic instead of numerical calculations. ...

15 30 50 per page