TEXTO PAGINA: 67
PÆg. 241373 SEPARATA ESPECIAL Lima, lunes 24 de marzo de 2003 Anexo 3: Modificaciones al Código en Mathematica Definición de Tráfico local y ponderaciones utilizadas para el pr omedio nacional Print ["Costos Totales por Elemento de Red por Dpto."] Print [" "] CTCxRemotad = zerod; Do[CTCxRemotad [[ind]] = InvRemotad [[ind]] * FactorCx, {ind, nd}]; Print ["Costo Total de Cx Remota por Dpto"] CTCxRemotadPrint[" "] CTCxHostd = zerod; Do[CTCxHostd[[ind]] = InvHostd[[ind]] * FactorCx, {ind, nd}]; Print ["Costo Total de Cx Host por Dpto"] CTCxHostdPrint[" "] CTCxTandemd = zerod Do[CTCxTandemd[[ind]] = InvTandemd[[ind]] * Factor Cx, {ind, nd}]; Print ["Costo Total de Cx Tandem por Dpto"] CTCxTandemdPrint[" "] CTCxd = zerod; Do[CTCxd[[ind]] = CTCxRemotad[[ind]] + CTCxHostd[[ind]] + CTCxTandemd[[ind]], {ind, nd}]; Print["Costo Total de Cx por Dpto"] CTCxdPrint[" "] CTTxRemotadHostd = zerod; Do[CTTxRemotaHostd[[ind]] = invremotehostd1[[ind]] * FactorTx1 + invremotehostd2[[ind]] * FactorTx2 + invremotehostd3[[ind]] * Factor Tx3, {ind, nd}]; Print ["Costo Total de Tx RemotaHost por Dpto"]CTTxRemotaHostd Print[" "] CTTxHostTandemd = zerod; Do[CTTxHostTandemd[[ind]] = invhosttandemd1[[ind]] * FactorTx1 + invhosttandemd2[[ind]] * Factor Tx2 + invhosttandemd3[[ind]] * FactorTx3, {ind, nd}]; Print["Costo Total de Tx HostTandem por Dpto"] CTTxHostTandemd Print[" "] CTTxd = zerod; Do[CTTxd[[ind]] = CTTxRemotaHostd[[ind]] + CTTxHostTandemd[[ind]], {ind, nd}];Print["Costo Total de Tx por Dpto"] CTTxd Print[" "]