Решение дифференциального уравнения модели диффузии басов с использованием Mathematica

http://www.bassbasement.org/F/N/FMB/Pubs/Bass%201969%20New%20Prod%20Growth%20Model.pdf О модели диффузии басов вы можете обратиться к приведенной выше ссылке. Он используется для прогнозирования принятия новых продуктов.Решение дифференциального уравнения модели диффузии басов с использованием Mathematica

Используя метод ниже и условие, что F (0) = 0, я хочу, чтобы получить F (T) и F '(т)

DSolve[{F′(t)=p+(q−p)∗F(t)−q∗(F[t])^2 }, F,t]

Есть предложения? Пожалуйста, напишите свой ответ здесь.

источник

2012-04-26 Frank Wang

k = DSolve[{f'[t] == p + (q - p) f[t] - q f[t]^2, f[0] == 0}, f, t]

Пожалуйста ... попробуйте прочитать руководства!

Редактировать

Возможно Заговор это требует некоторого опыта:

g[x_?NumericQ] := (f /. k[[1]] /. {p -> 1/3, q -> 2/3})[x] 
Plot[{g[t], g'[t]}, {t, 0, 8}, PlotRange -> Full]

enter image description here

источник

2012-04-26 12:57:10

Я побежал этот код тоже. однако MM выдает предупреждение: Solve :: ifun: Обратные функции используются Solve, поэтому некоторые решения могут быть не найдены; используйте «Уменьшить» для получения полной информации о решении. >> –

@FrankWANG Это потому, что существуют тривиальные решения. Попробуйте ** Уменьшить [f '[t] == p + (q - p) f [t] - q (f [t])^2] ** –

Спасибо за ваш ответ. –

Решение дифференциального уравнения модели диффузии басов с использованием Mathematica

ответ

Смежные вопросы