第一次用Mathematica画图，求助大佬们~
已知f(k)是一个关于k的函数，其中k>1/2。r是其中的一个参数，范围为[0,1]
我想要做的：画出f(x)的图像
我的代码：
Assuming[0 <= r <= 1,
Plot[-2 (3 - r) r k^3 - (r^3 - 2 r^2 - 7 r + 4) k^2 + (r^3 -
6 r^2 - 4 r) k + r^2 - r, {k, 1/2, 1000}]]
我的结果：
想问下为啥只显示坐标轴，不显示图像呢？

Plot3D[-2 (3 - r) r k^3 - (r^3 - 2 r^2 - 7 r + 4) k^2 + (r^3 -
6 r^2 - 4 r) k + r^2 - r, {k, 1/2, 1000}, {r, 0, 1},
AxesLabel -> {"k", "r"}]
DensityPlot[-2 (3 - r) r k^3 - (r^3 - 2 r^2 - 7 r + 4) k^2 + (r^3 -
6 r^2 - 4 r) k + r^2 - r, {k, 1/2, 1000}, {r, 0, 1},
FrameLabel -> {"k", "r"}, PlotLegends -> Automatic]

Mathematica（至少目前还）没有你想象中的这种模糊绘图的功能，你的r必须得是个数字。用 Manipulate 来观察不同 r 对图像的影响是一个比较常见的选择。