Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Wolfram Mathematica | Математика

Модерирует : gyra, Maz

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

Открыть новую тему     Написать ответ в эту тему

xy



ХУдератор		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Wolfram Mathematica 14

Загрузка и поиск "лекарств"в "Варезнике"


 
Здесь обсуждаем вопросы языка Mathematica и программы, которая ИМХО лучше других выполняет свою задачу и, кроме, того очень точно соответствует своему названию, хотя там не забыли и про физиков и химиков и всех остальных:)
Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 16:00 01-12-2003 | Исправлено: zAlAn711, 18:21 10-01-2024
popkov

Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
karl_karlsson
PlotRange -> All дает корректный результат:
ContourPlot[Floor[x]^2 - Floor[y]^2, {x, -3, 3}, {y, -3, 3}, PlotRange -> All]
Можно еще с Exclusions поиграть. А вообще, алгоритм ContourPlot плохо приспособлен для функций с разрывами и изломами.
Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 10:46 25-02-2014
panda3

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если вы, судя по формуле, хотите получить RegionPLot, почему вы используете ContourPlot? Почему бы не использовать непосредственно RegionPlot:

Код:
RegionPlot[Floor[x]^2 - Floor[y]^2 == 3, {x, -3, 3}, {y, -3, 3},  PlotPoints -> 40]
Всего записей: 203 | Зарегистр. 06-02-2007 | Отправлено: 09:06 03-03-2014 | Исправлено: panda3, 09:07 03-03-2014
karl_karlsson



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
popkov
Ну я это первое что сделал.
Если я сделаю Exclusions, то смысл во общем пользоваться Mathematica теряется.
Только скажу, что Maple и Matlab не лучше, хотя должно заметить, что Matlab очень быстрый, практически мгновенно делает график.
 
panda3
Потому что RegionPLot совсем не понимает разрывы, а вот ContourPlot хотя бы попытку делает. Еще, все интересное происходит на контуре, внутри ничего нет.
Верхние и правые границы квадратиков должны быть исключены, значить должны отображаться зигзагообразными кривыми, не прямые. ContourPlot их где то расставляет, хотя и неправильным образом, а вот RegionPLot нет.
Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 17:15 03-03-2014
say24



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Озадачился получением некоторых формул с помощью Mathematica, но не соображу как надо вводить. Пример из метода наименьших квадратов:
   
Нужны частные производные по a0 и a1
Вопрос: как сформулировать для Mathematica, чтобы из вышестоящей формулы получить вот такие:
   
и
   
 
P.S. Формулу я привёл для примера, мои формулы похожи, но сложнее. Надо просто разобраться, как получить в символьном виде частную производную.
Всего записей: 261 | Зарегистр. 18-02-2003 | Отправлено: 18:18 30-03-2014
popkov

Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
say24
Код:
sumOfSquares = Sum[(y[i] - (a[0] + a[1] x[i]))^2, {i, 1, n}]
gradient = D[sumOfSquares, {{a[0], a[1]}}]
Если требуется построить матрицу Якоби для минимизации по методу Левенберга-Марквардта, удобнее идти другим путем, используя суб-опции "Resudual" и "Jacobian" метода "LevenbergMarquardt":
Код:
residualVector = Table[(y[i] - (a[0] + a[1] x[i]))^2, {i, 1, n}];

Код:
"Resudual" -> Sqrt[2]*residualVector
"Jacobian" -> "Symbolic"
Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 19:31 30-03-2014
vasili777

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ни кто не в курсе, когда ожидается появление Wolfram Language ( http://habrahabr.ru/post/218593/ ) ?
Всего записей: 620 | Зарегистр. 03-12-2004 | Отправлено: 13:46 08-04-2014 | Исправлено: vasili777, 14:15 08-04-2014
karl_karlsson



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vasili777
Ожидается внутри Mathematica 10.
Выпустили пока только для Raspberry Pi
Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 17:17 09-04-2014
Andrew10

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
 
Возник вот такой вопрос: как сделать в функции Plot[], чтобы около засечек на осях выводились значения с желаемым количеством значащих цифр?. Если интервал изменения аргумента или функции очень мал, то по умолчанию выводится 6 знаков, в результате чего у нескольких идущих подряд засечек печатается одно и то же число.  А как сделать, чтобы выводилось большее кол-во цифр, например, 8, 10 и т.д.?
 
Спасибо!
Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 12:01 21-04-2014 | Исправлено: Andrew10, 12:10 21-04-2014
Partner1



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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]
Всего записей: 273 | Зарегистр. 28-11-2007 | Отправлено: 12:41 21-04-2014 | Исправлено: Partner1, 12:45 21-04-2014
Andrew10

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Partner1

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

 
Понял, спасибо!
Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 12:51 21-04-2014
popkov

Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Andrew10
Количество отображаемых значащих цифр для машинных (MachinePrecision) чисел определяет опция PrintPrecision:

Код:
In[1]:= Options[$FrontEndSession, PrintPrecision]
 
Out[1]= {PrintPrecision -> 6}

Ее можно локально изменять, используя Style. В сочетании с опцией Ticks она позволяет достичь желаемого результата:

Код:
Plot[x, {x, 1, 1.000001},  Ticks -> {Table[x, {x, 1, 1.000001, .0000002}],    Table[x, {x, 1, 1.000001, .0000001}]},  BaseStyle -> PrintPrecision -> 10]
Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 12:59 21-04-2014 | Исправлено: popkov, 13:34 21-04-2014
Andrew10

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
popkov

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

 
Спасибо!
 
Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 13:22 21-04-2014
BogiS_noname



Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
не совсем по теме, но все ж
скажите пожалуйста, поддерживает ли Wolfram Alpha встроенный язык Mathematica? и если да, то как в нем ввести нижний индекс - нужно посчитать ker1(-1) и kei1(-1)
заранее спасибо!
Всего записей: 231 | Зарегистр. 06-05-2005 | Отправлено: 21:32 26-05-2014
vikkiv



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто-нибудь может помочь воспроизвести данную синусоиду(?) в аудио формате? Если сложно то можно визуальную часть графика не показывать (только тек. частоту оставить).
Спасибо.
Всего записей: 747 | Зарегистр. 10-11-2005 | Отправлено: 03:47 17-06-2014
panda3

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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]]

Но вот динамически его визуализировать - боюсь, что никак.
Всего записей: 203 | Зарегистр. 06-02-2007 | Отправлено: 17:38 17-06-2014
vikkiv



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да, спасибо, вопрос генерации решает, я тоже подбирал через Sound[] и Play[], однако основная трудность с которой столкнулся это визуализация текущего значения
Всего записей: 747 | Зарегистр. 10-11-2005 | Отправлено: 17:52 17-06-2014
panda3

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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]
  ]]
Всего записей: 203 | Зарегистр. 06-02-2007 | Отправлено: 19:55 17-06-2014
Alex_B



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Установил Mathematica 10 на Windows 7 (64). Открываю в блокноте Default.nb. Читаю

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

Это простительная небрежность или чревато последствиями? Может в релизе еще много таких небрежностей.
Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 17:29 15-07-2014 | Исправлено: Alex_B, 17:34 15-07-2014
popkov

Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
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 и содержит большое число неработающих примеров.
Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 18:07 15-07-2014
Fsp050

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос к профессиональным математикам. Представим такую ситуацию:
Есть задача. взять психологические методики, пусть 5 или 6, сколько угодно и измерить на испытуемых, пусть в количестве 200 человек. 100 мужчин и 100 женщин.
Одна методика может измерять 5 показателей, другая 6 и так далее.
Гипотеза условно, что параметры которые измеряют методики у мужчин и женщин отличаются по средним значениям, и между собой у м и ж по разному коррелируют.
Например, среднее значение у женщин по первому параметру первой методике = 5, а у мужчин =7
первый параметр первой методике положительно коррелирует с первым параметром 6 методике, а у мужчин отрицательно
 
можно ли результаты измерений смоделировать на ПК?
Не выискивая этих 200 человек.
Я слышал есть методы типа монте-карло и так далее.
Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 22:25 15-07-2014
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

Компьютерный форум Ru.Board » Компьютеры » Программы » Wolfram Mathematica | Математика


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru