Questions tagged [recreational-mathematics]
The recreational-mathematics tag has no usage guidance.
35
questions
1
vote
2
answers
154
views
Help with the visualization of a function
I am trying to make the plot of an specific function through integration from others, but Wolfram-Alpha and Desmos are having problems with it, so I came here to see if someone could help me using ...
1
vote
1
answer
97
views
Animating a Polygonal Chain Worm's Gait
Here is an example polygonal chain worm:
that was created with the code:
...
0
votes
0
answers
87
views
Mathematical Equations Puzzle: Perfect Sixes
pI have given the following problem to my students
Write some code that solves the perfect sixes problem for all numbers it works for!
The perfect sixes problem asks you to solve some equations:
\...
3
votes
2
answers
276
views
Can Mathematica resume the data that has been completely closed/quit?
Imagine that I run these four simple plots on a PC and then close and quit Mathematica, say the notebook file name is NOTE1
...
5
votes
2
answers
135
views
Find Minimal covering sets for $n\times n\times n$ grid (covering means each grid point has a axis line in common with set)
Let $G_n$ be a $n\times n\times n$ lattice, so $G_n=$Join@@Join@@Array[{##}&,{10,10,10}].
Given a set of lattice points $U$, we say it 'covers' another set $V$ ...
10
votes
5
answers
1k
views
How can I efficiently calculate exact probability distributions for D&D dice like "4d8"?
I play a lot of tabletop role-playing games, and I have been interested recently in modeling the various game mechanics involving dice.
As I see it, a single throw of an eight-sided die can be modeled ...
3
votes
2
answers
990
views
How can a verbal reasoning question be solved with Mathematica?
Could a "verbal reasoning" problem like the following be solved with Mathematica? What comes next in the series.
KD XP NG VN QJ TL TM
Correct answer is <...
1
vote
1
answer
354
views
How to plot the "trapping region" in Henon Map?
I am writing a paper that makes use of the Henon map. I have managed to plot the Henon map but now require plotting the "trapping region" shown in the image.
Do I require to plot it as a ...
2
votes
1
answer
181
views
Calculate the Leyland number index of a given Leyland (x,y) pair
A Leyland number L(x,y) is x^y + y^x where x>=y>1. OEIS A076980 prepends L(2,1) as its first term. The first ten Leyland number (x,y) pairs ordered by magnitude are (2,1), (2,2), (3,2), (4,2), (...
8
votes
3
answers
631
views
Ignoring fractions can lead to correct answer
There is a curious example in Posamentier's book "Magnificent Mistakes in Mathematics" (p. 72):
$(7+3/7)*(4-3/13)= 7*4=28$, where cancelling the fractions leads to correct result. If we ...
0
votes
2
answers
74
views
A function of a list of, say, 100 cities, and we want the FURTHEST point in the Continental US
I haven't given up on this problem but not being fluent in the Mathematica Wolfram Language, mainly because I don't know the commands.
Tia
2
votes
1
answer
87
views
Compact BaseForm Alternative that Extends to Bases > 36
I recently created a document listing the terms of OEIS sequence A256112 in BaseForm. Term #164 and #165 at the end of the document are the two solutions in base 35....
5
votes
1
answer
174
views
Calculating Rubiks $ 2 \times 2 \times 2 $ Permutation using Cycles
The help page of PermutationGroup shows a neat example on calculating the permutations of a $3\times 3\times 3$:
...
1
vote
2
answers
128
views
Generate a sequence of primes giving position and value of a digit in its digit-decomposed version
The prime sequence starts:
...
1
vote
0
answers
120
views
Need help plotting on Mathematica simple piecewise wave function from quantum physics (Quantum Physics, Griffiths, 2.7) [closed]
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...
...
2
votes
2
answers
130
views
Creating a large database of all palindromic numbers
OEIS A002113, palindromes in base 10, shows a number of Mathematica constructs. I have used:
...
14
votes
3
answers
604
views
Importing a grid of numbers from an image (sudoku like)
Can anyone see a way to import a grid of numbers from
http://www.mit.edu/~puzzle/2019/puzzle/lantern_festival.html
into Mathematica? TextRecognize doesn't seem ...
0
votes
0
answers
91
views
Recreational Math: Plots of "Roman Numerals"
I have been trying to solve a recreational math problem using Mathematica. Specifically, I am trying to plot the vanishing set $V_k := \{(x,y): F(x,y,k)=0\}$ for the family of functions
\begin{...
9
votes
1
answer
419
views
Antipodal Land Area Calculation
Mathematica 12 does antipodal graphics! See here for my treatment of antipodal New Zealand. Most of the Earth's above-sea-level land will have ocean at its antipode. Is there a way to calculate what ...
2
votes
1
answer
827
views
How to calculate linear conflicts on a board?
Thanks to your help to solve previous problems, I have been able to advance in the learning of mathematica. It seems that this project to make a solver for the 8-puzzle has surpassed my abilities in ...
5
votes
2
answers
249
views
Simplify the use of Table together with FoldList
I am trying to recreate the following table,where you have the question mark.
to do it occupy the following commands, but I would like to help me improve my code to make it more practical especially ...
1
vote
0
answers
128
views
Will my procedure be correct?
I am facing a problem when trying to solve the exercise of page 210 of the book GRAPHICS with MATHEMATICA, FRACTALS, JULIA SETS, PATTERNS and NATURAL FORMS of the authors CHONAT GETZ and JANET ...
1
vote
1
answer
90
views
Problem with wrapping a basic function
I'm working my way through Mathematica Challenges and tripped myself up on the first question. I have a basic piece of code which works, but am having trouble formatting it to be a proper written ...
3
votes
1
answer
189
views
Generating prime factorizations from an integer's digits by inserting * and ^ into the digit sequence
Problem
Given a positive integer, output all possible valid prime-factorization "statements" thereof created by inserting zero or more multiplication (*) symbols and zero or more power (^) symbols ...
0
votes
2
answers
241
views
Puzzle 2: Sum-Till Forty (Something Funny)
I am learning Mathematica because I love it. I also love solving puzzles so I think it would be a nice way to learn Mathematica through puzzles. This is the second puzzle in a series I intend to solve....
5
votes
1
answer
640
views
Algorithm for Egyptian fractions, want to optimize the maximum denominator size
Any rational number can be expanded into a finite sum of unit fractions with distinct denominators, called Egyptian fractions.
There is no 'optimal' algorithm in terms of denominator size or number ...
0
votes
1
answer
119
views
How to figure out an equation from a plot?
I am trying to figure out the equations y=f(x) of the red dashed lines in this log-linear graph where the x values were plotted on a logarithmic scale while the y values were kept linear.
I tried to ...
5
votes
2
answers
168
views
Making a gift from the given set of points
I have a set of points
...
9
votes
2
answers
551
views
Rotations of a number
If we start with a number like 1234 and produce the following sum 1234 + 123 + 12 + 1 = 1370.
If we are given the 1370 can I retrieve the 1234? A similar question was migrated over to the Math.SE ...
4
votes
3
answers
134
views
Function for converting to base b, taking derivative with respect to b and evaluating at b
I am relatively new to Mathematica and I would like to program a function taking 2 variables in and giving 1 output. I think the best way to describe the function is like so: Given a base 10 number x ...
7
votes
3
answers
292
views
Can Mathematica help me win my on-line game?
I've become addicted to the Forge of Empires web browser game. Presently, the game has a special event going on, which is in commemoration of the 2016 EUFA Soccer Championship. The event has a set ...
15
votes
3
answers
2k
views
Can anyone explain this weird Plot3D error?
This is more of a fun question because I see the source of the error, but cannot explain what Plot3D is doing. Can you figure it out?
...
8
votes
3
answers
903
views
Better answer to Santa's riddle about sum of a number's divisors?
I was hoping to find an elegant solution to this riddle, using only a line or two of Mathematica:
Santa Claus was telling one of his elves: "If I multiply the age of three of my reindeer, I get ...
3
votes
4
answers
677
views
Solving puzzles with Mathematica
I would like to be able to solve logic puzzles such as the one described here using Mathematica.
I have copied & pasted the listed example below to save on jumping about with hyperlinks:
The ...
14
votes
8
answers
5k
views
How to make a resizable chess board?
For some reason I need to create a chess board. I can create a chess board by following command:
...