Alumine raja:

Ülemine raja:

ABCD ülemine serv:

Integreerimiskasti alumine serv

Funktsioon:

Uus  juhuarvude seeme

a: 0
InputBox1 = Textfield(a)
b: π
InputBox2 = Textfield(b)
d: 2.5
c: 0
InputBox3 = Textfield(d)
InputBox4 = Textfield(c)
f(x) = cos(4 / (x - π / 2)) + 3 / 2 - x / 8
InputBox5 = Textfield(f)
A: (a, c)
B: (b, c)
C: (b, d)
D: (a, d)
q1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
n = 1125 (slider from 1 to 3000, step 1)
l1 = Sequence(RandomPointIn[q1], k, 1, n)
l2 = KeepIf(y(Q) < f(x(Q)), Q, l1)
m = Length(l2)
Skast = Area(q1)
Shuvitav: (Skast * m / n)
Export_1: ((2 * π) + 0.1, 4.71)
Export_2: (-0.2, -0.21)
seeme = Random(1, 1000)
text1: "\int_{" + (LaTeX[a]) + "}^{" + (LaTeX[b]) + " }\left(  { " + (LaTeX[f]) + " }  \right)dx≈S_{ABCD} \; ·\frac{m}{n}=" + (LaTeX[Skast]) + " \; ·\frac{" + (LaTeX[m]) + "}{" + (LaTeX[n]) + "}=" + (LaTeX[Shuvitav]) + ""