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

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

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

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 22:11 04-12-2011
yuk1958



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Andrew10
 
Если ничего не выделяю, то  печатается весь nb-документ , если выделяю рисунок, то печатается рисунок
Так же ведет себя и pdfFactory Pro
 
PS  Win7 x64

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

Всего записей: 1471 | Зарегистр. 12-08-2010 | Отправлено: 17:57 05-12-2011 | Исправлено: yuk1958, 18:16 05-12-2011
Andrew10

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

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

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

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 19:54 05-12-2011
yuk1958



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Andrew10
 
ХЗ, попробовал pdf распечатать на  реальном принтере Все Ок Версия Математики 8.0.4
А pdfFactory Pro не пробовали?

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

Всего записей: 1471 | Зарегистр. 12-08-2010 | Отправлено: 21:03 05-12-2011
ANNA143

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста решить в 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)  и экспериментальные точки

Всего записей: 4 | Зарегистр. 21-12-2011 | Отправлено: 01:43 21-12-2011
vikkiv



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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}]]
Хотя может это и не МНК .. и почему именно нелинейной?, можно-же наверное линеаризировать.

Всего записей: 748 | Зарегистр. 10-11-2005 | Отправлено: 03:43 21-12-2011 | Исправлено: vikkiv, 03:59 21-12-2011
ANNA143

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[q][/q]
просто так в задании написано((((
спасибо большое,попробую,посмотрим что получиться!
 
Добавлено:
 
1/2,95/100 а можно спросить как вы цифры в скобках подсчитали?

Всего записей: 4 | Зарегистр. 21-12-2011 | Отправлено: 16:29 21-12-2011
karl_karlsson



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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

 

Всего записей: 2048 | Зарегистр. 14-03-2007 | Отправлено: 02:09 22-12-2011
ANNA143

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
люди добрые подскажите где скачать саму программу матиматика

Всего записей: 4 | Зарегистр. 21-12-2011 | Отправлено: 18:19 22-12-2011
Partner1



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ANNA143
Тут :
http://forum.ru-board.com/topic.cgi?forum=35&bm=1&topic=1174
сверху в шапке есть ссылки.

Всего записей: 277 | Зарегистр. 28-11-2007 | Отправлено: 18:51 22-12-2011 | Исправлено: Partner1, 21:20 22-12-2011
ANNA143

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое!
 
Добавлено:
 
[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)  и экспериментальные точки.
 
УВЫ,НО НИЧЕГО НЕ ВЫХОДИТ,МОЖЕТ КТО ЕЩЁ СМОЖЕТ ПОДСКАЗАТЬ,ОЧЕНЬ ОЧЕНЬ НАДО,ПОЖАЛУЙСТА!!!!!!!!!!

Всего записей: 4 | Зарегистр. 21-12-2011 | Отправлено: 00:43 23-12-2011
Aralidka

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть программа в Maple, надо тот же алгоритм проделать в Mathematica 7...
Так вот...  
 
В программе Maple  
whattype(x+y)  вернёт +, т. е. тип операции
op(x+y) вернёт x, y, т. е. операнды
 
Никак не могу найти аналогичные команды в Mathematica 7, оооочень нужно... Может кто знает? Заранее большое спасибо...

Всего записей: 1 | Зарегистр. 24-12-2011 | Отправлено: 14:28 24-12-2011
Partner1



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aralidka
В Mathematica есть команда Head. Например

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

Посмотрите еще команду FullForm.

Всего записей: 277 | Зарегистр. 28-11-2007 | Отправлено: 17:45 24-12-2011
alex6999



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
подскажите. прочитал в книжке что встроенный 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`"}

Всего записей: 26 | Зарегистр. 20-05-2008 | Отправлено: 20:06 06-01-2012
Andrew10

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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]}}

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



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята помогите решить систему уравнений с помощью 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 с одним уравнением, но даже он не работает, т.к. превышен уровень рекурсии(эту ошибку я вообще не могу правильно понять из описания в документации)

Всего записей: 47 | Зарегистр. 07-03-2004 | Отправлено: 03:38 24-01-2012
Gangstess

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, помогите пожалуйста, не могу понять как написать процедуру решения системы 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]

Всего записей: 2 | Зарегистр. 24-01-2012 | Отправлено: 15:48 24-01-2012
Andrew10

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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}
 
Работает для любого порядка системы

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 16:44 24-01-2012 | Исправлено: Andrew10, 16:46 24-01-2012
Gangstess

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо огромное, очень выручили!

Всего записей: 2 | Зарегистр. 24-01-2012 | Отправлено: 16:51 24-01-2012
yuk1958



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

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

Всего записей: 1471 | Зарегистр. 12-08-2010 | Отправлено: 19:50 04-02-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