代码如下：
Clear[i, a, k, r]
DSolve[{i'[t] == r*i[t]*(1 - 1/k - i[t]), i[0] == a}, i, t]
输出的结果是
{{i -> Function[{t}, (
E^(r t) (-1 + k) (1 - k + a k)^(
1/(-1 +
k)))/(-a^((1/(-1 + k))) E^((r t)/k + (
k (-Log[a] + Log[1 - k + a k]))/(-1 + k)) +
E^(r t) k (1 - k + a k)^(1/(-1 + k)))]}}
然后我把这个结果定义为一个函数
r = 0.08
a = 0.25
k = {0.5, 0.7, 1.5, 1.8}
i[t_] = (
E^(r t) (-1 + k) (1 - k + a k)^(
1/(-1 +
k)))/(-a^((1/(-1 + k))) E^((r t)/k + (
k (-Log[a] + Log[1 - k + a k]))/(-1 + k)) +
E^(r t) k (1 - k + a k)^(1/(-1 + k)))
Plot[i[t], {t, 0, 100}, PlotRange -> All]
然后就能正常绘出传染病SIS模型在k小于1和大于1时候的图像
但是我想用Manipulate控制k的变化
于是
i[t_] =.
k =.
i[t_] = (
E^(r t) (-1 + k) (1 - k + a k)^(
1/(-1 +
k)))/(-a^((1/(-1 + k))) E^((r t)/k + (
k (-Log[a] + Log[1 - k + a k]))/(-1 + k)) +
E^(r t) k (1 - k + a k)^(1/(-1 + k)))
Manipulate[Plot[i[t], {t, 0, 100}], {k, 0, 2}]
然后就只有坐标系 没有函数图像 请问是怎么回事

https://tieba.baidu.com/p/4886024974