R program untuk statistik

Posted by arbi pramana On Senin, 18 Oktober 2010 0 komentar
Misal kita punya data = 65 50 70 75 70 50 45 90 95 70
Contoh masukan data dalm R program.

Data = scan ()
1 : 65 50 70 75 70
2 : 50 45 90 95 70

Tampilan dalam R program










Coba kita tampilkan dalam R program
> Data (enter)










Mensortir data = menggunakan perintah sort, contoh
> Sort (data)










Cara mencari nilai max dan minimumnya, menggunakan perintah .
> Max (data)
> Min (data)







kita coba di sini untuk mencari jangkauan dengan memakai nilai maksimum dan nilai minimum yang tadi telah di dapat.
Rumus jangkauan = data tertinggi – data terendah
Dalam R program = > max (data)- min (data)
Contoh dalam R program





Setelah itu mencari nilai k
Rumus mencari k > k= 1 + 3.32 * log (banyak data)
Dalam R program > k = 1 + 3.32 * log (length(data)) {untuk log R tidak bisa mendefenisikan bentuk LOG, jadi harus mencari nilai log secara manual}
Contoh dalam R program





Mencari interval dengan rumus > interval = jangkauan / k

Dalam bentuk R program




Lakukan pembulatan data menggunakan round (nama variabel), contohnya




Mencari rata rata, menggunakan rumus> mean = jumlah data / banyak data

Dalam R Program > mean = sum (data) / length (data)

Contoh nya




Mencari median dengan rumus > median = banyak data / 2

Contoh dalam R program

Ø Median = length (data) / 2




Mencari frekuensi, menggunakan rumus


Frek = function (x , y , z)

+ {

+ a = 0

+{

+ for ( i in 1 : length (x))

+ {

+ if (x[i] >= y && x[i] <= z )

+ }

+ a= a +1

+ }

+ print (a)

+ }

+ }

>

Contoh dalam program R







hasil


READ MORE

program sederhana untuk menghitung waktu akses pada tape

Posted by arbi pramana On Jumat, 01 Oktober 2010 0 komentar
tambah lagi pada menu editor.


hasilnya seperti berikut :

















buat form awal seperti saat membuat form awal menghitung waktu akses

















ini adalah rumus asli cara menghitung waktu akses :
==> record x ((panjang char/densitas)/kec. akses tape saat membaca) x waktu berhenti x block

lalu buat coding vb nya

Private Sub Command1_Click()
a = Val(Text2.Text) / Val(Text1.Text)
b = Val(Text5.Text)
Text7.Text = (Val(Text5.Text) * (a / Val(Text3.Text))) + Val(Text5.Text) * Val(Text4.Text) * Val(Text6.Text)
End Sub

masukan coding ini kedalam vb, beserta coding yang lainnya.
sbb :

Private Sub Command1_Click()
a = Val(Text2.Text) / Val(Text1.Text)
b = Val(Text5.Text)
Text7.Text = (Val(Text5.Text) * (a / Val(Text3.Text))) + Val(Text5.Text) * Val(Text4.Text) * Val(Text6.Text)
End Sub


Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub


setelah selesai coba di running..

selamat mencoba
READ MORE

program sederhana untuk menghitung kapasitas penyimpanan pada tape

Posted by arbi pramana On 0 komentar
lanjutan yang kemarin, tambah pada menu editor. contoh. sbb :


hasilnya seperti berikut :


lalu buat formnya, disini saya membuat contoh sederhana dalam form :


masukan rumus asli dari cara menghitung kapasitas penyimpanan kedalam format vb nya,
co : panjang tape x 12 / record x (panjang char/densitas) x block

lalu di samakan menggunakan coding vb nya

a = Val(Text4.Text) * 12
b = Val(Text3.Text) / Val(Text1.Text)
c = Val(Text5.Text) * b + Val(Text2.Text) * Val(Text6.Text)
Text7.Text = a / c

masukan coding ini kedalam vb, beserta coding yang lainnya.
sbb :

Private Sub Command1_Click()
a = Val(Text4.Text) * 12
b = Val(Text3.Text) / Val(Text1.Text)
c = Val(Text5.Text) * b + Val(Text2.Text) * Val(Text6.Text)
Text7.Text = a / c
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub


setelah selesai coba di running..

selamat mencoba
READ MORE