Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 17 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 19 фев 2017, 12:15 
Не в сети
Light & Truth
Зарегистрирован:
28 мар 2014, 23:59
Сообщений: 6312
Cпасибо сказано: 633
Спасибо получено:
509 раз в 477 сообщениях
Очков репутации: 47

Добавить очки репутацииУменьшить очки репутации
Код для математики:
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


Что здесь есть что- абсолютно непонятно. Вставил в математику- работает.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 19 фев 2017, 18:31 
Не в сети
Мастер
Зарегистрирован:
01 мар 2016, 20:08
Сообщений: 237
Cпасибо сказано: 69
Спасибо получено:
26 раз в 23 сообщениях
Очков репутации: 8

Добавить очки репутацииУменьшить очки репутации
Вот формулировка задачи
Генерация чисел Хэмминга
Числами Хэмминга называются натуральные числа, которые среди своих делителей имеют только степени чисел 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

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 20 фев 2017, 15:56 
Не в сети
Мастер
Зарегистрирован:
01 мар 2016, 20:08
Сообщений: 237
Cпасибо сказано: 69
Спасибо получено:
26 раз в 23 сообщениях
Очков репутации: 8

Добавить очки репутацииУменьшить очки репутации
еще последовательность A051037

Вот такая программа
Function min(x As Integer, y As Integer) As Integer
Return IIf(x < y, x, y)
End Function

Function hamming(n As Integer) As Integer
Dim h(1 To n) As Integer
h(1) = 1
Dim As Integer i = 1, j = 1, k = 1
Dim As Integer x2 = 2, x3 = 3, x5 = 5

For m As Integer = 2 To n
h(m) = min(x2, min(x3, x5))
If h(m) = x2 Then
i += 1
x2 = 2 * h(i)
End If
If h(m) = x3 Then
j += 1
x3 = 3 * h(j)
End if
If h(m) = x5 Then
k += 1
x5 = 5 * h(k)
End If
Next

Return h(n)
End Function

простыми преобразованиями преобразуется для первых N чисел Мерсенна
а затем преобразовать в код Mathematica ( возможно не оптимальный) не составит труда

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 20 фев 2017, 19:21 
Не в сети
Light & Truth
Зарегистрирован:
28 мар 2014, 23:59
Сообщений: 6312
Cпасибо сказано: 633
Спасибо получено:
509 раз в 477 сообщениях
Очков репутации: 47

Добавить очки репутацииУменьшить очки репутации
Только нужно не для первых n чисел Мерсенна, а для любого их количества. Здесь нужны какие-то другие критерии.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 20 фев 2017, 19:51 
Не в сети
Мастер
Зарегистрирован:
01 мар 2016, 20:08
Сообщений: 237
Cпасибо сказано: 69
Спасибо получено:
26 раз в 23 сообщениях
Очков репутации: 8

Добавить очки репутацииУменьшить очки репутации
ivashenko писал(а):
Только нужно не для первых n чисел Мерсенна, а для любого их количества. Здесь нужны какие-то другие критерии.
Тогда берешь любое количество и вперед

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 20 фев 2017, 20:38 
Не в сети
Light & Truth
Зарегистрирован:
28 мар 2014, 23:59
Сообщений: 6312
Cпасибо сказано: 633
Спасибо получено:
509 раз в 477 сообщениях
Очков репутации: 47

Добавить очки репутацииУменьшить очки репутации
citerra писал(а):
ivashenko писал(а):
Только нужно не для первых n чисел Мерсенна, а для любого их количества. Здесь нужны какие-то другие критерии.
Тогда берешь любое количество и вперед


Дело в том, что любое количество- понятие неопределенное, взять можно только определенное количество, но чтобы определить, какое количество можно взять без ущерба для правильности решения задачи в каких-то пределах, необходимы какие-то критерии, которые сначала необходимо определить и обосновать.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 20 фев 2017, 20:57 
Не в сети
Мастер
Зарегистрирован:
01 мар 2016, 20:08
Сообщений: 237
Cпасибо сказано: 69
Спасибо получено:
26 раз в 23 сообщениях
Очков репутации: 8

Добавить очки репутацииУменьшить очки репутации
ivashenko писал(а):
необходимы какие-то критерии, которые сначала необходимо определить и обосновать.

И как собираетесь находить? Вот я и предлагаю сделать для n первых. Потом увеличить на пару больше. И так можно добраться до любого нужного кол-ва. Можно и динамическики увеличивать. Дошли до первой цели, увеличила на одну степень Мерсенна. Не хватило, еще раз увеличить.
Но начать нужно хотя бы для трех делителей 2,3,5. В интернете много материала по таким числам. Затем можно переходить на динаическое увеличение количества делителей. И в заключение переход на числа Мерсенна. Все шаги несложные и очевидные.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему    На страницу Пред.  1, 2  Страница 2 из 2 [ Сообщений: 17 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Тензорное произведение в Wolfram Mathematica

в форуме Mathematica

xprwt

0

1221

06 авг 2014, 12:24

Функциональное программирование в Wolfram Mathematica

в форуме Mathematica

Student Studentovich

3

1069

02 фев 2020, 16:59

Показать Решение задачи на Wolfram mathematica

в форуме Mathematica

Limpompo

0

1106

31 янв 2019, 13:08

Решить задачу на Mathematica

в форуме Mathematica

smnwdcru

1

714

18 янв 2017, 12:17

Решить такую задачу

в форуме Исследование операций и Задачи оптимизации

vika19

2

301

11 окт 2020, 23:13

Возможно ли решить такую задачу?

в форуме Теория вероятностей

Bor74

4

378

28 сен 2017, 20:04

Можно ли решить такую задачу?

в форуме Палата №6

ivashenko

95

1771

12 авг 2018, 21:15

Онлайн-курс "Технологии Wolfram в действии" о Mathematica 10

в форуме Mathematica

Roman Osipov

0

998

03 авг 2014, 09:45

Натолкнулся на такую задачу и без понятия как сделать

в форуме Дифференциальные и Интегральные уравнения

durachok

8

557

04 сен 2022, 16:53

Как решить такую задачку?

в форуме Теория вероятностей

Dusty

1

281

25 фев 2019, 18:48


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved