Ru-Board.club
← Вернуться в раздел «Программы»

» Mathematica (математика)

Автор: B3T6
Дата сообщения: 04.01.2014 22:22
vikkiv
http://habrahabr.ru/post/167927/
Автор: vikkiv
Дата сообщения: 04.01.2014 22:34
B3T6 - Спасибо, но кода генерации похожего звука на языке математики там к сожалению не нашлось :(
Автор: B3T6
Дата сообщения: 04.01.2014 22:46
в комментах есть ссылка http://speccy.info/Кассета
Цитата:
Стандартный формат кодирования информации очень прост. Нули и единицы кодируются импульсами разной длительности, после которых следует пауза такой же длительности — около 244 микросекунд для нуля и около 489 микросекунд для единицы. За одну секунду может быть записано 1023 следующих подряд единицы, либо 2047 следующих подряд нуля. Так как нужные задержки обеспечиваются процессором, при отклонении тактовой частоты от номинальной возможна несовместимость с данными, записанными при стандартной тактовой частоте.

Стандартные процедуры используют пилот-тон - длинный сигнал перед началом передачи данных, используемый для синхронизации, а также хранение каждой записи в виде двух блоков, каждый из которых имеет собственный пилот-тон - заголовка, содержащего название файла и параметры, необходимые для его загрузки, и собственно данных. Заголовок необходим при загрузке произвольных данных. В случае, когда заранее известно, какие данные будут загружаться (например, при загрузке игры), заголовки всех файлов, кроме загрузчика, могут отсутствовать...

Средняя скорость передачи данных в стандартном формате кодирования составляет около 1365 бит в секунду и изменяется в зависимости от количества нулей и единиц в передаваемых данных.
кодируй
Автор: vikkiv
Дата сообщения: 04.01.2014 22:53

Цитата:
кодируй
Эта задача как раз и поставлена, других вопросов не стояло, зачем воду лить-то? Нужен именно алгоритм решения в пределах данной темы, т.е. mathematica. Ээх, похоже придётся мелодию на телефон с youtube писать.
Автор: popkov
Дата сообщения: 05.01.2014 19:39
vikkiv

Цитата:
Ээх, похоже придётся мелодию на телефон с youtube писать.

Так это все ради мелодии на телефон?! Микроскопом забиваем гвозди...
Автор: karl_karlsson
Дата сообщения: 24.02.2014 15:47
Вот например такое уравнение:

Код: Floor[x]^2 - Floor[y]^2 == 3
Автор: popkov
Дата сообщения: 25.02.2014 08:46
karl_karlsson
PlotRange -> All дает корректный результат:
ContourPlot[Floor[x]^2 - Floor[y]^2, {x, -3, 3}, {y, -3, 3}, PlotRange -> All]
Можно еще с Exclusions поиграть. А вообще, алгоритм ContourPlot плохо приспособлен для функций с разрывами и изломами.
Автор: panda3
Дата сообщения: 03.03.2014 07:06
Если вы, судя по формуле, хотите получить RegionPLot, почему вы используете ContourPlot? Почему бы не использовать непосредственно RegionPlot:

Код: RegionPlot[Floor[x]^2 - Floor[y]^2 == 3, {x, -3, 3}, {y, -3, 3}, PlotPoints -> 40]
Автор: karl_karlsson
Дата сообщения: 03.03.2014 15:15
popkov
Ну я это первое что сделал.
Если я сделаю Exclusions, то смысл во общем пользоваться Mathematica теряется.
Только скажу, что Maple и Matlab не лучше, хотя должно заметить, что Matlab очень быстрый, практически мгновенно делает график.

panda3
Потому что RegionPLot совсем не понимает разрывы, а вот ContourPlot хотя бы попытку делает. Еще, все интересное происходит на контуре, внутри ничего нет.
Верхние и правые границы квадратиков должны быть исключены, значить должны отображаться зигзагообразными кривыми, не прямые. ContourPlot их где то расставляет, хотя и неправильным образом, а вот RegionPLot нет.
Автор: say24
Дата сообщения: 30.03.2014 17:18
Озадачился получением некоторых формул с помощью Mathematica, но не соображу как надо вводить. Пример из метода наименьших квадратов:

Нужны частные производные по a0 и a1
Вопрос: как сформулировать для Mathematica, чтобы из вышестоящей формулы получить вот такие:

и


P.S. Формулу я привёл для примера, мои формулы похожи, но сложнее. Надо просто разобраться, как получить в символьном виде частную производную.
Автор: popkov
Дата сообщения: 30.03.2014 18:31
say24
Код: [no]sumOfSquares = Sum[(y[i] - (a[0] + a[1] x[i]))^2, {i, 1, n}]
gradient = D[sumOfSquares, {{a[0], a[1]}}][/no]
Автор: vasili777
Дата сообщения: 08.04.2014 12:46
Ни кто не в курсе, когда ожидается появление Wolfram Language ( http://habrahabr.ru/post/218593/ ) ?
Автор: karl_karlsson
Дата сообщения: 09.04.2014 16:17
vasili777
Ожидается внутри Mathematica 10.
Выпустили пока только для Raspberry Pi
Автор: Andrew10
Дата сообщения: 21.04.2014 11:01
Добрый день!

Возник вот такой вопрос: как сделать в функции Plot[], чтобы около засечек на осях выводились значения с желаемым количеством значащих цифр?. Если интервал изменения аргумента или функции очень мал, то по умолчанию выводится 6 знаков, в результате чего у нескольких идущих подряд засечек печатается одно и то же число. А как сделать, чтобы выводилось большее кол-во цифр, например, 8, 10 и т.д.?

Спасибо!
Автор: Partner1
Дата сообщения: 21.04.2014 11:41
Andrew10
Можно попробовать использовать SetPrecision, а засечки вывести через таблицу.

Код: Plot[Sin[x], {x, -4, 4}, Ticks -> {Table[SetPrecision[x, 8], {x, -4, 4, 0.8}], Table[SetPrecision[x, 8], {x, -1, 1, 0.4}]},ImageSize -> 800]
Автор: Andrew10
Дата сообщения: 21.04.2014 11:51
Partner1

Цитата:
Можно попробовать использовать SetPrecision, а засечки вывести через таблицу.


Понял, спасибо!
Автор: popkov
Дата сообщения: 21.04.2014 11:59
Andrew10
Количество отображаемых значащих цифр для машинных (MachinePrecision) чисел определяет опция PrintPrecision:

Код: [no]In[1]:= Options[$FrontEndSession, PrintPrecision]

Out[1]= {PrintPrecision -> 6}[/no]
Автор: Andrew10
Дата сообщения: 21.04.2014 12:22
popkov

Цитата:
Количество отображаемых значащих цифр для машинных (MachinePrecision) чисел определяет опция PrintPrecision:


Спасибо!

Автор: BogiS_noname
Дата сообщения: 26.05.2014 20:32
не совсем по теме, но все ж
скажите пожалуйста, поддерживает ли Wolfram Alpha встроенный язык Mathematica? и если да, то как в нем ввести нижний индекс - нужно посчитать ker1(-1) и kei1(-1)
заранее спасибо!
Автор: vikkiv
Дата сообщения: 17.06.2014 02:47
Кто-нибудь может помочь воспроизвести данную синусоиду(?) в аудио формате? Если сложно то можно визуальную часть графика не показывать (только тек. частоту оставить).
Спасибо.
Автор: panda3
Дата сообщения: 17.06.2014 16:38
vikkiv
Сгенерировать звук легко:

Код: With[{time = 144, f1 = 20, f2 = 20000},
Play[Evaluate@
Sin[Exp@Rescale[t, {0, time}, {Log@f1, Log@f2}] 2 \[Pi] t], {t, 0, time},
SampleRate -> 48000]]
Автор: vikkiv
Дата сообщения: 17.06.2014 16:52
Да, спасибо, вопрос генерации решает, я тоже подбирал через Sound[] и Play[], однако основная трудность с которой столкнулся это визуализация текущего значения
Автор: panda3
Дата сообщения: 17.06.2014 18:55
vikkiv
Ну можно просто запустить звук и картинку одновременно и надеяться, что они будут идти синхронно:

Код: With[{time = 60, f1 = 20, f2 = 8000},
With[{freq = Simplify@Exp@Rescale[t, {0, time}, {Log@f1, Log@f2}]},
EmitSound@
Play[Evaluate@Sin[freq 2 Pi t], {t, 0, time}, SampleRate -> 44100];
Animate[
Plot[Evaluate@Sin[2 \[Pi] tp freq], {tp, 0, 1/f1},
PlotLabel -> Row@{Round@freq, " Hz"}], {t, 0, time},
RefreshRate -> 4, DefaultDuration -> time,
AnimationRepetitions -> 1]
]]
Автор: Alex_B
Дата сообщения: 15.07.2014 16:29
Установил Mathematica 10 на Windows 7 (64). Открываю в блокноте Default.nb. Читаю

Цитата:
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 16, 2014)",

Это простительная небрежность или чревато последствиями? Может в релизе еще много таких небрежностей.
Автор: popkov
Дата сообщения: 15.07.2014 17:07
Alex_B
Интересное наблюдение.
Очевидно, речь идет о файле по адресу

C:\Program Files\Wolfram Research\Mathematica\10.0\SystemFiles\FrontEnd\StyleSheets

Впрочем, файл

"C:\Program Files\Wolfram Research\Mathematica\10.0\Documentation\English\System\ReferencePages\Symbols\Default.nb"

также создан под Mac OS X. Небрежностью это вряд ли можно считать, т.к. NB-файлы являются кроссплатформенными. Последствиями чревато быть не должно. Насколько мне известно, единственная несовместимость между NB-файлами, созданными в Windows и Mac OS сводится к тому, что родным форматом векторной графики (поддерживаемым в т.ч. буфером обмена) в Windows является Metafile, а под Mac OS - PDF. Соответственно, GraphicsData под Windows поддерживает рендеринг формата "Metafile", а под Mac OS - "PDF", при переносе файла между ними эти данные рендериться не будут. Других проблем из-за этого, насколько мне известно, не возникает. В Documentation, поставляемой с Mathematica, отсутствуют ячейки с графикой в этих форматах, так что она, по-видимому, является изначально кроссплатформенной.

Ради интереса поискал файлы, созданные под Windows (поиск строки "for Microsoft Windows" в ANSI режиме с помощью Total Commander). Их оказалось не так уж мало, но почти все созданы в предшествующих версиях Mathematica. Впрочем, на это уже жаловались: огромная часть документации не обновлена в версии 10.0.0 и содержит большое число неработающих примеров.
Автор: Fsp050
Дата сообщения: 15.07.2014 21:25
Вопрос к профессиональным математикам. Представим такую ситуацию:
Есть задача. взять психологические методики, пусть 5 или 6, сколько угодно и измерить на испытуемых, пусть в количестве 200 человек. 100 мужчин и 100 женщин.
Одна методика может измерять 5 показателей, другая 6 и так далее.
Гипотеза условно, что параметры которые измеряют методики у мужчин и женщин отличаются по средним значениям, и между собой у м и ж по разному коррелируют.
Например, среднее значение у женщин по первому параметру первой методике = 5, а у мужчин =7
первый параметр первой методике положительно коррелирует с первым параметром 6 методике, а у мужчин отрицательно

можно ли результаты измерений смоделировать на ПК?
Не выискивая этих 200 человек.
Я слышал есть методы типа монте-карло и так далее.
Автор: popkov
Дата сообщения: 15.07.2014 22:15
Fsp050

Цитата:
Вопрос к профессиональным математикам.

Боюсь, вы ошиблись форумом: здесь обсуждают систему Wolfram Mathematica. Думаю, вам сюда:
http://stats.stackexchange.com/
Автор: Fsp050
Дата сообщения: 16.07.2014 19:42
ок. А в математике этого никак не сделать?
Автор: Alex_B
Дата сообщения: 17.07.2014 06:00
У кого лицензионная прога, напишите разрабам об ошибке в Хэлпе. Думал, в 10-ой исправят, однако не исправили.

== TuringMachine ==
= Datails =

Цитата:
For a 1D Turing machine, each step in the evolution generated by TuringMachine is given in the form {{s,x,dx},{Subscript[a, 1],Subscript[a, 2],\[Ellipsis]}}, where the head is in state s, the cells on the tape have values Subscript[a, i], the head is at position x relative to the Subscript[a, i], and has moved dx relative to its starting position.

Должно быть Subscript[a, 1].

Чтобы сообщить об ошибке нужно выбрать Help затем Give Feedback...
Автор: popkov
Дата сообщения: 17.07.2014 07:47
Fsp050

Цитата:
можно ли результаты измерений смоделировать на ПК?

Все можно смоделировать, если построить математическую модель. В Mathematica имеется полный набор статистических функций и генераторов случайных чисел для моделирования результатов статистических экспериментов. Только вот математическую модель на основе словесного описания Mathematica сама не построит - это надо делать самостоятельно.

Страницы: 12345678910111213141516171819202122232425262728293031323334

Предыдущая тема: Идея несуществующей программы...


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.