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

How to plot a point with two colors?

...
  • 354k
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

How can I verify that the function $f$ and its simplified version are same?

...
  • 135k
3 votes

How to fix accuracy error?

Don't use machine precision ...
  • 135k
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}}; ...
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