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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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 | Цитировать | Сообщить модератору
Alex_B
Насколько я понимаю, под "выглядит вполне традиционно" ты понимаешь TraditionalForm. Чтобы изменить шрифт в TraditionalForm, идешь в Format :: Edit Stylesheet и там вставляешь такую ячейку (для шрифта Arial):

Код:
Cell[StyleData["TraditionalForm"],
FontFamily->"Arial"]

Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 09:58 19-09-2015 | Исправлено: popkov, 10:01 19-09-2015
Alex_B



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

Цитата:
Насколько я понимаю, под "выглядит вполне традиционно" ты понимаешь TraditionalForm

К сожалению, не со всеми шрифтами TraditionalForm выглядит традиционно.
 

Цитата:
вставляешь такую ячейку (для шрифта Arial)

Не понял. Какой стиль нужно выбрать? Там нет стиля TraditionalForm. В этом и проблема. Каким-то образом добавить к стилю Text?

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 16:22 19-09-2015 | Исправлено: Alex_B, 17:27 19-09-2015
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alex_B
Цитата:
Не понял.  
Достаточно просто скопировать код из моего ответа и вставить (Ctrl+V) в Notebook, который откроется после выбора пункта меню Edit Stylesheet (появится вопрос, на который надо ответить Yes).

Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 21:32 19-09-2015
Alex_B



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

Цитата:
Достаточно просто скопировать код

Все гениальное просто. Получилось. Спасибо.
 
А есть ли возможность назначить размер шрифта индексов (Subscript) в стиле TraditionalForm?

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 02:16 20-09-2015 | Исправлено: Alex_B, 03:02 20-09-2015
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alex_B
Можно. См страницу документации по ScriptSizeMultipliers. Эту опцию можно добавить в новый стиль для TraditionalForm, например, так:
Код:
Cell[StyleData["TraditionalForm"],
FontFamily->"Arial",
ScriptSizeMultipliers -> {.8, .9, .95}]  

Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 17:45 20-09-2015
Alex_B



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

Цитата:
Можно.

Отлично! Все сработало.

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 21:04 20-09-2015
1lex1

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как получить 0 из выражения (-1)1/3 + (-1)2/3 ?
 
   
 
Mathematica 9.0.1.0. Win7 x64 SP1. Заранее спасибо за ответ.

Всего записей: 278 | Зарегистр. 22-11-2013 | Отправлено: 15:26 12-10-2015
vengr



Рафинированный Теоретик
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
1lex1
in  N[(-1)^(1/3) + (-1)^(2/3),20]
out 0.*10^-21 + 1.7320508075688772935 I

Всего записей: 3579 | Зарегистр. 21-08-2001 | Отправлено: 17:00 12-10-2015
1lex1

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vengr, а нуля всё равно нет.
 
Кубический корень даёт 3 результата:
   
   
 
Следовательно (-1)1/3 + (-1)2/3 = (-1)1/3 + 11/3 даёт 3 (или 9) ответа:
0
i·sqrt(3)
-i·sqrt(3)

 
Почему программа выбирает 3 ответ, а не более простой — первый? В результате она противоречит сама себе:

 
Как быть уверенным, что в более сложных расчётах не будет использован неподходящий корень.

Всего записей: 278 | Зарегистр. 22-11-2013 | Отправлено: 18:19 12-10-2015
vengr



Рафинированный Теоретик
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
1lex1.  
Математика пишет, что результатом является комплексное число (а не три ответа, девять ответов, ноль...)
ноль это только действительная часть результата и он может быть получен отбрасыманием мнимой части:
 
in      Re[(-1)^(1/3) + (-1)^(2/3)]  
out    0

Всего записей: 3579 | Зарегистр. 21-08-2001 | Отправлено: 18:59 12-10-2015
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
1lex1
Цитата:
Как получить 0 из выражения (-1)1/3 + (-1)2/3?  

Например, так:
Код:
CubeRoot[-1] + CubeRoot[-1]^2

Функция CubeRoot впервые появилась в Mathematica 9.

Всего записей: 1833 | Зарегистр. 22-03-2003 | Отправлено: 19:52 12-10-2015 | Исправлено: popkov, 19:56 12-10-2015
Alex_B



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

Цитата:
Кубический корень даёт 3 результата

В Mathematica кубический корень x^(1/3) (как и другие степени) является функцией. А функция всегда имеет единственное значение. Поэтому указанный вами корень дает 1 результат
1/2 + (I Sqrt[3])/2
А вот уравнение x^3 = -1 дает три результата.
Solve[x^3 == -1, x]
{{x -> -1}, {x -> (-1)^(1/3)}, {x -> -(-1)^(2/3)}}

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 21:53 12-10-2015
karl_karlsson



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

Цитата:
Как получить 0 из выражения (-1)1/3 + (-1)2/3 ?

Зависит от того, какая у вас реальная задача.
Получение нуля, это не задача - он получится если есть и не получится если нету.
 

Цитата:
Почему программа выбирает 3 ответ, а не более простой — первый?

Потому что корни вычисляются вот так.
x = r * e^ia
[(x)^(1/y)]_(k+1) = (r)^(1/y) * e^(ia/y) * (e^(2pi*i/y))^k, k=0...y-1
 
У нас имеется
r = 1
a = pi
y = 3
 
[(-1)^(1/3)]_(k+1) = e^(pi*i/3) * (e^(2pi*i/3)^k, k=0...2
 
Отсюда корни будут
[(-1)^(1/3)]_1 = e^(i*pi/3)
[(-1)^(1/3)]_2 = e^(i*pi) = -1
[(-1)^(1/3)]_3 = e^(i*5pi/3)
 
Поэтому сразу видно, что Mathematica делает не что иное, как берет первое попавшее значение.
 
Alex_B

Цитата:
В Mathematica кубический корень x^(1/3) (как и другие степени) является функцией

Строго говоря, они (разработчики Mathematica) иногда (возможно и чаще) сами не понимают что и зачем вычисляют.
 

Цитата:
А функция всегда имеет единственное значение.

Только однозначные функции имеют единственное значение.
А вот все корни неоднозначные.

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 01:09 15-10-2015
Alex_B



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

Цитата:
Только однозначные функции имеют единственное значение

"Неоднозначные функции" это не функции, а отношения.
Как вы представляет себе, от чего зависит результат действия "неоднозначной функции"? У нее есть свобода выбора?

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



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_B
Свойство однозначности не инвариантно по отношению к замене системы координат.
На примере окружности это будет вот так.
 
y = (+/-) sqrt(1-x^2)
r = 1
 
Поэтому, если это представляет некую физическую задачу, то физический смысл неоднозначности не будет. Отсюда и  

Цитата:
Зависит от того, какая у вас реальная задача.

 
Такие вопросы на rutracker обсуждали, но уже Matematica удалили правообладатели.
Потом и ЛС пропали, так как их ненадолго сохраняют.
Еще графические калькуляторы обсуждали - график функции и есть инвариант, но не ее координатное представление внутри какой нибудь системы координат.

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 10:47 15-10-2015
vikkiv



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

Цитата:
Такие вопросы на rutracker обсуждали, но уже Matematica удалили правообладатели.  
немного ещё на exponenta больше программные обсуждения по этому пакету, варезные там нельзя..

Всего записей: 747 | Зарегистр. 10-11-2005 | Отправлено: 11:51 15-10-2015
Alex_B



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

Цитата:
= (+/-) sqrt

Скажите пожалуйста,  
1) это один, два или три символа?
2) что он или они обозначают?

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 23:56 15-10-2015
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_B
(+/-) sqrt(1-x^2) -> (sqrt(1-x^2)) U (-sqrt(1-x^2))
 
Окружность - Уравнения
 

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

Всего записей: 2027 | Зарегистр. 14-03-2007 | Отправлено: 00:31 16-10-2015
Alex_B



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

Цитата:
(sqrt(1-x^2)) U (-sqrt(1-x^2))

Во-первых, то, что вы написали, является однозначной, а не "неоднозначной функций".
Во-вторых, вы ввели функцию, значения которой выходят из области действительных и комплексных чисел.
Это всё равно что, когда играешь в компьютерную игру, провалиться за текстуры, если не понятно.

Всего записей: 1088 | Зарегистр. 10-01-2002 | Отправлено: 13:08 16-10-2015 | Исправлено: Alex_B, 04:40 24-10-2015
burewisnyk



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день всем!
Скажите, возможно ли получить в Mathematica график с двумя осями ординат и разрывами по оси абцис с изменением масштаба одержанных промежутков и если да, то каким образом. График должен быть типа вот этого:
   
Если коротко, то есть два частотных спектра: перемещения и силы. На графике нужно провести их сравнение в диапазонах частот 0-1 Гц, 5-7 Гц, 20-40 Гц

Всего записей: 3 | Зарегистр. 31-08-2013 | Отправлено: 10:28 26-10-2015
Открыть новую тему     Написать ответ в эту тему

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