level 2
S[T_] = 8/(7*\[Alpha]*(E^(100/T) - 1)*(2/Pi)^(1/2))
Plot3D[(2 \[Pi])/((S[T])^2 +
10/(15*S[T])^2 + \[Alpha]/4 (2/\[Pi])^(1/2)*S[T] -
4/3 15^2*10*(S[T])^2 + 2/3 (Sqrt[2]*S[T])/Sqrt[\[Pi]]*4), {T, 80,
200}, {\[Alpha], 3, 8}, Axes -> True,
AxesLabel -> {T, \[Alpha], T0}, PlotRange -> All]
2018年08月02日 09点08分
