用 Wolfram 语言来做2017年高考数学试题之天津理科卷

In[1]:= A = {1, 2, 6}; B = {2, 4}; Select[Union[A, B], -1 <= # <= 5 &]
Out[1]={1, 2, 4}

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}}

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

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

In[1]:= Solve[{Im[(a-I)/(2+I)]==0,a∈Reals},a]
Out[1]= {{a -> -2}}

In[1]:= MinValue[{(a^4+4b^4+1)/(a*b),a*b>0},{a,b},Reals]
Out[1]= 4

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}}

In[1]:= =FactorialPower[5,4]+Binomial[4,1]*Binomial[5,3]*FactorialPower[4,4]
Out[1]= 1080