| Вопрос: Как записать формулу | Добавлено: 12.06.06 15:20 |
Автор вопроса:  Ganst
|
|
Здравствуйте!
Мне надо записать 2 формулы 1) cos^2x^2 2) ((sinx+cosy)/cosx-siny)*tg Cначала я их хотел записать как в Паскале, типо sqr(cos(x)). Но потом посмотрел, что в Visual Basic функция sqr - возвращает квадратный корень, а функцию, которая возвращает квадрат числа я не нашёл. Так как мне записать эту формулу. Вторую формулу я записал так: ((sin(x)+cos(y))/cos(x)-sin(y))*tan При компиляции происходит ошибка. В целом условие задачи состоит в следующем: Даны 2 текстовых поля и кнопка. В 1-м тестовом поле мы вводим любое число, нажимаем на кнопку - результат выводится во 2-м поле. Для каждой формулы отдельная прорамма. Вот мой код: 1) для первой формулы Private Sub Command1_Click() x = Val(Text1.Text) d = "здесь должна быть формула" Text2.Text = Str(d) End Sub 2) для второй формулы Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text1.Text) d = ((Sin(x) + Cos(y)) / Cos(x) - Sin(y)) * Tan Text2.Text = Str(d) End Sub |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #1 | Добавлено: 12.06.06 18:29 |
|
Вторую формулу я записал так: ((sin(x)+cos(y))/cos(x)-sin(y))*tan При компиляции происходит ошибка. Тангенс какого угла-то? В скобках после функции tan надо указать значение угла. Первая формула вроде так: cos(x^2)*cos(x^2) |
||
|
Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 12.06.06 18:37 |
|
1) cos^2x^2
2) ((sinx+cosy)/cosx-siny)*tg А нельзя написать формулы по человечески? Где аргумент 1) косинуса? 2) тангенса? Возведение в степень в VB - ^, т.е. x в квадрате - x^2 |
||
|
Номер ответа: 3 Автор ответа: mynog Вопросов: 3 Ответов: 42 |
Профиль | | #3 | Добавлено: 12.06.06 19:20 |
|
Сколько будет sin(x)/cos(x)?
Э-э-э-э... in/co ? 
В юмор, однозначно... |
||
|
Номер ответа: 4 Автор ответа: Beralus_ICQ: 255004422 Вопросов: 0 Ответов: 14 |
Профиль | | #4 | Добавлено: 13.06.06 15:12 |
perviy vot tak: (cos(x^2))^2
 (sin(x)+cos(y))/cos(x)-sin(y))* tan(argument)
i konechno je variant Bugora |
||
|
Номер ответа: 5 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #5 | Добавлено: 13.06.06 19:56 |
| sin(x)/cos(x)<>tan(x) в VB! Проверено. Tan ищется при помощи отношения сторон треугольника, так что... с юмором придется подождать. | ||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 13.06.06 21:41 |
|
Tan ищется при помощи отношения сторон треугольника
Чего? |
||
|
Номер ответа: 7 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #7 | Добавлено: 14.06.06 13:48 |
|
immediate:
x=1
? sin(x)/cos(x)-tan(x) -2,02420545603044E-16 Вот. Видимо VB считает тангенс через ряд. По этому результат немного отличается. Разве 2*10^-16 - это различие? по-моему, нет. Это различие всего на 0.000000000000013%. |
||
|
Номер ответа: 8 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #8 | Добавлено: 14.06.06 23:03 |
|
Тангенс = Синус\Косинус
Синус = Прил. Катет\Гипотенуза Косинус = Противолеж. Катет \ гипотенуза (Или наооборот - тригонометрия на 3 в школе была несколько лет назад) но фактически верно Tan ищется при помощи отношения сторон треугольника Жаль по теме не могу сказать...
|
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 15.06.06 14:15 |
| Тангенс рантаймом VB вычисляется с помощью машинной инструкции fptan, в железе она, скорее всего, реализована, как сказал Victor, через ряд Тейлора. Поэтому совсем не удивительно, что частное синуса и косинуса с ним не совпадает. | ||
|
Номер ответа: 10 Автор ответа: DJ EFFECTВопросов: 10 Ответов: 18 |
Профиль | | #10 | Добавлено: 18.06.06 13:42 |
|
sin(x)/cos(x)-tan(x) -2,02420545603044E-16 |
||
Страница: 1 |