1. float a,c,x[50001], Z[50001],U[50001],tt[50001];

LAMPIRAN 1 KODE PROGRAM SIMULASI M/M/1

#include<stdio.h> #include #include<math.h> main() { float a,c,x[50001], Z[50001],U[50001],tt[50001]; float tk[50001], tm[50001], ts[50001], tan[50001], tds[50001]; float wqtotal, wq, y, tttotal, ttr, z, wstotal, ws, w; float lq, ls, l; float lamda, p; int i,m,j,k,N,g,h,jlhan;

printf("\n ------------------------------------------------------------------------------"); printf("\n ----------printf("\n ----------");

-------------"); PROGRAM PENGHITUNG

-------------

printf("\n ----------- KINERJA SISTEM ANTRIAN M/M/1 PADA PACKET SWITCHING -------------"); printf("\n ----------printf("\n -----------

(SIMULASI)

-------------"); -------------");

printf("\n ------------------------------------------------------------------------------"); printf("\n\n");

Universitas Sumatera Utara

printf("\n Inputkan Parameter Pembangkit Bilangan Acak "); printf("\n

a, c, m, Z[0]

: ");

scanf("%f %f %d %f", &a, &c, &m, &Z[0]); printf("\n Masukkan jumlah paket

: ");

scanf("%d", &N);

tk[0]=0; ts[0]=0; tan[0]=0; y=0; z=0; w=0; g=0;

for(i=1;i<=N;i++) {

/* Pembangkitan bilangan acak LCG */ x[i]=(a*Z[i-1]) + c; Z[i]=fmod(x[i],m); U[i]=Z[i]/m;

/* Waktu kedatangan */ lamda = N/1; tk[i]=tk[i-1]+(-(1/lamda)*log(U[i]));


/* Waktu transaksi */ tt[i]=(-(49.824/pow(10,6)))*log(U[i]);

/* Waktu mulai */ if(ts[i-1] < tk[i]) tm[i]=tk[i]; else if(ts[i-1]>=tk[i]) tm[i]=ts[i-1];

/* Waktu Selesai */ ts[i]=tm[i]+tt[i];

/* Waktu di dalam antrian */ tan[i]=tm[i]-tk[i];

/* Jumlah paket yang antri */ if(tan[i]==0) h=0; else if(tan[i]>0) h=1; jlhan=g+h; g=jlhan;

/* Waktu di dalam sistem */ tds[i]=tt[i]+tan[i];


/* Rata-rata waktu pada tempat antri */ wqtotal=y+tan[i]; y=wqtotal; wq=wqtotal/N;

/* Rata-rata waktu transaksi /pelayanan */ tttotal=z+tt[i]; z=tttotal; ttr=tttotal/N;

/* Rata-rata waktu di dalam sistem */ wstotal=w+tds[i]; w=wstotal; ws=wstotal/N;

Z[i-1]=Z[i]; }

/* Rata-rata jumlah paket didalam sistem */ ls=wstotal/ts[N]; /* Rata-rata jumlah paket didalam server/pelayan */ l=tttotal/(ts[N]*tttotal); /* Rata-rata jumlah paket didalam tempat antri */ lq=wqtotal/ts[N];


p=lamda*ttr; printf("\n\n * Utilisasi (p)

: %f ", p);

printf("\n\n");

printf("\n\n Sehingga : "); printf("\n - Rata-rata waktu dalam antrian printf("\n - Rata-rata waktu dalam pelayanan printf("\n - Rata-rata waktu dalam sistem

:%f", wq); :%f", ttr); :%f", ws);

printf("\n - Rata-rata jumlah paket dalam antrian :%f", lq); printf("\n - Rata-rata jumlah paket dalam pelayanan :%f", l); printf("\n - Rata-rata jumlah paket dalam sistem :%f", ls);

getch();

}


LAMPIRAN 2 KODE PROGRAM SIMULASI M/D/1

#include<stdio.h> #include #include<math.h> main() { float a,c,x[50001], Z[50001],U[50001],tt[50001]; float tk[50001], tm[50001], ts[50001], tan[50001], tds[50001]; float wqtotal, wq, y, tttotal, ttr, z, wstotal, ws, w; float lq, ls, l; float lamda, p; int i,m,j,k,N,g,h,jlhan;

printf("\n ------------------------------------------------------------------------------"); printf("\n ----------printf("\n ----------");


-------------

printf("\n ----------- KINERJA SISTEM ANTRIAN M/D/1 PADA PACKET SWITCHING -------------"); printf("\n -----------

(SIMULASI)

printf("\n -----------

-------------"); -------------");

printf("\n ------------------------------------------------------------------------------"); printf("\n\n"); printf("\n Inputkan Parameter Pembangkit Bilangan Acak "); printf("\n

a, c, m, Z[0]

: ");


scanf("%f %f %d %f", &a, &c, &m, &Z[0]); printf("\n Masukkan jumlah paket

: ");

scanf("%d", &N);

tk[0]=0; ts[0]=0; tan[0]=0; y=0; z=0; w=0; g=0;

for(i=1;i<=N;i++) {

/* Pembangkitan bilangan acak LCG */ x[i]=(a*Z[i-1]) + c; Z[i]=fmod(x[i],m); U[i]=Z[i]/m;

/* Waktu kedatangan */ lamda = N/1; tk[i]=tk[i-1]+(-(1/lamda)*log(U[i]));


/* Waktu transaksi */ tt[i]=49.994/pow(10,6);

/* Waktu mulai */ if(ts[i-1] < tk[i]) tm[i]=tk[i]; else if(ts[i-1]>=tk[i]) tm[i]=ts[i-1];

/* Waktu Selesai */ ts[i]=tm[i]+tt[i];

/* Waktu di dalam antrian */ tan[i]=tm[i]-tk[i];

/* Jumlah paket yang antri */ if(tan[i]==0) h=0; else if(tan[i]>0) h=1; jlhan=g+h; g=jlhan;

/* Waktu di dalam sistem */ tds[i]=tt[i]+tan[i];


/* Rata-rata waktu pada tempat antri */ wqtotal=y+tan[i]; y=wqtotal; wq=wqtotal/N;

/* Rata-rata waktu transaksi /pelayanan */ tttotal=z+tt[i]; z=tttotal; ttr=tttotal/N;

/* Rata-rata waktu di dalam sistem */ wstotal=w+tds[i]; w=wstotal; ws=wstotal/N;

Z[i-1]=Z[i];

} /* Rata-rata jumlah paket didalam sistem */ ls=wstotal/ts[N]; /* Rata-rata jumlah paket didalam server/pelayan */ l=tttotal/(ts[N]*tttotal); /* Rata-rata jumlah paket didalam tempat antri */ lq=wqtotal/ts[N];


p=lamda*ttr; printf("\n\n * Utilisasi (p)

: %f ", p);

printf("\n\n");

printf("\n\n Sehingga : "); printf("\n - Rata-rata waktu dalam antrian printf("\n - Rata-rata waktu dalam pelayanan printf("\n - Rata-rata waktu dalam sistem

:%f", wq); :%f", ttr); :%f", ws);

printf("\n - Rata-rata jumlah paket dalam antrian :%f", lq); printf("\n - Rata-rata jumlah paket dalam pelayanan :%f", l); printf("\n - Rata-rata jumlah paket dalam sistem :%f", ls);

getch();

}


LAMPIRAN 3 KODE PROGRAM TEORI M/M/1

#include<stdio.h> #include #include<math.h> main() { float lamda, miu, var, lq, ls, wq, ws, p, ttr; printf("\n ------------------------------------------------------------------------------"); printf("\n ----------printf("\n ----------");


-------------

printf("\n ----------- KINERJA SISTEM ANTRIAN M/G/1 PADA PACKET SWITCHING -------------"); printf("\n -----------

(teori)

printf("\n -----------

-------------"); -------------");

printf("\n ------------------------------------------------------------------------------"); printf("\n \n\n\n ") ; printf("\nInput nilai laju kedatangan (lamda) : "); scanf("%f", &lamda); printf("\nInput nilai laju transaksi (miu) : "); scanf("%f", &miu);

ttr=1/miu; var=1/(miu*miu); lq =(lamda*lamda*(ttr*ttr+var))/(2*(1-lamda*ttr));


ls=lq+(lamda*ttr); wq=lq/lamda; ws=wq+ttr; p=lamda/miu;

printf("\n\n Maka : "); printf("\n");

printf("\n - Rata-rata waktu dalam antrian

:%f ", wq);

printf("\n - Rata-rata waktu dalam pelayanan printf("\n - Rata-rata waktu dalam sistem printf("\n - Jumlah paket dalam antrian printf("\n - Jumlah paket dalam pelayanan printf("\n - Jumlah paket dalam sistem printf("\n * Utilisasi (p)

:%f ", ttr); :%f ", ws); :%f ", lq); :1 " ); :%f ", ls);

:%f ", p);

getch();

}


LAMPIRAN 4 KODE PROGRAM TEORI M/D/1

#include<stdio.h> #include #include<math.h> main() { float lamda, miu, var, lq, ls, wq, ws, p, ttr; printf("\n ------------------------------------------------------------------------------"); printf("\n ----------printf("\n ----------");


-------------

printf("\n ----------- KINERJA SISTEM ANTRIAN M/G/1 PADA PACKET SWITCHING -------------"); printf("\n -----------

(teori)

printf("\n -----------

-------------"); -------------");

printf("\n ------------------------------------------------------------------------------"); printf("\n \n\n\n ") ; printf("\nInput nilai laju kedatangan (lamda) : "); scanf("%f", &lamda); printf("\nInput nilai laju transaksi (miu) : "); scanf("%f", &miu);

ttr=1/miu; var =0; lq =(lamda*lamda*(ttr*ttr+var))/(2*(1-lamda*ttr));


ls=lq+(lamda*ttr); wq=lq/lamda; ws=wq+ttr; p=lamda/miu;

printf("\n\n Maka : "); printf("\n");

printf("\n - Rata-rata waktu dalam antrian

:%f ", wq);

printf("\n - Rata-rata waktu dalam pelayanan printf("\n - Rata-rata waktu dalam sistem printf("\n - Jumlah paket dalam antrian printf("\n - Jumlah paket dalam pelayanan printf("\n - Jumlah paket dalam sistem printf("\n * Utilisasi (p)

:%f ", ttr); :%f ", ws); :%f ", lq); :1 " ); :%f ", ls);

:%f ", p);

getch();

}


LAMPIRAN 5 TABEL DISTRIBUSI T


1. float a,c,x[50001], Z[50001],U[50001],tt[50001];

Recommend Documents