返回列表 回复 发帖

撒豆实验

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

抛物线面积.rar (5.31 KB)

返回列表