Tuesday, August 23, 2016

Program uji Korelasi menggunakan matlab dengan menginputkan semua data

copy scrip dibawah ini kemudian jalankan dengan software matlab

 clc;clear;
%membangun objek simbolik x
syms x;
 %menginputkan banyaknya titik
b=input('Banyak soal= ');
c=input('banyaknya responden=');
%menginputkan masing-masing titik
for i=[1:b ]
  for j=1:c   
    fprintf('x%d',i,j);
   bx(i,j)=input(' = ');
   end
end
disp('Keterangan x yang berada di depan adalah nomor soal')
disp('Keterangan x yang ada di belakang adalah nomor responden')
disp('kolom pertama adalah perolehan data untuk soal pertama dari semua responden')
disp('Begitupula seterusnya ')
disp('')
pilih='Y';
    while upper(pilih)=='Y';
        disp('Program Pilihan Anda')
disp('1.korelasi')
disp('2.kembali')
disp('');
        pilih=input('program pilihan anda [1..2]:');
        disp('');
        switch pilih
  case 1
               disp('pilihlah salah satu kolom yang ingin di uji, jika soal pertama maka pilih kolom pertama')
disp('caranya masukkan a(:,1) pada data yang diuji, lihat hasil keluaran z')
u=[bx];
a=[bx]';
z=input('data yang diuji= ')
z1=sum(z);
y=sum(u(1:b,:))'
y1=sum(y);
zy=sum(z.*y);
p=sum(z.^2);
q=sum(y.^2);
korelasi=(c.*zy-z1.*y1)/sqrt((c.*p-z1.^2).*(c.*q-y1.^2))
disp('terima kasih atas kunjungannya')
  pilih=input('coba menu yang lain [Y/T]?','s');
case 2
                disp('keluar dari program');
                return;
            otherwise
                disp('ada kesalahan pada pilihan anda');
        end
    end

Terima Kasih atas kunjungannya dan Semoga Bermanfaat jangan lupa komentarnya untuk membangun blog ini untuk menjadi semakin baik. Mohon maaf jika ada postingan yang kurang berkenan di hati anda.

No comments:

Post a Comment