24/04/19 22:17:09.36 uW4yUc1h.net
>>326
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= solve[m_,n_] := (a=(m+n+1)/2;
Table[(2b-1)Pi/(m+n),{b,1,Floor[a]-Boole[IntegerQ[a]]}])
In[2]:= solve[20,24]
Pi 3 Pi 5 Pi 7 Pi 9 Pi Pi 13 Pi 15 Pi 17 Pi 19 Pi 21 Pi 23 Pi 25 Pi 27 Pi 29 Pi
Out[2]= {--, ----, ----, ----, ----, --, -----, -----, -----, -----, -----, -----, -----, -----, -----,
44 44 44 44 44 4 44 44 44 44 44 44 44 44 44
31 Pi 3 Pi 35 Pi 37 Pi 39 Pi 41 Pi 43 Pi
> -----, ----, -----, -----, -----, -----, -----}
44 4 44 44 44 44 44