试题地址
全网首发！2023年北京大学强基计划笔试数学试题（全！） - ADU的小窝的文章 - 知乎
https://zhuanlan.zhihu.com/p/640415621
1
emmm比如说三个点的实部，虚部分别是：
有理数，无理数
无理数，有理数
有理数，无理数
有理数+无理数+有理数 可以是有理数或者无理数
无理数+有理数+无理数 可以是有理数或者无理数
选择\(\color{red}{\text{D}}\)
2
没有在\([0,2\pi]\)的实数解。
NSolve[expr == 0, x]
\[\{\{x\to \fbox{$1. ((3.14159\, +0.609378 i)+6.28319 c_1)\text{ if }c_1\in \mathbb{Z}$}\},\{x\to \fbox{$1. ((-0.965359-0.304689 i)+6.28319 c_1)\text{ if }c_1\in \mathbb{Z}$}\},\{x\to \fbox{$1. ((0.965359\, -0.304689 i)+6.28319 c_1)\text{ if }c_1\in \mathbb{Z}$}\}\}
\]
expr = 1 + Cos[x] + I*Sin[x] - Cos[2 x] - I*Sin[2 x] + Cos[3 x] +
I*Sin[3 x];
imaginaryPart = Assuming[x~Element~Reals, Im@expr // FullSimplify];
realPart = Assuming[x~Element~Reals, Re@expr // FullSimplify];
Solve[realPart == 0 && imaginaryPart == 0 && x >= 0 && x <= 2*Pi, x]
\[\{\}
\]
是不是回忆版试题记错题目了？？？
3
RecurrenceTable[{a[n] == a[n - 1]^2 - 2, a[1] == 5/2},
a, {n, 1, 10}] // Map[Floor[#]~Mod~7 &, #] &
答案是\(2\)
5
f[list_] := list~Append~Max@list;
exprs = f[{Sin@x, Cos@x, -x/Pi + 1}];
Plot[exprs, {x, 0, Pi}, PlotLegends -> exprs]
画图就行，答案是Max[Cos[0], Sin[Pi/2]] \(1\)
7
NSolve[24 x^5 - 15 x^4 + 40 x^3 - 30 x^2 + 120 x + 1 == 0, x]
\[\{\{x\to -0.694033-1.30844 i\},\{x\to -0.694033+1.30844 i\},\{x\to -0.00831585\},\{x\to 1.01069\, -1.12363 i\},\{x\to 1.01069\, +1.12363 i\}\}
\]
\(1\)个实数根。
10
range = Range[1, 10];
sets = Subsets[range, {3}];
gcd[list_] := GCD@list == 1;
coprimeSets = Select[sets, gcd];
Length[coprimeSets]
\[\color{red}{\text{109}}
\]
11
(20000/20) // FactorInteger
\[\left(
\begin{array}{cc}
2 & 3 \\
5 & 3 \\
\end{array}
\right)
\]
\((3+1)\cdot(3+1)\) 是 \(16\)
答案是\(16\times 15 \times 14\)
14
Table[Floor[n^2/2023], {n, 1, 2023, 1}] // Union // Length
\[\color{red}{\text{1518}}
\]
16
0个解。
这2个正好是空心点。
17
Clear["Global`*"];
R[n_] := Sum[n~Mod~mod, {mod, Range[2, 10, 1]}];
Table[R[n] - R[n + 1], {n, 10, 99, 1}] Count[#, 0] &
\[\color{red}{\text{2 个}}
\]