数学建模（1）第一次上机实习任务写出分段函数的Mathematica自定义函数形式,并画出其在[0,60]上的图形。代码：f[x_]:=Which[x<=0,0,x<=10,10+2*x,x<=20,30,x<=40,30-(x-20)/2,x<=50,20,x<=60,20-2*(x-50),x>60,0]Plot[f[x],{x,0,60}]分别用Do语句、For语句、While语句三种循环控制语句完成1到100所有自然数求和运算。代码1：s=0;Do[s+=i,{i,100}];s代码2：For[i=0;s=0,i<=100,i++,s+=i];s代码3：i=0;s=0;While[i<=100,s+=i;i++];s3、按要求绘制下列函数图形。（1），。代码：Plot3D[Sin[x*y],{x,-10,10},{y,-10,10}]（2）在同一坐标系中画出下列三个函数的图形，并给坐标横轴和纵轴分别标记为x和y，自变量范围为：，第一个输出曲线是绿色且线宽为0.06，第二个输出曲线为蓝色，第三个输出曲线为虚线。代码：Plot[{Sin[x]+x,Exp[x],x^2,x},{x,-20,20},AxesLabel->{"x","y"},PlotStyle->{{RGBColor[0,1,0],Thickness[0.06]},{Dashing[{0.5,0.3}]},{RGBColor[0,0,1]}}]