# Tag Info

### How to plot an imaginary number, i, power tower as done in the following way?

Plot the left graph. ...
• 49.1k
Accepted

### Automating interesting ways to write 2023

I would like to point out FrobeniusSolve, e.g. this yields nonnegative solutions $(x_1,x_2)$ of this equation $20 x_1 +23 x_2 =2023$ ...
• 55.5k

### Automating interesting ways to write 2023

I thought it could be nice to use different domains of Mathematica to represent 2023 in different ways. Outline: Entities Polynomial algebra Linguistic Data Number theory Text analysis Special ...
• 4,559

...
• 354k

### Automating interesting ways to write 2023

Happy new year! IntegerDigits[2023, 2] {1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1} Edit: another interesting way ...
• 9,087

### How to plot an imaginary number, i, power tower as done in the following way?

Plotting the real part on the horizontal and the imaginary part on the vertical axis, as is common: ...
• 40.1k

### How to plot a point with two colors?

We can define PlotMarkers by any Graphics object and using ListPlot to add such markers of ...
• 49.1k

### What are some useful, undocumented Mathematica functions?

ValueTrackCollectTrackEvent This helps with figuring out what caused a Dynamic to update: ...

### How to plot a point with two colors?

It's not so easy to do this automatically, and you have to account for the aspect ratio of your plot, without which you end up with a squashed marker. Here's my attempt for manual points and colour ...
• 21.7k
Accepted

### Using the Apply construction

As an expression, before being evaluated, this... Function @@ {t, g} is actually this... Apply[Function, List[t, g]] Now, we ...
• 13.9k
Accepted

### Building A Function Using Constants From a List

Welcome to MSE! To be effective with Wolfram Language, you have to change your thinking from "procedural" to "functional". E.g., try to avoid using explicit ...
• 4,778
Accepted

### How to include sparse points in a ContourPlot if any?

You can split the plots and separately specify exclusions: ...
• 16.7k

### How to plot an imaginary number, i, power tower as done in the following way?

I just saw the above answer. But since I already wrote this might as well post it. The spiral one is tricky. This is for the left side one only ...
• 124k
Accepted

### How to delete edges from a graph with some condition?

MMA is smart enough to sort the vertices. Therefore the "Reverse" is not needed. ...
• 35.3k

### Automating interesting ways to write 2023

According to the Goldbach conjecture, 2023 can be written as a sum of 3 primes... we can find these using: ...
• 66.7k

### Always the same function in function table

Points = {{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}; bsf = BSplineFunction[Points, SplineDegree -> 1]; ParametricPlot[bsf[r], {r, 0, 1}] In case your points ...
• 63.9k
Accepted

### Defining the complex Fourier series and Coefficient functions

You have to be very careful with Fourier series definitions used as the default setting assumes the period is $2 \pi$ which is not what you have so you have to map the definition to one with period of ...
• 124k
Accepted

### how to understand f[{1,2,3,4}]?

Elaborating on the comments: ns = {1, 2, 3, 4} ns^2 (* all the squares *) Attributes[Power] (* this is why (it's Listable) *) And this is why your function ...
• 12.9k

### How to gather functions which intersect at the same point?

This goes through all $2^n -n -1$ subsets of length 2 or more. An overkill that allows very simple code, but it's not practical for large $n$. See other answer(s). ...
• 33k

### How can I force Mathematica to calculate this integral?

Clear["Global*"] Use ComplexExpand ...
• 135k
Accepted

...
• 135k

### How to fix accuracy error?

Don't use machine precision ...
• 135k

### Building A Function Using Constants From a List

Following suggestions in other answers is a good idea, i.e., avoid the use of loops in Mathematica. There are are almost always better ways to do things. That said, to minimally change your code so ...
• 22.3k

### Building A Function Using Constants From a List

f[t_] := Mean[indata[[All, 2]]] + Plus @@ MapThread[#[] Sin[#[] t + #[]] &, {freqvals}] Plot[f[t], {t, 0, 1}]
• 25.1k

### Slots inside nested pure functions

Plus is Listable: {#1, #1 + #2} &[a, {b, c}] But more generally, you can always use the full, explicit form of Function: ...
• 13.9k

### Always the same function in function table

I think the OP's key general problem may be the ordering the points... for example if the order happened to be points = {{0, 0}, {0, 1}, {0, 0}, {1, 1}, {1, 0}}; ...
• 37.6k

### Always the same function in function table

Another option would be to use the Graphics commands: points = {{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}; Graphics[Line[points]] If you want the axes shown: ...
• 66.7k

### Always the same function in function table

Clear["Global`*"] Points = {{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}; FindCurvePath gives an ordering of the {xi, yi} that corresponds to one or more ...
• 135k
This goes only through all $(n^2-n)/2$ Subsets[func, {2}] as suggested by @Syed. For $n=100$ that is only $4950$ cases. It calculates the intersection points of ...