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

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может кто в курсе, можно ли использовать ограничения в объявлении функций, типа:

Код:
f[x_/;x<10]:=x^2;

но в варианте чистых функций? И если да, то какой синтаксис?

Всего записей: 21 | Зарегистр. 04-10-2004 | Отправлено: 18:40 02-04-2019
28111981

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

Код:
ff = If[# < 10, #^2] &

Всего записей: 27 | Зарегистр. 18-01-2007 | Отправлено: 11:13 15-04-2019 | Исправлено: 28111981, 11:13 15-04-2019
Ognev

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может кто подскажет, куда копать? А то все идеи закончились. Есть функция, где ходят экспоненты в больших степенях. Она считается нормально, без ошибок.  
А вот квадратный корень от нее в некоторых точках выдает ошибку:
General::munfl: Exp[-1999.63] is too small to represent as a normalized machine number; precision may be lost.
Как-то можно это победить?
 
На всякий случай сами функции.  

Код:
 
SMP[x_] := SetPrecision[x, $MachinePrecision];
PnP[t_, b_] :=  
  SMP[(1 + c1 t)/(2 \[Pi])^3 t b^2 Coth[b/(
      2 t (1 + c2 t))]^2] Exp[-SMP[2/t]];
c1 = Log[2]^2 2/\[Pi]; c2 = (1.5 Zeta[3])/
 Log[2]; c3 = (20/3 (1 - 9/(4 E)))^(-1/3);
 

Вот это строится нормально

Код:
Plot[PnP[t, 1.2], {t, 10^-3, 10^-2}]

а на это появляются ошибки, что выше.

Код:
Plot[Sqrt[PnP[t, 1.2]], {t, 10^-3, 10^-2}]

Всего записей: 397 | Зарегистр. 07-09-2004 | Отправлено: 13:45 11-07-2019
feosr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста стоит  Wolfram Mathematica 11.1
 
В установках
Preferences
User Interface Settings  
стоит Language: English - Помощь Wolfram Mathematica открывается без проблем.
 
Меняешь Language: на Русский - в файлах помощи Wolfram Mathematica вместо русского текста перевода выбранной функции символы из перечеркнутых прямоугольников,
 
Меняешь Language:на Украинский тоже самое, все другие языки отражают текст перевода нормально.
В чем проблема? Как исправить этот Баг? На Wolfram Mathematica 10.3 этого "эффекта" не было

Всего записей: 15 | Зарегистр. 01-10-2006 | Отправлено: 07:03 12-03-2020 | Исправлено: feosr, 07:07 12-03-2020
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
feosr
Пока только нашел установленную 11.2 - все работает как надо.
 
Добавлено:
Ognev
Пока что только на 11.2 проверил - все выполняется.
   
 
Ну и мне кажется, что необходим несколько другой график.
Вот например:
 

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 19:26 14-03-2020
Finereader14

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
где я могу скачать портативную версию Wolfram Mathematica 12?
Благодарность

Всего записей: 99 | Зарегистр. 18-12-2018 | Отправлено: 13:42 18-03-2020
Alex_B



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто-нибудь может мне объяснить, почему Mathematica так странно себя ведет?
 
In: D[Conjugate[I Sin[x]], x]
Out: -I Cos[x] Derivative[1][Conjugate][Sin[x]]
 
Откуда берется производная от функции Conjugate?
Ну а если она существует, то что это за функция такая?

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 15:49 20-03-2020
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_B
Ну мало ли что, похоже очередной баг.
 
Если x реальное, то D и Conjugate коммутируют.
Что означает, можно менять их места / очереди.
 
Если x уже комплексное, и функция внутри Conjugate дифференцируема, то после Conjugate она уже не дифференцируема.
Тогда D[Conjugate[[]] уже никакого смысла и не имеет.

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 21:28 20-03-2020
Alex_B



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
karl_karlsson
Если бы это был баг... Тогда можно было бы надеяться, что его исправят.
Это тянется уже на протяжении многих лет. Люди обходят это препятствие для своих целей, но никто не спрашивает, почему так сделано в Mathematica.
 
Если здесь предполагается возможность производной в комплексной области, то попробуйте объяснить Mathematica, что это не так, чтобы она ликвидировала производные от функции комплексного сопряжения.
 
Пока лучшим способом является переопределить функцию D, чтобы она не дифференцировала функцию Conjugate.
 
PS
Если Mathematica использует выражение
Код:
Conjugate'
, зависящее от одной переменной, то это значит, что она знает, по какому направлению осуществляется дифференцирование.

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 22:16 20-03-2020 | Исправлено: Alex_B, 22:23 20-03-2020
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_B
Ну Wolfram Alpha все вычисляет как надо.
Там хотя бы производная комплексного спряжения не возникает.
Но выводится следующее, которое не верно:
"assuming a function from reals to reals"
Но ведь понятно, что функция reals to complex (R ->C)
 
И Alpha понимает, что complex to complex (С ->C) не имеет смысла.
Это если на место x будет z она выдаст еще следующее:
"nowhere differentiable in the complex plane"
 
Поэтому я думаю скорее всего они все это знают.
Но проблема в том, что Alpha очень мало чего вычисляет.
У нее очень большая база данных.

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 23:55 20-03-2020
Mavrikii

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_B
об этом сказано в хелпе самой программы
   
ps: https://math.stackexchange.com/questions/474509/derivatives-by-complex-number-and-conjugate

Всего записей: 15040 | Зарегистр. 20-09-2014 | Отправлено: 00:13 21-03-2020 | Исправлено: Mavrikii, 00:16 21-03-2020
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mavrikii
Значит и не баг, но они знают.
Но вот очень непонятно так написали.
 
Производную от Conjugate и брать не надо.
Она либо через Conjugate проходит и берется сначала, а потом Conjugate.
Либо если комплексная переменная, Conjugate из дифференцируемой функции дает уже не дифференцируемой функции и вот вся операция теряет смысл.

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 13:02 21-03-2020
Alex_B



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mavrikii
В каком смысле невозможно?
Если НЕЛЬЗЯ дифференцировать, это одно. А если НЕЛЬЗЯ получить результат дифференцирования, например, без дополнительной информации, это другое.
 
Если запрещено дифференцировать и операция комплексного сопряжения коммутирует с дифференцированием, объясните пожалуйста, зачем они тогда в приведенной вами цитате написали производную от Conjugate? Что это за функция такая? Постройте ее график. Вычислите ее значение в какой-нибудь точке.
 
Еще раз повторяю. Меня интересует не дифференцирование комплексно сопряженной функции, а мотивация и логика создателей Mahematica.
 
Мое предположение состоит в следующем. Выражение Conjugate' (производная от Conjugate) в Mathematica не имеет никакого значения. Это приходит в противоречие с обычной математической практикой, согласно которой любое математическое выражение, используемое в математическом тексте, должно иметь значение, хотя и неизвестное для самого математика. В этом принципиальное различие между языком программирования и языком математики. Если вы согласны с таким объяснением, то можно считать тему закрытой.

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 15:35 21-03-2020 | Исправлено: Alex_B, 16:48 21-03-2020
Alex_B



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А что опять не так с Mathematica?

Код:
In: g[HoldPattern[Plus[a_, b_]]] := 0
In: g[Plus[a, b]]
Out: 0

Всё работает.

Код:
g[HoldPattern[D[a_, b_]]] := 0
In: g[D[a, b]]
Out: g[0]

Не работает!

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 15:31 22-03-2020 | Исправлено: Alex_B, 15:37 22-03-2020
Mavrikii

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

Цитата:
а мотивация и логика создателей Mahematica

спросите у них самих )  
 

Цитата:
Не работает!

Dt

Всего записей: 15040 | Зарегистр. 20-09-2014 | Отправлено: 05:05 23-03-2020
Alex_B



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

Цитата:
спросите у них самих

Не думаю, что ответят. Подозреваю, они сами не знают. Хотелось бы узнать, что думают по этому поводу математики, знающие Mathematica.
 
Предполагаю, что когда-то они задумали ввести дифференцирование по комплексной переменной в заданном направлении. Так появилось Conjugate'. Но потом забросили это дело, а определение дифференцирования не исправили.

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 19:46 23-03-2020
Mavrikii

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

Цитата:
Не думаю, что ответят

такие вопросы нужно задавать на специализированных сайтах, типа
https://community.wolfram.com/dashboard
https://math.stackexchange.com/

Всего записей: 15040 | Зарегистр. 20-09-2014 | Отправлено: 20:22 23-03-2020
Alex_B



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mavrikii
Спасибо за подсказку. Если хотите, можете сами задать вопрос. А я если соберусь с силами, то напишу.  
 
Более того, сама Mathematica имеет ошибочное представление о функции Conjugate^\[Prime].

Код:
In: ComplexExpand[Conjugate'[z], {z}]
Out: 1

Хотя величина должна зависеть от направления дифференцирования.
 
Кстати, кажется, особо никого не напрягает такое поведение Mathematica . Но если кто-то желает, чтобы она не дифференцировала функцию Conjugate, то можно это сделать в два шага:

Код:
In: excluded="ExcludedFunctions"/.("DifferentiationOptions"/.SystemOptions["DifferentiationOptions"]);
In: SetSystemOptions["DifferentiationOptions"->"ExcludedFunctions"->Union[excluded, {Conjugate}]];

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 20:27 23-03-2020 | Исправлено: Alex_B, 20:39 23-03-2020
zAlAn711



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

Всего записей: 2814 | Зарегистр. 17-06-2002 | Отправлено: 11:52 04-04-2020 | Исправлено: zAlAn711, 12:24 04-04-2020
GeorgeMame

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Надо с помощью Wolfram Mathematica доказать 15^4 = 14^4 + 9^4 + 8^4 + 6^4 + 4^4, т.е. (4,1,14). Как я понял, необходимо использовать LatticeReduce[]. В лоб у меня не получилось. Может кто с таким сталкивался? Буду премного благодарен за подсказку.
 

Всего записей: 141 | Зарегистр. 24-07-2015 | Отправлено: 19:20 18-04-2020 | Исправлено: GeorgeMame, 11:32 19-04-2020
Открыть новую тему     Написать ответ в эту тему

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