Лабораторная работа: Моделирование датчиков случайных чисел с заданным законом распределения

Picture1.PSet (-0.7, 10)

Picture1.Print ("1")

Picture1.PSet (2, -0.3)

Picture1.Print ("2")

Picture1.PSet (5, -0.3)

Picture1.Print ("5")

For i = 0 To 11 Step 0.001

If i < 2 Then

l = 4

Else

If i < 5 Then

l = (0.1 * i + 0.5) * 10

Else

l = 10

End If

End If

Picture1.PSet (i, l)

Next i

Picture1.Line (2, 4)-(2, 7)

'построение обратной функции

Picture2.Scale (-2, 11)-(11, -2)

Picture2.Line (0, -2)-(0, 11)

Picture2.Line (-2, 0)-(11, 0)

Picture2.PSet (-1, 11)

Picture2.Print ("x")

Picture2.PSet (10.5, -0.3)

Picture2.Print ("f(x)")

Picture2.PSet (-0.7, 2)

Picture2.Print ("2")