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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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 | Цитировать | Сообщить модератору
Double M Doc

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

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

Всего записей: 1833 | Зарегистр. 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
Реальную работоспособность этого плагина я не проверял. Откровенно говоря, даже не знаю, как ее проверить.

Всего записей: 1833 | Зарегистр. 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.
Все работает пока.

Всего записей: 2027 | Зарегистр. 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]

Всего записей: 1833 | Зарегистр. 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 не может взять, а во многих других случаях выдает более компактные решения.

Всего записей: 1833 | Зарегистр. 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]

Всего записей: 1833 | Зарегистр. 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
Doroti

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Подскажите, пожалуйста, есть ли в 10 версии алгоритм Левенберга-Марквардта?
Если нет, помогите, пожалуйста, в его написании.
Спасибо.

Всего записей: 2 | Зарегистр. 03-10-2016 | Отправлено: 15:11 03-10-2016
vikkiv



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dorotiза версию не скажу но для FindMinimum, FindMaximum и FindFit через  Method->... есть например такое:
https://reference.wolfram.com/language/tutorial/UnconstrainedOptimizationIntroductionLocalMinimization.html

Всего записей: 747 | Зарегистр. 10-11-2005 | Отправлено: 15:52 03-10-2016
Doroti

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за ответ, но это не то. Значит Вольфрам не реализует этот алгоритм.

Всего записей: 2 | Зарегистр. 03-10-2016 | Отправлено: 00:42 04-10-2016
popkov

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

Цитата:
но это не то. Значит Вольфрам не реализует этот алгоритм.
 

Странная мысль. Алгоритм Левенберга — Марквардта существует в двух формах: с точным поиском минимума в линейной части алгоритма, и с т.н. "Trust Region" поиском. В Mathematica реализован только последний алгоритм, и это документировано.

Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 08:44 06-10-2016
Omsk72

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем,кому не сложно помогите.Срочно
в программе wolfram mathematica написать
Задание:
Написать процедуру получения последовательности псевдослучайных битов RSA-генератором
Буду очень благодарен!!!

Всего записей: 1 | Зарегистр. 19-12-2016 | Отправлено: 16:26 19-12-2016
Barabek

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Джентльмены, как посмотреть ВСЕ значения, которые может иметь опция для какой-либо функции? Например, хочу узнать какие значения может принимать опция ChartLayout. Захожу в справку и не в Details, а только в примерах вижу несколько имён: "Stacked", "Grouped", "Percentile", "Stepped". Это все значения, или есть другие, не отображённые в приведённых примерах? Как это посмотреть? Никак не соображу, что надо делать.

Всего записей: 239 | Зарегистр. 27-04-2007 | Отправлено: 15:16 19-01-2017
Barabek

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос снимаю. Уже нашёл ответ. Для BarChart опция ChartLayout может принимать 4 значения: "Grouped", "Stacked", "Percentile", "Stepped". Для PieChart только два: "Grouped" и "Stacked".

Всего записей: 239 | Зарегистр. 27-04-2007 | Отправлено: 17:21 19-01-2017
Открыть новую тему     Написать ответ в эту тему

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