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

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

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

Теоретический раздел
Часовой пояс: UTC + 4 часа [ Летнее время ]
MathHelpPlanet.com RSS-лента Математического форума

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




Начать новую тему Ответить на тему  [ Сообщений: 17 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 19 фев 2017, 13:15 
В сети
Light & Truth
Зарегистрирован:
29 мар 2014, 00:59
Сообщений: 3189
Cпасибо сказано: 219
Спасибо получено:
199 раз в 189 сообщениях
Очков репутации: 21

Добавить очки репутацииУменьшить очки репутации
Код для математики:
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, 19:31 
Не в сети
Мастер
Зарегистрирован:
01 мар 2016, 21: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, 16:56 
Не в сети
Мастер
Зарегистрирован:
01 мар 2016, 21: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, 20:21 
В сети
Light & Truth
Зарегистрирован:
29 мар 2014, 00:59
Сообщений: 3189
Cпасибо сказано: 219
Спасибо получено:
199 раз в 189 сообщениях
Очков репутации: 21

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

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

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

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Mожно ли решить такую задачу в Wolfram Mathematica?
СообщениеДобавлено: 20 фев 2017, 21:38 
В сети
Light & Truth
Зарегистрирован:
29 мар 2014, 00:59
Сообщений: 3189
Cпасибо сказано: 219
Спасибо получено:
199 раз в 189 сообщениях
Очков репутации: 21

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


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

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

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

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

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

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

в форуме Mathematica

xprwt

0

485

06 авг 2014, 13:24

Вычисления с произвольной точностью в Wolfram Mathematica 9

в форуме Численные методы

ges

1

322

10 янв 2014, 20:46

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

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

Bor74

4

62

28 сен 2017, 21:04

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

в форуме Mathematica

smnwdcru

1

126

18 янв 2017, 13:17

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

в форуме Mathematica

Roman Osipov

0

458

03 авг 2014, 10:45

Не могу понять как решить такую систему

в форуме Дифференциальное исчисление

rangersdark

1

99

31 май 2016, 17:19

Решить уравнение и изобразить корни в Mathematica

в форуме Mathematica

JSJ

1

516

16 ноя 2011, 14:03

Решить дифференциальные уравнения в программе Mathematica

в форуме Mathematica

alina5002653

1

602

11 дек 2011, 08:04

Решить задачу, плачу по 100р за задачу оплата вебмани

в форуме Объявления участников Форума

artstyle

4

689

18 сен 2012, 12:35

Лёгкая аппроксимация функций в Wolfram

в форуме Дискуссионные математические проблемы

ALEXIN

55

2049

15 мар 2015, 13:41


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



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

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


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

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

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

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