Norma Legal Oficial del día 24 de marzo del año 2003 (24/03/2003)
Si desea descargar el documento entero como pdf click aquí.
TEXTO DE LA PÁGINA 68
Pag. 241374
CTSxd = zerod;
SEPARATA ESPECIAL
MORDAZA, lunes 24 de marzo de 2003
Do[CTSxd[[ind]] = InvSignald[[ind]] * FactorCx, {ind, nd}]; Print["Costo Total de Senalizacion 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"] CTd Print[" "] Print[Ponderacion 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"] TrafTotd Print[""] 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; TrafTotNac Print[""] PondNacd = zerod; Do[PondNacd[[ind]] = TrafTotd[[ind]] / TrafTotNac, {ind, nd}] Print["Ponderacion Nacional de Trafico"] PondNacd Print[""]