Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Статистическая обработка данных в среде wxMaxima. Практикум. Учебное пособие

.pdf
Скачиваний:
0
Добавлен:
09.08.2026
Размер:
470 Кб
Скачать

F эф

K эф =

выч

.

 

Fтабл

Если Кэф >>4, то модель эффективна.

4. Оценка значимости коэффициентов модели. Выдвигаются две гипотезы.

Основная Н0: bi = 0 – коэффициент незначимый; Альтернативная На: bi ¹ 0 – коэффициент значимый.

Проверку проводят с помощью 3-го критерия Стьюдента:

T выч =

bi

,

з i

Sост2

×Сii

 

где Сii диагональный элемент обратной матрицы T Φ)-1 . Определяется табличное значение критерия Стьюдента

Ттабл(α/2, n), где α/2 = 0,025; n = N k - число степеней свободы

для знаменателя S ост2

.Если | T выч | > Ттабл(α/2, n), то i коэффици-

ент значимый.

зi

 

 

Пример расчета

Рассмотрим модель: y = b0 + b1 x1 + b2 x 2 .

Матрица входных параметров (матрица плана эксперимента):

 

æ

6

2

ö

 

ç

8

4

÷

 

ç

÷

X =

ç

10

5

÷

ç

÷ .

 

ç11

6

÷

 

ç

12

7

÷

 

è

ø

Матрица выходных экспериментальных данных:

æ 6 ö ç ÷

ç 8 ÷

Y= çç12 ÷÷ .

ç15 ÷

ç÷

è17 ø

31

 

 

 

 

 

 

 

 

 

 

Решение

 

 

 

1. Составляем матрицы F и FТ:

 

 

 

 

 

æ1

6

2 ö

 

 

 

 

 

 

 

 

 

 

 

ç

 

 

÷

 

 

 

 

æ 1 1

1

1

1 ö

 

 

ç1 8

4 ÷

 

 

 

 

 

 

ç

 

 

÷

 

 

T

 

ç

 

 

 

÷

 

F =

 

 

;

F

= ç 6 8 10 11 12 ÷ .

 

ç

1 10 5 ÷

 

 

 

ç1 11 6 ÷

 

 

 

 

ç

 

5

6

÷

 

 

 

 

 

 

è 2 4

7 ø

 

 

ç

1

12

÷

 

 

 

 

 

 

 

 

 

 

 

è

7 ø

 

 

 

 

 

 

 

 

 

 

2. Вычисляем FТ F:

 

 

 

 

 

 

 

 

ΦT Φ = æ1 6 2ö ׿1 1

1

1 1 ö =

æ5 47 24 ö

 

 

ç

8

 

÷

ç

 

8

10

11

÷

ç

465

÷

 

 

ç1

4÷

ç6

 

12 ÷

ç47

244÷

 

 

ç

10

 

÷

ç

 

4

5

6

÷

ç

244

÷

 

 

ç1

5 ÷

è2

 

7 ø

è24

130 ø

 

 

ç

11

6

÷

 

 

 

 

 

 

 

 

 

 

 

ç1

÷

 

 

 

 

 

 

 

 

 

 

 

ç

12

 

÷

 

 

 

 

 

 

 

 

 

 

 

è1

7 ø

 

 

 

 

 

 

 

 

 

3. Вычисляем FТY:

ΦT Y = æ1 1

1

1

1

ö

׿6

ö

= æ58

ö .

ç

8

10

11

12

÷

ç

÷

ç

÷

ç6

÷

ç8

÷

ç529

÷

ç

4

5

6

7

÷

ç

÷

ç

÷

è2

ø

ç12 ÷

è313

ø

ç÷

ç15 ÷

ç÷

è17 ø

4.По уравнению (1) записываем систему уравнений, линейную относительно коэффициентов модели bi:

ì 5b0 + 47b1 + 24b2 = 58,

ï

í47b0 + 465b1 + 244b2 = 629, ïî24b0 + 244b1 + 130b2 = 313.

Решаем полученную систему и находим значения коэффициентов.

Решение в wxMaxima Параметрический синтез

Составляем регрессионную матрицу:

(%i1) Φ:matrix([1,6,2],[1,8,4],[1,10,5],[1,11,6],[1,12,7]);

32

(Φ)

æ1

6

2 ö

 

ç

8

÷

 

ç1

4 ÷

 

ç

10

÷

 

ç1

5 ÷

 

ç

11

÷

 

ç1

6 ÷

 

ç

12

÷

 

è1

7 ø

(%i2) Y:matrix([6],[8],[12],[15],[17]);

(Y)æ6 ö

ç÷

ç8 ÷

ç÷

ç12 ÷

ç÷

ç15 ÷

ç÷

è17 ø

(%i3)

transpose(Φ);

 

(%o3)

æ1

1

1

1

1 ö

 

ç

8

10

11

÷

 

ç6

12÷

 

ç

4

5

6

÷

 

è2

7 ø

(%i4)

A: transpose(Φ).Φ;

(A)

æ5

47

24

ö

 

ç

 

 

 

÷

ç47 465 244÷

ç ÷

è24 244 130 ø

(%i5) C:transpose(Φ).Y;

(C)æ58 ö

ç÷

ç589÷

ç÷

è313ø

Находим коэффициенты регрессии: (%i6) B:invert(A).C;

33

(B)

æ 95 ö

ç

 

 

 

÷

12

 

ç

÷

 

ç

 

 

 

÷

 

ç 29 ÷

 

ç

 

 

 

 

÷

 

12

 

 

ç

÷

 

ç

 

 

 

÷

 

ç 2

 

÷

 

ç

 

 

 

÷

 

 

 

 

 

è 3

 

ø

Вычисляем выходной параметр по модели: (%i7) Y1:Φ.B;

 

æ 21

 

ö

 

ç

 

 

÷

 

4

 

 

ç

 

÷

 

ç

 

 

÷

 

ç 35

 

÷

 

ç

 

 

÷

 

4

 

 

ç

 

÷

 

ç

 

 

÷

 

ç155 ÷

 

ç

 

 

÷

 

12

 

ç

÷

 

ç

 

 

÷

(Y1)

ç 44 ÷

ç

 

 

÷

3

 

 

ç

 

÷

ç÷

ç197 ÷

ç÷

è 12 ø

(%i8) N:length(Y1);

(N)5

Статистический анализ Вычисляем остаточную дисперсию:

(%i9) Sost:sum((Y[i]−Y1[i])2/(N−3),i,1,N);

é29 ù (Sost) ê ú

ë24 û

Вычисляем коэффициенты детерминации: (%i10) Y2:mean(Y);

34

(Y2)

é58 ù

ê

 

ú

5

 

ë

û

(%i11) R2:1−sum((Y[i]−Y1[i])2,i,1,N)/sum((Y[i]−Y2)2,i,1,N);

(R2)

é4967 ù

ê

 

ú

5112

 

ë

û

Проверяем эффективность модели: (%i12) k:3;

(k)3

(%i13) Sreg:sum((Y1[i]−Y2)2,i,1,N)/(k−1);

(Sreg)

é4967 ù

ê

 

ú

 

 

ë 120

û

(%i14)

Fv:Sreg/Sost,float;

(Fv)

[34.2551724137931]

Оцениваем значимость коэффициентов модели:

(%i15)

 

 

Z:invert(A);

 

(Z)

æ 457

127

 

77 ö

ç

 

 

 

 

 

 

 

 

÷

12

 

12

 

6

 

ç

 

 

÷

 

ç

 

 

 

 

 

 

 

 

÷

 

ç127

 

37

 

 

23 ÷

 

ç

 

 

 

 

 

 

 

 

÷

 

12

 

12

 

 

6

 

ç

 

 

 

÷

 

ç

 

 

 

23

 

 

 

÷

 

ç 77

 

 

 

 

29 ÷

 

ç

 

 

 

 

 

 

 

 

÷

 

6

 

 

6

 

 

6

 

è

 

 

 

 

ø

(%i16) for i:1 thru 3 do (Tv[i]:B[i]/sqrt(Z[i,i]·Sost),i,1,3,Tv[i]);

(%o16)

done

 

 

 

 

(%i19)

Tv[1]; Tv[2]; Tv[3];

(%o17)

é

95

2

ù

ê

13253

ú

 

ê

ú

 

ë

 

 

 

û

(%o18)

é 29

2 ù

 

ê

 

 

ú

 

 

ê

1073 ú

 

 

ë

 

 

û

 

(%o19)

é 8 ù

 

 

ê

 

ú

 

 

 

 

 

 

ë

29 û

 

 

35

Задание (Исходные данные в приложении 5.)

1.Выполнить параметрический синтез модели.

2.Провести статистический анализ полученной модели.

3.Решить задачу с помощью wxMaxima.

4.Записать вывод.

Практическая работа № 6. Полный факторный эксперимент

Цель работы: освоить методы построения статистических моделей на основе регрессионного анализа.

Теоретические сведения

При полном факторном эксперименте (ПФЭ) число опытов равно числу всех возможных комбинаций уровней факторов и при одинаковом числе уровней для каждого фактора определяется формулой:

N = nk ,

(1)

где n — число уровней; k — число факторов ( j = 1, 2, …, k). ПФЭ 2k называется такое проведение опытов, при котором каждый из k фак-торов рассматривается только на двух уровнях. При этом

уровни фак-торов представляют собой границы варьирования

данного параметра.

 

 

 

 

 

 

 

 

 

 

 

 

При реализации ПФЭ требуется выполнить N = 22

= 4 опы-

та. Произведем кодирование факторов (замену переменных):

 

 

 

 

 

 

 

z

j

- z 0

 

 

 

 

 

 

 

 

 

 

x j =

 

 

j

,

 

 

 

(2)

 

 

 

 

 

 

 

 

z j

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

где

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

z max + z min

 

 

 

 

 

z max - z min

 

 

 

z0j =

 

j

j

 

,

 

z j

=

j

j

,

(3)

 

 

 

 

2

 

 

 

2

где z minj

 

z maxj

 

 

 

 

 

 

 

 

 

 

и

— верхняя и нижняя границы варьирования

j-го фактора.

Точка

(z0

, z0 ) называется центром плана,

или ос-

 

 

 

1

2

 

 

 

 

 

 

 

 

 

36

новным уровнем; величины ∆z1 и ∆z2 — интервалами варьирования по осям z1 и z2 .

Как следует из уравнений (1) и (2), для переменных х1 и х2 нижний уровень равен –1, верхний — +1, координаты центра плана равны нулю.

Пример расчета

В результате эксперимента получены статистические данные для процесса обогащения хлеба сывороточно-белковым концентратом. В качестве основных факторов, влияющих на изменение удельного объема хлебаY (в см3/100 г), выбраны X1 – количество вносимого сахара(в %), Х2 – количество сывороточнобелкового концентрата (в %), Х3 – влажность теста (в %), с матрицей планирования и результатами эксперимента (таблица).

N

X1

X2

X3

X1,%

X2,%

X3,%

Y1

Y2

1

-1

-1

-1

1.01

2.83

40.2

359.6

358.6

359.1

2

+1

-1

-1

3.99

2.83

40.2

384.4

388.7

386.5

3

-1

+1

-1

1.01

8.17

40.2

368.4

369.0

368.7

4

+1

+1

-1

3.99

8.17

40.2

395.6

395.6

395.6

5

-1

-1

+1

1.01

2.83

43.7

374.1

375.7

374.98

6

+1

-1

+1

3.99

2.83

43.7

400.6

404.9

402.84

7

-1

+1

+1

1.01

8.17

43.7

384.6

386.7

386.7

8

+1

+1

+1

3.99

8.17

43.7

412.0

416.0

414.05

Количество членов модели не должно превышать количество опытов. Неполная квадратичная модель строится в виде

Y(i) = b0 x 0 + b1 x1 + b2 x 2 + b3 x3 + b4 x1 x 2 + b5 x1 x3 + b6 x 2 x3 + + b7 x1 x 2 x3 ,

где х0 – фиктивный входной параметр для учета случайных по-

мех, х0 = 1.

Коэффициенты регрессии вычисляются по формуле

bj = 1 åN x(i, j )× yн (i); j =1÷ M,

N i=1

где М – количество коэффициентов уравнения (М<N). В рассматриваемом примере

37

b =

1

( -1 × 359,1 + 1 × 386,5 - 1 × 386,7 + 1 × 395,6 - 1 × 374 ,98 +

 

1

8

 

 

 

+ 1 × 402 ,838 - 1 × 386,7 + 1 × 414 ,05 ).

Проверка значимости коэффициентов регрессии выполняется по критерию Стьюдента:

T j =

|b j |

,

Sb j

 

 

где Sbj - точность определения коэффициентов регрессии:

 

 

 

Sb j

= S восп ,

 

 

 

 

 

N

где S восп = S 2 восп

, S2

восп – дисперсия воспроизводимости экспе-

римента:

 

 

 

 

 

 

 

 

1

N

N 1

S восп2

=

 

å å (Y(i, k) - Yнн(i)2 ,

N(N 1 - 1 )

 

 

i=1

k =1

где N1 – число серий параллельных опытов; N - число опытов в одной серии; Y(i, k) – значение исходного параметра в i- м опыте k-й серии; (i) – среднее значение в i-м опыте.

Для рассматриваемого параметра N1 = 2, N = 8.

S 2 восп

=

1

((359,67 - 359,1) 2 + (358,611 - 359,1) 2 + (384,416 -

8(2 - 1)

 

 

 

- 368,5)

2 + (388,707 - 386,5) 2 + ... + (416,010 - 414,05) 2 ).

Коэффициент в уравнении регрессии является значимым, если расчетное значение критерия Стьюдента больше табличного (Тj >Ттабл). Табличное значение критерия выбирается из таблицы для числа степеней свободыf = N·(N1–1) и требуемого уровня

значимости Р. В рассматриваемом примере для f = 8 × (2 - 1) = 8 и Р=0,05 Ттабл = 2,31. Незначимый коэффициент из уравнения регрессии исключается (приравнивается нулю).

Проверка адекватности модели выполняется по критерию Фишера:

38

 

 

 

S

2ад

 

 

 

F =

 

 

 

,

 

 

 

S

 

 

 

 

 

 

2восп

 

2

ад =

1

 

 

N

2 ,

S

 

 

 

å (- Yвв)

 

 

 

 

 

N - NP i=1

 

где NP – количество значимых коэффициентов в уравнении регрессии; Yв(i) – значение выходного параметра, рассчитанное по уравнению регрессии при условии i-го опыта. Модель адекватна, если расчетное значение критерия Фишера меньше табличного (F < Fтабл) при проведении серии параллельных опытов или дополнительных. Табличное значение критерия Фишера определяется по таблице для соответствующего числа степеней свободы f1 = N – NP и f2 = N1 1 и заданного уровня значимости Р =0,05.

В рассматриваемом примере f2 = 2 – 1 = 1.

Решение в wxMaxima

Исходные данные: (%i1) X: matrix(

[1,−1,−1,−1], [1,1,−1,−1], [1,−1,1,−1], [1,1,1,−1], [1,−1,−1,1], [1,1,−1,1], [1,−1,1,1], [1,1,1,1] );

39

 

æ 1

1

1

1 ö

 

ç

 

1

1

 

÷

 

ç 1

1 ÷

 

ç

 

1

1

 

÷

 

ç 1

1 ÷

 

ç

1

1

1

1

÷

(X)

ç

÷

ç

1

1

1

1

÷

 

ç

 

 

 

 

÷

 

ç 1

1

1

1 ÷

 

ç

 

1

1

 

÷

 

ç 1

1 ÷

 

ç

 

1

1

 

÷

 

è 1

1 ø

(%i2)

Y: matrix(

 

 

 

[359.6,358.6],

 

 

[384.4,388.7],

 

 

[368.4,369.0],

 

 

[395.6,395.6],

 

 

[374.1,375.7],

 

 

[400.6,404.9],

 

 

[384.6,386.7],

 

 

[412.0,416.0]

 

 

);

 

 

 

 

æ 359.6

358.6

ö

 

ç

 

388.7

÷

 

ç 384.4

÷

 

ç

 

369.0

÷

 

ç 368.4

÷

 

ç

395.6

395.6

÷

(Y)

ç

÷

ç

374.1

375.7

÷

 

ç

 

 

÷

 

ç

400.6

404.9

÷

 

ç

 

386.7

÷

 

ç 384.6

÷

 

ç

 

416.0

÷

 

è 412.0

ø

(%i3) N:length(X);

(N)8

(%i4)

Yn : makelist ((Y[i,1]+Y[i,2])/2,i,1,8);

(Yn)

[359.1, 386.55, 368.7, 395.6, 374.9, 402.75, 385.65, 414.0]

Вычисление коэффициентов регрессии: (%i5) transpose(X);

40

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]