2
votes
1answer
399 views

Smoothing a single rectangular pulse in NDSolve

Hello I am interested in smoothing out the sharp edges of a single rectangular wave centered at the origin. I am looking for a smooth function that looks almost exactly the same as the square wave ...
2
votes
1answer
553 views

Solving vector equations

I made this very simple module to try and solve vector X: ...
1
vote
1answer
76 views

ClusteringComponents returning only ones

I am trying to use ClusteringComponents without having to specify the number of clusters initially... so the algorithm can find itself the optimal number of clusters... My data is of the form: ...
4
votes
2answers
290 views

How to highlight the feature edge of an image with draggable select lasso?

As shown in the picture, i want to know if it is possible to: 1) recognize the feature edge like face,nose,eyes,mouse,etc. 2) highlight the feature edge with draggable select lasso, 3) return the ...
8
votes
2answers
177 views

Efficient way to obtain values of a function defined by an Integral

Consider the following equation: $$S(q)=\frac{(4 \pi \rho ) \int r (h(r)-1) \sin (q r) \, dr}{q}$$ I want to numerically obtain values for $S(q)$ given that I have data points representing $h(r)$ ...
1
vote
1answer
88 views
8
votes
2answers
562 views

A femme is a wife is a Frau

As can be seen from LanguageData["Properties"] // Multicolumn Mathematica's translation capabilities seem to be very limited. It can translate month names, ...
14
votes
3answers
2k views

Fitting ellipse to 5 given points on the plane

Five points are required to define a unique ellipse. An ellipse has five degrees of freedom: the $x$ and $y$ coordinates of each focus, and the sum of the distance from each focus to a point on the ...
2
votes
0answers
162 views

How to include confidence intervals into ProbabilityScalePlot?

I use ProbabilityScalePlot[data, "Weibull"] to plot measured data and ...
1
vote
1answer
160 views

Graphicsrow title [duplicate]

I made the following graphic with Mathematica 9.0: Does anybody know how to put a title on the top of the whole graph? (not in each single plot). Basically I used ...
3
votes
0answers
195 views

Increasing MaxPoints in NDSolve results in memory issue

I am interested in increasing "MaxPoints" in NDSolve's "MethodOfLines" in attempt to increase the resolution of the plot of the solution of linearly damped wave equation with transparent boundary ...
2
votes
3answers
158 views

Function to Expand exponentials

Is there a function similar to PowerExpand which expand exponentials? This would, for example, take Exp[5(a + b)] and ...
5
votes
1answer
99 views

Speedup of KL Divergence by Monte Carlo Simulation

I started with Mathematica about just a week, so I don't know how to take all of this environment. What I want to know is if there is a way to speedup my code to compute the KL-Divergence of Gaussian ...
3
votes
1answer
134 views

Region plot of transformed region giving odd result

I tried applying a transformation to a rectangle: RegionPlot[TransformedRegion[Rectangle[{0, 0}, {1, 1}], {#1^(1/3) + #2, 1 + #2} &]] giving In reality, ...
3
votes
2answers
232 views

Orthogonal vector in two dimensions

Maybe this is really basic, but I couldn't figure it out. I would like to find the "hat vector" of a vector I defined: it's a vector orthogonal to the given one, assuming two dimensions. So for ...
4
votes
3answers
144 views

Save associations to a file and reload

I have many (say 2 for now) associations that I want to save to a file ...
5
votes
5answers
154 views

getting at the right parts of a list

I have a way to solve my problem, but it seems like there should be something better. Also I realize that I probably don't have a good enough handle on how to get at parts of lists the way I need to. ...
20
votes
6answers
1k views

Around the Clock

I want to produce with Mathematica something like this Or this 12 hours should be arranged in a pleasing ("rotated") style around / within a rectangle. I don't ask for the hands - depending on ...
3
votes
6answers
191 views

Change last column of a matrix

Given a (rectangular) matrix of integers, i.e. RandomInteger[4, {10, 3}] I want to apply the following rules only to the last column ...
0
votes
1answer
274 views

Latin Hypercube Sampling

I'm looking into Mathematica and I can't find if there is an instruction or a set of them that can perform the Latin Hypercube Sampling, given variable, their ...
0
votes
2answers
75 views

Use modified part of file path as new file name

i want to import an image, modify it and then export the modified image. Something like this: img = Import["C:\\Images\\e4271-5.jpg"] Some modifications ...
1
vote
2answers
67 views

Is there a way to logically test an optional color input inside a module? [duplicate]

Suppose I create a Module that is expected to return a graphic that I will later use in a plotting procedure (e.g., with ...
0
votes
0answers
42 views

How to do replacements in Compile'd code? [duplicate]

I want to do something in the spirit of this code: ...
10
votes
2answers
260 views

Mathematica integration failure - new or old?

Bug introduced in 7.0.1 or earlier, persists through 10.1 Consider the following integral: Integrate[Log[a Cos[x]^2 + b Sin[x]^2], {x, 0, 2Pi}] This takes a ...
3
votes
0answers
701 views

How to solve a nonlinear coupled PDE with initial and some boundary values

I would like to solve the following nonlinear coupled PDE with a mix of initial conditions and boundary values: ...
0
votes
0answers
148 views

No solution with DSolve

I have been trying to solve the following system of ODEs: \begin{eqnarray} ...
3
votes
2answers
623 views

Adding labels and numbers in axes

Let's see the following test case ...
6
votes
3answers
345 views

Enumerating all connected graphs with 9 vertices

The version of my Mathematica is 10. I generate a connected graph with 9 vertices, but find that it is not included in Mathematica. ...
6
votes
2answers
301 views

How to transform a matrix to upper-triangular with operation- tag elegantly?

Description: Recently, I have a thought that writing a function to show the transformation process when a matrix is transformed to upper-triangular. My trail ...
1
vote
0answers
220 views

graphicsgrid white space

I'm working with mathematica 9.0 making a graphic grid. Here's my image: I'd like to know if it's possible to make the two cells from right only one and if there's some manner to rid of the white ...
4
votes
1answer
117 views

Get Documentation Search Results Programmatically

Currently I don't have access to Wolfram Workbench but would like to add my own pages to the documentation search results in Mathematica. How might I most easily manually add pages to the ...
6
votes
1answer
179 views

Switch actions of Shift+Enter and Enter in notebook interface?

How can I switch the functionality of the Enter and Shift+Enter key combinations in Windows? I find Matlab's interface more intuitive sometimes. By default in Mathematica's front-end, the ...
3
votes
2answers
497 views

Convert imported PDF to an image

I've looked through the forum and have not seen an answer for this. I would like to be able to import a pdf document in which each page contains an QR code. I want to then use the Barcode reader ...
14
votes
12answers
671 views

Join lists with nested list

Is there a way of smarter way of joining list of the form l1 = {a,{b,c}}; l2 = {d,{e,f}}; l3 = {g,{h,i}}; To obtain ...
1
vote
0answers
110 views

Why does my dataset lose its typesetting when I add columns?

I've tried multiple methods of adding and removing columns to a dataset, but it seems no matter which way I choose I can't get the data to typeset as a table. Here's my initial dataset: 1) ...
0
votes
1answer
104 views

Substitution of a function in a differential equation

Suppose we have a differential equation as follows: g[t_] := t/2 m[t_] := t/3 A[t_] := {{g[t], 1}, {1, m[t]}} p'[t] == A[t]. p[t], p[0] == {1, 0} ...
6
votes
6answers
250 views

Trying to write out the prime factorization of a number with CenterDot and Superscript

I am trying to use CenterDot and Superscript, in conjunction with Apply to write out the prime factorization of any given integer. Everything works well UNLESS the prime factorization of the number ...
3
votes
5answers
324 views

Output is Input for a Differential with Sign?

Here's the problem: For one of my classes, we're supposed to use Mathematica to solve the equation y''=y-b*y' for a variety of b values and specified boundary conditions and plot the outputs. There I ...
6
votes
3answers
229 views

Remove Successive Duplicate From A Large List (200k by 4 matrix)

I am interested in removing successive duplicate rows from a very large list (~200k rows by 4 columns) using Mathematica.The built-in 'DeleteDuplicates' seems to remove all duplicates, I am interested ...
1
vote
1answer
139 views

Series expanding an expression to an arbitrary power

How can I get Mathematica to directly produce the series expansion of an expression such as $(1+1/x)^n$, where $n$ is an arbitrary positive integer? Note that it's important in my expression to keep ...
2
votes
1answer
453 views

graphics grid legend

I'm working with mathematica 9.0 and I want to make a graphic grid containing 3 different plots. My problem is that when I use plotlegend to label the plots the legend does not show up or the left ...
12
votes
1answer
184 views

Tube and CapForm

Bug introduced in 10.0.0 and fixed in 10.0.2 I am using version 10 to draw tubes. With the CapForm set as Butt the first pipe is as expected but the bent pipe has one rounded end. Is this a bug? ...
2
votes
0answers
73 views

FITS metadata problem

Looks to me that the FITS Export is borged. Here is the problem: When I export out images with accustom metadata into a FITS file, Mathematica truncates and overwrites it. Here is the metadata I ...
1
vote
1answer
317 views

Help in Bifurcation Diagram

My dears, I need to plot a bifurcation diagram for the following non-linear systems represented by the next Mathematica code ...
3
votes
1answer
109 views

Evaluating arguments of module (inside compile)

Note: this is a clarification of 2 earlier unanswered questions, Compile issues, scoping and order of evaluation and Optimising a simple computation with vectors . The problem I have a list of ...
1
vote
0answers
130 views

Real time visualization of parametric plots

I wish to see the following curve develop in real time. f = {Cos[s/Sqrt[2]], -Sin[s/Sqrt[2]], s/Sqrt[2]} ParametricPlot3D[f,{s,-2Pi,2Pi}] I tried to get ...
1
vote
0answers
65 views

Finding related roots to a polynomial

I posted this in math.stackexchange, but this might be a better place. Assume that $f(X,Y,Z,V,W)\in \mathbb{Z}[X,Y,Z,V,W]$ is some polynomial and assume that $f(x,y,z,v,w)=0$. I would like to know if ...
2
votes
0answers
123 views

Weird glitch again!

I have been struggling with these glitches for two days... A related question I asked is here How to eliminate the white gaps in the graph Here is the code, ...
12
votes
5answers
570 views

Joining ordered set of points with splines in spiral

I have a collection of points ...
2
votes
1answer
153 views

Using Manipulate[ ] with physical units

I'm a new user, and am trying to build a simple Boyle's law system in Mathematica. I want to include the units of the values, as I may need to perform some conversions later. If my quantities are a ...

15 30 50 per page