Определить точки пересечения параболы и прямой - VB
Формулировка задачи:
Помогите, пожалуйста. Надо программно найти точки пересечения 3x^2-y+1=0 и прямой 5a1x-5a2y=0. Здесь a1 и a2 - это настраиваемые параметры пользователем. Чисто математически я понимаю, как решается, а как в vb реализовать не совсем могу понять. Спасибо большое
Решение задачи: «Определить точки пересечения параболы и прямой»
textual
Листинг программы
Function f1(x)
f1 = 3 * x ^ 2 + 1
End Function
Function f2(x, a1, a2)
f2 = 5 * a1 * x / a2
End Function
Private Sub Command1_Click()
a1 = 3: a2 = 4
eps = 0.1
For x = -10 To 10 Step 2 * eps
If Abs(f1(x) - f2(x, a1, a2)) < eps Then Print "("; Round(x, 2); ";"; Round(f1(x), 2); ")"
Next x
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д