Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кубический корень из отриц числа??? / 14 сообщений из 14, страница 1 из 1
20.12.2006, 12:36
    #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:51
    #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:58
    #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, 13:02
    #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:04
    #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:06
    #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:14
    #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:18
    #34212982
MotoCV
MotoCV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кубический корень из отриц числа???
Спасибо, работает. А можно попросить объснить как это работает. Я так понимаю , что если условие (BBB<0) не выполняется, тогда (BBB<0)=0, а если выполняется, тогда (BBB<0), должно принимать значение -1. Как так получается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 14:20
    #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:42
    #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, 16:29
    #34213908
MotoCV
MotoCV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кубический корень из отриц числа???
Спасибо большое за помощь. чтобы темы не плодить еще один вопрос.
У меня в результате вычислений получается маленькое число и на форме в текстбоксе выводится в виде: 3,25-Е03, а хочется видеть в виде 0,00325. Как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 18:32
    #34214299
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кубический корень из отриц числа???
Про функцию Sgn() дружно забыли.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2006, 10:39
    #34215273
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кубический корень из отриц числа???
MotoCVСпасибо большое за помощь. чтобы темы не плодить еще один вопрос.
У меня в результате вычислений получается маленькое число и на форме в текстбоксе выводится в виде: 3,25-Е03, а хочется видеть в виде 0,00325. Как это сделать?

FORMAT()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
05.03.2009, 13:48
    #35853239
allbertt
allbertt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кубический корень из отриц числа???
подскажите,как записать комплексное число в visual basic, что бы в Excel результат выдал тоже комплексным числом?Т.е есть решение кубического уравнения,а в решении комплексные корни,их нужно просто записать в visual basic так ,что бы в Excel выдал ответ тоже комплексным числом.Можно такое провернуть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кубический корень из отриц числа??? / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 353ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161286]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 190ms
total:  353ms
x
x
Закрыть


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