Shruti Speak's

Discuss the following periods in simulation history? a. The period of Search: Simulation was conducted in FORTRAN and other gernal purpose languages. No specific simulation specific routines. Much effort was on expanding searcn for unifying concepts and the development of reusable routines to facilitate simulation(1955-60) b Advent : It is the period of forerunners of SPL we use today(1961-65) GPSS developd by Geoffery Gordon at IBM and appeared in 1961. General Purpose Simulation system was developed for quick simulation of communication and computer system. It is a block disgram based representation (similar to process flow diagram) and suited for queuing models. Phillip J Kiviat developed GASP (General Activity based simulation program). Originally it was based on GPL ALGOL but later based on FORTRAN. other SPL developed are SIhMULA(extension of ALGOL) c. The Formative period (from 1966-1970) Concepts were reviewed adn refined to promote more consistent re

#include #include #define true 1 #define false 0 void main() { int x[30]; int flag=true,i,a,c,m,x0; float r[30]; printf("\n Enter a,c,m,x0"); scanf("%d%d%d%d",&a,&c,&m,&x0); x[0]=x0; i=1; while(flag==true) { x[i]=(a*x[i-1]+c)%m; r[i]=x[i]/(float)m; if(x[i]==x[0])//Now onwards series will repeat flag=false; i++; printf("x[i]=%d\n",x[i-1]); } getch(); } omprakash sharma 4552/09

#include #include #include double f(int x, double v, double a, double b) { if(x< v) return 0; else { return b/a*(pow((x-v)/a,b-1))*exp(-pow((x-v)/a,b)); } } double F(int x, double v, double a, double b) { if(x return 0; else { return (1 - exp(-pow((x-v)/a,b))); } } int main() { int x; double v,a,b; clrscr(); printf("enter d value of x, location, shape & scale: "); scanf(" %d %lf %lf %lf",&x, &v, &b, &a); printf(" f(%d) = %f",x,f(x,v,a,b)); printf(" F(%d) = %f",x,F(x,v,a,b)); getch(); return 0; } Pankaj kumar mca4506/09

BY NEHA BAHADUR MCA/4553/09 #include #include #include int inter[9] = {1,1,6,3,7,5,2,4,1}; int service[9] = {4,2,5,4,1,5,4,1,4}; int i=0,j=0; struct eventinfo { int type; int time; struct eventinfo *next; } * header; void addevent(int time, int type) { struct eventinfo * node = (struct eventinfo *)malloc(sizeof(struct eventinfo)); struct eventinfo *p, *q; node->type = type; node -> time = time; if(header->next == NULL) { header ->next = node; node->next = NULL; return ; } p = header->next; q = header; while((p->time next; } q->next = node; node -> next = p; } void print() { struct eventinfo * p = header->next; while(p!=NULL) { //printf("\n"); if(p->type ==1) printf("(A,"); else printf("(D,"); printf("%d)",p->time); p =p->next; } } void depart() { int nexttm; struct eventinfo * node =

by Himanshu Singla #include #include #include int inter[9] = {1,1,6,3,7,5,2,4,1}; int service[9] = {4,2,5,4,1,5,4,1,4}; int i=0,j=0; struct eventinfo { int type; int time; struct eventinfo *next; } * header; void addevent(int time, int type) { struct eventinfo * node = (struct eventinfo *)malloc(sizeof(struct eventinfo)); struct eventinfo *p, *q; node->type = type; node -> time = time; if(header->next == NULL) { header ->next = node; node->next = NULL; return ; } p = header->next; q = header; while((p->time next; } q->next = node; node -> next = p; } void print() { struct eventinfo * p = header->next; while(p!=NULL) { //printf("\n"); if(p->type ==1) printf("(A,"); else printf("(D,"); printf("%d)",p->time); p =p->next; } } void depart() { int nexttm; struct eventinfo * node = header->ne

#include #include #include double f(int x, double v, double a, double b) { if(x< v) return 0; else { return b/a*(pow((x-v)/a,b-1))*exp(-pow((x-v)/a,b)); } } double F(int x, double v, double a, double b) { if(x return 0; else { return (1 - exp(-pow((x-v)/a,b))); } } int main() { int x; double v,a,b; clrscr(); printf("enter d value of x, location, shape & scale: "); scanf(" %d %lf %lf %lf",&x, &v, &b, &a); printf(" f(%d) = %f",x,f(x,v,a,b)); printf(" F(%d) = %f",x,F(x,v,a,b)); getch(); return 0; }

#include #include #include long fact(int n) { if(n<=0) return 1; else return n*fact(n-1); } double poisson(int x, double a) { if(x<0) return 0; else { return (exp(-a)*pow(a,x))/fact(x) ; } } int main() { int x; double mean; clrscr(); printf("enter d value of x & mean: "); scanf(" %d %lf",&x, &mean); printf(" p(%d) = %f",x,poisson(x,mean)); getch(); return 0; } by Amrender

#include #include #include double f(double x, double a, double b, double c) { if(a <= x && x <= b) { return (2*(x-a))/((b-a)*(c-a)); } else if( b < x && x <= c) { return 2*(c-x)/((c-b)*(c-a)); } else return 0; } double F(double x, double a, double b, double c) { if(x<=a) return 0; else if( a c) return 1; } int main() { double x,a,b,c; clrscr(); printf("enter d value of x, a, b & : "); scanf(" %lf %lf %lf %lf",&x, &a, &b, &c); printf(" f(%.2f) = %f",x,f(x,a,b,c)); printf(" F(%.2f) = %f",x,F(x,a,b,c)); getch(); return 0; } ) By Alka (4501/09)

#include #include #include int main() { int a,c,x0,m,n1,n2,true; clrscr(); printf(" enter a, c, x0, m : "); scanf(" %d %d %d %d", &a, &c, &x0, &m); n1 = x0; while(true !=1) { n2 = (a*n1+c) % m; printf(" %.2f\t",(float)n1/m ); if(n2 == x0) true = 1; n1 = n2; } getch(); return 0; } by Amrendra Kumar mca/4549/09

Script for grocery shop with given inter-arrival/service time distribution assumed by Amrendra Kumar mca/4549/09 #include #include #include void addevent(int,int); void depart(); void arrival(); struct eventinfo { int type; int time; struct eventinfo *next; } * header; int inter[9] = {1,1,6,3,7,5,2,4,1}; int service[9] = {4,2,5,4,1,5,4,1,4}; int i=0,j=0; void main() { int t, eventtime; clrscr(); header = (struct eventinfo *) malloc(sizeof(struct eventinfo)); header ->time=0; header->next = NULL; header->type = 0; t =0; addevent(0,1); eventtime = header->next->time; while(t<=60) { if(t == eventtime) { printf("\nt=%d ",t); if(header->next->type ==1) arrival(); else depart(); if(header->next != NULL) eventtime = header->next->time; else eventtime = 100; if(i>=9 || j&