wolfram-mathematica - 使用 Mathematica 求解低音扩散模型的微分方程

Question

http://www.bassbasement.org/F/N/FMB/Pubs/Bass%201969%20New%20Prod%20Growth%20Model.pdf 关于低音扩散模型，可以参考上面给出的链接。它用于预测新产品的采用。

使用下面的方法和 F(0)=0 的条件，我想得到 F(t) 和 F'(t)

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

有什么建议么？请在此处发布您的答案。

Answer 1

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]