数学软件应用模拟试题

《数学软件应用模拟试题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、填空题（每小题6分，共30分）得分1.下列语句的运行结果为:(1)Table[i*2j,{i,l,3},{j,l,i}]=—{{2},{4,8},{6,12,18}}・(2)Take[{1,2,3,4,8,1,4},{・3,5}]={8}・(3)Transposeda,b,c,d},{A,B,C,D}}]={{a,A}z{b,B},{c,C},{d,D}}.2.下列语句的运行结果为：(1)FoldList[Plus,f,{a,b,c,d,e}J[[4JJ=a+b+c+f・(2)StringTake[“Hello!”，{1,・5}]=He・(3)Nest[Tan,x,4]=Ta

2、n[Tan[Tan[1]]]・3・下列语句的运行结果为：(1)Apply[Or,Map[OddQ,{2,3,4,6,7,8}]]=—True・(2)Partition[Range[7],3]={{1,2,3},{4,5,6}}・(3)Flatten!Outer[Plus,{A,B},{x,y}],2]={x,A,y,B,xzB,y}・4.下列语句的运行结果为：(1)若square[x_?EvenQ]:=xA2;51!jsquare⑸二_square[5]_;.square[6]=36・yz(2){x,y,z}/.List->Power=_X.(3){a,b,c}//.{a->c,

3、b->c}={c,c,c}5.(1)若signum[x_]:=If[x>0,1Jf[x==0,0,-1]];则signum[l]=_1;.signum[-l]=-1.(2)写出递归地生成数列A={0,0,2,4,7,12,20,33,54,88,…}前10项的Mathematica语句_A[0]:=0;A[l]:=0;A[i_]:=A[i-2]+A[i-l]+2；_Table[A[i],{iz0z10}]_・(3)若ddx[c_?NumberQ]:=0;ddx[x_An」:=nxA(n-l);ddx[u_+v_]:=ddx[u]+ddx[v];则ddx[xA3+xA4+2刃=_3

4、x2+4x3+ddx[2y]ddx[2xA5-8]=_ddx[2x5]・二、编写出完成下列各题的程序（每小题10分，共30分，程序写在试卷上）得分1.验证：拉格朗日微分中值定理对函数/（x）=sin（x）-x-l在区间［0,1］上的正确性。（提示：用Solve函数）Clear［x,t,f[x_]:=Sin[x]-x-1t=Solve[f1[x](f[l]-f[0])/(l-0),x]^=t[[l]][[1]][[2]]If[0<^