Jawaban UTP Komstat

Sebelumnya, saya selaku asissten karena ini sangat mendadak dan besok ada UTS juga jadi jawaban seadanya dan belum diubak ke bahasa yang lebih mudah dipahami oleh kalian jadi tetep semangat ea. Oh ya, program ini 100% Working pada Minitab 16 jadi Insya allah sama juga buat Minitab versi sebelumnya =)

Soal 1


MACRO
Rancob A B C D
MCOLUMN A B C D F G
MCONSTANT k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11
Let k1 = 4
Let k2 = 6
Let F = RSUM(A,B,C,D)
Let k3 = SUM(A)
Let k4 = SUM(B) #hitung
Let k5 = SUM(C)
Let k6 = SUM(D)
Let k7 = k3+k4+k5+k6
Let k8 = (F(5)*k2)+(k4*k1)-k7
Let B(5) = ROUND(k8/((k1-1)*(k2-1)),2)

Let F = RSUM(A,B,C,D)
Let k4 = SUM(B)
Let k9 = SUM(F)
Let k10 = k9**2/(k1*k2) #FK
Let G = F**2
Let k11 = (SUM(G)/k1-k10)/5 #KT Perlakuan
print k11
ENDMACRO


Soal 2


MACRO
Rancob A B C D
MCOLUMN A B C D F
MCONSTANT k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 k12 k13 k14 k15
Let k1 = 4
Let k2 = 6
Let k3 = SUM(A) #hitung
Let k4 = SUM(B)
Let k5 = SUM(C)
Let k6 = SUM(D)
Let F = RSUM(A,B,C,D)
Let k7 = k3+k4+k5+k6
Let k8 = (F(4)*k2)+(k3*k1)-k7
Let A(4) = ROUND(k8/((k1-1)*(k2-1)),2)

Let k3 = SUM(A)
Let k7 = k3+k4+k5+k6
Let k9 = k7**2/(k1*k2) #FK
Let k10 = k3**2
Let k11 = k4**2
Let k12 = k5**2
Let k13 = k6**2
Let k14 = (k10+k11+k12+k13)/k2-k9 #JK Kelompok
Let k15 = k14/3 #KT Kelompok
print k15
ENDMACRO


Soal 3


MACRO
Regresi A B
MCOLUMN A B C D
MCONSTANT k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 k12
Let k1 = COUNT(A) #n
Let C = A*B #xiyi
Let k2 = SUM(C)
Let k3 = SUM(A)
Let k4 = SUM(B)
Let D = A**2 #Sigma X^2
Let k5 = SUM(D)
Let k6 = k3**2 #(Sigma x)^2
Let k7 = k1*k2-(k3*k4)
Let k8 = k1*k5-k6
Let k9 = k7/k8 #Nilai b

Let k10 = k3/k1 #X-bar
Let k11 = k4/k1 #y-bar
Let k12 = k11-(k9*k10) #nilai a
Print k9 k12
REGRESS B 1 A
ENDMACRO


Soal 4


MACRO
Median A
MCOLUMN A B
MCONSTANT k1 k2 k3 k4 k5 k6
Let B = SORT(A)
Let k1 = COUNT(B)
Let k2 = B(1) #Minimal
Let k3 = B(k1) #Maksimal
Let k4 = (-1)**k1
IF k4 = 1
Let k5=k1/2
Let k6=(B(k5)+B(k5+1))/2 #Median Genap
Else
Let k5=(k1+1)/2
Let k6=B(k5) #Median Ganjil
Endif
Print k2 k6 k3
Describe A
ENDMACRO


Soal 5


MACRO
Mean A
MCOLUMN A
MCONSTANT k1 k2 k3 k4 k5 k6 k7 k8 k9
NAME A('volume') k7('Rata-Rata Aritmatik') k8('Rata-Rata Harmoni') k9('Rata-Rata Geometrik')
Let k1 = SUM(A)
Let k2 = COUNT(A)
Let k3 = SUM(1 / A)
Let k4 = 1 / K2
Let k5 = SUM(LOGE(A))
Let k6 = K4 * K5
Let k7 = K1 / K2 #Aritmatik
Let k8 = K2 / K3 #Harmonik
Let k9 = EXP(K6) #Geometrik
Print k10 k11 k12
ENDMACRO


Soal 6

(Oh ya ini belum aku masukin yang koefisien keragaman)

MACRO
Ragam A
MCOLUMN A
MCONSTANT k1 k2 k3 k4 k5 k6
NAME A 'volume' k3 'Ragam'
Let k1 = SUM((A - MEAN(A))**2)
Let k2 = COUNT(A) - 1
Let k3 = K1 / K2 #Ragam
Let k4 = SQRT(k3) #Simpangan Baku
Let k5 = SQRT(k2+1)
Let k6 = k4/k5 #SE Mean
Print k4 k3 k6
DESCRIBE A
ENDMACRO


Soal 7


MACRO
Ragam A
MCOLUMN A B C
MCONSTANT k1 k2 k3 k4 k5 k6 k7 k8 k9
NAME A 'volume' k3 'Ragam' k9 'Simp Rata-Rata'
Let k1 = SUM((A - MEAN(A))**2)
Let k2 = COUNT(A) - 1
Let k3 = K1 / K2 #Ragam
Let k4 = SQRT(k3) #Simpangan Baku
Let B = SORT(A)
Let k5 = B(1)
Let k6 = B(k2+1)
Let k7 = k6 - k5 #Range
Let k8 = SUM(A)/COUNT(A)
Let C = ABS(A - k8)
Let k9 = SUM(C)/COUNT(A) #Simp Rata-Rata
Print k4 k7 k9
DESCRIBE A
ENDMACRO


Semoga Sukses UTSnya. ^^