TEXTO PAGINA: 68
PÆg. 241374 SEPARATA ESPECIAL Lima, lunes 24 de marzo de 2003 CTSxd = zerod; Do[CTSxd[[ind]] = InvSignald[[ind]] * FactorCx, {ind, nd}]; Print["Costo Total de Señalización por Dpto"] CTSxd Print[" "] CTd = zerod; Do[CTd[[ind]] = CTCxRemotad[[ind]] + CTCxHostd[[ind]] + CTCxTandemd[[ind]] + CTTxRemotaHostd[[ind]] + CTTxHostTandem[[ind]] + CTSxd[[ind]], {ind, nd}] Print["Costo Total Anual de los Elementos de red por Dpto"] CTdPrint[" "] Print[Ponderación por Dpto."] Print[""] Traftotd = zerod; Do [ Traftotd[[deptx[[ix]]]] = Traftotd[[deptx[[ix]]]] + (locoutx[[ix]] + interprovoutx[[ix]] + ldx[[ix]] + recldx [[ix]] + intlinx[[ix]] + intloutx[[ix]] + intrax[[ix]]), {ix, nx}] Print["TrafTotd"] TrafTotdPrint[""] Print["Costo Unitario por Departamento"] Print[""] CMed = zerod; Do[CMed[[ind]] = CTd[[ind]] / TrafTotd[[ind]] , {ind, nd}]CMed Print[""] Print[""] TraficoTotal = OpenWrite["TraficoTotal . txt"]; Do[Write[TraficoTotal, TrafTotd[[ind]]] , {ind, nd}] ;Close[TraficoTotal] Print[""] Print[TrafTotNac"] TrafTotNac = Plus @@ TrafTTotd; TrafTotNacPrint[""] PondNacd = zerod; Do[PondNacd[[ind]] = TrafTotd[[ind]] / TrafTotNac, {ind, nd}] Print["Ponderación Nacional de Tráfico"] PondNacdPrint[""]