Simulacion de sistemas

PRACTICA # 2
SIS2520 A
SIMULACION DE SISTEMAS
NOMBRE : JOSE MARIA ZUBIETA VIRACA FECHA: 30/12/11

PROBLEMA Nº 1
1.-MODELO


N= numero de experimentos
i= contador de experimentos
r= Numero aleatorio entre (0,1)
nc = número de camiones necesarios
c : costo sin la compra de otro camión
cc : costo con la compra de otro camión
tc : costo total de la simulación (si la compra de otrocamión)
tcc : costo total de la simulación (con la compra de otro camión)
2.- CODIGO

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int n,i,c=0,nc,cc=0,tc=0,tcc=0;
double r;
n= StrToInt(Edit1->Text);
randomize ();
sg->RowCount= sg->RowCount - 1000;
for (i=1;i 0.12 && r 0.3 && r 0.63 && r Cells[0][i]=i;
sg->Cells[1][i]=r;
sg->Cells[2][i]=nc;sg->Cells[3][i]=c;
sg->Cells[4][i]=cc;
sg->RowCount= sg->RowCount +1;

}
sg->RowCount= sg->RowCount +1;
tc=tc+c;
tcc=tcc+cc;
sg->Cells[1][i]="Sumatorias";
sg->Cells[2][i]="";
sg->Cells[3][i]=tc;
sg->Cells[4][i]=tcc;
}
//---------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
sg->Cells[0][0] = "Dia";
sg->Cells[1][0]= "Nº Aleatorio";
sg->Cells[2][0] = "Nº de camiones";
sg->Cells[3][0] = "Costo Actual";
sg->Cells[4][0] = "Costo con nuevo camion";
}


3.- SIMULACION 1 semana

2 semanas

1 mes

Tras la simulación para una semana, 2 semanas y un mes del modelo, podemos decir que es aconsejable comprar otro camión, ya que la empresa bajaría los costostotales, La tres simulaciones nos muestran que los costos totales con la compra del camión son inferiores a los costos actuales de la empresa.

PROBLEMA Nº 2
1.-MODELO

N= numero de experimentos
i= contador de experimentos
r= Numero aleatorio entre (0,1)
vi = valor inicial
vt : Valor total al finalizar la simulación

2. - CODIGO

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{int n,i;
double vi, vt = 0;
double r;
String cot;
n= StrToInt(Edit1->Text);
vi = Edit2->Text.ToDouble();
randomize ();
sg->RowCount= sg->RowCount - 1000;
for (i=1;i 0.05 && r 0.125 && r 0.275 && r Cells[0][i]=i;
sg->Cells[1][i]=r;
sg->Cells[2][i]=cot;
sg->Cells[3][i]= vi;
vt=vt+vi;
//vi = Edit2->Text.ToDouble();
sg->RowCount= sg->RowCount +1;

}sg->RowCount= sg->RowCount +1;
sg->Cells[1][i]="Sumatoria";
sg->Cells[2][i]="";
sg->Cells[3][i]= vt;
Label5->Caption=vt;
}
//-------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
sg->Cells[0][0] = "Dia";
sg->Cells[1][0] = "Nº Aleatorio";
sg->Cells[2][0] = "Cotizacion";
sg->Cells[3][0] = "Valortotal";
}


3.- SIMULACION 1 mes


3 Meses

1 semestre

Es apropiado invertir en estas acciones puesto que la simulación nos muestra que es en los lapsos de tiempo establecidos las acciones tienden a crecer.

PROBLEMA Nº 3
1.-MODELO

N= numero de experimentos
i= contador de experimentos
j= contador de oportunidades usadas
r1,r2,r3= Números aleatorios entre (0,1)
pp =partidas perdidas
sum : suma de los valores inferiores
tg: Total ganado
map: monto total del apostador
ap: monto de la apuesta por cada intento
g: ganancia por cada intento
D1,D2,D3: Valores de las caras superiores de los dados
tg: monto total ganado al finalizar la simulación
prob: Probabilidad de perder en el juego

2. - CODIGO

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{int n,i,j,pg=0,pp=0,sum,opu;
int d1,d2,d3;
double map,ap,g,tg=0,r1,r2,r3,prob;
String res;
n = Edit3->Text.ToDouble();
map = Edit1->Text.ToDouble();
ap = Edit2->Text.ToDouble();
randomize();
sg->RowCount = sg->RowCount -1000;
for(i=1;i= 6)
{
g =(d1-j)*ap;
tg=tg+g;
opu=j;
j = d1+1;
res = "GANA";
map =...