Функция, возвращающая последовательности Wolfram Mathematica

[fedorova1995]

Изучите функцию Tuples и с ее помощью создайте функцию orbitalProjTriples $[m, l_1, l_2, l_3]$, где m - целое и l_j - целые неотрицательные числа. Функция должна возвращать список из всех последовательностей ${m_1, m_2, m_3}$ таких, что $m_1+m_2+m_3 = m$, где целые числа $m _j\in [-l_j, l_j]$. Для проверки выражений на равенство используйте оператор $==$. Вычислите orbitalProjTriples [-3, 5,2,3].






$Clear[orbitalProjTriples] orbitalProjTriples[m_, l_1_, l_2_, l_3_] := Select[Tuples[ DeleteDuplicates[ Flatten[Range[-#, #] & /@ {l_1, l_2, l_3}]], {3}], (Total[#] == m) &]$


Но! нужно, чтобы $|m_j| \leqslantl_j$

[Karan]

Тема перемещена из форума «Околонаучный софт» в форум «Карантин»
по следующим причинам:

- неинформативный заголовок;
- отсутствуют собственные содержательные попытки решения задач(и).

Исправьте все Ваши ошибки и сообщите об этом в теме Сообщение в карантине исправлено.
Настоятельно рекомендуется ознакомиться с темами Что такое карантин и что нужно делать, чтобы там оказаться и Правила научного форума.