L1 Lampiran 1.a Hasil Perhitungan Statistik deskriptif
Statistik deskriptif untuk Spheres OPTORN ANTI-Emi SV Dengan menggunakan Minitab : Descriptive Statistics: Sphere OPTRON ANTI-EMI SV Sum of Variable N Mean StDev Variance Sum Squares Minimum Sphere OPTRON AN 25 0.5100 0.3345 0.1119 12.7500 9.1875 0.000000000 Variable Q1 Median Q3 Maximum Sphere OPTRON AN 0.2500 0.5000 0.7500 1.2500
Summary for Sphere OPTRON ANTI-EMI SV A nderson-D arling N ormality Test
0.0
0.2
0.4
0.6
0.8
1.0
A -S quared P -V alue
0.68 0.068
M ean S tDev V ariance S kew ness Kurtosis N
0.51000 0.33448 0.11188 0.148325 -0.319045 25
M inimum 1st Q uartile M edian 3rd Q uartile M aximum
1.2
0.00000 0.25000 0.50000 0.75000 1.25000
95% C onfidence Interv al for M ean 0.37193
0.64807
95% C onfidence Interv al for M edian 0.29953 9 5 % C onfidence Inter vals
0.26117
Mean Median 0.3
0.4
0.5
0.6
0.75000
95% C onfidence Interv al for S tD ev
0.7
0.8
0.46531
L2
Statistik deskriptif untuk Spheres SOLA CR-39 SV Dengan menggunakan Minitab : Descriptive Statistics: spheres SOLA CR-39 SV Sum of Variable N Mean StDev Variance Sum Squares Minimum Sphere SOLA CR-3 30 0.8417 0.4476 0.2004 25.2500 27.0625 0.000000000 Variable Q1 Median Q3 Maximum Sphere SOLA CR-3 0.5000 0.7500 1.0625 1.7500
Summary for Sphere SOLA CR-39 SV A nderson-D arling N ormality Test
0.0
0.4
0.8
1.2
A -S quared P -V alue <
1.18 0.005
M ean S tDev V ariance S kew ness Kurtosis N
0.84167 0.44762 0.20036 0.523042 -0.421986 30
M inimum 1st Q uartile M edian 3rd Q uartile M aximum
1.6
0.00000 0.50000 0.75000 1.06250 1.75000
95% C onfidence Interv al for M ean 0.67452
1.00881
95% C onfidence Interv al for M edian 0.50000 9 5 % C onfidence Inter vals
0.35648
Mean Median 0.5
0.6
0.7
0.8
1.00000
95% C onfidence Interv al for S tD ev
0.9
1.0
0.60174
L3
Statistik deskriptif untuk cylinder OPTRON ANTI-EMI SV Dengan menggunakan Minitab : Descriptive Statistics: Cylinder OPTRON ANTI-EMI SV Sum of Variable N Mean StDev Variance Sum Squares Minimum Cylinder OPTRON 25 0.2100 0.3035 0.0921 5.2500 3.3125 -0.2500 Variable Q1 Median Q3 Maximum Cylinder OPTRON 0.000000000 0.2500 0.2500 1.0000
Summary for Cylinder OPTRON ANTI-EMI SV A nderson-D arling N ormality Test
-0.2
0.0
0.2
0.4
0.6
0.8
1.0
A -S quared P -V alue <
1.90 0.005
M ean S tD ev V ariance S kew ness Kurtosis N
0.21000 0.30345 0.09208 1.39478 2.05403 25
M inimum 1st Q uartile M edian 3rd Q uartile M aximum
-0.25000 0.00000 0.25000 0.25000 1.00000
95% C onfidence Interv al for M ean 0.08474
0.33526
95% C onfidence Interv al for M edian 0.00000 9 5 % C onfidence Inter vals
0.23694
Mean Median 0.0
0.1
0.2
0.25000
95% C onfidence Interv al for S tD ev
0.3
0.42215
L4
Statistik deskriptif untuk cylinder SOLA CR-39 SV Dengan menggunakan Minitab : Descriptive Statistics: cylinder SOLA CR-39 SV Sum of Variable N Mean StDev Variance Sum Squares Minimum Cylinder SOLA CR 30 0.2167 0.3265 0.1066 6.5000 4.5000 0.000000000 Variable Q1 Median Q3 Maximum Cylinder SOLA CR 0.000000000 0.000000000 0.3125 1.2500
Summary for Cylinder SOLA CR-39 SV A nderson-D arling N ormality Test
0.0
0.2
0.4
0.6
0.8
1.0
1.2
A -S quared P -V alue <
3.33 0.005
M ean S tDev V ariance S kew ness Kurtosis N
0.21667 0.32651 0.10661 1.75556 2.86136 30
M inimum 1st Q uartile M edian 3rd Q uartile M aximum
0.00000 0.00000 0.00000 0.31250 1.25000
95% C onfidence Interv al for M ean 0.09475
0.33859
95% C onfidence Interv al for M edian 0.00000 9 5 % C onfidence Inter vals
0.26004
Mean Median 0.0
0.1
0.2
0.25000
95% C onfidence Interv al for S tD ev
0.3
0.43893
L5 Lampiran 1.b Perhitungan Uji-Z Uji Rata-rata dengan uji Z Perbandingan Spheres lensa OPTRON ANTI-Emi SV dan lensa SOLA CR-39 SV Dengan menggunakan kalkulator(manual): H 0 = : μ1 = μ 2 H 1 : μ1 ≠ μ 2
α = 0.05 ( x1 − x 2 )
z hitung =
S2 S2 ( 1 + 2) n1 n2
=
(0.51 − 0.84167) 0.111875 0.20036 ( + ) 25 30
= −3.1405
z tabel : z α = z 0.05 = −1.96 2
2
Wilayah kritik : z < -1.96 dan z > 1.96 Kesimpulan : karena z- hitung < -z-tabel maka tolak Ho yang berarti rata-rata pertumbuhan minus pengguna lensa OPTRON ANTI-EMI SV tidak sama dengan pengguna Lensa SOLA CR-39 SV. Dan karena Z hitung jatuh pada wilayah kritis sebelah kiri maka dapat disimpulkan bahwa μ1 < μ2 yang berarti pertumbuhan spheres dengan menggunakan lensa OPTRON ANTI-EMI SV lebih kecil dibandingkan menggunakan lensa SOLA CR-39 SV.
L6 Dengan menggunakan Minitab : Two-Sample T-Test and CI: spheres OPTRON ANTI-EMI SV, spheres SOLA CR-39 SV Two-sample T for spheres OPTRON ANTI-EMI SV vs spheres SOLA CR-39 SV N Mean StDev SE Mean spheres ANTI-EMI
25 0.510 0.334 0.067
spheres CR-39 SV
30 0.842 0.448
0.082
Difference = mu (spheres OPTRON ANTI-EMI SV) - mu (spheres SOLA CR-39 SV) Estimate for difference: -0.331667 95% CI for difference: (-0.543590, -0.119743) T-Test of difference = 0 (vs not =): T-Value = -3.14 P-Value = 0.003 DF = 52 Boxplot of spheres ANTI-EMI SV, spheres CR-39 SV 2.0
Data
1.5
1.0
0.5
0.0 spheres ANTI-EMI SV
spheres CR-39 SV
L7 Perbandingan Cylinder lensa OPTRON ANTI-Emi SV dan lensa SOLA CR-39 SV Dengan menggunakan kalkulator(manual): H 0 : μ1 = μ 2 H 1 : μ1 ≠ μ 2
α = 0.05 z=
( x1 − x 2 )
=
S2 S2 ( 1 + 2) n1 n2
(0.21 − 0.21667) 0.09208 0.10661 + ) ( 25 30
= −0.07841
z tabel : zα = z 0.05 = z 0.025 = −1.96 2
2
Wilayah kritik : z < -1.96 dan z > 1.96 Kesimpulan : karena z-hitung tidak jatuh pada wilayah kritik maka terima Ho yang berarti tidak ada perbedaan pertumbuhan cylinder antara pengguna lensa OPTRON ANTI-EMI SV dengan lensa SOLA CR-39 SV.
Dengan menggunakan Minitab : Two-Sample T-Test and CI: cylinder OPTRON ANTI-EMI SV, cylinder SOLA CR-39 SV Two-sample T for cylinder OPTRON ANTI-EMI SV vs cylinder SOLA CR-39 SV N Mean StDev SE Mean cylinder ANTI-EM
25 0.210 0.303 0.061
cylinder CR-39 S
30 0.217 0.327
0.060
Difference = mu (cylinder OPTORN ANTI-EMI SV) - mu (cylinder SOLA CR-39 SV)
L8 Estimate for difference: -0.006667 95% CI for difference: (-0.177373, 0.164040) T-Test of difference = 0 (vs not =): T-Value = -0.08 P-Value = 0.938 DF = 52
Boxplot of cylinder ANTI-EMI SV, cylinder CR-39 SV 1.4 1.2 1.0
Data
0.8 0.6 0.4 0.2 0.0 -0.2 -0.4 cylinder ANTI-EMI SV
cylinder CR-39 SV
L9 Lampiran 1.c Perhitungan uji T2 Hotelling Pengujian mean dengan menggunakan T2 Hotelling Perlakuan I(Pengguna Lensa OPTRON ANTI EMI SV):
⎡ spheres ⎤ ⎡0.51⎤ X1 = ⎢ ⎥=⎢ ⎥ ⎣cylinder ⎦ ⎣0.21⎦ S11 = 0.111875 S12 = S 21 = 0.01344 S 22 = 0.09208 ⎡S S1 = ⎢ 11 ⎣ S 21
S12 ⎤ ⎡0.111875 0.01344⎤ = S 22 ⎥⎦ ⎢⎣ 0.01344 0.09208⎥⎦
Perlakuan II(Pengguna Lensa SOLA CR-39 SV): ⎡ spheres ⎤ ⎡0.84167⎤ X2 = ⎢ ⎥=⎢ ⎥ ⎣cylinder ⎦ ⎣0.21667⎦ S11 = 0.20036 S12 = S 21 = −0.00761 S 22 = 0.10661 ⎡S S1 = ⎢ 11 ⎣ S 21
S12 ⎤ ⎡ 0.20036 − 0.00761⎤ = S 22 ⎥⎦ ⎢⎣− 0.00761 0.10661 ⎥⎦
L10 Hipotesis : r r H 0 = μ1 = μ 2 r r H 1 = μ1 ≠ μ 2
α = 0.05 S geb = =
n2 − 1 n1 − 1 S1 + S2 n1 + n2 − 2 n1 + n2 − 2
25 − 1 ⎡0.111875 0.01344⎤ 30 − 1 ⎡ 0.20036 − 0.00761⎤ + ⎢ ⎥ 25 + 30 − 2 ⎣ 0.01344 0.09208⎦ 25 + 30 − 2 ⎢⎣− 0.00761 0.10661 ⎥⎦
⎡0.05066 0.00609⎤ ⎡ 0.10963 − 0.00416⎤ =⎢ ⎥+⎢ ⎥ ⎣0.00609 0.0417 ⎦ ⎣− 0.00416 0.05833 ⎦ ⎡0.16029 0.00193⎤ =⎢ ⎥ ⎣0.00193 0.10003⎦
−1 = S gab
=
⎡ 0.10003 1 ⎢ (0.16029 × 0.10003 ) − (0.00193 2 ) ⎣ − 0.00193
⎡ 0.10003 1 0.01603 ⎢⎣ − 0.00193
− 0.00193 ⎤ 0.16029 ⎥⎦
− 0.1204 ⎤ 9.99938 ⎥⎦
⎡ 6.24017 =⎢ ⎣ − 0.1204
[
− 0.00193 ⎤ 0.16029 ⎥⎦
]
[
r r 1 −1 r r D 2 = X 1 − X 2 S gab X1 − X 2
]
⎡ 6.24017 − 0.1204⎤ ⎡0.51 − 0.84167 ⎤ = [0.51 − 0.84167 0.21 − 0.21667]⎢ ⎥⎢ ⎥ ⎣− 0.1204 9.99938 ⎦ ⎣0.21 − 0.21667 ⎦ ⎡ 6.24017 − 0.1204⎤ ⎡− 0.33167⎤ = [− 0.33167 − 0.00667]⎢ ⎥⎢ ⎥ ⎣− 0.1204 9.99938 ⎦ ⎣− 0.00667⎦ = 0.68636
L11 2 Thitung =
n.m 25.30 .D 2 = × 0.68636 = 9.35945 n+m 25 + 30
n + m − p −1 2 .T (n + m − 2) p hitung 25 + 30 − 2 − 1 = × 9.35945 (25 + 30 − 2)2 52 = × 9.35945 = 4.59143 106 Fhitung =
Ftabel = Fv1 ,v2 (α ) = F2, 25+30− 2−1 (0.05) = 3.19 Kesimpulan : Karena Fhtiung > Ftabel maka tolak Ho yang berarti secara keseluruhan penggunaan lensa OPTRON ANTI-EMI SV memberikan hasil pertumbuhan miopi yang berbeda dengan penggunaan lensa SOLA CR-39 SV.
L12 Lampiran 1.d Perhitungan Selang Kepercayaan
Selang Kepercayaan 95% bagi μ1 - μ2 untuk pertumbuhan Spheres
(x1 − x2 ) − z α 2
S12 S 22 + < μ1 − μ 2 < ( x1 − x 2 ) + z α n1 n2 2
S12 S 22 + n1 n2
− 0.33167 − (1.96)(0.10561) < μ1 − μ 2 < −0.33167 + (1.96)(0.10561) − 0.53867 < μ1 − μ 2 < −0.12467
Selang Kepercayaan 95% bagi μ1 - μ2 untuk pertumbuhan Cylinder
(x1 − x2 ) − z α 2
S12 S 22 + < μ1 − μ 2 < ( x1 − x 2 ) + z α n1 n2 2
S12 S 22 + n1 n2
− 0.00667 − (1.96)(0.08507) < μ1 − μ 2 < −0.00667 + (1.96)(0.08507) − 0.1734 < μ1 − μ 2 < 0.16007
L13 Lampiran 2. Tabel Hasil Pengumpulan Data Tabel data pengguna lensa OPTRON ANTI-EMI SV Data 1
2
3
4
5
6
7
8
9
10
Pemeriksaan Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II
R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L
Spheres -1.00 -1.00 -1.25 -1.25 -6.00 -6.00 -6.25 -6.25 -3.50 -3.00 -3.50 -3.25 -0.50 -0.50 -0.50 -0.50 -0.25 -0.25 -0.50 -0.50 -6.75 -3.25 -7.00 -3.75 Plano plano -0.25 -0.25 -0.50 -0.50 -0.50 -0.50 Plano plano -0.50 -0.25 Plano plano -0.25 -0.25
Cylinder -0.25
Axis 40
-0.25 -0.25
40 140
-0.50
180
-0.50 -0.50 -0.75 -0.75 -0.75
180 180 180 180 180
-0.25 -0.25 -0.25 -0.25 -0.25 -1.50 -0.50 -1.50 -0.75 -0.75 -1.00 -0.75 -1.00 -0.50 -0.75 -0.75 -0.75 -2.00 -1.00 -2.00 -1.25 -0.50 -0.50 -0.50 -0.50
70 90 90 90 90 180 90 180 90 90 90 90 90 90 130 60 130 10 170 180 180 180 160 180 180
L14 11
12
13
14
15
16
17
18
19
20
21
22
Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan
R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R
-1.00 Plano -1.50 -0.75 -0.25 -0.25 -0.75 -0.75 -1.00 -1.00 -1.00 -1.00 -3.00 -4.25 -3.50 -4.75 -1.00 -1.00 -1.25 -1.25 -0.75 -1.25 -0.75 -1.50 -1.50 -1.50 -1.75 -1.75 -3.50 -3.75 -4.00 -4.00 Plano Plano plano plano -1.50 -0.75 -1.50 -1.00 -0.50 Plano -0.75 -0.50 -1.50
-0.25 -0.25 -0.75 -0.75 -0.25 -0.25 -0.50 -0.50
90 40 90 40 90 90 90 90
-0.50 -0.50 -1.25
80 100 180
-1.25 -0.50
100 180
-0.25
180
-0.25
180
-2.00 -2.00 -2.00 -2.00 -0.25 -0.25 -0.50 -0.50 -0.25 -0.50 -0.50 -0.50 -0.50
80 90 90 90 160 160 160 160 10 170 180 180 90
L15
23
24
25
I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II
L R L R L R L R L R L R L R L
-1.50 -1.75 -2.00 -2.50 -0.75 -2.50 -1.00 -2.00 -1.50 -2.50 -1.75 -1.25 -1.25 -1.50 -1.50
-0.50 -0.50 -0.25 -1.00 -1.75 -1.00 -2.00
90 90 90 30 150 30 150
L16 Besar pertumbuhan spheres OPTORN ANTI-EMI SV data 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
R 0.25 0.25 0 0 0.25 0.25 0.25 0 0.50 0.25 0.50 0.50 0 0.50 0.25 0 0.25 0.50 0 0 0.25 0.25 0 0.50 0.25
L 0.25 0.25 0.25 0 0.25 0.50 0.25 0 0.25 0.25 0.75 0.50 0 0.50 0.25 0.25 0.25 0.25 0 0.25 0.50 0.50 0.25 0.25 0.25
Total(R+L) 0.50 0.50 0.25 0 0.50 0.75 0.50 0 0.75 0.50 1.25 1 0 1 0.50 0.25 0.50 0.75 0 0.25 0.75 0.75 0.25 0.75 0.50
L17
Besar pertumbuhan cylinder OPTRON ANTI-EMI SV data 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
R 0 0 0.25 0 0 0 0 0.25 0 0 0.50 0.25 0.50 0 0 0 0 0 0 0.25 0.25 0 0 0 0
L 0.25 0 0 0.25 0 0.25 0 0 0.25 0 0.50 0.25 0.50 0.50 0 0 0 0 0 0.25 0 -0.25 0.25 0 0
ToTAL(R+L) 0.25 0 0.25 0.25 0 0.25 0 0.25 0.25 0 1 0.50 1 0.50 0 0 0 0 0 0.50 0.25 -0.25 0.25 0 0
L18
Besar petumbuhan total spheres dan cylinder OPTRON ANTI-EMI SV data 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
Total spheres 0.50 0.50 0.25 0 0.50 0.75 0.50 0 0.75 0.50 1.25 1 0 1 0.50 0.25 0.50 0.75 0 0.25 0.75 0.75 0.25 0.75 0.50
Total cylinder 0.25 0 0.25 0.25 0 0.25 0 0.25 0.25 0 1 0.50 1 0.50 0 0 0 0 0 0.50 0.25 -0.25 0.25 0 0
Total keseluruhan 0.75 0.50 0.50 0.25 0.50 1 0.50 0.25 1 0.50 2.25 1.50 1 1.50 0.50 0.25 0.50 0.75 0 0.75 1 0.50 0.50 0.75 0.50
L19 Tabel data pengguna lensa SOLA CR-39 SV Data
Pemeriksaan
1
Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan
2
3
4
5
6
7
8
9
10
11
R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R
Spheres
Cylinder
Axis
-1.00 -0.75 -1.25 -1.00 -0.25 -0.25 -0.50 -0.50 -0.50 -0.75 -1.25 -1.25 -3.00 -4.00 -4.00 -4.75 -3.25 -4.00 -4.00 -4.75 -2.25 Plano -2.50 -0.75 -1.75 -2.00 -2.00 -2.25 -0.25 -0.25 -0.50 -0.75 -0.75 -0.75 -1.25 -1.25 -3.75 -2.50 -4.25 -3.00 -0.50
-0.75
100
-1.25 -0.50 -0.25 -0.25 -0.25 -0.25 -0.25 -0.25 -0.25 -0.25 -1.25 -1.25 -1.50 -1.50
100 100 180 140 180 140 180 180 180 180 180 180 180 180
-1.25 -1.25 -1.75 -2.00
180 180 180 180
-0.50 -0.75 -0.75 -0.75 -0.50 -0.50 -0.50 -0.50
180 90 180 90 90 90 90 90
-0.25 -0.50
180 110
L20
12
13
14
15
16
17
18
19
20
21
22
I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I
L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L
Plano -0.75 -0.25 -3.00 -3.75 -3.50 -4.00 -1.50 -1.50 -2.50 -2.25 -1.25 -2.25 -1.75 -2.25 -0.75 -0.75 -1.00 -1.00 -0.50 -0.75 -0.75 -0.75 -4.50 -5.50 -5.25 -6.00 -5.75 -5.25 -6.50 -6.00 -1.25 -1.00 -1.50 -1.25 -1.00 -1.00 -1.00 -1.00 -2.25 -2.25 -2.50 -2.50 -0.50 -0.25
-0.50 -0.25
110 80
-0.25
180
-0.25
180
-2.00 -0.50 -2.00
60 10 60
-0.25
80
-0.25 -0.25
80 90
-0.25 -0.25 -0.50 -0.50 -0.25 -0.25 -0.25 -0.25
90 90 90 90 180 170 180 180
-1.00
180
L21
23
24
25
26
27
28
29
30
Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II Pemeriksaan I Pemeriksaan II
R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L R L
-075 -0.50 -0.75 -0.75 -1.25 -1.00 -5.75 -5.75 -6.00 -6.00 -2.25 -3.00 -3.00 -3.25 Plano -1.50 -0.25 -1.75 -1.00 -1.25 -1.50 -1.50 -6.00 -6.50 -6.50 -7.00 -3.00 -3.00 -3.50 -3.50 -1.75 -2.00 -2.50 -2.75
-1.00
180
-1.75 -0.25 -2.00 -0.75 -0.50
180 150 180 150 70
-0.75
70
-0.50 -0.50 -0.50 -0.50 -0.50 -0.50 -0.50 -0.50 -1.75 -1.75 -2.00 -2.00 -2.00 -1.50 -2.00 -1.75
120 60 120 60 150 180 145 180 180 180 180 180 30 170 30 170
L22 Besar pertumbuhan spheres SOLA CR-39 SV data 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
R 0.25 0.25 0.75 1 0.75 0.25 0.25 0.25 0.50 0.50 0.25 0.50 1 0.50 0.25 0.25 0.75 0.75 0.25 0 0.25 0.25 0.50 0.25 0.75 0.25 0.50 0.50 0.50 0.75
L 0.25 0.25 0.50 0.75 0.75 0.75 0.25 0.50 0.50 0.50 0.25 0.25 0.75 0 0.25 0 0.50 0.75 0.25 0 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.50 0.50 0.75
Total 0.50 0.50 1.25 1.75 1.50 1 0.50 0.75 1 1 0.50 0.75 1.75 0.50 0.50 0.25 1.25 1.50 0.50 0 0.50 0.50 0.75 0.50 1 0.50 0.75 1 1 1.50
L23 Besar pertumbuhan cylinder SOLA CR-39 SV data 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
R 0.50 0 0 0.25 0 0.50 0 0.25 0 0 0 0 0 0.50 0 0 0 0 0 0.25 0 0 0 0 0.25 0.25 0 0 0.25 0
L 0.50 0 0 0.25 0 0.75 0 0 0 0.25 0.25 0 0 0 0 0.25 0 0 0 0.25 0 0 0 0 0.50 0 0 0 0.25 0.25
Total 1 0 0 0.50 0 1.25 0 0.25 0 0.25 0.25 0 0 0.50 0 0.25 0 0 0 0.50 0 0 0 0 0.75 0.25 0 0 0.50 0.25
L24 Besar pertumbuhan total spheres dan cylinder SOLA CR-39 SV data 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
Total spheres 0.50 0.50 1.25 1.75 1.50 1 0.50 0.75 1 1 0.50 0.75 1.75 0.50 0.50 0.25 1.25 1.50 0.50 0 0.50 0.50 0.75 0.50 1 0.50 0.75 1 1 1.50
Total cylinder 1 0 0 0.50 0 1.25 0 0.25 0 0.25 0.25 0 0 0.50 0 0.25 0 0 0 0.50 0 0 0 0 0.75 0.25 0 0 0.50 0.25
Total 1.50 0.50 1.25 2.25 1.50 2.25 0.50 1 1 1.25 0.75 0.75 1.75 1 0.50 0.50 1.25 1.50 0.50 0.50 0.50 0.50 0.75 0.50 1.75 0.75 0.75 1 1.50 1.75
L25 Lampiran 3. Tampilan Layar Program Aplikasi
L26
L27
L28
L29 Lampiran 4. Tabel Z Fz(Z) = P [Z ≤ z] z -3.4 -3.3 -3.2 -3.1 -3.0 -2.9 -2.8 -2.7 -2.6 -2.5 -2.4 -2.3 -2.2 -2.1 -2.0 -1.9 -1.8 -1.7 -1.6 -1.5 -1.4 -1.3 -1.2 -1.1 -1.0 -0.9 -0.8 -0.7 -0.6 -0.5 -0.4 -0.3 -0.2 -0.1 -0.0
0.00 0.0003 0.0005 0.0007 0.0010 0.0013 0.0019 0.0026 0.0035 0.0047 0.0062 0.0082 0.0107 0.0139 0.0179 0.0228 0.0287 0.0359 0.0446 0.0548 0.0668 0.0808 0.0968 0.1151 0.1357 0.1587 0.1841 0.2119 0.2420 0.2743 0.3085 0.3446 0.3821 0.4207 0.4602 0.5000
0.01 0.0003 0.0005 0.0007 0.0009 0.0013 0.0018 0.0025 0.0034 0.0045 0.0060 0.0080 0.0104 0.0136 0.0174 0.0222 0.0281 0.0351 0.0436 0.0537 0.0655 0.0793 0.0951 0.1131 0.1335 0.1562 0.1814 0.2090 0.2389 0.2709 0.3050 0.3409 0.3783 0.4168 0.4562 0.4960
0.02 0.0003 0.0005 0.0006 0.0009 0.0013 0.0018 0.0024 0.0033 0.0044 0.0059 0.0078 0.0102 0.0132 0.0170 0.0217 0.0274 0.0344 0.0427 0.0526 0.0643 0.0778 0.0934 0.1112 0.1314 0.1539 0.1788 0.2061 0.2358 0.2676 0.3015 0.3372 0.3745 0.4129 0.4522 0.4920
0.03 0.0003 0.0004 0.0006 0.0009 0.0012 0.0017 0.0023 0.0032 0.0043 0.0057 0.0075 0.0099 0.0129 0.0166 0.0212 0.0268 0.0336 0.0418 0.0516 0.0630 0.0764 0.0918 0.1093 0.1292 0.1515 0.1762 0.2033 0.2327 0.2643 0.2981 0.3336 0.3707 0.4090 0.4483 0.4880
0.04 0.0003 0.0004 0.0006 0.0008 0.0012 0.0016 0.0023 0.0031 0.0041 0.0055 0.0073 0.0096 0.0125 0.0162 0.0207 0.0262 0.0329 0.0409 0.0505 0.0618 0.0749 0.0901 0.1075 0.1271 0.1492 0.1736 0.2005 0.2296 0.2611 0.2946 0.3300 0.3669 0.4052 0.4443 0.4840
0.05 0.0003 0.0004 0.0006 0.0008 0.0011 0.0016 0.0022 0.0030 0.0040 0.0054 0.0071 0.0094 0.0122 0.0158 0.0202 0.0256 0.0322 0.0401 0.0495 0.0606 0.0735 0.0885 0.1056 0.1251 0.1469 0.1711 0.1977 0.2266 0.2578 0.2912 0.3264 0.3632 0.4013 0.4404 0.4801
0.06 0.0003 0.0004 0.0006 0.0008 0.0011 0.0015 0.0021 0.0029 0.0039 0.0052 0.0069 0.0091 0.0119 0.0154 0.0197 0.0250 0.0314 0.0392 0.0485 0.0594 0.0721 0.0869 0.1038 0.1230 0.1446 0.1685 0.1949 0.2236 0.2546 0.2877 0.3228 0.3594 0.3974 0.4364 0.4761
0.07 0.0003 0.0004 0.0005 0.0008 0.0011 0.0015 0.0021 0.0028 0.0038 0.0051 0.0068 0.0089 0.0116 0.0150 0.0192 0.0244 0.0307 0.0384 0.0475 0.0582 0.0708 0.0853 0.1020 0.1210 0.1423 0.1660 0.1921 0.2206 0.2514 0.2843 0.3192 0.3557 0.3936 0.4325 0.4721
0.08 0.0003 0.0004 0.0005 0.0007 0.0010 0.0014 0.0020 0.0027 0.0037 0.0049 0.0066 0.0087 0.0113 0.0146 0.0188 0.0239 0.0301 0.0375 0.0465 0.0571 0.0694 0.0838 0.1003 0.1190 0.1401 0.1635 0.1894 0.2177 0.2483 0.2810 0.3156 0.3520 0.3897 0.4286 0.4681
0.09 0.0002 0.0003 0.0005 0.0007 0.0010 0.0014 0.0019 0.0026 0.0036 0.0048 0.0064 0.0084 0.0110 0.0143 0.0183 0.0233 0.0294 0.0367 0.0455 0.0559 0.0681 0.0823 0.0985 0.1170 0.1379 0.1611 0.1867 0.2148 0.2451 0.2776 0.3121 0.3483 0.3859 0.4247 0.4641
L30
Fz(Z) = P [Z ≤ z] z 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0 3.1 3.2 3.3 3.4
0.00 0.5000 0.5398 0.5793 0.6179 0.6554 0.6915 0.7257 0.7580 0.7881 0.8159 0.8413 0.8643 0.8849 0.9032 0.9192 0.9332 0.9452 0.9554 0.9641 0.9713 0.9772 0.9821 0.9861 0.9893 0.9918 0.9938 0.9953 0.9965 0.9974 0.9981 0.9987 0.9990 0.9993 0.9995 0.9997
0.01 0.5040 0.5438 0.5832 0.6217 0.6591 0.6950 0.7291 0.7611 0.7910 0.8186 0.8438 0.8665 0.8869 0.9049 0.9207 0.9345 0.9463 0.9564 0.9649 0.9719 0.9778 0.9826 0.9864 0.9896 0.9920 0.9940 0.9955 0.9966 0.9975 0.9982 0.9987 0.9991 0.9993 0.9995 0.9997
0.02 0.5080 0.5478 0.5871 0.6255 0.6628 0.6985 0.7324 0.7642 0.7939 0.8212 0.8461 0.8686 0.8888 0.9066 0.9222 0.9357 0.9474 0.9573 0.9656 0.9726 0.9783 0.9830 0.9868 0.9898 0.9922 0.9941 0.9956 0.9967 0.9976 0.9982 0.9987 0.9991 0.9994 0.9995 0.9997
0.03 0.5120 0.5517 0.5910 0.6293 0.6664 0.7019 0.7357 0.7673 0.7967 0.8238 0.8485 0.8708 0.8907 0.9082 0.9236 0.9370 0.9484 0.9582 0.9664 0.9732 0.9788 0.9834 0.9871 0.9901 0.9925 0.9943 0.9957 0.9968 0.9977 0.9983 0.9988 0.9991 0.9994 0.9996 0.9997
0.04 0.5160 0.5557 0.5948 0.6331 0.6700 0.7054 0.7389 0.7704 0.7995 0.8264 0.8508 0.8729 0.8925 0.9099 0.9251 0.9382 0.9495 0.9591 0.9671 0.9738 0.9793 0.9838 0.9875 0.9904 0.9927 0.9945 0.9959 0.9969 0.9977 0.9984 0.9988 0.9992 0.9994 0.9996 0.9997
0.05 0.5199 0.5596 0.5987 0.6368 0.6736 0.7088 0.7422 0.7734 0.8023 0.8289 0.8531 0.8749 0.8944 0.9115 0.9265 0.9394 0.9505 0.9599 0.9678 0.9744 0.9798 0.9842 0.9878 0.9906 0.9929 0.9946 0.9960 0.9970 0.9978 0.9984 0.9989 0.9992 0.9994 0.9996 0.9997
0.06 0.5239 0.5636 0.6026 0.6406 0.6772 0.7123 0.7454 0.7764 0.8051 0.8315 0.8554 0.8770 0.8962 0.9131 0.9279 0.9406 0.9515 0.9608 0.9686 0.9750 0.9803 0.9846 0.9881 0.9909 0.9931 0.9948 0.9961 0.9971 0.9979 0.9985 0.9989 0.9992 0.9994 0.9996 0.9997
0.07 0.5279 0.5675 0.6064 0.6443 0.6808 0.7157 0.7486 0.7794 0.8079 0.8340 0.8577 0.8790 0.8980 0.9147 0.9292 0.9418 0.9525 0.9616 0.9693 0.9756 0.9808 0.9850 0.9884 0.9911 0.9932 0.9949 0.9962 0.9972 0.9979 0.9985 0.9989 0.9992 0.9995 0.9996 0.9997
0.08 0.5319 0.5714 0.6103 0.6480 0.6844 0.7190 0.7517 0.7823 0.8106 0.8365 0.8599 0.8810 0.8997 0.9162 0.9306 0.9429 0.9535 0.9625 0.9699 0.9761 0.9812 0.9854 0.9887 0.9913 0.9934 0.9951 0.9963 0.9973 0.9980 0.9986 0.9990 0.9993 0.9995 0.9996 0.9997
0.09 0.5359 0.5753 0.6141 0.6517 0.6879 0.7224 0.7549 0.7852 0.8133 0.8389 0.8621 0.8830 0.9015 0.9177 0.9319 0.9441 0.9545 0.9633 0.9706 0.9767 0.9817 0.9857 0.9890 0.9916 0.9936 0.9952 0.9964 0.9974 0.9981 0.9986 0.9990 0.9993 0.9995 0.9997 0.9998
L31 Lampiran 5. Tabel F
L32
L33 Lampiran 6. Listing Program unit pooledtandhotelling; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Series, TeEngine, TeeProcs, Chart; type TForm1 = class(TForm) pmenu: TPanel; binput: TButton; bdata: TButton; bujit: TButton; bhotelling: TButton; bexit: TButton; pinput: TPanel; Memo1: TMemo; Label3: TLabel; Label4: TLabel; Edit1: TEdit; bsimpan: TButton; bbatal: TButton; pdata: TPanel; ComboBox1: TComboBox; Label5: TLabel; Memo2: TMemo; Label6: TLabel; bmenu: TButton; pujit: TPanel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Memo5: TMemo; Memo6: TMemo; ComboBox4: TComboBox; ComboBox5: TComboBox; RadioButton3: TRadioButton; RadioButton4: TRadioButton; bhitungt: TButton; bmenu2: TButton;
L34 photelling: TPanel; Memo7: TMemo; Label17: TLabel; Memo8: TMemo; Label18: TLabel; ComboBox6: TComboBox; ComboBox7: TComboBox; ComboBox8: TComboBox; ComboBox9: TComboBox; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; RadioButton5: TRadioButton; RadioButton6: TRadioButton; bhitunghot: TButton; bmenu3: TButton; Label26: TLabel; plogin: TPanel; Label1: TLabel; Label2: TLabel; username: TEdit; password: TEdit; blogin: TButton; Session1: TSession; Database1: TDatabase; Table1: TTable; Chart1: TChart; Series1: TBarSeries; Series2: TLineSeries; load: TButton; OpenDialog1: TOpenDialog; graph: TPanel; Chart2: TChart; Chart3: TChart; Series3: TBarSeries; Series4: TLineSeries; Series5: TLineSeries; bgraph: TButton; bok: TButton; Label7: TLabel; Label8: TLabel; Label9: TLabel;
L35 bsave: TButton; procedure FormCreate(Sender: TObject); procedure bloginClick(Sender: TObject); procedure binputClick(Sender: TObject); procedure bdataClick(Sender: TObject); procedure bujitClick(Sender: TObject); procedure bhotellingClick(Sender: TObject); procedure bexitClick(Sender: TObject); procedure bmenu2Click(Sender: TObject); procedure bmenu3Click(Sender: TObject); procedure bmenu1Click(Sender: TObject); procedure bmenuClick(Sender: TObject); procedure bsimpanClick(Sender: TObject); procedure bbatalClick(Sender: TObject); procedure usernameKeyPress(Sender: TObject; var Key: Char); procedure passwordKeyPress(Sender: TObject; var Key: Char); procedure Memo1KeyPress(Sender: TObject; var Key: Char); procedure ComboBox1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure bhitungtClick(Sender: TObject); procedure bhitunghotClick(Sender: TObject); procedure loadClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure bgraphClick(Sender: TObject); procedure bokClick(Sender: TObject); procedure bsaveClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; jumvar : Integer; jumdat : array of integer; inr : array of string; dat : array of array of real; fileName1 , fileName2 : String; sim1 , sim2: array of array of string; fileText1 ,fileText2 : TextFile; validasi1 , validasi2 : array of String; implementation {$R *.dfm}
L36
procedure TForm1.FormCreate(Sender: TObject); var tes1 , tes2 :integer; i,j,k,l:integer; begin tes1 := 0; tes2 := 0; SetLength(validasi1,100); SetLength(validasi2,100); SetLength(sim1,100,1000); SetLength(sim2,100,1000); fileName1 := 'tabelf1.txt'; fileName2 := 'tabelf5.txt'; if fileName1 <> '' then begin AssignFile(fileText1,fileName1); Reset(fileText1); while not eof(fileText1) do begin Readln(fileText1,validasi1[tes1]); tes1 := tes1 +1; end; sim1[0][1]:=''; for i:=0 to tes1-1 do begin k:=0; for j:=1 to (length(validasi1[i])) do begin if (validasi1[i][j]<>',') then begin sim1[i][k]:=sim1[i][k]+validasi1[i][j]; end else begin k:=k+1; sim1[i][k]:=''; end; end; end; {for i:=0 to tes1-1 do begin for j:=0 to k-1 do begin ShowMessage('s['+IntToStr(i)+']['+IntToStr(j)+']: '+sim1[i][j]); end;
L37 end; } CloseFile(fileText1); end; if fileName2 <> '' then begin AssignFile(fileText2,fileName2); Reset(fileText2); while not eof(fileText2) do begin Readln(fileText2,validasi2[tes2]); tes2 := tes2 +1; end; sim2[0][1]:=''; for i:=0 to tes2-1 do begin l:=0; for j:=1 to (length(validasi2[i])) do begin if (validasi2[i][j]<>',') then begin sim2[i][l]:=sim2[i][l]+validasi2[i][j]; end else begin l:=l+1; sim2[i][l]:=''; end; end; end; {for i:=0 to tes2-1 do begin for j:=0 to l-1 do begin ShowMessage('s['+IntToStr(i)+']['+IntToStr(j)+']: '+sim2[i][j]); end; end; } CloseFile(fileText2); end; jumvar := 0; pmenu.Visible:=false; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=true; graph.Visible:=false;
L38 end; procedure TForm1.bloginClick(Sender: TObject); var i,jml : Integer; Pswd, Nama : array of string; User : Boolean; begin User := False; Jml := Table1.RecordCount; SetLength(Pswd,Jml); SetLength(Nama,Jml); Table1.First; for i := 1 to Jml do begin Pswd[i-1] := Table1.fieldbyname('Password').AsString; Nama[i-1] := Table1.fieldbyname('UserName').AsString; Table1.Next; end; for i := 1 to Jml do begin if (username.Text = Nama[i-1]) then begin if (password.Text = Pswd[i-1]) then User := True; Break; end end; if (User) then begin pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; pmenu.Visible:=true; plogin.Visible:=false; graph.Visible:=false; end else begin MessageDlg('Kode User dan/atau Password Anda Salah!!!',mtInformation,[mbOK],0); password.Clear; username.SetFocus; username.SelectAll; end; end;
L39
procedure TForm1.binputClick(Sender: TObject); begin Memo1.Clear; Edit1.Clear; pmenu.Visible:=false; pinput.Visible:=true; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; edit1.SetFocus; end; procedure TForm1.bdataClick(Sender: TObject); var i : Integer; begin Series1.Clear; Series2.Clear; Series3.Clear; Series4.Clear; Series5.Clear; memo2.Lines.Clear; ComboBox1.Clear; pmenu.Visible:=false; pinput.Visible:=false; pdata.Visible:=true; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; for i :=0 to jumvar-1 do begin ComboBox1.Items.Insert(i,inr[i]); end; end; procedure TForm1.bujitClick(Sender: TObject); var i: Integer ; begin Memo5.Lines.Clear; Memo6.Lines.Clear;
L40 ComboBox4.Clear; ComboBox5.Clear; pmenu.Visible:=false; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=true; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; for i :=0 to jumvar-1 do begin ComboBox4.Items.Insert(i,inr[i]); ComboBox5.Items.Insert(i,inr[i]); end; end; procedure TForm1.bhotellingClick(Sender: TObject); var i: Integer ; begin Memo7.Lines.Clear; Memo8.Lines.Clear; ComboBox6.Clear; ComboBox7.Clear; ComboBox8.Clear; ComboBox9.Clear; pmenu.Visible:=false; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=true; plogin.Visible:=false; graph.Visible:=false; for i :=0 to jumvar-1 do begin ComboBox6.Items.Insert(i,inr[i]); ComboBox7.Items.Insert(i,inr[i]); ComboBox8.Items.Insert(i,inr[i]); ComboBox9.Items.Insert(i,inr[i]); end; end; procedure TForm1.bexitClick(Sender: TObject); begin Application.Terminate; end;
L41
procedure TForm1.bmenu2Click(Sender: TObject); begin pmenu.Visible:=true; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; end; procedure TForm1.bmenu3Click(Sender: TObject); begin pmenu.Visible:=true; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; end; procedure TForm1.bmenu1Click(Sender: TObject); begin pmenu.Visible:=true; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; end; procedure TForm1.bmenuClick(Sender: TObject); begin pmenu.Visible:=true; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; end;
L42
procedure TForm1.bsimpanClick(Sender: TObject); var i : Integer; begin if trim(Edit1.Text)='' then begin MessageBox(Self.Handle,'Masukkan nama Variabel','Warning',MB_OK); Edit1.SetFocus; end else begin if trim(Memo1.Text)='' then begin MessageBox(Self.Handle,'Tidak ada data yang dimasukkan. Tolong masukkan data','Warning',MB_OK); memo1.SetFocus; end else SetLength(jumdat,10); SetLength(inr,10); inr[jumvar] := Edit1.Text; SetLength(dat,10); SetLength(dat[jumvar],Memo1.Lines.Count); for i := 1 to Memo1.Lines.Count do begin dat[jumvar][i-1]:=StrToFloat(memo1.Lines[i-1]); jumdat[jumvar] :=i; end; pmenu.Visible:=true; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; graph.Visible:=false; jumvar := jumvar + 1; end; end; procedure TForm1.bbatalClick(Sender: TObject); begin pmenu.Visible:=true; graph.Visible:=false; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false;
L43 photelling.Visible:=false; plogin.Visible:=false; end; procedure TForm1.usernameKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin bloginClick(Sender); end; end; procedure TForm1.passwordKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin bloginClick(Sender); end; end; procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8,#13,'.','-']) then Key:=#0; end; procedure TForm1.ComboBox1Click(Sender: TObject); var i,j,k : Integer; temp ,v,s,x, rata2 ,min,max: Real; a : array of real; begin Series1.Clear; Series2.Clear; Series3.Clear; Series4.Clear; Series5.Clear; temp:=0; x:=0; min:=dat[ComboBox1.ItemIndex][0]; max:=dat[ComboBox1.ItemIndex][0]; j := jumdat[ComboBox1.ItemIndex]; SetLength(a,j); memo2.Lines.Clear; for i := 0 to j-1 do begin
L44 memo2.Lines.Add('data ke-'+IntToStr(i+1)+' '+FloatToStr(dat[ComboBox1.itemindex][i])); x:= x + dat[ComboBox1.itemindex][i]; temp:= temp + (dat[ComboBox1.ItemIndex][i]*dat[ComboBox1.ItemIndex][i]); if dat[ComboBox1.ItemIndex][i]<min then begin min:= dat[ComboBox1.ItemIndex][i]; end else if dat[ComboBox1.ItemIndex][i]>max then begin max:=dat[ComboBox1.ItemIndex][i]; end; end; for i:=0 to j-1 do begin Series5.AddXY(i,dat[ComboBox1.ItemIndex][i]); end; rata2:=x/j; v:= ((j*temp)-(x*x))/(j*(j-1)); s:=sqrt(v); Memo2.Lines.Add('Means : '+FloatToStr(rata2)); Memo2.Lines.Add('variance : '+FloatToStr(v)); Memo2.Lines.Add('StDeviasi : '+FloatToStr(s)); Memo2.Lines.Add('Minimum : '+FloatToStr(min)); Memo2.Lines.Add('Maksimum : '+FloatToStr(max)); for i := 0 to j-1 do begin a[i]:=dat[ComboBox1.ItemIndex][i]; end; for i:= 0 to j-1 do begin for k:= 0 to j-1 do begin if (a[i]
:
L45 begin temp:=a[i+1] end else begin temp := -500000; end; if (temp = a[i]) then begin k:=k; end else begin Series1.AddXY(a[i],k); Series2.AddXY(a[i],k); Series3.AddXY(a[i],k); Series4.AddXY(a[i],k); k:=0; end; end; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin bsimpanClick(Sender); end; end; procedure TForm1.bhitungtClick(Sender: TObject); var i, n1 , n2 : Integer; x1 , x2 ,temp1 , temp2 , s1 , s2,ztabel : Real; rata1 , rata2 , z : Real; begin memo5.Lines.Clear; Memo6.Lines.Clear; n1 := jumdat[ComboBox4.ItemIndex]; n2 := jumdat[ComboBox5.ItemIndex]; if ComboBox4.ItemIndex = ComboBox5.ItemIndex then begin ShowMessage('Mohon pilih variabel yang berbeda'); ComboBox4.SetFocus; end else begin if (n1<20) or(n2<20) then begin
L46 ShowMessage('Mohon pilih variabel dengan jumlah sampel lebih dari 20'); end else begin x1:=0; x2:=0; temp1:=0; temp2:=0; memo5.Lines.Add('n1 : '+IntToStr(n1)); memo5.Lines.Add('n2 : '+IntToStr(n2)); SetLength(dat,10); SetLength(dat[ComboBox5.ItemIndex],100); for i:=0 to n1-1 do begin temp1:= temp1 + dat[ComboBox4.ItemIndex][i]; x1:= x1 + (dat[ComboBox4.ItemIndex][i]*dat[ComboBox4.ItemIndex][i]); end; for i:=0 to n2-1 do begin temp2 := temp2 + dat[ComboBox5.ItemIndex][i]; x2 := x2 + (dat[ComboBox5.ItemIndex][i]*dat[ComboBox5.ItemIndex][i]); end; Memo5.Lines.Add('total x1 : '+FloatToStr(temp1)); Memo5.Lines.Add('total x2 : '+FloatToStr(temp2)); s1:= ((n1*x1)-(temp1*temp1))/(n1*(n1-1)); s2:= ((n2*x2)-(temp2*temp2))/(n2*(n2-1)); Memo5.Lines.Add('variance1 : '+FloatToStr(s1)); Memo5.Lines.Add('variance2 : '+FloatToStr(s2)); rata1:=temp1/n1; rata2:=temp2/n2; z:=(rata1-rata2)/(sqrt((s1/n1)+(s2/n2))); Memo5.Lines.Add('means1 : '+FloatToStr(rata1)); Memo5.Lines.Add('means2 : '+FloatToStr(rata2)); Memo5.Lines.Add('Z-hitung : '+FloatToStr(z)); if RadioButton3.Checked=true then begin ztabel:=1.96; end else begin ztabel:=2.575; end; Memo5.Lines.Add('Z-tabel : '+FloatToStr(ztabel)); if (z<-ztabel) or (z>ztabel) then begin memo6.Lines.Add('Karena Zhitung jatuh pada wilayah kritik maka tolak ho'); Memo6.Lines.Add('yang berarti rata-rata berbeda'); if z<-ztabel then
L47 begin memo6.Lines.Add('Z-hitung jatuh pada wilayah kritik sebelah kiri,'); memo6.Lines.Add('berarti dapat disimpulkan bahwa rata-rata '+inr[ComboBox4.ItemIndex]+' < '+inr[ComboBox5.ItemIndex]); end else begin memo6.Lines.Add('Z-hitung jatuh pada wilayah kritik sebelah kanan,'); memo6.Lines.Add('berarti dapat disimpulkan bahwa rata-rata '+inr[ComboBox4.ItemIndex]+' > '+inr[ComboBox5.ItemIndex]); end; end else begin memo6.Lines.Add('karena Zhitung jatuh diluar wilayah kritik maka terima ho'); Memo6.Lines.Add('yang berarti rata-rata sama'); end; end; end; end; procedure TForm1.bhitunghotClick(Sender: TObject); var i, nx1 , nx2 ,ny1,ny2,tampung,v1,v2: Integer; x1 , x2 ,y1,y2: real; tempx1 , tempx2 ,tempx3,tempy1,tempy2,tempy3: Real; ratax1,ratax2,ratay1,ratay2 : Real; sx1 , sx2, sx3,sy1,sy2,sy3 : Real; t, f,d,sgab1,sgab2,sgab3,si1,si2,si3,ftabel : Real; begin if (ComboBox6.ItemIndex= ComboBox7.ItemIndex) (ComboBox8.ItemIndex=ComboBox9.ItemIndex) then begin ShowMessage('Mohon pilih Variabel yang berbeda pada Perlakuan I Dan II'); end else begin memo7.Clear; memo8.Clear; v1:=2; x1:=0; x2:=0; tempx1:=0; tempx2:=0; tempx3:=0; nx1 := jumdat[ComboBox6.ItemIndex]; nx2 := jumdat[ComboBox7.ItemIndex]; y1:=0; y2:=0;
or
L48 tempy1:=0; tempy2:=0; tempy3:=0; ny1 := jumdat[ComboBox8.ItemIndex]; ny2 := jumdat[ComboBox9.ItemIndex]; if jumdat[ComboBox6.ItemIndex] <> jumdat[ComboBox7.ItemIndex] then begin MessageBox(Self.Handle,'jumlah data variabel perlakuan I tidak sama !! Mohon pilih variabel dengan jumlah data yang sama','Warning',MB_OK); end else begin if jumdat[ComboBox8.ItemIndex] <> jumdat[ComboBox9.ItemIndex] then begin MessageBox(Self.Handle,'jumlah data variabel perlakuan II tidak sama !! Mohon pilih variabel dengan jumlah data yang sama','Warning',MB_OK); end else begin for i:=0 to nx1-1 do begin x1:= x1 + dat[ComboBox6.ItemIndex][i]; x2:= x2 + dat[ComboBox7.ItemIndex][i]; end; for i:=0 to ny1-1 do begin y1:= y1 + dat[ComboBox8.ItemIndex][i]; y2:= y2 + dat[ComboBox9.ItemIndex][i]; end; ratax1:=x1/nx1; ratax2:=x2/nx2; ratay1:=y1/ny1; ratay2:=y2/ny2; for i:=0 to nx1-1 do begin tempx1:= tempx1 + ((dat[ComboBox6.ItemIndex][i]ratax1)*(dat[ComboBox6.ItemIndex][i]-ratax1)); tempx2:= tempx2 + ((dat[ComboBox7.ItemIndex][i]ratax2)*(dat[ComboBox7.ItemIndex][i]-ratax2)); tempx3:= tempx3 + ((dat[ComboBox6.ItemIndex][i]ratax1)*(dat[ComboBox7.ItemIndex][i]-ratax2)); end; for i:=0 to ny1-1 do begin tempy1:= tempy1 + (sqr(dat[ComboBox8.ItemIndex][i]-ratay1)); tempy2:= tempy2 + (sqr(dat[ComboBox9.ItemIndex][i]-ratay2)); tempy3:= tempy3 + ((dat[ComboBox8.ItemIndex][i]ratay1)*(dat[ComboBox9.ItemIndex][i]-ratay2));
L49 end; sx1:=tempx1/(nx1-1); sx2:=tempx2/(nx1-1); sx3:=tempx3/(nx1-1); sy1:=tempy1/(ny1-1); sy2:=tempy2/(ny1-1); sy3:=tempy3/(ny1-1); sgab1:=(((nx1-1)*sx1)/(nx1+ny1-2))+(((ny1-1)*sy1)/(nx1+ny1-2)); sgab2:=(((nx1-1)*sx2)/(nx1+ny1-2))+(((ny1-1)*sy2)/(nx1+ny1-2)); sgab3:=(((nx1-1)*sx3)/(nx1+ny1-2))+(((ny1-1)*sy3)/(nx1+ny1-2)); si1:=sgab2/((sgab1*sgab2)-(sqr(sgab3))); si2:=sgab1/((sgab1*sgab2)-(sqr(sgab3))); si3:=(-sgab3)/((sgab1*sgab2)-(sqr(sgab3))); d:=((((ratax1-ratay1)*si1)+((ratax2-ratay2)*si3))*(ratax1-ratay1))+((((ratax1ratay1)*si3)+((ratax2-ratay2)*si2))*(ratax2-ratay2)); t:=((nx1*ny1)/(nx1+ny1))*d; f:=((nx1+ny1-2-1)/((nx1+ny1-2)*2))*t; Memo7.Lines.Add('Perlakuan I:'); memo7.Lines.Add('x1= '+FloatToStr(ratax1)); memo7.Lines.Add('x2= '+FloatToStr(ratax2)); Memo7.Lines.Add('n1= '+intToStr(nx1)); Memo7.Lines.Add('s11= '+floatToStr(sx1)); Memo7.Lines.Add('s12=s21= '+floatToStr(sx3)); Memo7.Lines.Add('s22= '+floatToStr(sx2)); Memo7.Lines.Add('Perlakuan II:'); memo7.Lines.Add('x1= '+FloatToStr(ratay1)); memo7.Lines.Add('x2= '+FloatToStr(ratay2)); Memo7.Lines.Add('n2= '+intToStr(ny1)); Memo7.Lines.Add('s11= '+floatToStr(sy1)); Memo7.Lines.Add('s12=s21= '+floatToStr(sy3)); Memo7.Lines.Add('s22= '+floatToStr(sy2)); memo7.Lines.Add('hitung'); memo7.Lines.Add('sgab = '+FloatToStr(sgab1)+' '+FloatToStr(sgab3)); memo7.Lines.Add(' '+FloatToStr(sgab3)+' '+FloatToStr(sgab2)); memo7.Lines.Add('sgab-i = '+FloatToStr(si1)+' '+FloatToStr(si3)); memo7.Lines.Add(' '+FloatToStr(si3)+' '+FloatToStr(si2)); Memo7.Lines.Add('d = '+FloatToStr(d)); Memo7.Lines.Add('t-hitung = '+FloatToStr(t)); Memo7.Lines.Add('f-hitung = '+FloatToStr(f)); v2:=nx1+ny2-v1-1; if v2>30 then begin tampung:=31; if v2>40 then begin tampung:=32;
L50 if v2>60 then begin tampung:=33; if v2>120 then begin tampung:=34; end end end end else begin tampung:=v2; end; v2:=tampung; if RadioButton5.Checked=true then begin ftabel:=StrToFloat( sim2[v2-1][v1-1]); end else begin ftabel:=StrToFloat(sim1[v2-1][v1-1]); end; memo7.Lines.Add('F-tabel : '+FloatToStr(ftabel)); if f>ftabel then begin Memo8.Lines.Add('karena '+FloatToStr(f)+'>'+FloatToStr(ftabel)+'maka tolak ho'); Memo8.Lines.Add('yang berarti rata-rata perlakuan I berbeda dengan rata-rata perlakuan II'); end else begin Memo8.Lines.Add('karena '+FloatToStr(f)+'<'+FloatToStr(ftabel)+'maka terima ho'); Memo8.Lines.Add('yang berarti rata-rata perlakuan I sama dengan rata-rata perlakuan II'); end; end; end; end; end; procedure TForm1.loadClick(Sender: TObject); var fileName : TStrings; fileText : TextFile; validasi : String; begin Memo1.Clear;
L51 Edit1.Clear; OpenDialog1.Execute; fileName := OpenDialog1.Files; if fileName.Text <> '' then begin AssignFile(fileText,OpenDialog1.FileName); Reset(fileText); Readln(fileText,validasi); Edit1.Text := validasi; while not eof(fileText) do begin Readln(fileText,validasi); memo1.Lines.add(validasi); end; CloseFile(fileText); end; end; procedure TForm1.bgraphClick(Sender: TObject); begin pmenu.Visible:=false; graph.Visible:=true; pinput.Visible:=false; pdata.Visible:=false; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; end; procedure TForm1.bokClick(Sender: TObject); begin pmenu.Visible:=false; graph.Visible:=false; pinput.Visible:=false; pdata.Visible:=true; pujit.Visible:=false; photelling.Visible:=false; plogin.Visible:=false; end; procedure TForm1.bsaveClick(Sender: TObject); var i,j : Integer; fileName : TStrings; fileText : TextFile;
L52 begin if trim(Edit1.Text)='' then begin MessageBox(Self.Handle,'Masukkan nama Variabel','Warning',MB_OK); Edit1.SetFocus; end else begin if trim(Memo1.Text)='' then begin MessageBox(Self.Handle,'Tidak ada data yang dimasukkan. Tolong masukkan data','Warning',MB_OK); memo1.SetFocus; end else OpenDialog1.Execute; fileName := OpenDialog1.Files; if fileName.Text <> '' then begin AssignFile(fileText,OpenDialog1.FileName); Rewrite(fileText); Writeln(fileText,edit1.text); for i := 1 to Memo1.Lines.Count do begin Writeln(fileText,memo1.Lines[i-1]); end; CloseFile(fileText); end; end; end; end.
L53 Lampiran 7. Form Pengumpulan Data DATA CUSTOMER No. Customer Nama : Alamat : Tanggal lahir : Umur : Jenis Kelamin : Sering menggunakan layar monitor(komputer, televisi/main game) Tanggal Refraksi pertama : Hasil Refraksi Pertama : Right Left
Sph Sph
Cyl Cyl
Ax Ax
Cyl Cyl
Ax Ax
PD = Tanggal Refraksi Kedua (setelah 6 bulan) : Hasil Refraksi Kedua (setelah 6 bulan) : Right Left
Sph Sph
PD = Jenis Lensa yang digunakan :
Tanda Tangan (customer),
P [ Fv1,v2 ≤ f ] : .99 V1 V2 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 40 60 120 ~
1 39.86 8.53 5.54 4.54 4.06 3.78 3.59 3.46 3.36 3.29 3.23 3.18 3.14 3.10 3.07 3.05 3.03 3.01 2.99 2.97 2.96 2.95 2.94 2.93 2.92 2.91 2.90 2.89 2.89 2.88 2.84 2.79 2.75 2.71
2 49.50 9.00 5.46 4.32 3.78 3.46 3.26 3.11 3.01 2.92 2.86 2.81 2.76 2.73 2.70 2.67 2.64 2.62 2.61 2.59 2.57 2.56 2.55 2.54 2.53 2.52 2.51 2.50 2.50 2.49 2.44 2.39 2.35 2.30
3 53.59 9.16 5.39 4.19 3.62 3.29 3.07 2.92 2.81 2.73 2.66 2.61 2.56 2.52 2.49 2.46 2.44 2.42 2.40 2.38 2.36 2.35 2.34 2.33 2.32 2.31 2.30 2.29 2.28 2.28 2.23 2.18 2.13 2.08
4 55.83 9.24 5.34 4.11 3.52 3.18 2.96 2.81 2.69 2.61 2.54 2.48 2.43 2.39 2.36 2.33 2.31 2.29 2.27 2.25 2.23 2.22 2.21 2.19 2.18 2.17 2.17 2.16 2.15 2.14 2.09 2.04 1.99 1.94
5 57.24 9.29 5.31 4.05 3.45 3.11 2.88 2.73 2.61 2.52 2.45 2.39 2.35 2.31 2.27 2.24 2.22 2.20 2.18 2.16 2.14 2.13 2.11 2.10 2.09 2.08 2.07 2.06 2.06 2.05 2.00 1.95 1.90 1.85
6 58.20 9.33 5.28 4.01 3.40 3.05 2.83 2.67 2.55 2.46 2.39 2.33 2.28 2.24 2.21 2.18 2.15 2.13 2.11 2.09 2.08 2.06 2.05 2.04 2.02 2.01 2.00 2.00 1.99 1.98 1.93 1.87 1.82 1.77
7 58.91 9.35 5.27 3.98 3.37 3.01 2.78 2.62 2.51 2.41 2.34 2.28 2.23 2.19 2.16 2.13 2.10 2.08 2.06 2.04 2.02 2.01 1.99 1.98 1.97 1.96 1.95 1.94 1.93 1.93 1.87 1.82 1.77 1.72
8 59.44 9.37 5.25 3.95 3.34 2.98 2.75 2.59 2.47 2.38 2.30 2.24 2.20 2.15 2.12 2.09 2.06 2.04 2.02 2.00 1.98 1.97 1.95 1.94 1.93 1.92 1.91 1.90 1.89 1.88 1.83 1.77 1.72 1.67
9 59.86 9.38 5.24 3.94 3.32 2.96 2.72 2.56 2.44 2.35 2.27 2.21 2.16 2.12 2.09 2.06 2.03 2.00 1.98 1.96 1.95 1.93 1.92 1.91 1.89 1.88 1.87 1.87 1.86 1.85 1.79 1.74 1.68 1.63
10
12
15
20
24
30
40
60
60.19 9.39 5.23 3.92 3.30 2.94 2.70 2.54 2.42 2.32 2.25 2.19 2.14 2.10 2.06 2.03 2.00 1.98 1.96 1.94 1.92 1.90 1.89 1.88 1.87 1.86 1.85 1.84 1.83 1.82 1.76 1.71 1.65 1.60
60.71 9.41 5.22 3.90 3.27 2.90 2.67 2.50 2.38 2.28 2.21 2.15 2.10 2.05 2.02 1.99 1.96 1.93 1.91 1.89 1.87 1.86 1.84 1.83 1.82 1.81 1.80 1.79 1.78 1.77 1.71 1.66 1.60 1.55
61.22 9.42 5.20 3.87 3.24 2.87 2.63 2.46 2.34 2.24 2.17 2.10 2.05 2.01 1.97 1.94 1.91 1.89 1.86 1.84 1.83 1.81 1.80 1.78 1.77 1.76 1.75 1.74 1.73 1.72 1.66 1.60 1.55 1.49
61.74 9.44 5.18 3.84 3.21 2.84 2.59 2.42 2.30 2.20 2.12 2.06 2.01 1.96 1.92 1.89 1.86 1.84 1.81 1.79 1.78 1.76 1.74 1.73 1.72 1.71 1.70 1.69 1.68 1.67 1.61 1.54 1.48 1.42
62.05 9.45 5.17 3.83 3.19 2.81 2.57 2.40 2.27 2.17 2.10 2.03 1.98 1.93 1.89 1.86 1.83 1.80 1.78 1.76 1.74 1.73 1.71 1.70 1.68 1.67 1.66 1.65 1.64 1.63 1.57 1.50 1.45 1.38
62.26 9.46 5.17 3.82 3.17 2.80 2.56 2.38 2.25 2.16 2.08 2.01 1.96 1.91 1.87 1.84 1.81 1.78 1.76 1.74 1.72 1.70 1.69 1.67 1.66 1.65 1.64 1.63 1.62 1.61 1.54 1.48 1.41 1.34
62.53 9.47 5.16 3.80 3.16 2.78 2.54 2.36 2.23 2.13 2.05 1.99 1.93 1.89 1.85 1.81 1.78 1.75 1.73 1.71 1.69 1.67 1.66 1.64 1.63 1.61 1.60 1.59 1.58 1.57 1.51 1.44 1.37 1.30
62.79 9.47 5.15 3.79 3.14 2.76 2.51 2.34 2.21 2.11 2.03 1.96 1.90 1.86 1.82 1.78 1.75 1.72 1.70 1.68 1.66 1.64 1.62 1.61 1.59 1.58 1.57 1.56 1.55 1.54 1.47 1.40 1.32 1.24
P [ Fv1,v2 ≤ f ] : .95 V1
1
2
3
4
5
6
7
8
9
10
12
15
20
24
30
40
60
V2 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 40 60 120 ~
161.5 18.51 10.13 7.71 6.61 5.99 5.59 5.32 5.12 4.96 4.84 4.75 4.67 4.60 4.54 4.49 4.45 4.41 4.38 4.35 4.32 4.30 4.28 4.26 4.24 4.23 4.21 4.20 4.18 4.17 4.08 4.00 3.92 3.84
199.5 19.00 9.55 6.94 5.79 5.14 4.74 4.46 4.26 4.10 3.98 3.89 3.81 3.74 3.68 3.63 3.59 3.55 3.52 3.49 3.47 3.44 3.42 3.40 3.39 3.37 3.35 3.34 3.33 3.32 3.23 3.15 3.07 3.00
215.7 19.16 9.28 6.59 5.41 4.76 4.35 4.07 3.86 3.71 3.59 3.49 3.41 3.34 3.29 3.24 3.20 3.16 3.13 3.10 3.07 3.05 3.03 3.01 2.99 2.98 2.96 2.95 2.93 2.92 2.84 2.76 2.68 2.61
224.6 19.25 9.12 6.39 5.19 4.53 4.12 3.84 3.63 3.48 3.36 3.26 3.18 3.11 3.06 3.01 2.96 2.93 2.90 2.87 2.84 2.82 2.80 2.78 2.76 2.74 2.73 2.71 2.70 2.69 2.61 2.53 2.45 2.37
230.2 19.30 9.01 6.26 5.05 4.39 3.97 3.69 3.48 3.33 3.20 3.11 3.03 2.96 2.90 2.85 2.81 2.77 2.74 2.71 2.68 2.66 2.64 2.62 2.60 2.59 2.57 2.56 2.55 2.53 2.45 2.37 2.29 2.21
234.0 19.33 8.94 6.16 4.95 4.28 3.87 3.58 3.37 3.22 3.09 3.00 2.92 2.85 2.79 2.74 2.70 2.66 2.63 2.60 2.57 2.55 2.53 2.51 2.49 2.47 2.46 2.45 2.43 2.42 2.34 2.25 2.18 2.10
236.8 19.35 8.89 6.09 4.88 4.21 3.79 3.50 3.29 3.14 3.01 2.91 2.83 2.76 2.71 2.66 2.61 2.58 2.54 2.51 2.49 2.46 2.44 2.42 2.40 2.39 2.37 2.36 2.35 2.33 2.25 2.17 2.09 2.01
238.9 19.37 8.85 6.04 4.82 4.15 3.73 3.44 3.23 3.07 2.95 2.85 2.77 2.70 2.64 2.59 2.55 2.51 2.48 2.45 2.42 2.40 2.37 2.36 2.34 2.32 2.31 2.29 2.28 2.27 2.18 2.10 2.02 1.94
240.5 19.38 8.81 6.00 4.77 4.10 3.68 3.39 3.18 3.02 2.90 2.80 2.71 2.65 2.59 2.54 2.49 2.46 2.42 2.39 2.37 2.34 2.32 2.30 2.28 2.27 2.25 2.24 2.22 2.21 2.12 2.04 1.96 1.88
241.9 19.40 8.79 5.96 4.74 4.06 3.64 3.35 3.14 2.98 2.85 2.75 2.67 2.60 2.54 2.49 2.45 2.41 2.38 2.35 2.32 2.30 2.27 2.25 2.24 2.22 2.20 2.19 2.18 2.16 2.08 1.99 1.91 1.83
243.9 19.41 8.74 5.91 4.68 4.00 3.57 3.28 3.07 2.91 2.79 2.69 2.60 2.53 2.48 2.42 2.38 2.34 2.31 2.28 2.25 2.23 2.20 2.18 2.16 2.15 2.13 2.12 2.10 2.09 2.00 1.92 1.83 1.75
246.0 19.43 8.70 5.86 4.62 3.94 3.51 3.22 3.01 2.85 2.72 2.62 2.53 2.46 2.40 2.35 2.31 2.27 2.23 2.20 2.18 2.15 2.13 2.11 2.09 2.07 2.06 2.04 2.03 2.01 1.92 1.84 1.75 1.67
248.0 19.45 8.66 5.80 4.56 3.87 3.44 3.15 2.94 2.77 2.65 2.54 2.46 2.39 2.33 2.28 2.23 2.19 2.16 2.12 2.10 2.07 2.05 2.03 2.01 1.99 1.97 1.96 1.94 1.93 1.84 1.75 1.66 1.57
249.3 19.46 8.63 5.77 4.52 3.83 3.40 3.11 2.89 2.73 2.60 2.50 2.41 2.34 2.28 2.23 2.18 2.14 2.11 2.07 2.05 2.02 2.00 1.97 1.96 1.94 1.92 1.91 1.89 1.88 1.78 1.69 1.60 1.51
250.1 19.46 8.62 5.75 4.50 3.81 3.38 3.08 2.86 2.70 2.57 2.47 2.38 2.31 2.25 2.19 2.15 2.11 2.07 2.04 2.01 1.98 1.96 1.94 1.92 1.90 1.88 1.87 1.85 1.84 1.74 1.65 1.55 1.46
251.1 19.47 8.59 5.72 4.46 3.77 3.34 3.04 2.83 2.66 2.53 2.43 2.34 2.27 2.20 2.15 2.10 2.06 2.03 1.99 1.96 1.94 1.91 1.89 1.87 1.85 1.84 1.82 1.81 1.79 1.69 1.59 1.50 1.39
252.2 19.48 8.57 5.69 4.43 3.74 3.30 3.01 2.79 2.62 2.49 2.38 2.30 2.22 2.16 2.11 2.06 2.02 1.98 1.95 1.92 1.89 1.86 1.84 1.82 1.80 1.79 1.77 1.75 1.74 1.64 1.53 1.43 1.32