Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> !Решение выражения! Математического ;) 
:(
    Опции темы
stasic0640
  Дата 4.2.2006, 08:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Я



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 15.1.2006
Где: UA

Репутация: нет
Всего: нет
Имеется выражение, соответственно математическое smile :

Vгм = Sд * Нк + 0.5Рд * Нк^2 * ctgB + Пи / 3 * Нк^3 * ctgB^2, м3

'Понятно, надеюсь, что Нк^2 и подобные это степень...(это чисто для выражения, а не для учения smile )

Подробности описания нах не надо, а вот правильность решения, никак не добьюсь... smile
Как правило, сначала ВБ возведёт в степень:
Vгм = Sд * Нк + 0.5Рд * (Нк^2) * ctgB + Пи / 3 * (Нк^3) * (ctgB^2) , потом умножить и поделит:
Vгм = Sд * Нк + 0.5Рд * (Нк^2) * ctgB + Пи / 3 * (Нк^3) * (ctgB^2), ну и сложение...

Если писать всё в одной строке, не то, еррор, а вот расписываю в 3 строки(каждая до сложения):
Vgm1 = Sд * Нк
Vgm2 = 0.5Рд * Нк^2 * ctgB
Vgm3 = Пи / 3 * Нк^3 * ctgB^2
Вот тут есть решение... Не понимаю, пчему в строке не решает...А, вот еще - ctg угла B, т.к. Котангеса нет, то получается так 1/TAN(Скоко мне стоило усилий, чтобы узнать где котангес взять smile )
Допустим, угол В = 40 (ПС: по Брадиса tg40 = 0,8390, a ctg40 = 1,1918), пишу подобие:

Код

Private Sub Command1_Click()
Dim B As Integer
Dim X As Long

B = Val(Text1.Text)

X = 1 / Tan(B)

Text2.Text = Format(X, "Fixed")

End Sub



И какой результат? -1, вот и не могу раздуплится пока....
А кстати, там есть выражение Пи/3, во встроенных константах есть Пи? smile



PM MAIL   Вверх
Exception
Дата 4.2.2006, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Цитата(stasic0640 @ 4.2.2006, 09:27 Найти цитируемый пост)
А кстати, там есть выражение Пи/3, во встроенных константах есть Пи?

Не-а. Если надо, (по памяти)
Pi = 3.14159265358979323846264338327950288...
PM   Вверх
Akina
Дата 4.2.2006, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(stasic0640 @ 4.2.2006, 09:27 Найти цитируемый пост)

Vгм = Sд * Нк + 0.5Рд * Нк^2 * ctgB + Пи / 3 * Нк^3 * ctgB^2, м3

0.5 * Рд


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
stasic0640
  Дата 5.2.2006, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Я



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 15.1.2006
Где: UA

Репутация: нет
Всего: нет
Цитата(Exception @ 4.2.2006, 15:31)
Цитата(stasic0640 @  4.2.2006,  09:27 Найти цитируемый пост)
А кстати, там есть выражение Пи/3, во встроенных константах есть Пи?

Не-а. Если надо, (по памяти)
Pi = 3.14159265358979323846264338327950288...

Ну это не проблема, Пишку можно в константы загнать.... smile
Добавлено @ 00:04
Цитата(Akina @ 4.2.2006, 19:31)
Цитата(stasic0640 @  4.2.2006,  09:27 Найти цитируемый пост)

Vгм = Sд * Нк + 0.5Рд * Нк^2 * ctgB + Пи / 3 * Нк^3 * ctgB^2, м3

0.5 * Рд

Ну то что, там умножить, эт понятно... (Просто то был исходник примера) smile
PM MAIL   Вверх
Akina
Дата 5.2.2006, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(stasic0640 @ 5.2.2006, 01:02 Найти цитируемый пост)

то что, там умножить, эт понятно... (Просто то был исходник примера)

Вы пишете в форум по Visual Basic 6, а не в форум по текстовым примерам. smile


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
stasic0640
  Дата 5.2.2006, 00:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Я



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 15.1.2006
Где: UA

Репутация: нет
Всего: нет
Цитата(Akina @ 5.2.2006, 00:16)
Цитата(stasic0640 @  5.2.2006,  01:02 Найти цитируемый пост)

то что, там умножить, эт понятно... (Просто то был исходник примера)

Вы пишете в форум по Visual Basic 6, а не в форум по текстовым примерам. smile

Дык, так я и спрашиваю, как реализовать функцию Котангес на Вб6, да и прочее.... smile
smile
Получается, что пишу такой код:
Код

lngVgm1 = lngSd * sngHk
                                lngVgm2 = (0.5 * lngPd) * (sngHk ^ 2) * 1.1918
                                lngVgm3 = (PI / 3) * (sngHk ^ 3) * (1.1918 ^ 2)
                            lngVgm = lngVgm1 + lngVgm2 + lngVgm3

Но, как видно, при этом использую вместо вводимых данных( B) я испльзую константу - 1,1918,т.е. уже решеный вариант Тангес угла Б..., А у мя есть входящие данные угол В (Текс.Поле), которое надо использовать, а не делать постоянку... smile smile

Это сообщение отредактировал(а) stasic0640 - 5.2.2006, 00:32
PM MAIL   Вверх
cardinal
Дата 5.2.2006, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Посмотри тут:
http://forum.vingrad.ru/index.php?showtopic=82426


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0487 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.