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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
popkov
Да, не в этом состоится проблема, я уже проверял.

Код:
FindFit[{{0, 20}, {20, 10}, {40, 5}, {60, 2.5}, {80, 1.25}},  
 a*Exp[b*x], {a, b}, x]


Код:
{a -> 0., b -> 1.}


Код:
FindFit[{{0, 20}, {20, 10}, {40, 5}, {60, 2.5}, {80, 1.25}},  
 a*Exp[b*x], {a, b}, x, Method -> NMinimize, MaxIterations -> 1000]


Код:
{a -> 20., b -> -0.0346574}

И вот только так находит:

Код:
FindFit[{{0, 20}, {2, 10}, {4, 5}, {6, 2.5}, {8, 1.25}},  
 a*Exp[b*x], {a, b}, x]


Код:
{a -> 20., b -> -0.346574}

На рутракере обсуждали, но там уже всю математику удалили. Был еще человек у которого были калькуляторы, ну и студенты еще. Один говорил - вот у нас в Америке профессор сказал, что калькуляторы ни за чем не надо. Спросил кто он, отдал почту. И вот спрашивает - а зачем тебе калькулятор, если есть всякие приложения на порядки мощнее, типа Mathematica, Maple, Matlab?
 
Вот, что я отвечаю всегда - потому что число ошибок внутри этих приложении превосходит число функции внутри самых продвинутых калькуляторов.
 
Дабы не быть голословным, вот например, что выдает каждый графический калькулятор Casio:  
http://keisan.casio.com/exec/system/14059930754231
Результаты CASIO
 
Если будет времени, то сделаю и на виртуальных TI, HP и Sharp. Уверен, что то же самое будет, ибо не раз делал, ну уже сколько лет. И такие смешные результаты и требования, как у математики никогда не было. Ну и совсем еще - первые такие калькуляторы вышли еще до математики.  
 
Так что сюда мы имеем такую отсталость, что уже даже не смешно. Было смешно 20 лет назад, когда TI-92 вычислял интегралы лучше Mathamatica и Maple, но сейчас уже слишком.

Всего записей: 2028 | Зарегистр. 14-03-2007 | Отправлено: 18:59 26-01-2016 | Исправлено: karl_karlsson, 19:00 26-01-2016
RuPurple



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
karl_karlsson, popkov
До сегодняшнего дня я считал Mathematica весьма универсальным и точным инструментом. Теперь будем иметь ввиду, что это не совсем так.  
Благодарю вас и vikkiv за помощь в решении моей проблемы.

Всего записей: 724 | Зарегистр. 21-02-2010 | Отправлено: 21:06 26-01-2016
revutow

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

Всего записей: 202 | Зарегистр. 25-11-2015 | Отправлено: 17:05 27-01-2016
vinitucupe



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

Всего записей: 279 | Зарегистр. 25-11-2015 | Отправлено: 17:22 27-01-2016
revutow

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

Всего записей: 202 | Зарегистр. 25-11-2015 | Отправлено: 17:27 27-01-2016
Double M Doc



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При установке Mathematica 10.3.1 опционально ставятся Wolfram Extras - т.е. плагин для браузера (cdf-плеер) и плагин для службы индексирования Windows (позволяет через поиск Windows искать текстовое содержимое в блокнотах Mathematica).
 
Проверено - плагин установлен (C:\Program Files\Common Files\Wolfram Research\Browser\10.3.1.5448469)
 
Индексер тоже установлен (C:\Program Files\Common Files\Wolfram Research\Search\10.3.1.5448469)
 
Плеер в браузере работает (проверить проще всего, перейдя на C:\Program Files\Common Files\Wolfram Research\Search\10.3.1.5448469), индексатор тоже работает (создал блокноты с одинаковыми кусками текста, встроенный поиск Windows их видит).
 
При этом, тем не менее, в настройках Mathematica отображается вот что (не знаю, как в более ранних версиях):
 
   
 
Интересно, это баг (не влияющий на функционал), или всё же что-то неверно инсталлировано? (Win8.1x64)

Всего записей: 509 | Зарегистр. 31-10-2010 | Отправлено: 20:30 03-02-2016 | Исправлено: Double M Doc, 04:18 04-02-2016
grinchukav

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
popkov
karl_karlsson
Этот баг помню еще с третьей версии. Причем, если знак у экспоненты поставить другой:
FindFit[{{0, 20}, {20, 10}, {40, 5}, {60, 2.5}, {80, 1.25}},  
 a*Exp[-b*x], {a, b}, x]
 
(т.е. - b*x), то все становится нормально. В общем, если знаки расставить, то при фитинге все получается (не только в этом примере). В любом случае, математика математикой, а мозги включать приходится

Всего записей: 67 | Зарегистр. 28-02-2008 | Отправлено: 22:33 03-02-2016 | Исправлено: grinchukav, 22:34 03-02-2016
popkov

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

Цитата:
Интересно, это баг (не влияющий на функционал), или всё же что-то неверно инсталлировано? (Win8.1x64)  

У меня то же. Если верить этому обсуждению (а там комментаторы - сотрудники Wolfram Research), беспокоиться не стоит.

Всего записей: 1835 | Зарегистр. 22-03-2003 | Отправлено: 23:34 03-02-2016
Double M Doc



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
popkov
 
Хе, именно на это обсуждение я и натолкнулся, когда гуглил проблему Но всё равно спасибо. К тому же, раз у вас то же самое... Значит неотображение работающего плагина действительно сугубо косметическая фигня.

Всего записей: 509 | Зарегистр. 31-10-2010 | Отправлено: 20:25 04-02-2016
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Double M Doc
Реальную работоспособность этого плагина я не проверял. Откровенно говоря, даже не знаю, как ее проверить.

Всего записей: 1835 | Зарегистр. 22-03-2003 | Отправлено: 08:19 05-02-2016
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
grinchukav
Знаки решают только упрощенную задачу  

Код:
FindFit[{{0, 20}, {20, 10}, {40, 5}, {60, 2.5}, {80, 1.25}},  
 a*Exp[b*x], {a, b}, x]

Код:
{a -> 1., b -> 1.}

 

Код:
FindFit[{{0, 20}, {20, 10}, {40, 5}, {60, 2.5}, {80, 1.25}},  
 a*Exp[-b*x], {a, b}, x]

Код:
{a -> 20., b -> 0.0346574}

 
А вот оригинальную никак

Код:
FindFit[{{253, 20}, {273, 10}, {293, 5}, {313, 2.5}, {333, 1.25}},  
 a*Exp[b*x], {a, b}, x]

Код:
{a -> 1., b -> 1.}

 

Код:
FindFit[{{253, 20}, {273, 10}, {293, 5}, {313, 2.5}, {333, 1.25}},  
 a*Exp[-b*x], {a, b}, x]

Код:
{a -> 1., b -> 1.}

 
Double M Doc
У меня то же самое, только версия 10.1.
Все работает пока.

Всего записей: 2028 | Зарегистр. 14-03-2007 | Отправлено: 04:35 07-02-2016 | Исправлено: karl_karlsson, 04:35 07-02-2016
bormpe



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, кто чем может
 
Беру интеграл:
 
Integrate[(6*Sin[q*x]/q/x + 16*Cos[q*x]/q^2/x^2 -  
    16*Sin[q*x]/q^3/x^3 - 2/3)/x^2, {x, 0, Infinity}]
 
Если закинуть х^2 внутрь скобок, он берется:
ConditionalExpression[-(1/2) \[Pi] Abs[q], q \[Element] Reals]  
 
а так, то берется, то нет,  
С чем это может быть связано ?
 
Заранее огромное спасибо
 
 
 
 

Всего записей: 281 | Зарегистр. 02-09-2002 | Отправлено: 16:56 18-07-2016 | Исправлено: bormpe, 17:52 18-07-2016
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
bormpe
Пожалуйста, отредактируйте свое сообщение с целью удаления дубликатов. Вполне достаточно отправить сообщение один раз.
 
Что касается интеграла, то Mathematica 8.0.4 выдает следующий ответ:
Цитата:
-(1/2) Pi Sqrt[q^2]

 
Версия 5.2 возвращает по существу эквивалентный ответ:
Цитата:
If[q \[Element] Reals, -(Pi*q*Sign[q])/2,  
              Integrate[-2/(3*x^2) + (16*Cos[q*x])/(q^2*x^4) - (16*Sin[q*x])/(q^3*x^5) +  
                        (6*Sin[q*x])/(q*x^3), {x, 0, Infinity}, Assumptions -> q \[NotElement] Reals]]

 
Версия 10.4.1 не берет интеграл в изначальном виде, но если добавить Assumptions -> q \[Element] Reals, то возвращает по существу то же самое:
Цитата:
-(1/2) \[Pi] Abs[q]

Всего записей: 1835 | Зарегистр. 22-03-2003 | Отправлено: 17:26 18-07-2016 | Исправлено: popkov, 17:35 18-07-2016
bormpe



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4 popkov
 
Спасибо огромное; а как отредактировать свое сообщение, я отправил и не увидел его и отправил еще пару раз, сорри.
 
Добавлено:
Все понял, сделал.
 
Добавлено:
4 popkov
 
Забавно:
 
так
 
Integrate[
 Exp[-k*x]/
   x^2*((6 + 4*k*x + k^2*x^2)*(Sin[q*x]/q/x + 2*Cos[q*x]/q^2/x^2 -  
       2*Sin[q*x]/q^3/x^3 - 1/3) - (2 + k*x)*(2*Sin[q*x]/q^3/x^3 -  
       2*Cos[q*x]/q^2/x^2 - 2/3)), {x, 0, Infinity},  
 Assumptions -> q \[Element] Reals ]
 
дает простыню,
 
а без assumptions - одну строчку с правильным интегралом
ConditionalExpression[-q ArcTan[q/k],  
 Abs[Im[q]] <= Re[k] && Re[k] > 0]
 
Да, версия 10.3
 
И как тут действовать ?

Всего записей: 281 | Зарегистр. 02-09-2002 | Отправлено: 17:50 18-07-2016
popkov

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

Подобные ситуации весьма обычны при работе с функциями, выполняющими символьные (в противоположность численным!) манипуляции с выражениями. Очевидно, вы только начинаете знакомиться с системами символьной математики, потому это и в диковинку. Функция Integrate - особенная, поскольку взятие интегралов - не техника, а искусство, и плюс к тому от конкретной задачи зависит, какая итоговая форма наиболее удобна (а откуда машина знает вашу задачу?!). Поэтому всегда полезно сравнить результат, выдаваемый не только разными версиями, но и разными системами символьной математики. Кроме того, для Mathematica есть бесплатный пакет Rubi, который зачастую берет те интегралы, которые Integrate не может взять, а во многих других случаях выдает более компактные решения.

Всего записей: 1835 | Зарегистр. 22-03-2003 | Отправлено: 18:34 18-07-2016
bormpe



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4 popkov
 
Спасибо огромное (и вы правы, я - новичок в символьных вычислениях).  
Всегда считал, что Математика лучше всех (Maple, Mathcad, etc),  
м.б. сейчас это уже не так, конечно.

Всего записей: 281 | Зарегистр. 02-09-2002 | Отправлено: 19:53 18-07-2016
vikkiv



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В связи с выпуском интегрированных в стандартные корпоративные серверные платформы (например R в SQL Server 2016 и прочие платные и бесплатные продукты типа Python и т.д.) эффективно работающих напрямую с огромными базами данных возникли вопросы:
 
На сколько вообще популярна Mathematica в крупных офисах в среде бизнеса (чисто коммерческий сектор)? (элементарный поиск по вакансиям практически ничего существенного / значимого не выдаёт)
 
Есть-ли перспективы?
 
Или даже связываться не стоит т.к. на рынке труда вакансий требующих знание Wolfram нет и следовательно скил непродаваемый т.е. бесполезная трата времени на (само-)обучение? (хотя есть конечно область применения требующая такую высокую/детальную функциональность - ну уж очень узкая, так что вероятность применения знаний этого диалекта {получение предложения из-за этих знаний} на рынке около нуля)
 
Не загубили-ли продукт высокой ценой?
 
Какой продукт было-бы разумней осваивать? (SAP не предлагать т.к. стремительно теряет рынок аналитики да и собственно довольно отстойный продукт уже давно, плывёт только за счёт дорогого маркетинга да истории). Wolfram облачное/on-line тоже хмм.. сомнительный вариант.

Всего записей: 747 | Зарегистр. 10-11-2005 | Отправлено: 00:55 09-08-2016 | Исправлено: vikkiv, 01:08 09-08-2016
1lex1

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть ДУ: y''[t] == k*y[t]/(t^2 + y[t]*y[t])
Есть НУ: y[0]==a , y'[0]==0
Как найти y[t=бесконечность] или хотя бы y[t=1]?
 
Попробовал подставить числа вместо букв и ввёл
Цитата:
NDSolve[{y''[t] == 1000000*y[t]/(t^2 + y[t]*y[t]),  y[0] == 100000000000000, y'[0] == 0}, y[t], {t, 0, 1000}]
но полученное решение
Цитата:
{{y[t] -> \!\(\*
TagBox[
RowBox[{"InterpolatingFunction", "[",  
RowBox[{
RowBox[{"{",  
RowBox[{"{",  
RowBox[{"0.`", ",", "1000.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}],  
        "]"}],
False,
Editable->False]\)[t]}}
не понятно как использовать.

Всего записей: 278 | Зарегистр. 22-11-2013 | Отправлено: 21:50 14-08-2016
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
1lex1
Цитата:
не понятно как использовать.
Все это есть в справке. Вот график от нуля до t = 10^15:

Код:
Clear[y];
sol = NDSolve[{y''[t] == 1000000*y[t]/(t^2 + y[t]*y[t]), y[0] == 10^14, y'[0] == 0},  
   y[t], {t, 0, 10^15}];
y[t_] = y[t] /. sol;
Plot[y[t], {t, 0, 10^15}, PlotRange -> All]

Всего записей: 1835 | Зарегистр. 22-03-2003 | Отправлено: 09:35 15-08-2016
kyznez

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При попытке повращать plot3D в mathematica 11 макось падает в bsod (sierra). Никто не знает как с этим бороться?
 
update: исправлено в версии 11.01

Всего записей: 36 | Зарегистр. 22-11-2006 | Отправлено: 01:56 25-09-2016 | Исправлено: kyznez, 16:02 21-10-2016
Открыть новую тему     Написать ответ в эту тему

Страницы: 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