Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Fatali7t
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 19
1

Отношение среднего квадратического отклонения к среднему абсолютному отклонению

12.12.2013, 21:00. Просмотров 1943. Ответов 6
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Function MAD(ДиапазонЯчеек)
'Вычисление среднего абсолютного отклонения
MAD = Сумма(Abs(x(i) - Sredx)) / n
Программа
Sredx = 0
For i = 1 To n
   Sredx = Sredx + x(i)
Next i
Sredx = Sredx / n ' посчитали среднее арифметическое
MAD = 0
For i = 1 To n
   MAD = MAD + Abs(x(i) - Sredx)
Next i
MAD = MAD / n ' посчитали среднее абсолютное отклонение
End Function
 
Public Function MQD(ДиапазонЯчеек)
'Среднее квадратическое отклонение
MQD = Sqrt(Сумма(Abs(x(i) - Sredx)) ^ 2 / n)
Программа
MQD = 0
For i = 1 To n
   MQD = MQD + (x(i) - Sredx) ^ 2
Next i
MQD = (MQD / n) ^ (1 / 2) ' посчитали среднее квадратическое отклонение
Otnos = MQD / MAD ' посчитали отношение квадратического к абсолютному
End Function
 
Public Function СредАрифмСредАбсОтклон(ParamArray диапазон())
'функция UBound возвращает верхний индекс массива "диапазон",
    'таким образом поддиапазоны получают номера от 0 до n
    n = UBound(диапазон)
    ' объявляем массив, в который поместим максимумы поддиапазонов с целью
    ' использовать для определения дисперсии максимумов функцию Excel с
    ' помощью объекта    WorksheetFunction; массив объявляется с помощью
    'оператора ReDim, а не Dim, т.к. n- переменная, а не константа.
    ReDim МассивМаксимумов(n)
    For НомерПоддиапазона = 0 To n
End Function
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2013, 21:00
Ответы с готовыми решениями:

Подсчет среднего и стандартного отклонения после цика
Хочется, чтобы код выводил выводил в клетку А1 среднее значение , а в клетку А2 стандартное...

Написать функцию, которая будет возвращать величину среднего абсолютного отклонения
Нужно написать в vba функцию, которая будет возвращать 1 Величину среднего абсолютного отклонения...

Нахождение математического ожидания и среднего квадратического отклонения
как реализовать нахождение матожидания и среднего квадратического отклонения если задано числовое...

Найти доверительный интервал для среднего квадратического отклонения
По результатам измерения диаметра 20 электродвигателей было получено \sigma^2=2.56. Предполагая,...

Подсчёт среднего арифметического матрицы, и отклонения от среднего у элементов первой строки
Дана целочисленная матрица. Составить программу подсчёта среднего арифметического значения матрицы....

6
Апострофф
Заблокирован
12.12.2013, 22:51 2
Цитата Сообщение от Fatali7t Посмотреть сообщение
Выдает ошибку, в чем ошибка?
В отсутствии вопроса в первую очередь.
0
Fatali7t
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 19
12.12.2013, 22:53  [ТС] 3
• Величину среднего абсолютного отклонения
• Отношение среднего квадратического отклонения к среднему абсолютному отклонению
• Среднее арифметическое из средних абсолютных отклонений поддиапазонов
0
Апострофф
Заблокирован
12.12.2013, 22:54 4
Какая задача?
Где ошибка?
Какая ошибка?
Visual Basic
1
2
3
4
Public Function СредАрифмСредАбсОтклон(ParamArray диапазон())
    ReDim МассивМаксимумов(n)
    For НомерПоддиапазона = 0 To n
End Function
Где так циклы писать учили, к примеру?
0
Fatali7t
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 19
12.12.2013, 23:02  [ТС] 5
Операторы цикла
Часто для решения задачи нужно неоднократно выполнять одну и ту же последовательность операторов вплоть до реализации определенного условия. Повторение действий группы операторов является ситуацией, в которой в полной мере проявляется скоростная мощь компьютера. Если бы не было возможности автоматического многократного выполнения группы операторов, то способность компьютера выполнять миллионы операций в секунду была бы обесценена. Поэтому во всех языках программирования есть управляющие структуры – операторы цикла – обеспечивающие эту возможность. Наиболее простым из операторов цикла в Бейсике является

Visual Basic
1
2
3
4
5
6
For ….To …. Next. Его синтаксис таков:
For счетчик = начало To конец [Step шаг изменения счетчика]
    [операторы]
    [Exit For]         ‘для досрочного выхода из цикла по условию
    [операторы]
Next
Здесь в скобки заключены элементы, которые могут отсутствовать.
Счетчик – переменная, которая в начале выполнения цикла принимает значение арифметического выражения начало .
Конец – арифметическое выражение, со значением которого сравнивается переменная счетчик.
Шаг изменения счетчика – на величину этого арифметического выражения изменяется переменная Счетчик после каждого повторения операторов цикла. По умолчанию (т.е. когда отсутствует служебное слово Step) шаг изменения счетчика равен 1.
Служебное слово Next ограничивает тело цикла снизу.
Работа оператора цикла протекает так:
1) Вычисляются (если нужно) арифметические выражения начало, конец, шаг изменения счетчика. Счетчик принимает значение начало .
2) Если шаг изменения счетчика положительная (отрицательная) величина, а переменная счетчик не больше (не меньше) величины конец, то выполняются операторы тела цикла. В противном случае управление передается на оператор, стоящий после Next (выход из цикла).
3) После выполнения последнего оператора тела цикла счетчик увеличивается (уменьшается) на величину шаг изменения счетчика. Далее выполняется пункт 2.

Цикл For Each ... in ... Next
Применение этого цикла позволяет обходиться без использования свойств объектов VBA:
Visual Basic
1
2
3
4
5
For Each элемент In группа
[операторы]
[Exit For]
[операторы]
Next [элемент]
Группа – это массив или коллекция объектов (например, ячейки Excel, расположенные слитно в столбце, строке или в прямоугольной области),
Элемент- это член массива или коллекции (например, одна ячейка Excel)
Пример функции, использующей этот цикл:


Visual Basic
1
2
3
4
5
6
7
Public Function МояСум(ДиапазонСуммирования)
'в диапазоне должны быть только числовые ячейки
    For Each слагаемое In ДиапазонСуммирования
        сум = сум + слагаемое
    Next
    МояСум = сум
End Function
Добавлено через 5 минут
Нужно записать функцию, которая будет возвращать значение
Величину среднего абсолютного отклонения
• Отношение среднего квадратического отклонения к среднему абсолютному отклонению
• Среднее арифметическое из средних абсолютных отклонений поддиапазонов
0
shanemac51
Модератор
Эксперт MS Access
9267 / 3616 / 573
Регистрация: 07.08.2010
Сообщений: 10,137
Записей в блоге: 2
13.12.2013, 00:04 6
ПОЛНЫЙ ЕРАЛАШ В ОБЪЯВЛЕНИЯХ И ПРИСВОЕНИЯХ
--не вижу где заполнение массива х
--русские имена
--все это функции
--где головная программа, вызывающая функции

компиляция давала ошибку почти на каждой строке
блокировала строки двумя апострофами, чтобы дойти до конца компиляции


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Public Function mad(ДиапазонЯчеек)
''
Dim i, sredx, x, n     ''не объявлены и не присвоены значения
Dim сумма, программа   '' что это
'Вычисление среднего абсолютного отклонения
''mad = сумма(Abs(x(i) - sredx)) / n
''программа
sredx = 0
For i = 1 To n
   sredx = sredx + x(i)
Next i
sredx = sredx / n ' посчитали среднее арифметическое
mad = 0
For i = 1 To n
   mad = mad + Abs(x(i) - sredx)
Next i
mad = mad / n ' посчитали среднее абсолютное отклонение
End Function
 
Public Function MQD(ДиапазонЯчеек)
''
Dim i, x, otnos, sredx, n, mad
Dim сумма, программа
 
'Среднее квадратическое отклонение
''
''MQD = Sqr(сумма(Abs(x(i) - sredx)) ^ 2 / n)
''
''программа
MQD = 0
For i = 1 To n
   MQD = MQD + (x(i) - sredx) ^ 2
Next i
MQD = (MQD / n) ^ (1 / 2) ' посчитали среднее квадратическое отклонение
otnos = MQD / mad ' посчитали отношение квадратического к абсолютному
End Function
 
Public Function СредАрифмСредАбсОтклон(ParamArray диапазон())
'функция UBound возвращает верхний индекс массива "диапазон",
    'таким образом поддиапазоны получают номера от 0 до n
Dim НомерПоддиапазона, n
    n = UBound(диапазон)
    ' объявляем массив, в который поместим максимумы поддиапазонов с целью
    ' использовать для определения дисперсии максимумов функцию Excel с
    ' помощью объекта    WorksheetFunction; массив объявляется с помощью
    'оператора ReDim, а не Dim, т.к. n- переменная, а не константа.
    ReDim МассивМаксимумов(n)
    For НомерПоддиапазона = 0 To n
 
    ''
Next НомерПоддиапазона
End Function
0
Fatali7t
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 19
13.12.2013, 00:27  [ТС] 7
Так ты ее правил? она рабочая?

Добавлено через 4 минуты
Извиняюсь за "ералаш"
0
13.12.2013, 00:27
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2013, 00:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Для массива найти значения среднего арифметического, геометрического, гармонического, квадратического
в общем суть задания: для массива a найти значения среднего арифметического, геометрического,...

Отношение отклонения верха к ее высоте
надо определить например отношение отклонения верха к высоте опоры (столба) 8 метров. Отношение...

Найти отклонения от среднего уровня осадков
Вот прога: uses crt; const n=50; var a:array of real; i:byte; sz,sum,t:real; begin...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.