A
ukasz Nykiel st_MP_d08
dane :ð=ð READPRN("dane08.txt" )
0 1 2 3 4 5 6 7 8 9
dane =ð
0 0 1 2 3 4 5 6 7 8 9
1 378.7 734.7 442.8 562.3 380.7 284.3 274.5 367 458.6 ...
dane :ð=ð daneT
áð1Å„ð
dane :ð=ð dane
0
0 378.7
1 734.7
2 442.8
3 562.3
4 380.7
5 284.3
6 274.5
dane =ð
7 367
8 458.6
9 847.4
10 423.5
11 472.7
12 658.7
13 342
14 425.8
15 ...
Test serii:
012345678
daneT =ð
0 378.7 734.7 442.8 562.3 380.7 284.3 274.5 367 ...
liczba pomiarów: n :ð=ð rows(dane) n =ð 30
zakres iteracji: i :ð=ð 0,ð ð1 .ð.ð n -ð 1
mediana: w_med :ð=ð median(dane) w_med =ð 434.3
określenie liczby zer i jedynek:
yi :ð=ð if >ð w_med,ð ð1,ð ð0 y1 :ð=ð yi y1 =ð 15
(ðdane )ð
i åð
i
y0 :ð=ð n -ð y1 y0 =ð 15
1
yi
0.5
0
0 10 20 30
i
określenie liczby serii:
1
yi
0.5
yi
0
0 10 20 30
i
n-ð1
serie :ð=ð 1 +ð if Ä…ð yi,ð ð1,ð ð0 serie =ð 16
(ðy )ð
åð i-ð1
i =ð 1
Wniosek: Po sprawdzeniu tabeli wartosci krytycznych minimalna liczba serii
wynosi 11. W moim zbiorze wynosi ona 16, wiec test serii jest
speniony.
Test błędów grubych:
wartość minimalna: w_min :ð=ð min(dane) w_min =ð 159.8
wartość maksymalna: w_max :ð=ð max(dane) w_max =ð 847.4
wartość Å›rednia: w_sred :ð=ð mean(dane) w_sred =ð 471.95
odchylenie średnie skorygowane:
odch_sred :ð=ð Stdev(dane) odch_sred =ð 198.864
wykres danych nieuporzÄ…dkowanych:
1´ð103
800
600
danei
w_sred
400
200
0
0 10 20 30
i
wykres danych uporzÄ…dkowanych:
dane_up :ð=ð sort(dane)
WRITEPRN("kumulacyjny.txt" ) :ð=ð dane_up
1´ð103
800
600
dane_upi
w_sred
400
200
0
0 10 20 30
i
obliczenie statystyk B4:
(w_max -ð w_sred) (w_min -ð w_sred)
B4_plus :ð=ð B4_minus :ð=ð
odch_sred odch_sred
B4_plus =ð 1.888 B4_minus =ð 1.57
Wniosek: pomiar wartosci najmniejszej nie jest obarczony bledem grubym oraz pomiar wartosci
najwiekszej nie jest obarczony bledem grubym.
Poniewaz wartosci krytyczna jest wieksza (2,958) od wartosci testowej 1,57, wartosc
minimalna nie jest obarczona bledem grubym, dla wartosci maksymalnej rozniez nie ma
bledu grubego gdyz wartosc krytyczna jest wieksza od wartosci testowej 1,888.