选修课选了matlab,完全不

没有Matlab，只好用Mathematica解答。
另外，如果可以还请不要这样做。

不明原因无法上传图片，抱歉。

qq 2908337579。有偿代做

第一题：
Plot[{x^3 - 35 x^2 + 100 x + 1500, 2020 (Cos[x/2] - Sin[x])}, {x, -20,
40}]
第二题：
Clear[x]; Solve[10000*1.075^(x - 1) == 20000, x]
第三题：
Clear[x]; Clear[y]; f[x_] =.; g[x_] =.;
f[x_] := 50 x + 0.2 x^2; g[x_] := 4 x;
Solve[D[f[x] + g[x - 40] + f[y] + g[x + y - 100] +
f[180 - x - y], {{x, y}}] == {0, 0}, {x, y}]