15
votes
How to plot an imaginary number, i, power tower as done in the following way?
Plot the left graph.
...
- 49.1k
13
votes
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
11
votes
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
10
votes
10
votes
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
9
votes
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
7
votes
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
6
votes
What are some useful, undocumented Mathematica functions?
ValueTrack`CollectTrackEvent
This helps with figuring out what caused a Dynamic to update:
...
6
votes
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
6
votes
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
6
votes
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
5
votes
Accepted
How to include sparse points in a ContourPlot if any?
You can split the plots and separately specify exclusions:
...
- 16.7k
5
votes
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
5
votes
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
5
votes
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
4
votes
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
4
votes
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
4
votes
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
4
votes
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
4
votes
How can I force Mathematica to calculate this integral?
Clear["Global`*"]
Use ComplexExpand
...
- 135k
3
votes
Accepted
3
votes
3
votes
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
3
votes
Building A Function Using Constants From a List
f[t_] := Mean[indata[[All, 2]]] +
Plus @@ MapThread[#[[2]] Sin[#[[1]] t + #[[3]]] &, {freqvals}]
Plot[f[t], {t, 0, 1}]
- 25.1k
3
votes
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
2
votes
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
2
votes
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
2
votes
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
2
votes
How to gather functions which intersect at the same point?
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 ...
- 33k
2
votes
How can I plot a set of data in which each subset has three elements
{{a1,b1,c1},{a2,b2,c2}........{a10,b10,c10}} plot a vs b and a vs c
so take {{an, bn}} and {{an, cn}} out.
I have tried ...
- 7,427
Only top scored, non community-wiki answers of a minimum length are eligible