谁能帮忙做两道数学实验题,Mathematica的,要详细程序,有运行结果更好急用,谢谢!!!

1 作sinx的n阶Taylor展开(n=10,30,60)并比较图像
In[1]:=
tyl1[n_,x_]:=Normal[Series[Sin[x],{x,0,n}]]

In[2]:=
tb[c_]:=Table[tyl1[n,x],{n,10,60,10}][[c]]

In[3]:=
l2:={1,3,6}

In[4]:=
myfun:=tb[l2]

plot1=Plot[
Evaluate[myfun],{x,0,20},PlotStyle\[Rule]{
Blue,Red,Green},PlotLabel->{"10","30","60"}];

2 求sinx/x在[0,1]上的积分近似值
In[33]:=
Limit[Integrate[Sin[x]/x,x],x\[Rule]0]

3 物体从1000米高处落下,当高度为100米时,时间t=?
In[40]:=
\!\(sol = \(t /. Solve[y == 1/2*g*
t\^2, t]\) /. {y \[Rule] 1000 - 100, g \[Rule] 9.81}\)

In[42]:=
t=sol[[2]]

4 生产安排问题
???什么意思？

5 解方程组Ax=bi
行列式A的元素为(按行):4 1 -1 -1,1 -5 1 1,1 -1 6 1,1 -1 1 -7

什么意思？？