Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 2 из 2 |
[ Сообщений: 17 ] | На страницу Пред. 1, 2 |
|
Автор | Сообщение | ||
---|---|---|---|
ivashenko |
|
||
f[n_] := Function[w, ToExpression@ StringJoin["With[{n = ", ToString@ w[[-1, 1]], "}, TakeWhile[#, # <= n &]&@ Union@ Flatten@ Table[", Most@ Flatten@ Map[{ToString@ First@ #, "^", ToString@ Last@ #, " * "} &, w], ", ", Most@ Flatten@ Map[{#, ", "} &, #], "]]"] &@ Map[StringJoin["{", ToString@ Last@ #, ", 0, Log[", ToString@ First@ #, ", n]}"] &, w]]@ MapIndexed[{#1, ToExpression["t" <> ToString@ First@ #2]} &, Table[2^k - 1, {k, 2, n}]]; f@ 12 Что здесь есть что- абсолютно непонятно. Вставил в математику- работает. |
|||
Вернуться к началу | |||
citerra |
|
||
Вот формулировка задачи
Генерация чисел Хэмминга Числами Хэмминга называются натуральные числа, которые среди своих делителей имеют только степени чисел 2, 3 и 5. Первые 10 упорядоченных по возрастанию чисел Хэмминга образует последовательность 1, 2, 3, 4, 5, 6, 8, 9, 10 и 12. Первому числу этого ряда соответствуют нулевые степени всех сомножителей. Составить программу, которая генерирует первые 1000 чисел Хэмминга. За сутки можно нагенерировать миллиард 1000-th number is: 51200000 10000-th number is: 288325195312500000 1000000-th number is: 519312780448388736089589843750000000000000000000000000000000000000000000000000000000 |
|||
Вернуться к началу | |||
citerra |
|
||
еще последовательность A051037
Вот такая программа Function min(x As Integer, y As Integer) As Integer простыми преобразованиями преобразуется для первых N чисел Мерсенна а затем преобразовать в код Mathematica ( возможно не оптимальный) не составит труда |
|||
Вернуться к началу | |||
ivashenko |
|
||
Только нужно не для первых n чисел Мерсенна, а для любого их количества. Здесь нужны какие-то другие критерии.
|
|||
Вернуться к началу | |||
citerra |
|
|
ivashenko писал(а): Только нужно не для первых n чисел Мерсенна, а для любого их количества. Здесь нужны какие-то другие критерии. Тогда берешь любое количество и вперед |
||
Вернуться к началу | ||
ivashenko |
|
|
citerra писал(а): ivashenko писал(а): Только нужно не для первых n чисел Мерсенна, а для любого их количества. Здесь нужны какие-то другие критерии. Тогда берешь любое количество и впередДело в том, что любое количество- понятие неопределенное, взять можно только определенное количество, но чтобы определить, какое количество можно взять без ущерба для правильности решения задачи в каких-то пределах, необходимы какие-то критерии, которые сначала необходимо определить и обосновать. |
||
Вернуться к началу | ||
citerra |
|
||
ivashenko писал(а): необходимы какие-то критерии, которые сначала необходимо определить и обосновать. И как собираетесь находить? Вот я и предлагаю сделать для n первых. Потом увеличить на пару больше. И так можно добраться до любого нужного кол-ва. Можно и динамическики увеличивать. Дошли до первой цели, увеличила на одну степень Мерсенна. Не хватило, еще раз увеличить. Но начать нужно хотя бы для трех делителей 2,3,5. В интернете много материала по таким числам. Затем можно переходить на динаическое увеличение количества делителей. И в заключение переход на числа Мерсенна. Все шаги несложные и очевидные. |
|||
Вернуться к началу | |||
На страницу Пред. 1, 2 | [ Сообщений: 17 ] |
Похожие темы | Автор | Ответы | Просмотры | Последнее сообщение |
---|---|---|---|---|
Тензорное произведение в Wolfram Mathematica
в форуме Mathematica |
0 |
1221 |
06 авг 2014, 12:24 |
|
Функциональное программирование в Wolfram Mathematica
в форуме Mathematica |
3 |
1069 |
02 фев 2020, 16:59 |
|
Показать Решение задачи на Wolfram mathematica
в форуме Mathematica |
0 |
1106 |
31 янв 2019, 13:08 |
|
Решить задачу на Mathematica
в форуме Mathematica |
1 |
714 |
18 янв 2017, 12:17 |
|
Решить такую задачу | 2 |
301 |
11 окт 2020, 23:13 |
|
Возможно ли решить такую задачу?
в форуме Теория вероятностей |
4 |
379 |
28 сен 2017, 20:04 |
|
Можно ли решить такую задачу?
в форуме Палата №6 |
95 |
1771 |
12 авг 2018, 21:15 |
|
Онлайн-курс "Технологии Wolfram в действии" о Mathematica 10
в форуме Mathematica |
0 |
998 |
03 авг 2014, 09:45 |
|
Натолкнулся на такую задачу и без понятия как сделать | 8 |
557 |
04 сен 2022, 16:53 |
|
Как решить такую задачку?
в форуме Теория вероятностей |
1 |
281 |
25 фев 2019, 18:48 |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |