Найдено 300 результатов

Gordon
Вс янв 27, 2013 8:47 pm
Форум: Mathematica
Тема: Wolfram Mathematica. Проблема.
Ответы: 3
Просмотры: 3160

Преобразуйте раскрашенное выражение в InputForm (Shift+Ctrl+I) и сравните с не форматированным: CE[s_] = kflow*((s - xNO2vHem2[s])/(VConst[xNO2vHem2[s]]*(Plus[VNrfAB[xNO2vHem2[s]] + VNirC[xNO2vHem2[s]] + VNirX[xNO2vHem2[s]]]))); CE2[s_] = kflow*((s - xNO2vHem2...
Gordon
Вс фев 19, 2012 2:17 am
Форум: Mathematica
Тема: Итерации
Ответы: 3
Просмотры: 3065

Afun0[t_] := Bfun[t] + Cfun[t, Bfun[t]] Bfun[t_] := 2 t Cfun[t_, a_] := t Sqrt[a] Afun[t_] := NestWhileList[Bfun[t] + Cfun[t, #] &, Afun0[t], Abs[#1 - #2] > 0.01 &, 2][[2 ;;]] Afun0[t] NestList[Bfun[t] + Cfun[t, #] &, Afun0[t], 5] Afun[5.] ListPlot[Afun[10]]
Gordon
Сб янв 08, 2011 7:52 pm
Форум: Mathematica
Тема: помогите с вводом данных
Ответы: 1
Просмотры: 2415

В хелпе ref/format/XLS изучите.
Gordon
Сб дек 25, 2010 12:42 pm
Форум: Mathematica
Тема: 3d-график по точкам
Ответы: 1
Просмотры: 3062

data = Flatten[ Table[{x, y, Sin[x] + Cos[y]}, {x, 0, 7, 0.1}, {y, 0, 7, 0.1}], 1]; ListContourPlot[data, ColorFunction -> "TemperatureMap"] ListPlot3D[data, ColorFunction -> "TemperatureMap", Mesh -> None]
Gordon
Пн дек 20, 2010 7:42 pm
Форум: Mathematica
Тема: автоматический пересчёт ноутбука
Ответы: 8
Просмотры: 4745

Это был еще один ответ на первый вопрос про автоматический пересчет. Тут он будет происходить сразу после изменения каких-либо исходных данных. Если все вычисления-формулы объединить в одну ячейку, то можно обойтись и одним Dynamic-ом n = 7; Dynamic[TableForm@{MatrixForm[ data = RandomInteger[&...
Gordon
Пн дек 20, 2010 12:43 pm
Форум: Mathematica
Тема: автоматический пересчёт ноутбука
Ответы: 8
Просмотры: 4745

Тут решается СЛ уравнений, которые каждые две сек. генерируются и заменяют предыдущие. n = 7; Dynamic[MatrixForm[data = RandomInteger[{-10, 10}, {n + 1, n}]], UpdateInterval -> 2] Dynamic[MatrixForm[res = LinearSolve[data[[;; n]], data[[n + 1]]]]] Dynamic[ListPlot[res, Joined -> ...
Gordon
Вс дек 19, 2010 9:35 pm
Форум: Mathematica
Тема: автоматический пересчёт ноутбука
Ответы: 8
Просмотры: 4745

Скажите лучше зачем вам такое нужно?
Gordon
Вс дек 12, 2010 6:04 pm
Форум: Mathematica
Тема: автоматический пересчёт ноутбука
Ответы: 8
Просмотры: 4745

Вот так Dynamic[Refresh[FrontEndExecute[FrontEndToken["EvaluateNotebook"]], UpdateInterval -> 10]] DateString[] FrontEndExecute[FrontEndToken["EvaluatorAbort"]]; или Dynamic[FrontEndExecute[FrontEndToken["EvaluateNotebook"]]] ... Pause[10]
Gordon
Вс дек 05, 2010 5:32 pm
Форум: Mathematica
Тема: SOS!!!
Ответы: 3
Просмотры: 2600

sum4is10[a1_] := NestList[# + 1/3 (5 - 2 a1) &, a1, 3] sum4is10[3437] Total[%] sum4is10[x] Total[%] Append[#, 10 - Total[#]] &[RandomReal[{-10, 10}, 3]] Total[%] ConstantArray[10/4, 4]
Gordon
Вс дек 05, 2010 5:17 pm
Форум: Mathematica
Тема: график суммы простых гармонических колебаний
Ответы: 2
Просмотры: 2544

Код: Выделить всё

Plot[{Sin[x] + 0.1 Cos[25 x], Sin[x], 0.1 Cos[25 x]}, {x, 0, 10}]
Gordon
Чт дек 02, 2010 8:58 pm
Форум: Mathematica
Тема: Проблема с получением значения опции (OptionValue[])
Ответы: 3
Просмотры: 2811

Достаточно сделать следующее:

Код: Выделить всё

SetAttributes[OptionValue, HoldFirst]
Gordon
Чт ноя 11, 2010 2:16 pm
Форум: Mathematica
Тема: Работа с графиками
Ответы: 9
Просмотры: 6101

Изображение
Gordon
Ср ноя 10, 2010 2:39 pm
Форум: Mathematica
Тема: Проблема с мнимой частью…
Ответы: 2
Просмотры: 2265

K = {{a11 + I b11, a21 + I b21, a31 + I b31}, {a12 + I b12, a22 + I b22, a32 + I b32}, {a13 + I b13, a23 + I b23, a33 + I b33}}; KK = Det[K] Ka = Re[KK]; Kr = Im[KK]; ComplexExpand[Ka+I Kr] будет верно при условии, что все a_, b_ - вещественные числа.
Gordon
Вт ноя 09, 2010 4:08 pm
Форум: Mathematica
Тема: ДУ (Фазовая траектория)
Ответы: 6
Просмотры: 4202

Ваш файл почти рабочий, ошибка в еу была.
При отрицательных x0, y0 ~ < -0.7 система не решается
Gordon
Вт ноя 09, 2010 2:48 pm
Форум: Mathematica
Тема: ДУ (Фазовая траектория)
Ответы: 6
Просмотры: 4202

S0 = 1; sol = NDSolve[{2 x[t] + y[t]^2 - 1 == x'[t], Sin[x[t]] - y[t]^2 + 1 == y'[t], x[0] == S0, y[0] == S0}, {x[t], y[t]}, {t, 0, 2}] ParametricPlot[Evaluate[{x[t], y[t]} /. sol[[1]]], {t, 0, 2}, AspectRatio -> 1]