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 67
MORDAZA, lunes 24 de marzo de 2003
SEPARATA ESPECIAL
Anexo 3: Modificaciones al Codigo en Mathematica
Pag. 241373
Definicion de Trafico local y ponderaciones utilizadas para el promedio 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"] CTCxRemotad Print[" "] CTCxHostd = zerod; Do[CTCxHostd[[ind]] = InvHostd[[ind]] * FactorCx, {ind, nd}]; Print ["Costo Total de Cx Host por Dpto"] CTCxHostd Print[" "] CTCxTandemd = zerod Do[CTCxTandemd[[ind]] = InvTandemd[[ind]] * Factor Cx, {ind, nd}]; Print ["Costo Total de Cx Tandem por Dpto"] CTCxTandemd Print[" "] CTCxd = zerod; Do[CTCxd[[ind]] = CTCxRemotad[[ind]] + CTCxHostd[[ind]] + CTCxTandemd[[ind]], {ind, nd}]; Print["Costo Total de Cx por Dpto"] CTCxd Print[" "] 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[" "]