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

Тема в разделе "Visual Basic", создана пользователем Klutch, 14 апр 2010.

  1. Klutch

    Klutch Гость

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

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

    Код (Text):
    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
     

    Вложения:

  2. Klutch

    Klutch Гость

    Код (Text):
    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 и выводились на лист только те которые попадают на границу области. Помогите пожалуйста
     
  3. Klutch

    Klutch Гость

    Прошу помогите хотя бы с выводом координат точек которые попадают в область, чтобы они сразу выводились там по столбцам х и соответствующий ему у
     
Загрузка...
Похожие Темы - Требуется помощь написании
  1. MissPersefona
    Ответов:
    0
    Просмотров:
    797
  2. piranya85
    Ответов:
    0
    Просмотров:
    1.844
  3. panda8
    Ответов:
    0
    Просмотров:
    1.276
  4. Andrey Kha
    Ответов:
    0
    Просмотров:
    26
  5. vsetkin
    Ответов:
    0
    Просмотров:
    60

Поделиться этой страницей