Почему -1^i не считается, или в VBA это пишется по другому

@Vlad999 · Регистрация: 02.11.2012

Author24 — интернет-сервис помощи студентам

Visual Basic

Sub vvv()
Dim i#
For i = 0 To 8
Debug.Print -1 ^ i
Next
End Sub

выдает все время -1

@Vlad999 · 29.06.2015, 15:45 **[ТС]**

скрин.

SoftIce · 29.06.2015, 15:45

(-1)^i

@Vlad999 · 29.06.2015, 15:48 **[ТС]**

такая мелочь

Спасибо. Учтем.

@Казанский · 29.06.2015, 16:14

Vlad999, другое дело, что возводить -1 в степень практически не нужно. Посмотри тут:
Программа для вычисления приведенной ниже функции
Найти сумму ряда

@Vlad999 · 29.06.2015, 16:31 **[ТС]**

Казанский, Сенкс. Век живи - век учись.

@Catstail · 01.07.2015, 08:55

В циклах (-1)^i считать "в лоб" очень нерационально. Проще так:

Visual Basic

       ii=1
 
       for i=0 to n
 
           ii=-ii
 
           '...
 
       Next

А вот если нужно вычислить (-1)^i при произвольном i, то

Visual Basic

1	ii=iif((i mod 2),1,-1)

@mihey1993 · 01.07.2015, 10:55

Либо - еще вариант для произвольного i:

Visual Basic

1	ii = 1 - 2*(i mod 2)

@Казанский · 01.07.2015, 11:29

Catstail, IIf - медленная функция. При вычислении степени (-1) от 0 до 10 она оказывается медленнее возведения в степень!

Лучше использовать однострочный оператор If.

Код тараканьих бегов

Visual Basic

Sub test()
Const N = 1000000
Dim ii As Long, i As Long, k As Long, t As Single
t = Timer
For i = 1 To N
  For k = 0 To 10
    ii = (-1) ^ k
  Next
Next
Debug.Print "(-1) ^ k", Timer - t
 
t = Timer
For i = 1 To N
  ii = -1
  For k = 0 To 10
    ii = -ii
  Next
Next
Debug.Print "ii = -ii", Timer - t
 
t = Timer
For i = 1 To N
  For k = 0 To 10
    ii = IIf(k Mod 2, -1, 1)
  Next
Next
Debug.Print "IIf", Timer - t
 
t = Timer
For i = 1 To N
  For k = 0 To 10
    If k Mod 2 Then ii = -1 Else ii = 1
  Next
Next
Debug.Print "If Then Else", Timer - t
 
t = Timer
For i = 1 To N
  For k = 0 To 10
    ii = 1 - 2 * (k Mod 2)
  Next
Next
Debug.Print "1-2*(k Mod 2)", Timer - t
End Sub

Результаты

Код

(-1) ^ k       2,875 
ii = -ii       0,234375 
IIf            2,9375 
If Then Else   0,484375 
1-2*(k Mod 2)  0,515625

@mihey1993 · 01.07.2015, 14:42

Воспользовался кодом товарища Казанский, для тестов, добавив еще пару методов. Чтобы не было расхождений с имеющимися результатами из-за разных конфигов железа - провел испытания по всем вариантам у себя на компе. Получилось следующее(хотя вариант ii = -ii считаю нелогичным для сравнения - его нельзя посчитать для любого случайного k):

Код

(-1) ^ k                     1,53125 
ii = -ii                     0,125 
IIf                          1,546875 
If Then Else                 0,265625 
1-2*(k Mod 2)                0,234375 
1-2*(k And 1)                0,203125 
-(k And 1) Or (Not k And 1)  0,234375

SoftIce · 01.07.2015, 15:11

Устроили тут демагогию и оффтоп

Вопрос был: "Почему -1^i не считается"

@mihey1993 · 01.07.2015, 15:29

Не по теме:

SoftIce, как раз таки сообщение про оффтоп и есть оффтоп :P Вопрос был - почему не считается, мы дали развернутый ответ на тему как надо считать чтобы считалось, и мало того, что считалось, так еще и быстро :D

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	29.06.2015, 15:45 [ТС]	2
	скрин. Миниатюры 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	29.06.2015, 15:45	3
	(-1)^i 2

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	29.06.2015, 15:48 [ТС]	4
	такая мелочь Спасибо. Учтем. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	29.06.2015, 16:14	5
	Vlad999, другое дело, что возводить -1 в степень практически не нужно. Посмотри тут: Программа для вычисления приведенной ниже функции Найти сумму ряда 1

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	29.06.2015, 16:31 [ТС]	6
	Казанский, Сенкс. Век живи - век учись. 0

@mihey1993 323 / 49 / 28 Регистрация: 07.09.2014 Сообщений: 217
	01.07.2015, 14:42	10
	Воспользовался кодом товарища Казанский, для тестов, добавив еще пару методов. Чтобы не было расхождений с имеющимися результатами из-за разных конфигов железа - провел испытания по всем вариантам у себя на компе. Получилось следующее(хотя вариант ii = -ii считаю нелогичным для сравнения - его нельзя посчитать для любого случайного k): Код (-1) ^ k 1,53125 ii = -ii 0,125 IIf 1,546875 If Then Else 0,265625 1-2(k Mod 2) 0,234375 1-2(k And 1) 0,203125 -(k And 1) Or (Not k And 1) 0,234375 2

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	01.07.2015, 15:11	11
	Устроили тут демагогию и оффтоп Вопрос был: "Почему -1^i не считается" 0

@mihey1993
	01.07.2015, 15:29 Почему -1^i не считается, или в VBA это пишется по другому #12
	Не по теме: SoftIce, как раз таки сообщение про оффтоп и есть оффтоп :P Вопрос был - почему не считается, мы дали развернутый ответ на тему как надо считать чтобы считалось, и мало того, что считалось, так еще и быстро :D 0

Почему -1^i не считается, или в VBA это пишется по другому

Решение