All Questions

Filter by
Sorted by
Tagged with
1 vote
2 answers
82 views

How to assign table parameters to use it many times

I'm using two nested Table to generate data which depend on two parameters, let's say it is temperature and pressure, many times in my code. When I change the temp ...
user avatar
  • 95
1 vote
2 answers
140 views

Package the code into functions [closed]

I use ...
user avatar
4 votes
1 answer
77 views

How to find all the vertices of graph that have the same status as a vertex $v$?

We sometimes say that in a graph $G$ two vertices $a$ and $b$ look the same. In layman's terms, this means that $a$ and $b$ are of same status. Precisely, there exists a auto-isomorphic mapping of $G$...
user avatar
  • 857
3 votes
0 answers
71 views

Solve PDE with consraints

I am trying to solve the following problem of the free fall dynamics under gravity of a inextensible horizontal string attached at its end, in a 2D vertical plane. If I'm right, that is the governing ...
user avatar
  • 13.8k
3 votes
1 answer
137 views

How to achieve the transformation using DSolveChangeVariables introduced in Mathematica 13.1?

I have a PDE (1D Schrödinger equation) as follows: $$iu_t-\frac12 u_{xx}-\left(|u|^2-A\right)u=0$$ Applying the following transformations to the PDE, $$\operatorname{u}(x,y,t)=\operatorname{u}(\xi) e^{...
user avatar
  • 459
0 votes
2 answers
82 views

How can I extract the intercepts between two planes and visualize them?

Below is the data for my first plane: data = Flatten[Z = 0.01; Table[{X, Y, 4*Z*Y/X}, {X, 2, 20, 0.1}, {Y, 2, 10, 0.1}], 1]; The second plane is ...
user avatar
  • 3,115
3 votes
1 answer
70 views

Merge two Legend

...
user avatar
2 votes
1 answer
59 views

Cannot DiscretizeGraphics[] Parallelepiped nor Hexahedron

...
user avatar
  • 23
0 votes
0 answers
54 views

How to fix "Coordinate{\$CellContext`x1, \$CellContext`y1, \$CellContext`z1} should be a triple of numbers, or a Scaled form

I have a program which should show the motion of N particles in an electric field as a function of time and position within the field. I am running into the aforementioned error (listed in title) when ...
user avatar
  • 127
1 vote
1 answer
40 views

Uneliding Graphics expressions inside Dataset

Here's an example of a Graphics that has some modest decoration. lp=ListLinePlot[Callout[{1, 3, 4, 6}, "trend"], PlotMarkers -> Automatic] I can wrap ...
user avatar
1 vote
1 answer
54 views

function/module to achive a replacement as follows

I want to shorten some long expressions by using some new parameters. So, I want to create a function/module to achive a (multiple) replacement as follows: ...
user avatar
  • 459
1 vote
0 answers
32 views

Manipulate reevaluate every time

my code is working, however I have a problem, every time I navigate to the pages of the dataset, the Manipulate performs a re-evaluation bringing me back to the first page of the dataset. I would like ...
user avatar
0 votes
0 answers
133 views

Indefinite integral of x/(a + x ln(x))

My web version of mathematica (student version) can't provide an indefinite integral of $$\frac{x}{a+x\ln(x)}$$ where a is a positive constant. Specifically, I enter ...
user avatar
3 votes
0 answers
139 views

Possible bug in ResidueSum

Trying a new command of version 13.1 ResidueSum, I obtain FunctionMeromorphic[{(x^2 - x + 2)/x, Abs[x] > 5}, x] ...
user avatar
  • 17.4k
7 votes
2 answers
438 views

2D Polygon in 3D

What is the easiest way to implement a polygon in a Graphics3D? I want to take a regular polygon, the hexagon for example, and be able to easily rotate it in 3D, as ...
user avatar
  • 4,328
1 vote
1 answer
67 views

Execute script in text mode and keep interpreter open

I'm on linux using Mathematica 12.1.1 in text mode, i.e. command line. How do I execute a script (which for me just means a text file with valid Mathematica expressions in it), display the results and ...
user avatar
3 votes
1 answer
149 views

Generating a non-convex polyhedron from polygons and normals

I am working on developing "directional offset" module, which requires pretty tricky mesh generation: offset values vary in different directions. Suppose I have list of points and polygons, ...
user avatar
  • 131
0 votes
1 answer
55 views

How to prevent vectors from flattening when using an oblong domain

In plotting a 3d vector fields using VectorPlot3D[] with one domain length longer than the others, the vector shapes (both head and tube) flatten to account for the longer length domain. This can make ...
user avatar
  • 4,681
5 votes
0 answers
79 views

Characters and prompt are offset when typing in a text cell using MM13.1

I noticed on my system (Windows 10 and MM13.1) that when I create a text cell (ALT 7) the longer my sentence is the more offset the cursor appears from where I am. When using the left arrow to go back ...
user avatar
  • 3,660
1 vote
1 answer
58 views

Draw the values of two variables each on a axis in a square

I plot lists of {xA1} over time and lists of {yB1} over time. Now, How can I draw two lists {xA1} and {yB1} so that the values of each are shown on a separate axis inside a square? (same as below ...
user avatar
  • 55
4 votes
2 answers
125 views

Adding numbers with defined precision produces incorrect result

I've tracked a bug in my code down to the problem of adding two numbers together, with the left argument having machine precision, e.g by 3` . The issue is, if ...
user avatar
  • 503
0 votes
1 answer
38 views

Strings to textbox to graphics to ImageCollage

I have a set of 42 open comments which will increase in the near future. They all have quite a different length, form 25 to 1294 characters atm, 300 in the mean. I used a weird combination of (minimal ...
user avatar
9 votes
1 answer
408 views

JUST SAYING puzzle

The Sunday New York Times magazine has a new puzzle (June 26, 2022), JUST SAYING by Will Shortz, with the following rules: Change one letter in each word to spell a new word. Then arrange the new ...
user avatar
1 vote
0 answers
42 views

How to run RootSearch with increased WorkingPrecision?

I have a Sturm-Liouville problem on a finite interval $0\leq z \leq 1$. I integrate the one-dimensional ordinary differential equation of the second order (the LoDestro equation) by the shooting ...
user avatar
3 votes
1 answer
160 views

BUG - Different Cloud vs. Desktop Return behavior in V13.1 [duplicate]

After install V13.1 one of my scripts get broke in my Mac. Here is the bug: Module[{}, Return[1]; 2] Return[1] When I tested ...
user avatar
  • 25.4k
3 votes
1 answer
88 views

Use rules on list elements one by one

I have two list list1 = {1, 1, 2, 4, 1, 1, 8, 7}; list2 = {a, b, c, d, e, f, g, h}; I want to build rule,...
user avatar
8 votes
2 answers
235 views

What is an appropriate setting in NDSolve to get feedback about the progress of a long computation?

Often in computation with an NDSolve-type solver, one hopes to know about its progress. To this end, I am using StepMonitor as follows, ...
user avatar
  • 981
1 vote
1 answer
46 views

Several formulas to solve the same problem: how to make Mathematica to run them all at the same time and chose the best?

Suppose you have two functions that do basically the same but with different methods. For instance, integration by Integrate and integration by Rubi package, ...
user avatar
  • 2,821
1 vote
0 answers
32 views

answers Solving puzzles with Mathematica [closed]

Hi, I want to calculate the values of these numbers a, b and c. The only information I have: a = √((b-c)²) b = a * c c = (a+b)/2 Anyone knows where to begin?
user avatar
0 votes
1 answer
86 views

Find a function for which an inequality is always true: performance problems

I have this inequality which compares paths of two motions against time $t$: Machine-generated code: ...
user avatar
  • 115
0 votes
0 answers
48 views

Why is the DateInterval not handling disjoint periods correctly?

Consider the following as an example: ...
user avatar
  • 8,337
0 votes
0 answers
40 views

Modulus square of an complex expression

I have an expression: E^(I*((-k)*x + \[Xi] - (t + 1/2)^y/(\[Beta]*Subscript[b, 2]*(Subscript[a, 2] + 2*k*Subscript[b, 2])))) I want to get modulus square of this ...
user avatar
  • 503
0 votes
1 answer
80 views

Catastrophic loss of precision calculating Fox-H integral

I'm trying to numerically calculate the following Fox-H integral $$ 1-e^{-100}\sqrt{\frac{x}{\pi}} \left(\frac{1}{2\pi j}\right)^2\\ \oint_{\mathcal{L}_1}\oint_{\mathcal{L}_2} \frac{\Gamma(z_1)\Gamma(...
user avatar
1 vote
1 answer
34 views

Change domain of kinetic functions in order to fit with ParametricNDSolve

I'm trying to solve kinetic differential equation depended on time with three parameters: preexponential factor a, reaction order ...
user avatar
  • 95
0 votes
1 answer
56 views

How to avoid Mathematica output the simplified the squared root term by factoring some coefficient

When I use Mathematica to calculate some roots of an quadratic equation, it will output the simplified answer like $\frac{-w \sqrt{-h} \sqrt{4 \theta ^2 p-4 \theta p-h}+h w+2 \theta p w}{2 \theta ( ...
user avatar
  • 3
1 vote
1 answer
42 views

Points, 3DPlots and symmetry of Multivariable functions using Mathematica

My doubts here are related to the construction of 3D plots of Multivariable functions. As a consequence of that, I am going to keep these questions in this single post rather than creating several ...
user avatar
1 vote
0 answers
33 views

Extracting digits of a real number with RealDigits produces unexpected result

I have a list of real numbers, each of which has two decimal places. I'm trying to extract the second digit after the decimal point. The function I'm using is ...
user avatar
  • 1,241
1 vote
1 answer
31 views

Keep arguments of a function unevaluated after replacement rules

Consider an expression of type f[a,b]+a+b and a set of replacement rules sub={a->1,b->2} If I evaluate now the ...
user avatar
  • 131
3 votes
1 answer
170 views

How can I redefine multiplication?

For instance, I want 0 Infinity = 0 I tried this: Unprotect[Times];Times[Infinity,0]=0;Times[0,Infinity]=0;Protect[Times]; But ...
user avatar
  • 2,821
4 votes
3 answers
202 views

Behavior of Mathematica 12.3.1, 13.0.1 under certain integrations

I have a couple of modules (Laplace transformation of Plus-distributions) that were completely straightforward to integrate with version 12.0.0. However, recently ...
user avatar
  • 1,190
3 votes
1 answer
42 views

ListPlot: how to assign different markers to elements in the same list?

I'm stacked in a rather silly problem for which I can't find a solution. I have the following list that is composed of 25 elements: ...
user avatar
1 vote
1 answer
50 views

How to make an inverse operation to `KroneckerProduct[A, IdentityMatrix[m]]` (simplify matrix)?

The operation KroneckerProduct[A, IdentityMatrix[m]] expands the matrix A in the following way (depending on order of ...
user avatar
  • 2,821
1 vote
2 answers
78 views

How to control the x and y size of a plot independently?

I have this plot Plot[Sin[x], {x, 0, 10}, Frame -> True, ImageSize -> 200, PlotStyle -> Red] I would like to change the size along x and y ...
user avatar
0 votes
0 answers
27 views

Taylor series two variables and CoefficientList [closed]

I have the code ...
user avatar
3 votes
3 answers
114 views

Fourier transform in three dimensions

I have a four-dimensional array of the form $A_{ijkl}=\{x_i,y_j,z_k,f(x_i,y_j,z_k)\}$, where $f$ is some known function. I would like to compute the Fourier transform of $f(x,y,z)$ numerically. In ...
user avatar
  • 525
1 vote
0 answers
36 views

Parallel evaluate mathematica notebook

I have several mathematical notebooks and want to evaluate them by NotebookEvaluate[], since there are irrelevant to each other, so I think I can evaluate them parallelly. However, it seems difficult ...
user avatar
1 vote
0 answers
25 views

Replace subexpression with variable in result from Laplace transform

I'd like to clean up the result I obtained from an inverse Laplace transform: First of all, I'd like to replace the square root expressions in the hyperbolic function arguments (part encircled in ...
user avatar
  • 11
0 votes
1 answer
56 views

How to untensor a tensor?

What should I do to convert a matrix of matrices to a non-nested matrix? $\left( \begin{array}{cc} \left( \begin{array}{cc} {a_1} & {b_1} \\ {c_1} & {d_1} \\ \end{array} \right) & \left(...
user avatar
  • 2,821
1 vote
2 answers
64 views

How can I realize this matrix product (dot product of matrices of different orders)?

The matrix multiplication of square matrices of different order is often claimed to be impossible. Yet, if the order of one matrix is divisible by the order of the other, a natural multiplication rule ...
user avatar
  • 2,821
0 votes
1 answer
117 views

Mathematica gives different zeros of polynomials

I have defined the Jacobi polynomials in terms of hypergeometric functions in two ways. While calculating the zeros of Jacobi polynomials, Mathematica shows different values of first few zeros. I am ...
user avatar

15 30 50 per page