ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кубический корень из отриц числа???
14 сообщений из 14, страница 1 из 1
кубический корень из отриц числа???
    #34212774
MotoCV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MotoCV
Участник
Опять вопрос, подскажите кто сталкивался:

Private Sub Command1_Click()
sf3 = (-27) ^ (1 / 3)
Print sf3
End Sub

не работает, пишет: "Invalid procedure call or argument"

Как это можно обойти? Дело в том что, вместо "-27" может быть любое число и отрицательное и положительное (это число вычисляется в программе) и знак "-" за корень я вынести не могу, т.к. результат тогда будет всегда отрицательный...
...
Рейтинг: 0 / 0
20.12.2006, 12:36
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212847
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
MotoCVОпять вопрос, подскажите кто сталкивался:

Private Sub Command1_Click()
sf3 = (-27) ^ (1 / 3)
Print sf3
End Sub

не работает, пишет: "Invalid procedure call or argument"

Как это можно обойти? Дело в том что, вместо "-27" может быть любое число и отрицательное и положительное (это число вычисляется в программе) и знак "-" за корень я вынести не могу, т.к. результат тогда будет всегда отрицательный...

Код: plaintext
1.
  AAA = (Abs(BBB) ^ ( 1  /  3 )) *  2  * ((BBB <  0 ) +  0 . 5 )
...
Рейтинг: 0 / 0
20.12.2006, 12:51
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212886
MotoCV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MotoCV
Участник
не совсем понял смысл написаного пришлось поставить условие:

Private Sub Command1_Click()
koren=-27
if koren <0 then
sf3 = (-1)*((-koren)^(1/3))
end if
Print sf3
End Sub
...
Рейтинг: 0 / 0
20.12.2006, 12:58
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212903
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
MotoCVне совсем понял смысл написаного пришлось поставить условие:

Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Command1_Click()
koren=- 27 
if koren < 0  then
sf3 = (- 1 )*((-koren)^( 1 / 3 ))
end if
Print sf3
End Sub


Код: plaintext
  AAA = (Abs(BBB) ^ ( 1  /  3 )) *  2  * ((BBB <  0 ) +  0 . 5 )
ты проверь, оно работает, вместо BBB - аргумент, вместо AAA - результат
...
Рейтинг: 0 / 0
20.12.2006, 13:02
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212916
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
еще вариант:
Код: plaintext
1.
2.
3.
x = - 27 
sf3 = (Abs(x)) ^ ( 1  /  3 ) * (x / Abs(x))
Debug.Print sf3
...
Рейтинг: 0 / 0
20.12.2006, 13:04
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212924
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Nikzеще вариант:
Код: plaintext
1.
2.
3.
x = - 27 
sf3 = (Abs(x)) ^ ( 1  /  3 ) * (x / Abs(x))
Debug.Print sf3


если 0?
...
Рейтинг: 0 / 0
20.12.2006, 13:06
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212959
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
Aklin
если 0?
хм...
век живи - век учись :)
а насчет
Код: plaintext
AAA = (Abs(BBB) ^ ( 1  /  3 )) *  2  * ((BBB <  0 ) +  0 . 5 )
может проще сделать так:
Код: plaintext
AAA = (Abs(BBB) ^ ( 1  /  3 )) * ((BBB <  0 ) +  1 )
...
Рейтинг: 0 / 0
20.12.2006, 13:14
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34212982
MotoCV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MotoCV
Участник
Спасибо, работает. А можно попросить объснить как это работает. Я так понимаю , что если условие (BBB<0) не выполняется, тогда (BBB<0)=0, а если выполняется, тогда (BBB<0), должно принимать значение -1. Как так получается?
...
Рейтинг: 0 / 0
20.12.2006, 13:18
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34213310
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Nikz Aklin
если 0?
хм...
век живи - век учись :)
а насчет
Код: plaintext
AAA = (Abs(BBB) ^ ( 1  /  3 )) *  2  * ((BBB <  0 ) +  0 . 5 )
может проще сделать так:
Код: plaintext
AAA = (Abs(BBB) ^ ( 1  /  3 )) * ((BBB <  0 ) +  1 )


насколько помню, не проще, ибо (BBB<0) вернет -1

Код: plaintext
AAA = (Abs(BBB) ^ ( 1  /  3 )) * (  2 *(BBB <  0 ) +  1 )
...
Рейтинг: 0 / 0
20.12.2006, 14:20
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34213408
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
Aklin
насколько помню, не проще, ибо (BBB<0) вернет -1

действительно,
это я плохо подумавши предложил :)
MotoCV
А можно попросить объснить как это работает. Я так понимаю , что если условие (BBB<0) не выполняется, тогда (BBB<0)=0, а если выполняется, тогда (BBB<0), должно принимать значение -1. Как так получается?

false = 0
true = -1
Код: plaintext
1.
2.
3.
4.
5.
6.
bbb = - 27 
AAA = (Abs(BBB) ^ ( 1  /  3 )) * (  2 *(BBB <  0 ) +  1 )
=
AAA = (Abs( 27 ) ^ ( 1  /  3 )) * (  2 *(- 1 ) +  1 )
=
AAA =  3 *(- 1 )
Код: plaintext
1.
2.
3.
4.
5.
6.
bbb =  27 
AAA = (Abs(BBB) ^ ( 1  /  3 )) * (  2 *(BBB <  0 ) +  1 )
=
AAA = (Abs( 27 ) ^ ( 1  /  3 )) * (  2 *( 0 ) +  1 )
=
AAA =  3 * 1
...
Рейтинг: 0 / 0
20.12.2006, 14:42
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34213908
MotoCV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MotoCV
Участник
Спасибо большое за помощь. чтобы темы не плодить еще один вопрос.
У меня в результате вычислений получается маленькое число и на форме в текстбоксе выводится в виде: 3,25-Е03, а хочется видеть в виде 0,00325. Как это сделать?
...
Рейтинг: 0 / 0
20.12.2006, 16:29
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34214299
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Про функцию Sgn() дружно забыли.
...
Рейтинг: 0 / 0
20.12.2006, 18:32
| Ответить | Цитировать | Написать  
кубический корень из отриц числа???
    #34215273
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
MotoCVСпасибо большое за помощь. чтобы темы не плодить еще один вопрос.
У меня в результате вычислений получается маленькое число и на форме в текстбоксе выводится в виде: 3,25-Е03, а хочется видеть в виде 0,00325. Как это сделать?

FORMAT()
...
Рейтинг: 0 / 0
21.12.2006, 10:39
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
кубический корень из отриц числа???
    #35853239
allbertt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allbertt
Гость
подскажите,как записать комплексное число в visual basic, что бы в Excel результат выдал тоже комплексным числом?Т.е есть решение кубического уравнения,а в решении комплексные корни,их нужно просто записать в visual basic так ,что бы в Excel выдал ответ тоже комплексным числом.Можно такое провернуть?
...
Рейтинг: 0 / 0
05.03.2009, 13:48
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кубический корень из отриц числа???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34212916&tid=2161286]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 213ms
total:  308ms
созд. / загр.: 308ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]