» Mathematica (математика)

popkov
Спасибо большое!
Все время забываю про это самое RuleDelayed!
Ведь уже сталкивался с чем-то подобным

Еще раз спасибо!

А чо бы не:

Код: B = ArrayPad[A, {{0, 4}, {4, 0}}]

Добрый день всем!

Обращаюсь с очередной "головоломкой" для Mathеmatic-и:

Есть список типа Real, как найти номера элементов списка, принимающих локальный минимум (т.е. не больших своих соседей) без использования циклов типа Do, Table и т.д. ?

Спасибо!

Ну, например:

Код: Flatten@Position[ListCorrelate[{1, 1, 1}, inputList, {1, -1}, Null,Times, #1 >= #2 <= #3 &], True]+1

panda3

Большое спасибо!

Попробовал все три варианта.
Быстрее всего вариант 1, вариант 2 уступает совсем немного по времени, процентов 10, вариант 3 -более чем в два раза медленнее.

По простоте и понятности для меня вне конкуренции вариант 2. Так что выбираю его. Еще раз спасибо!

Подскажите, может ли математика преобразовывать выражения?
пример:
интеграл dx/x [от 0,1 до 0,5] = ln x [от 0,1 до 0,5] = ln 0,5/0,1 = ln 5

Annymann
Цитата:

интеграл dx/x [от 0,1 до 0,5] = ln x [от 0,1 до 0,5] = ln 0,5/0,1 = ln 5

Может дать сразу конечный результат:
Код: [no]Integrate[1/x, {x, 1/10, 1/2}]
(* => Log[5] *)[/no]

popkov, спасибо

Здравствуйте!

Кто-нибудь использовал в математике9 remote kernel? Встала задача по переносу длительных расчетов на небольшой но уже по-настоящему многопроцессорный комп, стал пробовать и пока что-то не получается.

Ситуация на данный момент следующая:
1. Есть математика 9.0.1 на ноуте под вин8 и такая же 9.0.1 на сервере с дебианом.
2. Есть SSH доступ с ноута на сервер. Через Putty по ключу авторизуюсь без проблем, не вводя каждый раз пароль и могу запустить тот же MathKernel на сервере через консоль..

Теперь, собственно, проблема.
В математике на ноуте захожу в Kernel configuration options создаю новый Remote kernel, указываю айпишник сервера и имя пользователя для логина. Остальные параметры оставляю по-дефолту.
Создаю новый notebook и указываю, что исполнять его на вновь созданном удаленном ядре. Пишу в нем какую-нибудь команду математики, например, $MachineName и жму выполнить. Математика спрашивает пароль для SSH соединения, ее встроенный клиент пока не знает ключа..
В Путти я вижу, что на сервере возник процесс MathKernel, и даже отработал пару секунд процессорного времени. Т.е. математика имеет доступ к серверу, может запустить там что-то...
Но, вот, результаты удаленных вычислений в нотебуке не появились. Зато появилось окошко Messages и выдало мне, что есть ошибка матлинка, о которой в хелпах нет ничего..

Message:
Цитата:

The kernel ufo24 failed to connect to the front end. (Error = MLECONNECT). You should try running the kernel connection outside the front end.

Пробовал с выключенным Вин-Файрволлом - пофиг. Да, и понятно, SSH-то коннектится, значит проблема не в стенке..

Кто-нибудь может подсказать мне правильный путь, куда копать?

Решил по-простому. Поставил gridMath на сервере, поднял грид и забыл об этой головной боли - все отлично работает удаленно впараллель..

Никто не может мне помочь в написании кода для простой задачи? Т.е. достаточны базовые знания программы. Готов отблагодарить $

dramadeur
По логике обычно сначала идёт постановка задачи, а потом вокруг обсуждение/решения, или ты особенный/я? Таких с котами в мешках и так стада вокруг ходят.

Никто не заморачивался перенаправлением вывода в Математике? Нужно рассчитанную картинку отправлять на второй экран, подключенный к HDMI. Никто не в курсе, где можно более детальный хелп по OutputSream найти? Или тут в торону ВинAPI копать нуна?

Rom380
OutputSream позволяет перенаправить Output в произвольный файл или Pipe (не знаю, как это переводится). Рекомендую обратиться в сообщество
http://mathematica.stackexchange.com
с подобным вопросом, но более детально сформулированным: что, как и куда надо выводить?

popkov


Цитата:

с подобным вопросом, но более детально сформулированным: что, как и куда надо выводить?

Вот, вот, именно, параметры потока и интересуют! Ок, отпишусь там, спасибо!

Ну вот тривиальные проблемы:

Не берется
Integrate[Abs[x], x]

Ошибки на место графика
Plot[Integrate[x, x], {x, -1, 1}]

Все это Maple делает как надо.
Почему так получается?

Цитата:

Не берется
Integrate[Abs[x], x]

По умолчанию Математика считает х комплексным, т.е., по видимому, решает задачу более общую, чем Maple.
Для вещественного x интеграл берется:
Integrate[Abs[x], x, Assumptions->{x \[Element] Reals}]

Если Вам нужно работать только в поле вещественных чисел, определите это в глобальных $Assumptions:
$Assumptions = Element[_, Reals]

Тогда будет вычисляться и выражение:
Integrate[Abs[x], x]



Цитата:

Ошибки на место графика
Plot[Integrate[x, x], {x, -1, 1}]

Plot[Evaluate@Integrate[x, x], {x, -1, 1}]

Мне нужно засейвить результаты вычислений, где каждое вуражение с десяток мегабайтов : мой студент утверждает что Print действует плохо то есть имеет баги, а DumpSave не читается на другом компе. Есть какие нибудь другие разумные решения?

kotika98
Put и Get, а также Export в формат "WDX" (Wolfram Data Exchange), затем Import.

r_green
Спасибо.

Цитата:

По умолчанию Математика считает х комплексным, т.е., по видимому, решает задачу более общую, чем Maple.

Скорее всего только пытается, так как задача становится более общей только если внутри функции присутствует z* как внутри Abs. А вот такие, думаю, Mathematica и не берет.

Ну вот такая ошибка получается, True на место x>0

Код: \[Piecewise]    -(x^2/2)    x<=0
x^2/2    True

karl_karlsson

Цитата:

Ну вот такая ошибка получается, True на место x>0

Это не ошибка. Такова форма представления Piecewise выражения.
Piecewise[{{val1, condition1}, ... {valN, conditionN}}, defaultVal] вычисляется последовательным вычислением conditions, значением Piecewise становится первое valK, для которого conditionK == True.
Если ни одно из условий не дало результат True, значением становится defaultVal.
Таким образом, Piecewise[{{val1, condition1}, ... {valN, conditionN}}, defaultVal] эквивалентно более регулярной форме Piecewise[{{val1, condition1}, ... {valN, conditionN}, {defaultVal, True}}].
Т.е. True здесь означает "для всех прочих случаев".


Цитата:

А почему необходим Evaluate внутри Plot?

Аргументы Integrate вычисляются.
Вот такое выражение даст ошибку:
x=1;Integrate[x,x]
поскольку значением второго параметра получается не символ, а константа, т.е. вычисляется Integrate[1,1].
Plot[Integrate[Abs[x]], {x, -1, 1}] вычисляет выражение Integrate[Abs[x]] в контекстax x=-1, ..., x=1, получая невалидные выражения Integrate[Abs[-1],-1], ..., Integrate[Abs[1], 1].
Поэтому нужно сначала вычислить Integrate[] в символьном контексте.

Добрый день всем!

В очередной раз прошу помощи.
Как организовать удаление из списка следующих друг за другом идентичных элементов?
Функция DeleteDuplicates не подходит, поскольку она удаляет любые дубликаты элемента, даже если они не расположены в непрерывную цепочку. Ну, например, из списка

{a, b, b, c, d, b, e, f,a}

должен получаться список {a, b, c, d, b, e, f,a}

а DeleteDuplicates дает {a, b, c, d, e, f}

Спасибо!

Andrew10
First /@ Split[{a, b, b, c, d, b, e, f, a}]

Andrew10
Цитата:

Как организовать удаление из списка следующих друг за другом идентичных элементов?

Первый пример из документации по функции Split решает проблему:
Код: [no]list = {a, b, b, c, d, b, e, f, a};
Split[list][[All, 1]][/no]