2
votes
0answers
55 views

How to make circuit-like diagrams [duplicate]

I was reading through a blog post and found some really nice graphs, and I was wondering how to generate similar ones with Mathematica:
0
votes
0answers
56 views

Simplify a complex trigonometric equation resulting from constraint solving

In the solving of mechanical constraints, I often meet complex trigonometric equation that I have to simplify. Here the equation I would like to simplify : Mathematica notebook presenting the ...
3
votes
0answers
56 views

High CPU load for dynamic classification

I encountered some issues with extremely high CPU load when I tried to classify live images (using Dynamic and CurrentImage[]). ...
4
votes
4answers
146 views

How to scope `Pattern` labels in rules/set?

Module[{x}, f@x_ = x; p@x_ := x; {x, x_, x_ -> x, x_ :> x} ] ?f ?p gives ...
14
votes
5answers
311 views

Apply multiple functions to parts of a nested list [duplicate]

data = {{1, a, x, "one"}, {2, b, y, "two"}, {3, c, z, "three"}} I want to apply a list of four functions {f, g, h, m} one ...
3
votes
1answer
76 views

Easiest way to add labeled axes to a grid?

I have a grid of images and I' d like to add axes with labels for the \ two dimensions. Here's my data: g = Grid@Table[RandomImage[1, {50, 50}], {i, 5}, {j, 10}]; ...
3
votes
1answer
48 views

How to center Title/Label in a Bullet Gauge rotated? and how to add a second line?

My target is make a dashboard with VERTICAL bullet gauges (that is not available in Mathematica, only the horizontals), a previous Q & A helped me to obtain vertical gauges (that its good but I ...
5
votes
3answers
1k views

How can I solve the equation with integers as a solution?

I want to solve the equation $$(x-1)^2 + (y-1)^2 + (z-1)^2 = 49$$ where $x$, $y$, $z$ are integer and $x \neq 1$, $y \neq 1$, $x \neq 1$. How do I tell Mathematica to do that?
0
votes
0answers
74 views

Custom keyboard shortcut. Previous answer is not working in Mathematica 10

I want to remap the alias delimiter from Esc to Ctrl+f (or Ctrl+Shift+f or some other key combo). I have not been able to get the previous solution to the question to work (Rebinding keys to define ...
5
votes
0answers
45 views

How does the Contours→{{f_1, g1}, {f_2, g_2}, …} setting work?

I want to plot some wavefronts in Mathematica, and I'm having some trouble reining in one of the options for my ContourPlot3D. More specifically, the documentation for ...
1
vote
1answer
83 views

Getting complex infinity for solution to differential equation

DSolve[y''[x] - (2 n + 1) (3 + 2 n) y[x]/(4 x^2) + \[Beta] y[x]/ x^(-2 n) == 0, y[x], x] I am trying to solve the equation and all I am getting is ...
0
votes
0answers
37 views

Mathematica Not finding Eigenvectors? [duplicate]

I have the following matrix: mat = {{-60., 0., 2.1*10^-35 II + 2.1*10^-35 (-1. II + Istar), 2.1*10^-35 II + 2.1*10^-35 (-1. II - 4.7619*10^6/Istar)}, {-6.4*10^22 II - 6.4*10^22 (-1. II - ...
0
votes
0answers
30 views

Show full output for a matrix in mathematica [on hold]

I have a very large rectangular matrix. It is an incidence matrix that I obtained from a bipartite graph data. I want to view the whole matrix. It only shows SparseArray[...] and specifies dimensions ...
0
votes
1answer
164 views

Check an inequality if one condition holds

A = Abs[-1 + 1/(1 + β)] + Abs[-((1 + 2 α + Sqrt[1 + 4 α + 4 α β])/(2 α + 2 α β))] Is A <1 if ...
0
votes
0answers
30 views

How to make graph like that [duplicate]

Can I know how to make graph like below: it's a list of disconnected points like {200,5}, {500,10}, .. {1000,15} and then plotted by list plot, but how to add these rounded pins on these points
0
votes
0answers
5 views

Formula for the area of a trapezoid when only points are known [migrated]

I am making a personal website and the main menu consists of scaled trapezoids. I can find the coordinates of the points for each trapezoid, and I know the parallel edges. I need a formula that can be ...
10
votes
1answer
482 views

How to copy hyperlink addresses using the keyboard

I would like to copy the address of a hyperlink in Mathematica using the keyboard. I found code for copying hyperlink addresses in ContextMenus.tr: ...
22
votes
4answers
1k views

How to force Compile to return multiple results?

I would like to return two separate values from a compiled function, but Mathematica refuses to use the compiled version. Here is a narrowed-down example: ...
1
vote
1answer
49 views

Clustering using Mathematica

I've got a two column table (Fields, Methods) and I'd like to find which Methods relates to many Fields. Can I accomplish this task using Mathematica? This are the sample data. https://jpst.it/L6I5
3
votes
0answers
509 views

Visualising Special Relativity

Mathematica newbie learning by doing (or not so far, in this case). Problem: Special Relativity - consider two inertial frames $A$ & $A'$ in relative motion. At a time $t0$ as measured in $S$, ...
0
votes
1answer
91 views

Plotting several 2D plots on one 3D graph [duplicate]

I know that there are some similar questions but I don't find the solution to my problem. I have made several 2D spectrum plots from data of txt files (colunm1 vs column2. Each one showing a plot ...
47
votes
3answers
1k views

How is pattern specificity decided?

Mathematica has a notion of pattern specificity, which is a partial ordering on patterns. The rules (e.g. DownValues, SubValues,...
0
votes
1answer
87 views

Making a bouncing ball simulation interactive [closed]

Problem A ball initially at height $h_0$ above a horizontal surface is dropped at time $t = 0$ with zero initial velocity. When it arrives at the surface, the ball bounces in the vertical ...
-4
votes
1answer
68 views

Apply If function to FoldList [on hold]

I have defined the following function: cpdz[c0_, m_,s_, r_, t_, n_] := If[c0 > 0, c0*(m*c0\s - (m - 1)*Exp[r*t/n]), c0*Exp[r*t/n]] for s I have a set of ...
3
votes
1answer
243 views

Bug in parallel computing

The following is a simplified example. We construct a library function f and another library function g, in which the library function f is called. ...
3
votes
2answers
51 views

GeoRegionValuePlot not using ColorFunction colours

I have a custom Blend for use with GeoRegionValuePlot's ColorFunction option. ...
2
votes
1answer
53 views

Colouring of 3DPlot

I have a ParametricPlot3D in which I would like to change colouring to meet the rest of my work. There seems to be some orange colour as the basic one which is ...
-3
votes
0answers
37 views
2
votes
1answer
70 views

How can I find the eigenvalues of a Sturm-Liouville equation?

I am trying to find eigenvalues of a Sturm-Liouville equation using Mathematica10.2, but setting different precisions in ParametricNDSolve gives me different ...
4
votes
2answers
258 views

Graph diameter algorithm

Does anyone know what the complexity of Mathematica's GraphDiameter algorithm is? I have a family of very large (and very regular and very sparse) graphs, and if Mathematica uses something like the ...
3
votes
2answers
61 views

Getting rid of sub-exponential terms in an asymptotic expansion for a modified Bessel function

I am trying to get Mathematica to produce suitable asymptotic expansions for some modified Bessel functions at large argument (more specifically, the expansion in the DLMF's eq. (10.40.1)), and I'm ...
0
votes
0answers
15 views

Recursion limit error in FeynRules

I added this lagragian to the Standard Model file LBSM =HC[CC[dR]][sp1,ff1,col1].Ga[0,sp1,sp2].del[dR[sp2,ff1,col2],mu] Gaux[mu,ff2,ff2,col1,col2]; where Gaux is ...
8
votes
1answer
133 views

Replace nested external definitions in Compile

f = #^2 &; Compile[{{x, _Real, 1}}, f /@ x, CompilationOptions -> {"InlineExternalDefinitions" -> True}] // CompilePrint works fine. ...
12
votes
1answer
2k views

Solving Killing equations

Is it possible to solve Killing equations in Mathematica for a general vector? I am looking for a way to create Killing equations and then find what the vectors are, but I have a problem with this. ...
3
votes
1answer
65 views

Rule for derivatives

I have a differential equation of the form $$f'(x)=g(x,f(x))$$ (where $g$ is has a known explicit form, e.g. $x f(x)$) and I have an expression which contains several derivatives of $f$. I want to ...
0
votes
0answers
31 views

Making NestWhileList call TuringMachine until it produces a halt state [on hold]

I want TuringMachine to produce output while it hasn't reached a halt state defined as a configuration of the tape. So, if I specify that the halt state for the ...
112
votes
13answers
6k views

What are some useful, undocumented Mathematica functions?

There have already been some questions about some undocumented functionality in Mathematica. Such as (please add to these lists!) How can one find undocumented options or option values in ...
0
votes
1answer
47 views

Drawing Arrows to connect points from two separate data sets representing coordinates

I have 2 separate Excel files that I'm importing into Mathematica. Each Excel data file has numerous rows of data containing a coordinate of three columns (x,y,z). I have been able to plot these ...
1
vote
1answer
68 views

Generating a very large list of integers not divisible by a set of primes

I have read (58520), but the solutions there do not work when using a large maximum value because they rely on Range. For example, ...
0
votes
1answer
61 views

how can I get the right derivatives in this Sum?

I want to get the derivatives of $q_i$ of the following function Q in Mathematica: $$Q=\sum _{i=1}^N q_i$$, Using the command of $$\frac{\partial Q}{\partial q_i}$$, the software give me an answer of $...
8
votes
3answers
313 views

Find parameters that minimize the distance between two curves in terms of the infinite norm

I am trying to implement a very simple NMinimize code that would search for parameters of a polynomial that minimize (globally) the distance between this polynomial ...
3
votes
0answers
74 views

Resolution of geographical image [duplicate]

There is a simple code to draw a polygon showing Georgia, but resolution is low: ...
4
votes
1answer
61 views

How to increase the image resolution of a map?

I'd like to obtain higher-resolution geographic maps retrieved from Wolfram geo server, since the standard resolution seems poor. I tried to increase the "TileSize" parameter, like this: ...
3
votes
1answer
71 views

Why does RegionUnion fail for these Regions?

Introduction Lately, I asked for a solution to inflate and unite a List of BoundaryMeshRegions: Inflate and unite a list of 0D to 2D regions JasonB came up with a ...
0
votes
0answers
34 views

Error with Wolfram|Alpha query from Mathematica?

I upgraded to version 10.4 of mathematica, then I run a query with WolframAlpha inside Mathematica but there comes a error message. I do not know what happened. It send me this: ...
1
vote
2answers
51 views

Changing Plot Options for two different graphs under Manipulate

I am trying to plot two discontinuous functions, each with different plot options, using Manipulate. In my code, I have defined a function for $z$ and $sq$ in my code. ...
3
votes
2answers
161 views

Intensity variation of image as ContourPlot

I would like to color code the brightness values of an image (8bit, gray scale, 1600*1200 pixels). Each pixel should be color coded according to its brightness value using a dedicated color table. An ...
1
vote
1answer
47 views

solve equation with integer maximum [on hold]

how to solve with Mathematica a)$ \left [\kern-0.10em\left[ 5 x \right]\kern-0.15em\right] = 2x+1$ b) $ \left [\kern-0.10em\left[1/ 5 x \right]\kern-0.15em\right] > 2x+1$ EDIT = double ...
-6
votes
1answer
67 views

A Complicate sum with Mathematica, need Help! [closed]

I found the sum shown below in a scientific paper. I need to calculate it. $$\sum_{k_1+k_2+...+k_n=m}{m \choose k_1,\,k_2,\,\ldots,\,k_n}\ f_{k_1}(x)\,f_{k_2}(x)\,...\,f_{k_n}(x),\qquad k_i \in \...
22
votes
2answers
983 views

How to retrieve the parameters calculated and used by ImageAdjust?

When ImageAdjust is called with an image, i.e. with one parameter, it returns an automatically adjusted Image. I would like to ...

15 30 50 per page