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

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



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yuk1958
Вроде бы опция AspectRatio-> 1

Всего записей: 277 | Зарегистр. 28-11-2007 | Отправлено: 00:05 05-02-2012
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
yuk1958
Partner1
AspectRatio -> Automatic.

Всего записей: 1844 | Зарегистр. 22-03-2003 | Отправлено: 00:09 05-02-2012
yuk1958



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
popkov
Partner1
 Спасибо за  помощь  
Применил AspectRatio -> Automatic, потом распечатал, да еще и линейкой измерил  


----------
Истина где-то рядом...

Всего записей: 1471 | Зарегистр. 12-08-2010 | Отправлено: 00:32 05-02-2012
KrgUser

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такой вопрос--- через NDSolve (Mathematica 7.1) решаю уравнение, в граничные условия входит функция от Exp[-1/Sqrt[x]] (с производными). Если эту функцию использовать напрямую, NDSolve дает ошибку, ибо почему-то (даже задавал, что x вещественна и больше нуля) не может вычислить значение Exp[-1/Sqrt[x]] при x=0 (ругается на комплексную бесконечость). Пришлось задавать функцию через конструкцию If[x=0,0,функция(Exp[-1/Sqrt[x]])] (и производных тоже, что весьма муторно). Нет ли способа поизящнее?

Всего записей: 86 | Зарегистр. 26-04-2011 | Отправлено: 19:16 17-02-2012
Andrew10

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

Цитата:
Такой вопрос--- через NDSolve (Mathematica 7.1) решаю уравнение, в граничные условия входит функция от Exp[-1/Sqrt[x]] (с производными). Если эту функцию использовать напрямую, NDSolve дает ошибку, ибо почему-то (даже задавал, что x вещественна и больше нуля) не может вычислить значение Exp[-1/Sqrt[x]] при x=0 (ругается на комплексную бесконечость). Пришлось задавать функцию через конструкцию If[x=0,0,функция(Exp[-1/Sqrt[x]])] (и производных тоже, что весьма муторно). Нет ли способа поизящнее?
 

 
Пишешь
F[0] = 0;
F[x_] := Exp[-1/Sqrt[x]];

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 09:16 19-02-2012
KrgUser

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А это разве не то же самое, что и мое
Код:
F[x_]:=If[x=0,0,функция(Exp[-1/Sqrt[x]])]
?

Всего записей: 86 | Зарегистр. 26-04-2011 | Отправлено: 19:05 19-02-2012
Andrew10

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

Цитата:
А это разве не то же самое, что и мое

 
Последовательность действий при вычислении у Mathematic-и будут различными. Я что-то подумал, что если нужно вычислять и производные, то вариант с If будет правильнее. Или нужно добавлять правило для определения всех производных F в нуле, а как это сделать единым образом я что-то не соображу. Вот так:
 
Derivative[n_ /; n > 0][F][0] := 0;
 
не получается.

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 11:01 20-02-2012 | Исправлено: Andrew10, 11:06 20-02-2012
KrgUser

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот-вот, в этом-то и загвоздка. Странно, неужели нельзя задать лишь одно правило (типа, Exp[-1/Sqrt[x]](0) = Limit[Exp[-1/Sqrt[x]], x->0], этот вариант "честнее" чем просто тупо положить, как выше, Exp[-1/Sqrt[x]](0) = 0) и приложить его для производных? У меня пока тоже не получается. Кстати, если не ошибаюсь, предел Limit[Exp[-1/Sqrt[x]], x->0] тоже не получался

Всего записей: 86 | Зарегистр. 26-04-2011 | Отправлено: 15:29 20-02-2012
r_green



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

Цитата:
неужели нельзя задать лишь одно правило (типа, Exp[-1/Sqrt[x]](0) = Limit[Exp[-1/Sqrt[x]], x->0], этот вариант "честнее" чем просто тупо положить, как выше, Exp[-1/Sqrt[x]](0) = 0) и приложить его для производных?

Вот так можно:

Код:
 
In[1]:= eliminateSingularity[f_][x_] := Limit[f[t], t -> x]
In[2]:= Derivative[n_]@eliminateSingularity@f_ ^:= eliminateSingularity@Derivative[n]@f
 

 
Пример использования:

Код:
 
In[3]:= f0[x_] := Exp[-1/Sqrt[x]]           (* Оригинальная ф-ция *)
In[4]:= f1=eliminateSingularity[f0];        (* f1 - "улучшенная" f0 (с устранёнными сингулярностями, в т.ч. в производных) *)
In[5]:= f1[0]
Out[5]= 0
In[6]:= f1'''[0]
Out[6]= 0
 

Всего записей: 145 | Зарегистр. 17-09-2004 | Отправлено: 04:59 23-02-2012
Andrew10

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день всем!
Вот такой вопрос:
Есть выражение вида f[x]+f'[x]. Как сделать единым образом подстановку для функции, скажем заменить f[x] на x^2, чтобы функция заменилась сразу в обоих слагаемых, т.е., чтобы получилось
x^2+2x.
Вроде должно быть простое решение, но не могу сообразить
 
Добавлено:
Послал вопрос и тут же сообразил:
f[x] +f'[x] /. f -> Function[x, x^2]
Так что вопрос отпал

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 22:05 08-03-2012 | Исправлено: Andrew10, 22:13 08-03-2012
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
BookWarrior
Цитата:
друзья,
у меня шикарная проблема: экспорт в EPS или PDF рисунков с надписями, например в Helvetica, т.е. в одном из "стандартных" шрифтов, не встраивает шрифты (т.е. Helvetica в данном случае). А мне надо встраивать все, включая "стандартные" (это Times-Roman, Helvetica и ещё 10 штук).
 
Как это сделать, подскажите пожалуйста. Гугл не помогает. Ах да! Помогает гугл, но для линукса: там меняется настройка PS драйверов, в которых список ислключаемых ("стандартных") шрифтов прописан в одном из конфигов явно - они комментируются и всё работает. А мне надо под виндой, там всё по-другому.
 
Я использую pdflatex, в который отдаю EPS, сгенерённый Математикой и обработанный ps2pdf (только чтобы crop сделать - на шрифты не влияет). Контролирую встроенность шрифтов явным образом: тулза из пакета xpdf, называется pdffonts - она выдаёт список шрифтов и показывает, встроены они и чему принадлежат: документу или чему-то включённому, как картинки (мой случай).
 
Вот такая ситуация. Подскажите, пожалуйста.

Вместо печати на виртуальный PDF-принтер лучше использовать встроенный экспорт в PDF (качество векторной графики будет выше). Для внедрения шрифтов в полученный PDF-файл можно использовать Adobe Acrobat. При необходимости из него же возможен экспорт в EPS.
 
Добавлено:
Релевантная тема на другом ресурсе: "How to embed fonts when exporting Mathematica graphics as PDF?".
Цитата:
Mathematica indeed does embed the font, regardless of whether a particular font weight/slant exists or not.

Всего записей: 1844 | Зарегистр. 22-03-2003 | Отправлено: 03:56 07-04-2012
vengr



Рафинированный Теоретик
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
BookWarrior
ещё в версиях 2-4 при работе с постскриптами из математики заметил, что лучше всех с ними справляется Wolfram Publicon или Deneba Canvas или просто постскрипт открыть текстовым редактором и вручную править шрифты

Всего записей: 3579 | Зарегистр. 21-08-2001 | Отправлено: 17:17 07-04-2012
Andrew10

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

Цитата:
 Для внедрения шрифтов в полученный PDF-файл можно использовать Adobe Acrobat. При необходимости из него же возможен экспорт в EPS.  

А можно ли автоматизировать этот процесс в Acrobate-? Сейчас каждую каждую подпись в каждой картинке приходится исправлять вручную. А если картинок много?

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 23:55 07-04-2012
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Andrew10
В Acrobat X есть "Мастер операций", который, похоже, как раз для таких задач и предназначен. Однако я не имею опыта работы с ним.
 
Другой путь - объединить все PDF-файлы в один, внедрить шрифты, затем снова разбить на отдельные файлы...

Всего записей: 1844 | Зарегистр. 22-03-2003 | Отправлено: 06:36 08-04-2012
Andrew10

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

Цитата:
Другой путь - объединить все PDF-файлы в один, внедрить шрифты, затем снова разбить на отдельные файлы...

 
Спасибо за ответ. Но тут же следующий вопрос . Я не очень понимают слов "внедрить шрифты". Как это сделать в Акробате? Сейчас я просто  тупо вручную  перенабираю каждую кириллическую надпись на рисунке.

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 11:18 08-04-2012 | Исправлено: Andrew10, 11:42 08-04-2012
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Andrew10
Цитата:
Сейчас я просто  тупо вручную  перенабираю каждую кириллическую надпись на рисунке.
Ну это уж точно излишне! Внедрение шрифтов - точно не проблема, самый тупой и надежный (но не рекомендуемый) способ - просто открыть PDF-файл в Acrobat и напечатать на виртуальный принтер Acrobat Distiller. При этом все шрифты по умолчанию будут внедрены, качество (с точки зрения вывода на печать) сохраняется, однако практика показывает, что сам Acrobat почему-то менее качественно рендерит полученный PDF-файл на экране компьютера, чем исходный (это утверждение касается векторной графики, кроме шрифтов). Поэтому рекомендуется пользоваться инструментами допечатной подготовки, имеющиеся в Acrobat. В каждой версии они расположены в разных местах меню, называются и работают по-разному, так что без экспериментов не обойтись. Давно не занимался этим, могу только сказать, что в 7-м Acrobat я успешно справился с этой задачей, когда она возникла. С тех пор надобности не было. В новых версиях Mathematica, согласно отзывам, по-умолчанию происходит внедрение шрифтов, если они установлены на компьютере.

Всего записей: 1844 | Зарегистр. 22-03-2003 | Отправлено: 21:20 08-04-2012
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Andrew10
Кажется, нашел. В Acrobat X это в меню Просмотр > Инструменты > Допечатная подготовка. Далее надо кликнуть "Предпечатная проверка" в открывшемся списке действий справа, и откроется окно Preflight. В нем надо найти раздел "PDF fixups", развернуть, и далее выделить пункт "Embed fonts". Затем нажать кнопку "Analyse and fix" в правой нижней части окна. Данный метод, правда, не всегда работает: иногда выдается сообщение об ошибке. В таких случаях остается только печать на виртуальный принтер Acrobat Distiller...

Всего записей: 1844 | Зарегистр. 22-03-2003 | Отправлено: 09:44 09-04-2012
Andrew10

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

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 05:26 10-04-2012
BookWarrior



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

Цитата:
Вместо печати на виртуальный PDF-принтер лучше использовать встроенный экспорт в PDF  
я не печатаю на виртуальный принтер, я делаю экспорт из Математики, как написал.
 

Цитата:
Mathematica indeed does embed the font, regardless of whether a particular font weight/slant exists or not
я думаю это о каком-то специфическом случае, т.е. например когда шрифт используется, а математика встраивает не только его, но и все его начертания (об этом написано в цитате). Но она не встраивает 14 стандартных шрифтов, потому что они подразумеваются везде. Однако это нужно, и часто. Большое упущение, что такие пакеты не позволяют это выбирать в опциях при сохранении - это исключительно легко реализовать и чудовищно трудно обойти, если этого нет.
 
Кстати, ту ветку по линку я видел, она не помогает.
 

Цитата:
В новых версиях Mathematica, согласно отзывам, по-умолчанию происходит внедрение шрифтов, если они установлены на компьютере
в той ветке речь о нестандартных шрифтах - да, они встраиваются, я проверял. Но в этом и засада, что нужно встроить стандартный шрифт.
 

Цитата:
Кажется, нашел. В Acrobat  
вот спасибо!! Встроилось! Хотя и частично. У меня вообще из математики PDF картинок вышел с невстроенными шрифтами Mathematica (такой fontface), не знаю, почему, но с этой точки уже смогу сам расковырять. Спасибо за Акробатный совет, Хелветику встроило - победа!

Всего записей: 1340 | Зарегистр. 15-08-2004 | Отправлено: 10:25 15-04-2012
popkov

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
BookWarrior
Печать на на виртуальный принтер Acrobat Distiller из Acrobat должна приводить к гарантированному встраиванию всех шрифтов (кроме запрещенных к встраиванию).

Всего записей: 1844 | Зарегистр. 22-03-2003 | Отправлено: 11:42 15-04-2012
Открыть новую тему     Написать ответ в эту тему

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