用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]