All Questions

In the interest of better controlling the organisation of arbitrarily complex list/array/etc. structures, I created a simple function $\{a\}\mapsto a$. It is distinct from ...

I am reading "Hands-On Start to Wolfram Mathematica: And Programming with the Wolfram Language 2nd. Edition". Here at page 12 there is an example to in put in free form (...

I am solving an ODE of the form f'[t]=func[f] to some initial condition with NDSolve, and obtain a solution for ...

I would like to report a possible bug in solving the eigensystem, at least for certain matrix. I use version 12 in mac. I will attach the minimal working example below. Excuse me for the improper ...

I've been using this to plot the function. Can someone tell me what im doing wrong? Plot[1/(-1+(e^CubeRoot[x]),{x,0,1}]

I am using Taylor series approximation of error function to evaluate the follow integral $I_\alpha$: $$I_\alpha=\int_{0}^1 e^{-c_1x+c_2x}\mathrm{erf}(c_3x+x_4)dx,$$ with approximation: $$I_\beta=\...

I have been trying make a plot that I have with ListPointPlot3D into a line plot instead of a point plot. I wish there was something called ListLinePlot3D. I've seen examples with, ...

In Root[f,k], how exactly are the roots of a polynomial f enumerated? The Mathematica manual seems to only say that The ...

I recently installed Wolfram Mathematica in a instance in Google Cloud using GPUs and I'm running it inside Jupyter Notebook, Python 3, using Wolfram Client library. However, big outputs, like a 400,...

3*Cos[t] == Cos[Sqrt[3]*t] between the values t=0 and t=1 Thanks for any help.

What are the Mathematica ways to draw this seemly delicate figure? Such that we can output a PDF file in the end.

I'm solving a differential equation by NDSolve. After solving the equation, I got the solution for $$. But, now I want to visualise the vector(which makes an angle phi with the normal) on the ...

I have asked a similar question earlier, but I am still stuck at the same problem. I would like to solve an algebraic equation of the form ...

I want to create a custom BarLegend with continuous colors: ...

Recently I created a notebook in Mathematica 12 and I wanted to make a presentation of it, so I converted to a Presentation, like follows: Format-> StyleSheet-> PresenterTools->Facet That is ok and I ...

I thought that Mathematica would be smart enough to know that f[t]^2 should match a_ * b_ with ...

I am using the following code to obtain a list density plot: ...

I can solve the function equation $f(f(x))=x$ with the following code: WolframAlpha["solve f(f(x))=x", {{"SolutionAsAFunctionalEquation", 1}, "Content"}] But ...

Spherical harmonics satisfy a number of recurrence relations as reported here. How can I enforce them in order to simplify a complicated relation like this one: ...

The Mathematica 12 in my computer cannot launch Chrome or Firefox session correctly. The first error message is ...

Write the code to display the exact image shown above.

I make my graphics in Mathematica using the Wolfram Language. This works quite well, but I have run into an issue that will make it work much nicer if it is solved. In the following code, I render ...

Consider the following model, u[x1_, y1_] :=Block[{x = x1, y = y1}, ODE f = Sin[c x + y]; g=(c 5 y + 2)/(x + 2);s1 = Solve[{f == g}];{s1}] and then call the <...

On Mathematica need to plot an initial wave function defined as... Psi(x,0) = Ax when 0 <= x <= a/2 Psi(x,0) = A(a - x) when a/2 <= x <= a Here is my attempted code... ...

I have the next array: DeleteCases[DiskMatrix[radius], 0, {2}] And I would like to have access to each element first neighbors. How can I have access to those ...

Suppose I have a list with mixed elements {{{a,b},{c,d}},{{e,f},{h,i}}} Is there a way so that I can reshuffle the elements to get the following? ...

In version 12, the code If[$VersionNumber >= 9, FilterOptions[a_, b___] := Sequence @@ FilterRules[{b}, Options[a]], Needs["Utilities`FilterOptions`"]] ...

...

Consider the quantity $$H=n-1-\sum_{i\ne j} R_{ij}, $$where $R$ is a random $n\times n$ Hermitian matrix with trace $1$. The code that generates it was kindly provided by a user in another question of ...

I need to ask the user the function to make some procedures. For example, instead of having at the code f[x_] := Sqrt[1 + x]; and then ...

I am simplifying an expression in Mathematica in parallel. The memory usage is exploding. It seems that Mathematica is creating many Kernels which have no CPU usage, but considerable RAM usage (see ...

Context I want to solve a PDE via FEM on a Disk. If I use a Square I can write ...

I have a function where I input a certain vector of parameters and it gives me the output of 16 FindInstances. So, a typical output will look something like this ...

I want to find the inverse of the following matrix, which is given in terms of the following constants: ...

I would like to automate a process to find the minimum of a non-differentiable function, perhaps using a similar system as the bisection method but adapted to finding minima instead of roots. Any ...

Here are two instances of an Kaprekar number $\text{9${}^{\wedge} $2 = 81 $\&$ 8+1=9}$ $\text{8${}^{\wedge} $3 = 512 $\&$ 5+1+2=8}$ There are certainly more with a higher exponent , ...

...

I create an ImplicitRegion from a box-shaped region with one face replaced by a function h[x,y]. If h[x,y] is a "normal" function, e.g. ...

I was trying to calculate this Cross product Cross[{a, b}, {c, d + e}] Mathematica gives the following result ...

\begin{align*} u_{1}&=c_{1}cos(\beta x)+c_{2}sin(\beta x)\nonumber\\ u_{2}&=c_{3}cos(\beta (x-z_{1}))+c_{4}sin(\beta (x-z_{1}))\nonumber\\ u_{3}&=c_{5}cos(\beta (x-z_{2}))+c_{6}sin(\beta (...

This problem relates to Prepend 0 to sublists I have the list t1 = Table[m = n + IntegerReverse[n]; n = m, {n, 3}, {i, 1, 4}] giving ...

I would like to draw the graph of $f(x)=x^{3}-x+2$ next to two buttons named: "Property1" and "Property2" in which when I press "Property1" it shows "f'(1) is positive", while for "Property2" it shows ...

Before working in my code I wrote tests on a textcell . I want to add a checkbox at the end of each sentence to track my progress. So, I will checkbox if the program pass. How to add a Checkbox into ...

In Mathematica 12.0, I run the following code: f[x_] = BesselI[0, x]; f'[x] which returns BesselI[1, x] as expected. But if I ...

The probability density function of binary normal distribution in textbooks is in the following form: ...

Plot the equation y = 2x - 7, where x goes from -10 to 10...

WolframAlpha["query"] - https://reference.wolfram.com/language/ref/WolframAlpha.html Free-form input - https://reference.wolfram.com/language/workflow/EnterFreeFormInput.html For example: ...

Consider $n$-dimensional vectors $c^i = \left(c^i_1, c^i_2 ...c^i_n \right)$ , whose entries are complex and generated at random. These vectors are normalized such that $$|c^i|^2 = 1.$$ Using ...

I have two images which are similar. I would like to highlight the pixels in the difference image (e.g. in red) if the values are not exactly 0. How can I do that? I know I can get the image data ...

I'd like to know how much I'm using of the total memory Mathematica has available but I've found no built in function that would tell me this, so I've came up with this pretty straightforward formula: ...