два уравнения

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
tatarin
Новичок
Новичок
Аватара пользователя
 
Сообщения: 48
Зарегистрирован: 21.09.2005 (Ср) 12:30
Откуда: Russia

два уравнения

Сообщение tatarin » 05.10.2005 (Ср) 8:22

приветствую вас!!!
продскажите пожалуйста!
у меня не получается написать правильный код. есть два уравнения по которым должен построиться график, но он у меня не строится.
подкиньте парочку примерчиков. буду очень признателен.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 05.10.2005 (Ср) 9:07

Покажи свой код, как ты пытался решить эту задачу?
Lasciate ogni speranza, voi ch'entrate.

tatarin
Новичок
Новичок
Аватара пользователя
 
Сообщения: 48
Зарегистрирован: 21.09.2005 (Ср) 12:30
Откуда: Russia

Сообщение tatarin » 05.10.2005 (Ср) 9:17

'построение графика
Private Sub Command2_Click()
Scale (-30, 350)-(350, -40) 'установка масштаба
Cls 'очистка экрана
AutoRedraw = True
DrawWidth = 2.5 'установка толщины линии
Line (0, 0)-(0, 230) 'рисование оси Y1
Line (0, 0)-(240, 0) 'рисование оси X
Line (240, 0)-(240, 230) 'рисование оси Y2

'рисование кривой
DrawWidth = 1 'установка толщины линии
PrimerX = (2 * (V ^ 2 + (S / 2) ^ 2 - ((V ^ 2 * (L / 2) ^ 2) / (x ^ 2 + (L / 2) ^ 2))) ^ 0.5) * Ns _
- (2 * (V ^ 2 + (S / 2) ^ 2 - ((V ^ 2 * (L / 2) ^ 2) / (x ^ 2 + (L / 2) ^ 2))) ^ 0.5)
CurrentX = 5 'текущее значение Х
CurrentY = 5 'текущее значение Y
For x = 0 To H Step 0.5
Line -(PrimerX, x) 'построение графика
Next

здесь с одним уравнением. добавлял PrimerY, а потом рисовал
Line -(PrimerX, PrimerY)... :( но видать что-то я не то написал

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 05.10.2005 (Ср) 9:22

Во-первых, вычисление PrimerX нужно расположить внутри цикла.
А во-вторых, откуда берутся значения V, L, S и прочие?
Lasciate ogni speranza, voi ch'entrate.

tatarin
Новичок
Новичок
Аватара пользователя
 
Сообщения: 48
Зарегистрирован: 21.09.2005 (Ср) 12:30
Откуда: Russia

Сообщение tatarin » 05.10.2005 (Ср) 9:57

четыре параметра (V,L,S) вводятся через форму, остальные вычисляются.на счет размещения в нутри цикла я понял. а как быть со вторым уравнением - ведь, как я понял, его тоже надо в цикле разместить?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 05.10.2005 (Ср) 9:59

Да, его тоже вычислять внутри цикла.
Только прежде чем в него передавать значения y, их надо вычислить, также внутри цикла. Т.е. перед строкой PrimerY = ... должна быть строка y = f(x) (f(x) - твоя функция зависимости).
Lasciate ogni speranza, voi ch'entrate.

tatarin
Новичок
Новичок
Аватара пользователя
 
Сообщения: 48
Зарегистрирован: 21.09.2005 (Ср) 12:30
Откуда: Russia

Сообщение tatarin » 05.10.2005 (Ср) 10:01

а PrimerX и PrimerY надо определять как переменные?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 05.10.2005 (Ср) 10:05

Да. Их также можно определить, как пользовательские функции и использовать Line -(PrimerX(S, L, V, x), (PrimerY(S, L, V, y)).
Lasciate ogni speranza, voi ch'entrate.

tatarin
Новичок
Новичок
Аватара пользователя
 
Сообщения: 48
Зарегистрирован: 21.09.2005 (Ср) 12:30
Откуда: Russia

Сообщение tatarin » 05.10.2005 (Ср) 10:38

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

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 05.10.2005 (Ср) 12:15

Задай правильно начальную точку (CurrentX, CurrentY) и ее не будет.
Lasciate ogni speranza, voi ch'entrate.

tatarin
Новичок
Новичок
Аватара пользователя
 
Сообщения: 48
Зарегистрирован: 21.09.2005 (Ср) 12:30
Откуда: Russia

Сообщение tatarin » 05.10.2005 (Ср) 12:42

а как тогда в моем случае ее правильно задать?


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 115

    TopList