Kamis, 10 Maret 2011

Membuat Histogram dan Poligon pada R-Programing

Rumus untuk menampilkan  :
  • HISTOGRAM
           HIST(data,main="nama Judul yang diinginkan)

  • POLIGON
           PLOT (titik tengah,frekuensi,main ="nama Judul yang diinginkan)
Untuk merubah warna dan garis poligon menggunakan rumus :
           POLIGON(titik tengah, frekuensi, col ="warna yang diinginkan",border="warna yang diinginkan)


CONTOH :

Untuk data tersebar : 
10,12,15,13,20,24,28,24,30,32,32,35,38,20,40,50,45,40,55,65,
70,68,75,55,74,81,85,85,72,55,45,40,55,50,72,85,38,75,20,10,
12,13,25,40,50,56,78,89,90,95


Yang sudah dibuat suatu tabel Distributif Frekuensinya, sebagai berikut : 

Menampilkan histogram bisa menggunakan rumus :
Hist(data,main=”Daftar_Pemasukan_Buku”) 

Menampilkan poligon kita harus mendeklarasikan/menginput titik tengah dan frekuensi yang terdapat pada data terlebih dahulu. 
Titiktengah = c (16.5, 30, 43,  , 95) 
Fi = c (10, 8, 8, …, 3)
Setelah itu untuk mencari mean bisa menggunakan rumus :
Plot (titiktengah, fi, main =”Daftar_Pemasukan_Buku”) 

Untuk merubah warna Poligon, menggunakan rumus :
Polygon (titiktengah, fi, col=”blue”,border=”red”)

Contoh pemecahan persoalan Data tersebar pada R-programing

Diketahui data yang terdiri dari :
10,12,15,13,20,24,28,24,30,32,32,35,38,20,40,50,45,40,55,65,
70,68,75,55,74,81,85,85,72,55,45,40,55,50,72,85,38,75,20,10,
12,13,25,40,50,56,78,89,90,95

Agar mempermudah dalam membuat suatu Tabel Distribusi Frekuensi pada Program-R ini, hal yang dilakukan adalah sebagai berikut :
1.      Mengurutkan data. Rumus : sort (data)

2.      Menentukan jumlah kelas. Rumus :
jumlahkelas = 1 + (3.322*log10 (length (data)))
ket : length (data) merupakan rumus untuk mencari  banyaknya data.
Setelah di enter, untuk memunculkan jumlah kelas ketik >jumlahkelas
Hasil Program diatas muncul : [1] 6.643978

3.      Menentukan jangkauan dengan cara mencari selisih nilai terbesar dan terkecil. Rumus : jangkauan = max (data )- min (data) , lalu enter
Sama halnya seperti jumlah kelas, untuk menampilkan hasil dari rumus jangkauan maka ketik  jangkauan , lalu enter akan muncul [1] 85



4.      Menentukan nilai interval. Rumus :
Interval = jangkauan/jumlahkelas
Setelah dipanggil kembali, hasilnya akan muncul [1] 12.79354

5.      Agar tidak janggal, jumlah kelas dan intervalnya dibulatkan dengan rumus : round (variable yg ingin dibulatkan).

6.      Menentukan Frekuensi. Rumus :
> frekuensi = function (x,y,z)
 + {a=0
 + for (I in 1 : length(data))
 + {if (x[i] >= y && x[i] <= z)
 + {a = a+1}}
 + print (a)}
Untuk memunculkan frekuensi maka tulis : >frekuensi (data , nilai data pertama kelas yang diinginkan ,nilai data terakhir kelas yg diinginkan ). Contoh mencari frekuensi data pertama : >frekuensi (data,10,23)

7.      Setelah itu, tabel Distribusi Frekuensi dapat dibuat dengan rumus :
tabel = edit(data.frame()), lalu enter
akan muncul jenela ini, klik var1 untuk merubah judul kolom1 seperti ini:

8.      Untuk pengisiaan kelas, pada kelas pertama nilai yang pertama kali ditulis adalah nilai   terkecil  yaitu 10 sebanyak interval. Kelas yang kedua dan seterusnya dimulai dari nilai data setelah kelas sebelumnya sampai interval. (setelah ditulis lalu close)

9.      Untuk menampilkan table kita hanya dengan cara mengetik nama tabel yang kita buat tersebut. Rumus : >tabel
Setelah dienter akan muncul

Selasa, 01 Maret 2011

TUGAS Struktur & Organisasi Data

SOAL :
  • Buatlah program dengan ketentuan sebagai berikut : 
  1. Mencari panjang string dari sebuah string
  2. Menggabungkan isi dari 2 buah string
  3. Menyisipkan isi sebuah string kedalam string yg lain
  • Buat program untuk menampilkan jurusan dan angkatan seseorang mahasiswa di Gunadarma berdasarkan NPM 
JAWABAN

No. 1
Listing program

Program satu;
uses crt;
Label 1;
var q : char;
    s1,s2,jwb,a,c : string;
    b : integer;
begin
clrscr;
1:
writeln ('------Menu------');
writeln ('1. Mencari panjang dari sebuah string');
writeln ('2. Menggabungkan string');
writeln ('3. Menyisipkan isi sebuah string');
writeln ('===========');
repeat
write ('Masukkan pilihan anda : '); readln (q);
    case q of
   '1': begin
        write ('Masukkan String/kata yang diinginkan : '); readln (s1);
        b:=length (s1);
        writeln ('Banyaknya huruf adalah : ', b);
        end;
   '2': begin
        write ('Masukkan String/kata pertama : '); readln (s1);
        write ('Masukkan String/kata kedua : ');readln (s2);
        a := concat (s1,s2);
        writeln ('Hasilnya adalah ', a);
        end;
   '3': begin
        a:= 'nama dari kelas 2ka17';
        INSERT('saripah',a,5);
        writeln ('hasilnya adalah ', a);
        end;
   end;
write('Apakah anda akan menambah pilihan? (y/t) : ');
readln (jwb);
until (jwb ='t');
readln;
end.

Output program


No. 2
Listing Program 


Program dua;
uses crt;
var npm,jur1,jur2,ang1,ang2 : string;
a,b,c : integer;
begin
clrscr;
write (‘Tuliskan NPM anda :’);
readln (NPM);
(*Gunadarma didirikan pada tahun 1981
Kode jurusan :
1 = Strata 1 ; Sistem Informasi
2 = Diploma 3 ; Manajemen Informatika
3 = Strata 1 ; Manajemen Komputer & Akuntansi*)
jur1:= Copy(npm,1,1);
if jur1 = ’1′ then jur2:= ‘Strata 1 – Sistem Informasi’ else
if jur1 = ’2′ then jur2:= ‘Diploma 3 – Manajemen Informatika’ else
if jur1 = ’3′ then jur2:= ‘Strata 1 – Manajemen Komputer & Akuntansi’ else
jur2:= ‘-’;
if jur2 <> ‘-’ then
Writeln(‘Jurusan anda adalah ‘,jur2,’ dengan kode jurusan ‘,jur1,’.’)
else
Writeln(‘Maaf, kode jurusan anda tidak ada dalam database kami.’);
ang1:= Copy(npm,4,2);
val(ang1,b,c);
if b > 81 then
Writeln(‘Anda termasuk angkatan 19′,b,’.’)
else begin
if b < 10 then begin
str(b:1,ang2);
insert(’0′,ang2,1);
Writeln(‘Anda termasuk angkatan 20′,ang2,’.’); end;
writeln(‘Anda termasuk angkatan 20′,b,’.’);
end;
readln;
end.


Output Program