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

popkov
Теперь окончательно (я надеюсь ) понятно. Еще раз спасибо!

Возник вот такой вопрос - создаю в программе Mathematica рисунок с русскими заголовками и подписями на осях. При сохранении в pdf-формат кодировка нарушается и вместо подписей абракадабра. Можно ли это побороть?

Andrew10
См. http://stackoverflow.com/q/6368642/590388

В настоящее время Mathematica не обладает полноценной поддержкой Юникода даже в интерфейсе (FrontEnd), а при экспорте в PDF/EPS - полноценно поддерживает только ANSI. Тем не менее, кириллические символы удается нормально экспортировать - но только с последующей "доработкой" полученного файла. По моему опыту, Adobe Acrobat Distiller в связке с Adobe Acrobat часто (но далеко не всегда) дает нормальный результат. Первый путь - экспортировать в PDF, а затем внедрить шрифты с помощью соответствующей опции Adobe Acrobat (но только если в нем кириллические символы отображаются правильно Если же нет - универсального решения мне не известно).

popkov
Спасибо за ответ!

Посмотрел указанную ссылку. К сожалению, рецепт с cyrFix оттуда - полумера, поскольку у меня надпись получается только моноширинным шрифтом и изменить его на другой не удалось.
С внедрением шрифтов в экспортированный PDF попробую в понедельник, т.к. дома полного Acrobata нет.

Andrew10
Извините, что вмешиваюсь в вашу беседу. Создал PDF файл с помощью pdf-принтера dopdf
http://narod.ru/disk/33248038001/Untitled-2.pdf.html

yuk1958
Мысль правильная, но нужно понимать одну вещь: подобные виртуальные принтеры работают через промежуточную конвертацию печатаемого документа в формат EMF. Несмотря на то, что это векторный формат, имеется ключевая малодокументированная особенность, как именно генерируются такие файлы: точность позиционирования всех объектов и даже узлов ломаных линий определяется не оригинальной точностью печатаемого документа, а округляется до дискретных значений, соответствующих тому, как все это будет отображаться на мониторе при данном конкретном разрешении монитора (т.е., видимо, производится подгонка под пиксельную сетку). Хорошая новость в том, что при печати можно в свойствах принтера выставить разрешение, много большее разрешения монитора (по умолчанию оно там максимальное). Плохая новость - что маленький объект (к примеру, контуры буквы) даже при таком высоком разрешении все равно будет искажен весьма заметно (это легко проверить самостоятельно). Единственный выход - масштабировать рисунок перед отправкой на печать, например, командой Magnify (работает не всегда вполне корректно). Следует также помнить, что по умолчанию Mathematica отображает на экране рисунки, используя набор стилей "Working", а выводит на печать и экспортирует в PDF, используя набор стилей "Printout". Это - те "грабли", наступив на которые, долго не можешь понять, в чем дело.

popkov
Узнал из Вашего сообщения много нового для себя Спасибо

yuk1958
Спасибо за информацию. Скачал doPDF и установил. К сожалению результат разный, печатается ли весь nb-документ или выбранный рисунок. В последнем случае у меня получается просто чистый лист. У Вас также?

Andrew10

Если ничего не выделяю, то печатается весь nb-документ , если выделяю рисунок, то печатается рисунок
Так же ведет себя и pdfFactory Pro

PS Win7 x64

yuk1958

Цитата:

Если ничего не выделяю, то печатается весь nb-документ , если выделяю рисунок, то печатается рисунок
Так же ведет себя и pdfFactory Pro

Загадка У меня во втором случае печатается белый лист формата A4.
PC Win 7 x32.
Может быть дело в версии Математики? У меня 7.01

Andrew10

ХЗ, попробовал pdf распечатать на реальном принтере Все Ок Версия Математики 8.0.4
А pdfFactory Pro не пробовали?

Помогите пожалуйста решить в Mathematica вот это: Оценить параметр Q в нелинейной модели по МНК y=e^-Qt на основе наблюдений t1=0,5 t2=1 t3=2 y4=4 t5=8 t6=16
y1=0,95 y2=0,8 y3=0,62 y4=0,45 y5=0,2 y6=0,04


Изобразить на одном графике зависимость y(t) и экспериментальные точки

ANNA143
Нубский ответ:
Код: dat={{1/2,95/100},{1,8/10},{2,62/100},{4,45/100},{8,2/10},{16,4/100}};
fit=NonlinearModelFit[dat,E^(-Q*t),Q,t];fit//Normal
fit["BestFitParameters"]
Show[ListPlot[dat],Plot[fit[t],{t,0,20}]]

[q][/q]
просто так в задании написано((((
спасибо большое,попробую,посмотрим что получиться!

Добавлено:

1/2,95/100 а можно спросить как вы цифры в скобках подсчитали?

ANNA143

Цитата:

1/2,95/100 а можно спросить как вы цифры в скобках подсчитали?

Ну это то что в заданием имеется

Цитата:

t1=0,5 t2=1 t3=2 y4=4 t5=8 t6=16
y1=0,95 y2=0,8 y3=0,62 y4=0,45 y5=0,2 y6=0,04

люди добрые подскажите где скачать саму программу матиматика

ANNA143
Тут :
http://forum.ru-board.com/topic.cgi?forum=35&bm=1&topic=1174
сверху в шапке есть ссылки.

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

Добавлено:

[q]Помогите пожалуйста решить в Mathematica  вот это: Оценить параметр Q в нелинейной модели по МНК  y=e^-Qt  на основе наблюдений t1=0,5  t2=1  t3=2  y4=4   t5=8   t6=16  
                                                       y1=0,95  y2=0,8  y3=0,62  y4=0,45  y5=0,2  y6=0,04
 
 
Изобразить на одном графике зависимость y(t)  и экспериментальные точки.

УВЫ,НО НИЧЕГО НЕ ВЫХОДИТ,МОЖЕТ КТО ЕЩЁ СМОЖЕТ ПОДСКАЗАТЬ,ОЧЕНЬ ОЧЕНЬ НАДО,ПОЖАЛУЙСТА!!!!!!!!!!

Есть программа в Maple, надо тот же алгоритм проделать в Mathematica 7...
Так вот...

В программе Maple
whattype(x+y) вернёт +, т. е. тип операции
op(x+y) вернёт x, y, т. е. операнды

Никак не могу найти аналогичные команды в Mathematica 7, оооочень нужно... Может кто знает? Заранее большое спасибо...

Aralidka
В Mathematica есть команда Head. Например

Код:
In[1]:= Head[a + b]
Out[1]= Plus

In[3]:= Head[a*b]
Out[3]= Times

подскажите. прочитал в книжке что встроенный DSolve не решает всё и надо подгружать модуль
<< Calculus`DSolve`
и тогда будет решать такое уравнение
DSolve[x^2 y'[x] - y'[x]^2 == 0, , y[x], x]

и вот что он пишет
Get::noopen: Cannot open Calculus`DSolve`. >>
$Failed
DSolve::deqx: Supplied equations are not differential equations of the given functions. >>

а пакетика DSolve.m в директории и нет, есть там правда DSolveIntegrals.m он подгружается, хотя и не без матов со стороны математики. где взять DSolve.m? математика восьмая

<< Calculus`DSolveIntegrals`
Names ["Calculus`DSolveIntegrals`*"]
$Packages

General::obspkg: Calculus`DSolveIntegrals` is now obsolete. The legacy version being loaded may conflict with current Mathematica functionality. See the Compatibility Guide for updating information. >>
{"B", "CompleteIntegral", "IntegralConstants"}
{"Calculus`DSolveIntegrals`", "ResourceLocator`", \
"DocumentationSearch`", "GetFEKernelInit`", "JLink`", \
"PacletManager`", "WebServices`", "System`", "Global`"}

alex6999

В примере синтаксическая ошибка: лишняя запятая. В версии 7.0.1 решилось без всяких подгружений других пакетов:

In[4]:= DSolve[x^2 y'[x] - y'[x]^2 == 0, y[x], x]


Out[4]= {{y[x] -> C[1]}, {y[x] -> x^3/3 + C[1]}}

Ребята помогите решить систему уравнений с помощью NDSolve.

Даны начальные значения переменных:
sf = 200;
sm = 100;
p = 40;
betaf = 0.15;
betam = 0.15;
mums = 0.02;
mufs = 0.02;
sigma = 0.20;
mum = 0.02;
muf = 0.02;

И три уравнения:
fsf[sf] := -muf*fsf[sf] + (betaf + mums + sigma)*fp[p] - HarmonicMean[{fsf[sf], fsm[sm]}];
fsm[sm] := -mum*fsm[sm] + (betam + mufs + sigma)*fp[p] - HarmonicMean[{fsf[sf],fsm[ sm]}];
fp[p] := p - (mufs + mums + sigma)*fp[p] + HarmonicMean[{fsf[sf], fsm[sm]}];


Я хочу получить неявное решение с помощью NDSolve и затем построить график в зависимости от t.

Я что-то совсем запутался: не знаю как передать NDSolve все 3 уравнения одновременно, т.к. они зависят друг от друга(у них общие параметры). У меня получается написать вызов NDSolve с одним уравнением, но даже он не работает, т.к. превышен уровень рекурсии(эту ошибку я вообще не могу правильно понять из описания в документации)

Добрый день, помогите пожалуйста, не могу понять как написать процедуру решения системы 3х уравнений методом Крамера без использования ф-ции Solve. Я понимаю что все элементарно, но все никак не понимаю саму систему написания процедуры. Есть решенный вариант который надо туда запихать
a = {{3, 12, 1}, {5, -2, -2}, {1, 1, -1}}
b = {3, 3, -2}
d = Det[a]
d1 = Transpose[a]
d1 = ReplacePart[d1, b, 1]
Transpose[d1]
Det[d1]
d2 = Transpose[a]
d2 = ReplacePart[d2, b, 2]
Transpose[d2]
Det[d2]
d3 = Transpose[a]
d3 = ReplacePart[d3, b, 3]
Transpose[d3]
Det[d3]
LinearSolve[a, b]

Gangstess

Как-то так:


Kramer[a_, b_] := Table[Det[ReplacePart[Transpose[a], i -> b]], {i, 1, Length[b]}] / Det[a];

In[32]:= a = {{3, 12, 1}, {5, -2, -2}, {1, 1, -1}};
b = {3, 3, -2};

In[34]:= Kramer[a, b]

Out[34]= {19/11, -(5/11), 36/11}

Работает для любого порядка системы

Спасибо огромное, очень выручили!

Не могли бы помочь с вопросом: каким образом можно установить одинаковый масштаб по осям в двухмерном графике?
В Maple, например, SCALING=CONSTRAINED, а в Mathematica подобное не могу найти

yuk1958
Вроде бы опция AspectRatio-> 1

yuk1958
Partner1
AspectRatio -> Automatic.

popkov
Partner1
Спасибо за помощь
Применил AspectRatio -> Automatic, потом распечатал, да еще и линейкой измерил