Требуется помощь в написании программы

[Klutch]

Требуется помощь знающих людей. Есть некоторая область, ограниченная тремя функциями. Можно ли как то сделать так чтобы вводились данные произвольно, т.е. рандомайз был, как ограничить эту область логически? И самый главный вопрос как сделать так чтобы выводились только координаты тех точек которые попадают на границу ограниченной области? Спасибо за внимание. Область прилагается

Добавлено: Есть прога похожая, только там можно вводить по одной точке и проверять попадает она в область или нет.

Private Sub CommandButton1_Click()
Dim x As Single, y As Single
u1 = (-x + a * Cos((z - z0) / P) + a * Cos(Atn(((y - a * Sin((z - z0) / P)) / a) / Sqr(1 - ((y - a * Sin((z - z0) / P)) / a) ^ 2))) > -2.17) And ((Atn(1 / (±r0 / x)) - P / z - Atn((r0 / Sqr(x ^ 2 + y ^ 2)) / Sqr(1 - (r0 / Sqr(x ^ 2 + y ^ 2)) ^ 2)) + (Sqr(x ^ 2 + y ^ 2) * Tan(ksi0)) + Sqr(1 - (r0 / (x ^ 2 + y ^ 2))) + z) / P) > 0.41 And ((x ^ 2 + y ^ 2 - R ^ 2) < 10)
x = Val(TextBox1)
y = Val(TextBox2)
z = Val(TextBox3)
If u1 Then
lable3.Caption = "Точка с координатами (" + Str(x) + ";" + Str(y) + ";" + Str(z) + ") лежит в области"
End If
End Sub

 

[Klutch]

Private Sub CommandButton1_Click()
Dim x As Single, y As Single
Dim u1 As Boolean, u2 As Boolean, u3 As Boolean
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
u1 = ((y ^ 2 + x ^ 2) > 0.25) And ((y ^ 2 + x ^ 2) < 1) And (y < 0) And (y > x ^ 3)
u2 = (y < 0) And ((y ^ 2 + x ^ 2) < 0.25) And (x > 0) And (y > (-x))
u3 = ((y ^ 2 + x ^ 2) > 0.25) And ((y ^ 2 + x ^ 2) < 1) And (x > 0) And (y > x ^ 3) And (y > 0)
If u1 = True Then
Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит в области 1"
ElseIf u2 = True Then
Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит в области 2"
ElseIf u3 = True Then
Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит в области 3"
Else
Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит вне области "
End If
End Sub

Этот код хотелось бы облагородить и сделать так чтобы значения например для х,у вводились из интервала [-20;20] с некоторым шагом 0,1 и выводились на лист только те которые попадают на границу области. Помогите пожалуйста

 

[Klutch]

Прошу помогите хотя бы с выводом координат точек которые попадают в область, чтобы они сразу выводились там по столбцам х и соответствующий ему у