Среднее геометрическое

[Kepmann]

Суть задания - найти среднее геометрическое рядя чисел в диапазоне от -500 до 500 (всего чисел до 100).

При попытке посчитать это, возникает "Run-time error '5'. Invalid procedure call or argument."
Вот пример кода, приблизительно имитирующий происходящее:

Код: Выделить всё

Dim x, z, Step As Integer
Dim res As Variant
z = 1
Step = Int(Rnd * 100)
For x = 1 To 100
z = z * Int(Rnd * 1000 - 500)
Next x
res = z ^ (1 / Step)

Ошибка возникает на последней строки... Как ее избежать? (видимо, надо что-то с типами переменных мутить)

[VB-constructor]

1) Variant измени на Integer
2) проверяй, чтобы Step - не равнялось нуля
3) Dim x, z, - эти тоже у тебя как Variant пойдут, почитай про объявление переменных

[tyomitch]

Среднее геометрическое определено только для набора неотрицательных чисел.

[Kepmann]

Среднее геометрическое определено только для набора неотрицательных чисел.

Как то я об этом не подумал... ну да... тогда проблема решена
Спасибо

[Mikle]

tyomitch

Среднее геометрическое определено только для набора неотрицательных чисел

Неверно, нуля тоже не должно быть. Зато можно найти среднее геометрическое, если ВСЕ числа отрицательны.

[tyomitch]

Почему это нуля не должно быть?

[Mikle]

tyomitch
Вообще я не помню определения, но смысл теряется - если есть ноль, то и среднее геометрическое тоже ноль.

[tyomitch]

А когда два раза -1, и среднее будет 1 -- то это, по-твоему, сохранение смысла?

Всё в порядке при нуле.

[Mikle]

tyomitch
Повторю, я не помню определения. Сам бы определил для отрицательных, как "минус корень из модуля произведения членов".
Так получается именно ГЕОМЕТРИЧЕСКИЙ смысл.
А ноль имеет тот же смысл, что минус бесконечность при вычислении среднего арифметического, хотя формула не нарушается.

[Antonariy]

Повторю, я не помню определения.

Корень степени х из произведения х членов?

[uhm]

Среднее геометрическое с геометрической точки зрения действительно имеет смысл только для строго положительных чисел. Хотя в формулу можно подставить и 0, конечно.

[Amed]

uhm, и при нуле тоже имеет смысл с геометрической точки зрения

[uhm]

Не знаю, не уверен. Что касается геометрического смысла - я понял, что не знаю, точно ли я его понимаю. Я встречал объяснения геометрического смысла различных средних на трапеции, в этом случае среднее геометрическое чисел a и b равно длине отрезка, параллельного основаниям трапеции и делящего трапецию с основаниями a и b на подобные трапеции. Очевидно, что в случае, если одно из оснований равно 0, такой отрезок не существует.

Anyway, в определении средних степени n, которые я встречал, всегда говорится о строго положительных числах, видимо потому, что эти определения валидны при любом n только для положительных чисел. Можно ли расширять эти определения для конкретных n - судить не мне

[Mikle]

Antonariy
Можно так определить:
Б является средним геометрическим для А и В, если Б относится к А, как В относится к Б.

[Денис]

Эх!
А решение то неожиданное и видно всем, кроме написавших: Step - это оператор конструкции for ... next Автор, измените название переменной Step!

[GSerg]

Эх!
А решение то неожиданное и видно всем, кроме написавших: Step - это оператор конструкции for ... next Автор, измените название переменной Step!

Step - допустимое имя переменной.
Равно как конструкция for step=1 to step step step.