mathematica软件中 需要求出y随x的变化关系，并作出图形，需要用到那个算法？

Question

其中，k=0.28，a从5度到80度变化，需要作出y随z的变化曲线

Answer 1

Manipulate[Module[{k = 0.28, w = k/Cos[a]},
 Plot[(Sin[a] - 1)/2 k E^(w z) - (Sin[a] + 1)/2 k E^(-w z) + 1/k, {z, 
   0, 10}, PlotRange -> 100]], {a, 5, 80}]

Manipulate[
 Module[{k = 0.28, w = k/Cos[a]}, 
  Plot[1/k (Sinh[w z] Sin[a] - Cosh[w z] + 1), {z, 0, 10}, 
   PlotRange -> 100]], {a, 5, 80}]

我怎么感觉第二个等号不等呢。。。。。可能是我对你输入的式子没理解吧，你自己修改一下Plot内的公式

Answer 2

最常用的应该是Manipulate，
Manipulate[Plot[f(w,z),{z,min,max}],{w,min,max}]