甘肃省中学数学教师,致力于将 Wolfram Mathematica 应用于中学数学教育。
数 学(理)(天津卷)
【答案】B
【解析】
In[1]:= A = {1, 2, 6}; B = {2, 4}; Select[Union[A, B], -1 <= # <= 5 &]
Out[1]={1, 2, 4}
【答案】D
【解析】
In[1]:= Maximize[x + y, {2 x + y >= 0, x + 2 y - 2 >= 0, x <= 0, y <= 3}, {x, y}]
Out[1]={3, {x -> 0, y -> 3}}
【答案】C
【解析】
In[1]:= n = 24; If[Mod[n, 3] == 0, n = n/3, n = n - 1];
While[n > 3, If[Mod[n, 3] == 0, n = n/3, n = n - 1]]; n
Out[1]= 2
【答案】A
【解析】
【答案】B
【解析】
【答案】C
【解析】不妨设f(x)=x,
【答案】A
【解析】
【答案】A
【解析】
In[1]:= f[x_]=Piecewise[{{x^2-x+3,x≤1},{x+2/x,x>1}}];
Reduce[ForAll[x,x∈Reals,f[x]≥Abs[x/2+a]],a,Reals]
Out[1]= -47/16≤a≤2
【答案】a=-2
【解析】
In[1]:= Solve[{Im[(a-I)/(2+I)]==0,a∈Reals},a]
Out[1]= {{a -> -2}}
【答案】9pi/2
【解析】
【答案】2
【解析】
【答案】4
【解析】
In[1]:= MinValue[{(a^4+4b^4+1)/(a*b),a*b>0},{a,b},Reals]
Out[1]= 4
【答案】3/11
【解析】
In[1]:= =A={0,0};B={3,0};dC={1,√3};dD={xd,yd};dE={xe,ye};
BD=dD-B;DC=dC-dD;
Solve[{BD==2DC,dE==λ*dC-B,dD.dE==-4},λ,{xd,yd,xe,ye},Reals]
Out[1]= {{λ→3/11}}
【答案】1080
【解析】
In[1]:= =FactorialPower[5,4]+Binomial[4,1]*Binomial[5,3]*FactorialPower[4,4]
Out[1]= 1080
【解析】(1)
【解析】(1)
【解析】(1)分别以AB、AC、AP为x、y、z轴,建立空间直角坐标系A-xyz.
【解析】(1)
【解析】(1)
【解析】(1)