|
- UID
- 2724
- 帖子
- 54
- 精华
- 0
- 积分
- 148
|
撒豆实验
1、建立函数f(x)=x^2、矩形ABCD、滑杆n（1≤n≤2000）
2、做出阴影部分（x=1,x=-1,f(x)，x轴所围成的图形），Integral[f(x), -1, 1]
3、产生矩形内的随机点，以点列list1=Sequence[(-1 + random()*2, random()), k, 1, n]实现。其中random() 作用是产生[0,1]上的随机数，故(-1 + random()*2, random())为矩形内的随机点。 k, 1, n的作用是产生n上随机点
4、产生计数序列，list2=Sequence[y(Element[list1, k]) - x(Element[list1, k])², k, 1, n]。其中Element[list1, k]表示点列list1，即上一步产生的点列，第k个元素（点）。
5、统计落在阴影部分的点的个数，CountIf[x ≤ 0, list2]
6、插入文字美化 |
-
-
撒豆实验.gif
(186.52 KB)
-
-
抛物线面积.rar (5.31 KB)
|
