MODELO DE COSTOS PARA LA FIJACIÓN DE CARGO DE

1
Modelo_Integral_ACK.nb
MODELO DE COSTOS PARA LA FIJACIÓN DE CARGO DE
INTERCONEXIÓN TOPE POR TERMINACIÓN DE LLAMADAS EN LA
RED DE TELEFONÍA FIJA LOCAL, EN LAS MODALIDADES DE
TIEMPO DE OCUPACIÓN Y CAPACIDAD
Elaborado por:
Gerencia de Políticas Regulatorias
Organismo Supervisor de la Inversión Privada en Telecomunicaciones
Dirección:
Lima, Perú
Oficina Principal: Calle de La Prosa 136 Lima 41 - Telf. 2251313 - Fax 4751816
Página Web: http://www.osiptel.gob.pe/
CONFIGURACIONES PREVIAS
Configuración del Entorno de Trabajo
Esta sección realiza configuraciones del entorno de trabajo para el Kernel del Software Mathematica
à Carga el paquete Geodesy
Este paquete es utilizado para el cálculo de distancias entre dos puntos sobre la superficie de la Tierra. Dichos puntos corresponden a la ubicación de las centrales de conmutación
<< Geodesy`
à Desactiva opciones de Sintaxis
El Software Mathematica es capaz de identificar nombres similares de variables (Símbolos) y emitir advertencias al respecto cuandoel Kernel realiza la ejecución del código.
La existencia de nombres similares es aceptada para la programación del presente modelo
[email protected]::spell1D;
[email protected]::spellD;
à Establece el directorio de trabajo
El modelo utiliza diversos archivos de texto como entrada. En esta instrucción se establece el directorio donde se encuentran ubicados dichos archivos
SetDirectoryA
"D:\\Data\\Confidencial\\Fija2006\\Modelo de Costos\\Modelo Integral\\Aceptaciones\\AceptacionesTdP"E;
CARGA DE PARÁMETROS GENERALES
à Identificación de Areas Locales: Departamentos
Listado de los departamentos y les asigna un número correlativo
2
Modelo_Integral_ACK.nb
AYACUCHO = 1;
HUANCAVELICA = 2;
HUANUCO = 3;
ICA = 4;
JUNIN = 5;
LIMA = 6;
LORETO = 7;
PASCO = 8;
SANMARTIN = 9;
UCAYALI = 10;
AMAZONAS = 11;
ANCASH = 12;
CAJAMARCA = 13;
LALIBERTAD = 14;
LAMBAYEQUE = 15;
PIURA = 16;
TUMBES = 17;
APURIMAC = 18;
AREQUIPA = 19;
CUSCO = 20;
MADREDEDIOS = 21;
MOQUEGUA = 22;
PUNO = 23;
TACNA = 24;
Parámetros de Centrales de Conmutación
ü Codificación de Centrales Tandems Departamentales
Identifica las centrales Tandem dentro del listado de 585
CHACHAPOYASX=1;
HUARAZX=5;
ABANCAYX=36;
AREQUIPACENTROX=39;
AYACUCHOX=86;
CAJAMARCAX=92;
CUSCOCENTROX=110;
HUANCAVELICAX=124;
HUANUCOX=128;
ICACENTROX=132;
HUANCAYOCENTROX=150;
TRUJILLOIX=183;
CHICLAYOCENTROX=223;
TANDEMLIMAX= 248;
IQUITOSCENTROX=481;
PTOMALDONADOX=491;
ILOCENTROX=492;
CERRODEPASCOX=498;
PIURACENTROX=504;
JULIACAX=534;
TARAPOTOX=549;
TACNACENTROX=561;
TUMBESX=574;
PUCALLPACENTROX=581;
CentralRef=TANDEMLIMAX;
ü Codificación de Centrales Cabeceras (Provincias)
Listado de las cabeceras y les asigna un código correlativo
ABANCAYP=1;
AREQUIPACAYMAP=2;
AREQUIPACENTROP=3;
AREQUIPAPRXP=4;
AYACUCHOP=5;
BARRANCONEAXP=6;
CAJAMARCAP=7;
CALLAOP=8;
CUSCOCENTROP=9;
CHACHAPOYASP=10;
CHICLAYOCENTROP=11;
CHIMBOTECENTROP=12;
ELCERCADO1P=13;
ELCERCADO2P=14;
HIGUERETA1P=15;
HIGUERETA2P=16;
HIGUERETANEAXP=17;
HUACHOP=18;
3
Modelo_Integral_ACK.nb
HUANCAVELICAP=19;
HUANCAYOCENTROP=20;
HUANCAYOPRXP=21;
HUANUCOP=22;
HUARAZP=23;
ICACENTROP=24;
ICAPRXP=25;
ILOCENTROP=26;
IQUITOSCENTROP=27;
JAENP=28;
JULIACAP=29;
LAVICTORIANEAXP=30;
LINCEP=31;
LINCENEAXP=32;
LOSOLIVOS1P=33;
LOSOLIVOS2P=34;
LOSOLIVOS3P=35;
LOSOLIVOSNEAXP=36;
MAGDALENAP=37;
MAGDALENANEAXP=38;
MIRAFLORES1P=39;
MIRAFLORES2P=40;
MIRAFLORESNEAXP=41;
MONTERRICO1P=42;
MONTERRICO2P=43;
MONTERRICO3P=44;
MONTERRICONEAXP=45;
PIURACENTROP=46;
PIURAPRXP=47;
PTOMALDONADOP=48;
PUCALLPACENTROP=49;
PUNOPRXP=50;
QUILLABAMBAP=51;
SANBORJANEAXP=52;
SANISIDRO1P=53;
SANISIDRO2P=54;
SANISIDRONEAXP=55;
SANJOSE1P=56;
SANJOSE2P=57;
SANJOSE3P=58;
SANJOSENEAXP=59;
SANJUANNEAXP=60;
TACNACENTROP=61;
TACNAPRXP=62;
TANDEMLIMAP=63;
TARAPOTOP=64;
TARMAP=65;
TRUJILLOIP=66;
TRUJILLOIIP=67;
TRUJILLOPRXP=68;
TUMBESP=69;
WASHINGTON1P=70;
WASHINGTON2P=71;
WASHINGTONNEAXP=72;
ZARATE1P=73;
ZARATE2P=74;
CERRODEPASCOP=75;
ATALAYAP=76;
CABALLOCOCHAP=77;
CONTAMANAP=78;
LAGUNASP=79;
NAUTAP=80;
REQUENAP=81;
AGUASCALIENTESP=82;
BELLAVISTAP=83;
CABANAP=84;
CAJATAMBOP=85;
CORACORAP=86;
IQUITOSCENTROP=87;
JUANJUIP=88;
PUQUIOP=89;
SANFRANCISCOP=90;
SAPOSOAP=91;
TINGOMARIAP=92;
TOCACHENUEVOP=93;
UCHIZAP=94;
ZARATE3P=95;
LOSOLIVOS4P=96;
LOSOLIVOS5P=97;
SANISIDRO3P=98;
MIRAFLORES3P=99;
HIGUERETAP=100;
ü Identificación de Centrales Tandems (Departamentales) por Nombre
4
Modelo_Integral_ACK.nb
deptTXTd = 8"AYACUCHO", "HUANCAVELICA", "HUANUCO", "ICA",
"JUNIN", "LIMA", "LORETO", "PASCO", "SANMARTIN", "UCAYALI", "AMAZONAS", "ANCASH",
"CAJAMARCA", "LALIBERTAD", "LAMBAYEQUE", "PIURA", "TUMBES", "APURIMAC",
"AREQUIPA", "CUSCO", "MADREDEDIOS", "MOQUEGUA", "PUNO", "TACNA"<;
ü Identificación de Centrales Cabeceras (Provincias) por Nombre
provTXTp = 8"ABANCAYP", "AREQUIPACAYMAP", "AREQUIPACENTROP", "AREQUIPAPRXP", "AYACUCHOP", "BARRANCONEAXP",
"CAJAMARCAP", "CALLAOP", "CUSCOCENTROP", "CHACHAPOYASP", "CHICLAYOCENTROP", "CHIMBOTECENTROP",
"ELCERCADO1P", "ELCERCADO2P", "HIGUERETA1P", "HIGUERETA2P", "HIGUERETANEAXP", "HUACHOP", "HUANCAVELICAP",
"HUANCAYOCENTROP", "HUANCAYOPRXP", "HUANUCOP", "HUARAZP", "ICACENTROP", "ICAPRXP", "ILOCENTROP",
"IQUITOSCENTROP", "JAENP", "JULIACAP", "LAVICTORIANEAXP", "LINCEP", "LINCENEAXP", "LOSOLIVOS1P",
"LOSOLIVOS2P", "LOSOLIVOS3P", "LOSOLIVOSNEAXP", "MAGDALENAP", "MAGDALENANEAXP", "MIRAFLORES1P",
"MIRAFLORES2P", "MIRAFLORESNEAXP", "MONTERRICO1P", "MONTERRICO2P", "MONTERRICO3P", "MONTERRICONEAXP",
"PIURACENTROP", "PIURAPRXP", "PTOMALDONADOP", "PUCALLPACENTROP", "PUNOPRXP", "QUILLABAMBAP",
"SANBORJANEAXP", "SANISIDRO1P", "SANISIDRO2P", "SANISIDRONEAXP", "SANJOSE1P", "SANJOSE2P", "SANJOSE3P",
"SANJOSENEAXP", "SANJUANNEAXP", "TACNACENTROP", "TACNAPRXP", "TANDEMLIMAP", "TARAPOTOP", "TARMAP",
"TRUJILLOIP", "TRUJILLOIIP", "TRUJILLOPRXP", "TUMBESP", "WASHINGTON1P", "WASHINGTON2P", "WASHINGTONNEAXP",
"ZARATE1P", "ZARATE2P", "CERRODEPASCOP", "ATALAYAP", "CABALLOCOCHAP", "CONTAMANAP", "LAGUNASP",
"NAUTAP", "REQUENAP", "AGUASCALIENTESP", "BELLAVISTAP", "CABANAP", "CAJATAMBOP", "CORACORAP",
"IQUITOSCENTROP", "JUANJUIP", "PUQUIOP", "SANFRANCISCOP", "SAPOSOAP", "TINGOMARIAP", "TOCACHENUEVOP",
"UCHIZAP", "ZARATE3P", "LOSOLIVOS4P", "LOSOLIVOS5P", "SANISIDRO3P", "MIRAFLORES3P", "HIGUERETAP"<;
à Identificación y Codificación de Función de Central
Esquema de identificación lógico entre Centrales Cabeceras y URAS (Unidades Remotas, tanto Analógicas como Digitales)
CABECERA=1;
URD=0;
à Identificación y Codificación de Tecnologías de transmisión asociadas a cada Central de Conmutación
ü Todas las Tecnologías de Transmisión utilizadas
Listado de Tecnologías identificadas por un número
Satelite=1;
Enterrado=2;
Radio=3;
NA=4;
Urbana=5;
Aereo=6;
ü Identificación especial de Tecnología de Fibra Óptica
Donde diga Fiberoptic esta haciendo referencia a la tecnología de fibra enterrada
Fiberoptic=2;
Lectura de Archivo de Texto "input_TdP.txt"
à Carga datos de Archivo de Texto "input_TdP.txt"
ü Abre Archivo de Texto "input_TdP.txt"
OpenRead@"input_TdP.txt"D;
ü Lee archivo y lo carga en variable auxiliar "d"
d = [email protected]@"input_TdP.txt", NumberDD;
El archivo de texto ha sido leido y la información de las variables que contiene ya se encuentra en memoria para se utilizada. en las secciones siguientes se asignan estos valores a las variables
respectivas
5
Modelo_Integral_ACK.nb
Parámetros Generales
locb = dP1T;
calculaservicio = dP2T;
H∗ Si vale 2 se calcula coste servicio circuitos de ITX Hsólo intradepartamentalL ∗L
H∗ Si es 3,4 ó 5 se calcula coste de circuitos arrendados LD rango A, B o C respectivamente ∗L
calculaservicioLD = calculaservicio;
H∗ crea variable calculaservicioLD y le asigna el valor de la variable calculaservicio ∗L
accesodistporE1 = dP3T;
H∗ Distancia media por E1 entre el local del operador y la central de TDP ∗L
prob = dP4T;
H∗ Probabilidad de Bloqueo: Calidad ∗L
numMHzporMb = dP52T;
H∗ Número de MhZ de ancho de banda al codificar 1 Mbps de datos para Tx Satelital ∗L
1
;
factorNoLinealUrban =
dP57T
H∗ Factor de no linealidad de fibra óptica canalizada ∗L
1
;
factorNoLinealNoUrban =
dP58T
H∗ Factor de no linealidad de fibra óptica enterrada ∗L
1
factorNoLinealRadio =
;
dP59T
H∗ Factor de no linealidad de los enlaces de radio ∗L
factnolinLD = dP69T;
H∗ Factor de no linealidad de los enlaces de FO entre los PDIs ∗L
edifsupportdeprfrac = dP60T;
H∗ Depreciación de los edificios ∗L
fibertransdeprfrac = dP61T;
H∗ Depreciación de la fibra óptica ∗L
petransdeprfrac = dP62T;
H∗ Depreciación de la planta externa ∗L
trafAdicNoTarif = dP63T;
H∗ Plus porcentual por el tráfico no tarificado ∗L
compFOLD = dP68T;
H∗ Factor de compartición de los enlaces de fibra entre los PDIs con la red intradepartamental∗L
compfiburb = dP54T;
H∗ Factor de compartición de fibra canalizada con la red de acceso ∗L
factalq = dP50T;
H∗ Factor de alquiler intradepartamental ∗L
factalqLD = dP5T;
H∗ Factor de Alquiler Internodal o entre los PDI'
s: Qué % de los circuitos interdepartamentales son alquilados ∗L
Parámetros de Señalización
signalfrac=dP24T;
(* Inversión en Señalización como % de la Inversión en Conmutación *)
6
Modelo_Integral_ACK.nb
Parámetros de Transmisión
à Parámetros de Transmisión Generales
hop=dP7T;
(* Distancia en Km entre las repetidoras de radio *)
hopfibra=dP67T;
(* Distancia entre las repetidoras de fibra óptica *)
urbanfill=dP6T;
(* Grado de Utilización de la F.O. urbana o canalizada *)
radiofill=dP8T;
(* Grado de Utilización de los enlaces de Radio *)
fiberfill=dP13T;
(* Grado de utilización de la Fibra Óptica Enterrada *)
ConsideraPRIM=dP9T;
(* Para un valor de 0 se emplean conexiones en estrella, para un valor de 1 se emplean conexiones en cadena y
para un valor de 3 se emplean conexione en cadena con protección *)
consideraRD = dP49T;
(* Si vale 1 si se consideran las rutas directas entre las centrales cabeceras de Lima, si vale 0 no se
consideran *)
interdinvpermin=dP11T;
(* Inversión adicional por MDU interdepartamental por las llamadas satelitales que pasan por Lima *)
compresDCME=dP12T;
(* Compresión de equipo DCME satélite: menor o igual a 1*)
redundancyfactor= dP48T;
(* Factor de redundancia de la ruta a las centrales Tandem de Lima *)
proteccionLD=dP70T;
(* Factor de protección de F.O. entre los PDIs: Si vale 1 se considera que no existe protección de F.O. y que la
protección es por radio *)
à Parámetros de Transmisiónde Fibra
TxFibraCosteCableKm=dP26T;
(* Precio por Km de cable incluyendo planta externa, Fibra Enterrada*)
TxFibraCosteCableAereoKm=2676.49641458801;
(* Precio por Km de cable, Fibra Aérea*)
costedelafibraurbKm=dP71T;
(* Precio por Km de la Fibra canalizada (sólo cable) *)
TxFibraCosteEmpalme= dP27T;
(* Precio por empalme de F.O. *)
TxFibraDistEntreEmpalmesKm=dP28T;
(* Distancia en Km entre los empalmes de F.O. *)
TxFibraCosteCanalizacionKm=dP29T;
(* Precio por Km de canalización *)
TxFibraCosteCamara=dP30T;
(* Precio de una cámara de F.O. *)
TxFibraDistEntreCamarasKm=dP31T;
(* Distancia en Km entre cámaras *)
TxFibraCosteTrituboKm=dP32T;
(* Precio por Km del tritubo: es cero porque ya esta incluido en TxFibraCosteCableKm *)
TxFibraCosteCableKmLD=dP72T;
(* Precio por Km de cable incluyendo planta externa para la fibra enterrada entre los PdIs *)
TxFibraLimites=63{1,4,16,64};
(* Niveles en E1s *)
TxFibraCosteFijo={dP33T,dP34T,dP35T,dP55T};
(* Vector de precio de los equipos de Tx según nivel de capacidad *)
TxFibraCosteTributario={dP36T,dP37T,dP38T,dP56T};
(* Vector de precios de los tributarios según nivel de capacidad *)
à Parámetros de Transmisiónde Radio
TxRadioLimites={4,16,32,63};
(* Define los límites de cada uno de los niveles de capacidad entre los cuales se puede optar:
4x2(1+0);16x2(1+1);16x2(2+1)y STM1 (63 E1s) *)
TxRadioCosteFijo={dP39T,dP40T,dP41T,dP42T};
(* Vector de precios de los equipos de Tx de Radio en PDH para los siguientes niveles de
capacidad: 4x2(1+0), 16x2(1+1), 16x2(2+1), STM-1(Radio+ADM) *)
TxRadioCosteTributario={0,0,0,dP43T};
(* Vector de precios de los tributarios en radio según el nivel de capacidad *)
TxRadioCosteRep={dP44T,dP45T,dP46T,dP47T};
(* Vector de precios de las repetidoras de radio *)
7
Modelo_Integral_ACK.nb
Parámetros de Costos
edifsupportinvfrac=dP10T;
(* Inversión en edificios como un % de la inversión en red: Este factor no debe existir pues ya existe un factor
por Inversion en Soporte en General *)
supportinvfrac=dP14T;
(* Inversión en soporte como % de la inversión en red *)
switchdeprfrac= dP15T;
(* Depreciación de los equipos de conmutación *)
transdeprfrac=dP16T;
(* Depreciación de los equipos de transmisión *)
supportdeprfrac=dP17T;
(* Depreciación de la planta de soporte *)
switchmaintfrac=dP18T;
(* Gastos de mantenimiento en conmutación como % de la Inversión en conmutación *)
transmaintfrac=dP19T;
(* Gastos de mantenimiento en transmisión como % de la Inversión en transmisión *)
supportmaintfrac=dP20T;
(* Gastos de mantenimiento de la planta de soporte como % de la inversión en soporte *)
overheadfrac=dP21T;
(* Costo de Overhead como % de la inversión en red *)
networkopfrac=dP22T;
(* Costo de operación de red como % de la inversión en red *)
retcap=dP23T;
(* Costo de oportunidad del capital: WACC *)
satantena=dP25T;
(* Precio de Antena Satelital *)
sateqtx= dP51T;
(* Precio de equipo de transmisión satelital *)
costesatporMHz= dP53T;
(* Costo anual de alquiler de 1 MHZ de ancho de banda satelital *)
AñadidoCxPorKm=dP64T;
(* Costo por Km del transporte o desplazamiento de los equipos de Cx a provincias *)
AñadidoTrxPorKm=dP65T;
(* Costo por Km del transporte o desplazamiento de los equipos de Tx a provincias *)
TxFibraCosteTerminacion=dP66T;
(* Costo de las terminaciones de fibra óptica *)
factrednd=dP73T;
(* Factor de Redundancia para los enlaces de ADSL - Ojo, que podría no ser un factor único *)
locchannelinvpertrunk=dP74T;
(* Factor Rescatado para Conmutación (era el Nro 5) *)
Lectura de Archivo de Texto "input_centralesfinal.txt"
En el archivo de texto "input_centralesfinal.txt" se encuentra el detalle de cada central de conmutación utilizada en el modelo. Dichos parámetros deben ser leidosy cargados de forma adecuada
para su posterior uso.Se ha considerado conveniente leerlos en una variable de tipo matriz y posteriormente asignarlo a cada variable específica.
à Desactiva Verificación de Sintaxis
El software Mathematica es capaz de detectar errores de sintaxis cuandose utiliza la Función ToExpression. Esta opción se ha deshabilitado para permitir la asignación del archivo leido a la
variable auxiliar utilizada
[email protected]::"sntxi"D;
à Carga datos de Archivo de Texto "input_centralesfinal.txt"
ü Abre Archivo de Texto "input_centralesfinal.txt"
OpenRead@"input_centralesfinal.txt"D;
ü Lee archivo y lo carga en variable auxiliar "y"
y = ReadList@"input_centralesfinal.txt", Word, RecordLists → TrueD;
ü El archivo leido es convertido a formato de expresión para su posterior uso en variable auxiliar "z"
z = [email protected];
H∗ Define la matriz "z" que contienen los datos de las centrales ya leídos ∗L
El archivo de texto ha sido leido y la información de las variables que contiene ya se encuentra en memoria para se utilizada. En las secciones siguientes se asignan estos valores a las variables
respectivas
8
Modelo_Integral_ACK.nb
Detalle de Centrales de Conmutación
à Obtiene el número de centrales de conmutación (variable auxiliar "nx")
nx=Length[z];
(* Define el número de datos que contiene la matriz z *)
à Detalle de Centrales de Conmutación
idx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central su ID ∗L
idinvertx = [email protected], 8ix, nx<D;
[email protected] = ix, 8ix, nx<D;
[email protected]_D := [email protected], n, dim<, n = [email protected];
dim = [email protected];
Vector1 = [email protected]@0, 8d, dim<D, 8i, n<D;
[email protected]@dim 2, Vector1Pi, 1T = idinvertxPVectorPi, 1TT;
Vector1Pi, 2T = VectorPi, 2T;D;
[email protected] 3, Vector1Pi, 1T = idinvertxPVectorPi, 1TT;
Vector1Pi, 2T = idinvertxPVectorPi, 2TT;
Vector1Pi, 3T = VectorPi, 3T;D;, 8i, n<D;
Vector1D;
H∗ Especifica para cada ID la posición de la central ∗L
deptx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central el departamento al cual pertenece ∗L
provx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la provincia a la cual pertenece ∗L
longdegx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la coordenada: longitud en grados ∗L
longminx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la coordenada: longitud en minutos ∗L
longsecx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la coordenada: longitud en segundos ∗L
latdegx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la coordenada: latitud en grados ∗L
latminx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la coordenada: latitud en minutos ∗L
latsecx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la coordenada: latitud en segundos ∗L
linesx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central el número de líneas ∗L
systemx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central su función: si es 1 la central es cabecera, si es 0 la central es una URA ∗L
transtechx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central la tecnología de transmisión ∗L
esAnillopx = [email protected], 8ix, nx<D;
[email protected]@esAnillopxPixT 1 Ï transtechxPixT ≠ Urbana, transtechxPixT = UrbanaD;, 8ix, nx<D;
H∗ Especifica para cada central si forma parte del anillo provincial ∗L
esAnillodx = [email protected], 8ix, nx<D;
H∗ Especifica para cada central si forma parte del anillo departamental ∗L
Imprime Parámetros
à Imprime Parámetros Generales
Print[TableForm[{locb,calculaservicio,calculaservicio,accesodistporE1,prob,numMHzporMb,factorNoLinealUrban,factorN
oLinealNoUrban,factorNoLinealRadio,factnolinLD,edifsupportdeprfrac,fibertransdeprfrac,petransdeprfrac,trafAdicNoTa
rif,compFOLD,compfiburb,factalq,factalqLD},TableHeadings→
{{"locb","calculaservicio","calculaservicioLD","accesodistporE1","prob","numMHzporMb","factorNoLinealUrban","facto
rNoLinealNoUrban","factorNoLinealRadio","factnolinLD","edifsupportdeprfrac","fibertransdeprfrac","petransdeprfrac"
,"trafAdicNoTarif","compFOLD","compfiburb","factalq","factalqLD"}}]];
à Imprime Parámetros de Señalización
Print[TableForm[{signalfrac,""},TableHeadings→{{"signalfrac",""}}]];
9
Modelo_Integral_ACK.nb
Imprime Parámetros de Transmisión
ü Imprime Parámetros de Transmisión Generales
Print[TableForm[{hop,hopfibra,urbanfill,radiofill,fiberfill,ConsideraPRIM,consideraRD,interdinvpermin,compresDCME,
redundancyfactor,proteccionLD},TableHeadings→
{{"hop","hopfibra","urbanfill","radiofill","fiberfill","ConsideraPRIM","consideraRD","interdinvpermin","compresDCM
E","redundancyfactor","proteccionLD"}}]];
ü Imprime Parámetros de Transmisiónde Fibra
Print[TableForm[{TxFibraCosteCableKm,TxFibraCosteCableAereoKm,costedelafibraurbKm,TxFibraCosteEmpalme,TxFibraDistE
ntreEmpalmesKm,TxFibraCosteCanalizacionKm,TxFibraCosteCamara,TxFibraDistEntreCamarasKm,TxFibraCosteTrituboKm,TxFib
raCosteCableKmLD,TxFibraLimites,TxFibraCosteFijo,TxFibraCosteTributario},TableHeadings→
{{"TxFibraCosteCableKm","TxFibraCosteCableAereoKm","costedelafibraurbKm","TxFibraCosteEmpalme","TxFibraDistEntreEm
palmesKm","TxFibraCosteCanalizacionKm","TxFibraCosteCamara","TxFibraDistEntreCamarasKm","TxFibraCosteTrituboKm","T
xFibraCosteCableKmLD","Capacidades en SDH","TxFibraCosteFijo","TxFibraCosteTributario"}}]];
ü Imprime Parámetros de Transmisiónde Radio
Print[TableForm[{TxRadioLimites,TxRadioCosteFijo,TxRadioCosteTributario,TxRadioCosteRep},TableHeadings→
{{"Capacidades para Radio","TxRadioCosteFijo","TxRadioCosteTributario","TxRadioCosteRep"}}]];
à Imprime Parámetros de Costos
Print[TableForm[{edifsupportinvfrac,supportinvfrac,switchdeprfrac,transdeprfrac,supportdeprfrac,switchmaintfrac,tr
ansmaintfrac,supportmaintfrac,overheadfrac,networkopfrac,retcap,satantena,sateqtx,costesatporMHz,AñadidoCxPorKm,Añ
adidoTrxPorKm,TxFibraCosteTerminacion,factrednd,locchannelinvpertrunk},TableHeadings→
{{"edifsupportinvfrac","supportinvfrac","switchdeprfrac","transdeprfrac","supportdeprfrac","switchmaintfrac","tran
smaintfrac","supportmaintfrac","overheadfrac","networkopfrac","retcap","satantena","sateqtx","costesatporMHz","Aña
didoCxPorKm","AñadidoTrxPorKm","TxFibraCosteTerminacion","factrednd","locchannelinv"}}]];
à Imprime Parámetros de Detalle de Centrales de Conmutación
ü Imprime Número de Centrales de Conmutación
Print["nx"];
Print[nx];
ü Imprime Detalle de Centrales de Conmutación
Print[TableForm[Table[{ix,idxPixT,yPix,13T,deptxPixT,provxPixT,longdegxPixT,longminxPixT,longsecxPixT,latdegxP
ixT,latminxPixT,latsecxPixT,linesxPixT,systemxPixT,transtechxPixT,esAnillopxPixT,esAnillodxP
ixT},{ix,nx}],TableAlignments→Right,TableSpacing→{0,1},TableDirections→{Column,Row},TableHeadings→
{None,{"ix","idx","Central","deptx","provx","longdegx","longminx","longsecx","latdegx","latminx","latsecx","linesx
","systemx","transtechx","esAnillopx","esAnillodx"}}]]
Creación de Variables Auxiliares
à Número de datos a nivel de departamento (variable auxiliar "nd")
nd=24;
(* Número de datos a nivel de cálculos y resultados departamentales *)
à Número de datos a nivel de provincia (variable auxiliar "np")
np=Max[provx];
(* Número de datos a nivel de cálculos y resultados provinciales *)
10
Modelo_Integral_ACK.nb
à Conjunto de Vectores Cero (variable auxiliar "zerox", "zerop", "zerod")
ü Vector Cero de Centrales (variable auxiliar "zerox")
zerox=Table[0,{ix,nx}]; (* vector de 585 ceros: Número de centrales *)
ü Vector Cero de Provincias (variable auxiliar "zerop")
zerop=Table[0,{ip,np}]; (* vector de 94 ceros: Número de provincias *)
ü Vector Cero de Departamentos (variable auxiliar "zerod")
zerod=Table[0,{id,nd}]; (* vector de 24 ceros: Número de departamentos *)
à Conjunto de Vectores Uno (variable auxiliar "onex", "onep ", "oned")
ü Vector Uno de Centrales (variable auxiliar "onex")
onex=Table[1,{ix,nx}]; (* vector de 585 unos: Número de centrales *)
ü Vector Uno de Provincias (variable auxiliar "onep")
onep=Table[1,{ip,np}]; (* vector de 94 unos: Número de provincias *)
ü Vector Uno de Departamentos (variable auxiliar "oned")
oned=Table[1,{id,nd}]; (* vector de 24 unos: Número de departamentos *)
à Vector de Nodos que pertenecen a Lima (variable auxiliar "lima1d")
lima1d=Table[If[idLIMA,1,0],{id,nd}];
(* Identifica cada nodo que pertenece a Lima como "1" y los demás como "0" *)
à Vector de Departamentos asociados a cada Provincia (variable auxiliar "deptp")
deptp=zerop;
Do[deptpPprovxPixTT=deptxPixT,{ix,nx}]
(* Especifica para cada provincia a que departamento pertenece *)
à Conjunto de vectores Lima/Provincia (variable auxiliar "limax", "lima1x", "ropx", "rop1x")
ü Vector de Nodos que pertenecen a Lima - True/False (variable auxiliar "limax")
limax=Table[deptxPixTLIMA,{ix,nx}];
(* Identifica cada nodo que pertenece a Lima como "True" y los demás como "False" *)
ü Vector de Nodos que pertenecen a Lima - 1/0 (variable auxiliar "lima1x")
lima1x=Table[If[limaxPixT,1,0],{ix,nx}];
(* Identifica cada nodo que pertenece a Lima como "1" y los demás como "0" *)
ü Vector de Nodos que pertenecen a Provincias - True/False (variable auxiliar "ropx")
ropx=Table[¬limaxPixT,{ix,nx}];
(* Identifica cada nodo que pertenece a provincias como "True" y los de Lima como "False" *)
11
Modelo_Integral_ACK.nb
ü Vector de Nodos que pertenecen a Provincias - 1/0 (variable auxiliar "rop1x")
rop1x=Table[If[ropxPixT,1,0],{ix,nx}];
(* Identifica cada nodo que pertenece a provincias como "1" y los de Lima como "0" *)
Imprime Variables Auxiliares
à Imprime Número de datos a nivel de departamento
Print["nd"];
Print[nd];
à Imprime Número de datos a nivel de provincia
Print["np"];
Print[np];
à Imprime Vector de Nodos que pertenecen a Lima
Print["lima1d"];
Print[TableForm[Table[{id,deptTXTdPidT,lima1dPidT},{id,nd}],TableDirections→{Column,Row},TableSpacing→
{0,1},TableHeadings→{None,{"id","Departamento","lima1d"}}]];
à Imprime Vector de Departamentos asociados a cada Provincia
Print["deptp"];
Print[TableForm[Table[{ip,provTXTpPipT,deptpPipT,deptTXTdPdeptpPipTT},{ip,np}],TableDirections→
{Column,Row},TableSpacing→{0,1},TableHeadings→{None,{"ip","Provincia","id","Departamento"}}]];
à Imprime Conjunto de vectores Lima/Provincia
Print[TableForm[Table[{ix,idxPixT,yPix,13T,limaxPixT,lima1xPixT,ropxPixT,rop1xPixT},{ix,nx}],TableSpacing→
{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre
Central","limax","lima1x","ropx","rop1x"}}]];
Definición de Funcion auxiliar
à Define función auxiliar "distance"
Presenta y establece como se estimara la distancia entre dos puntos utilizando la función denominada SphericalDistance
[email protected]_, ix2_D := ModuleB8vect1, vect2, dist<,
vect1 = :latdegxPix1T +
vect2 = :latdegxPix2T +
latminxPix1T
60
latminxPix2T
60
+
+
latsecxPix1T
3600
latsecxPix2T
3600
, longdegxPix1T +
, longdegxPix2T +
longminxPix1T
60
longminxPix2T
60
[email protected] vect2, dist = 0, dist = [email protected], vect2DD; distF;
+
+
longsecxPix1T
3600
longsecxPix2T
3600
>;
>;
12
Modelo_Integral_ACK.nb
ESTIMACIÓN DE DISTANCIAS
Calculo de la distancia entre nodos (centrales)
à Identificación de Nodos por cada tecnología de transmisión
ü Identificación de Nodos que utilizan tecnología satelital (variables satx, sat1x)
satx=Table[False,{ix,nx}];
satxP1T=transtechxP1TSatelite;
Do[satxPixT=If[provxPixTprovxPix-1T,satxPix-1T,(*deptxPixT≠LIMA fl*) deptxPixT≠MADREDEDIOS fl transtechxPixT
Satelite];,{ix,2,nx}];
(* Identifica los nodos que usan tecnología de Tx satelital con "True" y los demás con "False" , ojo que en Lima
no pueden haber nodos que usen tecnología satelital *)
sat1x=Table[If[satxPixT,1,0],{ix,nx}];
(* Identifica los nodos que usan tecnología de Tx satelital con "1" y los demás con "0", ojo que en Lima no
pueden haber nodos que usen tecnología satelital *)
Print[TableForm[Table[{ix,idxPixT,yPix,13T,satxPixT,sat1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→
{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","satx","sat1x"}}]];
ü Identificación de Nodos que utilizan tecnología de fibra optica (variables fiberx, fibert1x)
fiberx=Table[False,{ix,nx}];
Do[fiberxPixT=transtechxPixTEnterrado fi transtechxPixTUrbana fi transtechxPixTAereo,{ix,nx}];
(* Identifica los nodos que usan fibra como tecnología de Tx con "True" y los demás con "False" *)
fiber1x=Table[If[fiberxPixT,1,0],{ix,nx}];
(* Identifica los nodos que usan fibra como tecnología de Tx con "1" y los demás con "0"*)
Print[TableForm[Table[{ix,idxPixT,yPix,13T,fiberxPixT,fiber1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→
{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","fiberx","fiber1x"}}]];
à Identificación de Centrales Tandem por Area Local (Departamento)
ü Identificación de Centrales Tamdem por Cada Area Local (Departamento) (variable tandemd)
Print["tandemd"];
tandemd=zerod;
tandemdPAMAZONAST=idinvertxPCHACHAPOYASXT;
tandemdPANCASHT=idinvertxPHUARAZXT;
tandemdPAPURIMACT=idinvertxPABANCAYXT;
tandemdPAREQUIPAT=idinvertxPAREQUIPACENTROXT;
tandemdPAYACUCHOT=idinvertxPAYACUCHOXT;
tandemdPCAJAMARCAT=idinvertxPCAJAMARCAXT;
tandemdPCUSCOT=idinvertxPCUSCOCENTROXT;
tandemdPHUANCAVELICAT=idinvertxPHUANCAVELICAXT;
tandemdPHUANUCOT=idinvertxPHUANUCOXT;
tandemdPICAT=idinvertxPICACENTROXT;
tandemdPJUNINT=idinvertxPHUANCAYOCENTROXT;
tandemdPLALIBERTADT=idinvertxPTRUJILLOIXT;
tandemdPLAMBAYEQUET=idinvertxPCHICLAYOCENTROXT;
tandemdPLIMAT=idinvertxPTANDEMLIMAXT;
tandemdPLORETOT=idinvertxPIQUITOSCENTROXT;
tandemdPMADREDEDIOST=idinvertxPPTOMALDONADOXT;
tandemdPMOQUEGUAT=idinvertxPILOCENTROXT;
tandemdPPASCOT=idinvertxPCERRODEPASCOXT;
tandemdPPIURAT=idinvertxPPIURACENTROXT;
tandemdPPUNOT=idinvertxPJULIACAXT;
tandemdPSANMARTINT=idinvertxPTARAPOTOXT;
tandemdPTACNAT=idinvertxPTACNACENTROXT;
tandemdPTUMBEST=idinvertxPTUMBESXT;
tandemdPUCAYALIT=idinvertxPPUCALLPACENTROXT;
Print[TableForm[Table[{id,deptTXTdPidT,tandemdPidT,yPtandemdPidT,13T},{id,nd}],TableSpacing→
{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"id","Nombre Departamento","id Tandem","Nombre
Tandem"}}]];
(* Identifica para cada departamento cuál es la central que será considerada Tandem *)
ü Identificación de Central Tandem por cada Central (variables tandemx, tandem1x)
tandemx=Table[tandemdPdeptxPixTT,{ix,nx}];
(* Para cada central se especifica cuál es la Tandem de su departamento *)
tandem1x=Table[If[tandemxPixTix,1,0],{ix,nx}];
(* Para aquellas centrales que son Tandem las identifica con "1" y las que no son con "0" *)
Print[TableForm[Table[{ix,idxPixT,yPix,13T,tandemxPixT,idxPtandemxPixTT,yPtandemxPixT,13T,tandem1xP
ixT},{ix,nx}],TableSpacing→{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre
Central","tandemx","idtandemx","Nombre Tandem","tandem1x"}}]];
13
Modelo_Integral_ACK.nb
Identificación de Centrales Cabeceras (variables host1x, hostx)
host1x=Table[systemxPixT,{ix,nx}];
(* Para aquellas centrales que son Cabeceras las identifica con "1" y las que no son con "0" *)
hostx=Table[If[host1xPixT1,True,False],{ix,nx}];
Print[TableForm[Table[{ix,idxPixT,yPix,13T,hostxPixT,host1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→
{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","hostx","host1x"}}]];
à Identificación de Centrales Host por Provincia (variable hostp)
hostp=zerop;
Do[If[hostxPixT,hostpPprovxPixTT=ix];,{ix,nx}];
(* Identificamos el host por cada provincia *)
Print[TableForm[Table[{ip,provTXTpPipT,hostpPipT},{ip,np}],TableSpacing→{0,1},TableDirections→
{Column,Row},TableHeadings→{None,{"ip","Nombre Provincia","hostp"}}]];
à Identificación de Conexiones entre centrales
ü Crea Variable Auxiliar de Ceonexiones (variable Conexion)
Conexion=Table[ix,{ix,nx}];
Print[TableForm[Table[{ix,idxPixT,yPix,13T,ConexionPixT,idxPConexionPixTT,yPConexionP
ixT,13T},{ix,nx}],TableSpacing→{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre
Central","Conexion","id Conexion","Nombre Conexion"}}]];
(* Se inicializa el vector de conexión (para saber a qué se refiere cada vector de conexión) la inicialización es
como si cada central se conectara consigo misma. *)
ü Crea Variable Auxiliar de Anillos de Cabeceras (variable AnilloCabeceras)
Print["AnilloCabeceras"];
AnilloCabeceras=zerop;
pos=1;
Do[If[host1xPiaxT1,
AnilloCabecerasPposT=iax;
pos=pos+1;];,{iax,nx}];
Print[TableForm[Table[{AnilloCabecerasPposT,If[AnilloCabecerasPposT≠0,yPAnilloCabecerasPposT,13T,""],provxP
AnilloCabecerasPposTT,If[AnilloCabecerasPposT≠0,provTXTpPprovxPAnilloCabecerasPposTTT,""]},{pos,np}],TableSpacing→
{0,1},TableHeadings→{None,{"pos","Nombre Central","Provincia","Nombre Provincia"}}]];
(* Anillos Cabeceras, marca las cabeceras provinciales *)
ü Crea Variable Auxiliar de Conexion de Provincias con su Tandem (variable ConexionProv)
Print["ConexionProv"];
ConexionProv=Table[ip,{ip,np}];
Do[If[AnilloCabecerasPipT≠0,
ConexionProvPprovxPAnilloCabecerasPipTTT=provxPtandemxPAnilloCabecerasPipTTT;];,{ip,np}];
Print[TableForm[Table[{ip,provTXTpPipT,ConexionProvPipT,ConexionProvPipT},{ip,np}],TableSpacing→
{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre
Central","Conexion","idConexion","Nombre Conexion"}}]];
(* Inicializamos ConexionProv, aquí vemos que indicamos que cada Provincia (en realidad cabecera) se conecta con
cada tándem *)
à Calcula distancias de cada central a su tandem (variable disttandemx)
Print["disttandemx"]
disttandemx=Abs[Table[distance[ix,tandemxPixT],{ix,nx}]];
Do[If[esAnillodxPixTNA fl host1xPixT1 fl lima1xPixT1 fl tandem1xPixT0,
disttandemxPixT=disttandemxPixT+distance[ix,idinvertxP377T];
ConexionProvPprovxPixTT=provxPidinvertxP377TT;];,{ix,nx}];
Print[TableForm[Table[{ix,idxPixT,yPix,13T,NumberForm[disttandemxPixT,{17,10}]},{ix,nx}],TableAlignments→
Right,TableSpacing→{0,1},TableHeadings→{None,{"ix","idx","Nombre Central","disttandemx"}}]];
(* Para cada central se estima la distancia a su Tandem. Algunas centrales en Lima también estan conectadas a la
central de San Isidro (la número 377), por ello para dichas centrales se suma la distancia con esa central.
Dichas centrales cumplen con: Ser Host o cabecera, No forman parte del anillo departamental, pertenecen a Lima y
no son ninguna de las dos Tandem de Lima *)
14
Modelo_Integral_ACK.nb
Calculo de la distancia entre nodos (remotas)
à Identificación de Centrales Remotas (variables remote1x, remotex)
remote1x=Table[If[systemxPixT0,1,0],{ix,nx}];
(* Para aquellas centrales que son remotas las identifica con "1" y las que no son remotas con "0" *)
remotex=Table[If[remote1xPixT1,True,False],{ix,nx}];
(* Para aquellas centrales que son Remotas las identifica con "True" y las que no son Remotas con "False" *)
Print[TableForm[Table[{ix,idxPixT,yPix,13T,remotexPixT,remote1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→
{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","remotex","remote1x"}}]];
à Identificación de host para el Resto del Perú (variable rophostx)
Print["rophostx"]
rophostx=Table[tandemxPixT,{ix,nx}];
Do[If[remotexPixT fl ropxPixT,
Do[If[hostxPjxT fl provxPjxTprovxPixT,
rophostxPixT=jx;];,{jx,nx}];];,{ix,nx}];
Print[TableForm[Table[{ix,yPix,13T,rophostxPixT,yProphostxPixT,13T},{ix,nx}],TableSpacing→{0,1},TableHeadings→
{None,{"ix","Nombre Central","rophostx","Nomobre Host"}}]];
(* Sola para las centrales de provincias: si es remota se especifica cuál es su central cabecera o Host, es
decir, la cabecera de su provincia. En el caso de las host queda como dato su Tandem. Observese que para
identificar la cabecera de una remota es necesario buscar para cada remota cuál es la central cabecera que
pertenece a la misma provincia *)
Identificación de Central de Jerarquia Superior para todas las Centrales
Print["allhostx y disthostx"]
allhostx=Table[tandemxPixT,{ix,nx}];
Do[If[remotexPixT,
Do[If[hostxPjxT fl provxPjxTprovxPixT,
allhostxPixT=jx;];,{jx,nx}];];,{ix,nx}];
(* Para todo el Perú: si es remota se especifica cuál es su central cabecera o Host, es decir, la cabecera de su
provincia. En el caso de las host queda como dato su Tandem . Observese que para identificar la cabecera de una
remota es necesario buscar para cada remota cuál es la central cabecera que pertenece a la misma provincia *)
disthostx=Abs[Table[distance[ix,allhostxPixT],{ix,nx}]];
(* Para cada central se estima la distancia a la cabecera de su provincia. En el caso de las que son cabecera se
establece como dato la distancia a su Tandem. No olvidar que en la variable allHostx a las cabeceras se les puso
como allHostx la Tandem de su departamento *)
Print[TableForm[Table[{ix,idxPixT,yPix,13T,allhostxPixT,yPallhostxPixT,13T,NumberForm[disthostxP
ixT,{17,10}]},{ix,nx}],TableSpacing→{0,1},TableHeadings→{None,{"ix","idx","Nombre Central","allhostx","Nombre
Host","disthostx"}}]];
Calcula Factor de NoLinealidad para cada conexion
à Define variable auxiliar de Factor de No Linealidad (variable factorNoLinealx)
Print["factorNoLinealx"]
factorNoLinealx=onex;
(*Este listado corresponde a los enlaces que siendo de Tecnología Urbana (Canalizada), son tramos inter urbanos*)
EntreCiudades = {26, 39, 44, 45, 68, 69, 70, 95, 135, 136, 154, 156, 157, 158, 159, 162, 165, 170, 186, 189, 190,
191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 220, 221,
225, 226, 229, 232, 233, 234, 235, 236, 255, 256, 273, 274, 277, 281, 282, 308, 309, 329, 330, 357, 358, 456,
457, 464, 465, 467, 469, 470, 475, 476, 486, 487, 489, 490, 501, 502, 503, 505, 506, 507, 508, 526, 577, 580,
593, 609, 610, 616};
Do[If[transtechxPixTEnterrado fi transtechxPixTAereo,
factorNoLinealxPixT=factorNoLinealNoUrban];
If[transtechxPixTUrbana,
factorNoLinealxPixT=factorNoLinealUrban];
If[transtechxPixTRadio,
factorNoLinealxPixT=factorNoLinealRadio];
If[Count[EntreCiudades, ix] > 0,
factorNoLinealxPixT=factorNoLinealNoUrban];
,{ix, nx}];
Print[TableForm[Table[{ix,idxPixT,yPix,13T,NumberForm[factorNoLinealxPixT,{17,10}]},{ix,nx}],TableAlignments→
Right,TableSpacing→{0,1},TableHeadings→{None,{"ix","idx","Nombre Central","factorNoLinealx"}}]];
(* Para cada central se especifica cuál es el factor de ajuste por no linealidad dependiendo de la tecnología de
transmisión que se usa en dicho nodo *)
15
Modelo_Integral_ACK.nb
Calculo de la distancia entre nodos (centrales y remotas) ajustadas por el Factor de No Linealidad
Print@"disthostx"D;
disthostx
;
disthostx =
factorNoLinealx
H∗ corrige la variable dishostx por el factor de no linealidad que le corresponde ∗L
Print@"disttandemx"D;
disttandemx
;
disttandemx =
factorNoLinealx
H∗ corrige la variable disttandemx por el factor de no linealidad que le corresponde ∗L
Print@"repfibrax"D;
repfibrax = zerox;
Do@
[email protected] 1,
repfibraxPixT = disttandemxPixT;
ConexionPixT = ix;,
repfibraxPixT = disthostxPixT;
ConexionPixT = allhostxPixT;
D;
, 8ix, nx<D;
H∗ Distancia entre repetidoras de fibra:
Como punto de partida para las remotas toma la variable disthostx y para las host la variable disttandemx ∗L
Print@"Conexion"D;
[email protected]@
[email protected], idxPixT, yPix, 13T, [email protected], 817, 10<D, [email protected], 817, 10<D,
[email protected], 817, 10<D, ConexionPixT, yPConexionPixT, 13T<, 8ix, nx<D,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None,
8"ix", "idx", "Nombre Central", "disthostx", "disttandemx", "repfibrax", "Conexión", "Nombre Conexión"<<DD;
16
Modelo_Integral_ACK.nb
Calcula el Tamaño de los Anillos (Sumatoria de distancias)
à Tamaño de Anillo a Nivel Provincial
PrintAStyleA"
A NIVEL PROVINCIAL", Underlined, 16, Background → Blue, White, BoldEE;
H∗Cada provincia es un anillo de Remotas−Cabeceras∗L
H∗Inicializacion de variables∗L
TamAnillop = zerop;
CabAnillo = 1;
ProvAnillo = 1;
esAnillo = 0;
costeTerminacionesFibrax = zerox;
SumaCabecerax = zerox;
Print@"TamAnillop"D;
[email protected] 1,
[email protected] 1,
CabAnillo = iax;
H∗Cabecera del anillo∗L
ProvAnillo = provxPCabAnilloT; H∗Provincia del anillo∗L
[email protected] + 1T ProvAnillo Ï esAnillopxPiax + 1T 1,
costeTerminacionesFibraxPiax + 1T = 2 ∗ TxFibraCosteTerminacion, 0D;
H∗Coste de las term del enlace extra de los anillos provinciales∗L
H∗Tecnologia que usan las centrales pertenecientes al anillo∗L
esAnillo = 1;,
esAnillo = 0;D;D;
IfBesAnillo 1,
IfBhost1xPiax + 1T 1 Í esAnillopxPiax + 1T 0,
TamAnillopPProvAnilloT = TamAnillopPProvAnilloT + [email protected] 0, 0, 1D ∗
[email protected]@iax, CabAnilloDD
;
factorNoLinealxPiaxT
IfBesAnillopxPiaxT 1, SumaCabeceraxPiaxT =
[email protected]@iax, CabAnilloDD
;,
factorNoLinealxPiaxT
repfibraxPiaxT = repfibraxPiaxT +
[email protected]@iax, CabAnilloDD
;F;
factorNoLinealxPiaxT
ConexionPiaxT = CabAnillo;,
TamAnillopPProvAnilloT = TamAnillopPProvAnilloT +
[email protected]@iax, iax + 1DD
;
factorNoLinealxPiaxT
repfibraxPiax + 1T =
[email protected]@iax, iax + 1DD
;
factorNoLinealxPiaxT
ConexionPiaxT = iax + 1;F;F;, 8iax, nx − 1<F;
[email protected]@[email protected], provTXTpPipT, TamAnillopPipT<, 8ip, np<D, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "TamAnillop"<<DD;
H∗ Se estima el tamaño del anillo de cada provincia. Para ello hay que asignar a cada nodo una
distancia relevante y luego sumar dichas distancias. Primero se busca el final del anillo,
entonces, evalua cada nodo que si es anillo, luego,
si el nodo siguiente es host o no forma parte de un anillo entonces estas en un nodo que cierra un anillo,
por lo que la distancia relevante es la distancia con su cabecera. En cualquier otro caso,
la distancia relevante es la distancia con el nodo siguiente ∗L
17
Modelo_Integral_ACK.nb
à Tamaño de Anillo a Nivel Departamental
PrintAStyleA"
A NIVEL DEPARTAMENTAL", Underlined, 16, Background → Blue, White, BoldEE;
H∗Inicializacion de variables∗L
Print@"TamAnillod"D;
TamAnillod = zerod;
TandemAnillo = 0;
DepAnillo = 0;
H∗Se extraen las cabeceras∗L
esAnillo = 0;
DoB
IfBAnilloCabecerasPiaxT ≠ 0,
[email protected] 1,
[email protected] ≠ NA,
TandemAnillo = AnilloCabecerasPiaxT; H∗Tandem del anillo∗L
DepAnillo = deptxPTandemAnilloT;
H∗Departamento del anillo∗L
esAnillo = 1;,
esAnillo = 0;D;D;
IfBesAnillo 1,
IfBtandem1xPAnilloCabecerasPiax + 1TT 1 Í esAnillodxPAnilloCabecerasPiax + 1TT NA,
TamAnillodPDepAnilloT = TamAnillodPDepAnilloT +
[email protected]@AnilloCabecerasPiaxT, TandemAnilloDD
[email protected] NA, 0, 1D ∗
;
factorNoLinealxPAnilloCabecerasPiaxTT
IfBesAnillodxPAnilloCabecerasPiaxTT ≠ NA,
repfibraxPAnilloCabecerasPiaxTT =
[email protected]@AnilloCabecerasPiaxT, TandemAnilloDD
;F;
repfibraxPAnilloCabecerasPiaxTT +
factorNoLinealxPAnilloCabecerasPiaxTT
ConexionProvPprovxPAnilloCabecerasPiaxTTT = provxPTandemAnilloT,
TamAnillodPDepAnilloT =
[email protected]@AnilloCabecerasPiaxT, AnilloCabecerasPiax + 1TDD
;
TamAnillodPDepAnilloT +
factorNoLinealxPAnilloCabecerasPiaxTT
repfibraxPAnilloCabecerasPiax + 1TT =
[email protected]@AnilloCabecerasPiaxT, AnilloCabecerasPiax + 1TDD
factorNoLinealxPAnilloCabecerasPiaxTT
ConexionProvPprovxPAnilloCabecerasPiaxTTT = provxPAnilloCabecerasPiax + 1TT;F;F;F;, 8iax, np − 1<F;
[email protected]@[email protected], deptTXTdPidT, TamAnillodPidT<, 8id, nd<D, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "TamAnillod"<<DD;
H∗ Se estima el tamaño del anillo de cada departamento. Para ello hay que asignar a cada nodo una
distancia relevante y luego sumar dichas distancias. Primero se busca el final del anillo, entonces,
evalua cada host que si es anillo, luego, si el host siguiente es cabecera de anillo departamental
Hes TandemL o no forma parte de un anillo departamental entonces estas en un nodo que cierra un anillo,
por lo que la distancia relevante es la distancia con su Tandem. En cualquier otro caso,
la distancia relevante es la distancia con el nodo cabecera siguiente ∗L
à Eliminacion de Valores muy bajos en Tamaño de Anillos
PrintBStyleB
"ELIMINACIÓN DE VALORES MUY BAJOS EN TAMAÑO DE ANILLOS",
White, 16, Underlined, Background → RGBColorB0,
1
, 0F, BoldFF;
2
Print@"Calculos posteriores"D;
[email protected]@TamAnillopPiapT < 0.01, TamAnillopPiapT = 0D;, 8iap, np<D;
[email protected]@TamAnillodPiadT < 0.01, TamAnillodPiadT = 0D;, 8iad, nd<D;
Print@"FIN Calculos posteriores"D;
Print@"TamAnillop"D;
[email protected]@[email protected], provTXTpPipT, TamAnillopPipT<, 8ip, np<D, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "TamAnillop"<<DD;
Print@"TamAnillod"D;
[email protected]@[email protected], deptTXTdPidT, TamAnillodPidT<, 8id, nd<D, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "TamAnillod"<<DD;
H∗ Las distancias menores a 0.01 kilómetros las hace cero ∗L
;
18
Modelo_Integral_ACK.nb
ESTIMACIÓN DE NÚMERO DE LINEAS
PrintBStyleB
"ESTIMACIONES DE NÚMERO DE LÍNEAS",
White, 16, Underlined, Background → RGBColorB0,
1
, 0F, BoldFF;
2
linesp = zerop;
linesd = zerod;
satlinesx = linesx ∗ sat1x;
H∗ Se especifica el número de líneas de cada una de las centrales que usan tecnología de Tx satelital ∗L
remotelinesd = zerod;
tandemlinesd = zerod;
remotetandemlinesd = zerod;
satlinesd = zerod;
satlinesp = zerop;
interprovfracx = zerox;
[email protected] = linespPprovxPixTT + linesxPixT;
linesdPdeptxPixTT = linesdPdeptxPixTT + linesxPixT;
H∗ Número de Líneas que existe en cada provincia y
departamento: Suma las líneas de los nodos que pertenecen a cada provincia y departamento respectivamente∗L
remotelinesdPdeptxPixTT = remotelinesdPdeptxPixTT + remote1xPixT ∗ linesxPixT;
H∗ Total de líneas conectadas sólo a las centrales remotas: Información a nivel departamental∗L
tandemlinesdPdeptxPixTT = tandemlinesdPdeptxPixTT + tandem1xPixT ∗ linesxPixT;
H∗ Total de líneas conectadas sólo a las centrales Tandem: Información a nivel departamental∗L
[email protected] Ï allhostxPixT tandemxPixT,
remotetandemlinesdPdeptxPixTT = remotetandemlinesdPdeptxPixTT + linesxPixT;D;
H∗ Se identifica el número de líneas de las remotas de un departamento,
pero solo de aquellas remotas cuya cabecera es a su vez la tandem del departamento ∗L
satlinesdPdeptxPixTT = satlinesdPdeptxPixTT + satlinesxPixT;
H∗ Se totaliza a nivel departamental el número de líneas que usan tecnología de Tx satelital ∗L
satlinespPprovxPixTT = satlinespPprovxPixTT + satlinesxPixT;, 8ix, nx<D;
H∗ Se totaliza a nivel provincial el número de líneas que usan tecnología de Tx satelital ∗L
DoBIfBlinespPprovxPixTT 0 Í linesdPdeptxPixTT 0,
1
interprovfracxPixT = 0;, interprovfracxPixT = 1 −
linespPprovxPixTT
linesdPdeptxPixTT
locb
;F;, 8ix, nx<F;
hostlinesd = linesd − remotelinesd;
H∗ Total de líneas conectadas sólo a las centrales Cabeceras: Información a nivel departamental∗L
Print@"lines"D;
lines = Plus @@ linesd;
[email protected];
H∗ Total de líneas en la red ∗L
[email protected]@[email protected], deptTXTdPidT, linesdPidT, remotelinesdPidT,
tandemlinesdPidT, hostlinesdPidT, remotetandemlinesdPidT, satlinesdPidT<, 8id, nd<D,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento",
"linesd", "remotelinesd", "tandemlinesd", "hostlinesd", "remotetandemlinesd", "satlinesd"<<DD;
[email protected]@[email protected], provTXTpPipT, linespPipT, satlinespPipT<, 8ip, np<D, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Provincia", "linesp", "satlinesp"<<DD;
[email protected]@[email protected], yPix, 13T, linesxPixT, satlinesxPixT, interprovfracxPixT<, 8ix, nx<D,
TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Central", "linesx", "satlinesx", "interprovfracx"<<DD;
H∗ Factor de elasticidad estimado por cada central para ser empleado en la
estimación de cada uno de los distintos tipos de tráfico∗L
19
Modelo_Integral_ACK.nb
TRÁFICO EN HORA CARGADA
PrintBStyleB
"TRATAMIENTO DEL TRÁFICO EN LA HORA CARGADA",
White, 16, Underlined, Background → RGBColorB0,
1
, 0F, BoldFF;
2
FactTrafico = 1.0;
Print@"Trafico en Hora Cargada"D;
TraficoRealHCx = ReadList@"input_Trafico_HC.txt", 8Real, Real, Real, Real, Real, Real<D ∗ FactTrafico;
H∗ [email protected]@TraficoRealHCx,TableAlignments→Right,TableSpacing→80,1<,TableHeadings→8Automatic,
8"Local Entrante","Local Saliente","LDN Entrante","LDN Saliente","LDI Entrante","LDI Saliente"<<DD∗L
H∗ Leyendo la información de tráfico del respectivo archivo txt ∗L
intradepinHC1x = [email protected], 8ix, nx<D ∗ H1 + trafAdicNoTarifL;
H∗ Lectura del Tráfico Intradepartamental de entrada. Le añade los minutos no tarificados ∗L
intradepoutHC1x = [email protected], 8ix, nx<D ∗ H1 + trafAdicNoTarifL;
H∗ Lectura del Tráfico Intradepartamental de salida. Le añade los minutos no tarificados ∗L
interprovinHC1x = intradepinHC1x ∗ interprovfracx;
H∗ Se calcula el Trafico Interprovincial de entrada ∗L
interprovoutHC1x = intradepoutHC1x ∗ interprovfracx;
H∗ Se calcula el Trafico Interprovincial de salida ∗L
locinHC1x = intradepinHC1x ∗ Honex − interprovfracxL;
H∗ Se calcula el Trafico Intraprovincial de entrada∗L
locoutHC1x = intradepoutHC1x ∗ Honex − interprovfracxL;
H∗ Se calcula el Trafico Intraprovincial de salida ∗L
recldnacHC1x = [email protected], 8ix, nx<D ∗ H1 + trafAdicNoTarifL;
H∗ Lectura del Tráfico LDN ENTRANTE. Le añade los minutos no tarificados ∗L
ldHC1x = [email protected], 8ix, nx<D ∗ H1 + trafAdicNoTarifL;
H∗ Lectura del Tráfico LDN SALIENTE. Le añade los minutos no tarificados ∗L
intlinHC1x = [email protected], 8ix, nx<D ∗ H1 + trafAdicNoTarifL;
H∗ Lectura del Tráfico LDI ENTRANTE. Le añade los minutos no tarificados ∗L
intloutHC1x = [email protected], 8ix, nx<D ∗ H1 + trafAdicNoTarifL;
H∗ Lectura del Tráfico LDI SALIENTE. Le añade los minutos no tarificados ∗L
ldintradHC1x = interprovoutHC1x + interprovinHC1x;
H∗ Total Trafico Interprovincial: Interprovincial Entrante + Interprovincial Saliente ∗L
recldHC1x = recldnacHC1x;
H∗ Igual que recldnacHC1x: Tráfico LDN ENTRANTE ∗L
locinHC1x + locoutHC1x
;
locHC1x =
2
H∗ Tráfco Intraprovincial Promedio: HIntraprovincial Entrante + SalienteLê2 ∗L
1
intraHC1x = TableBIfBlinespPprovxPixTT 0, 0, locHC1xPixT ∗
linesxPixT
linespPprovxPixTT
locb
F, 8ix, nx<F;
H∗ Estimación del Tráfico Intracentral ∗L
[email protected]@[email protected], yPix, 13T, intradepinHC1xPixT, intradepoutHC1xPixT, interprovinHC1xPixT,
interprovoutHC1xPixT, locinHC1xPixT, locoutHC1xPixT, recldnacHC1xPixT, ldHC1xPixT, intlinHC1xPixT,
intloutHC1xPixT, ldintradHC1xPixT, recldHC1xPixT, locHC1xPixT, intraHC1xPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "Intra Dep In", "Intra Dep Out",
"Inter Prov In", "Inter Prov Out", "Intra Prov In", "Intra Prov Out", "LDN In", "LDN Out",
"LDI IN", "LDI Out", "Inter Prov", "LDN In", "Intra Prov Prom", "Intra Central"<<DD;
20
Modelo_Integral_ACK.nb
PrintBStyleB
"TRATAMIENTO DEL TRÁFICO DE SEGUNDOS DE USO",
White, 16, Underlined, Background → RGBColorB0,
1
, 0F, BoldFF;
2
Print@"Trafico Minutos de Uso"D;
TraficoRealMx = ReadList@"input_Trafico_M.txt", 8Real, Real, Real, Real, Real, Real<D ∗ FactTrafico;
[email protected]@TraficoRealMx,TableAlignments→Right,TableSpacing→80,1<,TableHeadings→8Automatic,
8"Local Entrante","Local Saliente","LDN Entrante","LDN Saliente","LDI Entrante","LDI Saliente"<<DD∗L
H∗ Leyendo la información de tráfico del respectivo archivo txt ∗L
12
, 8ix, nx<F;
intradepinMx = TableBTraficoRealMxPidxPixTTP1T ∗
11
H∗ Lectura del Tráfico Intradepartamental de entrada ∗L
12
intradepoutMx = TableBTraficoRealMxPidxPixTTP2T ∗
, 8ix, nx<F;
11
H∗ Lectura del Tráfico Intradepartamental de salida ∗L
interprovinMx = intradepinMx ∗ interprovfracx;
H∗ Se calcula el Trafico Interprovincial de entrada ∗L
interprovoutMx = intradepoutMx ∗ interprovfracx;
H∗ Se calcula el Trafico Interprovincial de salida ∗L
locinMx = intradepinMx ∗ Honex − interprovfracxL;
H∗Se calcula el Trafico Intraprovincial de entrada∗L
locoutMx = intradepoutMx ∗ Honex − interprovfracxL;
H∗ Se calcula el Trafico Intraprovincial de salida ∗L
12
recldnacMx = TableBTraficoRealMxPidxPixTTP3T ∗
, 8ix, nx<F;
11
H∗ Lectura del Tráfico LDN ENTRANTE ∗L
12
, 8ix, nx<F;
ldMx = TableBTraficoRealMxPidxPixTTP4T ∗
11
H∗ Lectura del Tráfico LDN SALIENTE ∗L
12
, 8ix, nx<F;
intlinMx = TableBTraficoRealMxPidxPixTTP5T ∗
11
H∗ Lectura del Tráfico LDI ENTRANTE ∗L
12
intloutMx = TableBTraficoRealMxPidxPixTTP6T ∗
, 8ix, nx<F;
11
H∗ Lectura del Tráfico LDI SALIENTE ∗L
ldintradMx = interprovoutMx + interprovinMx;
H∗ Total Trafico Interprovincial: Interprovincial Entrante + Interprovincial Saliente ∗L
recldMx = recldnacMx;
H∗ Igual que recldnacMx: Tráfico LDN ENTRANTE ∗L
locinMx + locoutMx
locMx =
;
2
H∗ Tráfco Intraprovincial Promedio: HIntraprovincial Entrante + SalienteLê2 ∗L
1
linesxPixT
intraMx = TableBIfBlinespPprovxPixTT 0, 0, locMxPixT ∗
linespPprovxPixTT
locb
F, 8ix, nx<F;
H∗ Estimación del Tráfico Intracentral ∗L
[email protected]@[email protected], yPix, 13T, intradepinMxPixT, intradepoutMxPixT,
interprovinMxPixT, interprovoutMxPixT, locinMxPixT, locoutMxPixT, recldnacMxPixT, ldMxPixT,
intlinMxPixT, intloutMxPixT, ldintradMxPixT, recldMxPixT, locMxPixT, intraMxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "Intra Dep In", "Intra Dep Out",
"Inter Prov In", "Inter Prov Out", "Intra Prov In", "Intra Prov Out", "LDN In", "LDN Out",
"LDI IN", "LDI Out", "Inter Prov", "LDN In", "Intra Prov Prom", "Intra Central"<<DD;
PrintBStyleB
"ANUALIZACIÓN DE MINUTOS DE USO",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"Por Central"D;
12
;
intrax = intraMx ∗
60
H∗ Tráfco Intranodo en minutos de uso anual ∗L
12
locinx = locinMx ∗
;
60
H∗ Tráfico Intraprovincial Entrante en Minutos de uso anual ∗L
12
;
locoutx = locoutMx ∗
60
H∗ Tráfico Intraprovincial Saliente en Minutos de uso anual ∗L
12
;
interprovinx = interprovinMx ∗
60
H∗ Tráfico Interprovincial Entrante en la Minutos de uso anual ∗L
12
interprovoutx = interprovoutMx ∗
;
60
H∗ Tráfico Interprovincial Saliente en la Minutos de uso anual ∗L
12
ldintradx = ldintradMx ∗
;
60
H∗ Total Trafico Interprovincial en minutos de uso
L
21
H
Total Trafico Interprovincial en minutos de uso
anual: Interprovincial Entrante + Interprovincial Saliente
12
recldx = recldMx ∗
;
60
H∗ Igual que recldnacMx: Tráfico LDN ENTRANTE en minutos de
12
;
ldx = ldMx ∗
60
H∗ Lectura del Tráfico LDN SALIENTE en Minutos de uso anual
12
;
intlinx = intlinMx ∗
60
H∗ Lectura del Tráfico LDI ENTRANTE en minutos de uso anual
12
intloutx = intloutMx ∗
;
60
H∗ Lectura del Tráfico LDI SALIENTE en minutos de uso anual
12
;
locx = locMx ∗
60
H∗ Tráf.Intraprovincial Promedio en minutos de uso anual:
Modelo_Integral_ACK.nb
∗L
uso anual ∗L
∗L
∗L
∗L
Intraprovincial
Entrante + Saliente
2
∗L
[email protected]@[email protected], yPix, 13T, intraxPixT, locinxPixT, locoutxPixT, interprovinxPixT,
interprovoutxPixT, ldintradxPixT, recldxPixT, ldxPixT, intlinxPixT, intloutxPixT, locxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "NombreCentral", "intrax", "locinx", "locoutx", "interprovinx",
"interprovoutx", "ldintradx", "recldx", "ldx", "intlinx", "intloutx", "locx"<<DD;
Print@"Por Provincia"D
intrap = zerop;
locinp = zerop;
locoutp = zerop;
interprovinp = zerop;
interprovoutp = zerop;
ldintradp = zerop;
recldp = zerop;
ldp = zerop;
intlinp = zerop;
intloutp = zerop;
locp = zerop;
[email protected] = intrapPprovxPixTT + intraxPixT;
locinpPprovxPixTT = locinpPprovxPixTT + locinxPixT;
locoutpPprovxPixTT = locoutpPprovxPixTT + locoutxPixT;
interprovinpPprovxPixTT = interprovinpPprovxPixTT + interprovinxPixT;
interprovoutpPprovxPixTT = interprovoutpPprovxPixTT + interprovoutxPixT;
ldintradpPprovxPixTT = ldintradpPprovxPixTT + ldintradxPixT;
recldpPprovxPixTT = recldpPprovxPixTT + recldxPixT;
ldpPprovxPixTT = ldpPprovxPixTT + ldxPixT;
intlinpPprovxPixTT = intlinpPprovxPixTT + intlinxPixT;
intloutpPprovxPixTT = intloutpPprovxPixTT + intloutxPixT;
locpPprovxPixTT = locpPprovxPixTT + locxPixT;, 8ix, nx<D;
H∗ Acumula por provincia el Tráfico Intranodo, Intraprovincial,
Intraprovincial, Interprovincial, Interprovincial,
Interprovincial HInterprovincial Entrante + Interprovincial SalienteL, LDN ENTRANTE, LDN SALIENTE,
LDI ENTRANTE, LDI SALIENTE y Promedio Intra Provincial Saliente + Entrante en minutos de uso anual ∗L
[email protected]@[email protected], provTXTpPipT, intrapPipT, locinpPipT, locoutpPipT, interprovinpPipT,
interprovoutpPipT, ldintradpPipT, recldpPipT, ldpPipT, intlinpPipT, intloutpPipT, locpPipT<, 8ip, np<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ip", "NombreProvincia", "intrap", "locinp", "locoutp", "interprovinp",
"interprovoutp", "ldintradp", "recldp", "ldp", "intlinp", "intloutp", "locp"<<DD;
Print@"Por Departamento"D;
intrad = zerod;
locind = zerod;
locoutd = zerod;
interprovind = zerod;
interprovoutd = zerod;
ldintradd = zerod;
recldd = zerod;
ldd = zerod;
intlind = zerod;
intloutd = zerod;
locd = zerod;
[email protected] = intradPdeptxPixTT + intraxPixT;
locindPdeptxPixTT = locindPdeptxPixTT + locinxPixT;
locoutdPdeptxPixTT = locoutdPdeptxPixTT + locoutxPixT;
interprovindPdeptxPixTT = interprovindPdeptxPixTT + interprovinxPixT;
interprovoutdPdeptxPixTT = interprovoutdPdeptxPixTT + interprovoutxPixT;
ldintraddPdeptxPixTT = ldintraddPdeptxPixTT + ldintradxPixT;
reclddPdeptxPixTT = reclddPdeptxPixTT + recldxPixT;
lddPdeptxPixTT = lddPdeptxPixTT + ldxPixT;
intlindPdeptxPixTT = intlindPdeptxPixTT + intlinxPixT;
intloutdPdeptxPixTT = intloutdPdeptxPixTT + intloutxPixT;
locdPdeptxPixTT = locdPdeptxPixTT + locxPixT;, 8ix, nx<D;
H∗ Acumula por departamento el Tráfico Intranodo, Intraprovincial,
22
H Acumula por departamento el Tráfico Intranodo, Intraprovincial,
Intraprovincial, Interprovincial, Interprovincial,
Interprovincial HInterprovincial Entrante + Interprovincial SalienteL, LDN ENTRANTE, LDN SALIENTE,
LDI ENTRANTE, LDI SALIENTE y Promedio Intra Provincial Saliente + Entrante en minutos de uso anual ∗L
[email protected]@[email protected], deptTXTdPidT, intradPidT, locindPidT, locoutdPidT, interprovindPidT,
interprovoutdPidT, ldintraddPidT, reclddPidT, lddPidT, intlindPidT, intloutdPidT, locdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "NombreDepartamento", "intrad", "locind", "locoutd", "interprovind",
"interprovoutd", "ldintradd", "recldd", "ldd", "intlind", "intloutd", "locd"<<DD;
Modelo_Integral_ACK.nb
PrintB
StyleB
"HORA CARGADA EN ERLANGS", Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"Por Central"D;
intraHC1x
;
intraHCx =
60
H∗ Tráfco Intranodo en minutos de hora cargada ∗L
locinHC1x
locinHCx =
;
60
H∗ Tráfico Intraprovincial Entrante en Minutos de hora cargada ∗L
locoutHC1x
;
locoutHCx =
60
H∗ Tráfico Intraprovincial Saliente en Minutos de hora cargada ∗L
interprovinHC1x
;
interprovinHCx =
60
H∗ Tráfico Interprovincial Entrante en la Minutos de hora cargada ∗L
interprovoutHC1x
interprovoutHCx =
;
60
H∗ Tráfico Interprovincial Saliente en la Minutos de hora cargada ∗L
ldintradHC1x
;
ldintradHCx =
60
H∗ Total Trafico Interprovincial en minutos de hora
cargada: Interprovincial Entrante + Interprovincial Saliente ∗L
recldHC1x
recldHCx =
;
60
H∗ Igual que recldnacMx: Tráfico LDN ENTRANTE en minutos de hora cargada ∗L
ldHC1x
;
ldHCx =
60
H∗ Lectura del Tráfico LDN SALIENTE en Minutos de hora cargada ∗L
intlinHC1x
;
intlinHCx =
60
H∗ Lectura del Tráfico LDI ENTRANTE en minutos de hora cargada ∗L
intloutHC1x
intloutHCx =
;
60
H∗ Lectura del Tráfico LDI SALIENTE en minutos de hora cargada ∗L
locHC1x
;
locHCx =
60
H∗ Tráf.Intraprovincial Promedio en minutos de hora cargada: HIntraprovincial Entrante + SalienteLê2 ∗L
[email protected]@[email protected], yPix, 13T, intraHCxPixT, locinHCxPixT, locoutHCxPixT, interprovinHCxPixT,
interprovoutHCxPixT, ldintradHCxPixT, recldHCxPixT, ldHCxPixT, intlinHCxPixT, intloutHCxPixT, locHCxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "NombreCentral", "intraHCx", "locinHCx", "locoutHCx", "interprovinHCx",
"interprovoutHCx", "ldintradHCx", "recldHCx", "ldHCx", "intlinHCx", "intloutHCx", "locHCx"<<DD;
Print@"Por Provincia"D
intraHCp = zerop;
locinHCp = zerop;
locoutHCp = zerop;
interprovinHCp = zerop;
interprovoutHCp = zerop;
ldintradHCp = zerop;
recldHCp = zerop;
ldHCp = zerop;
intlinHCp = zerop;
intloutHCp = zerop;
locHCp = zerop;
[email protected] = intraHCpPprovxPixTT + intraHCxPixT;
locinHCpPprovxPixTT = locinHCpPprovxPixTT + locinHCxPixT;
locoutHCpPprovxPixTT = locoutHCpPprovxPixTT + locoutHCxPixT;
interprovinHCpPprovxPixTT = interprovinHCpPprovxPixTT + interprovinHCxPixT;
interprovoutHCpPprovxPixTT = interprovoutHCpPprovxPixTT + interprovoutHCxPixT;
ldintradHCpPprovxPixTT = ldintradHCpPprovxPixTT + ldintradHCxPixT;
recldHCpPprovxPixTT = recldHCpPprovxPixTT + recldHCxPixT;
ldHCpPprovxPixTT = ldHCpPprovxPixTT + ldHCxPixT;
intlinHCpPprovxPixTT = intlinHCpPprovxPixTT + intlinHCxPixT;
intloutHCpPprovxPixTT = intloutHCpPprovxPixTT + intloutHCxPixT;
locHCpPprovxPixTT = locHCpPprovxPixTT + locHCxPixT;, 8ix, nx<D;
H∗Acumula por provincia el Tráfico Intranodo, Intraprovincial,
Intraprovincial, Interprovincial, Interprovincial,
23
Modelo_Integral_ACK.nb
Intraprovincial, Interprovincial, Interprovincial,
Interprovincial HInterprovincial Entrante+Interprovincial SalienteL, LDN ENTRANTE, LDN SALIENTE,
LDI ENTRANTE, LDI SALIENTE y Promedio Intra Provincial Saliente+Entrante en minutos de hora cargada∗L
[email protected]@
[email protected], provTXTpPipT, intraHCpPipT, locinHCpPipT, locoutHCpPipT, interprovinHCpPipT, interprovoutHCpPipT,
ldintradHCpPipT, recldHCpPipT, ldHCpPipT, intlinHCpPipT, intloutHCpPipT, locHCpPipT<, 8ip, np<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ip", "NombreProvincia", "intraHCp", "locinHCp", "locoutHCp", "interprovinHCp",
"interprovoutHCp", "ldintradHCp", "recldHCp", "ldHCp", "intlinHCp", "intloutHCp", "locHCp"<<DD;
Print@"Por Departamento"D;
intraHCd = zerod;
locinHCd = zerod;
locoutHCd = zerod;
interprovinHCd = zerod;
interprovoutHCd = zerod;
ldintradHCd = zerod;
recldHCd = zerod;
ldHCd = zerod;
intlinHCd = zerod;
intloutHCd = zerod;
locHCd = zerod;
[email protected] = intraHCdPdeptxPixTT + intraHCxPixT;
locinHCdPdeptxPixTT = locinHCdPdeptxPixTT + locinHCxPixT;
locoutHCdPdeptxPixTT = locoutHCdPdeptxPixTT + locoutHCxPixT;
interprovinHCdPdeptxPixTT = interprovinHCdPdeptxPixTT + interprovinHCxPixT;
interprovoutHCdPdeptxPixTT = interprovoutHCdPdeptxPixTT + interprovoutHCxPixT;
ldintradHCdPdeptxPixTT = ldintradHCdPdeptxPixTT + ldintradHCxPixT;
recldHCdPdeptxPixTT = recldHCdPdeptxPixTT + recldHCxPixT;
ldHCdPdeptxPixTT = ldHCdPdeptxPixTT + ldHCxPixT;
intlinHCdPdeptxPixTT = intlinHCdPdeptxPixTT + intlinHCxPixT;
intloutHCdPdeptxPixTT = intloutHCdPdeptxPixTT + intloutHCxPixT;
locHCdPdeptxPixTT = locHCdPdeptxPixTT + locHCxPixT;, 8ix, nx<D;
H∗Acumula por departamento el Tráfico Intranodo, Intraprovincial,
Intraprovincial, Interprovincial, Interprovincial,
Interprovincial HInterprovincial Entrante+Interprovincial SalienteL, LDN ENTRANTE, LDN SALIENTE,
LDI ENTRANTE, LDI SALIENTE y Promedio Intra Provincial Saliente+Entrante en minutos de hora cargada∗L
[email protected]@Table@8id, deptTXTdPidT, intraHCdPidT, locinHCdPidT, locoutHCdPidT, interprovinHCdPidT,
interprovoutHCdPidT, ldintradHCdPidT, recldHCdPidT, ldHCdPidT, intlinHCdPidT, intloutHCdPidT, locHCdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "NombreDepartamento", "intraHCd", "locinHCd", "locoutHCd", "interprovinHCd",
"interprovoutHCd", "ldintradHCd", "recldHCd", "ldHCd", "intlinHCd", "intloutHCd", "locHCd"<<DD;
ESTIMACION DE RUTAS DIRECTAS
PrintBStyleB
"ESTIMACIONES DE RUTAS DIRECTAS",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
OpenRead@"input_RutasDirectas.txt"D;
RD = N@ReadList@"input_RutasDirectas.txt", Number, RecordLists → TrueDD;
H∗Lectura del fichero de rutas directas∗L
nrd = Length@RDD;
H∗ Numero de registros en el fichero de rutas directas∗L
If@consideraRD 0, Do@RDPi, 3T = 0;, 8i, nrd<D;, Print@"Se consideran Rutas Directas"DD;
PrintAStyleA
"ESTIMACIONES A NIVEL LOCAL", Bold, 16, Underlined, White, Background → BlueEE;
H∗Trafico de salida∗L
locoutRDx = zerox;
restalocoutHCx = zerox;
restalocoutx = zerox;
Do@restalocoutHCxPidinvertxPRDPi, 1TTT =
restalocoutHCxPidinvertxPRDPi, 1TTT − interprovoutHCxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T;
restalocoutxPidinvertxPRDPi, 1TTT = restalocoutxPidinvertxPRDPi, 1TTT −
interprovoutxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T;, 8i, nrd<D;
H∗ Tráfico interprovincial saliente hacia las rutas directas en HC en
minutos: Se define como negativo pues se restará del dimensionamiento necesario ∗L
H∗ El tráfico interprovincial saliente en la HC en minutos se multiplica por el porcentaje
del tráfico total que sale de cada nodo que corresponde a tráfico en las rutas directas ∗L
ldintradHCx = ldintradHCx + restalocoutHCx;
H∗ al total del tráfico interprovincial en la HC Hentrante+salienteL
le resta el tráfico de las rutas directas por tráfico saliente ∗L
H∗ Tráfico interprovincial saliente hacia las rutas directas en minutos de uso
anuales: Se define como negativo pues se restará del dimensionamiento necesario ∗L
H∗ El tráfico interprovincial saliente en minutos de uso anual se multiplica por el porcentaje
del tráfico total que sale de cada nodo que corresponde a tráfico en rutas directas ∗L
ldintradx = ldintradx + restalocoutx;
H∗ al total del tráfico interprovincial en minutos de uso anual
L
24
H
al total del tráfico interprovincial en minutos de uso anual
Hentrante+salienteL le resta el tráfico de las rutas directas por tráfico saliente ∗L
Modelo_Integral_ACK.nb
Print@"Tráfico de Salida"D; Print@
TableForm@Table@8ix, yPix, 13T, restalocoutHCxPixT, ldintradHCxPixT, restalocoutxPixT, ldintradxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "restalocoutHCx", "ldintradHCx", "restalocoutx", "ldintradx"<<DD;
H∗Trafico de entrada∗L
locinRDx = Table@80, 0, 0<, 8ird, nrd<D;
restalocinHCx = zerox;
restalocinx = zerox;
RDPi, 3T
>;
DoBlocinRDxPiT = :idinvertxPRDPi, 1TT, idinvertxPRDPi, 2TT, interprovoutHCxPidinvertxPRDPi, 1TTT ∗
60
restalocinHCxPidinvertxPRDPi, 2TTT =
restalocinHCxPidinvertxPRDPi, 2TTT − interprovoutHCxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T;
restalocinxPidinvertxPRDPi, 2TTT = restalocinxPidinvertxPRDPi, 2TTT − interprovoutxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T;
H∗Lo mismo para los minutos de uso∗L, 8i, nrd<F;
H∗ Para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego,
se toma la variable interprovoutHCx o interprovincial saliente en la HC en minutos de
dichas centrales y se multiplica por su respectivo % de tráfico saliente a través de las RD,
se divide entre 60 para tener Erlangs. Luego, para cada una de las centrales de destino se realiza
la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L
H∗ Tráfico interprovincial entrante de las rutas directas en HC en
minuto: Se define como negativo pues se restará del dimensionamiento necesario ∗L
H∗ Para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego,
se toma la variable interprovoutHCx o interprovincial saliente de dichas centrales en minutos
de HC y se multiplica por su respectivo % de tráfico saliente a través de las RD. Luego,
para cada una de las centrales de destino se realiza la sumatoria de los
resultados estimados en las centrales que le envían tráfico por las RD ∗L
ldintradHCx = ldintradHCx + restalocinHCx;
H∗ al total del tráfico interprovincial en minutos de HC Hentrante+salienteL
se le resta ahora el tráfico de las rutas directas por tráfico entrante∗L
H∗ Tráfico interprovincial entrante de las rutas directas en minutos de uso
anuales: Se define como negativo pues se restará del dimensionamiento necesario ∗L
H∗ Para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego,
se toma la variable interprovoutx o interprovincial saliente anual de dichas centrales en
minutos de uso y se multiplica por su respectivo % de tráfico saliente a través de las RD. Luego,
para cada una de las centrales de destino se realiza la sumatoria de los
resultados estimados en las centrales que le envían tráfico por las RD ∗L
ldintradx = ldintradx + restalocinx;
H∗ al total del tráfico interprovincial en minutos de uso anual
Hentrante+salienteL le resta ahora el tráfico de las rutas directas por tráfico entrante ∗L
loadRDx = locinRDx;
H∗ Igual a la variable locinRDx equivalente al total de las cargas en
Erlangs que entran a cada central a través de RDs Htráfico interprovincialL. Recordar
que: para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego,
se toma la variable interprovoutHCx o interprovincial saliente en minutos de HC de dichas
centrales y se multiplica por su respectivo % de tráfico saliente a través de las RD,
se divide entre 60 para tener Erlangs. Luego, para cada una de las centrales de destino se realiza
la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L
Print@"Tráfico de Entrada"D; Print@
TableForm@Table@8ix, yPix, 13T, restalocinHCxPixT, ldintradHCxPixT, restalocinxPixT, ldintradxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix",
"Nombre Central", "restalocinHCx", "ldintradHCx actualizado", "restalocinx", "ldintradx actualizado"<<DD;
Print@"Rutas Directas"D; Print@
TableForm@Table@8loadRDxPird, 1T, yPloadRDxPird, 1T, 13T, loadRDxPird, 2T, yPloadRDxPird, 2T, 13T, loadRDxPird, 3T<,
8ird, nrd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central Origen", "ix", "Nombre Central Origen", "loadRDx"<<DD;
PrintAStyleA
"ESTIMACIONES A NIVEL LDN", Bold, 16, Underlined, White, Background → BlueEE;
reclimaldx = recldx lima1x;
H∗ Tráfico LDN ENTRANTE en minutos de uso anual en los nodos de Lima ∗L
reclimaldHCx = recldHCx lima1x;
H∗ Tráfico LDN ENTRANTE en HC anual en los nodos de Lima ∗L
recropinterldx = recldx rop1x;
H∗ Tráfico LDN ENTRANTE en minutos de uso anual en los nodos de provincias ∗L
recropinterldHCx = recldHCx rop1x;
H∗ Tráfico LDN ENTRANTE en HC anual en los nodos de provincias ∗L
Print@TableForm@Table@8ix, yPix, 13T, reclimaldxPixT, reclimaldHCxPixT, recropinterldxPixT, recropinterldHCxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "reclimaldx", "reclimaldHCx", "recropinterldx", "recropinterldHCx"<<DD;
25
Modelo_Integral_ACK.nb
PrintBStyleB
"RESUMEN DE TRÁFICO CONMUTABLE",
Bold, 16, Underlined, White, Background → RGBColorB0,
PrintAStyleA
1
, 0FFF;
2
"MINUTOS DE USO", Bold, 16, Underlined, White, Background → BlueEE;
switchendLocx = locinx + locoutx + ldintradx − intrax;
H∗ Tráfico Local que conmuta en minutos de uso anual,
se suman entonces los tráficos: Intraprovincial entrante + Intraprovincial saliente + Interprovincial Total
− El tráfico intranodo Hse resta porque esta duplicado en el intraprovincialL ∗L
H∗ Ojo que el tráficos de Interprovincial Total ya esta descontado el tráfico de las Rutas Directas ∗L
switchendLDNx = ldx + reclimaldx + recropinterldx;
H∗ Tráfico LDN que conmuta en minutos de uso anual, se suman entonces los
tráficos: LDN saliente + LDN Entrante en los nodos de Lima + LDN Entrante en los nodos de Provincias ∗L
H∗ Ojo que los tráficos de LDN Entrante en los nodos de Lima y LDN Entrante en los
nodos de Provincias ya estan descontados del tráfico de las Rutas Directas ∗L
switchendLDIx = intloutx + intlinx;
H∗ Tráfico LDI que conmuta en minutos de uso anual,
se suman entonces los tráficos: LDI Saliente + LDI Entrante ∗L
switchendx = switchendLocx + switchendLDNx + switchendLDIx;
H∗ Continuación de Switchendx ∗L
TempLoc = 0;
TempLDN = 0;
TempLDI = 0;
Do@If@remotexPixT Ï tandemxPixT idinvertxP248T,
TempLoc = TempLoc + switchendLocxPixT;
TempLDN = TempLDN + switchendLDNxPixT;
TempLDI = TempLDI + switchendLDIxPixT;D;, 8ix, nx<D;
Do@If@hostxPixT Ï tandemxPixT ≠ ix Ï tandemxPixT idinvertxP248T,
TempLoc = TempLoc + switchendLocxPixT;
TempLDN = TempLDN + switchendLDNxPixT;
TempLDI = TempLDI + switchendLDIxPixT;D;, 8ix, nx<D;
TempLoc
switchendLocxP248T =
;
TempLoc + TempLDN + TempLDI
TempLDN
switchendLDNxP248T =
;
TempLoc + TempLDN + TempLDI
TempLDI
switchendLDIxP248T =
;
TempLoc + TempLDN + TempLDI
H∗ Tráfico total que conmuta en minutos de uso anual,
se suman entonces los tráficos: switchendLocx + switchendLDNx + switchendLDIx ∗L
H∗ Continua al final de la sección ∗L
Print@TableForm@Table@8ix, yPix, 13T, switchendLocxPixT, switchendLDNxPixT, switchendLDIxPixT, switchendxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "switchendLocx", "switchendLDNx", "switchendLDIx", "switchendx"<<DD;
switchendLocp = zerop;
switchendLDNp = zerop;
switchendLDIp = zerop;
Do@switchendLocpPprovxPixTT = switchendLocpPprovxPixTT + switchendLocxPixT;
switchendLDNpPprovxPixTT = switchendLDNpPprovxPixTT + switchendLDNxPixT;
switchendLDIpPprovxPixTT = switchendLDIpPprovxPixTT + switchendLDIxPixT;, 8ix, nx<D;
switchendp = switchendLocp + switchendLDNp + switchendLDIp;
Print@TableForm@
Table@8ip, provTXTpPipT, switchendLocpPipT, switchendLDNpPipT, switchendLDIpPipT, switchendpPipT<, 8ip, np<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ip", "Nombre Provincia", "switchendLocp", "switchendLDNp", "switchendLDIp", "switchendp"<<DD;
H∗ Se acumula a nivel provincial el trafico Local, LDN, LDI y Total que conmuta en minutos de uso anual ∗L
switchendLocd = zerod;
switchendLDNd = zerod;
switchendLDId = zerod;
Do@switchendLocdPdeptxPixTT = switchendLocdPdeptxPixTT + switchendLocxPixT;
switchendLDNdPdeptxPixTT = switchendLDNdPdeptxPixTT + switchendLDNxPixT;
switchendLDIdPdeptxPixTT = switchendLDIdPdeptxPixTT + switchendLDIxPixT;, 8ix, nx<D;
switchendd = switchendLocd + switchendLDNd + switchendLDId;
Print@TableForm@
Table@8id, deptTXTdPidT, switchendLocdPidT, switchendLDNdPidT, switchendLDIdPidT, switchenddPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "switchendLocd", "switchendLDNd", "switchendLDId", "switchendd"<<DD;
H∗ Se acumula a nivel departamental el trafico Local, LDN, LDI y Total que conmuta en minutos de uso anual ∗L
PrintAStyleA
"HORA CARGADA", Bold, 16, Underlined, White, Background → BlueEE;
switchendHCLocx = locinHCx + locoutHCx + ldintradHCx − intraHCx;
H∗ Tráfico Local que conmuta en minutos de HC,
se suman entonces los tráficos: Intraprovincial entrante + Intraprovincial saliente + Interprovincial Total
− El tráfico intranodo Hse resta porque esta duplicado en el intraprovincialL ∗L
H∗ Ojo que el tráfico Interprovincial Total ya esta descontado del tráfico de las Rutas Directas ∗L
switchendHCLDNx = ldHCx + reclimaldHCx + recropinterldHCx;
H∗ Tráfico LDN que conmuta en minutos de HC, se suman entonces los
L
26
H
Modelo_Integral_ACK.nb
Tráfico LDN que conmuta en minutos de HC, se suman entonces los
tráficos: LDN saliente + LDN Entrante en los nodos de Lima + LDN Entrante en los nodos de Provincias ∗L
H∗ Ojo que los tráficos LDN Entrante en los nodos de Lima y LDN Entrante en los
nodos de Provincias ya estan descontados del tráfico de las Rutas Directas ∗L
switchendHCLDIx = intloutHCx + intlinHCx;
H∗ Tráfico LDI que conmuta en minutos de HC, se suman entonces los tráficos: LDI Saliente + LDI Entrante ∗L
switchendHCx = switchendHCLocx + switchendHCLDNx + switchendHCLDIx;
H∗ Tráfico total que conmuta en minutos de HC,
se suman entonces los tráficos: switchendHCLocx+switchendHCLDNx+switchendHCLDIx ∗L
Print@
TableForm@Table@8ix, yPix, 13T, switchendHCLocxPixT, switchendHCLDNxPixT, switchendHCLDIxPixT, switchendHCxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "switchendHCLocx", "switchendHCLDNx", "switchendHCLDIx", "switchendHCx"<<DD;
switchendHCLocp = zerop;
switchendHCLDNp = zerop;
switchendHCLDIp = zerop;
Do@switchendHCLocpPprovxPixTT = switchendHCLocpPprovxPixTT + switchendHCLocxPixT;
switchendHCLDNpPprovxPixTT = switchendHCLDNpPprovxPixTT + switchendHCLDNxPixT;
switchendHCLDIpPprovxPixTT = switchendHCLDIpPprovxPixTT + switchendHCLDIxPixT;, 8ix, nx<D;
switchendHCp = switchendHCLocp + switchendHCLDNp + switchendHCLDIp;
Print@TableForm@Table@
8ip, provTXTpPipT, switchendLocpPipT, switchendHCLDNpPipT, switchendHCLDIpPipT, switchendHCpPipT<, 8ip, np<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ip", "Nombre Provincia", "switchendHCLocp", "switchendHCLDNp", "switchendLDIp", "switchendHCp"<<DD;
H∗ Se acumula a nivel provincial el trafico Local, LDN, LDI y Total que conmuta en minutos de HC ∗L
switchendHCLocd = zerod;
switchendHCLDNd = zerod;
switchendHCLDId = zerod;
Do@switchendHCLocdPdeptxPixTT = switchendHCLocdPdeptxPixTT + switchendLocxPixT;
switchendHCLDNdPdeptxPixTT = switchendHCLDNdPdeptxPixTT + switchendLDNxPixT;
switchendHCLDIdPdeptxPixTT = switchendHCLDIdPdeptxPixTT + switchendLDIxPixT;, 8ix, nx<D;
switchendHCd = switchendHCLocd + switchendHCLDNd + switchendHCLDId;
Print@TableForm@Table@
8id, deptTXTdPidT, switchendHCLocdPidT, switchendHCLDNdPidT, switchendHCLDIdPidT, switchendHCdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None,
8"id", "Nombre Departamento", "switchendHCLocd", "switchendHCLDNd", "switchendHCLDId", "switchendHCd"<<DD;
H∗ Se acumula a nivel departamental el trafico Local, LDN, LDI y Total que conmuta en minutos HC ∗L
PrintBStyleB
"IDENTIFICACIÓN DE CARGAS EN ERLANGS",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
"CARGAS SATELITALES", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"MINUTOS DE USO", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA
satminLocx = switchendLocx sat1x;
satminLDNx = switchendLDNx sat1x;
satminLDIx = switchendLDIx sat1x;
satldintradx = ldintradx sat1x;
satminx = HsatminLocx + satminLDNx + satminLDIxL sat1x;
Print@TableForm@
Table@8ix, yPix, 13T, satminLocxPixT, satminLDNxPixT, satminLDIxPixT, satldintradxPixT, satminxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "satminLocx", "satminLDNx", "satminLDIx", "satldintradx", "switchendx"<<DD;
satminLocp = zerop;
satminLDNp = zerop;
satminLDIp = zerop;
satldintradp = zerop;
satminp = zerop;
Do@satminLocpPprovxPixTT = satminLocpPprovxPixTT + satminLocxPixT;
satminLDNpPprovxPixTT = satminLDNpPprovxPixTT + satminLDNxPixT;
satminLDIpPprovxPixTT = satminLDIpPprovxPixTT + satminLDIxPixT;
satldintradpPprovxPixTT = satldintradpPprovxPixTT + satldintradxPixT;
satminpPprovxPixTT = satminpPprovxPixTT + satminxPixT, 8ix, nx<D;
Print@TableForm@Table@
8ip, provTXTpPipT, satminLocpPipT, satminLDNpPipT, satminLDIpPipT, satldintradpPipT, satminpPipT<, 8ip, np<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ip", "Nombre Provincia", "satminLocp", "satminLDNp", "satminLDIp", "satldintradp", "switchendp"<<DD;
satminLocd = zerod;
satminLDNd = zerod;
satminLDId = zerod;
satldintradd = zerod;
satmind = zerod;
Do@satminLocdPdeptxPixTT = satminLocdPdeptxPixTT + satminLocxPixT;
satminLDNdPdeptxPixTT = satminLDNdPdeptxPixTT + satminLDNxPixT;
satminLDIdPdeptxPixTT = satminLDIdPdeptxPixTT + satminLDIxPixT;
27
Modelo_Integral_ACK.nb
satminLDIdPdeptxPixTT satminLDIdPdeptxPixTT satminLDIxPixT;
satldintraddPdeptxPixTT = satldintraddPdeptxPixTT + satldintradxPixT;
satmindPdeptxPixTT = satmindPdeptxPixTT + satminxPixT, 8ix, nx<D;
Print@TableForm@Table@
8id, deptTXTdPidT, satminLocdPidT, satminLDNdPidT, satminLDIdPidT, satldintraddPidT, satmindPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None,
8"id", "Nombre Departamento", "satminLocd", "satminLDNd", "satminLDId", "satldintradd", "switchendd"<<DD;
PrintAStyleA
"HORA CARGADA", Bold, 16, Underlined, White, Background → BlueEE;
satminHCLocx = switchendHCLocx sat1x;
satminHCLDNx = switchendHCLDNx sat1x;
satminHCLDIx = switchendHCLDIx sat1x;
satldintradHCx = ldintradHCx sat1x;
satminHCx = HsatldintradHCx + satminHCLDNx + satminHCLDIxL ∗ sat1x;
Print@TableForm@
Table@8ix, yPix, 13T, satminHCLocxPixT, satminHCLDNxPixT, satminHCLDIxPixT, satldintradHCxPixT, satminHCxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None,
8"ix", "Nombre Central", "satminHCLocx", "satminHCLDNx", "satminHCLDIx", "satldintradHCx", "switchendHCx"<<DD;
H∗ Total tráfico en minutos de HC que puede conmutar a nivel de
Tx. satelital: Tráfico total interprovicial Hentrante+salienteL+ LDN Saliente + LDN Entrante + LDI Saliente+
LDI Entrante. Ojo que al tráfico interprovicial total ya se le descontó el tráfico de las rutas directas ∗L
satminHCLocx
loadsatLocx =
;
60
satminHCLDNx
;
loadsatLDNx =
60
satminHCLDIx
;
loadsatLDIx =
60
satminHCx
loadsatx =
;
60
Print@TableForm@Table@8ix, yPix, 13T, loadsatLocxPixT, loadsatLDNxPixT, loadsatLDIxPixT, loadsatxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "loadsatLocx", "loadsatLDNx", "loadsatLDIx", "loadsatx"<<DD;
H∗ Se divide el tráfico considerado para el dimensionamiento satelital entre 60 para expresarlo en Erlangs ∗L
H∗ Tablas Ponderadoras ∗L
satLocx = TableBIfBloadsatxPixT > 0,
satLDNx = TableBIfBloadsatxPixT > 0,
satLDIx = TableBIfBloadsatxPixT > 0,
PrintAStyleA
loadsatLocxPixT
loadsatxPixT
loadsatLDNxPixT
loadsatxPixT
loadsatLDIxPixT
loadsatxPixT
, 0F, 8ix, nx<F;
, 0F, 8ix, nx<F;
, 0F, 8ix, nx<F;
"TRAMO REMOTA−CABECERA", Bold, 16, Underlined, White, Background → BlueEE;
ropminremotehostLocx = Table@If@remotexPixT Ï ropxPixT, switchendLocxPixT − intraxPixT, 0D, 8ix, nx<D;
ropminremotehostLDNx = Table@If@remotexPixT Ï ropxPixT, switchendLDNxPixT, 0D, 8ix, nx<D;
ropminremotehostLDIx = Table@If@remotexPixT Ï ropxPixT, switchendLDIxPixT, 0D, 8ix, nx<D;
ropminremotehostx = ropminremotehostLocx + ropminremotehostLDNx + ropminremotehostLDIx;
Print@
TableForm@Table@8ix, yPix, 13T, ropminremotehostLocxPixT, ropminremotehostLDNxPixT, ropminremotehostLDIxPixT,
ropminremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "ropminremotehostLocx",
"ropminremotehostLDNx", "ropminremotehostLDIx", "ropminremotehostx"<<DD;
ropminremotehostHCLocx = Table@If@remotexPixT Ï ropxPixT, switchendHCLocxPixT − intraHCxPixT, 0D, 8ix, nx<D;
ropminremotehostHCLDNx = Table@If@remotexPixT Ï ropxPixT, switchendHCLDNxPixT, 0D, 8ix, nx<D;
ropminremotehostHCLDIx = Table@If@remotexPixT Ï ropxPixT, switchendHCLDIxPixT, 0D, 8ix, nx<D;
ropminremotehostHCx = ropminremotehostHCLocx + ropminremotehostHCLDNx + ropminremotehostHCLDIx;
Print@TableForm@Table@8ix, yPix, 13T, ropminremotehostHCLocxPixT,
ropminremotehostHCLDNxPixT, ropminremotehostHCLDIxPixT, ropminremotehostHCxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "ropminremotehostHCLocx",
"ropminremotehostHCLDNx", "ropminremotehostHCLDIx", "ropminremotehostHCx"<<DD;
H∗ Para las centrales remotas y de provincias se toma el tráfico total considerado como tráfico
que conmuta y se le resta el tráfico intranodo pues no pasa por la jerarquía R−H ∗L
limaminremotehostLocx = HswitchendLocx − intraxL Hlima1x ∗ remote1xL;
limaminremotehostLDNx = HswitchendLDNxL Hlima1x ∗ remote1xL;
limaminremotehostLDIx = HswitchendLDIxL Hlima1x ∗ remote1xL;
limaminremotehostx = limaminremotehostLocx + limaminremotehostLDNx + limaminremotehostLDIx;
Print@
TableForm@Table@8ix, yPix, 13T, limaminremotehostLocxPixT, limaminremotehostLDNxPixT, limaminremotehostLDIxPixT,
limaminremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "limaminremotehostLocx",
"limaminremotehostLDNx", "limaminremotehostLDIx", "limaminremotehostx"<<DD;
limaminremotehostHCLocx = HswitchendHCLocx − intraHCxL ∗ Hlima1x ∗ remote1xL;
limaminremotehostHCLDNx = HswitchendHCLDNxL ∗ Hlima1x ∗ remote1xL;
limaminremotehostHCLDIx = HswitchendHCLDIxL ∗ Hlima1x ∗ remote1xL;
limaminremotehostHCx = limaminremotehostHCLocx + limaminremotehostHCLDNx + limaminremotehostHCLDIx;
Print@TableForm@Table@8ix, yPix, 13T, limaminremotehostHCLocxPixT,
<
D
28
Modelo_Integral_ACK.nb
Print@TableForm@Table@8ix, yPix, 13T, limaminremotehostHCLocxPixT,
limaminremotehostHCLDNxPixT, limaminremotehostHCLDIxPixT, limaminremotehostHCxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "limaminremotehostHCLocx",
"limaminremotehostHCLDNx", "limaminremotehostHCLDIx", "limaminremotehostHCx"<<DD;
H∗ Para las centrales remotas y de Lima se toma el tráfico total considerado como tráfico
que conmuta y se le resta el tráfico intranodo pues no pasa por la jerarquía R−H ∗L
minremotehostLocx = rop1x ropminremotehostLocx + lima1x limaminremotehostLocx;
minremotehostLDNx = rop1x ropminremotehostLDNx + lima1x limaminremotehostLDNx;
minremotehostLDIx = rop1x ropminremotehostLDIx + lima1x limaminremotehostLDIx;
minremotehostx = rop1x ropminremotehostx + lima1x limaminremotehostx;
Print@TableForm@
Table@8ix, yPix, 13T, minremotehostLocxPixT, minremotehostLDNxPixT, minremotehostLDIxPixT, minremotehostxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None,
8"ix", "Nombre Central", "minremotehostLocx", "minremotehostLDNx", "minremotehostLDIx", "minremotehostx"<<DD;
minremotehostLocd = zerod;
minremotehostLDNd = zerod;
minremotehostLDId = zerod;
minremotehostd = zerod;
Do@minremotehostLocdPdeptxPixTT = minremotehostLocdPdeptxPixTT + minremotehostLocxPixT;
minremotehostLDNdPdeptxPixTT = minremotehostLDNdPdeptxPixTT + minremotehostLDNxPixT;
minremotehostLDIdPdeptxPixTT = minremotehostLDIdPdeptxPixTT + minremotehostLDIxPixT;
minremotehostdPdeptxPixTT = minremotehostdPdeptxPixTT + minremotehostxPixT, 8ix, nx<D;
Print@TableForm@Table@8id, deptTXTdPidT, minremotehostLocdPidT, minremotehostLDNdPidT,
minremotehostLDIdPidT, minremotehostdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento",
"minremotehostLocd", "minremotehostLDNd", "minremotehostLDId", "minremotehostd"<<DD;
minremotehostHCLocx = rop1x ∗ ropminremotehostHCLocx + lima1x ∗ limaminremotehostHCLocx;
minremotehostHCLDNx = rop1x ∗ ropminremotehostHCLDNx + lima1x ∗ limaminremotehostHCLDNx;
minremotehostHCLDIx = rop1x ∗ ropminremotehostHCLDIx + lima1x ∗ limaminremotehostHCLDIx;
minremotehostHCx = rop1x ∗ ropminremotehostHCx + lima1x ∗ limaminremotehostHCx;
Print@TableForm@Table@8ix, yPix, 13T, minremotehostHCLocxPixT, minremotehostHCLDNxPixT,
minremotehostHCLDIxPixT, minremotehostHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central",
"minremotehostHCLocx", "minremotehostHCLDNx", "minremotehostHCLDIx", "minremotehostHCx"<<DD;
H∗ Para Todas las centrales remotas se toma el tráfico total considerado como tráfico que
conmuta y se le resta el tráfico intranodo pues no pasa por la jerarquía R−H ∗L
loadremotehostLocx =
loadremotehostLDNx =
loadremotehostLDIx =
loadremotehostx =
minremotehostHCLocx
;
60
minremotehostHCLDNx
;
60
minremotehostHCLDIx
;
60
minremotehostHCx
;
60
Print@TableForm@Table@8ix, yPix, 13T, loadremotehostLocxPixT, loadremotehostLDNxPixT,
loadremotehostLDIxPixT, loadremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central",
"loadremotehostLocx", "loadremotehostLDNx", "loadremotehostLDIx", "loadremotehostx"<<DD;
H∗ Para todas las remotas se divide el tráfico conmutable Local, LDN,
LDI y TOTAL entre 60 para identificar la carga correspondiente en Erlangs en el nivel R−H ∗L
PrintAStyleA
"TRAMO CABECERA−TANDEM", Bold, 16, Underlined, White, Background → BlueEE;
H∗ A partir de aquí se retira la condición que excluye los satelitales ∗L
ropminhosttandemLocx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendLocpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemLDNx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDNpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemLDIx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDIpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D;
Print@TableForm@Table@8ix, yPix, 13T, ropminhosttandemLocxPixT, ropminhosttandemLDNxPixT,
ropminhosttandemLDIxPixT, ropminhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central",
"ropminhosttandemLocx", "ropminhosttandemLDNx", "ropminhosttandemLDIx", "ropminhosttandemx"<<DD;
ropminhosttandemHCLocx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendHCLocpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL +
If@satxPixT, intraHCpPprovxPixTT, 0D, 0D, 8ix, nx<D;
ropminhosttandemHCLDNx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDNpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemHCLDIx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDIpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemHCx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
D
29
Modelo_Integral_ACK.nb
ropminhosttandemHCx Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ixH Ï satxPixT L,
switchendHCpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL, 0D +
If@satxPixT, intraHCpPprovxPixTT, 0D, 8ix, nx<D;
Print@TableForm@Table@8ix, yPix, 13T, ropminhosttandemHCLocxPixT, ropminhosttandemHCLDNxPixT,
ropminhosttandemHCLDIxPixT, ropminhosttandemHCxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "ropminhosttandemHCLocx",
"ropminhosttandemHCLDNx", "ropminhosttandemHCLDIx", "ropminhosttandemHCx"<<DD;
H∗ Para las centrales que: son Host, son de provincias, no es satelital,
y no es considerada la Tandem de su departamento: Se toma el tráfico total considerado como conmutable a nivel
de toda su provincia restandole los siguiente: El tráfico total Intraprovincial Entrante de la provincia,
El tráfico total Intraprovincial Saliente de la provincia,
y el tráfico Intranodo. Nótese que el tráfico restado es el que no pasa por el nivel H−T ∗L
limaminhosttandemLocx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendLocpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemLDNx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDNpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemLDIx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDIpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D;
Print@TableForm@Table@8ix, yPix, 13T, limaminhosttandemLocxPixT, limaminhosttandemLDNxPixT,
limaminhosttandemLDIxPixT, limaminhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central",
"limaminhosttandemLocx", "limaminhosttandemLDNx", "limaminhosttandemLDIx", "limaminhosttandemx"<<DD;
limaminhosttandemHCLocx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendHCLocpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL +
If@satxPixT, intraHCpPprovxPixTT, 0D, 0D, 8ix, nx<D;
limaminhosttandemHCLDNx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDNpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemHCLDIx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDIpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemHCx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendHCpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL, 0D +
If@satxPixT, intraHCpPprovxPixTT, 0D, 8ix, nx<D;
Print@TableForm@Table@8ix, yPix, 13T, limaminhosttandemHCLocxPixT, limaminhosttandemHCLDNxPixT,
limaminhosttandemHCLDIxPixT, limaminhosttandemHCxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "limaminhosttandemHCLocx",
"limaminhosttandemHCLDNx", "limaminhosttandemHCLDIx", "limaminhosttandemHCx"<<DD;
H∗ Para las centrales que: son Host, son de Lima, no es satelital, y no es considerada la Tandem
de su departamento: Se toma el tráfico total considerado como conmutable a nivel de toda su
provincia restandole los siguiente: El tráfico total Intraprovincial Entrante de la provincia,
El tráfico total Intraprovincial Saliente de la provincia,
y el tráfico Intranodo. Nótese que el tráfico restado es el que no pasa por el nivel H−T ∗L
minhosttandemLocx = rop1x ∗ ropminhosttandemLocx + lima1x ∗ limaminhosttandemLocx;
minhosttandemLDNx = rop1x ∗ ropminhosttandemLDNx + lima1x ∗ limaminhosttandemLDNx;
minhosttandemLDIx = rop1x ∗ ropminhosttandemLDIx + lima1x ∗ limaminhosttandemLDIx;
minhosttandemx = rop1x ∗ ropminhosttandemx + lima1x ∗ limaminhosttandemx;
Print@TableForm@
Table@8ix, yPix, 13T, minhosttandemLocxPixT, minhosttandemLDNxPixT, minhosttandemLDIxPixT, minhosttandemxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None,
8"ix", "Nombre Central", "minhosttandemLocx", "minhosttandemLDNx", "minhosttandemLDIx", "minhosttandemx"<<DD;
minhosttandemLocd = zerod;
minhosttandemLDNd = zerod;
minhosttandemLDId = zerod;
minhosttandemd = zerod;
Do@minhosttandemLocdPdeptxPixTT = minhosttandemLocdPdeptxPixTT + minhosttandemLocxPixT;
minhosttandemLDNdPdeptxPixTT = minhosttandemLDNdPdeptxPixTT + minhosttandemLDNxPixT;
minhosttandemLDIdPdeptxPixTT = minhosttandemLDIdPdeptxPixTT + minhosttandemLDIxPixT;
minhosttandemdPdeptxPixTT = minhosttandemdPdeptxPixTT + minhosttandemxPixT, 8ix, nx<D;
Print@TableForm@Table@8id, deptTXTdPidT, minhosttandemLocdPidT, minhosttandemLDNdPidT,
minhosttandemLDIdPidT, minhosttandemdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento",
"minhosttandemLocd", "minhosttandemLDNd", "minhosttandemLDId", "minhosttandemd"<<DD;
minhosttandemHCLocx = rop1x ∗ ropminhosttandemHCLocx + lima1x ∗ limaminhosttandemHCLocx;
minhosttandemHCLDNx = rop1x ∗ ropminhosttandemHCLDNx + lima1x ∗ limaminhosttandemHCLDNx;
minhosttandemHCLDIx = rop1x ∗ ropminhosttandemHCLDIx + lima1x ∗ limaminhosttandemHCLDIx;
minhosttandemHCx = rop1x ∗ ropminhosttandemHCx + lima1x ∗ limaminhosttandemHCx;
Print@TableForm@Table@8ix, yPix, 13T, minhosttandemHCLocxPixT, minhosttandemHCLDNxPixT,
minhosttandemHCLDIxPixT, minhosttandemHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central",
"minhosttandemHCLocx", "minhosttandemHCLDNx", "minhosttandemHCLDIx", "minhosttandemHCx"<<DD;
30
"minhosttandemHCLocx", "minhosttandemHCLDNx", "minhosttandemHCLDIx", "minhosttandemHCx"<<DD;
H∗Sumando los dos resultados previos HLima+ProvinciasL obtenemos el tráfico
total que es conmutable a nivel H−T∗L
loadhosttandemLocx =
loadhosttandemLDNx =
loadhosttandemLDIx =
loadhosttandemx =
Modelo_Integral_ACK.nb
minhosttandemHCLocx
;
60
minhosttandemHCLDNx
;
60
minhosttandemHCLDIx
;
60
minhosttandemHCx
;
60
Print@TableForm@Table@8ix, yPix, 13T, loadhosttandemLocxPixT, loadhosttandemLDNxPixT,
loadhosttandemLDIxPixT, loadhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central",
"loadhosttandemLocx", "loadhosttandemLDNx", "loadhosttandemLDIx", "loadhosttandemx"<<DD;
H∗Para convertir los minutos a Erlangs∗L
H∗ Se divide el tráfico total considerado como conmutable a nivel H−
T entre 60 para identificar las cargas en Erlangs ∗L
ESTIMACION DE TRONCALES Y E1s DE VOZ
PrintBStyleB
"FÓRMULA DE ERLANG B EN GENERAL",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"Definición de la función CalcTrunk"D;
H∗ ERLANGB ProbLoss@λ_,n_D:=
λn
n!
⁄nj=0
λj
; ∗L
j!
H∗ Formula para hallar el número de troncales, basado en la fórmula de Erlang B ∗L
1
S ∗ n
CalcTrunk@λ_, p_D := ModuleB8n, S<, n = 0; S = 1; IfBλ > 0 Ï p < 1, WhileB > p, n = n + 1; S =
+ 1;F;, n = 0F; nF;
S
λ
H∗ Se define esta función para evitar estar calculando manualmente
las cargas con procedimientos que son iguales a lo largo de todo el código.∗L
PrintBStyleB
"ESTIMACIÓN DEL NÚMERO DE TRONCALES Y DE E1s DE VOZ",
Bold, 16, Underlined, White, Background → RGBColorB0,
PrintAStyleA
1
, 0FFF;
2
"A NIVEL SATELITAL", Bold, 16, Underlined, White, Background → BlueEE;
trunksatx = zerox;
e1satx = zerox;
Do@If@deptxPixT ≠ MADREDEDIOS, trunksatxPixT = CalcTrunk@loadsatxPixT, probD;D;, 8ix, nx<D;
CeilingA
DoBe1satxPixT = CeilingB
trunksatx PixT
E
30
compresDCME
F, 8ix, nx<F;
Print@TableForm@
Table@8ix, yPix, 13T, trunksatxPixT, e1satxPixT<, 8ix, Select@Range@nxD, trunksatxPT > 0 Í e1satxPT > 0 &D<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "trunksatx", "e1satx"<<DD;
H∗ Se estima el número de troncales a nivel Satelital sobre la base de las
cargas en Erlangs estimadas en la sección anterior ∗L
H∗ A partir del número de troncales estimados se estima el núemro de E1s
correspondientes. Para ello se divide el número de troncales entre 30 ∗L
PrintAStyleA
"A NIVEL DE RUTAS DIRECTAS", Bold, 16, Underlined, White, Background → BlueEE;
trunkRDx = Table@8loadRDxPird, 1T, loadRDxPird, 2T, CalcTrunk@loadRDxPird, 3T, probD<, 8ird, nrd<D;
Print@TableForm@Table@8ird, trunkRDxPird, 1T, yPtrunkRDxPird, 1T, 13T,
trunkRDxPird, 2T, yPtrunkRDxPird, 2T, 13T, trunkRDxPird, 3T<, 8ird, nrd<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ird", "ix Origen", "Nombre Central Origen", "ix Destino", "Nombre Central Destino", "trunkRDx"<<DD;
e1RDx = zerox;
trunkRDx Pird ,3T
30
F;, 8ird, nrd<F;
fiberfill
Print@TableForm@Table@8ix, yPix, 13T, e1RDxPixT<, 8ix, Select@Range@nxD, e1RDxPT > 0 &D<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "e1RDx"<<DD;
H∗ Se estima el número de troncales correspondiente al tráfico de las Rutas Directas. La variable
loadRDx equivalente al total de las cargas en Erlangs que entran a cada central a través de RDs. Recordar
que para cada central se identificó las centrales que le envían tráfico mediante las RD. Luego,
se tomó la variable interprovoutHCx o interprovincial saliente en minutos de HC de dichas
centrales y se multiplicó por su respectivo % de tráfico saliente a través de las RD,
se dividió entre 60 para tener Erlangs. Luego, para cada una de las centrales de destino se realizó
la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L
H∗ A partir del número de troncales de las RDS se estima el núemro de E1s
correspondientes. Se divide entre 30 y entre el factor de utilización ∗L
DoBe1RDxPtrunkRDxPird, 1TT = e1RDxPtrunkRDxPird, 1TT + CeilingB
31
Modelo_Integral_ACK.nb
PrintAStyleA
"A NIVEL REMOTA−CABECERAS", Bold, 16, Underlined, White, Background → BlueEE;
trunkremotehostx = zerox;
e1remotehostx = zerox;
DoBtrunkremotehostxPixT = CalcTrunk@loadremotehostxPixT, probD;
F;,
fiberfill
trunkremotehostxPixT
IfBfiberxPixT, e1remotehostxPixT = CeilingB
IfBsatxPixT, e1remotehostxPixT = CeilingB
trunkremotehostx PixT
30
30
trunkremotehostx PixT
30
F;,
F;F;F;, 8ix, nx<F;
radiofill
Print@TableForm@Table@8ix, yPix, 13T, trunkremotehostxPixT, e1remotehostxPixT<,
8ix, Select@Range@nxD, trunkremotehostxPT > 0 Í e1remotehostxPT > 0 &D<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "trunkremotehostx", "e1remotehostx"<<DD;
H∗ Se estima el número de troncales a nivel RH sobre la base de las cargas
en Erlangs estimadas en la sección anterior ∗L
H∗ A partir del número de troncales estimados en el tramo RH se estima el núemro
de E1s correspondientes. Se divide entre 30 y entre el factor de utilización
que corresponde según la tecnología de transmisión empleada en cada central ∗L
TOTALE1 = 0;
TOTALE1 = Plus @@ e1remotehostx;
e1remotehostxPixT = CeilingB
PrintAStyleA
"A NIVEL CABECERAS−TANDEM", Bold, 16, Underlined, White, Background → BlueEE;
trunkhosttandemx = zerox;
e1hosttandemx = zerox;
DoBIfBhost1xPixT 1 Ï tandemxPixT idinvertxP248T,
trunkhosttandemxPixT = CalcTrunkB
loadhosttandemxPixT
, probF;,
2
trunkhosttandemxPixT = CalcTrunk@loadhosttandemxPixT, probD;F;, 8ix, nx<F;
DoBIfBfiberxPixT, e1hosttandemxPixT = CeilingB
trunkhosttandemx PixT
30
fiberfill
IfBsatxPixT, e1hosttandemxPixT = CeilingB
trunkhosttandemx PixT
30
compresDCME
e1hosttandemxPixT = CeilingB
trunkhosttandemx PixT
30
radiofill
F;,
F;,
F;F;F;, 8ix, nx<F;
DoBIfBhost1xPixT 1 Ï tandemxPixT idinvertxP248T,
IfBsat1xPixT 1, e1hosttandemxPixT = CeilingB
2 e1hosttandemxPixT
compresDCME
F;,
e1hosttandemxPixT = 2 e1hosttandemxPixT;F;F;, 8ix, nx<F;
e1hosttandemx = e1hosttandemx + e1RDx;
Print@TableForm@Table@8ix, yPix, 13T, trunkhosttandemxPixT, e1hosttandemxPixT<,
8ix, Select@Range@nxD, trunkhosttandemxPT > 0 Í e1hosttandemxPT > 0 &D<D,
TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "trunkhosttandemx", "e1hosttandemx"<<DD;
H∗ Se estima el número de troncales a nivel HT sobre la base de las cargas
en Erlangs estimadas en la sección anterior ∗L
H∗ A partir del número de troncales estimados en el tramo HT se estima el núemro
de E1s correspondientes. Se divide entre 30 y entre el factor de utilización
que corresponde según la tecnología de transmisión empleada en cada central ∗L
TOTALE1 = TOTALE1 + Plus @@ e1remotehostx;
trunkrdx = zerox;
Do@trunkrdxPtrunkRDxPird, 1TT = trunkrdxPtrunkRDxPird, 1TT + trunkRDxPird, 3T;
trunkrdxPtrunkRDxPird, 2TT = trunkrdxPtrunkRDxPird, 2TT + trunkRDxPird, 3T;, 8ird, nrd<D;
trunkx = Table@remote1xPixT ∗ trunkremotehostxPixT +
host1xPixT ∗ HtrunkhosttandemxPixT ∗ If@deptxPixT LIMA, 2, 1D + trunkrdxPixTL, 8ix, nx<D;
Do@If@remotexPixT, trunkxPallhostxPixTT = trunkxPallhostxPixTT + trunkremotehostxPixTD;
If@hostxPixT Ï tandemxPixT ≠ ix, trunkxPtandemxPixTT = trunkxPtandemxPixTT + trunkhosttandemxPixTD;, 8ix, nx<D;
Print@TableForm@Table@8ix, yPix, 13T, trunkxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "trunkx"<<DD;
H∗ Identificación del total de troncales asociadas a cada central. Para las centrales remotas es
aplicable el total trunkremotehostx, mientras que para las cabeceras es aplicable el total trunkhosttandemx +
trunksatx. A las centrales cabeceras les agrega las troncales de sus remotas asociadas
Hlos trunkremotehostx de sus remotasL. A las centrales Tandem le suma además las
troncales de sus cabeceras asociadas Hlos trunkhosttandemx de sus cabeceras asociadas ∗L
PrintBStyleB"ESTIMACIÓN
DE CARGAS EN E1s ASOCIADAS AL SERVICIO ADSL",
1
, 0FFF;
2
ADSL", Bold, 16, Underlined, White, Background → BlueEE;
Bold, 16, Underlined, White, Background → RGBColorB0,
PrintAStyleA"CIRCUITOS
32
Modelo_Integral_ACK.nb
Print@"demandasADSL1"D;
OpenRead@"Demandas_ADSL_2005OrdTotal_6Pops.txt"D;
demandasADSL1 = ReadList@"Demandas_ADSL_2005OrdTotal_6Pops.txt",
8Word, Word, Word, Real, Real, Real, Real, Real, Real, Real<D;
Close@"Demandas_ADSL_2005OrdTotal_6Pops.txt"D;
Print@"Localidades"D;
Localidades = Length@demandasADSL1D;
Print@LocalidadesD;
H∗ Todas las Localidades con servicio ADSL ∗L
Print@TableForm@Table@Prepend@Table@demandasADSL1Pi, jT, 8j, 1, 10<D, iD, 8i, Localidades<D,
TableDirections → 8Column, Row<, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"Nro", "Departamento", "Nombre",
"Pop", "Id Central", "2000", "600", "400", "200", "100", "Plus"<<DD;
H∗Importación de la demanda de cada año∗L
Print@"equivADSL"D;
equivADSL = Table@8i, idinvertxPdemandasADSL1Pi, 4TT<, 8i, Localidades<D;
Print@TableFormequivADSLD;
H∗Se utiliza un input para la equivalencia entre Localidad ADSL y
Central en la red Fija Ya no se utiliza el archivo input_equiv_ADSL.txt∗L
Print@"neq"D;
neq = Length@equivADSLD;
Print@neqD;
Print@"EquivADSLFija"D;
EquivADSLFija = Table@0, 8ix, nx<D;
Do@
If@equivADSLPieq, 2T ≠ 0, EquivADSLFijaPequivADSLPieq, 2TT = equivADSLPieq, 1T;D;, 8ieq, neq<D;
Print@EquivADSLFijaD;
H∗ lista de nodos ATM en Lima∗L
OpenRead@"NodosATMLima_6Pops.txt"D;
H∗Instruccion escondida. En texto blanco∗L
CxATMLima1x = ReadList@"NodosATMLima_6Pops.txt", RealD;
CxATMLimax = zerox;
Do@CxATMLimaxPidinvertxPixTT = CxATMLima1xPixT, 8ix, nx<D;
Print@CxATMLimaxD;
Print@"sumademandasADSL"D;
sumademandasADSL =
Table@demandasADSL1Pi, 5T + demandasADSL1Pi, 6T + demandasADSL1Pi, 7T + demandasADSL1Pi, 8T +
demandasADSL1Pi, 9T + demandasADSL1Pi, 10T, 8i, Localidades<D; Print@sumademandasADSLD;
H∗Suma las demandas ∗L
Print@"demandasADSL1x"D;
demandasADSL1x = Table@Table@0, 8il, 6<D, 8ix, nx<D;
Do@If@EquivADSLFijaPixT ≠ 0,
auxLoc = EquivADSLFijaPixT;
demandasADSL1xPix, 1T = demandasADSL1xPix, 1T + demandasADSL1PauxLoc,
demandasADSL1xPix, 2T = demandasADSL1xPix, 2T + demandasADSL1PauxLoc,
demandasADSL1xPix, 3T = demandasADSL1xPix, 3T + demandasADSL1PauxLoc,
demandasADSL1xPix, 4T = demandasADSL1xPix, 4T + demandasADSL1PauxLoc,
demandasADSL1xPix, 5T = demandasADSL1xPix, 5T + demandasADSL1PauxLoc,
demandasADSL1xPix, 6T = demandasADSL1xPix, 6T + demandasADSL1PauxLoc,
Print@TableForm@demandasADSL1xDD;
H∗Distribución de las demandas a nivel departamental∗L
5T;
6T;
7T;
8T;
9T;
10T;D;, 8ix, nx<D;
Print@"demandasADSL1Nuc"D;
demandasADSL1Nuc = demandasADSL1x;
Print@TableForm@demandasADSL1NucDD;
H∗Distribución de las demandas para Nuc∗L
Print@"sumademandasADSLNuc"D;
sumademandasADSLNuc =
Table@demandasADSL1NucPi, 1T + demandasADSL1NucPi, 2T + demandasADSL1NucPi, 3T + demandasADSL1NucP
i, 4T + demandasADSL1NucPi, 5T + demandasADSL1NucPi, 6T, 8i, nx<D; Print@sumademandasADSLNucD;
H∗Suma las demandas Nuc∗L
33
H Suma las demandas Nuc L
Modelo_Integral_ACK.nb
Print@"SumDemADSL"D;
SumDemADSL = Plus @@ sumademandasADSL;
Print@SumDemADSLD;
H∗Suma las demandas Total ∗L
Print@"demandaADSL2000"D;
demandaADSL2000 = Table@demandasADSL1Pi, 5T, 8i, Localidades<D;
Print@demandaADSL2000D;
Print@"demandaADSL2000Nuc"D;
demandaADSL2000Nuc = Table@demandasADSL1NucPix, 1T, 8ix, nx<D;
Print@demandaADSL2000NucD;
Print@"SumComprobdemandaADSL2000"D;
SumComprobdemandaADSL2000 = Plus @@ demandaADSL2000;
Print@SumComprobdemandaADSL2000D;
Print@"CentralesConExtensores"D;
demandaADSL2000
F;
40
E;∗L
H∗CentralesConExtensores=CeilingA sumademandasADSL
40
CentralesConExtensores = CeilingB
Print@CentralesConExtensoresD;
H∗Se ha modificado la expresion de tal manera que unicamente
se consideren las lineas de 2Mbps para el empleo de los extensores ∗L
H∗ Uso de extensores. ∗L
Print@"SumCentralesConExtensores"D;
SumCentralesConExtensores = Plus @@ CentralesConExtensores;
Print@SumCentralesConExtensoresD;
H∗Se añadio instruccion de suma de comprobacion de
las lineas que requieres adecuacion utilizando extensores∗L
PrintAStyleA"CARGA
DE VELOCIDAD", Bold, 16, Underlined, White, Background → BlueEE;
OpenRead@"Servicios_ADSLCambios.txt"D;
velocidadADSL = ReadList@"Servicios_ADSLCambios.txt", 8Word, Real<D;
Close@"Servicios_ADSLCambios.txt"D;
H∗Carga las velocidades de cada uno de los tipos de servicios de ADSL∗L
Print@"velocidad2000"D;
velocidad2000 = velocidadADSLP1TP2T;
Print@velocidad2000D;
H∗Carga las velocidad 2000 en fraccion de Mbps∗L
Print@"velocidad1200"D;
velocidad1200 = velocidadADSLP2TP2T;
Print@velocidad1200D;
H∗Se ha cambiado 600 por 1200 para que corresponda con
el valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L
H∗velocidad600=velocidadADSLP2TP2T;∗L
Print@"velocidad900"D;
velocidad900 = velocidadADSLP3TP2T;
Print@velocidad900D;
H∗Se ha cambiado 400 por 900 para que corresponda con el
valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L
H∗velocidad400=velocidadADSLP3TP2T;∗L
Print@"velocidad600"D;
velocidad600 = velocidadADSLP4TP2T;
Print@velocidad600D;
H∗Se ha cambiado 200 por 600 para que corresponda con el
valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L
H∗velocidad200=velocidadADSLP4TP2T;∗L
Print@"velocidad400"D;
velocidad400 = velocidadADSLP5TP2T;
Print@velocidad400D;
H∗Se ha cambiado 100 por 400 para que corresponda con el
L
34
H Se ha cambiado 100 por 400 para que corresponda con el
valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L
H∗velocidad100=velocidadADSLP5TP2T;∗L
Modelo_Integral_ACK.nb
Print@"velocidadPlus"D;
velocidadPlus = velocidadADSLP6TP2T;
Print@velocidadPlusD;
H∗Carga las velocidad Plus en fraccion de Mbps∗L
Print@"porcentajeBWGarant"D;
porcentajeBWGarant = velocidadADSLP7TP2T;
Print@porcentajeBWGarantD;
H∗Carga las velocidad Plus en fraccion de Mbps∗L
Print@"porcentajeBWGarantPlus"D;
porcentajeBWGarantPlus = porcentajeBWGarant;
Print@porcentajeBWGarantPlusD;
H∗Carga las velocidad Plus en fraccion de Mbps∗L
H∗Calcula el Ancho de Banda de seguridad∗L
H∗Observacion: Como se variaron los nombres de las velocidades
en el paso anterior se ha cambiado la siguiente instruccion para que
pueda leer los valores del archivo de entrada Servicios_ADSLCambios∗L
H∗BWGarant=Table@HHdemandasADSLPa,i,4T∗velocidad2000+demandasADSLPa,i,5T∗velocidad600+
demandasADSLPa,i,6T∗velocidad400+demandasADSLPa,i,7T∗velocidad200+
demandasADSLPa,i,8T∗velocidad100L∗porcentajeBWGarant+
demandasADSLPa,i,9T∗velocidadPlus∗porcentajeBWGarantPlusL,8a,Años<,8i,Localidades<D;∗L
H∗Se ha añadido 10% de Overbooking Hcómo parámetro factredndL en el calculo
del ancho de banda de seguridad para aprovechar las caracteristicas
estadistica de las transmisiones en rafagas de los clientes,
aumentando asi la utilizacion de los recursos de red∗L
Print@"BWGarant"D;
BWGarant = Table@HHdemandasADSL1Pi, 5T ∗ velocidad2000 + demandasADSL1Pi, 6T ∗ velocidad1200 +
demandasADSL1Pi, 7T ∗ velocidad900 + demandasADSL1Pi, 8T ∗ velocidad600 +
demandasADSL1Pi, 9T ∗ velocidad400L ∗ porcentajeBWGarant + demandasADSL1Pi, 10T ∗
velocidadPlus ∗ porcentajeBWGarantPlusL, 8i, Localidades<D ∗ factrednd;
Print@BWGarantD; BWGarantNuc = Table@HHdemandasADSL1NucPin, 1T ∗ velocidad2000 +
demandasADSL1NucPin, 2T ∗ velocidad1200 + demandasADSL1NucPin, 3T ∗ velocidad900 +
demandasADSL1NucPin, 4T ∗ velocidad600 + demandasADSL1NucPin, 5T ∗ velocidad400L ∗
porcentajeBWGarant + demandasADSL1NucPin, 6T ∗ velocidadPlus ∗
porcentajeBWGarantPlusL, 8in, nx<D ∗ factrednd;
Print@BWGarantNucD;
H∗ Calcula el Ancho de Banda de seguridad,
usamos aquí y sólo aquí el factor de redundancia ∗L
Print@"SumBWGarant"D;
SumBWGarant = Plus @@ BWGarant;
Print@SumBWGarantD;
Print@"SumBWGarantNuc"D;
SumBWGarantNuc = Plus @@ BWGarantNuc;
Print@SumBWGarantNucD;
PrintA
StyleA"PRECIOS
DE CLUSTER_FULL, SHELF_FULL, TARJ_LT_24, SHELF_ARMARIO,
SHELF_EXTENSION, TARJ_NT_8_MBPS, TARJ_NT_34_MBPS,
TARJ_NT_155_MBPS", Bold, 16, Underlined, White, Background → BlueEE;
Print@"preciosADSL"D;
OpenRead@"Precios_DSLAM.txt"D;
preciosADSL = ReadList@"Precios_DSLAM.txt", 8Word, Real<D;
Close@"Precios_DSLAM.txt"D;
Print@preciosADSLD;
Print@"precioClusterFull"D;
precioClusterFull = preciosADSLP1TP2T;
Print@precioClusterFullD;
Print@"precioShelfFull"D;
35
Print@"precioShelfFull"D;
precioShelfFull = preciosADSLP2TP2T;
Print@precioShelfFullD;
Print@"precioTarjLT24"D;
precioTarjLT24 = preciosADSLP3TP2T;
Print@precioTarjLT24D;
Print@"precioShelf"D;
precioShelf = preciosADSLP4TP2T;
Print@precioShelfD;
Print@"precioArmario"D;
precioArmario = preciosADSLP5TP2T;
Print@precioArmarioD;
Print@"precioShelfExtension"D;
precioShelfExtension = preciosADSLP6TP2T;
Print@precioShelfExtensionD;
Print@"precioTarjNT8"D;
precioTarjNT8 = preciosADSLP7TP2T;
Print@precioTarjNT8D;
Print@"precioTarjNT34"D;
precioTarjNT34 = preciosADSLP8TP2T;
Print@precioTarjNT34D;
Print@"precioTarjNT155"D;
precioTarjNT155 = preciosADSLP9TP2T;
Print@precioTarjNT155D;
Print@"precioPreconcentrClusterFull"D;
precioPreconcentrClusterFull = preciosADSLP10TP2T;
Print@precioPreconcentrClusterFullD;
Print@"precioPreconcentrShelfFull"D;
precioPreconcentrShelfFull = preciosADSLP11TP2T;
Print@precioPreconcentrShelfFullD;
Print@"precioTarjLT4E1"D;
precioTarjLT4E1 = preciosADSLP12TP2T;
Print@precioTarjLT4E1D;
Print@"precioExtensorADSL"D;
precioExtensorADSL = preciosADSLP13TP2T;
Print@precioExtensorADSLD;
PrintAStyleA
"Parámetros de Máximo número de usuarios por componente: Cluster,
Shelf y Tarj", Bold, 16, Underlined, White, Background → BlueEE;
Print@"parametrosDSLAM"D;
OpenRead@"Parametros_DSLAM.txt"D;
parametrosDSLAM = ReadList@"Parametros_DSLAM.txt", 8Word, Real<D;
Close@"Parametros_DSLAM.txt"D;
Print@parametrosDSLAMD;
H∗Parámetros de Máximo número de usuarios por componente: Cluster, Shelf y Tarj∗L
Print@"maxUsrCluster"D;
maxUsrCluster = parametrosDSLAMP1TP2T;
Print@maxUsrClusterD;
H∗ Parámetros de Máximo número de usuarios por Cluster ∗L
Print@"maxUsrShelf"D;
maxUsrShelf = parametrosDSLAMP2TP2T;
Print@maxUsrShelfD;
H∗ Parámetros de Máximo número de usuarios por Shelf ∗L
Print@"maxUsrTarj"D;
Modelo_Integral_ACK.nb
36
Print@"maxUsrTarj"D;
maxUsrTarj = parametrosDSLAMP3TP2T;
Print@maxUsrTarjD;
H∗ Parámetros de Máximo número de usuarios por Tarjeta ∗L
PrintAStyleA"Número
Modelo_Integral_ACK.nb
de componentes que forman los DSLAMs por ubicación",
Bold, 16, Underlined, White, Background → BlueEE;
Print@"numeroClusterFull"D;
numeroClusterFull = TableBFloorB
sumademandasADSLPiT
F, 8i, Localidades<F;
maxUsrCluster
Print@numeroClusterFullD;
H∗ Número de los Clusters completos ∗L
Print@"numeroClusterFullNuc"D;
sumademandasADSLNuc
numeroClusterFullNuc = FloorB
F;
maxUsrCluster
Print@numeroClusterFullNucD;
H∗ Número de los Clusters completos Nuc ∗L
Print@"SumnumeroClusterFull"D;
Sum numeroClusterFull = Plus @@ numeroClusterFull;
Print@SumnumeroClusterFullD;
H∗Instruccion añadida para verificacion de suma de numero de clusters totalmente ocupados∗L
P rint@"numeroShelfFull"D;
numeroShelfFull =
sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster
F, 8i, Localidades<F;
TableBFloorB
maxUsrShelf
Print@numeroShelfFullD;
H∗ Número de los Armarios completos ∗L
P rint@"numeroShelfFullNuc"D;
sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster
F;
numeroShelfFullNuc = FloorB
maxUsrShelf
Print@numeroShelfFullNucD;
H∗ Número de los Armarios completos Nuc ∗L
Print@"SumnumeroShelfFull"D;
Sum numeroShelfFull = Plus @@ numeroShelfFull;
Print@Sum numeroShelfFullD;
H∗Instruccion añadida para verificacion de suma de numero de Shelfs completamente ocupados∗L
Print@"numeroTarjLT24"D;
numeroTarjLT24 = TableBCeilingB
sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster − numeroShelfFullPiT ∗ maxUsrShelf
F,
maxUsrTarj
8i, Localidades<F;
Print@numeroTarjLT24D;
H∗ Número de Tarjetas de Terminación de Línea ∗L
Print@"nuermoTarjLT24Nuc"D;
numeroTarjLT24Nuc = CeilingB
sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster − numeroShelfFullNuc ∗ maxUsrShelf
F;
maxUsrTarj
Print@numeroTarjLT24NucD;
H∗ Número de Tarjetas de Terminación de Línea Nuc∗L
Print@"SumnumeroTarjLT24"D;
SumnumeroTar jLT24 = Plus @@ numeroTarjLT24;
Print@Sumn umeroTarjLT24D;
H∗Instruccion añadida para verificacion de
suma de numero de Tarjetas de Terminacion de Linea∗L
Print@"numeroArmario"D;
numeroArmario =
sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster
TableBCeilingB
F, 8i, Localidades<F;
2 maxUsrShelf
37
Modelo_Integral_ACK.nb
Print@numeroArmarioD;
Print@"numeroArmarioNuc"D;
numeroArmarioNuc = CeilingB
sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster
F;
2 maxUsrShelf
Print@numeroArmarioNucD;
Print@"SumnumeroArmario"D;
SumnumeroArmario = Plus @@ numeroArmario;
Print@SumnumeroArmarioD;
H∗Instruccion añadida para verificacion de suma de numero de Armarios∗L
Print@"CostoDSLAMsintarjetaNT"D;
CostoDSLAMsintarjetaNT =
Table@HnumeroClusterFullPiT ∗ precioClusterFull + numeroShelfFullPiT ∗ precioShelfFull +
numeroTarjLT24PiT ∗ precioTarjLT24 + numeroArmarioPiT ∗ precioArmario +
HIf@numeroShelfFullPiT > 1, If@numeroTarjLT24PiT > 0, numeroShelfFullPiT,
HnumeroShelfFullPiT − 1LD, 0DL ∗ precioShelfExtension +
HIf@numeroTarjLT24PiT > 0, precioShelf, 0DLL, 8i, Localidades<D;
Print@CostoDSLAMsintarjetaNTD;
Print@"CostoDSLAMsintarjetaNTNuc"D;
CostoDSLAMsintarjetaNTNuc = Table@0, 8i, nx<D;
Print@CostoDSLAMsintarjetaNTNucD;
Print@"SumCostoDSLAMsintarjetaNT"D;
SumCostoDSLAMsintarjetaNT = Plus @@ CostoDSLAMsintarjetaNT;
Print@SumCostoDSLAMsintarjetaNTD;
H∗Instruccion añadida para verificacion de suma
del costo de DSLAM sin Tarjeta de Terminacion de Red∗L
Print@"BWClusterFull"D;
BWClusterFull = Table@If@CostoDSLAMsintarjetaNTPiT 0, 0,
BWGarantPiT HnumeroClusterFullPiT maxUsrClusterL ê HnumeroClusterFullPiT maxUsrCluster +
numeroShelfFullPiT maxUsrShelf + numeroTarjLT24PiT maxUsrTarjLD, 8i, Localidades<D;
Print@BWClusterFullD;
Print@"BWClusterFullNuc"D;
BWClusterFullNuc = Table@BWGarantNucPiT, 8i, nx<D;
Print@BWClusterFullNucD;
Print@"SumBWClusterFull"D;
SumBWClusterFull = Plus @@ BWClusterFull;
Print@SumBWClusterFullD;
H∗Instruccion añadida para verificacion de suma
de los anchos de banda de Clusters Totalmente ocupados∗L
Print@"BWClusterParcial"D;
BWClusterParcial = Table@If@CostoDSLAMsintarjetaNTPiT 0, 0,
BWGarantPiT HnumeroShelfFullPiT ∗ maxUsrShelf + numeroTarjLT24PiT ∗ maxUsrTarjL ê
HnumeroClusterFullPiT maxUsrCluster + numeroShelfFullPiT maxUsrShelf +
numeroTarjLT24PiT maxUsrTarjLD, 8i, Localidades<D;
Print@BWClusterParcialD;
H∗Calcula el ancho de banda del Cluster Parcialmente ocupado∗L
Print@"BWClusterParcialNuc"D;
BWClusterParcialN uc = Table@0, 8i, nx<D;
Print@BWClusterParcialNucD;
H∗Calcula el ancho de banda del Cluster Parcialmente ocupado Nuc∗L
Print@"SumBWClusterParcial"D;
SumBWClusterParcial = Plus @@ BWClusterParcial;
Print@SumBWClusterParcialD;
H∗Instruccion añadida para verificacion de suma
de los anchos de banda de Clusters parcialmente ocupados∗L
Print@"TarjNTClusterFull"D;
TarjNTClusterFull =
38
Modelo_Integral_ACK.nb
TableBIfBBWClusterFullPiT > 0, IfBBWClusterFullPiT ≤ 8, 8, IfB
BWClusterFullPiT
≤ 34,
numeroClusterFullPiT
BWClusterFullPiT
≤ 155, 155, "No"FFF, 0F, 8i, Localidades<F;
numeroClusterFullPiT
Print@TarjNTClusterFullD;
34, IfB
Print@"TarjNTClusterFullNuc"D;
TarjNTClusterFullNuc = Table@0, 8i, nx<D;
Print@TarjNTClusterFullNucD;
Print@"TarjNTClusterParcial"D;
TarjNTClusterParcial =
Table@HIf@BWClusterParcialPiT > 0, If@BWClusterParcialPiT ≤ 8, 8, If@BWClusterParcialPiT ≤ 34,
34, If@BWClusterParcialPiT ≤ 155, 155, "No"DDD, 0DL, 8i, Localidades<D;
Print@TarjNTClusterParcialD;
Print@"TarjNTClusterParcialNuc"D;
TarjNTClusterParcialNuc = Table@0, 8i, nx<D;
Print@TarjNTClusterParcialNucD;
Print@"SumTarjNTClusterParcial"D;
SumTarjNTClusterParcial = Plus @@ TarjNTClusterParcial;
Print@SumTarjNTClusterParcialD;
H∗Instruccion añadida para verificacion de suma de las velocidades de las Tarjetas de
Terminacion para Clusters parcialmente ocupados∗LPrint@"CostoDSLAMConTarjetaNT1"D;
CostoDSLAMConTarjetaNT1 = Table@HCostoDSLAMsintarjetaNTPiT +
HIf@TarjNTClusterFullPiT 8, precioTarjNT8, If@TarjNTClusterFullPiT 34,
precioTarjNT34, If@TarjNTClusterFullPiT 155, precioTarjNT155, 0DDDL ∗
numeroClusterFullPiT + HIf@TarjNTClusterParcialPiT 8, precioTarjNT8,
If@TarjNTClusterParcialPiT 34, precioTarjNT34,
If@TarjNTClusterParcialPiT 155, precioTarjNT155, 0DDDLL, 8i, Localidades<D;
Plus @@ CostoDSLAMConTarjetaNT1P1T;
Print@CostoDSLAMConTarjetaNT1D;
H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red∗L
Print@"CostoDSLAMConTarjetaNT1"D;
CostoDSLAMConTarjetaNT1 = Table@HCostoDSLAMsintarjetaNTPiT +
HIf@TarjNTClusterFullPiT 8, precioTarjNT8, If@TarjNTClusterFullPiT 34,
precioTarjNT34, If@TarjNTClusterFullPiT 155, precioTarjNT155, 0DDDL ∗
numeroClusterFullPiT + HIf@TarjNTClusterParcialPiT 8, precioTarjNT8,
If@TarjNTClusterParcialPiT 34, precioTarjNT34,
If@TarjNTClusterParcialPiT 155, precioTarjNT155, 0DDDLL, 8i, Localidades<D;
Plus @@ CostoDSLAMConTarjetaNT1P1T;
Print@CostoDSLAMConTarjetaNT1D;
H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red∗L
Print@"SumCostoDSLAMConTarjetaNT1"D;
SumCostoDSLAMConTarjetaNT1 = Plus @@ CostoDSLAMConTarjetaNT1;
Print@SumCostoDSLAMConTarjetaNT1D;
H∗Instruccion añadida para verificacion de suma
de los costos del DSLAM con Tarjeta de Terminacion de Red∗L
Print@"CostoDSLAMConTarjetaNT"D;
CostoDSLAMConTarjetaNT = CostoDSLAMConTarjetaNT1 + HprecioExtensorADSL CentralesConExtensoresL;
Print@CostoDSLAMConTarjetaNTD;
H∗ Coste de los extensores, en caso de que sean necesarios∗L
H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red mas el costo del extensor
de bucle de abonado donde sean necesarios∗LPrint@"SumCostoDSLAMConTarjetaNT"D;
SumCostoDSLAMConTarjetaNT = Plus @@ CostoDSLAMConTarjetaNT;
Print@SumCostoDSLAMConTarjetaNTD;
H∗Instruccion añadida para verificacion de suma de los costos del DSLAM con Tarjeta
de Terminacion de Red mas los costos de los extensores de bucle de abonado∗L
Print@"InterfazSTM1HaciaPOP"D;
InterfazSTM1HaciaPOP = Table@If@TarjNTClusterFullPiT 155, numeroClusterFullPiT, 0D +
If@TarjNTClusterParcialPiT 155, 1, 0D, 8i, Localidades<D;
Print@InterfazSTM1HaciaPOPD;
Print@"InterfazSTM1HaciaPOPNuc"D;
InterfazSTM1HaciaPOPNuc = Table@0, 8i, nx<D;
Print@InterfazSTM1HaciaPOPNucD;
39
Print@InterfazSTM1HaciaPOPNucD;
Modelo_Integral_ACK.nb
Print@"SumInterfazSTM1HaciaPOP"D;
SumInterfazSTM1HaciaPOP = Plus @@ InterfazSTM1HaciaPOP;
Print@SumInterfazSTM1HaciaPOPD;
H∗Instruccion añadida para verificacion de suma de las interfases STM−1 hacia los PoPs ATM∗L
Print@"InterfazE3HaciaPOP"D;
InterfazE3HaciaPOP = Table@If@TarjNTClusterFullPiT 34, numeroClusterFullPiT, 0D +
If@TarjNTClusterParcialPiT 34, 1, 0D, 8i, Localidades<D;
Print@InterfazE3HaciaPOPD;
Print@"InterfazE3HaciaPOPNuc"D;
InterfazE3HaciaPOPNuc = Table@0, 8i, nx<D;
Print@InterfazE3HaciaPOPNucD;
Print@"SumInterfazE3HaciaPOP"D;
SumInterfazE3HaciaPOP = Plus @@ InterfazE3HaciaPOP;
Print@SumInterfazE3HaciaPOPD;
H∗Instruccion añadida para verificacion de suma de las interfases E−3 hacia los PoPs ATM∗L
Print@"InterfazE1HaciaPOP"D;
InterfazE1HaciaPOP =
BWClusterParcialPiT
F, 0F, 8i, Localidades<F;
TableBIfBTarjNTClusterParcialPiT 8, CeilingB
2.048
Print@InterfazE1HaciaPOPD;
Print@"InterfazE1HaciaPOPNuc"D;
BWClusterFullNucPiT
, 8i, nx<F;
InterfazE1HaciaPOPNuc = TableB
2.048
Print@InterfazE1HaciaPOPNucD;
Print@"SumInterfazE1HaciaPOP"D;
SumInterfazE1HaciaPOP = Plus @@ InterfazE1HaciaPOP;
Print@SumInterfazE1HaciaPOPD;
H∗Instruccion añadida para verificacion de suma de las interfases E−1 hacia los PoPs ATM∗L
Print@"NumE1Equivs"D;
NumE1Equivs = Table@63 ∗ InterfazSTM1HaciaPOPPiT +
16 ∗ InterfazE3HaciaPOPPiT + InterfazE1HaciaPOPPiT, 8i, Localidades<D;
Print@NumE1EquivsD;
H∗Calcula el numero de E1s equivalentes por site hacia los PoPs ATM∗L
Print@"NumE1EquivsNuc"D;
NumE1EquivsNuc = Table@InterfazE1HaciaPOPNucPiT, 8i, nx<D;
Print@NumE1EquivsNucD;
H∗Calcula el numero de E1s equivalentes por site hacia los PoPs ATM∗L
Print@"SumNumE1Equivs"D;
SumNumE1Equivs = Plus @@ NumE1Equivs;
Print@SumNumE1EquivsD;
H∗Instruccion añadida para verificacion de suma del numero de E−
1 equivalentes hacia los PoPs ATM∗L H∗Carga los datos de potencia y energía∗L
OpenRead@"Energia_DSLAM.txt"D;
energiaADSL = ReadList@"Energia_DSLAM.txt", 8Word, Real<D;
Close@"Energia_DSLAM.txt"D;
Print@"CostePorWDSLAM"D;
CostePorWDSLAM = energiaADSLP1TP2T;
Print@CostePorWDSLAMD;
Print@"WPorLineaDSLAM"D;
WPorLineaDSLAM = energiaADSLP2TP2T;
Print@WPorLineaDSLAMD;
H∗Calcula el costo del consumo de energia del DSLAM por watio por site∗L
Print@"CostoEnergiaDSLAM"D;
CostoEnergiaDSLAM =
Table@CostePorWDSLAM ∗ WPorLineaDSLAM ∗ sumademandasADSLPiT, 8i, Localidades<D;
Print@CostoEnergiaDSLAMD;
40
Print@CostoEnergiaDSLAMD;
Modelo_Integral_ACK.nb
H∗Instruccion añadida para verificacion de suma
de los costos de energia de los DSLAM por watio por site∗L
Print@"SumCostoEnergiaDSLAM"D; SumCostoEnergiaDSLAM = Plus @@ CostoEnergiaDSLAM;
Print@SumCostoEnergiaDSLAMD;
PrintAStyleA"REPARTO
A SERVICIOS POR DEPARTAMENTO",
Bold, 16, Underlined, White, Background → BlueEE;
H∗Carga de los ficheros de entrada∗L
OpenRead@"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt"D;
PuertosLima =
ReadList@"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt", 8Word, Real, Real, Real, Real, Real<D;
Close@"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt"D;
H∗La primera columna es la de los departamentos de LIMA, y las restantes,
el número de puertos desde 2005 a 2009∗LPuertosLima = Drop@PuertosLima, 1D;
Print@"PuertosLima"D;
Print@TableForm@PuertosLimaDD;
Print@"NumLIMA"D;
NumLIMA = Length@PuertosLimaD;
Print@NumLIMAD;
Print@"CabsLIMA"D;
CabsLIMA = Table@Plus @@ PuertosLimaPj, kT, 8j, NumLIMA<, 8k, 2, 6<D;
SumCabsLIMA = Plus @@ CabsLIMA;
Print@TableForm@CabsLIMADD;
Print@"SumCabsLIMA"D;
SumCabsLIMA = Plus @@ CabsLIMA;
Print@SumCabsLIMAD;
H∗Calcula la demanda GigADSL mayorista
atendida por los PoPs para servicios mayoristas en Lima∗L
Print@"demADSL"D;
demADSL = Table@0, 8NumLIMA<D;
Do@If@PuertosLimaPj, 1T demandasADSL1Pi, 3T, demADSLPjT += sumademandasADSLPiT;D;,
8i, Localidades<, 8j, 1, NumLIMA<D;
Print@demADSLD;
Print@"ComprobSumDemADSL"D;
ComprobSumDemADSL = Plus @@ demADSL;
Print@ComprobSumDemADSLD;
OpenRead@"LineasGigADSL.txt"D;
LineasGigADSL = ReadList@"LineasGigADSL.txt", 8Word, Real<D;
Close@"LineasGigADSL.txt"D;
Print@"LineasGigADSL"D; Print@TableForm@LineasGigADSLDD;
PrintAStyleA"CARGA
DE LOS FICHEROS DE ENTRADA",
Bold, 16, Underlined, White, Background → BlueEE;
H∗ Antes de Seguir, se Trabajará con el promedio del promedio móvil de los 5 años∗L
H∗Print@"PromLineasGigADSL"D;
PrevLineasGigADSL=Table@HLineasGigADSLPi−1,2T+LineasGigADSLPi,2TLê2,8i,2,5<D;
PromLineasGigADSL=Plus@@PrevLineasGigADSLê4;
Print@PromLineasGigADSLD;∗L
Print@"PorcentajeLinGigADSL"D;
LineasGigADSLP1, 2T
PorcentajeLinGigADSL =
;
SumDemADSL
Print@PorcentajeLinGigADSLD;
H∗ Porcentaje de Líneas GigAdsl,
es la cantidad de Líneas entre la demanda ADSL, a nivel anual ∗L
H∗Calculo del numero de puertos ATM donde se consideran PoPs por departamento∗L
OpenRead@"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt"D;
PuertosDptos = ReadList@
"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt", 8Word, Real, Real, Real, Real, Real<D;
Close@"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt"D;
41
Modelo_Integral_ACK.nb
Close@"PuertosATM155ParaGigADSL Departamentos6PE3TOT.txt"D;
H∗La primera columna es la de los departamentos de Perú, excepto Lima,
y las restantes, el número de puertos desde 2005 a 2009.∗L
PuertosDptos = Append@PuertosDptos, Prepend@SumCabsLIMA, "LIMA"DD;
Print@"PuertosDptos"D; Print@TableForm@PuertosDptosDD;
Print@"NumDPTOS"D;
NumDPTOS = Length@PuertosDptosD;
Print@NumDPTOSD;
PrintAStyleA"Acumula
las Demandas a nivel de Departamento y por año",
Bold, 16, Underlined, White, Background → BlueEE;
H∗Se modifico la expresion para que se acumularan las demandas atendidas por PoPs
a nivel nacional y no limitarlo a la demanda por departamento debido a que los
PoPs ubicados en Arequipa, La Libertad y Lima atienden al resto de departamentos∗L
H∗Do@Do@If@PuertosDptosPj,1TdemandasADSLPa,i,1T,
demADSLDepPa,jT+=sumademandasADSLPa,iT;D;,
8i,Localidades<,8j,1,NumDPTOS<D,8a,Años<D∗L
Print@"demADSLDep"D;
demADSLDep = Table@0, 8NumDPTOS − 1<D;
Do@If@PuertosDptosPj, 1T demandasADSL1Pi, 3T, demADSLDepPjT += sumademandasADSLPiT;D;,
8i, Localidades<, 8j, 1, NumDPTOS<D
Print@demADSLDepD;
H∗Se añadio la siguiente instruccion de suma de comprobacion
de la demanda de usuarios GigADSL mayoristas a nivel nacional∗L
Print@"demADSLDep"D;
demADSLDep = Append@demADSLDep, ComprobSumDemADSLD;
Print@demADSLDepD;
Print@"demADSLDep"D;
demADSLDep = Append@demADSLDep, ComprobSumDemADSLD;
Print@demADSLDepD;
Print@"ComprobSumdemADSLDep"D;
ComprobSumdemADSLDep = Plus @@ demADSLDep;
Print@ComprobSumdemADSLDepD;
Print@"CabsDPTOS"D;
CabsDPTOS = Table@Plus @@ PuertosDptosPj, kT, 8j, NumDPTOS<, 8k, 2, 6<D;
Print@TableForm@CabsDPTOSDD;
H∗Se añadio la siguiente instruccion de suma de comprobacion
del numero de puertos ATM donde se consideran PoPs por departamento∗L
Print@"ComprobSumCabsDPTOS"D;
ComprobSumCabsDPTOS = Table@Plus @@ CabsDPTOSD;
Print@ComprobSumCabsDPTOSD;
H∗Calcula la demanda GigADSL mayorista donde existen puertos ATM a nivel nacional∗L
Print@"LinGigADSLDep"D;
LinGigADSLDep = Table@0, 8NumDPTOS<D;
Do@Do@If@CabsDPTOSPj, 1T ≠ 0, LinGigADSLDepPjT += demADSLDepPjTD, 8j, 1, NumDPTOS<DD
Print@LinGigADSLDepD;
H∗ Sumatoria de las líneas ADSL ∗L
Print@"SumLinGigADSLDep"D;
SumLinGigADSLDep = Plus @@ LinGigADSLDep;
Print@SumLinGigADSLDepD;
H∗ Se calcula el porcentaje GigADSL por departamento ∗L
Print@"PorcentajesNulos"D;
PorcentajesNulos = 0;
Print@PorcentajesNulosD;
Print@"PorcentGigADSLDep"D;
PorcentGigADSLDep =
IfBSumLinGigADSLDep 0, PorcentajesNulos,
Print@PorcentGigADSLDepD;
SumDemADSL ∗ PorcentajeLinGigADSL
SumLinGigADSLDep
F;
42
Print@PorcentGigADSLDepD;
Modelo_Integral_ACK.nb
H∗Calcula la demanda GigADSL mayorista donde existen puertos ATM en el departamento de Lima∗L
Print@"LineasLimaGigADSL"D;
LineasLimaGigADSL = Table@0, 8NumLIMA<D;
Do@If@CabsLIMAPj, 1T ≠ 0, LineasLimaGigADSLPjT += demADSLPjTD, 8j, 1, NumLIMA<D
Print@LineasLimaGigADSLD;
Print@"SumLinLimaGigADSL"D;
SumLinLimaGigADSL = Plus @@ LineasLimaGigADSL;
Print@SumLinLimaGigADSLD;
H∗Se modifico la expresion debido a que en el
porcentaje de lineas GigADSL si bien se toma como dato de entrada,
el valor para cada uno de los años del archivo LineasGigADSL.txt,
este valor es a nivel nacional y esta incluida en la demanda anual pero no especifica que
cantidad realmente corresponde a Lima y que porcentaje para el resto de departamentos
por lo que haciendo los reemplazos corrientes y mas aun con la modificacion del
paso anterior se obtiene el nuevo porcentaje de lineas mayoristas en Lima∗L
H∗PorcentLimaGigADSL=Table@If@SumLinLimaGigADSLPaT0,PorcentajesNulosPaT,
SumDemADSLPaT∗PorcentGigADSLDepPaTêSumLinLimaGigADSLPaTD,8a,Años<D;∗L
Print@"PorcentLimaGigADSL"D;
LineasGigADSLP1, 2T
PorcentLimaGigADSL = IfBSumLinLimaGigADSL 0, PorcentajesNulos,
F;
SumDemADSL
Print@PorcentLimaGigADSLD;
H∗Calcula el porcentaje de servicios GigADSL
mayoristas donde existen puertos ATM a nivel nacional∗L
Print@"PorcentajealineasGigADSLDep"D;
PorcentajealineasGigADSLDep =
Table@If@CabsDPTOSPj, 1T ≠ 0, PorcentGigADSLDep, 0D, 8j, 1, NumDPTOS<D;
Print@TableForm@PorcentajealineasGigADSLDepDD;
H∗Calcula el porcentaje de servicios GigADSL mayoristas
donde existen puertos ATM en el departamento de Lima∗L
Print@"PorcentajealineasGigADSLLima"D; PorcentajealineasGigADSLLima =
Table@If@CabsLIMAPj, 1T ≠ 0, PorcentLimaGigADSL, 0D, 8j, 1, NumLIMA<D;
Print@TableForm@PorcentajealineasGigADSLLimaDD;
PrintBStyleB"CÁLCULO
DE LOS COSTES DE NODOS ATM",
Bold, 16, Underlined, White, Background → BlueFF;
H∗Calcula el numero de usuarios por site para la interfase STM−1∗L
Print@"UsersSTM1"D;
UsersSTM1 =
Table@Min@HmaxUsrCluster ∗ InterfazSTM1HaciaPOPPiTL, sumademandasADSLPiTD, 8i, Localidades<D;
Print@TableForm@UsersSTM1DD;
Print@"SumaUsersSTM1"D;
SumaUsersSTM1 = Table@Plus @@ UsersSTM1D;
Print@SumaUsersSTM1D;
Print@"xCx"D;
xCx = Table@demandasADSL1Pi, 3T, 8i, Localidades<D;
Print@TableForm@xCxDD;
xCx1 = Length@xCxD;
Print@xCx1D;
Print@"UsersSTM1"D;
UsersSTM1 = Table@Prepend@8UsersSTM1PiT<, xCxPiTD, 8i, Localidades<D;
Print@TableForm@UsersSTM1DD;
H∗Calcula el numero de usuarios por site para la interfase E3∗L
Print@"UsersE3"D;
UsersE3 = Table@Min@HmaxUsrCluster ∗ InterfazE3HaciaPOPPiTL,
HsumademandasADSLPiT − UsersSTM1Pi, 2TLD, 8i, Localidades<D;
Print@TableForm@UsersE3DD;
Print@"SumUsersE3"D;
SumUsersE3 = Table@Plus @@ UsersE3D;
43
SumUsersE3 Table@Plus
Print@SumUsersE3D;
UsersE3D;
Modelo_Integral_ACK.nb
Print@"UsersE3"D;
UsersE3 = Table@Prepend@8UsersE3PiT<, xCxPiTD, 8i, Localidades<D;
Print@TableForm@UsersE3DD;
H∗Calcula el numero de usuarios por site para la interfase E1∗L
Print@"UsersE1"D;
UsersE1 = Table@sumademandasADSLPiT − UsersSTM1Pi, 2T − UsersE3Pi, 2T, 8i, Localidades<D;
Print@TableForm@UsersE1DD;
Print@"SumUsersE1"D;
SumUsersE1 = Table@Plus @@ UsersE1D;
Print@SumUsersE1D;
Print@"UsersE1"D;
UsersE1 = Table@Prepend@8UsersE1PiT<, xCxPiTD, 8i, Localidades<D;
Print@TableForm@UsersE1DD;
H∗Calcula el numero de usuarios hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
Print@"DemPorPOP"D;
DemPorPOP = Table@0, 8Localidades<D;
Do@If@UsersSTM1Pi, 1T ≠ UsersSTM1Pi − 1, 1T,
If@UsersSTM1Pj, 1T UsersSTM1Pi, 1T, DemPorPOPPiT += sumademandasADSLPjTD, 0D,
8i, 2, Localidades<, 8j, Localidades<D
Print@DemPorPOPD;
Print@"DemPorPOP1"D;
DemPorPOP1 = Rest@DemPorPOPD;
Print@DemPorPOP1D;
Print@"DemPorPOP2"D;
DemPorPOP2 = 0;
Do@If@UsersSTM1Pj, 1T UsersSTM1P1, 1T, DemPorPOP2 += sumademandasADSLPjT, 0D, 8j, Localidades<D
Print@DemPorPOP2D;
Print@"DemPorPOP3"D;
DemPorPOP3 = Prepend@DemPorPOP1, DemPorPOP2D;
Print@DemPorPOP3D;
Print@"InterfazSTM1"D;
InterfazSTM1 = Table@0, 8Localidades<D;
Do@If@UsersSTM1Pi, 1T ≠ UsersSTM1Pi − 1, 1T,
If@UsersSTM1Pj, 1T UsersSTM1Pi, 1T, InterfazSTM1PiT += InterfazSTM1HaciaPOPPjTD, 0D,
8i, 2, Localidades<, 8j, Localidades<D
Print@InterfazSTM1D;
Print@"InterfazSTM11"D;
InterfazSTM11 = Rest@InterfazSTM1D;
Print@InterfazSTM11D;
Print@"InterfazSTM12"D;
InterfazSTM12 = 0;
Do@If@UsersSTM1Pj, 1T UsersSTM1P1, 1T,
InterfazSTM12 += InterfazSTM1HaciaPOPPjT, 0D, 8j, Localidades<D
Print@InterfazSTM12D;
H∗Calcula el numero de interfases STM−
1 por cabecera hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
Print@"InterfazSTM13"D;
InterfazSTM13 = Prepend@InterfazSTM11, InterfazSTM12D;
Print@InterfazSTM13D;
Print@"SumInterfazSTM13"D;
SumInterfazSTM13 = Plus @@ InterfazSTM13;
Print@SumInterfazSTM13D;
Print@"InterfazE3"D;
InterfazE3 = Table@0, 8Localidades<D;
44
InterfazE3 Table@0, 8Localidades<D;
Do@If@UsersE3Pi, 1T ≠ UsersE3Pi − 1, 1T,
If@UsersE3Pj, 1T UsersE3Pi, 1T, InterfazE3PiT += InterfazE3HaciaPOPPjTD, 0D,
8i, 2, Localidades<, 8j, Localidades<D
Print@InterfazE3D;
Modelo_Integral_ACK.nb
Print@"InterfazE31"D;
InterfazE31 = Rest@InterfazE3D;
Print@InterfazE31D;
Print@"InterfazE32"D;
InterfazE32 = 0;
Do@
If@UsersE3Pj, 1T UsersE3P1, 1T, InterfazE32 += InterfazE3HaciaPOPPjT, 0D, 8j, Localidades<D;
Print@InterfazE32D;
H∗Calcula el numero de interfases E3 por cabecera
hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
Print@"InterfazE33"D;
InterfazE33 = Prepend@InterfazE31, InterfazE32D;
Print@InterfazE33D;
Print@"SumInterfazE33"D;
SumInterfazE33 = Plus @@ InterfazE33;
Print@SumInterfazE33D;
Print@"InterfazE1"D;
InterfazE1 = Table@0, 8Localidades<D;
Do@If@HUsersE1Pi, 1T ≠ UsersE1Pi − 1, 1TL, If@UsersE1Pj, 1T UsersE1Pi, 1T,
InterfazE1PiT += InterfazE1HaciaPOPPjTD, 0D, 8i, 2, Localidades<, 8j, Localidades<D;
Print@InterfazE1D;
Print@"Intfaz1E1"D;
Intfaz1E1 = Rest@InterfazE1D;
Print@Intfaz1E1D;
Print@"Intfaz2E1"D;
Intfaz2E1 = 0;
Do@If@UsersE1Pj, 1T UsersE1P1, 1T, Intfaz2E1 += InterfazE1HaciaPOPPjT, 0D, 8j, Localidades<D
Print@Intfaz2E1D;
H∗Calcula el numero de interfases E1 por cabecera
hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
Print@"Intfaz3E1"D;
Intfaz3E1 = Prepend@Intfaz1E1, Intfaz2E1D;
Print@Intfaz3E1D;
Print@"SumIntfaz3E1"D;
SumIntfaz3E1 = Plus @@ Intfaz3E1;
Print@SumIntfaz3E1D;
H∗Parámetros de Máximo número de puertos para ADSL: Cluster, Shelf y Tarj∗L
OpenRead@"Parametros_ATM.txt"D;
parametrosATM = ReadList@"Parametros_ATM.txt", 8Word, Real<D;
Print@"maxUsrATMCluster"D;
maxUsrATMCluster = parametrosATMP1TP2T;
Print@maxUsrATMClusterD;
Print@"maxUsrATMShelf"D;
maxUsrATMShelf = parametrosATMP2TP2T;
Print@maxUsrATMShelfD;
Print@"maxUsrATMTarj"D;
maxUsrATMTarj = parametrosATMP3TP2T;
Print@maxUsrATMTarjD;
Close@"Parametros_ATM.txt"D;
H∗Calcula el numero de Clusters en los concentradores ATM por cabecera a nivel nacional∗L
Print@"ClusterPreconc"D;
45
Modelo_Integral_ACK.nb
ClusterPreconc = TableBFloorB
Intfaz3E1PiT
F, 8i, Localidades<F;
maxUsrATMCluster
Print@ClusterPreconcD;
H∗Se ha añadido una instruccion de comprobacion que suma el numero
de Clusters en los concentradores ATM por cabecera a nivel nacional∗L
Print@"SumClusterPreconc"D;
SumClusterPreconc = Plus @@ ClusterPreconc;
Print@SumClusterPreconcD;
H∗Calcula el numero de Shelfs en los concentradores ATM por cabecera a nivel nacional∗L
Print@"ShelfPreconc"D;
ShelfPreconc =
Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster
TableBFloorB
F, 8i, Localidades<F;
maxUsrATMShelf
Print@ShelfPreconcD;
H∗Se ha añadido una instruccion de comprobacion que suma el numero
de Shelfs en los concentradores ATM por cabecera a nivel nacional∗L
Print@"SumShelfPreconc"D;
SumShelfPreconc = Plus @@ ShelfPreconc;
Print@SumShelfPreconcD;
H∗Calcula el numero de Tarjetas de Terminacion de
Red en los concentradores ATM por cabecera a nivel nacional∗L
Print@"TarjPreconc"D;
TarjPreconc = TableB
CeilingB
Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster − ShelfPreconcPiT ∗ maxUsrATMShelf
F,
maxUsrATMTarj
8i, Localidades<F;
Print@TarjPreconcD;
H∗Se ha añadido una instruccion de comprobacion que suma el numero de Tarjetas
de Terminacion de Red en los concentradores ATM por cabecera a nivel nacional∗L
Print@"SumTarjPreconc"D;
SumTarjPreconc = Plus @@ TarjPreconc;
Print@SumTarjPreconcD;
H∗Calcula el numero de Armarios en los concentradores ATM por cabecera a nivel nacional∗L
Print@"ArmariosPreconc"D;
ArmariosPreconc =
Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster
TableBCeilingB
F, 8i, Localidades<F;
2 maxUsrATMShelf
Print@ArmariosPreconcD;
H∗Se ha añadido una instruccion de comprobacion que suma el numero
de Armarios en los concentradores ATM por cabecera a nivel nacional∗L
Print@"SumArmariosPreconc"D;
SumArmariosPreconc = Plus @@ ArmariosPreconc;
Print@SumArmariosPreconcD;
H∗Calcula el costo del concentrador ATM sin Tarjeta de Terminacion de Red por cabecera∗L
Print@"CostePreconcSinTarj"D;
CostePreconcSinTarj = Table@ClusterPreconcPiT ∗ precioPreconcentrClusterFull +
ShelfPreconcPiT ∗ precioPreconcentrShelfFull +
TarjPreconcPiT ∗ precioTarjLT4E1 + ArmariosPreconcPiT ∗ precioArmario +
HIf@ShelfPreconcPiT > 1, If@TarjPreconcPiT > 0, ShelfPreconcPiT, HShelfPreconcPiT − 1LD, 0DL ∗
precioShelfExtension + HIf@TarjPreconcPiT > 0, precioShelf, 0DL, 8i, Localidades<D;
Print@CostePreconcSinTarjD;
H∗Se ha añadido una instruccion de comprobacion que suma los costos de
los concentradores ATM sin Tarjeta de Terminacion de Red por Cabecera∗L
Print@"SumCostePreconcSinTarj"D;
SumCostePreconcSinTarj = Plus @@ CostePreconcSinTarj;
Print@SumCostePreconcSinTarjD;
H∗Determina el tipo de tarjeta para el Cluster
totalmente ocupado en el concentrador ATM por cabecera∗L
46
totalmente ocupado en el concentrador ATM por cabecera L
Print@"TarjNTPreconcClusterFull"D;
TarjNTPreconcClusterFull = Table@If@ClusterPreconcPiT > 0, 155, 0D, 8i, Localidades<D;
Print@TarjNTPreconcClusterFullD;
H∗Se ha añadido una instruccion de comprobacion que suma los tipos de tarjeta para
los Clusters completamente ocupados en los concentradores ATM por cabecera∗L
Print@"SumTarjNTPreconcClusterFull"D;
SumTarjNTPreconcClusterFull = Plus @@ TarjNTPreconcClusterFull;
Print@SumTarjNTPreconcClusterFullD;
H∗Determina el tipo de tarjeta para el Cluster
parcialmente ocupado en el concentrador ATM por cabecera∗L
Print@"TarjNTPreconcClusterParcial"D;
TarjNTPreconcClusterParcial = Table@If@ShelfPreconcPiT > 0, 155,
If@TarjPreconcPiT > 0, If@TarjPreconcPiT ≤ 4, 34, 155D, 0DD, 8i, Localidades<D;
Print@TarjNTPreconcClusterParcialD;
H∗Se ha añadido una instruccion de comprobacion que suma los tipos de tarjeta
para los Clusters parcialmente ocupados en los concentradores ATM por cabecera∗L
Print@"SumTarjNTPreconcClusterParcial"D;
SumTarjNTPreconcClusterParcial = Plus @@ TarjNTPreconcClusterParcial;
Print@SumTarjNTPreconcClusterParcialD;
H∗Calcula el costo del concentrador ATM con Tarjeta de Terminacion de Red por cabecera∗L
Print@"CostePreconcConTarj"D;
CostePreconcConTarj =
Table@CostePreconcSinTarjPiT + If@TarjNTPreconcClusterFullPiT 34, precioTarjNT34,
If@TarjNTPreconcClusterFullPiT 155, precioTarjNT155, 0DD ∗ ClusterPreconcPiT +
If@TarjNTPreconcClusterParcialPiT 34, precioTarjNT34,
If@TarjNTPreconcClusterParcialPiT 155, precioTarjNT155, 0DD, 8i, Localidades<D;
Print@CostePreconcConTarjD;
H∗Se ha añadido una instruccion de comprobacion que suma los costos de
los concentradores ATM con Tarjeta de Terminacion de Red por cabecera∗L
Print@"SumCostePreconcConTarj"D;
SumCostePreconcConTarj = Plus @@ CostePreconcConTarj;
Print@SumCostePreconcConTarjD;
H∗Calcula el numero de interfases STM−1 de 155Mbps en el concentrador ATM por cabecera∗L
Print@"TotIntfzPreconcSTM1"D;
TotIntfzPreconcSTM1 = Table@If@TarjNTPreconcClusterFullPiT 155, ClusterPreconcPiT, 0D +
If@TarjNTPreconcClusterParcialPiT 155, ArmariosPreconcPiT, 0D, 8i, Localidades<D;
Print@TotIntfzPreconcSTM1D;
H∗Se ha añadido una instruccion de comprobacion que suma el numero de interfases STM−
1 de 155Mbps en los concentradores ATM por cabecera∗L
Print@"SumTotIntfzPreconcSTM1"D;
SumTotIntfzPreconcSTM1 = Plus @@ TotIntfzPreconcSTM1;
Print@SumTotIntfzPreconcSTM1D;
H∗Calcula el numero de interfases E3 de 34Mbps en el concentrador ATM por cabecera∗L
Print@"TotIntfzPreconcE3"D;
TotIntfzPreconcE3 = Table@If@TarjNTPreconcClusterFullPiT 34, ClusterPreconcPiT, 0D +
If@TarjNTPreconcClusterParcialPiT 34, ArmariosPreconcPiT, 0D, 8i, Localidades<D;
InterfazSTM1HaciaATM = Table@TotIntfzPreconcSTM1PiT + InterfazSTM13PiT, 8i, Localidades<D;
Print@TotIntfzPreconcE3D;
H∗Se ha añadido una instruccion de comprobacion que suma el numero
de interfases E3 de 34Mbps en los concentradores ATM por cabecera∗L
Print@"SumTotIntfzPreconcE3"D;
SumTotIntfzPreconcE3 = Plus @@ TotIntfzPreconcE3;
Print@SumTotIntfzPreconcE3D;
H∗Calcula el numero de interfases STM−1 de 155Mbps en el Nodo ATM por cabecera∗L
Print@"InterfazSTM1HaciaATM"D;
InterfazSTM1HaciaATM = Table@TotIntfzPreconcSTM1PiT + InterfazSTM13PiT, 8i, Localidades<D;
Print@InterfazSTM1HaciaATMD;
H∗Se ha añadido una instruccion de comprobacion que suma el numero de interfases STM−
L
Modelo_Integral_ACK.nb
47
H Se ha añadido una instruccion de comprobacion que suma el numero de interfases STM
1 de 155Mbps en los Nodos ATM por cabecera∗L
Print@"SumInterfazSTM1HaciaATM"D;
SumInterfazSTM1HaciaATM = Plus @@ InterfazSTM1HaciaATM;
Print@SumInterfazSTM1HaciaATMD;
H∗Calcula el numero de interfases E3 de 34Mbps en el Nodo ATM por cabecera∗L
Print@"InterfazE3HaciaATM"D;
InterfazE3HaciaATM = Table@TotIntfzPreconcE3PiT + InterfazE33PiT, 8i, Localidades<D;
Print@InterfazE3HaciaATMD;
H∗Se ha añadido una instruccion de comprobacion que suma el
numero de interfases E3 de 34Mbps en los Nodos ATM por cabecera∗L
Print@"SumInterfazE3HaciaATM"D;
SumInterfazE3HaciaATM = Plus @@ InterfazE3HaciaATM;
Print@SumInterfazE3HaciaATMD;
H∗Precios para Nodos ATM en la etapa de concentración∗L
OpenRead@"Precios_ATM.txt"D;
preciosATM = ReadList@"Precios_ATM.txt", 8Word, Real<D;
Print@"precioChasis"D;
precioChasis = preciosATMP1TP2T;
Print@precioChasisD;
Print@"precioTarjSTM1"D;
precioTarjSTM1 = preciosATMP2TP2T;
Print@precioTarjSTM1D;
Print@"precioTarjE3"D;
precioTarjE3 = preciosATMP3TP2T;
Print@precioTarjE3D;
Close@"Precios_ATM.txt"D;
H∗Precios para Nodos ATM en la etapa de concentración∗L
OpenRead@"PuertosTarj_ATM.txt"D;
puertosTarjATM = ReadList@"PuertosTarj_ATM.txt", 8Word, Real<D;
Print@"puertosTarjSTM1"D;
puertosTarjSTM1 = puertosTarjATMP1TP2T;
Print@puertosTarjSTM1D;
Print@"puertosTarjE3"D;
puertosTarjE3 = puertosTarjATMP2TP2T;
Print@puertosTarjE3D;
Close@"PuertosTarj_ATM.txt"D;
H∗Calcula el numero de Nodos ATM∗L
Print@"NumNodosATM"D;
DemPorPOP3PiT
F, 8i, Localidades<F;
NumNodosATM = TableBCeilingB
16 000
Print@NumNodosATMD;
H∗Se ha añadido una instruccion de comprobacion
que suma el numero de Nodos ATM por cabecera∗L
Print@"SumNumNodosATM"D;
SumNumNodosATM = Plus @@ NumNodosATM;
Print@SumNumNodosATMD;
H∗Calcula el numero de tarjetas STM−1 en el Nodo ATM por cabecera∗L
Print@"NumTarjSTM1Conc"D;
InterfazSTM1HaciaATMPiT
NumTarjSTM1Conc = TableBCeilingB
F, 8i, Localidades<F;
puertosTarjSTM1
Print@NumTarjSTM1ConcD;
H∗Se ha añadido una instruccion de comprobacion que suma el numero de Tarjetas STM−
1 en los Nodos ATM por cabecera∗L
Print@"SumNumTarjSTM1Conc"D;
SumNumTarjSTM1Conc = Plus @@ NumTarjSTM1Conc;
Print@SumNumTarjSTM1ConcD;
H∗Calcula el numero de Tarjetas E3 en el Nodo ATM por cabecera∗L
Print@"NumTarjE3Conc"D;
InterfazE3HaciaATMPiT
NumTarjE3Conc = TableBCeilingB
F, 8i, Localidades<F;
puertosTarjE3
Modelo_Integral_ACK.nb
48
Modelo_Integral_ACK.nb
Print@NumTarjE3ConcD;
H∗Se ha añadido una instruccion de comprobacion que
suma el numero de Tarjetas E3 en los Nodos ATM por cabecera∗L
Print@"SumNumTarjE3Conc"D;
SumNumTarjE3Conc = Plus @@ NumTarjE3Conc;
Print@SumNumTarjE3ConcD;
H∗Calcula el costo del Nodo ATM por cabecera∗L
Print@"CostoATMConc"D;
CostoATMConc = Table@NumNodosATMPiT ∗ precioChasis +
NumTarjSTM1ConcPiT ∗ precioTarjSTM1 + NumTarjE3ConcPiT ∗ precioTarjE3, 8i, Localidades<D;
Print@CostoATMConcD;
H∗Se ha añadido una instruccion de comprobacion
que suma los costos de los Nodos ATM por cabecera∗L
Print@"SumCostoATMConc"D;
SumCostoATMConc = Plus @@ CostoATMConc;
Print@SumCostoATMConcD;
H∗Carga los datos de número de usuarios∗L
OpenRead@"NumUsuarios_Agreg.txt"D;
NumUsersAgreg = ReadList@"NumUsuarios_Agreg.txt", 8Word, Real<D;
Print@"NumUsersSTM1Agreg"D;
NumUsersSTM1Agreg = NumUsersAgregP1TP2T;
Print@NumUsersSTM1AgregD;
Print@"NumUsersAgregAgreg"D;
NumUsersAgregAgreg = NumUsersAgregP2TP2T;
Print@NumUsersAgregAgregD;
Close@"NumUsuarios_Agreg.txt"D;
Print@"yCx"D;
yCx = Table@demandasADSL1Pi, 1T, 8i, Localidades<D;
Print@TableForm@yCxDD;
yCx1 = Length@yCxD;
Print@yCx1D;
Print@"DemPorPOP4"D;
DemPorPOP4 = Prepend@DemPorPOP3, xCxD;
Print@DemPorPOP4D;
Print@"DemPorPOP5"D;
DemPorPOP5 = Prepend@DemPorPOP4, yCxD;
Print@DemPorPOP5D;
Print@"z1Cx"D;
z1Cx = 0;
Print@z1CxD;
H∗En formato normal instrucciones que se han añadido al programa∗L
Print@"PorcentajealineasGigADSLLima2"D;
PorcentajealineasGigADSLLima2 = PorcentajealineasGigADSLLima;
Print@TableForm@PorcentajealineasGigADSLLima2DD;
Print@"PorclineasGigADLSLima2"D;
PorclineasGigADLSLima2 = Length@PorcentajealineasGigADSLLimaD;
Print@PorclineasGigADLSLima2D;
Print@"PorcentajealineasGigADSLLima2"D;
Do@PorcentajealineasGigADSLLima2 = Table@Append@PorcentajealineasGigADSLLima2, z1CxDD,
8l, NumDPTOS − NumLIMA<D
Print@TableForm@PorcentajealineasGigADSLLima2DD;
Print@"PorclineasGigADLSLima22"D;
PorclineasGigADLSLima22 = Length@PorcentajealineasGigADSLLima2D;
Print@PorclineasGigADLSLima22D;
PorcentajealineasGigADSLLima2;
Print@"z2Cx"D;
49
Print@"z2Cx"D;
z2Cx = Table@0, 86<D;
Print@z2CxD;
Modelo_Integral_ACK.nb
Print@"PuertosLima2"D;
PuertosLima2 = PuertosLima;
Print@TableForm@PuertosLima2DD;
Print@"PtosLima2"D;
PtosLima2 = Length@PuertosLimaD;
Print@PtosLima2D;
Print@"PuertosLima2"D;
Do@PuertosLima2 = Table@Append@PuertosLima2, z2CxDD, 8l, NumDPTOS − NumLIMA<D
Print@TableForm@PuertosLima2DD;
Print@"PtosLima22"D;
PtosLima22 = Length@PuertosLimaD;
Print@PtosLima22D;
Print@"PorcentajeGigADSLTotal1"D;
PorcentajeGigADSLTotal1 =
Table@If@DemPorPOP5P1, iT ≠ "LIMA", If@DemPorPOP5P1, iT PuertosDptosPj, 1T,
PorcentajealineasGigADSLDepPjT, 0D, If@DemPorPOP5P2, iT PuertosLima2Pj, 1T,
PorcentajealineasGigADSLLima2PjT, 0DD, 8i, Localidades<, 8j, NumDPTOS<D;
Print@PorcentajeGigADSLTotal1D;
H∗Calcula el porcentaje de lineas mayoristas por site a nivel nacional∗L
Print@"PorcentajeGigADSLTotal"D;
PorcentajeGigADSLTotal = Table@Plus @@ PorcentajeGigADSLTotal1PiT, 8i, Localidades<D;
Print@TableForm@PorcentajeGigADSLTotalDD;
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗NumInterSTM1Agreg=Table@
Ceiling@DemPorPOP3@@iDD∗H1−PorcentajeGigADSLTotal@@iDDLêNumUsersSTM1AgregD,8i,Localidades<D;
Print@"NumInterSTM1Agreg"D;
Print@NumInterSTM1AgregD;
SumComprobNumInterSTM1Agreg=Plus@@NumInterSTM1Agreg;
Print@SumComprobNumInterSTM1AgregD;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗NumInterSTM1Agreg1=Prepend@NumInterSTM1Agreg,xCxD;
Print@"NumInterSTM1Agreg1"D;
Print@NumInterSTM1Agreg1D;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗Calcula el numero de interfases STM−1 para los servicios minoristas por cabecera∗L
H∗NumInterSTM1Agreg2=Prepend@NumInterSTM1Agreg1,yCxD;
Print@"NumInterSTM1Agreg2"D;
Print@NumInterSTM1Agreg2D;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗Guarda los resultados obtenidos en NumInterSTM1Agreg2∗L
PRUPtasATM = OpenWrite@"PRUPtasATM.txt"D;
WriteString@PRUPtasATM, "", "\n", "\n", "Dptos",
" ", AccountingForm@NumInterSTM1Agreg2P1TD, "\n", "Cabs", " ",
AccountingForm@NumInterSTM1Agreg2P2TD, "\n", "03", " ", AccountingForm@NumInterSTM1Agreg2P3TD,
"\n", "04", " ", AccountingForm@NumInterSTM1Agreg2P4TD, "\n", "05", " ",
AccountingForm@NumInterSTM1Agreg2P5TD, "\n", "06", " ", AccountingForm@NumInterSTM1Agreg2P6TD,
"\n", "07", " ", AccountingForm@NumInterSTM1Agreg2P7TD, "\n"D;
Close@"PRUPtasATM.txt"D;
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗PuertosATMGigADSL1=Table@If@NumInterSTM1Agreg2@@1,iDD≠"LIMA",
If@NumInterSTM1Agreg2@@1,iDDPuertosDptos@@j,1DD,PuertosDptos@@j,a+1DD,0D,
D
50
If@NumInterSTM1Agreg2@@1,iDD PuertosDptos@@j,1DD,PuertosDptos@@j,a 1DD,0D,
If@NumInterSTM1Agreg2@@2,iDDPuertosLima2@@j,1DD,PuertosLima2@@j,a+1DD,0DD,
8i,Localidades<,8a,Años<,8j,NumDPTOS<D;
Print@"PuertosATMGigADSL1"D;
Print@PuertosATMGigADSL1D;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗Calcula el numero de puertos ATM para los servicios mayoristas por site∗L
H∗PuertosATMGigADSL=Table@Plus@@PuertosATMGigADSL1@@i,aDD,8a,Años<,8i,Localidades<D;
Print@"PuertosATMGigADSL"D;
Print@PuertosATMGigADSLD;
Print@"SumComprobPuertosATMGigADSL"D;
SumComprobPuertosATMGigADSL=
Table@Plus@@PuertosATMGigADSL@@aDD,8a,Años<D;
Print@SumComprobPuertosATMGigADSLD;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗Cálcula la suma del número de interfases y puertos STM−1 hacia los PoPs ATM∗L
H∗NumPuertasATM=Table@If@NumInterSTM1Agreg@@a,iDD≠0,
NumInterSTM1Agreg@@a,iDD+PuertosATMGigADSL@@a,iDD,0D,8a,Años<,8i,Localidades<D;
Print@"NumPuertasATM"D;
Print@NumPuertasATMD;
Print@"ComprobNumPuertasATM"D;
ComprobNumPuertasATM=Table@ Plus@@NumPuertasATM@@aDD,8a,Años<D;
Print@ComprobNumPuertasATMD;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗Calcula el costo total del Nodo ATM por cabecera∗L
H∗CostoNodoATMCnxOp=
Table@Ceiling@NumPuertasATM@@a,iDDê4D∗precioTarjSTM1,8a,Años<,8i,Localidades<D;
Print@"CostoNodoATMCnxOp"D;
Print@CostoNodoATMCnxOpD;
Print@"SumComprobCostoNodoATMCnxOp"D;
SumComprobCostoNodoATMCnxOp=
Table@Plus@@CostoNodoATMCnxOp@@aDD,8a,Años<D;
Print@SumComprobCostoNodoATMCnxOpD;∗L
H∗No se esta considerando la parte de los Agregadores IP. Se
va a desechar del modelo final por considerarlo que se añadiendo
un costo que no corresponde en el calculo del costo del Nodo ATM∗L
H∗Calcula el costo total del Punto de Presencia HPoPL ATM por cabecera∗L
H∗CostoTotalPopATM=Table@CostePreconcConTarj@@a,iDD+
CostoATMConc@@a,iDD+CostoNodoATMCnxOp@@a,iDD,8a,Años<,8i,Localidades<D;∗L
CostoTotalPopATM = Table@CostePreconcConTarjPiT + CostoATMConcPiT, 8i, Localidades<D;
Print@"CostoTotalPopATM"D;
Print@CostoTotalPopATMD;
Print@"SumCostoTotalPopATM"D;
SumCostoTotalPopATM = Plus @@ CostoTotalPopATM;
Print@SumCostoTotalPopATMD;
H∗Carga los datos de potencia y energía∗L
OpenRead@"Energia_ATM.txt"D;
energiaATM = ReadList@"Energia_ATM.txt", 8Word, Real<D;
Close@"Energia_ATM.txt"D;
Print@"CostePorWATM"D;
CostePorWATM = energiaATMP1TP2T;
Print@CostePorWATMD;
Print@"WPorEquipoATM"D;
WPorEquipoATM = energiaATMP2TP2T;
Print@WPorEquipoATMD;
H∗Calcula el costo de energia del Nodo ATM∗L
Print@"CostoEnergiaATM"D;
Modelo_Integral_ACK.nb
51
Print@"CostoEnergiaATM"D;
CostoEnergiaATM = Table@CostePorWATM ∗ WPorEquipoATM ∗ NumNodosATMPiT, 8i, Localidades<D;
Print@CostoEnergiaATMD;
Print@"SumCostoEnergiaATM"D;
SumCostoEnergiaATM = Plus @@ CostoEnergiaATM;
Print@SumCostoEnergiaATMD;
H∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗ Fin de la
parte de Conmutación. ∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗L
PrintBStyleB"PARÁMETROS
COSTES", Bold, 16, Underlined, White, Background → BlueFF;
H∗Carga los parámetros de costes a emplear en la ejecución∗L
OpenRead@"Parametros_Costes.txt"D;
ParamsCostes = ReadList@"Parametros_Costes.txt", 8Word, Real<D;
Wacc = ParamsCostesP1TP2T;
AñosAmortCxDSLAM = ParamsCostesP2TP2T;
AñosAmortCxNodoATM = ParamsCostesP3TP2T;
AñosAmortTxEquipos = ParamsCostesP4TP2T;
AñosAmortTxPtaExt = ParamsCostesP5TP2T;
AñosAmortTxPortador = ParamsCostesP6TP2T;
AñosAmortPtaSecENERGIA = ParamsCostesP7TP2T;
AñosAmortPtaSecINMOB = ParamsCostesP8TP2T;
Close@"Parametros_Costes.txt"D;
H∗Puesto que el valor del WACC es después de impuestos,
hay que convertirlo a su valor antes de impuestos∗L
TasaImpositiva = 0.37;
Wacc
CosteCapital =
;
1 − TasaImpositiva
H∗Una vez introducidos los datos de entrada,
se calculan los respectivos factores de anualización∗L
CosteCapital
FactAnualizCxDSLAM =
;
1 − H1 + CosteCapitalL−AñosAmortCxDSLAM
FactAnualizCxNodoATM =
FactAnualizTxEquipos =
FactAnualizTxPtaExt =
CosteCapital
1 − H1 + CosteCapitalL−AñosAmortCxNodoATM
CosteCapital
1 − H1 + CosteCapitalL−AñosAmortTxEquipos
CosteCapital
1 − H1 + CosteCapitalL−AñosAmortTxPtaExt
FactAnualizTxPortador =
;
;
;
CosteCapital
1 − H1 + CosteCapitalL−AñosAmortTxPortador
FactAnualizPtaSecENERGIA =
FactAnualizPtaSecINMOB =
;
CosteCapital
1 − H1 + CosteCapitalL
−AñosAmortPtaSecENERGIA
CosteCapital
1 − H1 + CosteCapitalL−AñosAmortPtaSecINMOB
PrintBStyleB"EVOLUCIÓN
;
;
PRECIOS", Bold, 16, Underlined, White, Background → BlueFF;
H∗Carga del fichero que determina la evolución de precios∗L
OpenRead@"EvolucionPrecios.txt"D;
EvPrecios = ReadList@"EvolucionPrecios.txt", 8Word, Real, Real, Real, Real, Real<D;
EvPrecios = Drop@EvPrecios, 1D;
Close@"EvolucionPrecios.txt"D;
H∗Carga del fichero que determina los costes de actividades para cada año∗L
OpenRead@"CosteActividadesCambios.txt"D;
CosteActivs2 = ReadList@"CosteActividadesCambios.txt", 8Word, Real, Real, Real, Real, Real<D;
CosteActivs2 = Drop@CosteActivs2, 1D;
Close@"CosteActividadesCambios.txt"D;
OpenRead@"PorcentCosteActiv.txt"D;
CosteActivs = ReadList@"PorcentCosteActiv.txt", 8Word, Real<D;
Close@"PorcentCosteActiv.txt"D;
Print@"CADSL"D;
CADSL = Table@0, 8ix, nx<D;
Modelo_Integral_ACK.nb
52
CADSL Table@0, 8ix, nx<D;
Do@If@EquivADSLFijaPixT ≠ 0,
auxLoc = EquivADSLFijaPixT;
CADSLPixT = H63 ∗ InterfazSTM1HaciaPOPPauxLocT +
16 ∗ InterfazE3HaciaPOPPauxLocT + InterfazE1HaciaPOPPauxLocTLD;, 8ix, nx<D;
Print@CADSLD;
H∗Cargas en número de E1s de ADSL por cada central∗L
Print@"CADSLd"D;
CADSLd = Table@0, 8id, nd<D;
Do@CADSLdPdeptxPixTT = CADSLdPdeptxPixTT + CADSLPixT, 8ix, nx<D;
Print@CADSLdD;
Print@"CADSLNucd"D;
CADSLNucd = Table@0, 8id, nd<D;
Do@CADSLNucdPdeptxPixTT = CADSLNucdPdeptxPixTT +NumE1EquivsNucPixT;, 8ix, nx<D;
Print@CADSLNucdD;
H∗ Acumulación de las cargas por departamento ∗L
inputLDadsl = Table@0, 8id, nd<, 8jd, nd<D;
Destinosadsl = Table@0, 8id, nd<D;
inputLDNucNuc = Table@0, 8id, nd<, 8jd, nd<D;
adslTruji = 0;
adslAreq = 0;
Do@DestinosadslPidT =
Switch@id, AYACUCHO, LIMA,
HUANCAVELICA, LIMA,
HUANUCO, LIMA,
ICA, LIMA,
JUNIN, LIMA,
LIMA, LIMA,
LORETO, LIMA,
PASCO, LIMA,
SANMARTIN, LALIBERTAD,
UCAYALI, LIMA,
AMAZONAS, LALIBERTAD,
ANCASH, LALIBERTAD,
CAJAMARCA, LALIBERTAD,
LALIBERTAD, LALIBERTAD,
LAMBAYEQUE, LALIBERTAD,
PIURA, LALIBERTAD,
TUMBES, LALIBERTAD,
APURIMAC, AREQUIPA,
AREQUIPA, AREQUIPA,
CUSCO, AREQUIPA,
MADREDEDIOS, LIMA,
MOQUEGUA, AREQUIPA,
PUNO, AREQUIPA,
TACNA, AREQUIPAD;
If@DestinosadslPidT 14, adslTruji = adslTruji + CADSLNucdPidTD;
If@DestinosadslPidT 19, adslAreq = adslAreq + CADSLNucdPidTD;
inputLDadslPid, DestinosadslPidTT = inputLDadslPid, DestinosadslPidTT + CADSLdPidT;
, 8id, nd<D;
inputLDNucNucP14, 6T = Ceiling@Ceiling@adslTrujiD, 63D;
inputLDNucNucP19, 6T = Ceiling@Ceiling@adslAreqD, 63D;
Print@inputLDadslD;
Print@inputLDNucNucD;
H∗ Se ingresan los archivos de Cargas ∗L
Print@"input_traficoLDadsl.txt"D;
Print@"input_traficoAlqLDE1sABC2.txt"D;
OutAdslLD = OpenWrite@"input_traficoLDadsl.txt"D;
OutNucNucLD = OpenWrite@"input_traficoAlqLDE1sABC2.txt"D;
Do@str1 = "";
str2 = "";
Do@If@iy 1,
str1 = StringJoin@8str1, ToString@inputLDadslPix, iyTD<D;
str2 = StringJoin@8str2, ToString@inputLDNucNucPix, iyTD<D;,
Modelo_Integral_ACK.nb
53
str2 StringJoin@8str2, ToString@inputLDNucNucPix, iyTD<D;,
str1 = StringJoin@8str1, "\t", ToString@inputLDadslPix, iyTD<D;
str2 = StringJoin@8str2, "\t", ToString@inputLDNucNucPix, iyTD<D;D;, 8iy, 24<D;
str1 = StringJoin@8str1, "\n"<D;
str2 = StringJoin@8str2, "\n"<D;
WriteString@OutAdslLD, str1D;
WriteString@OutNucNucLD, str2D;, 8ix, 24<D;
Close@OutAdslLDD;
Close@OutNucNucLDD;
H∗ Se acumula aquí los tráficos ADSL por TRAMO ∗L
Modelo_Integral_ACK.nb
Print@"nadsl"D;
nadsl = Length@CADSLD;
Print@nadslD;
Print@"TOTALE1ADSL"D;
TOTALE1ADSL = 0;
Do@TOTALE1ADSL = TO TALE1ADSL + CADSLPiadslT;, 8iadsl, nadsl<D;
Print@TOTALE1ADSLD;
e1remotehostadslx = zerox;
e1hosttandemadslx = zerox;
Print@"e1remotehostadslx"D;
Do@
If@remote1xPiadslT 1, e1remotehostadslxPiadslT = e1remotehostadslxPiadslT + CADSLPiadslT;D;,
8iadsl, nadsl<D;
Print@e1remotehostadslxD
Print@"e1hosttandemadslx"D;
Do@If@remote1xPiadslT 1,
e1hosttandemadslxPallhostxPiadslTT = e1hosttandemadslxPallhostxPiadslTT + CADSLPiadslT;D;
If@remote1xPiadslT 0 Ï tandem1xPiadslT 0,
e1hosttandemadslxPiadslT = e1hosttandemadslxPiadslT + CADSLPiadslT;D;, 8iadsl, nadsl<D;
Do@If@limaxPiadslT Ï esAnillodxPiadslT 2 Ï hostxPiadslT, If@CxATMLimaxPiadslT ≠ 1,
e1hosttandemadslxPiadslT = Ceiling@e1hosttandemadslxPiadslT ∗ 1.75D;,
e1hosttandemadslxPiadslT = Ceiling@e1hosttandemadslxPiadslT ∗ 0.75D;D;D;, 8iadsl, nadsl<D;
H∗Esta instucción sirve para utilizar el 75% más de Tx para ADSL en anillo de Lima∗L
Print@e1hosttandemadslxD;
PrintB
"ESTIMACIÓN DE CARGAS EN E1S ASOCIADAS A LOS CIRCUITOS ALQUILADOS
Y QUE SON IMPUTABLES A LAS REDES INTRADEPARTAMENTALES",
StyleB
Bold, 16, Underlined, White, Background → RGBColorB0,
PrintAStyleA
1
, 0FFF;
2
"CIRCUITOS RANGO A", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosA1.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango A a nivel Interdepartamental:
La data viene así:
39
1
377
1
377
1
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Print@"nalqA1"D;
CALQUILADOA1 = Traducir@N@ReadList@"input_C_AlquiladosA1.txt", Number, RecordLists → TrueDDD;
nalqA1 = Length@CALQUILADOA1D;
Print@nalqA1D;
Print@"CALQUILADOA1"D;
Print@TableForm@Table@8CALQUILADOA1Pialq, 1T, yPCALQUILADOA1Pialq, 1T, 13T,
deptTXTdPdeptxPCALQUILADOA1Pialq, 1TTT, CALQUILADOA1Pialq, 2T<, 8ialq, nalqA1<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "Departamento", "Nro Circuitos"<<DD;
54
TableHeadings 8None, 8"ix", "Nombre Central", "Departamento", "Nro Circuitos"<<DD;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango
A a nivel Interdepartamental como una lista donde cada elemento es a su vez una
lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L
Modelo_Integral_ACK.nb
H∗ Identifica el número de elementos de la lista CALQUILADOA1 ∗L
e1remotehostalqxA1 = zerox;
e1hosttandemalqxA1 = zerox;
TOTALE1ALQA1 = 0;
Print@"TOTALE1ALQA1"D;
DoBTOTALE1ALQA1 = TOTALE1ALQA1 +
CALQUILADOA1Pialq, 2T
2
;, 8ialq, nalqA1<F;
Print@TOTALE1ALQA1D;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo A que son atribuibles como
cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Print@"e1remotehostalqxA1"D;
Do@If@remote1xPCALQUILADOA1Pialq, 1TT 1, e1remotehostalqxA1PCALQUILADOA1Pialq, 1TT =
e1remotehostalqxA1PCALQUILADOA1Pialq, 1TT + CALQUILADOA1Pialq, 2T;D;, 8ialq, nalqA1<D;
Print@e1remotehostalqxA1D;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del
tipo A que estan asociados como punto de oriden o destino a cada central remota. Dentro
de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
Print@"e1hosttandemalqxA1"D;
Do@If@remote1xPCALQUILADOA1Pialq, 1TT 1, e1hosttandemalqxA1PallhostxPCALQUILADOA1Pialq, 1TTT =
e1hosttandemalqxA1PallhostxPCALQUILADOA1Pialq, 1TTT + CALQUILADOA1Pialq, 2T;D;
If@remote1xPCALQUILADOA1Pialq, 1TT 0 Ï tandem1xPCALQUILADOA1Pialq, 1TT 0,
e1hosttandemalqxA1PCALQUILADOA1Pialq, 1TT =
e1hosttandemalqxA1PCALQUILADOA1Pialq, 1TT + CALQUILADOA1Pialq, 2T;D;, 8ialq, nalqA1<D;
Print@e1hosttandemalqxA1D;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales
del tipo A que deberán ser añadidos a las cargas a nivel de centrales Host. Se
realiza lo siguiente: En la primera parte del código identifica las centrales
host que son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA"CIRCUITOS
INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_Alquilados2A1.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango A que son intradepartamentales:
La data viene así:
110
120
1
248
261
1
248
347
1
El primer dato corresponde a la central de origen,
el segundo dato a la central de destino y el tercer dato al número de EIs ∗L
Print@"CALQUILADOA12"D;
CALQUILADOA12 = Traducir@N@ReadList@"input_C_Alquilados2A1.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOA12D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
del rango A a nivel Intradepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L
Print@"nalqA12"D;
nalqA12 = Length@CALQUILADOA12D;
Print@nalqA12D;
H∗ Identifica el número de elementos de la lista CALQUILADOA12∗L
Print@"TOTALE1ALQA1"D;
Do@TOTALE1ALQA1 = TOTALE1ALQA1 + CALQUILADOA12Pialq, 3T;, 8ialq, nalqA12<D;
Print@TOTALE1ALQA1D;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo A. Se suman todos los E1s
considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la
estimación ya realizada anteriormente para la variable TOTALE1ALQA1 que correspondió a los E1s asociados a los
circuitos Interdepartamentales del tipo A que eran atribuibles como cargas en el tramo intradepartamental ∗L
Print@"e1remotehostalqxA1"D;
Do@aux1 = CALQUILADOA12Pialq, 1T;
aux2 = CALQUILADOA12Pialq, 2T;
If@aux1 ≠ aux2,
If@remote1xPaux1T 1, e1remotehostalqxA1Paux1T = e1remotehostalqxA1Paux1T + CALQUILADOA12Pialq, 3T;D;
D
55
Modelo_Integral_ACK.nb
If@remote1xPaux1T 1, e1remotehostalqxA1Paux1T e1remotehostalqxA1Paux1T CALQUILADOA12Pialq, 3T;D;
If@remote1xPaux2T 1, e1remotehostalqxA1Paux2T = e1remotehostalqxA1Paux2T + CALQUILADOA12Pialq, 3T;D;D;
, 8ialq, nalqA12<D;
Print@e1remotehostalqxA1D;
H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales del
tipo A que estan asociados como punto de oriden o destino a cada central remota. Se hace lo
siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que
son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda
parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se
suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxA1 ∗L
Print@"e1hosttandemalqxA1"D
Do@aux1 = CALQUILADOA12Pialq, 1T;
aux2 = CALQUILADOA12Pialq, 2T;
If@aux1 ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D;
If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D;
H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras,
en caso de no ser remota es claro que el nodo es identificado como Host ∗L
If@tandem1xPaux2T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxA1Paux2T = e1hosttandemalqxA1Paux2T + CALQUILADOA12Pialq, 3T;D;
H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del origen,
se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como
destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
If@tandem1xPaux1T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxA1Paux1T = e1hosttandemalqxA1Paux1T + CALQUILADOA12Pialq, 3T;D;D;
, 8ialq, nalqA12<D
H∗ A nivel de las centrales de origen, Si la cabecera del origen no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del destino,
se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como
origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
Print@e1hosttandemalqxA1D;
H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo
A que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se
estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxA1 ∗L
PrintAStyleA
"CIRCUITOS RANGO B", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosB1.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango B a nivel Interdepartamental:
La data viene así:
39
1
377
1
377
1
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Print@"CALQUILADOB1"D;
CALQUILADOB1 = Traducir@N@ReadList@"input_C_AlquiladosB1.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOB1D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
del rango B a nivel Interdepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @@origen o destino,número de E1sDD ∗L
Print@"nalqB1"D;
nalqB1 = Length@CALQUILADOB1D;
Print@nalqB1D;
H∗ Identifica el número de elementos de la lista CALQUILADOB1 ∗L
e1remotehostalqxB1 = zerox;
e1hosttandemalqxB1 = zerox;
TOTALE1ALQB1 = 0;
Print@"TOTALE1ALQB1"D;
DoBTOTALE1ALQB1 = TOTALE1ALQB1 +
CALQUILADOB1Pialq, 2T
2
;, 8ialq, nalqB1<F;
Print@TOTALE1ALQB1D;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales
del tipo B que son atribuibles como cargas en el tramo intradepartamental. Se realiza
56
del tipo B que son atribuibles como cargas en el tramo intradepartamental. Se realiza
lo siguiente: independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Modelo_Integral_ACK.nb
Print@"e1remotehostalqxB1"D;
Do@If@remote1xPCALQUILADOB1Pialq, 1TT 1, e1remotehostalqxB1PCALQUILADOB1Pialq, 1TT =
e1remotehostalqxB1PCALQUILADOB1Pialq, 1TT + CALQUILADOB1Pialq, 2T;D;, 8ialq, nalqB1<D;
Print@e1remotehostalqxB1D;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del
tipo B que estan asociados como punto de oriden o destino a cada central remota. Dentro
de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
Print@"e1hosttandemalqxB1"D;
Do@If@remote1xPCALQUILADOB1Pialq, 1TT 1, e1hosttandemalqxB1PallhostxPCALQUILADOB1Pialq, 1TTT =
e1hosttandemalqxB1PallhostxPCALQUILADOB1Pialq, 1TTT + CALQUILADOB1Pialq, 2T;D;
If@remote1xPCALQUILADOB1Pialq, 1TT 0 Ï tandem1xPCALQUILADOB1Pialq, 1TT 0,
e1hosttandemalqxB1PCALQUILADOB1Pialq, 1TT =
e1hosttandemalqxB1PCALQUILADOB1Pialq, 1TT + CALQUILADOB1Pialq, 2T;D;, 8ialq, nalqB1<D;
Print@e1hosttandemalqxB1D;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales
del tipo B que deberán ser añadidos a las cargas a nivel de centrales Host. Si se
optó por la Opción 3 o 4 de estimar los costos de los circuitos del tipo A o B se
realiza lo siguiente: En la primera parte del código identifica las centrales host que
son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA"CIRCUITOS
INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_Alquilados2B1.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango B que son intradepartamentales:
La data viene así:
377
259
1
39
59
1
248
252
1
El primer dato corresponde a la central de origen,
el segundo dato a la central de destino y el tercer dato al número de EIs ∗L
Print@"CALQUILADOB12"D;
CALQUILADOB12 = Traducir@N@ReadList@"input_C_Alquilados2B1.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOB12D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
del rango B a nivel Intradepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L
Print@"nalqB12"D;
nalqB12 = Length@CALQUILADOB12D;
Print@nalqB12D;
H∗ Identifica el número de elementos de la lista CALQUILADOB12 ∗L
Print@"TOTALE1ALQB1"D;
Do@TOTALE1ALQB1 = TOTALE1ALQB1 + CALQUILADOB12Pialq, 3T;, 8ialq, nalqB12<D;
Print@TOTALE1ALQB1D;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo B. Se suman todos los E1s
considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la
estimación ya realizada anteriormente para la variable TOTALE1ALQB1 que correspondió a los E1s asociados a los
circuitos Interdepartamentales del tipo A que eran atribuibles como cargas en el tramo intradepartamental ∗L
Print@"e1remotehostalqxB1"D;
Do@aux1 = CALQUILADOB12Pialq, 1T;
aux2 = CALQUILADOB12Pialq, 2T;
If@aux1 ≠ aux2,
If@remote1xPaux1T 1, e1remotehostalqxB1Paux1T = e1remotehostalqxB1Paux1T + CALQUILADOB12Pialq, 3T;D;
If@remote1xPaux2T 1, e1remotehostalqxB1Paux2T = e1remotehostalqxB1Paux2T + CALQUILADOB12Pialq, 3T;D;D;
, 8ialq, nalqB12<D;
Print@e1remotehostalqxB1D;
H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales del
tipo B que estan asociados como punto de oriden o destino a cada central remota. Se hace lo
siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que
son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda
parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se
suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxB1 ∗L
Print@"e1hosttandemalqxB1"D;
Do@aux1 = CALQUILADOB12Pialq, 1T;
57
Modelo_Integral_ACK.nb
Do@aux1 CALQUILADOB12Pialq, 1T;
aux2 = CALQUILADOB12Pialq, 2T;
If@aux1 ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D;
If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D;
H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras,
en caso de no ser remota es claro que el nodo es identificado como Host ∗L
If@tandem1xPaux2T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxB1Paux2T = e1hosttandemalqxB1Paux2T + CALQUILADOB12Pialq, 3T;D;
H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del origen,
se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como
destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
If@tandem1xPaux1T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxB1Paux1T = e1hosttandemalqxB1Paux1T + CALQUILADOB12Pialq, 3T;D;D;
, 8ialq, nalqB12<D
H∗ A nivel de las centrales de origen, si optó por la opción 3 o 4 Hestimar costo de circuitos del rango A o BL:
Si la cabecera del origen no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del destino,
se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como
origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
Print@e1hosttandemalqxB1D;
H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo
B que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se
estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxB1 ∗L
PrintAStyleA
"CIRCUITOS RANGO C", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosC1.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango C a nivel Interdepartamental:
La data viene así:
216
1
377
1
439
1
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 216 y 377 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Print@"CALQUILADOC1"D;
CALQUILADOC1 = Traducir@N@ReadList@"input_C_AlquiladosC1.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOC1D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
del rango C a nivel Interdepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @@origen o destino,número de E1sDD ∗L
Print@"nalqC1"D;
nalqC1 = Length@CALQUILADOC1D;
Print@nalqC1D;
H∗ Identifica el número de elementos de la lista CALQUILADOC1 ∗L
e1remotehostalqxC1 = zerox;
e1hosttandemalqxC1 = zerox;
TOTALE1ALQC1 = 0;
Print@"TOTALE1ALQC1"D;
DoBTOTALE1ALQC1 = TOTALE1ALQC1 +
CALQUILADOC1Pialq, 2T
2
;, 8ialq, nalqC1<F;
Print@TOTALE1ALQC1D;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo C que son atribuibles como
cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Print@"e1remotehostalqxC1"D;
Do@If@remote1xPCALQUILADOC1Pialq, 1TT 1, e1remotehostalqxC1PCALQUILADOC1Pialq, 1TT =
e1remotehostalqxC1PCALQUILADOC1Pialq, 1TT + CALQUILADOC1Pialq, 2T;D;, 8ialq, nalqC1<D;
Print@e1remotehostalqxC1D;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del
tipo C que estan asociados como punto de oriden o destino a cada central remota. Dentro
de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
58
la sumatoria del total de E1s H2do elemento de cada sublistaL
L
Modelo_Integral_ACK.nb
Print@"e1hosttandemalqxC1"D;
Do@If@remote1xPCALQUILADOC1Pialq, 1TT 1, e1hosttandemalqxC1PallhostxPCALQUILADOC1Pialq, 1TTT =
e1hosttandemalqxC1PallhostxPCALQUILADOC1Pialq, 1TTT + CALQUILADOC1Pialq, 2T;D;
If@remote1xPCALQUILADOC1Pialq, 1TT 0 Ï tandem1xPCALQUILADOC1Pialq, 1TT 0,
e1hosttandemalqxC1PCALQUILADOC1Pialq, 1TT =
e1hosttandemalqxC1PCALQUILADOC1Pialq, 1TT + CALQUILADOC1Pialq, 2T;D;, 8ialq, nalqC1<D;
Print@e1hosttandemalqxC1D;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales
del tipo C que deberán ser añadidos a las cargas a nivel de centrales Host. Se
realiza lo siguiente: En la primera parte del código identifica las centrales
host que son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA"CIRCUITOS
INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_Alquilados2C1.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango C que son intradepartamentales:
La data viene así:
1
2
0
El primer dato corresponde a la central de origen,
el segundo dato a la central de destino y el tercer dato al número de EIs ∗L
Print@"CALQUILADOC12"D;
CALQUILADOC12 = Traducir@N@ReadList@"input_C_Alquilados2C1.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOC12D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
del rango C a nivel Intradepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L
Print@"nalqC12"D;
nalqC12 = Length@CALQUILADOC12D;
Print@nalqC12D;
H∗ Identifica el número de elementos de la lista CALQUILADOC12 ∗L
Print@"TOTALE1ALQC1"D;
Do@TOTALE1ALQC1 = TOTALE1ALQC1 + CALQUILADOC12Pialq, 3T;, 8ialq, nalqC12<D;
Print@TOTALE1ALQC1D;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo C. Se suman todos los E1s
considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la
estimación ya realizada anteriormente para la variable TOTALE1ALQC1 que correspondió a los E1s asociados a los
circuitos Interdepartamentales del tipo C que eran atribuibles como cargas en el tramo intradepartamental ∗L
Print@"e1remotehostalqxC1"D;
Do@aux1 = CALQUILADOC12Pialq, 1T;
aux2 = CALQUILADOC12Pialq, 2T;
If@aux1 ≠ aux2,
If@remote1xPaux1T 1, e1remotehostalqxC1Paux1T = e1remotehostalqxC1Paux1T + CALQUILADOC12Pialq, 3T;D;
If@remote1xPaux2T 1, e1remotehostalqxC1Paux2T = e1remotehostalqxC1Paux2T + CALQUILADOC12Pialq, 3T;D;D;
, 8ialq, nalqC12<D;
Print@e1remotehostalqxC1D;
H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales del
tipo C que estan asociados como punto de oriden o destino a cada central remota. Se hace lo
siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que
son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda
parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se
suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxC1 ∗L
Print@"e1hosttandemalqxC1"D;
Do@aux1 = CALQUILADOC12Pialq, 1T;
aux2 = CALQUILADOC12Pialq, 2T;
If@aux1 ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D;
If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D;
H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras,
en caso de no ser remota es claro que el nodo es identificado como Host ∗L
If@tandem1xPaux2T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxC1Paux2T = e1hosttandemalqxC1Paux2T + CALQUILADOC12Pialq, 3T;D;
H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del origen,
se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como
destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
If@tandem1xPaux1T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxC1Paux1T = e1hosttandemalqxC1Paux1T + CALQUILADOC12Pialq, 3T;D;D;
D
59
e1hosttandemalqxC1Paux1T e1hosttandemalqxC1Paux1T CALQUILADOC12Pialq, 3T;D;D;
, 8ialq, nalqC12<D;
H∗ A nivel de las centrales de origen, si optó por la opción 5 Hestimar costo de circuitos del rango CL:
Si la cabecera del origen no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del destino,
se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como
origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
Print@e1hosttandemalqxC1D;
H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo
C que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se
estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxC1 ∗L
PrintAStyleA
Modelo_Integral_ACK.nb
"CIRCUITOS LOCAL LIMA", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"CIRCUITOS
INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_Alquilados2LL.txt"D;
H∗ Leyendo la información de los circuitos alquilados Local Lima que son intradepartamentales:
La data viene así:
1
2
0
El primer dato corresponde a la central de origen,
el segundo dato a la central de destino y el tercer dato al número de EIs ∗L
Print@"CALQUILADOLL2"D;
CALQUILADOLL2 = Traducir@N@ReadList@"input_C_Alquilados2LL.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOLL2D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
Local Lima a nivel Intradepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L
Print@"nalqLL2"D;
nalqLL2 = Length@CALQUILADOLL2D;
Print@nalqLL2D;
H∗ Identifica el número de elementos de la lista CALQUILADOLL2 ∗L
Print@"TOTALE1ALQLL"D;
TOTALE1ALQLL = 0; Do@TOTALE1ALQLL = TOTALE1ALQLL + CALQUILADOLL2Pialq, 3T;, 8ialq, nalqLL2<D;
Print@TOTALE1ALQLLD;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales Local Lima. Se suman todos los E1s
considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la
estimación ya realizada anteriormente para la variable TOTALE1ALQLL que correspondió a los E1s asociados a los
circuitos Interdepartamentales Local Lima que eran atribuibles como cargas en el tramo intradepartamental ∗L
Print@"e1remotehostalqxLL"D;
e1remotehostalqxLL = zerox;
Do@aux1 = CALQUILADOLL2Pialq, 1T;
aux2 = CALQUILADOLL2Pialq, 2T;
If@aux1 ≠ aux2,
If@remote1xPaux1T 1, e1remotehostalqxLLPaux1T = e1remotehostalqxLLPaux1T + CALQUILADOLL2Pialq, 3T;D;
If@remote1xPaux2T 1, e1remotehostalqxLLPaux2T = e1remotehostalqxLLPaux2T + CALQUILADOLL2Pialq, 3T;D;D;
, 8ialq, nalqLL2<D;
Print@e1remotehostalqxLLD;
H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales Local
Lima que estan asociados como punto de oriden o destino a cada central remota. Se hace lo
siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que
son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda
parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se
suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxLL ∗L
Print@"e1hosttandemalqxLL"D;
e1hosttandemalqxLL = zerox;
Do@aux1 = CALQUILADOLL2Pialq, 1T;
aux2 = CALQUILADOLL2Pialq, 2T;
If@aux1 ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D;
If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D;
H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras,
en caso de no ser remota es claro que el nodo es identificado como Host ∗L
If@tandem1xPaux2T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxLLPaux2T = e1hosttandemalqxLLPaux2T + CALQUILADOLL2Pialq, 3T;D;
H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del origen,
se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como
destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
I f@tandem1xPaux1T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxLLPaux1T = e1hosttandemalqxLLPaux1T + CALQUILADOLL2Pialq, 3T;D;D;
, 8ialq, nalqLL2<D;
60
, 8ialq, nalqLL2<D;
H∗ A nivel de las centrales de origen, si optó por la opción Hestimar costo de circuitos Local LimaL:
Si la cabecera del origen no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del destino,
se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como
origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
Print@e1hosttandemalqxLLD;
H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales Local
Lima que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se
estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxLL ∗L
PrintAStyleA
Modelo_Integral_ACK.nb
"CIRCUITOS LOCAL PROVINCIA", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"CIRCUITOS
INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_Alquilados2LP.txt"D;
H∗ Leyendo la información de los circuitos alquilados Local Provincia que son intradepartamentales:
La data viene así:
1
2
0
El primer dato corresponde a la central de origen,
el segundo dato a la central de destino y el tercer dato al número de EIs ∗L
Print@"CALQUILADOLP2"D;
CALQUILADOLP2 = Traducir@N@ReadList@"input_C_Alquilados2LP.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOLP2D;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados
Local Provincia a nivel Intradepartamental como una lista donde cada elemento es a su
vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L
Print@"nalqLP2"D;
nalqLP2 = Length@CALQUILADOLP2D;
Print@nalqLP2D;
H∗ Identifica el número de elementos de la lista CALQUILADOLP2 ∗L
Print@"TOTALE1ALQLP"D;
TOTALE1ALQLP = 0; Do@TOTALE1ALQLP = TOTALE1ALQLP + CALQUILADOLP2Pialq, 3T;, 8ialq, nalqLP2<D;
Print@TOTALE1ALQLPD;
H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales Local Provincia. Se
suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos
resultados se estan acumulando con la estimación ya realizada anteriormente para la variable
TOTALE1ALQLP que correspondió a los E1s asociados a los circuitos Interdepartamentales
Local Provincia que eran atribuibles como cargas en el tramo intradepartamental ∗L
Print@"e1remotehostalqxLP"D;
e1remotehostalqxLP = zerox;
Do@aux1 = CALQUILADOLP2Pialq, 1T;
aux2 = CALQUILADOLP2Pialq, 2T;
If@aux1 ≠ aux2,
If@remote1xPaux1T 1, e1remotehostalqxLPPaux1T = e1remotehostalqxLPPaux1T + CALQUILADOLP2Pialq, 3T;D;
If@remote1xPaux2T 1, e1remotehostalqxLPPaux2T = e1remotehostalqxLPPaux2T + CALQUILADOLP2Pialq, 3T;D;D;
, 8ialq, nalqLP2<D;
Print@e1remotehostalqxLPD;
H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales Local
Provincia que estan asociados como punto de oriden o destino a cada central remota. Se hace lo
siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que
son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda
parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se
suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxLP ∗L
Print@"e1hosttandemalqxLP"D;
e1hosttandemalqxLP = zerox;
Do@aux1 = CALQUILADOLP2Pialq, 1T;
aux2 = CALQUILADOLP2Pialq, 2T;
If@aux1 ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D;
If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D;
H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras,
en caso de no ser remota es claro que el nodo es identificado como Host ∗L
If@tandem1xPaux2T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxLPPaux2T = e1hosttandemalqxLPPaux2T + CALQUILADOLP2Pialq, 3T;D;
H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del origen,
se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como
destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
If@tandem1xPaux1T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxLPPaux1T = e1hosttandemalqxLPPaux1T + CALQUILADOLP2Pialq, 3T;D;D;
, 8ialq, nalqLP2<D;
61
Modelo_Integral_ACK.nb
, 8ialq, nalqLP2<D;
H∗ A nivel de las centrales de origen, si optó por la opción Hestimar costo de circuitos Local ProvinciaL:
Si la cabecera del origen no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del destino,
se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como
origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
Print@e1hosttandemalqxLPD;
H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales Local Provincia
que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se
estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxLP ∗L
PrintAStyleA
"CIRCUITOS RANGO A SATELITAL", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosAS.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango A Satelital a nivel Interdepartamental:
La data viene así:
39
1
377
1
377
1
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Print@"CALQUILADOAS"D;
CALQUILADOAS = Traducir@N@ReadList@"input_C_AlquiladosAS.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOASD;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados del
rango A Satelital a nivel Interdepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L
Print@"nalqAS"D;
nalqAS = Length@CALQUILADOASD;
Print@nalqASD;
H∗ Identifica el número de elementos de la lista CALQUILADOAS ∗L
e1remotehostalqxAS = zerox;
e1hosttandemalqxAS = zerox;
TOTALE1ALQAS = 0;
Print@"TOTALE1ALQAS"D;
DoBTOTALE1ALQAS = TOTALE1ALQAS +
CALQUILADOASPialq, 2T
2
;, 8ialq, nalqAS<F;
Print@TOTALE1ALQASD;
H∗ Identifica el total de E1s asociados a los circuitos
Interdepartamentales del tipo A Satelital que son atribuibles como cargas en el tramo
intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Print@"e1remotehostalqxAS"D
Do@If@remote1xPCALQUILADOASPialq, 1TT 1, e1remotehostalqxASPCALQUILADOASPialq, 1TT =
e1remotehostalqxASPCALQUILADOASPialq, 1TT + CALQUILADOASPialq, 2T;D;, 8ialq, nalqAS<D;
Print@e1remotehostalqxASD
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo
A Satelital que estan asociados como punto de oriden o destino a cada central remota. Dentro
de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
Print@"e1hosttandemalqxAS"D
Do@If@remote1xPCALQUILADOASPialq, 1TT 1, e1hosttandemalqxASPallhostxPCALQUILADOASPialq, 1TTT =
e1hosttandemalqxASPallhostxPCALQUILADOASPialq, 1TTT + CALQUILADOASPialq, 2T;D;
If@remote1xPCALQUILADOASPialq, 1TT 0 Ï tandem1xPCALQUILADOASPialq, 1TT 0,
e1hosttandemalqxASPCALQUILADOASPialq, 1TT =
e1hosttandemalqxASPCALQUILADOASPialq, 1TT + CALQUILADOASPialq, 2T;D;, 8ialq, nalqAS<D;
Print@e1hosttandemalqxASD
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales
del tipo A Satelital que deberán ser añadidos a las cargas a nivel de centrales
Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales
host que son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
L
62
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA
"CIRCUITOS RANGO B SATELITAL", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosBS.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango B Satelital a nivel Interdepartamental:
La data viene así:
39
1
377
1
377
1
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Print@"CALQUILADOBS"D;
CALQUILADOBS = Traducir@N@ReadList@"input_C_AlquiladosBS.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOBSD;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados del
rango B Satelital a nivel Interdepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L
Print@"nalqBS"D;
nalqBS = Length@CALQUILADOBSD;
Print@nalqBSD;
H∗ Identifica el número de elementos de la lista CALQUILADOBS ∗L
e1remotehostalqxBS = zerox;
e1hosttandemalqxBS = zerox;
TOTALE1ALQBS = 0;
Print@"TOTALE1ALQBS"D;
DoBTOTALE1ALQBS = TOTALE1ALQBS +
CALQUILADOBSPialq, 2T
2
;, 8ialq, nalqBS<F;
Print@TOTALE1ALQBSD;
H∗ Identifica el total de E1s asociados a los circuitos
Interdepartamentales del tipo B Satelital que son atribuibles como cargas en el tramo
intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Print@"e1remotehostalqxBS"D;
Do@If@remote1xPCALQUILADOBSPialq, 1TT 1, e1remotehostalqxBSPCALQUILADOBSPialq, 1TT =
e1remotehostalqxBSPCALQUILADOBSPialq, 1TT + CALQUILADOBSPialq, 2T;D;, 8ialq, nalqBS<D;
Print@e1remotehostalqxBSD;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo
B Satelital que estan asociados como punto de oriden o destino a cada central remota. Dentro
de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
Print@"e1hosttandemalqxBS"D;
Do@If@remote1xPCALQUILADOBSPialq, 1TT 1, e1hosttandemalqxBSPallhostxPCALQUILADOBSPialq, 1TTT =
e1hosttandemalqxBSPallhostxPCALQUILADOBSPialq, 1TTT + CALQUILADOBSPialq, 2T;D;
If@remote1xPCALQUILADOBSPialq, 1TT 0 Ï tandem1xPCALQUILADOBSPialq, 1TT 0,
e1hosttandemalqxBSPCALQUILADOBSPialq, 1TT =
e1hosttandemalqxBSPCALQUILADOBSPialq, 1TT + CALQUILADOBSPialq, 2T;D;, 8ialq, nalqBS<D;
Print@e1hosttandemalqxBSD;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales
del tipo B Satelital que deberán ser añadidos a las cargas a nivel de centrales
Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales
host que son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA
"CIRCUITOS RANGO C SATELITAL", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosCS.txt"D;
H∗ Leyendo la información de los circuitos alquilados del rango C Satelital a nivel Interdepartamental:
La data viene así:
39
1
Modelo_Integral_ACK.nb
63
39
1
377
1
377
1
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Print@"CALQUILADOCS"D;
CALQUILADOCS = Traducir@N@ReadList@"input_C_AlquiladosCS.txt", Number, RecordLists → TrueDDD;
Print@CALQUILADOCSD;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados del
rango C Satelital a nivel Interdepartamental como una lista donde cada elemento es a su vez
una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L
Print@"nalqCS"D;
nalqCS = Length@CALQUILADOCSD;
Print@nalqCSD;
H∗ Identifica el número de elementos de la lista CALQUILADOCS ∗L
e1remotehostalqxCS = zerox;
e1hosttandemalqxCS = zerox;
TOTALE1ALQCS = 0;
Print@"TOTALE1ALQCS"D;
DoBTOTALE1ALQCS = TOTALE1ALQCS +
CALQUILADOCSPialq, 2T
2
;, 8ialq, nalqCS<F;
Print@TOTALE1ALQCSD;
H∗ Identifica el total de E1s asociados a los circuitos
Interdepartamentales del tipo C Satelital que son atribuibles como cargas en el tramo
intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Print@"e1remotehostalqxCS"D;
Do@If@remote1xPCALQUILADOCSPialq, 1TT 1, e1remotehostalqxCSPCALQUILADOCSPialq, 1TT =
e1remotehostalqxCSPCALQUILADOCSPialq, 1TT + CALQUILADOCSPialq, 2T;D;, 8ialq, nalqCS<D;
Print@e1remotehostalqxCSD;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo
C Satelital que estan asociados como punto de oriden o destino a cada central remota. Dentro
de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
Print@"e1hosttandemalqxCS"D;
Do@If@remote1xPCALQUILADOCSPialq, 1TT 1, e1hosttandemalqxCSPallhostxPCALQUILADOCSPialq, 1TTT =
e1hosttandemalqxCSPallhostxPCALQUILADOCSPialq, 1TTT + CALQUILADOCSPialq, 2T;D;
If@remote1xPCALQUILADOCSPialq, 1TT 0 Ï tandem1xPCALQUILADOCSPialq, 1TT 0,
e1hosttandemalqxCSPCALQUILADOCSPialq, 1TT =
e1hosttandemalqxCSPCALQUILADOCSPialq, 1TT + CALQUILADOCSPialq, 2T;D;, 8ialq, nalqCS<D;
Print@e1hosttandemalqxCSD;
H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales
del tipo C Satelital que deberán ser añadidos a las cargas a nivel de centrales
Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales
host que son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem
y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA
"CIRCUITOS NO OPERADORES", Bold, 16, Underlined, White, Background → BlueEE;
PrintAStyleA"TRAMOS
INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES",
Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_AlquiladosABCnop.txt"D;
H∗ Leyendo la información de los circuitos alquilados
de los no operadores que son Interdepartamentales. La data viene así:
39
8
39
7
216
9
El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL,
el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado
con alguna de las centrales del modelo, en el ejemplo, los números 39 y 216 hacen
referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces,
en una fila aparecera el origen o destino y en otra el correspondiente destino u origen,
sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no
es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L
Modelo_Integral_ACK.nb
64
Modelo_Integral_ACK.nb
Print@"CALQUILADOABCnop"D;
CALQUILADOABCnop = Ceiling@Traducir@N@ReadList@"input_C_AlquiladosABCnop.txt", Number, RecordLists → TrueDDDD;
Print@CALQUILADOABCnopD;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados de
los no operadores a nivel Interdepartamental como una lista donde cada elemento es a su
vez una lista que presenta los datos de cada fila: @@origen o destino, número de E1sDD ∗L
Print@"nalqABCnop"D;
nalqABCnop = Length@CALQUILADOABCnopD;
Print@nalqABCnopD;
H∗ Identifica el número de elementos de la lista CALQUILADOABCnop ∗L
e1remotehostalqxABCnop = zerox;
e1hosttandemalqxABCnop = zerox;
TOTALE1ALQABCnop = 0;
Print@"TOTALE1ALQABCnop"D;
DoBTOTALE1ALQABCnop = TOTALE1ALQABCnop +
CALQUILADOABCnopPialq, 2T
2
;, 8ialq, nalqABCnop<F;
Print@TOTALE1ALQABCnopD;
H∗ Identifica el total de E1s asociados a los circuitos alquilados
Interdepartamentales de los no operadores que son atribuibles como cargas en el tramo
intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL,
se suman todos los E1s identificados H2do elemento de cada sublistaL. El
resultado se divide entre 2 porque cada circuito aparece dos veces ∗L
Print@"e1remotehostalqxABCnop"D;
Do@If@remote1xPCALQUILADOABCnopPialq, 1TT 1, e1remotehostalqxABCnopPCALQUILADOABCnopPialq, 1TT =
e1remotehostalqxABCnopPCALQUILADOABCnopPialq, 1TT + CALQUILADOABCnopPialq, 2T;D;, 8ialq, nalqABCnop<D;
Print@e1remotehostalqxABCnopD;
H∗ Esta identificando los E1s correspondientes a circuitos alquilados interdepartamentales
de los no operadores que estan asociados como punto de origen o destino a cada central
remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL,
identifica las centrales que son remotas y para cada una de ellas realiza
la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
Print@"e1hosttandemalqxABCnop"D;
Do@If@remote1xPCALQUILADOABCnopPialq, 1TT 1, e1hosttandemalqxABCnopPallhostxPCALQUILADOABCnopPialq, 1TTT =
e1hosttandemalqxABCnopPallhostxPCALQUILADOABCnopPialq, 1TTT + CALQUILADOABCnopPialq, 2T;D;
If@remote1xPCALQUILADOABCnopPialq, 1TT 0 Ï tandem1xPCALQUILADOABCnopPialq, 1TT 0,
e1hosttandemalqxABCnopPCALQUILADOABCnopPialq, 1TT =
e1hosttandemalqxABCnopPCALQUILADOABCnopPialq, 1TT + CALQUILADOABCnopPialq, 2T;D;, 8ialq, nalqABCnop<D;
Print@e1hosttandemalqxABCnopD;
H∗ Esta identificando los E1s correspondientes a circuitos alquilados interdepartamentales de los no operadores
que deberán ser añadidos a las cargas a nivel de centrales Host. En la primera parte del código identifica
las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados,
y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas
Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista
de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras y que no son Tandem
y para cada una de ellas se realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L
PrintAStyleA"CIRCUITOS
INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE;
OpenRead@"input_C_Alquilados2ABCnop.txt"D;
H∗ Leyendo la información de los circuitos alquilados
de los no operadores que son intradepartamentales: La data viene así:
377
261
3
183
190
2
39
76
2
El primer dato corresponde a la central de origen,
el segundo dato a la central de destino y el tercer dato al número de EIs ∗L
Print@"CALQUILADOABC2nop"D;
CALQUILADOABC2nop = Ceiling@Traducir@N@ReadList@"input_C_Alquilados2ABCnop.txt", Number, RecordLists → TrueDDDD;
Print@CALQUILADOABC2nopD;
H∗ Presenta la información del archivo de entrada de los circuitos alquilados de
los no operadores nivel Intradepartamental como una lista donde cada elemento es a su
vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L
Print@"nalqABC2nop"D;
nalqABC2nop = Length@CALQUILADOABC2nopD;
Print@nalqABC2nopD;
H∗ Identifica el número de elementos de la lista CALQUILADOABC2nop ∗L
Print@"TOTALE1ALQABCnop"D;
Do@TOTALE1ALQABCnop = TOTALE1ALQABCnop + CALQUILADOABC2nopPialqnop, 3T;, 8ialqnop, nalqABC2nop<D;
Print@TOTALE1ALQABCnopD;
H∗ Identifica el total de E1s asociados a los circuitos alquilados Interdepartamentales de los no
operadores. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que
dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable
TOTALE1ALQB2 que correspondió a los E1s asociados a los circuitos alquilados Interdepartamentales
L
65
TOTALE1ALQB2 que correspondió a los E1s asociados a los circuitos alquilados Interdepartamentales
de los no operadores que eran atribuibles como cargas en el tramo intradepartamental ∗L
Modelo_Integral_ACK.nb
Print@"e1remotehostalqxABCnop"D;
Do@aux1 = CALQUILADOABC2nopPialq, 1T;
aux2 = CALQUILADOABC2nopPialq, 2T;
If@aux1 ≠ aux2,
If@remote1xPaux1T 1,
e1remotehostalqxABCnopPaux1T = e1remotehostalqxABCnopPaux1T + CALQUILADOABC2nopPialq, 3T;D;
If@remote1xPaux2T 1, e1remotehostalqxABCnopPaux2T =
e1remotehostalqxABCnopPaux2T + CALQUILADOABC2nopPialq, 3T;D;D;
, 8ialq, nalqABC2nop<D;
Print@e1remotehostalqxABCnopD;
H∗ Esta identificando los E1s correspondientes a circuitos alquilados Intradepartamentales
de los no operadores que estan asociados como punto de oriden o destino a cada central
remota. Si se optó por estimar los costos de los circutos del tipo B se hace lo
siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que
son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda
parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se
suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxABCnop ∗L
Print@"e1hosttandemalqxABCnop"D;
Do@aux1 = CALQUILADOABC2nopPialq, 1T;
aux2 = CALQUILADOABC2nopPialq, 2T;
If@aux1 ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D;
If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D;
H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras,
en caso de no ser remota es claro que el nodo es identificado como Host ∗L
If@tandem1xPaux2T 0 Ï aux1 ≠ aux2,
e1hosttandemalqxABCnopPaux2T = e1hosttandemalqxABCnopPaux2T + CALQUILADOABC2nopPialq, 3T;D;
H∗ A nivel de las centrales de destino, si la cabecera del destino no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del origen,
se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como
destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
If@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxABCnopPaux1T =
e1hosttandemalqxABCnopPaux1T + CALQUILADOABC2nopPialq, 3T;D;D;
, 8ialq, nalqABC2nop<D;
H∗ A nivel de las centrales de origen, si la cabecera del origen no es la Tandem del departamento,
y si dicha cabecera es distinta de la cabecera del destino,
se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como
origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host,
automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L
Print@e1hosttandemalqxABCnopD;
H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos alquilados Intradepartamentales de
los no operadores que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados
se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxABCnop ∗L
66
Modelo_Integral_ACK.nb
PRINT["ESTIMACIÓN
DE CARGAS EN E1S ASOCIADAS A LOS CIRCUITOS DE
INTERCONEXIÓN Y QUE SON IMPUTABLES A LAS REDES INTRADEPARTAMENTALES"]
PRINT["CIRCUITOS
POR ENLACES DE INTERCONEXIÓN"]
OpenRead["input_C_ITX.txt"];
(* Lee la información correspondiente a los circuitos de interconexión. La información se presenta de la
siguiente manera:
439
39
439
40
39
2
132
1
223
1
El primer dato especifica el PDI de la red local de Tdp donde se realiza la interconexión, y el segundo dato
corresponde al número de E1s del enlace *)
Print["CdeITX"];
CdeITX=Traducir[N[ReadList["input_C_ITX.txt",Number,RecordLists→True]]];
Print[CdeITX];
(* Presenta la información de los circuitos de interconexión como una lista donde cada elemento es a su vez una
lista que presenta los datos de cada fila: [[PDI,número de E1s]] *)
Print["ncdeitx"];
ncdeitx=Length[CdeITX];
Print[ncdeitx];
(* Identifica el número de elementos de la lista CdeITX *)
e1remotehostitxx=zerox;
e1hosttandemitxx=zerox;
TOTALE1ITX=0;
TOTALE1ITXaux=0;
CITX=zerox;
Print["TOTALE1ITX"];
Do[TOTALE1ITX=TOTALE1ITX+CdeITXPialq,2T;,{ialq,ncdeitx}];
Print[TOTALE1ITX];
(* Sumatoria del total de E1s de Interconexión existentes, equivale a la sumatoria de los 2dos elementos de cada
una de las sublistas *)
Print["TOTALE1ITXaux"]
Do[If[tandem1xPCdeITXPialq,1TT0,TOTALE1ITXaux=TOTALE1ITXaux+CdeITXPialq,2T;];,{ialq,ncdeitx}];
Print[TOTALE1ITXaux]
(* Sumatoria del total de E1s de Interconeción existentes sólo para de los casos en los cuales el PDI
especificado no es una central Tandem. Para dichos caso equivale a la sumatoria de los 2dos elementos de cada una
de las sublistas *)
Print["CITX"]
Do[CITXPCdeITXPialq,1TT=CITXPCdeITXPialq,1TT+CdeITXPialq,2T;,{ialq,ncdeitx}];
Print[CITX]
(* Identifica el total de E1s de interconexión que existen en cada central (obivamente habrá sólo 1 por
departamento). Para ello identifica a que departamento pertenece cada PDI y luego totaliza el número de E1s que
existe en cada departamento *)
Print["e1remotehostitxx"];
Do[If[remote1xPCdeITXPialq,1TT1,
e1remotehostitxxPCdeITXPialq,1TT=
e1remotehostitxxPCdeITXPialq,1TT+CdeITXPialq,2T;];,{ialq,ncdeitx}];
Print[e1remotehostitxx];
(* Identifica el total de E1s a nivel R-H que estan asociados o vinculados con los enlaces de interconexión. Para
ello, identifica los PDIs que son remotas y para cada uno de dichos casos totaliza el total de E1s de
interconexión que se encuentran vinculados con dichos nodos *)
Print["e1hosttandemitxx"];
Do[If[remote1xPCdeITXPialq,1TT1,
e1hosttandemitxxPallhostxPCdeITXPialq,1TTT=e1hosttandemitxxPallhostxPCdeITXPialq,1TTT+CdeITXPialq,2T;];
If[remote1xPCdeITXPialq,1TT0 fl tandem1xPCdeITXPialq,1TT0,
e1hosttandemitxxPCdeITXPialq,1TT=e1hosttandemitxxPCdeITXPialq,1TT+CdeITXPialq,2T;];,{ialq,ncdeitx}];
Print[e1hosttandemitxx];
(* Identifica el total de E1s a nivel H-T que estan asociados o vinculados con los enlaces de interconexión. En
la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se
identificó circuitos de interconexión, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos
asociados a sus remotas (por jerarquía de la red). En la segunda parte del código se identifica directamente
dentro de la lista de PDIs (1er dato de cada sublista) las centrales que son cabeceras y que no son Tandem y para
cada una de ellas se realiza la sumatoria del total de E1s (2do elemento de cada sublista) *)
67
Modelo_Integral_ACK.nb
ALGORITMO DE PRIM
PrintBStyleB
"ALGORITMO DE PRIM", Bold, 16, Underlined, White, Background → RGBColorB0,
H∗∗∗∗∗∗∗∗∗∗∗∗∗ en estrella con fibra enterrada ∗∗∗∗∗∗∗∗∗∗∗∗∗ L
e1remotehostalqxABC2 = zerox;
e1hosttandemalqxABC2 = zerox;
1
, 0FFF;
2
IfBConsideraPRIM ≠ 0,
nodo = zerox;
nodonoradio = zerox;
numeronodos = 0;
numeronodosnoradio = 0;
prime1remotehostx = zerox;
H∗ a nivel de voz ∗L
primloadremotehostLocx = zerox; H∗ Voz Local ∗L
primloadremotehostLDNx = zerox; H∗ Voz LDN ∗L
primloadremotehostLDIx = zerox; H∗ Voz LDI ∗L
prime1remotehostalqxA1 = zerox; H∗ circuitos tipo A ∗L
prime1remotehostalqxB1 = zerox; H∗ circuitos tipo B ∗L
prime1remotehostalqxC1 = zerox; H∗ circuitos tipo C ∗L
prime1remotehostalqxLL = zerox; H∗ circuitos tipo Local LIMA ∗L
prime1remotehostalqxLP = zerox; H∗ circuitos tipo Local Provincias ∗L
prime1remotehostalqxAS = zerox; H∗ circuitos tipo A Satelital∗L
prime1remotehostalqxBS = zerox; H∗ circuitos tipo B Satelital∗L
prime1remotehostalqxCS = zerox; H∗ circuitos tipo C Satelital∗L
prime1remotehostalqxABC2 = zerox; H∗ otros circuitos tipo A, B y C∗L
prime1remotehostalqxABCnop = zerox; H∗ circuitos de No Operadores∗L
prime1remotehostitxx = zerox;
H∗ circuitos de Interconexión ∗L
prime1remotehostadslx = zerox;
H∗ Los de ADSL ∗L
DoBIf@host1xPiaxT 1,
numeronodos = 1;
numeronodosnoradio = 1;
nodoPnumeronodosT = iax;
nodonoradioPnumeronodosnoradioT = iax;,
If@esAnillopxPiaxT 0 Ï MemberQ@8Enterrado, Aereo, Urbana, Radio<,
transtechxPiaxTD, numeronodos ++;
nodoPnumeronodosT = iax;D;
H∗Inicio de Cambios en el Algoritmo de PRIM para que sea similar al del modelo en access∗L
If@esAnillopxPiaxT 0 Ï MemberQ@8Enterrado, Aereo, Urbana<,
transtechxPiaxTD,
numeronodosnoradio ++;
nodonoradioPnumeronodosnoradioT = iax;D;D; H∗∗L
IfBhost1xPiax + 1T 1 Ï numeronodos > 2, H∗ comienzo Prim ∗L
Print@"Prim"D;
H∗Todos los nodos∗L
disttotal = 0;
nodoconectado = Table@0, 8ix, numeronodos<D;
nodoconectadoP1T = 1;
H∗ vale 1 si ya forma parte del grafo ∗L
aquienmeconecto = zerox;
aquienmeconectoP1T = 1;
nodoencontrado = 1;
WhileBnodoencontrado ≠ 0,
distaux = ∞;
nodoencontrado = 0;
nodoalqueseconecta = 0;
For@iinod = 1, iinod < numeronodos,
For@jjnod = iinod + 1, jjnod < numeronodos + 1, If@Hdistance@nodoPiinodT, nodoPjjnodTD < distaux Í
nodoencontrado 0L Ï HHnodoconectadoPiinodT 1 Ï nodoconectadoPjjnodT 0L Í
HnodoconectadoPjjnodT 1 Ï nodoconectadoPiinodT 0LL,
distaux = distance@nodoPiinodT, nodoPjjnodTD;
nodoencontrado = If@nodoconectadoPiinodT 0, iinod, jjnodD;
nodoalqueseconecta = If@nodoconectadoPjjnodT 0, iinod, jjnodD;D; jjnod ++D; iinod ++D;
If@nodoencontrado ≠ 0, nodoconectadoPnodoencontradoT = 1;
aquienmeconectoPnodoencontradoT = nodoalqueseconecta;D;
distaux
disttotal = disttotal +
;F;
factorNoLinealNoUrban
H∗Nodos de Fibra∗L
disttotalnoradio = 0;
nodoconectadonoradio = Table@0, 8ix, numeronodosnoradio<D;
nodoconectadonoradioP1T = 1;
H∗ vale 1 si ya forma parte del grafo ∗L
aquienmeconectonoradio = zerox;
aquienmeconectonoradioP1T = 1;
nodoencontradonoradio = 1;
68
nodoencontradonoradio 1;
numeronodonormal = Table@0, 8ix, numeronodosnoradio<D;
For@ibx = 1, ibx ≤ numeronodosnoradio,
For@icx = 1, icx ≤ numeronodos, If@nodonoradioPibxT nodoPicxT, numeronodonormalPibxT = icxD;
icx ++D;
ibx ++D;
Modelo_Integral_ACK.nb
WhileBnodoencontradonoradio ≠ 0,
distauxnoradio = ∞;
nodoencontradonoradio = 0;
nodoalqueseconectanoradio = 0;
For@iinod = 1, iinod < numeronodosnoradio,
For@jjnod = iinod + 1, jjnod < numeronodosnoradio + 1,
If@Hdistance@nodonoradioPiinodT, nodonoradioPjjnodTD < distauxnoradio Í nodoencontradonoradio 0L Ï
HHnodoconectadonoradioPiinodT 1 Ï nodoconectadonoradioPjjnodT 0L Í HnodoconectadonoradioPjjnodT 1 Ï
nodoconectadonoradioPiinodT 0LL, distauxnoradio = distance@nodonoradioPiinodT, nodonoradioPjjnodTD;
nodoencontradonoradio = If@nodoconectadonoradioPiinodT 0, iinod, jjnodD;
nodoalqueseconectanoradio = If@nodoconectadonoradioPjjnodT 0, iinod, jjnodD;D; jjnod ++D; iinod ++D;
If@nodoencontradonoradio ≠ 0, nodoconectadonoradioPnodoencontradonoradioT = 1;
aquienmeconectonoradioPnodoencontradonoradioT = nodoalqueseconectanoradio;D;
distauxnoradio
disttotalnoradio = disttotalnoradio +
;F;
factorNoLinealNoUrban
For@ibx = 2, ibx ≤ numeronodosnoradio,
aquienmeconectoPnumeronodonormalPibxTT = numeronodonormalPaquienmeconectonoradioPibxTT; ibx ++D;
ForBibx = 2, ibx ≤ numeronodos, distaux = distance@nodoPibxT, nodoPaquienmeconectoPibxTTD;
disthostxPnodoPibxTT =
distaux
;
factorNoLinealxPnodoPibxTT
repfibraxPnodoPibxTT =
distaux
;
factorNoLinealxPnodoPibxTT
ConexionPnodoPibxTT = nodoPaquienmeconectoPibxTT;
If@Hibx 1L Ï HConsideraPRIM 2L Ï HtranstechxPnodoPibxTT EnterradoL,
disthostxPnodoPibxTT = 2 ∗ disthostxPnodoPibxTT;
repfibraxPnodoPibxTT = H∗2∗LrepfibraxPnodoPibxTT;D;
H∗Se le retira el producto por 2∗L
If@HConsideraPRIM 3L Ï HtranstechxPnodoPibxTT EnterradoL,
disthostxPnodoPibxTT = 2 ∗ disthostxPnodoPibxTT;
repfibraxPnodoPibxTT = H∗2∗LrepfibraxPnodoPibxTT;D;
H∗Se le retira el producto por 2∗L
distaux
disttotal = disttotal +
;
factorNoLinealNoUrban
ibx ++F;
H∗ ahora actualizar numero de e1s ∗L
Do@prime1remotehostxPixT = e1remotehostx@@ixDD;
primloadremotehostLocxPixT = loadremotehostLocxPixT;
primloadremotehostLDNxPixT = loadremotehostLDNxPixT;
primloadremotehostLDIxPixT = loadremotehostLDIxPixT;
prime1remotehostalqxA1PixT = e1remotehostalqxA1PixT;
prime1remotehostalqxB1PixT = e1remotehostalqxB1PixT;
prime1remotehostalqxC1PixT = e1remotehostalqxC1PixT;
prime1remotehostalqxLLPixT = e1remotehostalqxLLPixT;
prime1remotehostalqxLPPixT = e1remotehostalqxLPPixT;
prime1remotehostalqxASPixT = e1remotehostalqxASPixT;
prime1remotehostalqxBSPixT = e1remotehostalqxBSPixT;
prime1remotehostalqxCSPixT = e1remotehostalqxCSPixT;
prime1remotehostalqxABC2PixT = e1remotehostalqxABC2PixT;
prime1remotehostalqxABCnopPixT = e1remotehostalqxABCnopPixT;
prime1remotehostitxxPixT = e1remotehostitxxPixT;
prime1remotehostadslxPixT = e1remotehostadslxPixT;, 8ix, nx<D;
aquienmeconecto2 = aquienmeconecto;
For@iinod = 2, iinod < numeronodos + 1, While@
Haquienmeconecto2PiinodT ≠ 0L Ï Haquienmeconecto2PiinodT ≠ 1L, e1remotehostxPnodoPaquienmeconecto2PiinodTTT =
e1remotehostxPnodoPaquienmeconecto2PiinodTTT + prime1remotehostxPnodoPiinodTT;
loadremotehostLocxPnodoPaquienmeconecto2PiinodTTT =
loadremotehostLocxPnodoPaquienmeconecto2PiinodTTT + primloadremotehostLocxPnodoPiinodTT;
loadremotehostLDNxPnodoPaquienmeconecto2PiinodTTT =
loadremotehostLDNxPnodoPaquienmeconecto2PiinodTTT + primloadremotehostLDNxPnodoPiinodTT;
loadremotehostLDIxPnodoPaquienmeconecto2PiinodTTT =
loadremotehostLDIxPnodoPaquienmeconecto2PiinodTTT + primloadremotehostLDIxPnodoPiinodTT;
e1remotehostalqxA1PnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxA1PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxA1PnodoPiinodTT;
e1remotehostalqxB1PnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxB1PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxB1PnodoPiinodTT;
e1remotehostalqxC1PnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxC1PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxC1PnodoPiinodTT;
e1remotehostalqxLLPnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxLLPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxLLPnodoPiinodTT;
e1remotehostalqxLPPnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxLPPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxLPPnodoPiinodTT;
69
e1remotehostalqxLPPnodoPaquienmeconecto2PiinodTTT prime1remotehostalqxLPPnodoPiinodTT;
e1remotehostalqxASPnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxASPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxASPnodoPiinodTT;
e1remotehostalqxBSPnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxBSPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxBSPnodoPiinodTT;
e1remotehostalqxCSPnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxCSPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxCSPnodoPiinodTT;
e1remotehostalqxABC2PnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxABC2PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxABC2PnodoPiinodTT;
e1remotehostalqxABCnopPnodoPaquienmeconecto2PiinodTTT =
e1remotehostalqxABCnopPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxABCnopPnodoPiinodTT;
e1remotehostadslxPnodoPaquienmeconecto2PiinodTTT = e1remotehostadslxPnodoPaquienmeconecto2PiinodTTT +
prime1remotehostadslxPnodoPiinodTT;
e1remotehostitxxPnodoPaquienmeconecto2PiinodTTT = e1remotehostitxxPnodoPaquienmeconecto2PiinodTTT +
prime1remotehostitxxPnodoPiinodTT;
aquienmeconecto2PiinodT = aquienmeconectoPaquienmeconecto2PiinodTT;D;
Modelo_Integral_ACK.nb
iinod ++D;F;
F;
, 8iax, nx − 1<F;
H∗∗∗∗∗∗∗∗∗∗∗∗∗Fin Algoritmo de Prim para conectar las remotas∗∗∗∗∗∗∗∗∗∗∗∗∗ L
Tcs = 8"", "Enlaces de Itx", "LD en Rango A", "LD en Rango B", "LD en Rango C"<;
Print@"Valores Luego de PRIM"D;
loadremotehostx = loadremotehostLocx + loadremotehostLDNx + loadremotehostLDIx;
Print@TableForm@
Table@8ix, idxPixT, e1remotehostxPixT, loadremotehostLocxPixT, loadremotehostLDNxPixT, loadremotehostLDIxPixT,
loadremotehostxPixT, e1remotehostalqxA1PixT, e1remotehostalqxB1PixT, e1remotehostalqxC1PixT,
e1remotehostalqxLLPixT, e1remotehostalqxLPPixT, e1remotehostalqxASPixT, e1remotehostalqxBSPixT,
e1remotehostalqxCSPixT, e1remotehostalqxABC2PixT, e1remotehostalqxABCnopPixT,
e1remotehostadslxPixT, e1remotehostitxxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableHeadings → 8None, 8"ix", "idx", "E1s Voz", "Erlangs Local", "Erlangs LDN", "Erlangs LDI",
"Erlangs Total", "E1s Rango A", "E1s Rango B", "E1s Rango C", "E1s Local Lima", "E1s Local Prov",
"E1s Rango A Sat", "E1s Rango B Sat", "E1s Rango C Sat", "E1s Otros", "E1s No Op", "E1s ADSL", "E1s ITX"<<DD;
ACUMULACION DE E1s A NIVEL DE ANILLOS
PRINTB"
ACUMULADO DEL NÚMERO DE E1S A NIVEL DE ANILLOS"F;
PRINTA"
ACUMULADO PROVINCIALES"E;
e1Anillop = zerop;
H∗ Voz ∗L
loadAnilloLocp = zerop; H∗ Voz Local ∗L
loadAnilloLDNp = zerop; H∗ Voz LDN ∗L
loadAnilloLDIp = zerop; H∗ Voz LDI ∗L
e1AnilloalqpA1 = zerop; H∗ Circuitos Rango A ∗L
e1AnilloalqpB1 = zerop; H∗ Circuitos Rango B ∗L
e1AnilloalqpC1 = zerop; H∗ Circuitos Rango C ∗L
e1AnilloalqpLL = zerop; H∗ Circuitos Local Lima ∗L
e1AnilloalqpLP = zerop; H∗ Circuitos Local Provincias ∗L
e1AnilloalqpAS = zerop; H∗ Circuitos Rango A Satelital∗L
e1AnilloalqpBS = zerop; H∗ Circuitos Rango B Satelital∗L
e1AnilloalqpCS = zerop; H∗ Circuitos Rango C Satelital∗L
e1AnilloalqpABC2 = zerop; H∗ Otros Circuitos Rango A, B y C∗L
e1AnilloalqpABCnop = zerop;H∗ Circuitos de No Operadores∗L
e1Anilloadslp = zerop; H∗ ADSL ∗L
e1Anilloitxp = zerop;
H∗ Circuitos de Interconexión ∗L
ProvAnillo = 1;
esAnillo = 0;
Do@
If@host1xPixT 1,
If@esAnillopxPixT 1,
ProvAnillo = provxPixT;
esAnillo = 1;,
esAnillo = 0;
D;
D;
If@esAnillo 1,
e1AnillopPProvAnilloT =
e1AnillopPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostxPixT ∗ If@host1xPixT 1, 0, 1D;
loadAnilloLocpPProvAnilloT = loadAnilloLocpPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ loadremotehostLocxPixT ∗ If@host1xPixT 1, 0, 1D;
loadAnilloLDNpPProvAnilloT = loadAnilloLDNpPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ loadremotehostLDNxPixT ∗ If@host1xPixT 1, 0, 1D;
loadAnilloLDIpPProvAnilloT = loadAnilloLDIpPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ loadremotehostLDIxPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpA1PProvAnilloT = e1AnilloalqpA1PProvAnilloT +
70
Modelo_Integral_ACK.nb
e1AnilloalqpA1PProvAnilloT e1AnilloalqpA1PProvAnilloT
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxA1PixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpB1PProvAnilloT = e1AnilloalqpB1PProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxB1PixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpC1PProvAnilloT = e1AnilloalqpC1PProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxC1PixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpLLPProvAnilloT = e1AnilloalqpLLPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxLLPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpLPPProvAnilloT = e1AnilloalqpLPPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗
e1remotehostalqxLPPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpASPProvAnilloT =
e1AnilloalqpASPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxASPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpBSPProvAnilloT = e1AnilloalqpBSPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxBSPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpCSPProvAnilloT = e1AnilloalqpCSPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxCSPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpABC2PProvAnilloT = e1AnilloalqpABC2PProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxABC2PixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloalqpABCnopPProvAnilloT = e1AnilloalqpABCnopPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxABCnopPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloadslpPProvAnilloT = e1AnilloadslpPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostadslxPixT ∗ If@host1xPixT 1, 0, 1D;
e1AnilloitxpPProvAnilloT = e1AnilloitxpPProvAnilloT +
If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostitxxPixT ∗ If@host1xPixT 1, 0, 1D;
D;
, 8ix, nx<D;
loadAnillop = loadAnilloLocp + loadAnilloLDNp + loadAnilloLDIp;
H∗ Se estima el número de E1s a nivel de cada anillo provincia para cada servicio. Para ello,
se identifica cada provincia Higual a la provincia de cada cabeceraL y dentro de cada provincia
donde efectivamente existe un anillo provincial se suma de todas las remotas que forman parte
del anillo la respectiva variable e1remotehostx, loadremotehostLocx, loadremotehostLDNx,
loadremotehostLDIx, loadremotehostx, e1remotehostalqxA1, e1remotehostalqxB1, e1remotehostalqxC1,
e1remotehostalqxLL, e1remotehostalqxLP, e1remotehostalqxAS, e1remotehostalqxBS, e1remotehostalqxCS,
e1remotehostalqxABC2, e1remotehostalqxABCnop, e1remotehostadslx, e1remotehostitxx ∗L
Print@TableForm@Table@8ip, provTXTpPipT, e1AnillopPipT, loadAnilloLocpPipT, loadAnilloLDNpPipT,
loadAnilloLDIpPipT, e1AnilloalqpA1PipT, e1AnilloalqpB1PipT, e1AnilloalqpC1PipT, e1AnilloalqpLLPipT,
e1AnilloalqpLPPipT, e1AnilloalqpASPipT, e1AnilloalqpBSPipT, e1AnilloalqpCSPipT, e1AnilloalqpABC2PipT,
e1AnilloalqpABCnopPipT, e1AnilloadslpPipT, e1AnilloitxpPipT<, 8ip, np<D, TableSpacing → 80, 1<,
TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "e1Anillop",
"loadAnilloLocp", "loadAnilloLDNp", "loadAnilloLDIp", "e1AnilloalqpA1", "e1AnilloalqpB1",
"e1AnilloalqpC1", "e1AnilloalqpLL", "e1AnilloalqpLP", "e1AnilloalqpAS", "e1AnilloalqpBS",
"e1AnilloalqpCS", "e1AnilloalqpABC2", "e1AnilloalqpABCnop", "e1Anilloadslp", "e1Anilloitxp"<<DD;
PRINTA"
ACUMULADO DEPARTAMENTALES"E;
e1Anillod = zerod;
H∗ Voz ∗L
loadAnilloLocd = zerod; H∗ Voz Local ∗L
loadAnilloLDNd = zerod; H∗ Voz LDN ∗L
loadAnilloLDId = zerod; H∗ Voz LDI ∗L
e1AnilloalqdA1 = zerod; H∗ Circuitos Rango A ∗L
e1AnilloalqdB1 = zerod; H∗ Circuitos Rango B ∗L
e1AnilloalqdC1 = zerod; H∗ Circuitos Rango C ∗L
e1AnilloalqdLL = zerod; H∗ Circuitos Local Lima ∗L
e1AnilloalqdLP = zerod; H∗ Circuitos Local Provincia ∗L
e1AnilloalqdAS = zerod; H∗ Circuitos Rango A Satelital∗L
e1AnilloalqdBS = zerod; H∗ Circuitos Rango B Satelital∗L
e1AnilloalqdCS = zerod; H∗ Circuitos Rango C Satelital∗L
e1AnilloalqdABC2 = zerod; H∗ Otros Circuitos Rango A, B y C ∗L
e1AnilloalqdABCnop = zerod;H∗ Circuitos de No Operadores ∗L
e1Anilloadsld = zerod; H∗ ADSL ∗L
e1AnilloRDd = zerod;
H∗ Rutas directas ∗L
e1Anilloitxd = zerod;
H∗ Circuitos de Interconexión ∗L
DepAnillo = 0;
esAnillo = 0;
Do@If@AnilloCabecerasPipT ≠ 0,
If@tandem1xPAnilloCabecerasPipTT 1,
If@esAnillodxPAnilloCabecerasPipTT ≠ NA,
DepAnillo = deptxPAnilloCabecerasPipTT;
esAnillo = 1;,
esAnillo = 0;
D;
D;
If@esAnillo 1, e1AnillodPDepAnilloT = e1AnillodPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
loadAnilloLocdPDepAnilloT = loadAnilloLocdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
loadhosttandemLocxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
loadAnilloLDNdPDepAnilloT = loadAnilloLDNdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
loadhosttandemLDNxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
71
Modelo_Integral_ACK.nb
loadhosttandemLDNxPAnilloCabecerasPipTT If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
loadAnilloLDIdPDepAnilloT = loadAnilloLDIdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
loadhosttandemLDIxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdA1PDepAnilloT = e1AnilloalqdA1PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxA1PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdB1PDepAnilloT = e1AnilloalqdB1PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxB1PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdC1PDepAnilloT = e1AnilloalqdC1PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxC1PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdLLPDepAnilloT = e1AnilloalqdLLPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxLLPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdLPPDepAnilloT = e1AnilloalqdLPPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxLPPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdASPDepAnilloT = e1AnilloalqdASPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxASPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdBSPDepAnilloT = e1AnilloalqdBSPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxBSPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdCSPDepAnilloT = e1AnilloalqdCSPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxCSPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdABC2PDepAnilloT = e1AnilloalqdABC2PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxABC2PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloalqdABCnopPDepAnilloT = e1AnilloalqdABCnopPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemalqxABCnopPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloadsldPDepAnilloT = e1AnilloadsldPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemadslxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloitxdPDepAnilloT = e1AnilloitxdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1hosttandemitxxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D;
e1AnilloRDdPDepAnilloT = e1AnilloRDdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗
e1RDxPAnilloCabecerasPipTT;
D;
D;
, 8ip, np<D;
loadAnillod = loadAnilloLocd + loadAnilloLDNd + loadAnilloLDId;
H∗ Se estima el número de E1s de cada anillo departamental para cada servicio. Para ello,
se identifica cada departamento Higual al departamento de cada TandemL y dentro de cada departamento
donde efectivamente existe un anillo departamental se suma de todas las cabeceras que forman
parte del anillo la respectiva variable e1hosttandemx, loadhosttandemLocx, loadhosttandemLDNx,
loadhosttandemLDIx, loadhosttandemx, e1hosttandemalqxA1, e1hosttandemalqxB1, e1hosttandemalqxC1,
e1hosttandemalqxLL, e1hosttandemalqxLP, e1hosttandemalqxAS, e1hosttandemalqxBS, e1hosttandemalqxCS,
e1hosttandemalqxABC2, e1hosttandemalqxABCnop, e1hosttandemadslx, e1hosttandemitxx, e1RDx ∗L
Print@TableForm@Table@8id, deptTXTdPidT, e1AnillodPidT, loadAnilloLocdPidT, loadAnilloLDNdPidT,
loadAnilloLDIdPidT, e1AnilloalqdA1PidT, e1AnilloalqdB1PidT, e1AnilloalqdC1PidT, e1AnilloalqdLLPidT,
e1AnilloalqdLPPidT, e1AnilloalqdASPidT, e1AnilloalqdBSPidT, e1AnilloalqdCSPidT, e1AnilloalqdABC2PidT,
e1AnilloalqdABCnopPidT, e1AnilloadsldPidT, e1AnilloitxdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableDirections → 8Column, Row<, TableHeadings → 8None, 8"id", "Nombre Departamento", "e1Anillod",
"loadAnilloLocd", "loadAnilloLDNd", "loadAnilloLDId", "e1AnilloalqdA1", "e1AnilloalqdB1",
"e1AnilloalqdC1", "e1AnilloalqdLL", "e1AnilloalqdLP", "e1AnilloalqdAS", "e1AnilloalqdBS",
"e1AnilloalqdCS", "e1AnilloalqdABC2", "e1AnilloalqdABCnop", "e1Anilloadsld", "e1Anilloitxd"<<DD;
PRINTA"
A NIVEL DE TODOS LOS SERVICIOS"E;
e1remotehostTOTALx = Ceiling@e1remotehostx + e1remotehostadslx + e1remotehostalqxA1 + e1remotehostalqxB1 +
e1remotehostalqxC1 + e1remotehostalqxLL + e1remotehostalqxLP + e1remotehostalqxAS + e1remotehostalqxBS +
e1remotehostalqxCS + e1remotehostalqxABC2 + e1remotehostalqxABCnop + e1remotehostitxxD;
e1hosttandemTOTALx = Ceiling@e1hosttandemx + e1hosttandemadslx + e1hosttandemalqxA1 + e1hosttandemalqxB1 +
e1hosttandemalqxC1 + e1hosttandemalqxLL + e1hosttandemalqxLP + e1hosttandemalqxAS + e1hosttandemalqxBS +
e1hosttandemalqxCS + e1hosttandemalqxABC2 + e1hosttandemalqxABCnop + e1hosttandemitxxD;
H∗ Estima el total de E1s a nivel RH y HT, incluyendo todos los servicios: Cargas de Voz,
Cargas de circuitos alquilados de los 3 rangos, Cargas de otros circuitos,
Adsl, Cargas de circuitos de no Operadores y Enlaces de Interconexión. ∗L
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, e1remotehostTOTALxPixT, e1hosttandemTOTALxPixT<, 8ix, nx<D,
TableSpacing → 80, 1<, TableDirections → 8Column, Row<,
TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "e1remotehostTOTALx", "e1hosttandemTOTALx"<<DD;
e1AnilloTOTALp = Ceiling@
e1Anillop + e1AnilloalqpA1 + e1AnilloalqpB1 + e1AnilloalqpC1 + e1AnilloalqpLL + e1AnilloalqpLP + e1AnilloalqpAS +
e1AnilloalqpBS + e1AnilloalqpCS + e1AnilloalqpABC2 + e1AnilloalqpABCnop + e1Anilloadslp + e1AnilloitxpD;
H∗ Estima el total de E1s de los anillos provinciales para todos los servicios. Para
ellos suma los E1s asociados a cada uno de los servicios. ∗L
Print@TableForm@Table@8ip, provTXTpPipT, e1AnilloTOTALpPipT<, 8ip, np<D, TableSpacing → 80, 1<,
TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "e1AnilloTOTALp"<<DD;
e1AnilloTOTALd = Ceiling@
e1Anillod + e1AnilloalqdA1 + e1AnilloalqdB1 + e1AnilloalqdC1 + e1AnilloalqdLL + e1AnilloalqdLP + e1AnilloalqdAS +
e1AnilloalqdBS + e1AnilloalqdCS + e1AnilloalqdABC2 + e1AnilloalqdABCnop + e1Anilloadsld + e1AnilloitxdD;
72
Modelo_Integral_ACK.nb
e1AnilloalqdBS e1AnilloalqdCS e1AnilloalqdABC2 e1AnilloalqdABCnop e1Anilloadsld e1AnilloitxdD;
H∗ Estima el total de E1s de los anillos departamentales para todos los servicios. Para
ellos suma los E1s asociados a cada uno de los servicios. ∗L
Print@TableForm@Table@8id, deptTXTdPidT, e1AnilloTOTALdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableDirections → 8Column, Row<, TableHeadings → 8None, 8"id", "Nombre Departamento", "e1AnilloTOTALd"<<DD;
CALCULO DE COSTOS EN CONMUTACIÓN
Dimensionamiento, Costeo, Distribución de Costo e Identificación de Costo Atribuible a Tráfico
para Centrales de Conmutación y Unidades Remotas
Lectura de Datos
à Centrales
ü Estructura del Archivo de Centrales
El archivo de centrales tiene la siguiente estructura:
- ID Central
- Departamento
- Provincia
- Nombre Central
- Funcion
- Lineas PSTN
- Lineas RSDI Basicas
- Lineas RSDI Primarias
- Numero de Remotas (Asociadas a Central Cabecera)
Dicho archivo tiene formato de texto separado por comas e incluye los nombres de los campos.
ü Lectura del Archivo de Centrales {CenComInput, CenComN }
H∗ lee el archivo incluyendo cabecera ∗L
CenComAux = Import@"ModCom_ListadoCentrales.txt", "CSV"D;
H∗extrae cabecera ∗L
CenComInput = Rest@CenComAuxD;
H∗numero de elementos ∗L
CenComN = Length@CenComInputD;
à Parametros
ü Precios {CenComPrec}
H∗ lee el archivo incluyendo cabecera ∗L
CenComAux = ReadList@"ModCom_PreciarioCentrales.txt", String, RecordLists −> TrueD;
H∗subdivide cada linea por el separador ";"∗L
CenComAux = StringSplit@CenComAuxP1T, ";"D;
H∗extrae cabecera ∗L
CenComPrec = Rest@CenComAuxD;
H∗ convierte valores de cadena a numeros∗L
m = Length@CenComPrecD;
Do@CenComPrecPi, 3T = ToExpression@CenComPrecPi, 3T D; H∗ ITEM ∗L
CenComPrecPi, 5T = ToExpression@CenComPrecPi, 5T D; H∗ PRECIO UNITARIO ∗L
, 8i, 1, m<D;
ü Factores {CenComFactores, CenComPorcInst}
H∗ lee el archivo incluyendo cabecera ∗L
CenComAux = Import@"ModCom_Factores.txt", "CSV"D;
H∗extrae cabecera ∗L
CenComFactores = Rest@CenComAuxD;
CenComPorcInst = CenComFactores@@1, 3DD;
73
Modelo_Integral_ACK.nb
Calculo de Parametros de Dimensionamiento de las Centrales
à Enlaces (E0' s) {CenComE0s}
CenComE0s = Table@0, 8i, 1, CenComN<D;
Do@idCentralMFija = CenComInputPi, 1T;
idPosCentralMIntegral = idinvertxPidCentralMFijaT;
CenComE0sPiT = trunkxPidPosCentralMIntegralT;, 8i, 1, CenComN<D;
à Remotas por Cabecera {CenComRemCab}
H∗Crea un array para contener el id_central y el numero de remotas que atiende∗L
CenComRemCab = Table@8CenComInputPi, 1T, CenComInputPi, 9T<, 8i, 1, CenComN<D;
à Acondicionamiento de Archivo
de E0s
Module@
8aux<,
H∗ Actualiza numero de E0's ∗L
H∗ san isidro neax ∗L
CenComE0sP400T = 105;
H∗ tandemlimax ∗L
CenComE0sP252T = 21 287;
D;
Dimensionamiento de Centrales
à Funciones Auxiliares
ü BuscarV
Funcion que busca el valor indicado en una matriz y devuelve el elemento que corresponde de la columna solicitada (El primer valor debe ser el valor de Cero)
Es una función propia de MS Excel.
BuscarV@mValorBuscado_, mMatrizBuscarEn_, mColumna_ D := Module@8i, j, k, a, m, AuxV<,
m = Length@mMatrizBuscarEnD;
AuxV = mMatrizBuscarEnPm, mColumnaT;
Do@
If@mValorBuscado <= mMatrizBuscarEnPi, 1T,
AuxV = mMatrizBuscarEnPi, mColumnaT;
Return@AuxVD;
D;
, 8i, 1, m<D;
Return@AuxVD;
D;
ü RedondearMas
Funcion que calcula el mayor numero entero, alejándose del Cero (Equivale a la funcion Ceiling para valores positivos y a Floor para valores negativos)
Es una función propia de MS Excel
RedondearMas@x_D := If@x ≥ 0, Ceiling@xD, Floor@xDD;
ü RedondearMenos
Funcion que calcula el menor numero entero , acercándose al Cero (Equivale a la funcion Floor para valores positivos y a Ceiling para valores negativos)
Es una función propia de MS Excel
RedondearMenos@x_D := If@x >= 0, Floor@xD, Ceiling@xDD;
74
Modelo_Integral_ACK.nb
à Matriz de Categorias de Costos {CenComCatCosto, - CenComCatCostoAccesoPSTN, CenComCatCostoAccesoBAS,
CenComCatCostoAccesoPRI, CenComCatCostoTrafico, CenComCatCostoSenalizacion - }
Se define una matriz que contiene las categorías de costo que serán utilizadas para distribuir el costo de los elementos de las centrales (Cabeceras y Unidades Remotas) posteriormente. Por
simplificación se ha considerado conveniente utilizar el mismo vector tanto para Cabeceras como para Unidades Remotas. En el caso de categorías no utilizadas, simplemente no tendrán valor
asignado.
CenComCatCosto = 9
"ACCESO−PSTN", H∗ 1 ∗L
"ACCESO−RDSI BASICO", H∗ 2 ∗L
"ACCESO−RDSI PRIMARIO", H∗ 3 ∗L
"TRAFICO", H∗ 4 ∗L
"SEÑALIZACION" H∗ 5 ∗L
=;
Se definen adicionalmente un conjunto de símbolos que actuarán como "índices" de la matriz definida anteriormente para hacer referencia al tipo de costo deseado.
CenComCatCostoAccesoPSTN = 1;
CenComCatCostoAccesoBAS = 2;
CenComCatCostoAccesoPRI = 3;
CenComCatCostoTrafico = 4;
CenComCatCostoSenalizacion = 5;
à Matrices de Elementos de cada Subsistema de una Central Cabecera
Cada Central Cabecera se ha dividido en diversos subsistemas, cada uno de los cuales contiene elementos o "equipos" (armarios, tarjetas, almacenes, cables, etc.)
Se ha desarrollado un patrón para facilitar el trabajo con estos elementos. Dicho patrón es el siguiente:
Para cada Subsistema:
Definición de Matrices generales
Matriz de Nombre de los elementos (Titulos)
Matriz de Precio de los elementos
Matriz de Matriz de distribución de costo de los elementos
Matriz auxiliar para la definción de elementos. (Equivale a la definición de un tipo/estructura de datos)
Para cada elemento del subsistema
Comentario conteniendo el nombre del elemento
Variable auxiliar para indexar el elemento al interior de las matrices del subsistema
Asignación del nombre del elemento
Asignación del precio del elemento
Para las Centrales de Conmutación
Definición de Matrices Generales
Matriz que contiene la estructura de la central, agrupados en subsistemas y elementos: auxElem. (Equivale a la definición de un tipo/estructura de datos)
Matriz que contiene el vector de precios de la central, agrupados en subsistemas y elementos: auxPrec
Matriz que contiene el nombre de los elementos de la central, agrupados en subsistemas y elementos: auxTit
Matriz que contiene la distribución de los elementos de la central, para cada tipo de costo, agrupados en subsistemas y elementos: auxDist (Equivale a la definición de un
tipo/estructura de datos)
75
Modelo_Integral_ACK.nb
ü Matriz de Elementos del Subsistema de Abonado {CenComTituloSA, CenComPreciosSA, CenComDistribucionSA, auxSA}
CenComTituloSA = Table@"", 8i, 1, 14<D;
CenComPreciosSA = Table@0, 8i, 1, 14<D;
CenComDistribucionSA = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 14<D;
auxSA = Table@0, 8i, 1, 14<D;
H∗ TARJETAS DE LINEA ∗L
a = 1;
CenComTituloSAPaT = "TARJETA PARA 8 ABONADOS ACA − 3";
CenComPreciosSAPaT = CenComPrecP9, 5T;
a = 2;
CenComTituloSAPaT = "TARJETA KR PARA LSM DE ACA − 3";
CenComPreciosSAPaT = CenComPrecP10, 5T;
H∗ LSM's ∗L
a = 3;
CenComTituloSAPaT = "LSM ACA − 3 PARA 128 AB.POU.";
CenComPreciosSAPaT = CenComPrecP8, 5T;
a = 4;
CenComTituloSAPaT = "LSM PARA 64 ACC 2 B + D INCL.60";
CenComPreciosSAPaT = CenComPrecP6, 5T;
a = 5;
CenComTituloSAPaT = "NUEVO LSM − PRA CON ACC.30 B + D";
CenComPreciosSAPaT = CenComPrecP7, 5T;
H∗ ALMACENES GENERALES ∗L
a = 6;
CenComTituloSAPaT = "ALMACEN RPBC HDUPLICADOL";
CenComPreciosSAPaT = CenComPrecP2, 5T;
a = 7;
CenComTituloSAPaT = "ALMACEN SE − PRM H50L 8 AB.GEN.";
CenComPreciosSAPaT = CenComPrecP4, 5T;
H∗ ELEMENTOS DE CONEXION CON GSS Y UNIDADES REMOTAS ∗L
a = 8;
CenComTituloSAPaT = "TARJETA JTC PARA RDSI";
CenComPreciosSAPaT = CenComPrecP5, 5T;
a = 9;
CenComTituloSAPaT = "ALMACEN STC.";
CenComPreciosSAPaT = CenComPrecP3, 5T;
H∗ PREINSTALACIONES ∗L
a = 10;
CenComTituloSAPaT = "PREINSTALACION ACA − 3";
CenComPreciosSAPaT = CenComPrecP12, 5T;
a = 11;
CenComTituloSAPaT = "PREINSTALACION 2 B + D";
CenComPreciosSAPaT = CenComPrecP11, 5T;
H∗ ELEMENTOS GENERALES ∗L
a = 12;
CenComTituloSAPaT = "MTU PARA CENTRALES";
CenComPreciosSAPaT = CenComPrecP13, 5T;
H∗ ARMARIOS ∗L
a = 13;
CenComTituloSAPaT = "ARMARIO H24 BML CON 6 ALTURAS. − LSM's";
CenComPreciosSAPaT = CenComPrecP1, 5T;
a = 14;
CenComTituloSAPaT = "ARMARIO H24 BML CON 6 ALTURAS. − STC's";
CenComPreciosSAPaT = CenComPrecP1, 5T;
76
Modelo_Integral_ACK.nb
ü Matriz de Elementos del Subsistema Selector de Grupo {CenComTituloSSG, CenComPreciosSSG, CenComDistribucionSSG, auxSSG}
CenComTituloSSG = Table@"", 8i, 1, 8<D;
CenComPreciosSSG = Table@"", 8i, 1, 8<D;
CenComDistribucionSSG = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 8<D;
auxSSG = Table@0, 8i, 1, 8<D;
H∗ almacenes de conmutadores ∗L
a = 1;
CenComTituloSSGPaT = "ALM. TSM HDUP.L ENTRE 0 Y 32K";
CenComPreciosSSGPaT = CenComPrecP18, 5T;
a = 2;
CenComTituloSSGPaT = "ALMACEN SPM HDUP.L PARA 8K";
CenComPreciosSSGPaT = CenComPrecP17, 5T;
H∗ almacenes de procesadores regionales ∗L
a = 3;
CenComTituloSSGPaT = "ALMACEN RP HDUP.L CON 256 KW.";
CenComPreciosSSGPaT = CenComPrecP14, 5T;
H∗almacenes del modulo de reloj ∗L
a = 4;
CenComTituloSSGPaT = "ALM. CLM ENTRE 0 Y 32K";
CenComPreciosSSGPaT = CenComPrecP15, 5T;
a = 5;
CenComTituloSSGPaT = "ALMACEN RCM";
CenComPreciosSSGPaT = CenComPrecP16, 5T;
a = 6;
CenComTituloSSGPaT = "ALMACEN ICM";
CenComPreciosSSGPaT = CenComPrecP20, 5T;
H∗ almacen del modulo de sincronismo PCM ∗L
a = 7;
CenComTituloSSGPaT = "ALMACEN PCD HDL2L";
CenComPreciosSSGPaT = CenComPrecP21, 5T;
H∗ armarios ∗L
a = 8;
CenComTituloSSGPaT = "ARMARIO 12 BM CON 6 ALTURAS";
CenComPreciosSSGPaT = CenComPrecP19, 5T;
77
Modelo_Integral_ACK.nb
ü Matriz de Elementos del Subsistema de Enlace y Señalizacion {CenComTituloSES, CenComPreciosSES, CenComDistribucionSES, auxSES}
CenComTituloSES = Table@"", 8i, 1, 13<D;
CenComPreciosSES = Table@"", 8i, 1, 13<D;
CenComDistribucionSES = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 13<D;
auxSES = Table@0, 8i, 1, 13<D;
H∗ elementos de enlace ∗L
a = 1;
CenComTituloSESPaT = "FUNCIÓN ETC3ê4 H32 CANALESL";
CenComPreciosSESPaT = CenComPrecP23, 5T;
a = 2;
CenComTituloSESPaT = "ALMACÉN GEMM1 PARA 16 ETCC4";
CenComPreciosSESPaT = CenComPrecP32, 5T;
H∗ elementos de señalizacion con centrales externas ∗L
a = 3;
CenComTituloSESPaT = "FUNCIÓN TRH HFH, PARA, ST7L";
CenComPreciosSESPaT = CenComPrecP35, 5T;
a = 4;
CenComTituloSESPaT = "ALMACÉN TRH HFH, PARA, ST7L";
CenComPreciosSESPaT = CenComPrecP34, 5T;
H∗ armario para elementos de enlace y señalizacion ∗L
a = 5;
CenComTituloSESPaT = "ARMARIO 12 BM 6 ALTURAS GEMM1 Y HLP.";
CenComPreciosSESPaT = CenComPrecP33, 5T;
H∗ almacen para dispositivo de conferencia de llamadas ∗L
a = 6;
CenComTituloSESPaT = "ALMACÉN CCD";
CenComPreciosSESPaT = CenComPrecP27, 5T;
H∗ armario para CCD y APZ ∗L
a = 7;
CenComTituloSESPaT = "ARMARIO H24 BML CON 6 ALTURAS";
CenComPreciosSESPaT = CenComPrecP22, 5T;
H∗ modulos de servidor de anuncios y expansion de memoria ∗L
a = 8;
CenComTituloSESPaT = "AST − DR V2.BÁSICO";
CenComPreciosSESPaT = CenComPrecP28, 5T;
a = 9;
CenComTituloSESPaT = "AST − DR V2.BACK − UP";
CenComPreciosSESPaT = CenComPrecP30, 5T;
a = 10;
CenComTituloSESPaT = "ALMACEN EMAS H4 EPROM + 4 RAML";
CenComPreciosSESPaT = CenComPrecP29, 5T;
H∗ modulos diversos ∗L
a = 11;
CenComTituloSESPaT = "ALMACÉN CSFSK PARA CLASS";
CenComPreciosSESPaT = CenComPrecP31, 5T;
a = 12;
CenComTituloSESPaT = "ALM.TCON CENTRALES CON ABON.";
CenComPreciosSESPaT = CenComPrecP25, 5T;
a = 13;
CenComTituloSESPaT = "ALMACÉN CANS HOMSL";
CenComPreciosSESPaT = CenComPrecP26, 5T;
78
Modelo_Integral_ACK.nb
ü Matriz de Elementos del Subsistema de Control (APZ) {CenComTituloSC, CenComPreciosSC. CenComDistribucionSC, auxSC}
CenComTituloSC = Table@"", 8i, 1, 11<D;
CenComPreciosSC = Table@"", 8i, 1, 11<D;
CenComDistribucionSC = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 11<D;
auxSC = Table@0, 8i, 1, 11<D;
H∗ dispositivos de alamcenamiento ∗L
a = 1;
CenComTituloSCPaT = "FDD HFLOPPY DISKL CON 1.2 MB";
CenComPreciosSCPaT = CenComPrecP37, 5T;
a = 2;
CenComTituloSCPaT = "HDD HHARD DISKL CON 1 GB";
CenComPreciosSCPaT = CenComPrecP43, 5T;
H∗ alementos adicionales ∗L
a = 3;
CenComTituloSCPaT = "TARJETA RPU HINTERFAZ V − 24L";
CenComPreciosSCPaT = CenComPrecP38, 5T;
a = 4;
CenComTituloSCPaT = "TARJETA LIU HINTERFAZ V − 24L";
CenComPreciosSCPaT = CenComPrecP39, 5T;
a = 5;
CenComTituloSCPaT = "TARJETA ALAMP";
CenComPreciosSCPaT = CenComPrecP40, 5T;
a = 6;
CenComTituloSCPaT = "TARJETA ALEX";
CenComPreciosSCPaT = CenComPrecP41, 5T;
a = 7;
CenComTituloSCPaT = "TARJETA SCAN";
CenComPreciosSCPaT = CenComPrecP42, 5T;
a = 8;
CenComTituloSCPaT = "ALMACÉN ODM";
CenComPreciosSCPaT = CenComPrecP45, 5T;
H∗ procesador ∗L
a = 9;
CenComTituloSCPaT = "APZ 212 20";
CenComPreciosSCPaT = CenComPrecP47, 5T;
a = 10;
CenComTituloSCPaT = "AMPLIACIÓN DE 256 MW HDUP.L";
CenComPreciosSCPaT = CenComPrecP48, 5T;
H∗ modulo de entrada y salida ∗L
a = 11;
CenComTituloSCPaT = "IOG 11 − B5 BÁSICO";
CenComPreciosSCPaT = CenComPrecP44, 5T;
79
Modelo_Integral_ACK.nb
ü Matriz de Elementos de Materiales y Equipos Diversos {CenComTituloMED, CenComPreciosMED, CenComDistribucionMED, auxMED}
CenComTituloMED = Table@"", 8i, 1, 5<D;
CenComPreciosMED = Table@"", 8i, 1, 5<D;
CenComDistribucionMED = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 5<D;
auxMED = Table@0, 8i, 1, 5<D;
a = 1;
CenComTituloMEDPaT = "CABLE COAXIAL HFLEX 3L";
CenComPreciosMEDPaT = CenComPrecP50, 5T;
a = 2;
CenComTituloMEDPaT = "CONJ.CONECTORES PARA 1 ETCC";
CenComPreciosMEDPaT = CenComPrecP51, 5T;
a = 3;
CenComTituloMEDPaT = "REGL.ABON.32 X8.CUBRET";
CenComPreciosMEDPaT = CenComPrecP52, 5T;
a = 4;
CenComTituloMEDPaT = "REGL.MISCELANEOS H34 x6L";
CenComPreciosMEDPaT = CenComPrecP53, 5T;
a = 5;
CenComTituloMEDPaT = "CABLE DE DISTRIB.ALIMENTACION";
CenComPreciosMEDPaT = CenComPrecP49, 5T;
ü Matriz de Elementos de Equipos de Conservación {CenComTituloEC, CenComPreciosEC, CenComDistribucionEC, auxEC}
CenComTituloEC = Table@"", 8i, 1, 3<D;
CenComPreciosEC = Table@"", 8i, 1, 3<D;
CenComDistribucionEC = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 3<D;
auxEC = Table@0, 8i, 1, 3<D;
a = 1;
CenComTituloECPaT = "MAT.CONSUMO CENTRAL APZ 212";
CenComPreciosECPaT = CenComPrecP54, 5T;
a = 2;
CenComTituloECPaT = "MODULO C HPAPELL";
CenComPreciosECPaT = CenComPrecP55, 5T;
a = 3;
CenComTituloECPaT = "MODULO I HPAPELL";
CenComPreciosECPaT = CenComPrecP56, 5T;
ü Matriz de Elementos de Otros Costes {CenComTituloOC, CenComPreciosOC, CenComDistribucionOC, auxOC}
CenComTituloOC = Table@"", 8i, 1, 3<D;
CenComPreciosOC = Table@"", 8i, 1, 3<D;
CenComDistribucionOC = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 3<D;
auxOC = Table@0, 8i, 1, 3<D;
a = 1;
CenComTituloOCPaT = "SOFTWARE POR ACCESO BASICO";
CenComPreciosOCPaT = CenComPrec@@57, 5DD;
a = 2;
CenComTituloOCPaT = "SOFTWARE POR ACCESO PRIMARIO";
CenComPreciosOCPaT = CenComPrecP58, 5T;
a = 3;
CenComTituloOCPaT = "DDF";
CenComPreciosOCPaT = CenComPrecP59, 5T;
80
Modelo_Integral_ACK.nb
ü Matriz de Elementos de una central {auxElem, auxPrec, auxTit, auxDist}
auxElem = Table@8auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC<D;
auxPrec = Table@8CenComPreciosSA, CenComPreciosSSG,
CenComPreciosSES, CenComPreciosSC, CenComPreciosMED, CenComPreciosEC, CenComPreciosOC<D;
auxTit = Table@8CenComTituloSA, CenComTituloSSG, CenComTituloSES, CenComTituloSC,
CenComTituloMED, CenComTituloEC, CenComTituloOC<D;
auxDist = Table@8CenComDistribucionSA, CenComDistribucionSSG, CenComDistribucionSES,
CenComDistribucionSC, CenComDistribucionMED, CenComDistribucionEC, CenComDistribucionOC<D;
à Matrices de Elementos de cada Subsistema de una SubCentral de una Unidad Remota
El dimensionamiento de una Central Cabecera es expresado como un patrón de diseño que agrupa los elementos necesarios agrupados de acuerdo al SubSistema al que pertenecen (Subsistema de
Abonados, Subsistema Selector de Grupo, ..., Materiales y Equipos Diversos, Equipos de Conservación y Otros Costes).
Este agrupamiento no influye en los calculos, correspondiendo unicamente a una agrupacion logica de elementos de acuerdo a los subsistemas propios de una central AXE de Ericcson, así como
un agrupamiento conveniente de otros elementos que intervienen en el dimensionamiento (conectores, cables, etc. ).
En tal sentido dicho patrón se ha hecho extensivo tambien a las Unidades Remotas.
81
Modelo_Integral_ACK.nb
ü Matriz de Elementos del Subsistema de Abonado {CenComTituloSAr, CenComPreciosSAr, CenComDistribucionSAr, auxSAr}
CenComTituloSAr = Table@"", 8i, 1, 20<D;
CenComPreciosSAr = Table@0, 8i, 1, 20<D;
CenComDistribucionSAr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 20<D;
auxSAr = Table@0, 8i, 1, 20<D;
H∗ TARJETAS DE LINEA ∗L
a = 1;
CenComTituloSArPaT = "TARJETA PARA 8 ABONADOS ACA−3.";
CenComPreciosSArPaT = CenComPrecP76, 5T;
a = 2;
CenComTituloSArPaT = "TARJETA PARA 4 ACCESOS 2B+D.";
CenComPreciosSArPaT = CenComPrecP63, 5T;
a = 3;
CenComTituloSArPaT = "TARJETA KR PARA LSM DE ACA − 3";
CenComPreciosSArPaT = CenComPrecP89, 5T;
H∗ LSM's ∗L
a = 4;
CenComTituloSArPaT = "LSM ACA−3 128. STR,KR,ETB,POU.";
CenComPreciosSArPaT = CenComPrecP71, 5T;
a = 5;
CenComTituloSArPaT = "LSM ACA−3 128. KR,ETB,POU.";
CenComPreciosSArPaT = CenComPrecP72, 5T;
a = 6;
CenComTituloSArPaT = "LSM ACA−3 128. ETB,POU.";
CenComPreciosSArPaT = CenComPrecP73, 5T;
a = 7;
CenComTituloSArPaT = "LSM ACA−3 128. POU.";
CenComPreciosSArPaT = CenComPrecP74, 5T;
a = 8;
CenComTituloSArPaT = "LSM ACA−3 PARA 128 AB. POU.";
CenComPreciosSArPaT = CenComPrecP75, 5T;
a = 9;
CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 8 ACCESOS";
CenComPreciosSArPaT = CenComPrecP66, 5T;
a = 10;
CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 16 ACCESOS";
CenComPreciosSArPaT = CenComPrecP67, 5T;
a = 11;
CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 32 ACCESOS";
CenComPreciosSArPaT = CenComPrecP68, 5T;
a = 12;
CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 48 ACCESOS";
CenComPreciosSArPaT = CenComPrecP69, 5T;
a = 13;
CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 60 ACCESOS";
CenComPreciosSArPaT = CenComPrecP70, 5T;
H∗ ELEMENTOS DE CONEXION CON GSS ∗L
a = 14;
CenComTituloSArPaT = "TARJETA ETB PARA R.D.S.I.";
CenComPreciosSArPaT = CenComPrecP65, 5T;
a = 15;
CenComTituloSArPaT = "TARJETA STR PARA LSM DE ACA−3.";
CenComPreciosSArPaT = CenComPrecP77, 5T;
a = 16;
CenComTituloSArPaT = "TARJETA STR PARA R.D.S.I.";
CenComPreciosSArPaT = CenComPrecP64, 5T;
H∗ PREINSTALACIONES ∗L
a = 17;
CenComTituloSArPaT = "PREINSTALACION ACA−3";
82
Modelo_Integral_ACK.nb
CenComPreciosSArPaT = CenComPrecP77, 5T;
a = 18;
CenComTituloSArPaT = "PREINSTALACION 2B+D";
CenComPreciosSArPaT = CenComPrecP80, 5T;
H∗ ELEMENTOS GENERALES ∗L
a = 19;
CenComTituloSArPaT = "ALMACEN MTU PARA RSS";
CenComPreciosSArPaT = CenComPrecP78, 5T;
H∗ ARMARIOS ∗L
a = 20;
CenComTituloSArPaT = "ARMARIO H24 BML CON 6 ALTURAS. − RSS";
CenComPreciosSArPaT = CenComPrecP62, 5T;
ü Matriz de Elementos de Materiales y Equipos Diversos {CenComTituloMEDr, CenComPreciosMEDr, CenComDistribucionMEDr, auxMEDr}
CenComTituloMEDr = Table@"", 8i, 1, 4<D;
CenComPreciosMEDr = Table@"", 8i, 1, 4<D;
CenComDistribucionMEDr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 4<D;
auxMEDr = Table@0, 8i, 1, 4<D;
a = 1;
CenComTituloMEDrPaT = "CONECTOR PARA FLEX 3.";
CenComPreciosMEDrPaT = CenComPrecP82, 5T;
a = 2;
CenComTituloMEDrPaT = "REGL. MISCELANEOS H34x6L.";
CenComPreciosMEDrPaT = CenComPrecP84, 5T;
a = 3;
CenComTituloMEDrPaT = "PUENTE CON PUNTO DE PRUEBA.";
CenComPreciosMEDrPaT = CenComPrecP83, 5T;
a = 4;
CenComTituloMEDrPaT = "CABLE DE DISTRIB.ALIMENTACION";
CenComPreciosMEDrPaT = CenComPrecP81, 5T;
ü Matriz de Elementos de Equipos de Conservación {CenComTituloECr, CenComPreciosECr, CenComDistribucionECr, auxECr}
CenComTituloECr = Table@"", 8i, 1, 3<D;
CenComPreciosECr = Table@"", 8i, 1, 3<D;
CenComDistribucionECr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 3<D;
auxECr = Table@0, 8i, 1, 3<D;
a = 1;
CenComTituloECrPaT = "MODULO C HPAPELL PARA RSS.";
CenComPreciosECrPaT = CenComPrecP85, 5T;
a = 2;
CenComTituloECrPaT = "MODULO I HPAPELL PARA RSS.";
CenComPreciosECrPaT = CenComPrecP86, 5T;
a = 3;
CenComTituloECrPaT = "DOC. PARA RSS NUEVOS.";
CenComPreciosECrPaT = CenComPrecP87, 5T;
83
Modelo_Integral_ACK.nb
ü Matriz de Elementos de Otros Costes {CenComTituloOCr, CenComPreciosOCr, CenComDistribucionOCr, auxOCr}
CenComTituloOCr = Table@"", 8i, 1, 2<D;
CenComPreciosOCr = Table@"", 8i, 1, 2<D;
CenComDistribucionOCr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 2<D;
auxOCr = Table@0, 8i, 1, 2<D;
a = 1;
CenComTituloOCrPaT = "SOFTWARE POR ACCESO BASICO";
CenComPreciosOCrPaT = CenComPrecP88, 5T;
a = 2;
CenComTituloOCrPaT = "DDF";
CenComPreciosOCrPaT = CenComPrecP90, 5T;
ü Matriz de Elementos de una Unidad Remota {auxElemr, auxPrecr, auxTitr, auxDisrt}
auxElemr = Table@8auxSAr, auxMEDr, auxECr, auxOCr<D;
auxPrecr = Table@8CenComPreciosSAr, CenComPreciosMEDr, CenComPreciosECr, CenComPreciosOCr<D;
auxTitr = Table@8CenComTituloSAr, CenComTituloMEDr, CenComTituloECr, CenComTituloOCr<D;
auxDistr = Table@8CenComDistribucionSAr,
CenComDistribucionMEDr, CenComDistribucionECr, CenComDistribucionOCr<D;
à Matriz de Elementos de todas las Centrales Cabecera y Unidades Remotas {CenComElemCab, CenComElemRem,
CenComAbonSubCentRem}
H∗ Elementos para cada Cabecera∗L
CenComElemCab = Table@auxElem, 8i, 1, CenComN<D;
H∗ Elementos de cada SubCentral para cada Unidad Remota∗L
CenComElemRem = Table@8auxElemr<, 8i, 1, CenComN<D;
H∗ Numero de Abonados por Tipo HPSTN y RDSI Basico L
y Enlaces HEos'L de cada SubCentral para cada Unidad Remota ∗L
auxAbonSubCent = 80, 0, 0<;
CenComAbonSubCentRem = Table@8auxAbonSubCent<, 8i, 1, CenComN<D;
à Tablas Auxiliares de dimensionamiento de armarios
Los almacenes ("magazines" o "shelfs") se alojan en armarios. dichos armarios tienen diferentes capacidades de acuerdo a cada tipo de almacen (LSM, TSM, etc.).
Se incluye el dimensionamiento específico del número de armarios requeridos de acuerdo al número de LSM's, TSM's y SPM's, de las centrales Cabecera. Dicho dimensionamiento está expre sado como una matriz que relaciona el número de almacenes y el número de armarios necesarios. Estas matrices son utilizadas normalmente mediante la función auxiliar "BuscarV"
ü Dimensionamiento de Armarios para LSM's {CenComMLSMArmarios}
CenComMLSMArmarios = 8
80 , 0< ,
816 , 2<,
832 , 3<,
848 , 5<,
864 , 6<,
880 , 8<,
896 , 9<,
8 112, 11<,
8 128, 12<,
8144 , 14<,
8160 , 15<,
8176 , 17<,
8 192, 18<,
8208 , 20<,
8224 , 21<,
8240 , 23<,
8256 , 24<
<;
84
Modelo_Integral_ACK.nb
ü Dimensionamiento de Armarios para TSM {CenComMTSMArmarios}
CenComMTSMArmarios = 8
80, 0<,
88, 2<,
816, 3<,
824, 5<,
832, 6<,
840, 8<,
848, 9<,
856, 11<,
864, 12<,
872, 14<,
880, 15<,
888, 17<,
896, 18<,
8104, 20<,
8112, 21<,
8120, 23<,
8128, 24<
<;
ü Dimensionamiento de armarios para SPM {CenComMSPMArmarios}
CenComMSPMArmarios = 8
80, 0<,
82, 1<,
88, 4<,
816, 9<,
832, 16<
<;
85
Modelo_Integral_ACK.nb
à Funciones de Dimensionamiento de Centrales
ü Dimensionar Cabeceras {DimensionaCabecera}
DimensionaCabecera@mNumPSTN_, mNumRDSIBA_, mNumRDSIPRI_, mNumRem_, mNumE0_D :=
ModuleB8auxElem, auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC, i, j, k,
auxEspacioLSMs, AuxArmariosLSMs, AuxArmariosSTC, AuxArmariosTSM, AuxArmariosSPM<,
auxSA = Table@0, 8i, 1, 14<D;
auxSSG = Table@0, 8i, 1, 8<D;
auxSES = Table@0, 8i, 1, 13<D;
auxSC = Table@0, 8i, 1, 11<D;
auxMED = Table@0, 8i, 1, 5<D;
auxEC = Table@0, 8i, 1, 3<D;
auxOC = Table@0, 8i, 1, 3<D;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema de Abonado∗L
H∗Tarjeta de Abonado∗L
auxSAP1T = 0;
H∗Tarjetas KR∗L
auxSAP2T = RedondearMasB
2 ∗ mNumPSTN
2048
H∗LSM PSTN∗L
auxSAP3T = RedondearMasB
H∗LSM RDSI BA∗L
auxSAP4T = RedondearMasB
H∗LSM RDSI PRI∗L
auxSAP5T = RedondearMasB
mNumPSTN
128
F;
F;
mNumRDSIBA
60
F;
mNumRDSIPRI
4
F;
H∗almacen RP − Procesadores Reginales RPBC Duplicado ∗L
auxSAP6T = IfB HmNumPSTN + mNumRDSIBA + mNumRDSIPRI L 0, 0, RedondearMasB
auxSAP3T + auxSAP4T + auxSAP5T
H∗almacen SE−PRM − Equipo Especial de Medicion de Pulsos Remotos∗L
auxSAP7T = 0; H∗ =If@AñoDeEjecucion2000,RedondearMas@0.00008∗mNumPSTND,0D ∗L
H∗tarjetas JTC∗L
F;
2
H∗almacen STC − Señalizadores para Unidades Remotas∗L
auxSAP9T = RedondearMas@mNumRem ∗ 1.6934D;
auxSAP8T = RedondearMasBauxSAP4T +
auxSAP3T
H∗preinstalacion PSTN Preinstalacion ACA−3∗L
auxSAP10T = RedondearMas@auxSAP3T ∗ 16 − auxSAP1T D;
H∗preinstalacion basicos 2b+d∗L
mNumRDSIBA
F;
auxSAP11T = auxSAP4T ∗ 16 − RedondearMasB
4
H∗MTU para centrales∗L
auxSAP12T = If@H mNumPSTN + mNumRDSIBA + mNumRDSIPRI L 0, 0, 1D;
H∗Armario 24 BM 6 alturas∗L
auxEspacioLSMs = Ceiling@auxSAP3T + auxSAP4T ∗ 2 + auxSAP5T, 16D;
AuxArmariosLSMs = BuscarV@auxEspacioLSMs, CenComMLSMArmarios, 2D;
auxSAP9T
AuxArmariosSTC = RedondearMasB
F;
32
auxSAP13T = AuxArmariosLSMs;
auxSAP14T = AuxArmariosSTC;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema de Control − APZ∗L
H∗ Disketera ∗L
auxSC@@1DD = 2;
H∗ Disco duro ∗L
auxSC@@2DD = 1;
H∗ Tarjeta RPU ∗L
auxSC@@3DD = 4;
H∗ Tarjeta LIU ∗L
auxSC@@4DD = 7;
H∗ Tarjeta ALAMP ∗L
auxSC@@5DD = 1;
H∗ Tarjeta ALEX ∗L
16
FF;
86
Modelo_Integral_ACK.nb
auxSC@@6DD = 1;
H∗ Tarjeta SCAN ∗L
auxSC@@7DD = 1;
H∗ Almacen ODM ∗L
auxSC@@8DD = 1;
H∗ APZ 212 20 ∗L
auxSC@@9DD = 1;
H∗ Ampliacion memoria 256 MW Dup ∗L
auxSC@@10DD = 0;
H∗ Conjunto IOG 11 − B5 Basico ∗L
auxSC@@11DD = 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema de Enlace y Señalización ∗L
H∗ Tarjetas ETC − Tarjeta de Enlace de 1 E1 = 30 E0's Funcion ETC ∗L
mNumE0
auxSES@@1DD = RedondearMasB
F;
30
H∗ Almacén para Tarjetas ETC − Almacen GEMM1 para 16 Tarjetas ETC ∗L
auxSES@@1DD
F;
auxSES@@2DD = RedondearMasB
16
H∗ Tarjeta TRH − Funcion TRH HFH, PRA, ST7L − Transaction Record Handler,
Frame Handler, RSDI PRI, Señalizacion SS7 ∗L
mNumRDSIPRI
auxSA@@4DD
auxSES@@3DD = RedondearMasB
F + RedondearMasB
F + RedondearMas@mNumE0 ∗ 0.0007D;
16
12
H∗ Almacen para Tarjeta TRH∗L
auxSES@@3DD
auxSES@@4DD = RedondearMasB
F;
4
H∗Armario 12 BM 6 alturas para tarjetas ETC − GEMM1 y HLP∗L
auxSES@@2DD + auxSES@@4DD
F;
auxSES@@5DD = RedondearMasB
6
H∗ Almacen CCD − Call Conference Device ∗L
mNumPSTN ∗ 0.1
F;
auxSES@@6DD = RedondearMasB
128
H∗ Armario 24 BM 6 alturas ∗L
auxSES@@6DD
auxSES@@7DD = RedondearMasB
F + 2 ∗ auxSC@@9DD;
8
H∗ AST − DR V2 Basico ∗L
auxSES@@8DD = 1;
H∗ AST − DR V2 Backup ∗L
auxSES@@9DD = 1;
H∗ Almacen EMAS ∗L
auxSES@@10DD = auxSES@@9DD;
H∗ Almacen CSFSK para CLASS∗L
auxSES@@11DD = 1;
H∗ Almacen TCON ∗L
auxSES@@12DD = 1;
H∗ Almacen CANS − incluye OMS ∗L
auxSES@@13DD = 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema Selector de Grupo ∗L
H∗ Almacen CLM − entre 0 y 32 k∗L
auxSSG@@4DD = 3;
H∗ Almacen RCM ∗L
auxSSG@@5DD = 1;
H∗ Almacen ICM ∗L
auxSSG@@6DD = 2;
H∗ Almacen PCD − DL2 ∗L
auxSSG@@7DD = 2;
H∗ Almacen de Conmutadores Temporales − TSM Dup entre 0 y 32 k∗L
1
auxSSG@@1DD = RedondearMasB
HauxSES@@2DD ∗ 16 + auxSES@@6DD +
16
auxSA@@8DD + auxSES@@8DD ∗ 2 + auxSSG@@7DD + auxSES@@3DD + auxSES@@11DD + auxSES@@12DDLF;
H∗ Almacen de Conmutadores Espaciales − SPM Dup para 8k ∗L
auxSSG@@2DD =
4
IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 16, ,
2
87
Modelo_Integral_ACK.nb
IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 32,
16
IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 48,
,
2
36
IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 64,
F;
F
,
2
62
, 32F
2
F
H∗ almacen de Procesadores Regionales − RP Dup con 256 KW∗L
auxSSG@@1DD
auxSES@@6DD
auxSSG@@3DD = RedondearMasB
F + 1 + RedondearMasB
F + auxSES@@12DD + 1;
8
8
H∗Armario 12 BM 6 alturas∗L
AuxArmariosTSM = BuscarV@Ceiling@auxSSG@@1DD, 8D, CenComMTSMArmarios, 2D;
AuxArmariosSPM = BuscarV@auxSSG@@2DD, CenComMSPMArmarios, 2D;
auxSSG@@8DD = AuxArmariosTSM + AuxArmariosSPM + 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Materiales y Equipos Diversos ∗L
H∗ cable coaxial flex3 ∗L
auxMED@@1DD = RedondearMas@1.5898 ∗ mNumE0D;
H∗ conectores para ETC ∗L
auxMED@@2DD = auxSES@@1DD;
H∗ regleta de abonados 32 x 8 cubret ∗L
mNumPSTN
mNumRDSIBA
auxMED@@3DD = RedondearMasB
F + RedondearMasB
F;
128
128
H∗ regleta miscelaneos 34 x 6 ∗L
auxMED@@4DD = 2;
H∗ cable de distribucion de alimentacion ∗L
auxMED@@5DD = RedondearMas@0.6524 ∗ HmNumPSTN + 2 ∗ mNumRDSIBA + 30 ∗ mNumRDSIPRI + mNumE0LD;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Equipos de Conservacion ∗L
H∗ Materiales de Consumo Central APZ 212 ∗L
auxEC@@1DD = 1;
H∗ Modulo C ∗L
auxEC@@2DD = 1;
H∗ Modulo I ∗L
auxEC@@3DD = 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Otros Costes ∗L
H∗ Software
auxOC@@1DD =
H∗ Software
auxOC@@2DD =
H∗ DDF ∗L
auxOC@@3DD =
por Acceso Basico ∗L
Ceiling@mNumRDSIBA, 64D;
por Acceso Primario ∗L
mNumRDSIPRI;
1;
H∗ Crea Matriz Con Resultado Final del Dimensionamiento∗L
auxElem = Table@8auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC<D;
Return@auxElemD;
F;
ü Dimensionar Unidades Remotas {DimensionaSubCentral, CenComNumAbonadoSSS, DimensionaAbonadosPorSubCentral, DimensionaRemota}
DimensionaSubCentral@mNumPSTN_, mNumRDSIBA_, mNumE0_, mNumSubCentral_D := ModuleB8auxElemr, auxSAr,
auxMEDr, auxECr, auxOCr, i, j, k, auxNumeroLSMs, AuxArmariosLSMs, auxPreInstalacionRSDIBasicos, a<,
auxSAr = Table@0, 8i, 1, 20<D;
auxMEDr = Table@0, 8i, 1, 4<D;
auxECr = Table@0, 8i, 1, 3<D;
auxOCr = Table@0, 8i, 1, 2<D;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema de Abonado∗L
H∗LSM PSTN∗L
auxSAr@@4DD = 0;
88
Modelo_Integral_ACK.nb
auxSAr@@4DD 0;
auxSAr@@5DD = 0;
auxSAr@@6DD = 0;
auxSAr@@7DD = RedondearMasB
mNumPSTN
128
F;
auxSAr@@8DD = 0;
H∗LSM RDSI BA∗L
If@ HmNumRDSIBA > 0L && HmNumRDSIBA < 16L, a = 1;, a = 0;D;
auxSAr@@9DD = a;
If@ HmNumRDSIBA ≥ 16L && HmNumRDSIBA < 32L, a = 1, a = 0D;
auxSAr@@10DD = a;
If@ HmNumRDSIBA ≥ 32L && HmNumRDSIBA < 48L, a = 1, a = 0D;
auxSAr@@11DD = a;
If@ HmNumRDSIBA ≥ 48L && HmNumRDSIBA < 60L, a = 1, a = 0D;
auxSAr@@12DD = a;
IfB mNumRDSIBA ≥ 60, a = RedondearMasB
mNumRDSIBA
64
F, a = 0F;
auxSAr@@13DD = a;
H∗Armario 24 BM 6 alturas∗L
auxNumeroLSMs = 2 ∗ HauxSAr@@9DD + auxSAr@@10DD + auxSAr@@11DD + auxSAr@@12DD + auxSAr@@13DDL +
auxSAr@@4DD + auxSAr@@5DD + auxSAr@@6DD + auxSAr@@7DD + auxSAr@@8DD;
If@HmNumPSTN + mNumRDSIBAL > 0,
If@HauxNumeroLSMs > 16L, AuxArmariosLSMs = 3,
If@HauxNumeroLSMs > 6L, AuxArmariosLSMs = 2, AuxArmariosLSMs = 1DD;
, AuxArmariosLSMs = 0D;
auxSAr@@20DD = AuxArmariosLSMs;
H∗Tarjeta de Abonado RSDI Basico∗L
IfBHmNumRDSIBA < 8L,
a = RedondearMenosB
1
4
HmNumRDSIBA − HauxSAr@@9DD ∗ 8 + auxSAr@@10DD ∗ 16 + auxSAr@@11DD ∗ 32 + auxSAr@@12DD ∗ 48 + auxSAr@@13DD ∗ 60LLF;
,
a = RedondearMasB
1
F;
4
HmNumRDSIBA − HauxSAr@@9DD ∗ 8 + auxSAr@@10DD ∗ 16 + auxSAr@@11DD ∗ 32 + auxSAr@@12DD ∗ 48 + auxSAr@@13DD ∗ 60LLF;
auxSAr@@2DD = a;
H∗ tarjetas de conexion con GSS ∗L
H∗ tarjeta str para rdsi ∗L
If@HmNumPSTN + 2 ∗ mNumRDSIBA + mNumE0L > 0,
If@auxSAr@@4DD == 1,
a = 1,
If@auxSAr@@4DD 0, a = 2, a = 0DD;
,
a = 0D;
auxSAr@@16DD = a;
H∗ tarjeta etb para rdsi ∗L
auxSAr@@14DD = RedondearMasB
mNumE0
30
F; H∗ −auxSAr@@4DD−auxSAr@@6DD ∗L
H∗Tarjeta de Abonado PSTN∗L
auxSAr@@1DD = 0;
H∗ tarjeta str para pstn ∗L
auxSAr@@15DD = 0;
H∗Almacen MTU para RSS∗L
H∗If@mNumSubCentral1,
If@H mNumPSTN+mNumRDSIBA+mNumE0 L>0,a=1,a=0D
,a=0D; ∗L
If@H mNumPSTN + mNumRDSIBA + mNumE0 L > 0, a = 1, a = 0D;
auxSArP19T = a;
H∗preinstalacion PSTN∗L
auxSAr@@17DD = −1 ∗ HauxSAr@@1DDL;
H∗preinstalacion basicos 2b+d∗L
auxPreInstalacionRSDIBasicos =
89
Modelo_Integral_ACK.nb
1
RedondearMasB
4
H60 ∗ HauxSAr@@9DD + auxSAr@@10DD + auxSAr@@11DD + auxSAr@@12DD + auxSAr@@13DDL − mNumRDSIBALF;
auxSAr@@18DD = auxPreInstalacionRSDIBasicos;
H∗Tarjetas KR∗L
If@mNumPSTN 0,
a = 0,
If@HauxSAr@@4DD + auxSAr@@5DDL 0,
a = 1;,
a = 0;D
D;
auxSAr@@3DD = a;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Materiales y Equipos Diversos ∗L
H∗ cable de distribucion de alimentacion ∗L
If@HmNumPSTN + 2 ∗ mNumRDSIBA + mNumE0L > 0
,
If@AuxArmariosLSMs 1,
a = 160,
If@AuxArmariosLSMs 2,
a = 360, If@AuxArmariosLSMs 3, a = 480, a = 600D; D;
,
a=0
D;
D;
auxMEDr@@4DD = a;
H∗ conectores para flex ∗L
auxMEDr@@1DD = 2 ∗ HauxSAr@@14DD + auxSAr@@4DD + auxSAr@@5DD + auxSAr@@6DD L;
H∗ puente con punto de prueba ∗L
auxMEDr@@3DD = auxMEDr@@1DD;
H∗ regleta miscelaneos 34 x 6 ∗L
If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D;
auxMEDr@@2DD = a;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Equipos de Conservacion ∗L
H∗ MODULO C HPAPELL PARA RSS. ∗L
auxECr@@1DD = 0;
H∗ MODULO I HPAPELL PARA RSS. ∗L
If@mNumSubCentral 1,
If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D
,
a = 0D;
auxECr@@2DD = a;
H∗ DOC.PARA RSS NUEVOS. ∗L
If@mNumSubCentral 1,
If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D;
,
a = 0D;
auxECr@@3DD = a;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Otros Costes ∗L
H∗ Software por Acceso Basico ∗L
IfBmNumRDSIBA 0,
a=0
,
a = 64 ∗ RedondearMasB
F;
mNumRDSIBA
64
F;
auxOCr@@1DD = a;
H∗ DDF ∗L
If@mNumSubCentral 1,
If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D;
,
a = 0D;
auxOCr@@2DD = a;
90
auxOCr@@2DD
Modelo_Integral_ACK.nb
a;
H∗ Crea Matriz Con Resultado Final del Dimensionamiento∗L
auxElemr = Table@8auxSAr, auxMEDr, auxECr, auxOCr<D;
Return@auxElemrD;
F;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ FUNCION AUXILIAR QUE SUMA EL NUMERO DE ABONADOS DE UN SSS DE ACUERDO AL TIPO DE LSM HPSTN o BAL
PRIMERO SELECCIONA LOS LSM'S QUE SON DEL TIPO INDICADO
LUEGO SUMA EL SEGUNDO ELEMENTO HNUMERO DE ABONADOSL Y LO DEVUELVE COMO RESULTADO
∗L
CenComNumAbonadoSSS@SSS_, TipoLSM_D :=
ModuleB
8auxLSMsTipo, AuxSuma, i, x, y<,
auxLSMsTipo = Cases@SSS, 8x1_, y1_< ê; x1 TipoLSMD;
Length @auxLSMsTipo D
AuxSuma =
‚
auxLSMsTipo@@i, 2DD;
i=1
Return@AuxSumaD;
F;
H∗ Esta funcion devuelve un vector con el numero
de abonados HPSTN−BasicosL y Enlaces HE0sL para cada subcentral
En el caso que no existan abonados ni enlaces devuelve una matriz conteniendo una unica central vacia ∗L
DimensionaAbonadosPorSubCentral@ mNumPSTN_, mNumRDSIBA_, mNumE0_D :=
ModuleB
8 mauxElemr,
auxLSMxSSS,
auxAbonPSTNxLSMPSTN, auxAbonBAxLSMBA,
auxNumLSMPSTN, auxNumLSMBA,
mListaLSM,
mListaLSMBA, mListaLSMPSTN,
mNumSSS, mNumLSMs, auxLSMVacio,
mAuxAbonE0xSSS,
auxNumE0xSSS,
auxA<
,
mauxElemr = 8auxAbonSubCent<;
H∗ validacion para unidad remota sin elementos ∗L
If@HmNumPSTN + mNumRDSIBA + mNumE0L 0, Return@mauxElemrDD;
H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L
H∗ auxiliares ∗L
auxLSMVacio = 8"PSTN", 0<;
H∗ equivalencias ∗L
H∗ una subcentral equivale a un SSS o modulo de conmutacion de abonados ∗L
H∗ lsm's por sss ∗L
auxLSMxSSS = 16;
H∗ abonados por tipo de lsm ∗L
auxAbonPSTNxLSMPSTN = 128;
auxAbonBAxLSMBA = 64;
H∗ priorizacion de llenado de SSS
1 BA;
2 PSTN;
∗L
H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L
H∗ calcula el numero de abonados por SSS ∗L
H∗ numero de lsm's por servicio ∗L
mNumPSTN
auxNumLSMPSTN = CeilingB
F;
auxAbonPSTNxLSMPSTN
mNumRDSIBA
F;
auxNumLSMBA = CeilingB
auxAbonBAxLSMBA
91
H∗ crea lista ordenada de LSM's en funcion a su tipo
y adiciona el numero de abonados ∗L
mListaLSMBA = Table@8"BA", auxAbonBAxLSMBA<, 8auxNumLSMBA<D ;
If@Mod@mNumRDSIBA, auxAbonBAxLSMBAD > 0, mListaLSMBA@@auxNumLSMBA, 2DD = Mod@mNumRDSIBA, auxAbonBAxLSMBAD;
D;
Modelo_Integral_ACK.nb
mListaLSMPSTN = Table@8"PSTN", auxAbonPSTNxLSMPSTN<, 8auxNumLSMPSTN<D ;
If@Mod@mNumPSTN, auxAbonPSTNxLSMPSTND > 0,
mListaLSMPSTN@@auxNumLSMPSTN, 2DD = Mod@mNumPSTN, auxAbonPSTNxLSMPSTND;
D;
mListaLSM = Table@8 mListaLSMBA, mListaLSMPSTN<D;
mListaLSM = Flatten@mListaLSM, 1D;
mNumLSMs = Length@mListaLSMD;
H∗ calcula numero de subcentrales ∗L
mNumLSMs
mNumSSS = CeilingB
F;
auxLSMxSSS
H∗ completa bloques de subcentrales pra subdividirlas posteriormente ∗L
mListaLSM = PadRight@mListaLSM, mNumSSS ∗ auxLSMxSSS, 8auxLSMVacio<D;
mListaLSM = Partition@mListaLSM, auxLSMxSSSD;
H∗ variable para almacenar division de subcentrales ∗L
H∗
mAuxAbonE0xSSS;
1 = Num PSTN;
2 = Num RSDI Basico;
3 = Num Enlaces E0's;
∗L
mAuxAbonE0xSSS = Table@8CenComNumAbonadoSSS@mListaLSM@@iDD, "PSTN"D, CenComNumAbonadoSSS@mListaLSM@@iDD, "BA"D,
0<, 8i, 1, Length@mListaLSMD<D;
H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L
H∗ calcula el numero de enlaces por SSS ∗L
H∗ el numero de enlaces por sss se calcula prorrateando el numero de enlaces en funcion al numero
de abonados equivalentes de cada sss ∗L
mNumE0 ∗ HmAuxAbonE0xSSS@@i, 1DD + mAuxAbonE0xSSS@@i, 2DD ∗ 2L
DoBmAuxAbonE0xSSS@@i, 3DD = RedondearMenosB
F,
HmNumPSTN + mNumRDSIBA ∗ 2L
8i, 1, Length@mAuxAbonE0xSSSD<F;
H∗ corrige el ultimo elemento con el numero de enlaces faltantes
Length @mAuxAbonE0xSSS D−1
auxA =
‚
HmAuxAbonE0xSSS@@i, 3DDL;
i=1
mAuxAbonE0xSSS@@Length@mAuxAbonE0xSSSD, 3DD = mNumE0 − auxA;
Return@mAuxAbonE0xSSSD;
F;
∗L
92
Modelo_Integral_ACK.nb
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Esta funcion recibe como entrada un vector que contiene el numero
de abonadosHPSTN−BAL y Enlaces HE0sL para cada Subcentral de una unidad Remota.
Devuelve una matriz de elementos dimensionados para cada subcentral.
En el caso que no existan abonados ni enlaces devuelve una matriz conteniendo una unica central vacia. ∗L
DimensionaRemota@mAbonSubCent_D :=
Module@
8 mauxElemr,
mNumPSTN, mNumRDSIBA, mNumE0,
mAuxAbonE0xSSS,
auxA
<,
mauxElemr = 8auxElemr<;
H∗ validacion para unidad remota sin SubCentrales ∗L
If@Length@mAbonSubCentD 0, Return@mauxElemrDD;
H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L
H∗ dimensiona cada subcentral de acuerdo al numero de abonados y e0's∗L
mauxElemr = Table@
DimensionaSubCentral@
mAbonSubCent@@i, 1DD,
mAbonSubCent@@i, 2DD,
mAbonSubCent@@i, 3DD,
i
D
, 8i, 1, Length@mAbonSubCentD<
D;
Return@mauxElemrD;
D;
à Cantidad de Materiales {CenComElemCab, CenComElemRem}
Se calcula el dimensionamiento (numero de elementos) necesarios para cada Cabecera y Unidad Remota.
En el caso de las Unidades Remotas se calcula el dimensionamiento por cada SubCentral
Do@
NumPSTN = CenComInput@@i, 6DD;
NumRDSIBA = CenComInput@@i, 7DD;
NumRDSIPRI = CenComInput@@i, 8DD;
NumRem = CenComRemCab@@i, 2DD;
NumE0 = CenComE0s@@iDD;
If@ CenComInput@@i, 5DD "CABECERA",
H∗ DIMENSIONA CABECERAS∗L
CenComElemCab@@iDD = DimensionaCabecera@NumPSTN, NumRDSIBA, NumRDSIPRI, NumRem, NumE0D;
,
H∗DIMENSIONA UNIDADES REMOTAS∗L
H∗ calcula el numero de abonados y enlaces por cada subcentral ∗L
CenComAbonSubCentRem@@iDD = DimensionaAbonadosPorSubCentral@NumPSTN, NumRDSIBA, NumE0D;
H∗ calcula el numero de elementos por cada subcentral ∗L
CenComElemRem@@iDD = DimensionaRemota@CenComAbonSubCentRem@@iDD D;
D;
,
8i, 1, CenComN<D;
93
Modelo_Integral_ACK.nb
à Costos de Materiales {CenComMatCab,CenComMatRem}
H∗ Costos de Materiales para Cabeceras ∗L
CenComMatCab = Table@auxElem, 8i, 1, CenComN<D;
Do@
CenComMatCab@@iDD = CenComElemCab@@iDD ∗ auxPrec;
,
8i, 1, CenComN<
D;
H∗ Costos de Materiales para Unidades Remotas ∗L
CenComMatRem = Table@8auxElemr<, 8i, 1, CenComN<D;
Do@
H∗ unidad remota ∗L
AuxR = CenComElemRem@@iDD;
H∗ calcula costo para cada subcentral ∗L
AuxCostR = Table@HAuxR@@jDD ∗ auxPrecrL, 8j, 1, Length@AuxRD<D;
H∗ asigna costo calculado ∗L
CenComMatRem@@iDD = AuxCostR;
,
8i, 1, CenComN<
D;
94
Modelo_Integral_ACK.nb
à Costos de Instalación, Descuentos de Costo de instalación para Unidades Remotas y No Aplicación de Costo de instalacion
{CenComInstCab,CenComInstRem}
H∗ costo de instalacion para Cabeceras ∗L
CenComInstCab = CenComMatCab ∗ CenComPorcInst;
H∗ elimina aplicacion de factor de instalacion a elementos identificados ∗L
Do@
H∗ Equipos de Conservación ∗L
CenComInstCab@@i, 6DD = CenComInstCab@@i, 6DD ∗ 0;
,
8i, 1, CenComN<
D;
H∗ costo de instalacion y descuentos para Unidades Remotas ∗L
CenComInstRem = Table@8auxElemr<, 8i, 1, CenComN<D;
H∗ En las Unidades Remotas se considera un descuento por instalacion
este descuento depende del numero de abonados HPSTNL
se debe calcular este descuento para cada Subcentral de cada Unidad Remota
Do@
H∗ numero de abonados y enlaces de unidad remota ∗L
AuxAbonSCR = CenComAbonSubCentRem@@iDD;
AuxNumSubCent = Length@AuxAbonSCRD;
H∗ costo de materiales de unidad remota ∗L
AuxCostMatR = CenComMatRem@@iDD;
AuxCostIntR = Table@8auxElemr<, 8j, 1, AuxNumSubCent<D;
H∗ calcula descuento para cada subcentral ∗L
Do@
AuxNumPSTN = AuxAbonSCR@@j, 1DD;
If@AuxNumPSTN ≤ 768, AuxDcto = 0.928, AuxDcto = 0.876D;
AuxCostMatSubCent = AuxCostMatR@@jDD;
AuxCostIntR@@jDD = AuxCostMatSubCent ∗ HCenComPorcInst ∗ AuxDctoL;
, 8j, 1, AuxNumSubCent <
D;
H∗ asigna valor final∗L
CenComInstRem@@iDD = AuxCostIntR;
H∗ elimina aplicacion de factor de instalacion a elementos identificados ∗L
H∗ Equipos de Conservación ∗L
CenComInstRem@@i, 1, 3DD = CenComInstRem@@i, 1, 3DD ∗ 0;
,
8i, 1, CenComN<
D;
à Total {CenComTotCab, CenComTotRem}
H∗ Costo Total Cabeceras ∗L
CenComTotCab = CenComMatCab + CenComInstCab ;
H∗ Costo Total Remotas ∗L
CenComTotRem = CenComMatRem + CenComInstRem;
∗L
95
Modelo_Integral_ACK.nb
Distribucion de Costos
à Funciones de Distribución y Asignacion de Costo
ü Cabecera : Asignación Directa {AsignacionDirectaCabecera}
AsignacionDirectaCabecera@mNumPSTN_, mNumRDSIBA_, mNumRDSIPRI_, mPrec_D := ModuleA
8mauxDist, i, j, k, m, a, b, c, s<,
H∗ Crea Matriz Con Resultado Final de asignacion directa∗L
mauxDist = auxDist;
H∗
H∗
s=
a=
procesa para cada subsistema ∗L
subsistema de abonados ∗L
1;
mPrec@@sDD;
H∗TARJETA PARA 8 ABONADOS ACA−3∗L;
mauxDist@@s, 1, CenComCatCostoAccesoPSTNDD = aP1T;
H∗TARJETA KR PARA LSM DE ACA−3∗L;
mauxDist@@s, 2, CenComCatCostoAccesoPSTNDD = aP2T;
H∗LSM ACA−3 PARA 128 AB.POU.∗L;
mauxDist@@s, 3, CenComCatCostoAccesoPSTNDD = aP3T;
H∗LSM PARA 64 ACC 2 B+D INCL.60∗L;
mauxDist@@s, 4, CenComCatCostoAccesoBASDD = aP4T;
H∗NUEVO LSM−PRA CON ACC.30 B+D∗L;
mauxDist@@s, 5, CenComCatCostoAccesoPRIDD = aP5T;
H∗ALMACEN RPBC HDUPLICADOL∗L;
mauxDist@@s, 6, CenComCatCostoAccesoPSTNDD =
If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumPSTN ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@6DDD;
mauxDist@@s, 6, CenComCatCostoAccesoBASDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIBA ∗ 2 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@6DDD;
mauxDist@@s, 6, CenComCatCostoAccesoPRIDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIPRI ∗ 30 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@6DDD;
H∗ALMACEN SE−PRM H50L 8 AB.GEN.∗L;
mauxDist@@s, 7, CenComCatCostoAccesoPSTNDD = a@@7DD;
H∗TARJETA JTC PARA RDSI∗L;
mauxDist@@s, 8, CenComCatCostoTraficoDD = a@@8DD;
H∗ALMACEN STC.∗L;
mauxDist@@s, 9, CenComCatCostoTraficoDD = a@@9DD;
H∗PREINSTALACION ACA−3∗L;
mauxDist@@s, 10, CenComCatCostoAccesoPSTNDD = a@@10DD;
H∗PREINSTALACION 2 B+D∗L;
mauxDist@@s, 11, CenComCatCostoAccesoBASDD = a@@11DD;
H∗MTU PARA CENTRALES∗L;
mauxDist@@s, 12, CenComCatCostoAccesoPSTNDD = a@@12DD;
H∗ARMARIO H24 BML CON 6 ALTURAS.−LSM's∗L; mauxDist@@s, 13, CenComCatCostoAccesoPSTNDD =
If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumPSTN ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@13DDD;
mauxDist@@s, 13, CenComCatCostoAccesoBASDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIBA ∗ 2 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@13DDD;
mauxDist@@s, 13, CenComCatCostoAccesoPRIDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIPRI ∗ 30 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@13DDD;
H∗ARMARIO H24 BML CON 6 ALTURAS.−STC's∗L;
mauxDist@@s, 14, CenComCatCostoTraficoDD = a@@14DD;
H∗ subsistema selector de grupo ∗L
s = 2;
a = mPrec@@sDD;
H∗ALM.TSM HDUP.L ENTRE 0 Y 32K∗L;
mauxDist@@s, 1, CenComCatCostoTraficoDD
H∗ALMACEN SPM HDUP.L PARA 8K∗L;
mauxDist@@s, 2, CenComCatCostoTraficoDD
H∗ALMACEN RP HDUP.L CON 256 KW.∗L;
mauxDist@@s, 3, CenComCatCostoTraficoDD
H∗ALM.CLM ENTRE 0 Y 32K∗L;
mauxDist@@s, 4, CenComCatCostoTraficoDD
H∗ALMACEN RCM∗L;
mauxDist@@s, 5, CenComCatCostoTraficoDD
H∗ALMACEN ICM∗L;
mauxDist@@s, 6, CenComCatCostoTraficoDD
H∗ALMACEN PCD HDL2L∗L;
mauxDist@@s, 7, CenComCatCostoTraficoDD
= a@@1DD;
= a@@2DD;
= a@@3DD;
= a@@4DD;
= a@@5DD;
= a@@6DD;
= a@@7DD;
96
H∗ARMARIO 12 BM CON 6 ALTURAS∗L;
mauxDist@@s, 8, CenComCatCostoTraficoDD = a@@8DD;
H∗ subsistema de enlace y señalizacion ∗L
s = 3;
a = mPrec@@sDD;
H∗FUNCIÓN ETC3ê4 H32 CANALESL∗L;
mauxDist@@s, 1, CenComCatCostoTraficoDD = a@@1DD;
H∗ALMACÉN GEMM1 PARA 16 ETCC4∗L;
mauxDist@@s, 2, CenComCatCostoTraficoDD = a@@2DD;
H∗FUNCIÓN TRH HFH,PARA,ST7L∗L;
mauxDist@@s, 3, CenComCatCostoSenalizacionDD = a@@3DD;
H∗ALMACÉN TRH HFH,PARA,ST7L∗L;
mauxDist@@s, 4, CenComCatCostoSenalizacionDD = a@@4DD;
H∗ subsistema de control ∗L
s = 4;
a = mPrec@@sDD;
H∗FDD HFLOPPY DISKL CON 1.2 MB∗L;
mauxDist@@s, 1, CenComCatCostoTraficoDD
H∗HDD HHARD DISKL CON 1 GB∗L;
mauxDist@@s, 2, CenComCatCostoTraficoDD
H∗TARJETA RPU HINTERFAZ V−24L∗L;
mauxDist@@s, 3, CenComCatCostoTraficoDD
H∗TARJETA LIU HINTERFAZ V−24L∗L;
mauxDist@@s, 4, CenComCatCostoTraficoDD
H∗TARJETA ALAMP∗L;
mauxDist@@s, 5, CenComCatCostoTraficoDD
H∗TARJETA ALEX∗L;
mauxDist@@s, 6, CenComCatCostoTraficoDD
H∗TARJETA SCAN∗L;
mauxDist@@s, 7, CenComCatCostoTraficoDD
= a@@1DD;
= a@@2DD;
= a@@3DD;
= a@@4DD;
= a@@5DD;
= a@@6DD;
= a@@7DD;
H∗ALMACÉN ODM∗L;
mauxDist@@s, 8, CenComCatCostoTraficoDD = a@@8DD;
H∗APZ 212 20∗L;
mauxDist@@s, 9, CenComCatCostoTraficoDD = a@@9DD;
H∗AMPLIACIÓN DE 256 MW HDUP.L∗L;
mauxDist@@s, 10, CenComCatCostoTraficoDD = a@@10DD;
H∗IOG 11−B5 BÁSICO∗L;
mauxDist@@s, 11, CenComCatCostoTraficoDD = a@@11DD;
H∗ otros costos ∗L
s = 7;
a = mPrec@@sDD;
H∗SOFTWARE POR ACCESO BASICO∗L;
mauxDist@@s, 1, CenComCatCostoTraficoDD = a@@1DD;
H∗SOFTWARE POR ACCESO PRIMARIO∗L;
mauxDist@@s, 2, CenComCatCostoTraficoDD = a@@2DD;
H∗DDF∗L;
mauxDist@@s, 3, CenComCatCostoTraficoDD = a@@3DD;
Return@mauxDistD;
E;
ü Remota : Asignación Directa {AsignacionDirectaRemota}
Modelo_Integral_ACK.nb
97
Modelo_Integral_ACK.nb
H∗ Esta funcion se aplica para cada subcentral ∗L
AsignacionDirectaRemota@mPrec_D :=
Module@8mauxDistr, i, j, k, m, a, b, c, s<,
H∗Crea Matriz Con Resultado Final de asignacion directa∗L
mauxDistr = auxDistr;
H∗procesa para cada subsistema∗L
H∗subsistema de abonados∗L
s = 1;
a = mPrec@@sDD;
H∗TARJETA PARA 8 ABONADOS ACA−3.∗L;
mauxDistr@@s, 1, CenComCatCostoAccesoPSTNDD = a@@1DD;
H∗TARJETA PARA 4 ACCESOS 2B+D.∗L;
mauxDistr@@s, 2, CenComCatCostoAccesoBASDD = a@@2DD;
H∗TARJETA KR PARA LSM DE ACA−3∗L;
mauxDistr@@s, 3, CenComCatCostoAccesoPSTNDD = a@@3DD;
H∗LSM ACA−3 128. STR,KR,ETB,POU.∗L;
mauxDistr@@s, 4, CenComCatCostoAccesoPSTNDD = a@@4DD;
H∗LSM ACA−3 128. KR,ETB,POU.∗L;
mauxDistr@@s, 5, CenComCatCostoAccesoPSTNDD = a@@5DD;
H∗LSM ACA−3 128. ETB,POU.∗L;
mauxDistr@@s, 6, CenComCatCostoAccesoPSTNDD = a@@6DD;
H∗LSM ACA−3 128. POU.∗L;
mauxDistr@@s, 7, CenComCatCostoAccesoPSTNDD = a@@7DD;
H∗LSM ACA−3 PARA 128 AB.POU.∗L;
mauxDistr@@s, 8, CenComCatCostoAccesoPSTNDD = a@@8DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 8 ACCESOS∗L;
mauxDistr@@s, 9, CenComCatCostoAccesoBASDD = a@@9DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 16 ACCESOS∗L;
mauxDistr@@s, 10, CenComCatCostoAccesoBASDD = a@@10DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 32 ACCESOS∗L;
mauxDistr@@s, 11, CenComCatCostoAccesoBASDD = a@@11DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 48 ACCESOS∗L;
mauxDistr@@s, 12, CenComCatCostoAccesoBASDD = a@@12DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 60 ACCESOS∗L;
mauxDistr@@s, 13, CenComCatCostoAccesoBASDD = a@@13DD;
H∗TARJETA ETB PARA R.D.S.I.∗L;
mauxDistr@@s, 14, CenComCatCostoTraficoDD = a@@14DD;
H∗TARJETA STR PARA LSM DE ACA−3.∗L;
mauxDistr@@s, 15, CenComCatCostoTraficoDD = a@@15DD;
H∗TARJETA STR PARA R.D.S.I.∗L;
mauxDistr@@s, 16, CenComCatCostoTraficoDD = a@@16DD;
H∗PREINSTALACION ACA−3∗L;
mauxDistr@@s, 17, CenComCatCostoAccesoPSTNDD = a@@17DD;
H∗PREINSTALACION 2B+D∗L;
mauxDistr@@s, 18, CenComCatCostoAccesoBASDD = a@@18DD;
H∗otros costos∗L
s = 4;
a = mPrec@@sDD;
H∗SOFTWARE POR ACCESO BASICO.∗L;
mauxDistr@@s, 1, CenComCatCostoTraficoDD = a@@1DD;
H∗DDF∗L;
mauxDistr@@s, 2, CenComCatCostoTraficoDD = a@@2DD;
Return@mauxDistrD;D;
98
Modelo_Integral_ACK.nb
ü Cabecera : Asignación Indirecta {AsignacionIndirectaCabecera}
AsignacionIndirectaCabecera@mPrec_, mAuxDir_D := ModuleB
8mauxDist, i, j, k, m, a, b, c, s, auxS, auxP<,
H∗ Crea Matriz Con Resultado Final de asignacion indirecta∗L
mauxDist = auxDist;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ calcula total de inversion por tipo de costo ∗L
H∗ numero de subsistemas ∗L
m = Length@mAuxDirD;
H∗ inversion directa por tipo de costo ∗L
m
auxS = ‚ HPlus @@ mAuxDir @@bDDL ;
b=1
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ distribucion indirecta en funcion al total de tipo de costo ∗L
H∗ porcentajes de distribucion indirecta ∗L
auxS
auxP =
;
Plus @@ auxS
H∗ abonado ∗L
H∗s=1;
a=mPrecPsT;
Do@mauxDistPs,iT,aPiT∗auxP;,
8i,81,3,4,5<<D;∗L
H∗ material y equipo diverso ∗L
s = 5;
a = mPrec@@sDD;
m = Length@aD;
Do@
mauxDist@@s, iDD = a@@iDD ∗ auxP;
,
8i, 1, m<D;
H∗ equipamiento de conservacion ∗L
s = 6;
a = mPrec@@sDD;
m = Length@aD;
Do@
mauxDist@@s, iDD = a@@iDD ∗ auxP;
,
8i, 1, m<D;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ distribucion indirecta en funcion a tipo de costo Trafico y Señalizacion ∗L
H∗ porcentajes de distribucion indirecta ∗L
m = Length@CenComCatCostoD;
auxP = Table@0, 8m<D;
auxS@@CenComCatCostoTraficoDD
auxP@@CenComCatCostoTraficoDD =
;
auxS@@CenComCatCostoTraficoDD + auxS@@CenComCatCostoSenalizacionDD
auxP@@CenComCatCostoSenalizacionDD =
auxS@@CenComCatCostoSenalizacionDD
auxS@@CenComCatCostoTraficoDD + auxS@@CenComCatCostoSenalizacionDD
H∗ subsistema de enlace y señalizacion ∗L
s = 3;
a = mPrec@@sDD;
H∗ solo algunos elementos ∗L
Do@
mauxDist@@s, iDD = a@@iDD ∗ auxP;
,
8i, 5, 13<D;
Return@mauxDistD;
F;
;
99
Modelo_Integral_ACK.nb
Remota : Asignación Indirecta {AsignacionIndirectaRemota}
AsignacionIndirectaRemota@mPrec_, mAuxDir_D := ModuleB
8mauxDistr, i, j, k, m, a, b, c, s, auxS, auxP<,
H∗ Crea Matriz Con Resultado Final de asignacion indirecta∗L
mauxDistr = auxDistr;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ calcula total de inversion por tipo de costo ∗L
H∗ numero de subsistemas ∗L
m = Length@mAuxDirD;
H∗ inversion directa por tipo de costo ∗L
m
auxS = ‚ HPlus @@ mAuxDir @@bDDL ;
b=1
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ distribucion indirecta en funcion al total de tipo de costo ∗L
H∗ porcentajes de distribucion indirecta ∗L
If@HPlus @@ auxS L 0,
H∗ inversion = 0, los factores de distribucion no existen matematicamente ∗L
auxP = Table@0, 8i, Length@CenComCatCostoD<D;
,
H∗ inversion <> 0. si existen factores de distribucion matematicamente ∗L
auxP = auxS ê Plus @@ auxS ;
D;
H∗ Subsistema de Abonado ∗L
H∗ solo algunos elementos ∗L
s = 1;
a = mPrec@@sDD;
Do@
mauxDistr@@s, iDD = a@@iDD ∗ auxP;
,
8i, 19, 20<D;
H∗ material y equipo diverso ∗L
s = 2;
a = mPrec@@sDD;
m = Length@aD;
Do@
mauxDistr@@s, iDD = a@@iDD ∗ auxP;
,
8i, 1, m<D;
H∗ equipamiento de conservacion ∗L
s = 3;
a = mPrec@@sDD;
m = Length@aD;
Do@
mauxDistr@@s, iDD = a@@iDD ∗ auxP;
,
8i, 1, m<D;
Return@mauxDistrD;
F;
100
Modelo_Integral_ACK.nb
à Asignación Directa e Indirecta {CenComDistDirCab, CenComDistIndirCab, CenComDistCab, CenComDistDirRem,
CenComDistIndirRem, CenComDistRem}
ü Creacion de matrices de variables resultado
H∗ para Cabeceras ∗L
CenComDistDirCab = Table@auxDist, 8i, 1, CenComN<D;
CenComDistIndirCab = Table@auxDist, 8i, 1, CenComN<D;
CenComDistCab = Table@auxDist, 8i, 1, CenComN<D;
H∗ para Unidades Remotas ∗L
CenComDistDirRem = Table@8auxDistr<, 8i, 1, CenComN<D;
CenComDistIndirRem = Table@8auxDistr<, 8i, 1, CenComN<D;
CenComDistRem = Table@8auxDistr<, 8i, 1, CenComN<D;
ü Calculo y compilación de Asignación Directa e Indirecta
Do@
NumPSTN = CenComInputPi, 6T;
NumRDSIBA = CenComInputPi, 7T;
NumRDSIPRI = CenComInputPi, 8T;
xAuxTot = CenComTotCabPiT ;
xAuxTotr = CenComTotRemPiT ;
If@ CenComInputPi, 5T "CABECERA",
CenComDistDirCabPiT = AsignacionDirectaCabecera@NumPSTN, NumRDSIBA, NumRDSIPRI, xAuxTotD;
xAuxDir = CenComDistDirCabPiT;
CenComDistIndirCabPiT = AsignacionIndirectaCabecera@xAuxTot, xAuxDirD;,
m = Length@xAuxTotrD;
auxR = Table@AsignacionDirectaRemota@xAuxTotrPjTD, 8j, 1, m<D;
CenComDistDirRemPiT = auxR;
auxR = Table@AsignacionIndirectaRemota@xAuxTotrPjT, auxRPjTD, 8j, 1, m<D;
CenComDistIndirRemPiT = auxR;D;
, 8i, 1, CenComN<D;
H∗ distribucion total ∗L
CenComDistCab = CenComDistDirCab + CenComDistIndirCab;
CenComDistRem = CenComDistDirRem + CenComDistIndirRem;
Resultado Final
à Creacion de Vectores de Tipo de Costo "Trafico" {CenComTraficoCab, CenComTraficoRem}
CenComTraficoCab = Table@0, 8i, 1, CenComN<D;
CenComTraficoRem = Table@0, 8i, 1, CenComN<D;
à Funciones Auxiliares
ü Funcion que extrae la inversion en una categoria de costo especifica {fCatCostCent}
Length @mCentral D
fCatCostCent@mCentral_, mCatCost_D :=
‚
ms=1
Length @mCentral PmsTD
‚
me=1
mCentralPms, me, mCatCostT ;
101
Modelo_Integral_ACK.nb
à Extraccion de la Inversion en Trafico {CenComTraficoCab, CenComTraficoRem}
CenComTraficoCab = Table@
fCatCostCent@CenComDistCabPxT, CenComCatCostoTraficoD
,
8x, 1, Length@CenComDistCabD<
D;
CenComTraficoRem = Table@
Plus @@ H
Table@
fCatCostCent@CenComDistRemPx, yT, CenComCatCostoTraficoD
,
8y, 1, Length@ CenComDistRemPxT D<
D
L
,
8x, 1, Length@CenComDistRemD<
D;
à Total {CenComTrafico}
CenComTrafico = CenComTraficoCab + CenComTraficoRem;
ü Guarda el Archivo en disco
ArchSalConmInvTraf = "Switchinv.txt";
Export@ArchSalConmInvTraf, CenComTrafico, "CSV"D;
ü Impresion de la inversion en Trafico Total (Cabeceras y Unidades Remotas)
Module@
8aT, aTh, aR<,
aT = Transpose@CenComInputD êê TableForm;
aTh = 8None, 8"CentralId", "Departamento", "Provincia", "Central", "Inversion Conmutacion"<<;
aR = Transpose@Table@8aT@@1, 1DD, aT@@1, 2DD, aT@@1, 3DD, aT@@1, 4DD, CenComTrafico<DD;
H∗ ∗L
Print@TableForm@aR, TableHeadings → aThDD;
D;
102
Modelo_Integral_ACK.nb
INVERSIÓN EN CONMUTACIÓN A NIVEL DE CENTRALES LOCALES
PrintBStyleB
"INVERSIONES EN CONMUTACIÓN A NIVEL DE CENTRALES LOCALES",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"CVoz"D;
trunkx
30
F;
fiberfill
H∗ Se calcula los circuitos HE1sL de voz por cada central ∗L
Print@"CosteAñadidoPorDistanciax"D;
CosteAñadidoPorDistanciax = zerox;
Do@If@deptxPixT ≠ LIMA,
CosteAñadidoPorDistanciaxPixT = AñadidoCxPorKm ∗ distance@ix, idinvertxPCentralRefTD;D;, 8ix, nx<D;
H∗ Se Calcula el Coste Añadido por distancia para cada central fuera de Lima ∗L
Print@TableForm@Table@8ix, yPix, 13T, CVozPixT, CosteAñadidoPorDistanciaxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "CVoz", "CosteAñadidoPorDistanciax"<<DD;
CVoz = CeilingB
OpenRead@"Switchinv.txt"D;
switchinvx = zerox;
switchinvLocx = zerox;
switchinvLDNx = zerox;
switchinvLDIx = zerox;
switchinvx = ReadList@"Switchinv.txt", NumberD;
switchinvx = switchinvx + CosteAñadidoPorDistanciax;
DoBIfBix ≠ idinvertxP248T,
SwITot = If@switchendLocxPixT ≥ 0, switchendLocxPixT, 0D +
If@switchendLDNxPixT ≥ 0, switchendLDNxPixT, 0D + If@switchendLDIxPixT ≥ 0, switchendLDIxPixT, 0D;
switchinvxPixT
;
IfBSwITot ≠ 0, switchinvLocxPixT = If@switchendLocxPixT ≥ 0, switchendLocxPixT, 0D ∗
SwITot
switchinvxPixT
;
switchinvLDNxPixT = If@switchendLDNxPixT ≥ 0, switchendLDNxPixT, 0D ∗
SwITot
switchinvxPixT
;F;,
switchinvLDIxPixT = If@switchendLDIxPixT ≥ 0, switchendLDIxPixT, 0D ∗
SwITot
switchinvLocxPixT = switchinvxPixT ∗ switchendLocxPixT;
switchinvLDNxPixT = switchinvxPixT ∗ switchendLDNxPixT;
switchinvLDIxPixT = switchinvxPixT ∗ switchendLDIxPixT;F;, 8ix, nx<F;
Print@TableForm@Table@8ix, yPix, 13T, switchinvxPixT, switchinvLocxPixT, switchinvLDNxPixT, switchinvLDIxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "switchinvx", "switchinvLocx", "switchinvLDNx", "switchinvLDIx"<<DD;
H∗ Se lee el archivo que contiene las inversiones ya en costo de conmutación ∗L
switchinvd = zerod;
switchinvLocd = zerod;
switchinvLDNd = zerod;
switchinvLDId = zerod;
Do@switchinvdPdeptxPixTT = switchinvdPdeptxPixTT + switchinvxPixT;
switchinvLocdPdeptxPixTT = switchinvLocdPdeptxPixTT + switchinvLocxPixT;
switchinvLDNdPdeptxPixTT = switchinvLDNdPdeptxPixTT + switchinvLDNxPixT;
switchinvLDIdPdeptxPixTT = switchinvLDIdPdeptxPixTT + switchinvLDIxPixT;, 8ix, nx<D;
Print@TableForm@
Table@8id, deptTXTdPidT, switchinvdPidT, switchinvLocdPidT, switchinvLDNdPidT, switchinvLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Departamento", "switchinvd", "switchinvLocd", "switchinvLDNd", "switchinvLDId"<<DD;
H∗ Se acumula la inversión a nivel de deparamento ∗L
hostsatinvx = host1x ∗ sat1x ∗ switchinvx;
hostsatinvLocx = host1x ∗ sat1x ∗ switchinvLocx;
hostsatinvLDNx = host1x ∗ sat1x ∗ switchinvLDNx;
hostsatinvLDIx = host1x ∗ sat1x ∗ switchinvLDIx;
Print@TableForm@
Table@8ix, yPix, 13T, hostsatinvxPixT, hostsatinvLocxPixT, hostsatinvLDNxPixT, hostsatinvLDIxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "hostsatinvx", "hostsatinvLocx", "hostsatinvLDNx", "hostsatinvLDIx"<<DD
H∗ Cabeceras Satelitales ∗L
hostsatinvd = zerod;
hostsatinvLocd = zerod;
hostsatinvLDNd = zerod;
hostsatinvLDId = zerod;
Do@hostsatinvdPdeptxPixTT = hostsatinvdPdeptxPixTT + hostsatinvxPixT;
hostsatinvLocdPdeptxPixTT = hostsatinvLocdPdeptxPixTT + hostsatinvLocxPixT;
hostsatinvLDNdPdeptxPixTT = hostsatinvLDNdPdeptxPixTT + hostsatinvLDNxPixT;
hostsatinvLDIdPdeptxPixTT = hostsatinvLDIdPdeptxPixTT + hostsatinvLDIxPixT;, 8ix, nx<D;
Print@
TableForm@Table@8id, deptTXTdPidT, hostsatinvdPidT, hostsatinvLocdPidT, hostsatinvLDNdPidT, hostsatinvLDIdPidT<,
D
103
Modelo_Integral_ACK.nb
TableForm@Table@8id, deptTXTdPidT, hostsatinvdPidT, hostsatinvLocdPidT, hostsatinvLDNdPidT, hostsatinvLDIdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Departamento", "hostsatinvd", "hostsatinvLocd", "hostsatinvLDNd", "hostsatinvLDId"<<DD;
H∗ Se acumulan las inversiones de cabeceras satelitales a nivel de departamento ∗L
hostsatinv = Plus @@ hostsatinvd;
hostsatinvLoc = Plus @@ hostsatinvLocd;
hostsatinvLDN = Plus @@ hostsatinvLDNd;
hostsatinvLDI = Plus @@ hostsatinvLDId;
Print@TableForm@8hostsatinv, hostsatinvLoc, hostsatinvLDN, hostsatinvLDI<,
TableDirections → 8Row, Column<, TableSpacing → 80, 1<,
TableHeadings → 88"hostsatinv", "hostsatinvLoc", "hostsatinvLDN", "hostsatinvLDI"<, None<DD;
H∗ Se acumulan las inversiones de cabeceras satelitales a nivel nacional ∗L
tandeminvx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvx;
tandeminvLocx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvLocx;
tandeminvLDNx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvLDNx;
tandeminvLDIx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvLDIx;
Print@TableForm@Table@8ix, yPix, 13T, tandeminvxPixT, tandeminvLocxPixT, tandeminvLDNxPixT, tandeminvLDIxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "Nombre Central", "tandeminvx", "tandeminvLocx", "tandeminvLDNx", "tandeminvLDIx"<<DD
H∗ Inversión en Tándems ∗L
tandeminvd = zerod;
tandeminvLocd = zerod;
tandeminvLDNd = zerod;
tandeminvLDId = zerod;
Do@tandeminvdPdeptxPixTT = tandeminvdPdeptxPixTT + tandeminvxPixT;
tandeminvLocdPdeptxPixTT = tandeminvLocdPdeptxPixTT + tandeminvLocxPixT;
tandeminvLDNdPdeptxPixTT = tandeminvLDNdPdeptxPixTT + tandeminvLDNxPixT;
tandeminvLDIdPdeptxPixTT = tandeminvLDIdPdeptxPixTT + tandeminvLDIxPixT;, 8ix, nx<D;
Print@TableForm@
Table@8id, deptTXTdPidT, tandeminvdPidT, tandeminvLocdPidT, tandeminvLDNdPidT, tandeminvLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Departamento", "tandeminvd", "tandeminvLocd", "tandeminvLDNd", "tandeminvLDId"<<DD;
H∗tándem de Lima es doble∗L
hostnonsatinvx = host1x ∗ switchinvx − hostsatinvx −
tandeminvx
;
2
hostnonsatinvLocx = host1x ∗ switchinvLocx − hostsatinvLocx −
hostnonsatinvLDNx = host1x ∗ switchinvLDNx − hostsatinvLDNx −
hostnonsatinvLDIx = host1x ∗ switchinvLDIx −hostsatinvLDIx −
tandeminvLocx
;
2
tandeminvLDNx
;
2
tandeminvLDIx
;
2
Print@TableForm@
Table@8ix, yPix, 13T, hostnonsatinvxPixT, hostnonsatinvLocxPixT, hostnonsatinvLDNxPixT, hostnonsatinvLDIxPixT<,
8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None,
8"ix", "Nombre Central", "hostnonsatinvx", "hostnonsatinvLocx", "hostnonsatinvLDNx", "hostnonsatinvLDIx"<<DD
H∗ cabeceras no satelitaleso ∗L
hostnonsatinvd = zerod;
hostnonsatinvLocd = zerod;
hostnonsatinvLDNd = zerod;
hostnonsatinvLDId = zerod;
Do@hostnonsatinvdPdeptxPixTT = hostnonsatinvdPdeptxPixTT + hostnonsatinvxPixT;
hostnonsatinvLocdPdeptxPixTT = hostnonsatinvLocdPdeptxPixTT +hostnonsatinvLocxPixT;
hostnonsatinvLDNdPdeptxPixTT = hostnonsatinvLDNdPdeptxPixTT + hostnonsatinvLDNxPixT;
hostnonsatinvLDIdPdeptxPixTT = hostnonsatinvLDIdPdeptxPixTT + hostnonsatinvLDIxPixT;, 8ix, nx<D;
Print@TableForm@Table@8id, deptTXTdPidT, hostnonsatinvdPidT, hostnonsatinvLocdPidT, hostnonsatinvLDNdPidT,
hostnonsatinvLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None,
8"id", "Departamento", "hostnonsatinvd", "hostnonsatinvLocd", "hostnonsatinvLDNd", "hostnonsatinvLDId"<<DD;
H∗ Se acumulan las inversiones de cabeceras no satelitales a nivel de departamento ∗L
hostnonsatinv = Plus @@ hostnonsatinvd;
hostnonsatinvLoc = Plus @@ hostnonsatinvLocd;
hostnonsatinvLDN = Plus @@ hostnonsatinvLDNd;
hostnonsatinvLDI = Plus @@ hostnonsatinvLDId;
Print@TableForm@8hostnonsatinv, hostnonsatinvLoc, hostnonsatinvLDN, hostnonsatinvLDI<,
TableDirections → 8Row, Column<, TableSpacing → 80, 1<,
TableHeadings → 88"hostnonsatinv", "hostnonsatinvLoc", "hostnonsatinvLDN", "hostnonsatinvLDI"<, None<DD;
H∗ Se acumulan las inversiones de cabeceras no satelitales a nivel nacional ∗L
Print@"tandeminvitxd"D
tandeminvitxd = zerod;
DoBtandeminvitxdPdeptxPixTT =
tandeminvitxdPdeptxPixTT + tandem1xPixT ∗ switchinvxPixT ∗
tandeminvitxdPLIMAT = 2 tandeminvitxdPLIMAT;
CITXPtandemxPixTT
CVozPixT + CITXPtandemxPixTT
;, 8ix, nx<F;
104
Modelo_Integral_ACK.nb
tandeminvitxdPLIMAT 2 tandeminvitxdPLIMAT;
Print@TableForm@Table@8id, deptTXTdPidT, tandeminvitxdPidT<, 8id, nd<D, , TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "tandeminvitxd"<<DD
H∗ Se halla la participación de los Circuitos de Interconexión a nivel departamental ∗L
Print@"tandeminvitx"D;
tandeminvitx = Plus @@ tandeminvitxd;
Print@tandeminvitxD;
H∗ Se halla la participación Nacional de los Circuios de Interconexión ∗L
remoteinvd = switchinvd − hostsatinvd − hostnonsatinvd −
tandeminvd
;
2
remoteinvLocd = switchinvLocd − hostsatinvLocd − hostnonsatinvLocd −
remoteinvLDNd = switchinvLDNd − hostsatinvLDNd − hostnonsatinvLDNd −
remoteinvLDId = switchinvLDId − hostsatinvLDId − hostnonsatinvLDId −
tandeminvLocd
;
2
tandeminvLDNd
;
2
tandeminvLDId
;
2
Print@TableForm@
Table@8id, deptTXTdPidT, remoteinvdPidT, remoteinvLocdPidT, remoteinvLDNdPidT, remoteinvLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Departamento", "remoteinvd", "remoteinvLocd", "remoteinvLDNd", "remoteinvLDId"<<DD;
H∗ Participación en Remota por Departamento ∗L
remoteinv = Plus @@ remoteinvd;
remoteinvLoc = Plus @@ remoteinvLocd;
remoteinvLDN = Plus @@ remoteinvLDNd;
remoteinvLDI = Plus @@ remoteinvLDId;
Print@TableForm@8remoteinv, remoteinvLoc, remoteinvLDN, remoteinvLDI<, TableDirections → 8Row, Column<,
TableSpacing → 80, 1<, TableHeadings → 88"remoteinv", "remoteinvLoc", "remoteinvLDN", "remoteinvLDI"<, None<DD;
H∗ Participación de Remotas a Nivel Nacional ∗L
Print@"signalinvd"D;
signalinvd = signalfrac ∗ switchinvd;
Print@TableForm@Table@8id, deptTXTdPidT, signalinvdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "signalinvd"<<DD;
H∗ Participación de Señalización a Nivel Departamental∗L
Print@"signalinv"D;
signalinv = Plus @@ signalinvd;
Print@signalinvD;
H∗ Participación de Señalización a Nivel Nacional∗L
PrintBStyleB
"TERMINACIONES DE FIBRA", 16, White, Bold, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
Print@"costeTerminacionesFibrax"D; Do@If@transtechxPixT Urbana Í transtechxPixT Enterrado,
costeTerminacionesFibraxPixT = costeTerminacionesFibraxPixT + 2 TxFibraCosteTerminacion, 0D, 8ix, nx<D;
Print@TableForm@Table@8ix, yPix, 13T, costeTerminacionesFibraxPixT<, 8ix, nx<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "Nombre Central", "costeTerminacionesFibrax"<<DD;
H∗ En cada enlace de Fibra: En cada extremo de una arista hay dos terminaciones de fibra,
sin embargo, si hay en un anillo es necesario también considerar las
terminaciones de fibra de la arista entre el último nodo y la cabecera del anillo,
variable que se estimó al inicio del modelo en la primera versión de la variable costeTerminacionesFibrax∗L
105
Modelo_Integral_ACK.nb
DESAGREGACION DE ANILLOS POR ARISTA
PrintBStyleB
"DESAGREGACIÓN DEL TAMAÑO DE LOS ANILLOS: POR ARISTA",
White, Bold, 16, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
PrintAStyleA
"A NIVEL PROVINCIAL", White, Bold, 16, Underlined, Background → BlueEE;
Print@"disthostx modificado"D;
DoBIfBesAnillopxPixT 1,
IfBe1AnillopPprovxPixTT ≠ 0, disthostxPixT = TamAnillopPprovxPixTT ∗
e1remotehostTOTALxPixT
e1AnilloTOTALpPprovxPixTT
FF;, 8ix, nx<F;
Print@TableForm@Table@8ix, yPix, 13T, disthostxPixT<, 8ix, nx<D, TableSpacings → 81, 0<,
TableHeadings → 8None, 8"ix", "Nombre Central", "disthostx"<<DD;
H∗ Para todas las centrales remotas que forman parte de un anillo provincial,
se modifica la distancia a ser considerada como relevante para luego calcular los
costos de cada arista. Para ello, asigna a cada tramo una fracción del total del tamaño
del anillo. Dicho porcentaje o fracción es equivalemte al total de E1s identificados en
el nivel RH He1remotehostTOTALxL para cada central entre el total de E1s del anillo ∗L
PrintAStyleA
"A NIVEL DEPARTAMENTAL", White, Bold, 16, Underlined, Background → BlueEE;
Print@"disttandemx modificado"D; DoBIfBesAnillodxPAnilloCabecerasPixTT ≠ NA,
IfBe1AnillodPdeptxPAnilloCabecerasPixTTT ≠ 0, disttandemxPAnilloCabecerasPixTT =
TamAnillodPdeptxPAnilloCabecerasPixTTT ∗
e1hosttandemTOTALxPAnilloCabecerasPixTT
e1AnilloTOTALdPdeptxPAnilloCabecerasPixTTT
Print@TableForm@Table@8ix, yPix, 13T, disttandemxPixT<, 8ix, nx<D, TableSpacings → 81, 0<,
TableHeadings → 8None, 8"ix", "Nombre Central", "disttandemx"<<DD;
H∗ Para todas las centrales cabeceras que forman parte de un anillo departamental,
se modifica la distancia a ser considerada como relevante para luego calcular los
costos de cada arista. Para ello, asigna a cada tramo una fracción del total del tamaño
del anillo. Dicho porcentaje o fracción es equivalemte al total de E1s identificados en
el nivel HT He1hosttandemTOTALxL para cada central entre el total de E1s del anillo ∗L
;F;F;, 8ix, np<F
106
Modelo_Integral_ACK.nb
ESTIMACION DE INVERSIONES A NIVEL SATELITAL
PrintBStyleB"
ESTIMACIÓN DE INVERSIONES A NIVEL SATELITAL",
16, White, Bold, Background → RGBColorB0,
1
, 0FFF;
2
PrintAStyleA"
A NIVEL DE EQUIPOS EN LOS LUGARES REMOTOS",
16, White, Bold, Background → BlueEE;
satinvx = TableB
IfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗
e1hosttandemxPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvLocx = satinvx ∗ satLocx;
satinvLDNx = satinvx ∗ satLDNx;
satinvLDIx = satinvx ∗ satLDIx;
satinvalqxA1 = TableB
IfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗
e1hosttandemalqxA1PixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxB1 = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxB1PixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxC1 = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxC1PixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxLL = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxLLPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxLP = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxLPPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxAS = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxASPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxBS = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxBSPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxCS = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxCSPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxABC2 = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxABC2PixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvalqxABCnop = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemalqxABCnopPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvitxx = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemitxxPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvadslx = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0,
Hsatantena + sateqtxL ∗
e1hosttandemadslxPixT
e1hosttandemTOTALxPixT
F, 8ix, nx<F;
satinvTOTALx = Table@If@sat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxLD, 8ix, nx<D;
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, satinvxPixT, satinvLocxPixT, satinvLDNxPixT, satinvLDIxPixT,
satinvalqxA1PixT, satinvalqxB1PixT, satinvalqxC1PixT, satinvalqxLLPixT, satinvalqxLPPixT,
satinvalqxASPixT, satinvalqxBSPixT, satinvalqxCSPixT, satinvalqxABC2PixT, satinvalqxABCnopPixT,
satinvitxxPixT, satinvadslxPixT, satinvTOTALxPixT<, 8ix, nx<D, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "satinvx", "satinvLocx", "satinvLDNx", "satinvLDIx", "satinvalqxA1",
"satinvalqxB1", "satinvalqxC1", "satinvalqxLL", "satinvalqxLP", "satinvalqxAS", "satinvalqxBS",
"satinvalqxCS", "satinvalqxABC2", "satinvalqxABCnop", "satinvitxx", "satinvadslx", "satinvTOTALx"<<DD;
H∗ Para todas las centrales que utilizan Tx satelital, se estima la inversión en los equipos
de Tx y la antena satelital. Además, para imputar el costo de cada servicio,
se multiplica la inversión total por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s a nivel HT de
cada servicio entre el total de E1s a nivel HT que incluye todos los servicios ∗L
satinvd = zerod;
satinvLocd = zerod;
satinvLDNd = zerod;
satinvLDId = zerod;
satinvalqdA1 = zerod;
107
Modelo_Integral_ACK.nb
satinvalqdA1 zerod;
satinvalqdB1 = zerod;
satinvalqdC1 = zerod;
satinvalqdLL = zerod;
satinvalqdLP = zerod;
satinvalqdAS = zerod;
satinvalqdBS = zerod;
satinvalqdCS = zerod;
satinvalqdABC2 = zerod;
satinvalqdABCnop = zerod;
satinvadsld = zerod;
satinvitxd = zerod;
satinvTOTALd = zerod;
Do@satinvdPdeptxPixTT = satinvdPdeptxPixTT + satinvxPixT;
satinvLocdPdeptxPixTT = satinvLocdPdeptxPixTT + satinvLocxPixT;
satinvLDNdPdeptxPixTT = satinvLDNdPdeptxPixTT + satinvLDNxPixT;
satinvLDIdPdeptxPixTT = satinvLDIdPdeptxPixTT + satinvLDIxPixT;
satinvalqdA1PdeptxPixTT = satinvalqdA1PdeptxPixTT + satinvalqxA1PixT;
satinvalqdB1PdeptxPixTT = satinvalqdB1PdeptxPixTT + satinvalqxB1PixT;
satinvalqdC1PdeptxPixTT = satinvalqdC1PdeptxPixTT + satinvalqxC1PixT;
satinvalqdLLPdeptxPixTT = satinvalqdLLPdeptxPixTT + satinvalqxLLPixT;
satinvalqdLPPdeptxPixTT = satinvalqdLPPdeptxPixTT + satinvalqxLPPixT;
satinvalqdASPdeptxPixTT = satinvalqdASPdeptxPixTT + satinvalqxASPixT;
satinvalqdBSPdeptxPixTT = satinvalqdBSPdeptxPixTT + satinvalqxBSPixT;
satinvalqdCSPdeptxPixTT = satinvalqdCSPdeptxPixTT + satinvalqxCSPixT;
satinvalqdABC2PdeptxPixTT = satinvalqdABC2PdeptxPixTT + satinvalqxABC2PixT;
satinvalqdABCnopPdeptxPixTT = satinvalqdABCnopPdeptxPixTT + satinvalqxABCnopPixT;
satinvadsldPdeptxPixTT = satinvadsldPdeptxPixTT + satinvadslxPixT;
satinvitxdPdeptxPixTT = satinvitxdPdeptxPixTT + satinvitxxPixT;
satinvTOTALdPdeptxPixTT = satinvTOTALdPdeptxPixTT + satinvTOTALxPixT;
, 8ix, nx<D;
Print@
TableForm@Table@8id, deptTXTdPidT, satinvdPidT, satinvLocdPidT, satinvLDNdPidT, satinvLDIdPidT, satinvalqdA1PidT,
satinvalqdB1PidT, satinvalqdC1PidT, satinvalqdLLPidT, satinvalqdLPPidT, satinvalqdASPidT, satinvalqdBSPidT,
satinvalqdCSPidT, satinvalqdABC2PidT, satinvalqdABCnopPidT, satinvadsldPidT,
satinvitxdPidT, satinvTOTALdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "satinvd", "satinvLocd", "satinvLDNd", "satinvLDId", "satinvalqdA1",
"satinvalqdB1", "satinvalqdC1", "satinvalqdLL", "satinvalqdLP", "satinvalqdAS", "satinvalqdBS",
"satinvalqdCS", "satinvalqdABC2", "satinvalqdABCnop", "satinvadsld", "satinvitxd", " satinvTOTALd "<<DD;
H∗ Acumula a nivel departamental las variables satinvx, satinvLocx, satinvLDNx, satinvLDIx,
satinvalqxA1, satinvalqxB1, satinvalqxC1, satinvalqxLL, satinvalqxLP, satinvalqxAS,
satinvalqxBS, satinvalqxCS, satinvalqxA1nop, satinvalqxB1nop, satinvadslx,
satinvitxx: total de inversión en equipos de Tx y antenas satelitales de cada servicio ∗L
satinv = Plus @@ satinvd;
satinvLoc = Plus @@ satinvLocd;
satinvLDN = Plus @@ satinvLDNd;
satinvLDI = Plus @@ satinvLDId;
satinvalqA1 = Plus @@ satinvalqdA1;
satinvalqB1 = Plus @@ satinvalqdB1;
satinvalqC1 = Plus @@ satinvalqdC1;
satinvalqLL = Plus @@ satinvalqdLL;
satinvalqLP = Plus @@ satinvalqdLP;
satinvalqAS = Plus @@ satinvalqdAS;
satinvalqBS = Plus @@ satinvalqdBS;
satinvalqCS = Plus @@ satinvalqdCS;
satinvalqABC2 = Plus @@ satinvalqdABC2;
satinvalqABCnop = Plus @@ satinvalqdABCnop;
satinvadsl = Plus @@ satinvadsld;
satinvitx = Plus @@ satinvitxd;
satinvTOTAL = Plus @@ satinvTOTALx;
Print@TableForm@8satinv, satinvLoc, satinvLDN, satinvLDI, satinvalqA1, satinvalqB1,
satinvalqC1, satinvalqLL, satinvalqLP, satinvalqAS, satinvalqBS, satinvalqCS, satinvalqABC2,
satinvalqABCnop, satinvadsl, satinvitx, satinvTOTAL<, TableDirections → 8Row, Column<,
TableHeadings → 88"satinv", "satinvLoc", "satinvLDN", "satinvLDI", "satinvalqA1", "satinvalqB1",
"satinvalqC1", "satinvalqLL", "satinvalqLP", "satinvalqAS", "satinvalqBS", "satinvalqCS",
"satinvalqABC2", "satinvalqABCnop", "satinvadsl", "satinvitx", "satinvTOTAL"<, Automatic<DD;
H∗Sumatoria a nivel nacional del total de inversión en equipos de Tx y antenas satelitales de cada servicio ∗L
PrintBStyleB"
ESTIMACIÓN DE INVERSIONES A NIVEL SATELITAL",
16, White, Bold, Background → RGBColorB0,
1
, 0FFF;
2
PrintAStyleA"
A NIVEL DE EQUIPOS EN LIMA ", 16, White, Bold, Background → BlueEE;
Print@"numerosat"D;
numerosat = 0;
Do@If@sat1xPixT 1, numerosat = numerosat + 1D, 8ix, nx<D;
Print@numerosatD;
H∗ Identifica a nivel nacional el número total de centrales que emplean Tx satelital ∗L
108
H Identifica a nivel nacional el número total de centrales que emplean Tx satelital
Print@"satlimainvx"D;
satlimainvx = zerox;
L
Modelo_Integral_ACK.nb
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvxPixT = 0,
satlimainvxPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemxPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvxD;
H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Voz,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de
Voz entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvLocx"D;
satlimainvLocx = satlimainvx ∗ satLocx;
Print@satlimainvLocxD;
H∗ Parte de Tráfico Local de Voz ∗L
Print@"satlimainvLDNx"D;
satlimainvLDNx = satlimainvx ∗ satLDNx;
Print@satlimainvLDNxD;
H∗ Parte de Tráfico LDN de Voz ∗L
Print@"satlimainvLDIx"D;
satlimainvLDIx = satlimainvx ∗ satLDIx;
Print@satlimainvLDIxD;
H∗ Parte de Tráfico LDI de Voz ∗L
Print@"satlimainvalqxA1"D;
satlimainvalqxA1 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxA1PixT = 0,
satlimainvalqxA1PixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxA1PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxA1D;
H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango A,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos
Rango A entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxB1"D;
satlimainvalqxB1 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxB1PixT = 0,
satlimainvalqxB1PixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxB1PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxB1D;
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango B,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos
Rango B entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxC1"D;
satlimainvalqxC1 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxC1PixT = 0,
satlimainvalqxC1PixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxC1PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxC1D;
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango C,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos
Rango B entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxLL"D;
109
Modelo_Integral_ACK.nb
Print@"satlimainvalqxLL"D;
satlimainvalqxLL = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxLLPixT = 0,
satlimainvalqxLLPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxLLPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxLLD;
H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Local Lima,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos
Local Lima entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxLP"D;
satlimainvalqxLP = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxLPPixT = 0,
satlimainvalqxLPPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxLPPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxLPD;
H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Circuitos Local Provincia,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Local
Provincia entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxAS"D;
satlimainvalqxAS = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxASPixT = 0,
satlimainvalqxASPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxASPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxASD;
H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Circuitos Rango A Satelite,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango
A Satelital entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxBS"D;
satlimainvalqxBS = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxBSPixT = 0,
satlimainvalqxBSPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxBSPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxBSD;
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Circuitos Rango B Satelital,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango
B Satelital entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxCS"D;
satlimainvalqxCS = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxCSPixT = 0,
satlimainvalqxCSPixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxCSPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxCSD
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Circuitos Rango C Satelital,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango
L
110
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango
C Satelital entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Modelo_Integral_ACK.nb
Print@"satlimainvalqxABC2"D;
satlimainvalqxABC2 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxABC2PixT = 0,
satlimainvalqxABC2PixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxABC2PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxABC2D;
H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Otros Circuitos Rango A, B y C,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Otros Circuitos Rango A,
B y C entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvalqxABCnop"D;
satlimainvalqxABCnop = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxABCnopPixT = 0,
satlimainvalqxABCnopPixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxABCnopPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvalqxABCnopD;
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Circuitos de No Operadores,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos de No
Operadores entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvadslx"D;
satlimainvadslx = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvadslxPixT = 0,
satlimainvadslxPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemadslxPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvadslxD;
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además, para imputar el costo a ADSL,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de
ADSL entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvitxx"D;
satlimainvitxx = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvitxx@@ixDD = 0,
satlimainvitxx@@ixDD =
satantena
+ sateqtx ∗
numerosat
e1hosttandemitxxPixT
e1hosttandemTOTALxPixT
∗ sat1x@@ixDDF, 8ix, nx<F
Print@satlimainvitxxD
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. Además,
para imputar el costo a Circuitos de Interconexión,
se multiplica la inversión adicional estimada por la fracción de asignación,
la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos de
Interconexión entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L
Print@"satlimainvTOTALx"D;
satlimainvTOTALx = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0,
satlimainvTOTALxPixT = 0, satlimainvTOTALxPixT =
satantena
numerosat
+ sateqtx ∗ sat1xPixTF, 8ix, nx<F;
Print@satlimainvitxxD;
H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima,
en Lima se requiere también un equipo de Tx y una antena satelital. Entonces,
Si existe por lo menos una central que emplee Tx satelital se hace lo
siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima,
y además una fracción proporcional del costo de la antena. ∗L
111
y además una fracción proporcional del costo de la antena.
L
Print@"satlimainvd"D;
satlimainvd = zerod;
Do@satlimainvdPdeptxPixTT = satlimainvdPdeptxPixTT + satlimainvxPixT, 8ix, nx<D;
Print@satlimainvdD;
H∗ Acumula para cada departamento la variable satlimainvx
correspondiente al plus de inversion adicional imputada a cada central que emplea
Tx satelital por los equipos que se requieren en Lima para el servicio de Voz ∗L
Print@"satlimainvLocd"D;
satlimainvLocd = zerod;
Do@satlimainvLocdPdeptxPixTT = satlimainvLocdPdeptxPixTT + satlimainvLocxPixT, 8ix, nx<D;
Print@satlimainvLocdD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio Local de Voz ∗L
Print@"satlimainvLDNd"D;
satlimainvLDNd = zerod;
Do@satlimainvLDNdPdeptxPixTT = satlimainvLDNdPdeptxPixTT + satlimainvLDNxPixT, 8ix, nx<D;
Print@satlimainvLDNdD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio LDN de Voz ∗L
Print@"satlimainvLDId"D;
satlimainvLDId = zerod;
Do@satlimainvLDIdPdeptxPixTT = satlimainvLDIdPdeptxPixTT + satlimainvLDIxPixT, 8ix, nx<D;
Print@satlimainvLDIdD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio LDI de Voz ∗L
Print@"satlimainvalqdA1"D;
satlimainvalqdA1 = zerod;
Do@satlimainvalqdA1PdeptxPixTT = satlimainvalqdA1PdeptxPixTT + satlimainvalqxA1PixT, 8ix, nx<D;
Print@satlimainvalqdA1D;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio de Circuitos Rango A ∗L
Print@"satlimainvalqdB1"D;
satlimainvalqdB1 = zerod;
Do@satlimainvalqdB1PdeptxPixTT = satlimainvalqdB1PdeptxPixTT + satlimainvalqxB1PixT, 8ix, nx<D;
Print@satlimainvalqdB1D;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio de Circuitos Rango B ∗L
Print@"satlimainvalqdC1"D;
satlimainvalqdC1 = zerod;
Do@satlimainvalqdC1PdeptxPixTT = satlimainvalqdC1PdeptxPixTT + satlimainvalqxC1PixT, 8ix, nx<D;
Print@satlimainvalqdC1D;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio de Circuitos Rango C ∗L
Print@"satlimainvalqdLL"D;
satlimainvalqdLL = zerod;
Do@satlimainvalqdLLPdeptxPixTT = satlimainvalqdLLPdeptxPixTT + satlimainvalqxLLPixT, 8ix, nx<D;
Print@satlimainvalqdLLD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital por
los equipos que se requieren en Lima para el servicio de Circuitos Local Lima ∗L
Print@"satlimainvalqdLP"D
satlimainvalqdLP = zerod;
Do@satlimainvalqdLPPdeptxPixTT = satlimainvalqdLPPdeptxPixTT + satlimainvalqxLP@@ixDD, 8ix, nx<D;
Print@satlimainvalqdLPD
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Local Provincia ∗L
Print@"satlimainvalqdAS"D;
satlimainvalqdAS = zerod;
Do@satlimainvalqdASPdeptxPixTT = satlimainvalqdASPdeptxPixTT + satlimainvalqxASPixT, 8ix, nx<D;
Print@satlimainvalqdASD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
L
Modelo_Integral_ACK.nb
112
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Rango A Satelital∗L
Modelo_Integral_ACK.nb
Print@"satlimainvalqdBS"D;
satlimainvalqdBS = zerod;
Do@satlimainvalqdBSPdeptxPixTT = satlimainvalqdBSPdeptxPixTT + satlimainvalqxBSPixT, 8ix, nx<D;
Print@satlimainvalqdBSD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Rango B Satelital∗L
Print@"satlimainvalqdCS"D;
satlimainvalqdCS = zerod;
Do@satlimainvalqdCSPdeptxPixTT = satlimainvalqdCSPdeptxPixTT + satlimainvalqxCSPixT, 8ix, nx<D;
Print@satlimainvalqdCSD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Rango C Satelital∗L
Print@"satlimainvalqdABC2"D
satlimainvalqdABC2 = zerod;
Do@satlimainvalqdABC2PdeptxPixTT = satlimainvalqdABC2PdeptxPixTT + satlimainvalqxABC2@@ixDD, 8ix, nx<D;
Print@satlimainvalqdABC2D
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Otros Circuitos Rango A, B y C∗L
Print@"satlimainvalqdABCnop"D;
satlimainvalqdABCnop = zerod;
Do@satlimainvalqdABCnopPdeptxPixTT = satlimainvalqdABCnopPdeptxPixTT + satlimainvalqxABCnopPixT, 8ix, nx<D;
Print@satlimainvalqdABCnopD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos de No Operadores∗L
Print@"satlimainvadsld"D
satlimainvadsld = zerod;
Do@satlimainvadsldPdeptxPixTT = satlimainvadsldPdeptxPixTT + satlimainvadslx@@ixDD, 8ix, nx<D;
Print@satlimainvadsldD
H∗ Acumula para cada departamento la variable satlimainvx
correspondiente al plus de inversion adicional imputada a cada central que emplea
Tx satelital por los equipos que se requieren en Lima para el servicio de ADSL ∗L
Print@"satlimainvitxd"D;
satlimainvitxd = zerod;
Do@satlimainvitxdPdeptxPixTT = satlimainvitxdPdeptxPixTT + satlimainvitxxPixT, 8ix, nx<D;
Print@satlimainvitxdD;
H∗ Acumula para cada departamento la variable satlimainvx correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos de Interconexión∗L
Print@"satlimainvTOTALd"D;
satlimainvTOTALd = zerod;
Do@satlimainvTOTALdPdeptxPixTT = satlimainvTOTALdPdeptxPixTT + satlimainvTOTALxPixT, 8ix, nx<D;
Print@satlimainvTOTALdD;
H∗ Acumula para cada departamento la variable satlimainvx
correspondiente al plus de inversion adicional imputada a cada central que emplea
Tx satelital por los equipos que se requieren en Lima para todos los servicios∗L
Print@"satlimainv"D;
satlimainv = Plus @@ satlimainvd;
Print@satlimainvD;
H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a
cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Voz ∗L
Print@"satlimainvLoc"D;
satlimainvLoc = Plus @@ satlimainvLocd;
Print@satlimainvLocD;
H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a
cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio Local de Voz ∗L
Print@"satlimainvLDN"D;
satlimainvLDN = Plus @@ satlimainvLDNd;
Print@satlimainvLDND;
H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a
cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio LDN de Voz ∗L
Print@"satlimainvLDI"D;
satlimainvLDI = Plus @@ satlimainvLDId;
Print@satlimainvLDID;
113
Modelo_Integral_ACK.nb
Print@satlimainvLDID;
H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a
cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio LDI de Voz ∗L
Print@"satlimainvalqA1"D;
satlimainvalqA1 = Plus @@ satlimainvalqdA1;
Print@satlimainvalqA1D;
H∗ Acumula a nivel nacional la variable satlimainvalqdA1 correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio de Circuitos Rango A ∗L
Print@"satlimainvalqB1"D;
satlimainvalqB1 = Plus @@ satlimainvalqdB1;
Print@satlimainvalqB1D;
H∗ Acumula a nivel nacional la variable satlimainvalqdB1 correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio de Circuitos Rango B ∗L
Print@"satlimainvalqC1"D;
satlimainvalqC1 = Plus @@ satlimainvalqdC1;
Print@satlimainvalqC1D;
H∗ Acumula a nivel nacional la variable satlimainvalqdC1 correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital
por los equipos que se requieren en Lima para el servicio de Circuitos Rango C ∗L
Print@"satlimainvalqLL"D;
satlimainvalqLL = Plus @@ satlimainvalqdLL;
Print@satlimainvalqLLD;
H∗ Acumula a nivel nacional la variable satlimainvalqdLL correspondiente
al plus de inversion adicional imputada a cada central que emplea Tx satelital por
los equipos que se requieren en Lima para el servicio de Circuitos Local Lima ∗L
Print@"satlimainvalqLP"D;
satlimainvalqLP = Plus @@ satlimainvalqdLP;
Print@satlimainvalqLPD;
H∗ Acumula a nivel nacional la variable satlimainvalqdLP correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Local Provincias ∗L
Print@"satlimainvalqAS"D;
satlimainvalqAS = Plus @@ satlimainvalqdAS;
Print@satlimainvalqASD;
H∗ Acumula a nivel nacional la variable satlimainvalqdAS correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Rango A Satelital∗L
Print@"satlimainvalqBS"D;
satlimainvalqBS = Plus @@ satlimainvalqdBS;
Print@satlimainvalqBSD;
H∗ Acumula a nivel nacional la variable satlimainvalqdBS correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Rango B Satelital∗L
Print@"satlimainvalqCS"D;
satlimainvalqCS = Plus @@ satlimainvalqdCS;
Print@satlimainvalqCSD;
H∗ Acumula a nivel nacional la variable satlimainvalqdCS correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos Rango C Satelital∗L
Print@"satlimainvalqABC2"D;
satlimainvalqABC2 = Plus @@ satlimainvalqdABC2;
Print@satlimainvalqABC2D;
H∗ Acumula a nivel nacional la variable satlimainvalqdA1nop correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Otros Circuitos Rango A, B y C ∗L
Print@"satlimainvalqABCnop"D;
satlimainvalqABCnop = Plus @@ satlimainvalqdABCnop;
Print@satlimainvalqABCnopD;
H∗ Acumula a nivel nacional la variable satlimainvalqdB1nop correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos de No Operadores ∗L
Print@"satlimainvadsl"D;
satlimainvadsl = Plus @@ satlimainvadsld;
Print@satlimainvadslD;
H∗ Acumula a nivel nacional la variable satlimainvadsld correspondiente al plus de inversion adicional imputada
a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de ADSL ∗L
114
Modelo_Integral_ACK.nb
Print@"satlimainvitx"D;
satlimainvitx = Plus @@ satlimainvitxd;
Print@satlimainvitxD;
H∗ Acumula a nivel nacional la variable satlimainvitxd correspondiente al
plus de inversion adicional imputada a cada central que emplea Tx satelital por los
equipos que se requieren en Lima para el servicio de Circuitos de Interconexión ∗L
Print@"satlimainvTOTAL"D;
satlimainvTOTAL = Plus @@ satlimainvTOTALd;
Print@satlimainvTOTALD;
H∗ Acumula a nivel nacional la variable satlimainvTOTALd correspondiente al plus de inversion adicional imputada
a cada central que emplea Tx satelital por los equipos que se requieren en Lima para todos los servicios ∗L
PrintAStyleA"
A NIVEL DE ANCHO DE BANDA SATELITAL", 16, White, Bold, Background → BlueEE;
H∗ E1s del servicio de Voz ya existe y está calculado previamente ∗L
Print@"e1satalqxA1"D;
e1satalqxA1 = zerox;
Do@e1satalqxA1PinxT = e1hosttandemalqxA1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxA1D;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma
la variable e1hosttandemalqxA1 equivalente a la carga en E1s del servicio Circuitos Rango A ∗L
Print@"e1satalqxB1"D;
e1satalqxB1 = zerox;
Do@e1satalqxB1PinxT = e1hosttandemalqxB1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxB1D;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma
la variable e1hosttandemalqxB1 equivalente a la carga en E1s del servicio Circuitos Rango B ∗L
Print@"e1satalqxC1"D;
e1satalqxC1 = zerox;
Do@e1satalqxC1PinxT = e1hosttandemalqxC1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxC1D;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma
la variable e1hosttandemalqxC1 equivalente a la carga en E1s del servicio Circuitos Rango C ∗L
Print@"e1satalqxLL"D;
e1satalqxLL = zerox;
Do@e1satalqxLLPinxT = e1hosttandemalqxLLPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxLLD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la
variable e1hosttandemalqxLL equivalente a la carga en E1s del servicio Circuitos Local Lima∗L
Print@"e1satalqxLP"D;
e1satalqxLP = zerox;
Do@e1satalqxLPPinxT = e1hosttandemalqxLPPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxLPD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la
variable e1hosttandemalqxLP equivalente a la carga en E1s del servicio Circuitos Local Provincia∗L
Print@"e1satalqxAS"D;
e1satalqxAS = zerox;
Do@e1satalqxASPinxT = e1hosttandemalqxASPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxASD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la
variable e1hosttandemalqxAS equivalente a la carga en E1s del servicio Circuitos Rango A Satelital∗L
Print@"e1satalqxBS"D;
e1satalqxBS = zerox;
Do@e1satalqxBSPinxT = e1hosttandemalqxBSPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxBSD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la
variable e1hosttandemalqxBS equivalente a la carga en E1s del servicio Circuitos Rango B Satelital∗L
Print@"e1satalqxCS"D;
e1satalqxCS = zerox;
Do@e1satalqxCSPinxT = e1hosttandemalqxCSPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxCSD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la
variable e1hosttandemalqxCS equivalente a la carga en E1s del servicio Circuitos Rango C Satelital∗L
115
Modelo_Integral_ACK.nb
Print@"e1satalqxABC2"D;
e1satalqxABC2 = zerox;
Do@e1satalqxABC2PinxT = e1hosttandemalqxABC2PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxABC2D;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable
e1hosttandemalqxABC2 equivalente a la carga en E1s del servicio Otros Circuitos Rango A, B y C∗L
Print@"e1satalqxABCnop"D;
e1satalqxABCnop = zerox;
Do@e1satalqxABCnopPinxT = e1hosttandemalqxABCnopPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satalqxABCnopD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable
e1hosttandemalqxABCnop equivalente a la carga en E1s del servicio Circuitos de No Operadores∗L
Print@"e1satadslx"D;
e1satadslx = zerox;
Do@e1satadslxPinxT = e1hosttandemadslxPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satadslxD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital
se toma la variable e1hosttandemadslx equivalente a la carga en E1s del servicio ADSL ∗L
Print@"e1satitxx"D;
e1satitxx = zerox;
Do@e1satitxxPinxT = e1hosttandemitxxPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
Print@e1satitxxD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la
variable e1hosttandemitxx equivalente a la carga en E1s del servicio Circuitos de Interconexión ∗L
Print@"e1satTOTALx"D;
e1satTOTALx = e1satx + e1satalqxA1 + e1satalqxB1 + e1satalqxC1 + e1satalqxLL + e1satalqxLP +
e1satalqxAS + e1satalqxBS + e1satalqxCS + e1satalqxABC2 + e1satalqxABCnop + e1satitxx + e1satadslx;
Print@e1satTOTALxD;
H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir,
sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se
toma la variable e1hosttandemTOTALx equivalente a la carga en E1s de todos los servicios ∗L
Print@"Extrasatcostx"D;
2 Ceiling@e1satxD ∗ numMHzporMb ∗ costesatporMHz
;
Extrasatcostx =
2
Print@ExtrasatcostxD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto
directo en el alquiler del ancho de banda satelital. Servicio de Voz ∗L
Print@"ExtrasatcostLocx"D;
ExtrasatcostLocx = Extrasatcostx ∗ satLocx;
Print@ExtrasatcostLocxD;
H∗ Divide el Servicio de Voz en Local ∗L
Print@"ExtrasatcostLDNx"D;
ExtrasatcostLDNx = Extrasatcostx ∗ satLDNx;
Print@ExtrasatcostLDNxD;
H∗ Divide el Servicio de Voz en LDN ∗L
Print@"ExtrasatcostLDIx"D;
ExtrasatcostLDIx = Extrasatcostx ∗ satLDIx;
Print@ExtrasatcostLDIxD;
H∗ Divide el Servicio de Voz en LDI ∗L
Print@"ExtrasatcostalqxA1"D;
2 Ceiling@e1satalqxA1D ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxA1 =
;
2
Print@ExtrasatcostalqxA1D;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo
en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A ∗L
Print@"ExtrasatcostalqxB1"D;
2 Ceiling@e1satalqxB1D ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxB1 =
2
Print@ExtrasatcostalqxB1D;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo
en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango B ∗L
Print@"ExtrasatcostalqxC1"D;
2 Ceiling@e1satalqxC1D ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxC1 =
;
2
116
Modelo_Integral_ACK.nb
Print@ExtrasatcostalqxC1D;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo
en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A ∗L
Print@"ExtrasatcostalqxLL"D;
2 Ceiling@e1satalqxLLD ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxLL =
2
Print@ExtrasatcostalqxLLD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo
en el alquiler del ancho de banda satelital. Servicio de Circuitos Local Lima ∗L
Print@"ExtrasatcostalqxLP"D;
2 Ceiling@e1satalqxLPD ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxLP =
2
Print@ExtrasatcostalqxLPD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en
el alquiler del ancho de banda satelital. Servicio de Circuitos Local Provincia ∗L
Print@"ExtrasatcostalqxAS"D;
2 Ceiling@e1satalqxASD ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxAS =
;
2
Print@ExtrasatcostalqxASD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en
el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A Satelital∗L
Print@"ExtrasatcostalqxBS"D;
2 Ceiling@e1satalqxBSD ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxBS =
;
2
Print@ExtrasatcostalqxBSD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en
el alquiler del ancho de banda satelital. Servicio de Circuitos Rango B Satelital∗L
Print@"ExtrasatcostalqxCS"D;
2 Ceiling@e1satalqxCSD ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxCS =
;
2
Print@ExtrasatcostalqxCSD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en
el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A Satelital∗L
Print@"ExtrasatcostalqxABC2"D;
2 Ceiling@e1satalqxABC2D ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxABC2 =
2
Print@ExtrasatcostalqxABC2D;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el
alquiler del ancho de banda satelital. Servicio de Otros Circuitos Rango A, B y C∗L
Print@"ExtrasatcostalqxABCnop"D;
2 Ceiling@e1satalqxABCnopD ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxABCnop =
2
Print@ExtrasatcostalqxABCnopD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en
el alquiler del ancho de banda satelital. Servicio de Circuitos de No Operadores∗L
Print@"Extrasatcostadslx"D;
2 Ceiling@e1satadslxD ∗ numMHzporMb ∗ costesatporMHz
;
Extrasatcostadslx =
2
Print@ExtrasatcostadslxD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto
directo en el alquiler del ancho de banda satelital. Servicio de ADSL ∗L
Print@"Extrasatcostitxx"D;
2 Ceiling@e1satitxxD ∗ numMHzporMb ∗ costesatporMHz
Extrasatcostitxx =
;
2
Print@ExtrasatcostitxxD;
H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en
el alquiler del ancho de banda satelital. Servicio de Circuitos de Interconexión ∗L
Print@"ExtrasatcostTOTALx"D;
2 Ceiling@e1satTOTALxD ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostTOTALx =
2
Print@ExtrasatcostTOTALxD;
H∗ Sobre la base del número de E1s satelitales se estima
el gasto directo en el alquiler del ancho de banda satelital. ∗L
Print@"Extrasatcostd"D;
Extrasatcostd = zerod;
Do@ExtrasatcostdPdeptxPixTT = ExtrasatcostdPdeptxPixTT + ExtrasatcostxPixT, 8ix, nx<D;
Print@ExtrasatcostdD;
H∗ Acumula por departamento la variable Extrasatcostx, Servicio de Voz ∗LH∗Ojo∗L
117
H
Acumula por departamento la variable Extrasatcostx, Servicio de Voz
LH Ojo L
Modelo_Integral_ACK.nb
Print@"factor4"D;
factor4 = zerox;
DoBfactor4PixT = IfBlinesdPdeptxPixTT linesxPixT, 0,
satlinesdPdeptxPixTT − satlinesxPixT
linesdPdeptxPixTT − linesxPixT
F;, 8ix, nx<F;
Print@factor4D;
H∗Para igualar al propuesto, no se le quita el interno,
asumiendo que también viene hasta LIMA como en el Modelo de ACCESS∗L
Print@"satmind4"D;
satmind4 = zerod;
Do@If@deptxPixT ≠ MADREDEDIOS, satmind4PdeptxPixTT =
satmind4PdeptxPixTT + HswitchendxPixTH∗−intraxPixT∗L − satldintradxPixT ∗ factor4PixTL ∗ sat1xPixTD;, 8ix, nx<D;
Print@satmind4D;
Print@"ExtrasatcostLocd"D;
ExtrasatcostLocd = zerod;
Do@ExtrasatcostLocdPdeptxPixTT = ExtrasatcostLocdPdeptxPixTT + ExtrasatcostLocxPixT, 8ix, nx<D;
Print@ExtrasatcostLocdD;
H∗ Acumula por departamento la variable ExtrasatcostLocx, Servicio Local de Voz ∗L
Print@"ExtrasatcostLDNd"D;
ExtrasatcostLDNd = zerod;
Do@ExtrasatcostLDNdPdeptxPixTT = ExtrasatcostLDNdPdeptxPixTT + ExtrasatcostLDNxPixT, 8ix, nx<D;
Print@ExtrasatcostLDNdD;
H∗ Acumula por departamento la variable ExtrasatcostLDNx, Servicio LDN de Voz ∗L
Print@"ExtrasatcostLDId"D;
ExtrasatcostLDId = zerod;
Do@ExtrasatcostLDIdPdeptxPixTT = ExtrasatcostLDIdPdeptxPixTT + ExtrasatcostLDIxPixT, 8ix, nx<D;
Print@ExtrasatcostLDIdD;
H∗ Acumula por departamento la variable ExtrasatcostLDIx, Servicio LDI de Voz ∗L
Print@"ExtrasatcostalqdA1"D;
ExtrasatcostalqdA1 = zerod;
Do@ExtrasatcostalqdA1PdeptxPixTT = ExtrasatcostalqdA1PdeptxPixTT + ExtrasatcostalqxA1PixT, 8ix, nx<D;
Print@ExtrasatcostalqdA1D;
H∗ Acumula por departamento la variable ExtrasatcostalqxA1, Servicio de Circuitos Rango A ∗L
Print@"ExtrasatcostalqdB1"D;
ExtrasatcostalqdB1 = zerod;
Do@ExtrasatcostalqdB1PdeptxPixTT = ExtrasatcostalqdB1PdeptxPixTT + ExtrasatcostalqxB1PixT, 8ix, nx<D;
Print@ExtrasatcostalqdB1D;
H∗ Acumula por departamento la variable ExtrasatcostalqxB1, Servicio de Circuitos Rango B ∗L
Print@"ExtrasatcostalqdC1"D;
ExtrasatcostalqdC1 = zerod;
Do@ExtrasatcostalqdC1PdeptxPixTT = ExtrasatcostalqdC1PdeptxPixTT + ExtrasatcostalqxC1PixT, 8ix, nx<D;
Print@ExtrasatcostalqdC1D;
H∗ Acumula por departamento la variable ExtrasatcostalqxC1, Servicio de Circuitos Rango C ∗L
Print@"ExtrasatcostalqdLL"D;
ExtrasatcostalqdLL = zerod;
Do@ExtrasatcostalqdLLPdeptxPixTT = ExtrasatcostalqdLLPdeptxPixTT + ExtrasatcostalqxLLPixT, 8ix, nx<D;
Print@ExtrasatcostalqdLLD;
H∗ Acumula por departamento la variable ExtrasatcostalqxLL, Servicio de Circuitos Local Lima ∗L
Print@"ExtrasatcostalqdLP"D;
ExtrasatcostalqdLP = zerod;
Do@ExtrasatcostalqdLPPdeptxPixTT = ExtrasatcostalqdLPPdeptxPixTT + ExtrasatcostalqxLPPixT, 8ix, nx<D;
Print@ExtrasatcostalqdLPD;
H∗ Acumula por departamento la variable ExtrasatcostalqxLP, Servicio de Circuitos Local Provincia ∗L
Print@"ExtrasatcostalqdAS"D;
ExtrasatcostalqdAS = zerod;
Do@ExtrasatcostalqdASPdeptxPixTT = ExtrasatcostalqdASPdeptxPixTT + ExtrasatcostalqxASPixT, 8ix, nx<D;
Print@ExtrasatcostalqdASD;
H∗ Acumula por departamento la variable ExtrasatcostalqxAS, Servicio de Circuitos Rango A Satelital∗L
Print@"ExtrasatcostalqdBS"D
ExtrasatcostalqdBS = zerod;
Do@ExtrasatcostalqdBSPdeptxPixTT = ExtrasatcostalqdBSPdeptxPixTT + ExtrasatcostalqxBSPixT, 8ix, nx<D
Print@ExtrasatcostalqdBSD
H∗ Acumula por departamento la variable ExtrasatcostalqxBS, Servicio de Circuitos Rango B Satelital∗L
Print@"ExtrasatcostalqdCS"D;
ExtrasatcostalqdCS = zerod;
Do@ExtrasatcostalqdCSPdeptxPixTT = ExtrasatcostalqdCSPdeptxPixTT + ExtrasatcostalqxCSPixT, 8ix, nx<D;
Print@ExtrasatcostalqdCSD;
118
Print@ExtrasatcostalqdCSD;
H∗ Acumula por departamento la variable ExtrasatcostalqxCS, Servicio de Circuitos Rango C Satelital∗L
Modelo_Integral_ACK.nb
Print@"ExtrasatcostalqdABC2"D;
ExtrasatcostalqdABC2 = zerod;
Do@ExtrasatcostalqdABC2PdeptxPixTT = ExtrasatcostalqdABC2PdeptxPixTT + ExtrasatcostalqxABC2PixT, 8ix, nx<D;
Print@ExtrasatcostalqdABC2D;
H∗ Acumula por departamento la variable ExtrasatcostalqxABC2, Servicio de Otros Circuitos Rango A, B y C∗L
Print@"ExtrasatcostalqdABCnop"D;
ExtrasatcostalqdABCnop = zerod;
Do@ExtrasatcostalqdABCnopPdeptxPixTT = ExtrasatcostalqdABCnopPdeptxPixTT + ExtrasatcostalqxABCnopPixT, 8ix, nx<D;
Print@ExtrasatcostalqdABCnopD;
H∗ Acumula por departamento la variable ExtrasatcostalqxABCnop, Servicio de Circuitos de No Operadores∗L
Print@"Extrasatcostadsld"D;
Extrasatcostadsld = zerod;
Do@ExtrasatcostadsldPdeptxPixTT = ExtrasatcostadsldPdeptxPixTT + ExtrasatcostadslxPixT, 8ix, nx<D;
Print@ExtrasatcostadsldD;
H∗ Acumula por departamento la variable Extrasatcostadslx, Servicio de ADSL ∗L
Print@"Extrasatcostitxd"D;
Extrasatcostitxd = zerod;
Do@ExtrasatcostitxdPdeptxPixTT = ExtrasatcostitxdPdeptxPixTT + ExtrasatcostitxxPixT, 8ix, nx<D;
Print@ExtrasatcostitxdD;
H∗ Acumula por departamento la variable Extrasatcostitxx, Servicio de Circuitos de Interconexión∗L
Print@"ExtrasatcostTOTALd"D;
ExtrasatcostTOTALd = zerod;
Do@ExtrasatcostTOTALdPdeptxPixTT = ExtrasatcostTOTALdPdeptxPixTT + ExtrasatcostTOTALxPixT, 8ix, nx<D;
Print@ExtrasatcostTOTALdD;
H∗ Acumula por departamento la variable ExtrasatcostTOTALx, Todos los servicios∗L
ESTIMACIÓN DE COMPOSICION DE E1s
PrintBStyleB
"ESTIMACIÓN DE COMPOSICION DE E1s Hsi es del Anillo o
de tramo independienteL", 16, White, Bold, Underlined, RGBColorB0, 1 , 0FFF;
2
PrintAStyleA"A NIVEL HOST TANDEM", 16, White, Bold, Underlined, Background → BlueEE;
Print@"e1compHTx"D;
e1compHTx = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compHTxPixT = e1AnillodPdeptxPixTT, e1compHTxPixT = e1hosttandemxPixTD;, 8ix, nx<D;
Print@e1compHTxD;
H∗ Especifica el número de E1s relevante para el servicio de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental
se tomar la variable e1Anillod y si no es anillo simplemente la variable e1hosttandemx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"loadcompHTLocx"D;
loadcompHTLocx = zerox;
Do@If@esAnillodxPixT ≠ NA, loadcompHTLocxPixT = loadAnilloLocdPdeptxPixTT,
loadcompHTLocxPixT = loadhosttandemLocxPixTD;, 8ix, nx<D;
Print@loadcompHTLocxD;
H∗ Especifica la carga en Erlangs relevante para el servicio Local de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable loadAnilloLocd y si no es anillo simplemente la variable loadhosttandemLocx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"loadcompHTLDNx"D;
loadcompHTLDNx = zerox;
Do@If@esAnillodxPixT ≠ NA, loadcompHTLDNxPixT = loadAnilloLDNdPdeptxPixTT,
loadcompHTLDNxPixT = loadhosttandemLDNxPixTD;, 8ix, nx<D;
Print@loadcompHTLDNxD;
H∗ Especifica la carga en Erlangs relevante para el servicio LDN de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable loadAnilloLDNd y si no es anillo simplemente la variable loadhosttandemLDNx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"loadcompHTLDIx"D;
loadcompHTLDIx = zerox;
Do@If@esAnillodxPixT ≠ NA, loadcompHTLDIxPixT = loadAnilloLDIdPdeptxPixTT,
loadcompHTLDIxPixT = loadhosttandemLDIxPixTD;, 8ix, nx<D;
Print@loadcompHTLDIxD;
H∗ Especifica la carga en Erlangs relevante para el servicio LDI de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable loadAnilloLDId y si no es anillo simplemente la variable loadhosttandemLDIx,
ambas referidas de manera exclusiva al servicio elegido ∗L
119
ambas referidas de manera exclusiva al servicio elegido
L
Print@"loadcompHTx"D;
loadcompHTx = zerox;
Do@If@esAnillodxPixT ≠ NA, loadcompHTxPixT = loadAnillodPdeptxPixTT, loadcompHTxPixT = loadhosttandemxPixTD;,
8ix, nx<D;
Print@loadcompHTxD;
H∗ Especifica la carga en Erlangs relevante para el servicio de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable loadAnillod y si no es anillo simplemente la variable loadhosttandemx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxA1"D;
e1compalqHTxA1 = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxA1PixT = e1AnilloalqdA1PdeptxPixTT,
e1compalqHTxA1PixT = e1hosttandemalqxA1PixTD;, 8ix, nx<D;
Print@e1compalqHTxA1D;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango
A: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable e1AnilloalqdA1 y si no es anillo simplemente la variable e1hosttandemalqxA1,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxB1"D;
e1compalqHTxB1 = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxB1PixT = e1AnilloalqdB1PdeptxPixTT,
e1compalqHTxB1PixT = e1hosttandemalqxB1PixTD;, 8ix, nx<D;
Print@e1compalqHTxB1D;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango
B: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable e1AnilloalqdB1 y si no es anillo simplemente la variable e1hosttandemalqxB1,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxC1"D;
e1compalqHTxC1 = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxC1PixT = e1AnilloalqdC1PdeptxPixTT,
e1compalqHTxC1PixT = e1hosttandemalqxC1PixTD;, 8ix, nx<D;
Print@e1compalqHTxC1D;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango
C: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable e1AnilloalqdC1 y si no es anillo simplemente la variable e1hosttandemalqxC1,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxLL"D;
e1compalqHTxLL = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxLLPixT = e1AnilloalqdLLPdeptxPixTT,
e1compalqHTxLLPixT = e1hosttandemalqxLLPixTD;, 8ix, nx<D;
Print@e1compalqHTxLLD;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Local
Lima: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable e1AnilloalqdLL y si no es anillo simplemente la variable e1hosttandemalqxLL,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxLP"D;
e1compalqHTxLP = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxLPPixT = e1AnilloalqdLPPdeptxPixTT,
e1compalqHTxLPPixT = e1hosttandemalqxLPPixTD;, 8ix, nx<D;
Print@e1compalqHTxLPD;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Local
Provincias: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable e1AnilloalqdLP y si no es anillo simplemente la variable e1hosttandemalqxLP,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxAS"D;
e1compalqHTxAS = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxASPixT = e1AnilloalqdASPdeptxPixTT,
e1compalqHTxASPixT = e1hosttandemalqxASPixTD;, 8ix, nx<D;
Print@e1compalqHTxASD;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango A
Satelital: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable e1AnilloalqdAS y si no es anillo simplemente la variable e1hosttandemalqxAS,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxBS"D;
e1compalqHTxBS = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxBSPixT = e1AnilloalqdBSPdeptxPixTT,
e1compalqHTxBSPixT = e1hosttandemalqxBSPixTD;, 8ix, nx<D;
Print@e1compalqHTxBSD;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango B
Satelital: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable e1AnilloalqdBS y si no es anillo simplemente la variable e1hosttandemalqxBS,
L
Modelo_Integral_ACK.nb
120
tomar la variable e1AnilloalqdBS y si no es anillo simplemente la variable e1hosttandemalqxBS,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxCS"D;
e1compalqHTxCS = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxCSPixT = e1AnilloalqdCSPdeptxPixTT,
e1compalqHTxCSPixT = e1hosttandemalqxCSPixTD;, 8ix, nx<D;
Print@e1compalqHTxCSD;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango C
Satelital: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable e1AnilloalqdCS y si no es anillo simplemente la variable e1hosttandemalqxCS,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxABC2"D;
e1compalqHTxABC2 = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxABC2PixT = e1AnilloalqdABC2PdeptxPixTT,
e1compalqHTxABC2PixT = e1hosttandemalqxABC2PixTD;, 8ix, nx<D;
Print@e1compalqHTxABC2D;
H∗ Especifica el número de E1s relevante para el servicio de Otros Circuitos Rango A,
B y C: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable e1AnilloalqdABC2 y si no es anillo simplemente la variable e1hosttandemalqxABC2,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compalqHTxABCnop"D;
e1compalqHTxABCnop = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compalqHTxABCnopPixT = e1AnilloalqdABCnopPdeptxPixTT,
e1compalqHTxABCnopPixT = e1hosttandemalqxABCnopPixTD;, 8ix, nx<D;
Print@e1compalqHTxABCnopD
H∗ Especifica el número de E1s relevante para el servicio de Circuitos de No
Operadores: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable e1AnilloalqdABCnop y si no es anillo simplemente la variable e1hosttandemalqxABCnop,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compitxHTx"D;
e1compitxHTx = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compitxHTxPixT = Round@e1AnilloitxdPdeptxPixTTD,
e1compitxHTxPixT = Round@e1hosttandemitxxPixTDD;, 8ix, nx<D;
Print@e1compitxHTxD;
H∗ Especifica el número de E1s relevante para el servicio de Circuitos de
Interconexión: Vale para radio y fibra. Si la central forma parte de un anillo departamental
se tomar la variable e1Anilloitxd y si no es anillo simplemente la variable e1hosttandemitxx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compadslHTx"D;
e1compadslHTx = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compadslHTxPixT = Round@e1AnilloadsldPdeptxPixTTD,
e1compadslHTxPixT = Round@e1hosttandemadslxPixTDD;, 8ix, nx<D;
Print@e1compadslHTxD;
H∗ Especifica el número de E1s relevante para el servicio de
ADSL: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable e1Anilloadsld y si no es anillo simplemente la variable e1hosttandemadslx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@"e1compHTTOTALx"D;
e1compHTTOTALx = zerox;
Do@If@esAnillodxPixT ≠ NA, e1compHTTOTALxPixT = e1AnilloTOTALdPdeptxPixTT,
e1compHTTOTALxPixT = e1hosttandemTOTALxPixTD;, 8ix, nx<D;
Print@e1compHTTOTALxD;
H∗ Especifica el número de E1s totales Hde todos los serviciosL:
Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la
variable e1AnilloTOTALd y si no es anillo simplemente la variable e1hosttandemTOTALx ∗L
PrintBStyleB
"COMPOSICIÓN POR SERVICIO − HOST TANDEM",
16, White, Bold, Underlined, Background → BlueFF;
Pcte1compHTx = Table@0, 8jx, nx<, 8ix, 13<D;
DoBIfBe1compHTTOTALxPixT ≠ 0,
Pcte1compHTxPix, 1T =
Pcte1compHTxPix, 2T =
Pcte1compHTxPix, 3T =
e1compHTxPixT
;
e1compHTTOTALxPixT
e1compalqHTxA1PixT
;
e1compHTTOTALxPixT
e1compalqHTxB1PixT
;
e1compHTTOTALxPixT
Pcte1compHTxPix, 4T =
e1compalqHTxC1PixT
;
e1compHTTOTALxPixT
Pcte1compHTxPix, 5T =
e1compalqHTxLLPixT
;
e1compHTTOTALxPixT
Modelo_Integral_ACK.nb
121
Modelo_Integral_ACK.nb
Pcte1compHTxPix, 6T =
Pcte1compHTxPix, 7T =
Pcte1compHTxPix, 8T =
e1compalqHTxLPPixT
;
e1compHTTOTALxPixT
e1compalqHTxASPixT
;
e1compHTTOTALxPixT
e1compalqHTxBSPixT
;
e1compHTTOTALxPixT
Pcte1compHTxPix, 9T =
e1compalqHTxCSPixT
;
e1compHTTOTALxPixT
Pcte1compHTxPix, 10T =
Pcte1compHTxPix, 11T =
Pcte1compHTxPix, 12T =
Pcte1compHTxPix, 13T =
e1compalqHTxABC2PixT
;
e1compHTTOTALxPixT
e1compalqHTxABCnopPixT
;
e1compHTTOTALxPixT
e1compitxHTxPixT
;
e1compHTTOTALxPixT
e1compadslHTxPixT
e1compHTTOTALxPixT
;F;, 8ix, nx<F;
Print@TableForm@Pcte1compHTx, TableAlignments → 8Center, Center<, TableDirections → 8Column, Row<,
TableHeadings → 8Table@ix, 8ix, nx<D, 8"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima",
"Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq Otros", "No Op", "Itx", "ADSL"<<DD;
PrintBStyleB
"ESTIMACIÓN DE COMPOSICION DE E1s",
16, Bold, White, Underlined, Background → RGBColorB0,
PrintAStyleA
1
, 0FFF;
2
"A NIVEL REMOTE HOST", 16, Bold, White, Underlined, Background → BlueEE;
Print@"Cargas de Voz"D;
loadcompRHx = zerox;
loadcompRHLocx = zerox;
loadcompRHLDNx = zerox;
loadcompRHLDIx = zerox;
Do@If@esAnillopxPixT 1, loadcompRHxPixT = loadAnillopPprovxPixTT;
loadcompRHLocxPixT = loadAnilloLocpPprovxPixTT;
loadcompRHLDNxPixT = loadAnilloLDNpPprovxPixTT;
loadcompRHLDIxPixT = loadAnilloLDIpPprovxPixTT;, loadcompRHxPixT = loadremotehostxPixT;
loadcompRHLocxPixT = loadremotehostLocxPixT;
loadcompRHLDNxPixT = loadremotehostLDNxPixT;
loadcompRHLDIxPixT = loadremotehostLDIxPixT;D;, 8ix, nx<D;
H∗ Especifica la carga en Erlangs relevante para el servicio de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se
tomar la variable loadAnillop y si no es anillo simplemente la variable loadremotehostx,
ambas referidas de manera exclusiva al servicio elegido ∗L
H∗ Especifica la carga en Erlangs relevante para el servicio Local de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable loadAnilloLocp y si no es anillo simplemente la variable loadremotehostLocx,
ambas referidas de manera exclusiva al servicio elegido ∗L
H∗ Especifica la carga en Erlangs relevante para el servicio LDN de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable loadAnilloLDNp y si no es anillo simplemente la variable loadremotehostLDNx,
ambas referidas de manera exclusiva al servicio elegido ∗L
H∗ Especifica la carga en Erlangs relevante para el servicio LDI de
Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar
la variable loadAnilloLDIp y si no es anillo simplemente la variable loadremotehostLDIx,
ambas referidas de manera exclusiva al servicio elegido ∗L
Print@TableForm@8loadcompRHx, loadcompRHLocx, loadcompRHLDNx, loadcompRHLDIx<,
TableAlignments → 8Center, Center<, TableDirections → 8Row, Column<, TableSpacing → 80, 0<,
TableHeadings → 88"Total", "Local", "LDN", "LDI"<, Table@ix, 8ix, nx<D<DD;
Print@"E1s por Servicio"D;
e1compRHx = zerox;
e1compalqRHxA1 = zerox;
e1compalqRHxB1 = zerox;
e1compalqRHxC1 = zerox;
e1compalqRHxLL = zerox;
e1compalqRHxLP = zerox;
e1compalqRHxAS = zerox;
e1compalqRHxBS = zerox;
e1compalqRHxCS = zerox;
e1compalqRHxABC2 = zerox;
e1compalqRHxABCnop = zerox;
e1compitxRHx = zerox;
e1compadslRHx = zerox;
e1compRHTOTALx = zerox;
Do@If@esAnillopxPixT 1, e1compRHxPixT = e1AnillopPprovxPixTT;
e1compalqRHxA1PixT = e1AnilloalqpA1PprovxPixTT;
e1compalqRHxB1PixT = e1AnilloalqpB1PprovxPixTT;
e1compalqRHxC1PixT = e1AnilloalqpC1PprovxPixTT;
e1compalqRHxLLPixT = e1AnilloalqpLLPprovxPixTT;
122
Modelo_Integral_ACK.nb
e1compalqRHxLLPixT e1AnilloalqpLLPprovxPixTT;
e1compalqRHxLPPixT = e1AnilloalqpLPPprovxPixTT;
e1compalqRHxASPixT = e1AnilloalqpASPprovxPixTT;
e1compalqRHxBSPixT = e1AnilloalqpBSPprovxPixTT;
e1compalqRHxCSPixT = e1AnilloalqpCSPprovxPixTT;
e1compalqRHxABC2PixT = e1AnilloalqpABC2PprovxPixTT;
e1compalqRHxABCnopPixT = e1AnilloalqpABCnopPprovxPixTT;
e1compitxRHxPixT = e1AnilloitxpPprovxPixTT;
e1compadslRHxPixT = e1AnilloadslpPprovxPixTT;
e1compRHTOTALxPixT = e1AnilloTOTALpPprovxPixTT;, e1compRHxPixT = e1remotehostxPixT;
e1compalqRHxA1PixT = e1remotehostalqxA1PixT;
e1compalqRHxB1PixT = e1remotehostalqxB1PixT;
e1compalqRHxC1PixT = e1remotehostalqxC1PixT;
e1compalqRHxLLPixT = e1remotehostalqxLLPixT;
e1compalqRHxLPPixT = e1remotehostalqxLPPixT;
e1compalqRHxASPixT = e1remotehostalqxASPixT;
e1compalqRHxBSPixT = e1remotehostalqxBSPixT;
e1compalqRHxCSPixT = e1remotehostalqxCSPixT;
e1compalqRHxABC2PixT = e1remotehostalqxABC2PixT;
e1compalqRHxABCnopPixT = e1remotehostalqxABCnopPixT;
e1compitxRHxPixT = e1remotehostitxxPixT;
e1compadslRHxPixT = e1remotehostadslxPixT;
e1compRHTOTALxPixT = e1remotehostTOTALxPixT;D;, 8ix, nx<D;
H∗ Especifica el número de E1s relevante para los servicios de Voz,
Circuitos Rango A, Circuitos Rango B, Circuitos Rango C, Otros Circuitos Rango A,
B y C, Circuitos de No Operadores, Circuitos de Interconexión, ADSL y Totales:
Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar las variables e1Anillop,
e1AnilloalqpA1,e1AnilloalqpB1,e1AnilloalqpC1,e1AnilloalqpLL,e1AnilloalqpLP,e1AnilloalqpAS,
e1AnilloalqpBS,e1AnilloalqpCS,e1AnilloalqpABC2,e1AnilloalqpABCnop,e1Anilloitxp,
e1Anilloadslp o e1AnilloTOTALp y si no es anillo simplemente la variable e1remotehostx,e1remotehostalqxA1,
e1remotehostalqxB1,e1remotehostalqxC1,e1remotehostalqxLL,e1remotehostalqxLP,e1remotehostalqxAS,
e1remotehostalqxBS,e1remotehostalqxCS,e1remotehostalqxABC2,e1remotehostalqxABCnop,e1remotehostitxx,
e1remotehostadslx o e1remotehostTOTALx, ambas referidas de manera exclusiva al servicio respectivo ∗L
Print@TableForm@8e1compRHx, e1compalqRHxA1, e1compalqRHxB1, e1compalqRHxC1,
e1compalqRHxABC2, e1compalqRHxABCnop, e1compitxRHx, e1compadslRHx, e1compRHTOTALx<,
TableAlignments → 8Center, Center<, TableDirections → 8Row, Column<, TableSpacing → 80, 0<,
TableHeadings → 88"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat",
"Alq B Sat", "Alq C Sat", "Alq Otros", "No Op", "Itx", "ADSL", "Total"<, Table@ix, 8ix, nx<D<DD;
PrintBStyleB
"COMPOSICIÓN POR SERVICIO − REMOTE HOST",
16, Bold, White, Underlined, Background → BlueFF;
Pcte1compRHx = Table@0, 8jx, nx<, 8ix, 13<D;
DoBIfBe1compRHTOTALxPixT ≠ 0,
e1compRHxPixT
Pcte1compRHxPix, 1T =
;
e1compRHTOTALxPixT
Pcte1compRHxPix, 2T =
Pcte1compRHxPix, 3T =
Pcte1compRHxPix, 4T =
Pcte1compRHxPix, 5T =
e1compalqRHxA1PixT
;
e1compRHTOTALxPixT
e1compalqRHxB1PixT
;
e1compRHTOTALxPixT
e1compalqRHxC1PixT
;
e1compRHTOTALxPixT
e1compalqRHxLLPixT
;
e1compRHTOTALxPixT
Pcte1compRHxPix, 6T =
e1compalqRHxLPPixT
;
e1compRHTOTALxPixT
Pcte1compRHxPix, 7T =
Pcte1compRHxPix, 8T =
Pcte1compRHxPix, 9T =
e1compalqRHxASPixT
;
e1compRHTOTALxPixT
e1compalqRHxBSPixT
;
e1compRHTOTALxPixT
e1compalqRHxCSPixT
;
e1compRHTOTALxPixT
Pcte1compRHxPix, 10T =
e1compalqRHxABC2PixT
;
e1compRHTOTALxPixT
Pcte1compRHxPix, 11T =
e1compalqRHxABCnopPixT
;
e1compRHTOTALxPixT
Pcte1compRHxPix, 12T =
Pcte1compRHxPix, 13T =
e1compitxRHxPixT
;
e1compRHTOTALxPixT
e1compadslRHxPixT
e1compRHTOTALxPixT
;F;, 8ix, nx<F;
Print@
TableForm@Pcte1compRHx, TableAlignments → 8Center, Center<, TableDirections → 8Column, Row<, TableSpacing → 80, 0<,
TableHeadings → 8Table@ix, 8ix, nx<D, 8"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov",
"Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq Otros", "No Op", "Itx", "ADSL", "Total"<<DD;
ESTIMACION DE INVERSIONES DE RADIO
123
Modelo_Integral_ACK.nb
PrintBStyleB
"ESTIMACIÓN DE INVERSIONES EN RADIO A NIVEL CABECERA−TANDEM",
16, Bold, White, Underlined, Background → RGBColorB0,
hophosttandemx = FloorB
disttandemx
hop
1
, 0FFF;
2
F;
H∗ Estima el número de
Repetidoras: Equivale a la distancia relevante para cada arista entre la distancia máxima que debe existir
entre cada repetidora. Para llegar al número de repetidoras es necesario restar 1 de dicho resultado ∗L
e1hosttandemTOTALx
F;
numtributariosRHTx = CeilingB
21
H∗ Identifica el número de tributarios por central ∗L
VelocidadRHTx = zerox;
CosteFijoRHTx = zerox;
CosteTributariosRHTx = zerox;
CosteRepetidoresRHTx = zerox;
Do@If@e1compHTTOTALxPixT ≠ 0,
Do@If@e1compHTTOTALxPixT > TxRadioLimitesPiT, VelocidadRHTxPixT = iD;, 8i, Length@TxRadioLimitesD<D;
If@VelocidadRHTxPixT < Length@TxRadioLimitesD, VelocidadRHTxPixT = VelocidadRHTxPixT + 1D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
If@VelocidadRHTxPixT ≠ 0, CosteFijoRHTxPixT = TxRadioCosteFijoPVelocidadRHTxPixTT;
H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L
CosteTributariosRHTxPixT = TxRadioCosteTributarioPVelocidadRHTxPixTT;
H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L
CosteRepetidoresRHTxPixT = TxRadioCosteRepPVelocidadRHTxPixTT ∗ hophosttandemxPixT;D;D;
H∗ Especifica el costo del equipo repetidor asociado a la velocidad o capacidad requerida∗L
, 8ix, nx<D;
radioinvhosttandemx = zerox;
radioinvhosttandemalqxA1 = zerox;
radioinvhosttandemalqxB1 = zerox;
radioinvhosttandemalqxC1 = zerox;
radioinvhosttandemalqxLL = zerox;
radioinvhosttandemalqxLP = zerox;
radioinvhosttandemalqxAS = zerox;
radioinvhosttandemalqxBS = zerox;
radioinvhosttandemalqxCS = zerox;
radioinvhosttandemalqxABC2 = zerox;
radioinvhosttandemalqxABCnop = zerox;
radioinvhosttandemadslx = zerox;
radioinvhosttandemitxx = zerox;
radioinvhosttandemTOTALx = zerox;
DoBIfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, radioinvhosttandemTOTALxPixT =
2 ∗ CosteFijoRHTxPixT + CosteRepetidoresRHTxPixT + 2 ∗ CosteTributariosRHTxPixT ∗ numtributariosRHTxPixT;
H∗ Estima el nivel de inversión Total e imputable a todos los servicios. Si la central es Tandem
el resultado debe ser cero HEn el nivel HT todos los costos estan imputados a las cabeceras ∗L
e1compHTxPixT
radioinvhosttandemxPixT = radioinvhosttandemTOTALxPixT ∗
;
e1compHTTOTALxPixT
radioinvhosttandemalqxA1PixT = radioinvhosttandemTOTALxPixT ∗
e1compalqHTxA1PixT
;
e1compHTTOTALxPixT
radioinvhosttandemalqxB1PixT = radioinvhosttandemTOTALxPixT ∗
e1compalqHTxB1PixT
;
e1compHTTOTALxPixT
radioinvhosttandemalqxC1PixT = radioinvhosttandemTOTALxPixT ∗
radioinvhosttandemalqxLLPixT = radioinvhosttandemTOTALxPixT ∗
radioinvhosttandemalqxLPPixT = radioinvhosttandemTOTALxPixT ∗
radioinvhosttandemalqxASPixT = radioinvhosttandemTOTALxPixT ∗
radioinvhosttandemalqxBSPixT = radioinvhosttandemTOTALxPixT ∗
e1compalqHTxC1PixT
;
e1compHTTOTALxPixT
e1compalqHTxLLPixT
;
e1compHTTOTALxPixT
e1compalqHTxLPPixT
;
e1compHTTOTALxPixT
e1compalqHTxASPixT
;
e1compHTTOTALxPixT
e1compalqHTxBSPixT
;
e1compHTTOTALxPixT
radioinvhosttandemalqxCSPixT = radioinvhosttandemTOTALxPixT ∗
e1compalqHTxCSPixT
;
e1compHTTOTALxPixT
radioinvhosttandemalqxABC2PixT = radioinvhosttandemTOTALxPixT ∗
e1compalqHTxABC2PixT
;
e1compHTTOTALxPixT
radioinvhosttandemalqxABCnopPixT = radioinvhosttandemTOTALxPixT ∗
radioinvhosttandemadslxPixT = radioinvhosttandemTOTALxPixT ∗
radioinvhosttandemitxxPixT = radioinvhosttandemTOTALxPixT ∗
e1compalqHTxABCnopPixT
;
e1compHTTOTALxPixT
e1compadslHTxPixT
;
e1compHTTOTALxPixT
e1compitxHTxPixT
;F;
e1compHTTOTALxPixT
, 8ix, nx<F;
H∗ Estima el nivel de inversión Total e imputable al servicio de Voz. Para ello,
utiliza como factor o proporción imputable el ratio entre las variables
124
Modelo_Integral_ACK.nb
utiliza como factor o proporción imputable el ratio entre las variables
HEspecifica el número de E1s relevante para el servicio de VozL y la variable e1compHTTOTALx
HEspecifica el número de E1s de todos los serviciosL. Si la central es Tandem el resultado
debe ser cero HEn el nivel HT todos los costos estan imputados a las cabeceras ∗L
H∗ Estima el nivel de inversión Total e imputable a cada servicio. Para ello,
utiliza como factor o proporción imputable el ratio entre las variables e1compHTx,
e1compalqHTxA1, e1compalqHTxB1, e1compalqHTxC1,e1compalqHTxLL, e1compalqHTxLP,
e1compalqHTxAS, e1compalqHTxBS, e1compalqHTxCS, e1compalqHTxABC2, e1compalqHTxABCnop,
e1compadslHTx y e1compitxHTx HEspecifica el número de E1s relevante para el servicio de Cada ServicioL
y la variable e1compHTTOTALx HEspecifica el número de E1s de todos los serviciosL. Si la central es
Tandem el resultado debe ser cero HEn el nivel HT todos los costos estan imputados a las cabeceras ∗L
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, hophosttandemxPixT, numtributariosRHTxPixT,
VelocidadRHTxPixT, CosteFijoRHTxPixT, CosteTributariosRHTxPixT, CosteRepetidoresRHTxPixT,
radioinvhosttandemxPixT, radioinvhosttandemalqxA1PixT, radioinvhosttandemalqxB1PixT,
radioinvhosttandemalqxC1PixT, radioinvhosttandemalqxLLPixT, radioinvhosttandemalqxLPPixT,
radioinvhosttandemalqxASPixT, radioinvhosttandemalqxBSPixT, radioinvhosttandemalqxCSPixT,
radioinvhosttandemalqxABC2PixT, radioinvhosttandemalqxABCnopPixT, radioinvhosttandemadslxPixT,
radioinvhosttandemitxxPixT, radioinvhosttandemTOTALxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "hophosttandemx", "numtributariosRHTx", "VelocidadRHTx", "CosteFijoRHTx",
"CosteTributariosRHTx", "CosteRepetidoresRHTx", "radioinvhosttandemx", "radioinvhosttandemalqxA1",
"radioinvhosttandemalqxB1", "radioinvhosttandemalqxC1", "radioinvhosttandemalqxLL",
"radioinvhosttandemalqxLP", "radioinvhosttandemalqxAS", "radioinvhosttandemalqxBS",
"radioinvhosttandemalqxCS", "radioinvhosttandemalqxABC2", "radioinvhosttandemalqxABCnop",
"radioinvhosttandemadslx", "radioinvhosttandemitxx", "radioinvhosttandemTOTALx"<<DD;
PrintBStyleB
"ESTIMACIÓN DE INVERSIONES EN RADIO A NIVEL REMOTA−CABECERA",
16, Bold, White, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
hopremotehostx = zerox;
DoBhopremotehostxPixT = IfBCeilingB
disthostxPixT
hop
F > 1, CeilingB
disthostxPixT
hop
F − 1, 0F;, 8ix, nx<F;
H∗ Estima el número de
Repetidoras: Equivale a la distancia relevante para cada arista entre la distancia máxima que debe existir
entre cada repetidora. Para llegar al número de repetidoras es necesario restar 1 de dicho resultado ∗L
F;
21
H∗ Identifica el número de tributarios por central ∗L
numtributariosRRHx = CeilingB
e1remotehostTOTALx
VelocidadRRHx = zerox;
CosteFijoRRHx = zerox;
CosteTributariosRRHx = zerox;
CosteRepetidoresRRHx = zerox;
Do@If@e1compRHTOTALxPixT ≠ 0,
Do@If@e1compRHTOTALxPixT > TxRadioLimitesPiT, VelocidadRRHxPixT = iD;, 8i, Length@TxRadioLimitesD<D;
If@VelocidadRRHxPixT < Length@TxRadioLimitesD, VelocidadRRHxPixT = VelocidadRRHxPixT + 1D;D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
If@VelocidadRRHxPixT ≠ 0, CosteFijoRRHxPixT = TxRadioCosteFijoPVelocidadRRHxPixTT;
H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L
CosteTributariosRRHxPixT = TxRadioCosteTributarioPVelocidadRRHxPixTT;
H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L
CosteRepetidoresRRHxPixT = TxRadioCosteRepPVelocidadRRHxPixTT ∗ hopremotehostxPixT;D;
H∗ Especifica el costo del equipo repetidor asociado a la velocidad o capacidad requerida∗L
, 8ix, nx<D;
radioinvremotehostx = zerox;
radioinvremotehostalqxA1 = zerox;
radioinvremotehostalqxB1 = zerox;
radioinvremotehostalqxC1 = zerox;
radioinvremotehostalqxLL = zerox;
radioinvremotehostalqxLP = zerox;
radioinvremotehostalqxAS = zerox;
radioinvremotehostalqxBS = zerox;
radioinvremotehostalqxCS = zerox;
radioinvremotehostalqxABC2 = zerox;
radioinvremotehostalqxABCnop = zerox;
radioinvremotehostadslx = zerox;
radioinvremotehostitxx = zerox;
radioinvremotehostTOTALx = zerox;
DoB
IfBe1compRHTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1,
radioinvremotehostTOTALxPixT =
2 CosteFijoRRHxPixT + CosteRepetidoresRRHxPixT + 2 CosteTributariosRRHxPixT ∗ numtributariosRRHxPixT;
H∗ Estima el nivel de inversión Total e imputable a todos los servicios. Si la central es Tandem
el resultado debe ser cero HEn el nivel RH todos los costos estan imputados a las remotasL ∗L
125
Modelo_Integral_ACK.nb
e1compRHxPixT
radioinvremotehostxPixT = radioinvremotehostTOTALxPixT ∗
;
e1compRHTOTALxPixT
radioinvremotehostalqxA1PixT = radioinvremotehostTOTALxPixT ∗
radioinvremotehostalqxB1PixT = radioinvremotehostTOTALxPixT ∗
radioinvremotehostalqxC1PixT = radioinvremotehostTOTALxPixT ∗
radioinvremotehostalqxLLPixT = radioinvremotehostTOTALxPixT ∗
e1compalqRHxA1PixT
;
e1compRHTOTALxPixT
e1compalqRHxB1PixT
;
e1compRHTOTALxPixT
e1compalqRHxC1PixT
;
e1compRHTOTALxPixT
e1compalqRHxLLPixT
;
e1compRHTOTALxPixT
radioinvremotehostalqxLPPixT = radioinvremotehostTOTALxPixT ∗
e1compalqRHxLPPixT
;
e1compRHTOTALxPixT
radioinvremotehostalqxASPixT = radioinvremotehostTOTALxPixT ∗
radioinvremotehostalqxBSPixT = radioinvremotehostTOTALxPixT ∗
radioinvremotehostalqxCSPixT = radioinvremotehostTOTALxPixT ∗
e1compalqRHxASPixT
;
e1compRHTOTALxPixT
e1compalqRHxBSPixT
;
e1compRHTOTALxPixT
e1compalqRHxCSPixT
;
e1compRHTOTALxPixT
radioinvremotehostalqxABC2PixT = radioinvremotehostTOTALxPixT ∗
e1compalqRHxABC2PixT
;
e1compRHTOTALxPixT
radioinvremotehostalqxABCnopPixT = radioinvremotehostTOTALxPixT ∗
e1compalqRHxABCnopPixT
;
e1compRHTOTALxPixT
radioinvremotehostadslxPixT = radioinvremotehostTOTALxPixT ∗
radioinvremotehostitxxPixT = radioinvremotehostTOTALxPixT ∗
e1compadslRHxPixT
;
e1compRHTOTALxPixT
e1compitxRHxPixT
;F;
e1compRHTOTALxPixT
, 8ix, nx<F;
H∗ Estima el nivel de inversión Total e imputable a cada servicio. Para ello,
utiliza como factor o proporción imputable el ratio entre las variables e1compRHx,
e1compalqRHxA1, e1compalqRHxB1, e1compalqRHxC1, e1compalqRHxLL, e1compalqRHxLP,
e1compalqRHxAS, e1compalqRHxBS, e1compalqRHxCS, e1compalqRHxABC2, e1compalqRHxABCnop,
e1compadslRHx y e1compitxRHx HEspecifica el número de E1s relevante para cada servicioL y la variable
e1compRHTOTALx HEspecifica el número de E1s de todos los serviciosL. Si la central es Tandem
el resultado debe ser cero HEn el nivel RH todos los costos estan imputados a las remotasL ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, hopremotehostxPixT, numtributariosRRHxPixT, VelocidadRRHxPixT, CosteFijoRRHxPixT,
CosteTributariosRRHxPixT, CosteRepetidoresRRHxPixT, radioinvremotehostxPixT, radioinvremotehostalqxA1PixT,
radioinvremotehostalqxB1PixT, radioinvremotehostalqxC1PixT, radioinvremotehostalqxLLPixT,
radioinvremotehostalqxLPPixT, radioinvremotehostalqxASPixT, radioinvremotehostalqxBSPixT,
radioinvremotehostalqxCSPixT, radioinvremotehostalqxABC2PixT, radioinvremotehostalqxABCnopPixT,
radioinvremotehostadslxPixT, radioinvremotehostitxxPixT, radioinvremotehostTOTALxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "hopremotehostx", "numtributariosRRHx", "VelocidadRRHx", "CosteFijoRRHx",
"CosteTributariosRRHx", "CosteRepetidoresRRHx", "radioinvremotehostx", "radioinvremotehostalqxA1",
"radioinvremotehostalqxB1", "radioinvremotehostalqxC1", "radioinvremotehostalqxLL",
"radioinvremotehostalqxLP", "radioinvremotehostalqxAS", "radioinvremotehostalqxBS",
"radioinvremotehostalqxCS", "radioinvremotehostalqxABC2", "radioinvremotehostalqxABCnop",
"radioinvremotehostadslx", "radioinvremotehostitxx", "radioinvremotehostTOTALx"<<DD;
CALCULO DE INVERSIÓN EN FIBRA
PrintBStyleB
"CALCULO DEL COSTO POR KM DE FIBRA",
16, Bold, White, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
Print@"TxFibraCosteKmUrban: Fibra Canalizada"D;
TxFibraCosteKmUrban =
TxFibraCosteEmpalme
TxFibraCosteCamara
compfiburb ∗
+ TxFibraCosteCanalizacionKm +
;
TxFibraDistEntreEmpalmesKm
TxFibraDistEntreCamarasKm
Print@TxFibraCosteKmUrbanD;
Print@"TxFibraCosteKmEnterrado: Fibra Enterrada"D;
TxFibraCosteEmpalme
+ TxFibraCosteTrituboKm;
TxFibraCosteKmEnterrado =
TxFibraDistEntreEmpalmesKm
Print@TxFibraCosteKmEnterradoD;
Print@"TxFibraCosteKmAereo: Fibra Aerea"D;
TxFibraCosteKmAereo = 4451.85900092466; H∗Se toma de los preciarios de ACCESS∗L
Print@TxFibraCosteKmAereoD;
PrintBStyleB
"ESTIMACIÓN DE INVERSIONES EN FIBRA A NIVEL CABECERA−TANDEM",
16, Bold, White, Underlined, Background → RGBColorB0,
repfibra2x = FloorB
repfibrax
hopfibra
F + FloorB
SumaCabecerax
60
F;
1
, 0FFF;
2
126
Modelo_Integral_ACK.nb
H∗Se le agrega SumaCabecerax para evitar no incluir los repetidores de cabecera y evitar colocar inexistentes∗L
H∗ Especifica el número de repetidoras de Fibra por tramo ∗L
F;
21
H∗ Identifica el número de tributarios por central ∗L
numtributariosFHTx = CeilingB
e1hosttandemTOTALx
VelocidadFHTx = zerox;
CostePorKmFHTx = zerox;
CosteFijoFHTx = zerox;
CosteTributariosFHTx = zerox;
Do@If@e1compHTTOTALxPixT ≠ 0,
Do@If@e1compHTTOTALxPixT > TxFibraLimitesPiT, VelocidadFHTxPixT = iD;, 8i, Length@TxFibraLimitesD<D;
If@VelocidadFHTxPixT < Length@TxFibraLimitesD, VelocidadFHTxPixT = VelocidadFHTxPixT + 1D;D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
If@transtechxPixT Urbana, CostePorKmFHTxPixT = TxFibraCosteKmUrban;, If@transtechxPixT Enterrado,
CostePorKmFHTxPixT = TxFibraCosteKmEnterrado;, CostePorKmFHTxPixT = TxFibraCosteKmAereo;D;D;
H∗ Especifica el costo asociado a la obra civil dependiendo del tipo de Fibra ∗L
If@VelocidadFHTxPixT ≠ 0, CosteFijoFHTxPixT = TxFibraCosteFijoPVelocidadFHTxPixTT;
H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L
CosteTributariosFHTxPixT = TxFibraCosteTributarioPVelocidadFHTxPixTT;D;
H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L
, 8ix, nx<D;
CosteExtraFHTx = zerox;
CosteExtra2FHTx = zerox;
DoBIfBesAnillodxPAnilloCabecerasPipTT ≠ NA Ï e1compHTTOTALxPAnilloCabecerasPipTT ≠ 0,
CosteExtraFHTxPAnilloCabecerasPipTT =
CosteFijoFHTxPAnilloCabecerasPipTT + CosteTributariosFHTxPAnilloCabecerasPipTT ∗
e1compHTTOTALxPAnilloCabecerasPipTT
CeilingB
21
F ∗
e1hosttandemTOTALxPAnilloCabecerasPipTT
;
e1compHTTOTALxPAnilloCabecerasPipTT
H∗ A nivel HT todos los costos deben ser imputados a las cabeceras no Tandem. En ese sentido,
cuando hay anillo HT, los costos de los equipos de Tx y de los tributarios de cada una de las Tandem
deben ser repartidos entre todas las centrales cabeceras que forman parte del anillo. A cada cabecera
se le agrega entonces una fracción de dichas inversiones, siendo dicha proporción el ratio entre su
contribución a la carga del anillo He1hosttandemTOTALxL y la carga total del anillo He1compHTTOTALxL ∗L
CosteExtra2FHTxPAnilloCabecerasPipTT = costeTerminacionesFibraxPAnilloCabecerasPipTT ∗
e1hosttandemTOTALxPAnilloCabecerasPipTT
;F;
e1compHTTOTALxPAnilloCabecerasPipTT
H∗ A nivel HT todos los costos deben ser imputados a las cabeceras no Tandem. En ese sentido,
cuando hay anillo HT, los costos de las terminaciones de cada una de las Tandem deben ser repartidos
entre todas las centrales cabeceras que forman parte del anillo. A cada cabecera se le agrega
entonces una fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución
a la carga del anillo e1hosttandemTOTALx y la carga total del anillo He1compHTTOTALxL ∗L
, 8ip, np<F;
fiberinvhosttandemx1 = zerox;
fiberinvhosttandemalqx1A1 = zerox;
fiberinvhosttandemalqx1B1 = zerox;
fiberinvhosttandemalqx1C1 = zerox;
fiberinvhosttandemalqx1LL = zerox;
fiberinvhosttandemalqx1LP = zerox;
fiberinvhosttandemalqx1AS = zerox;
fiberinvhosttandemalqx1BS = zerox;
fiberinvhosttandemalqx1CS = zerox;
fiberinvhosttandemalqx1ABC2 = zerox;
fiberinvhosttandemalqx1ABCnop = zerox;
fiberinvhosttandemitxx1 = zerox;
fiberinvhosttandemadslx1 = zerox;
fiberinvhosttandemTOTALx1 = zerox;
DoBIfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1,
fiberinvhosttandemTOTALx1PixT = If@esAnillodxPixT ≠ NA, 1, 2D ∗ CosteFijoFHTxPixT + If@esAnillodxPixT ≠ NA, 1, 2D ∗
CosteTributariosFHTxPixT numtributariosFHTxPixT + CosteFijoFHTxPixT ∗ repfibra2xPixT + CosteExtraFHTxPixT;
H∗ Se estiman los costos asociados a los equipos: Equipo de Tx, Tributarios,
Repetidora y Costo Extra. Notese que en el caso del equipo de Tx y el tributario si la
central cabecera es parte de un anillo sólo considera una unidad de dichos elementos,
mientras que si no son parte del anillo departamental considera dos unidades de cada uno de
ellos. Se asegura que a nivel de centrales Tandem el resultado debe ser siempre cero ∗L
e1compHTxPixT
;
fiberinvhosttandemx1PixT = fiberinvhosttandemTOTALx1PixT ∗
e1compHTTOTALxPixT
fiberinvhosttandemalqx1A1PixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxA1PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx1B1PixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxB1PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx1C1PixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxC1PixT
;
e1compHTTOTALxPixT
127
Modelo_Integral_ACK.nb
fiberinvhosttandemalqx1LLPixT = fiberinvhosttandemTOTALx1PixT ∗
fiberinvhosttandemalqx1LPPixT = fiberinvhosttandemTOTALx1PixT ∗
fiberinvhosttandemalqx1ASPixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxLLPixT
;
e1compHTTOTALxPixT
e1compalqHTxLPPixT
;
e1compHTTOTALxPixT
e1compalqHTxASPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx1BSPixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxBSPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx1CSPixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxCSPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx1ABC2PixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxABC2PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx1ABCnopPixT = fiberinvhosttandemTOTALx1PixT ∗
e1compalqHTxABCnopPixT
;
e1compHTTOTALxPixT
e1compitxHTxPixT
fiberinvhosttandemitxx1PixT = fiberinvhosttandemTOTALx1PixT ∗
;
e1compHTTOTALxPixT
e1compadslHTxPixT
fiberinvhosttandemadslx1PixT = fiberinvhosttandemTOTALx1PixT ∗
;
e1compHTTOTALxPixT
F;
, 8ix, nx<F;
H∗ Luego de sumar los costos, se identifica el costo imputable a cada servicio,
para lo cual se multiplica la inversión total por la fracción de asignanción establecida de cada servicio ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, repfibra2xPixT, numtributariosFHTxPixT, VelocidadFHTxPixT, CosteFijoFHTxPixT,
CosteTributariosFHTxPixT, CosteExtraFHTxPixT, fiberinvhosttandemx1PixT, fiberinvhosttandemalqx1A1PixT,
fiberinvhosttandemalqx1B1PixT, fiberinvhosttandemalqx1C1PixT, fiberinvhosttandemalqx1LLPixT,
fiberinvhosttandemalqx1LPPixT, fiberinvhosttandemalqx1ASPixT, fiberinvhosttandemalqx1BSPixT,
fiberinvhosttandemalqx1CSPixT, fiberinvhosttandemalqx1ABC2PixT, fiberinvhosttandemalqx1ABCnopPixT,
fiberinvhosttandemadslx1PixT, fiberinvhosttandemitxx1PixT, fiberinvhosttandemTOTALx1PixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "repfibra2x", "numtributariosFHTx", "VelocidadFHTx", "CosteFijoFHTx",
"CosteTributariosFHTx", "CosteExtraFHTx", "fiberinvhosttandemx1", "fiberinvhosttandemalqx1A1",
"fiberinvhosttandemalqx1B1", "fiberinvhosttandemalqx1C1", "fiberinvhosttandemalqx1LL",
"fiberinvhosttandemalqx1LP", "fiberinvhosttandemalqx1AS", "fiberinvhosttandemalqx1BS",
"fiberinvhosttandemalqx1CS", "fiberinvhosttandemalqx1ABC2", "fiberinvhosttandemalqx1ABCnop",
"fiberinvhosttandemadslx1", "fiberinvhosttandemitxx1", "fiberinvhosttandemTOTALx1"<<DD;
fiberinvhosttandemx2 = zerox;
fiberinvhosttandemalqx2A1 = zerox;
fiberinvhosttandemalqx2B1 = zerox;
fiberinvhosttandemalqx2C1 = zerox;
fiberinvhosttandemalqx2LL = zerox;
fiberinvhosttandemalqx2LP = zerox;
fiberinvhosttandemalqx2AS = zerox;
fiberinvhosttandemalqx2BS = zerox;
fiberinvhosttandemalqx2CS = zerox;
fiberinvhosttandemalqx2ABC2 = zerox;
fiberinvhosttandemalqx2ABCnop = zerox;
fiberinvhosttandemitxx2 = zerox;
fiberinvhosttandemadslx2 = zerox;
fiberinvhosttandemTOTALx2 = zerox;
DoBIfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1,
fiberinvhosttandemTOTALx2PixT = If@transtechxPixT Urbana, costedelafibraurbKm, If@transtechxPixT Enterrado,
TxFibraCosteCableKm, If@transtechxPixT Aereo, TxFibraCosteCableAereoKm, 0DDD ∗
disttandemxPixT +costeTerminacionesFibraxPixT +CosteExtra2FHTxPixT;
H∗ Se estiman los costos asociados a los cables propiamente dichos HCosto por Km ∗ Distancia en KmsL y
las terminaciones de Fibra. Nótese que si la central usa Fibra canalizada el costo del cable es particular,
para todos los demás casos es un precio estándar. Se asegura que a nivel de centrales Tandem el resultado
debe ser siempre cero ∗Lfiberinvhosttandemx2PixT = fiberinvhosttandemTOTALx2PixT ∗
fiberinvhosttandemalqx2A1PixT = fiberinvhosttandemTOTALx2PixT ∗
fiberinvhosttandemalqx2B1PixT = fiberinvhosttandemTOTALx2PixT ∗
fiberinvhosttandemalqx2C1PixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxA1PixT
;
e1compHTTOTALxPixT
e1compalqHTxB1PixT
;
e1compHTTOTALxPixT
e1compalqHTxC1PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx2LLPixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxLLPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx2LPPixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxLPPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx2ASPixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxASPixT
;
e1compHTTOTALxPixT
e1compHTxPixT
;
e1compHTTOTALxPixT
128
Modelo_Integral_ACK.nb
fiberinvhosttandemalqx2BSPixT = fiberinvhosttandemTOTALx2PixT ∗
fiberinvhosttandemalqx2CSPixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxBSPixT
;
e1compHTTOTALxPixT
e1compalqHTxCSPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx2ABC2PixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxABC2PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx2ABCnopPixT = fiberinvhosttandemTOTALx2PixT ∗
e1compalqHTxABCnopPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemitxx2PixT = fiberinvhosttandemTOTALx2PixT ∗
e1compitxHTxPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemadslx2PixT = fiberinvhosttandemTOTALx2PixT ∗
e1compadslHTxPixT
;F;
e1compHTTOTALxPixT
, 8ix, nx<F;
H∗ Luego, se identifica el costo imputable a cada servicio,
para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, costeTerminacionesFibraxPixT, CosteExtra2FHTxPixT, fiberinvhosttandemx2PixT,
fiberinvhosttandemalqx2A1PixT, fiberinvhosttandemalqx2B1PixT, fiberinvhosttandemalqx2C1PixT,
fiberinvhosttandemalqx2LLPixT, fiberinvhosttandemalqx2LPPixT, fiberinvhosttandemalqx2ASPixT,
fiberinvhosttandemalqx2BSPixT, fiberinvhosttandemalqx2CSPixT, fiberinvhosttandemalqx2ABC2PixT,
fiberinvhosttandemalqx2ABCnopPixT, fiberinvhosttandemadslx2PixT, fiberinvhosttandemitxx2PixT,
fiberinvhosttandemTOTALx2PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "costeTerminacionesFibrax",
"CosteExtra2FHTx", "fiberinvhosttandemx2", "fiberinvhosttandemalqx2A1",
"fiberinvhosttandemalqx2B1", "fiberinvhosttandemalqx2C1", "fiberinvhosttandemalqx2LL",
"fiberinvhosttandemalqx2LP", "fiberinvhosttandemalqx2AS", "fiberinvhosttandemalqx2BS",
"fiberinvhosttandemalqx2CS", "fiberinvhosttandemalqx2ABC2", "fiberinvhosttandemalqx2ABCnop",
"fiberinvhosttandemadslx2", "fiberinvhosttandemitxx2", "fiberinvhosttandemTOTALx2"<<DD;
fiberinvhosttandemx3 = zerox;
fiberinvhosttandemalqx3A1 = zerox;
fiberinvhosttandemalqx3B1 = zerox;
fiberinvhosttandemalqx3C1 = zerox;
fiberinvhosttandemalqx3LL = zerox;
fiberinvhosttandemalqx3LP = zerox;
fiberinvhosttandemalqx3AS = zerox;
fiberinvhosttandemalqx3BS = zerox;
fiberinvhosttandemalqx3CS = zerox;
fiberinvhosttandemalqx3ABC2 = zerox;
fiberinvhosttandemalqx3ABCnop = zerox;
fiberinvhosttandemitxx3 = zerox;
fiberinvhosttandemadslx3 = zerox;
fiberinvhosttandemTOTALx3 = zerox;
DoB
IfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, fiberinvhosttandemTOTALx3PixT = CostePorKmFHTxPixT disttandemxPixT;
H∗ Se estiman los costos asociados a las obras civiles HCosto por Km ∗ DistanciaL.Se
asegura que a nivel de centrales Tandem el resultado debe ser siempre cero ∗L
fiberinvhosttandemx3PixT = fiberinvhosttandemTOTALx3PixT ∗
e1compHTxPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx3A1PixT = fiberinvhosttandemTOTALx3PixT ∗
fiberinvhosttandemalqx3B1PixT = fiberinvhosttandemTOTALx3PixT ∗
fiberinvhosttandemalqx3C1PixT = fiberinvhosttandemTOTALx3PixT ∗
e1compalqHTxA1PixT
;
e1compHTTOTALxPixT
e1compalqHTxB1PixT
;
e1compHTTOTALxPixT
e1compalqHTxC1PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx3LLPixT = fiberinvhosttandemTOTALx3PixT ∗
e1compalqHTxLLPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx3LPPixT = fiberinvhosttandemTOTALx3PixT ∗
fiberinvhosttandemalqx3ASPixT = fiberinvhosttandemTOTALx3PixT ∗
fiberinvhosttandemalqx3BSPixT = fiberinvhosttandemTOTALx3PixT ∗
fiberinvhosttandemalqx3CSPixT = fiberinvhosttandemTOTALx3PixT ∗
e1compalqHTxLPPixT
;
e1compHTTOTALxPixT
e1compalqHTxASPixT
;
e1compHTTOTALxPixT
e1compalqHTxBSPixT
;
e1compHTTOTALxPixT
e1compalqHTxCSPixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx3ABC2PixT = fiberinvhosttandemTOTALx3PixT ∗
e1compalqHTxABC2PixT
;
e1compHTTOTALxPixT
fiberinvhosttandemalqx3ABCnopPixT = fiberinvhosttandemTOTALx3PixT ∗
fiberinvhosttandemitxx3PixT = fiberinvhosttandemTOTALx3PixT ∗
e1compalqHTxABCnopPixT
;
e1compHTTOTALxPixT
e1compitxHTxPixT
;
e1compHTTOTALxPixT
F
129
Modelo_Integral_ACK.nb
fiberinvhosttandemadslx3PixT = fiberinvhosttandemTOTALx3PixT ∗
e1compadslHTxPixT
;F;
e1compHTTOTALxPixT
, 8ix, nx<F;
H∗ Luego se identifica el costo imputable a cada servicio,
para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, CostePorKmFHTxPixT, fiberinvhosttandemx3PixT, fiberinvhosttandemalqx3A1PixT,
fiberinvhosttandemalqx3B1PixT, fiberinvhosttandemalqx3C1PixT, fiberinvhosttandemalqx3LLPixT,
fiberinvhosttandemalqx3LPPixT, fiberinvhosttandemalqx3ASPixT, fiberinvhosttandemalqx3BSPixT,
fiberinvhosttandemalqx3CSPixT, fiberinvhosttandemalqx3ABC2PixT, fiberinvhosttandemalqx3ABCnopPixT,
fiberinvhosttandemadslx3PixT, fiberinvhosttandemitxx3PixT, fiberinvhosttandemTOTALx3PixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "CostePorKmFHTx", "fiberinvhosttandemx3", "fiberinvhosttandemalqx3A1",
"fiberinvhosttandemalqx3B1", "fiberinvhosttandemalqx3C1", "fiberinvhosttandemalqx3LL",
"fiberinvhosttandemalqx3LP", "fiberinvhosttandemalqx3AS", "fiberinvhosttandemalqx3BS",
"fiberinvhosttandemalqx3CS", "fiberinvhosttandemalqx3ABC2", "fiberinvhosttandemalqx3ABCnop",
"fiberinvhosttandemadslx3", "fiberinvhosttandemitxx3", "fiberinvhosttandemTOTALx3"<<DD;
fiberinvhosttandemx = fiberinvhosttandemx1 + fiberinvhosttandemx2 + fiberinvhosttandemx3;
fiberinvhosttandemalqxA1 = fiberinvhosttandemalqx1A1 + fiberinvhosttandemalqx2A1 + fiberinvhosttandemalqx3A1;
fiberinvhosttandemalqxB1 = fiberinvhosttandemalqx1B1 + fiberinvhosttandemalqx2B1 + fiberinvhosttandemalqx3B1;
fiberinvhosttandemalqxC1 = fiberinvhosttandemalqx1C1 + fiberinvhosttandemalqx2C1 + fiberinvhosttandemalqx3C1;
fiberinvhosttandemalqxLL = fiberinvhosttandemalqx1LL + fiberinvhosttandemalqx2LL + fiberinvhosttandemalqx3LL;
fiberinvhosttandemalqxLP = fiberinvhosttandemalqx1LP + fiberinvhosttandemalqx2LP + fiberinvhosttandemalqx3LP;
fiberinvhosttandemalqxAS = fiberinvhosttandemalqx1AS + fiberinvhosttandemalqx2AS + fiberinvhosttandemalqx3AS;
fiberinvhosttandemalqxBS = fiberinvhosttandemalqx1BS + fiberinvhosttandemalqx2BS + fiberinvhosttandemalqx3BS;
fiberinvhosttandemalqxCS = fiberinvhosttandemalqx1CS + fiberinvhosttandemalqx2CS + fiberinvhosttandemalqx3CS;
fiberinvhosttandemalqxABC2 =
fiberinvhosttandemalqx1ABC2 + fiberinvhosttandemalqx2ABC2 + fiberinvhosttandemalqx3ABC2;
fiberinvhosttandemalqxABCnop = fiberinvhosttandemalqx1ABCnop +
fiberinvhosttandemalqx2ABCnop + fiberinvhosttandemalqx3ABCnop;
fiberinvhosttandemitxx = fiberinvhosttandemitxx1 + fiberinvhosttandemitxx2 + fiberinvhosttandemitxx3;
fiberinvhosttandemadslx = fiberinvhosttandemadslx1 + fiberinvhosttandemadslx2 + fiberinvhosttandemadslx3;
fiberinvhosttandemTOTALx = fiberinvhosttandemTOTALx1 + fiberinvhosttandemTOTALx2 + fiberinvhosttandemTOTALx3;
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, fiberinvhosttandemxPixT, fiberinvhosttandemalqxA1PixT,
fiberinvhosttandemalqxB1PixT, fiberinvhosttandemalqxC1PixT, fiberinvhosttandemalqxLLPixT,
fiberinvhosttandemalqxLPPixT, fiberinvhosttandemalqxASPixT, fiberinvhosttandemalqxBSPixT,
fiberinvhosttandemalqxCSPixT, fiberinvhosttandemalqxABC2PixT, fiberinvhosttandemalqxABCnopPixT,
fiberinvhosttandemadslxPixT, fiberinvhosttandemitxxPixT, fiberinvhosttandemTOTALxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "fiberinvhosttandemx", "fiberinvhosttandemalqxA1",
"fiberinvhosttandemalqxB1", "fiberinvhosttandemalqxC1", "fiberinvhosttandemalqxLL",
"fiberinvhosttandemalqxLP", "fiberinvhosttandemalqxAS", "fiberinvhosttandemalqxBS",
"fiberinvhosttandemalqxCS", "fiberinvhosttandemalqxABC2", "fiberinvhosttandemalqxABCnop",
"fiberinvhosttandemadslx", "fiberinvhosttandemitxx", "fiberinvhosttandemTOTALx"<<DD;
PrintBStyleB
"ESTIMACIÓN DE INVERSIONES EN FIBRA A NIVEL REMOTA−CABECERA",
16, Bold, White, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
F;
21
H∗ Identifica el número de tributarios por central ∗L
numtributariosFRHx = CeilingB
e1remotehostTOTALx
VelocidadFRHx = zerox;
CostePorKmFRHx = zerox;
CosteFijoFRHx = zerox;
CosteTributariosFRHx = zerox;
Do@If@e1compRHTOTALxPixT ≠ 0,
Do@If@e1compRHTOTALxPixT > TxFibraLimitesPiT, VelocidadFRHxPixT = iD;, 8i, Length@TxFibraLimitesD<D;
If@VelocidadFRHxPixT < Length@TxFibraLimitesD, VelocidadFRHxPixT = VelocidadFRHxPixT + 1D;D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
If@transtechxPixT Urbana, CostePorKmFRHxPixT = TxFibraCosteKmUrban;, If@transtechxPixT Enterrado,
CostePorKmFRHxPixT = TxFibraCosteKmEnterrado;, CostePorKmFRHxPixT = TxFibraCosteKmAereo;D;D;
H∗ Especifica el costo asociado a la obra civil dependiendo del tipo de Fibra ∗L
If@VelocidadFRHxPixT ≠ 0, CosteFijoFRHxPixT = TxFibraCosteFijoPVelocidadFRHxPixTT;
H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L
CosteTributariosFRHxPixT = TxFibraCosteTributarioPVelocidadFRHxPixTT;D;, 8ix, nx<D;
H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L
CosteExtraFRHx = zerox;
CosteExtra2FRHx = zerox;
DoBIfBesAnillopxPixT 1 Ï e1AnilloTOTALpPprovxPixTT ≠ 0, CosteExtraFRHxPixT =
130
Modelo_Integral_ACK.nb
CosteFijoFRHxPixT + CosteTributariosFRHxPixT ∗ CeilingB
e1AnilloTOTALpPprovxPixTT
21
F ∗
e1remotehostTOTALxPixT
;
e1compRHTOTALxPixT
H∗ A nivel RH todos los costos deben ser imputados a las remotas. En ese sentido, cuando hay anillo RH,
los costos de los equipos de Tx y de los tributarios de cada una de las Cabeceras deben ser repartidos
entre todas las centrales remotas que forman parte del anillo. A cada remota se le agrega entonces
una fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución
a la carga del anillo He1remotehostTOTALxL y la carga total del anillo He1compFRHTOTALxL ∗L
CosteExtra2FRHxPixT = costeTerminacionesFibraxPixT ∗
e1remotehostTOTALxPixT
∗ 0;
e1compRHTOTALxPixT
H∗ A nivel RH todos los costos deben ser imputados a las remotas. En ese sentido, cuando hay anillo RH,
los costos de las terminaciones de cada una de las Cabeceras deben ser repartidos entre todas
las centrales remotas que forman parte del anillo. A cada remota se le agrega entonces una
fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución a
la carga del anillo He1remotehostTOTALxL y la carga total del anillo He1compRHTOTALxL ∗LF;
, 8ix, nx<F;
fiberinvremotehostx1 = zerox;
fiberinvremotehostalqx1A1 = zerox;
fiberinvremotehostalqx1B1 = zerox;
fiberinvremotehostalqx1C1 = zerox;
fiberinvremotehostalqx1LL = zerox;
fiberinvremotehostalqx1LP = zerox;
fiberinvremotehostalqx1AS = zerox;
fiberinvremotehostalqx1BS = zerox;
fiberinvremotehostalqx1CS = zerox;
fiberinvremotehostalqx1ABC2 = zerox;
fiberinvremotehostalqx1ABCnop = zerox;
fiberinvremotehostitxx1 = zerox;
fiberinvremotehostadslx1 = zerox;
fiberinvremotehostTOTALx1 = zerox;
DoBIfBe1compRHTOTALxPixT ≠ 0 Ï host1xPixT ≠ 1,
fiberinvremotehostTOTALx1PixT = If@esAnillopxPixT 1, 1, 2D ∗ CosteFijoFRHxPixT + If@esAnillopxPixT 1, 1, 2D ∗
CosteTributariosFRHxPixT numtributariosFRHxPixT + CosteFijoFRHxPixT repfibra2xPixT + CosteExtraFRHxPixT;
H∗ Se estiman los costos asociados a los equipos: Equipo de Tx, Tributarios,
Repetidora y Costo Extra. Notese que en el caso del equipo de Tx y el tributario si la
central remota es parte de un anillo sólo considera una unidad de dichos elementos,
mientras que si no son parte del anillo provincial considera dos unidades de cada uno de
ellos. Se asegura que a nivel de centrales Host el resultado debe ser siempre cero ∗L
e1compRHxPixT
;
fiberinvremotehostx1PixT = fiberinvremotehostTOTALx1PixT ∗
e1compRHTOTALxPixT
fiberinvremotehostalqx1A1PixT = fiberinvremotehostTOTALx1PixT ∗
fiberinvremotehostalqx1B1PixT = fiberinvremotehostTOTALx1PixT ∗
e1compalqRHxA1PixT
;
e1compRHTOTALxPixT
e1compalqRHxB1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx1C1PixT = fiberinvremotehostTOTALx1PixT ∗
e1compalqRHxC1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx1LLPixT = fiberinvremotehostTOTALx1PixT ∗
fiberinvremotehostalqx1LPPixT = fiberinvremotehostTOTALx1PixT ∗
fiberinvremotehostalqx1ASPixT = fiberinvremotehostTOTALx1PixT ∗
fiberinvremotehostalqx1BSPixT = fiberinvremotehostTOTALx1PixT ∗
e1compalqRHxLLPixT
;
e1compRHTOTALxPixT
e1compalqRHxLPPixT
;
e1compRHTOTALxPixT
e1compalqRHxASPixT
;
e1compRHTOTALxPixT
e1compalqRHxBSPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx1CSPixT = fiberinvremotehostTOTALx1PixT ∗
e1compalqRHxCSPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx1ABC2PixT = fiberinvremotehostTOTALx1PixT ∗
e1compalqRHxABC2PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx1ABCnopPixT = fiberinvremotehostTOTALx1PixT ∗
fiberinvremotehostitxx1PixT = fiberinvremotehostTOTALx1PixT ∗
e1compalqRHxABCnopPixT
;
e1compRHTOTALxPixT
e1compitxRHxPixT
;
e1compRHTOTALxPixT
fiberinvremotehostadslx1PixT = fiberinvremotehostTOTALx1PixT ∗
e1compadslRHxPixT
;F;
e1compRHTOTALxPixT
, 8ix, nx<F;
H∗ Luego se identifica el costo imputable a cada servicio,
para lo cual se multiplica la inversión total por la fracción de asignanción establecida ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, repfibra2xPixT, numtributariosFRHxPixT, VelocidadFRHxPixT, CosteFijoFRHxPixT,
CosteTributariosFRHxPixT, CosteExtraFRHxPixT, fiberinvremotehostx1PixT, fiberinvremotehostalqx1A1PixT,
fiberinvremotehostalqx1B1PixT, fiberinvremotehostalqx1C1PixT, fiberinvremotehostalqx1LLPixT,
fiberinvremotehostalqx1LPPixT, fiberinvremotehostalqx1ASPixT, fiberinvremotehostalqx1BSPixT,
fiberinvremotehostalqx1CSPixT, fiberinvremotehostalqx1ABC2PixT, fiberinvremotehostalqx1ABCnopPixT,
<
D
131
Modelo_Integral_ACK.nb
fiberinvremotehostalqx1CSPixT, fiberinvremotehostalqx1ABC2PixT, fiberinvremotehostalqx1ABCnopPixT,
fiberinvremotehostadslx1PixT, fiberinvremotehostitxx1PixT, fiberinvremotehostTOTALx1PixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "repfibra2x", "numtributariosFRHx", "VelocidadFRHx", "CosteFijoFRHx",
"CosteTributariosFRHx", "CosteExtraFRHx", "fiberinvremotehostx1", "fiberinvremotehostalqx1A1",
"fiberinvremotehostalqx1B1", "fiberinvremotehostalqx1C1", "fiberinvremotehostalqx1LL",
"fiberinvremotehostalqx1LP", "fiberinvremotehostalqx1AS", "fiberinvremotehostalqx1BS",
"fiberinvremotehostalqx1CS", "fiberinvremotehostalqx1ABC2", "fiberinvremotehostalqx1ABCnop",
"fiberinvremotehostadslx1", "fiberinvremotehostitxx1", "fiberinvremotehostTOTALx1"<<DD;
fiberinvremotehostx2 = zerox;
fiberinvremotehostalqx2A1 = zerox;
fiberinvremotehostalqx2B1 = zerox;
fiberinvremotehostalqx2C1 = zerox;
fiberinvremotehostalqx2LL = zerox;
fiberinvremotehostalqx2LP = zerox;
fiberinvremotehostalqx2AS = zerox;
fiberinvremotehostalqx2BS = zerox;
fiberinvremotehostalqx2CS = zerox;
fiberinvremotehostalqx2ABC2 = zerox;
fiberinvremotehostalqx2ABCnop = zerox;
fiberinvremotehostitxx2 = zerox;
fiberinvremotehostadslx2 = zerox;
fiberinvremotehostTOTALx2 = zerox;
DoBIfBe1compRHTOTALxPixT ≠ 0 Ï host1xPixT ≠ 1, fiberinvremotehostTOTALx2PixT =
If@transtechxPixT Urbana, costedelafibraurbKm, If@transtechxPixT Enterrado, TxFibraCosteCableKm, 0DD
disthostxPixT + costeTerminacionesFibraxPixT + CosteExtra2FRHxPixT;
H∗ Se estiman los costos asociados a los cables propiamente dichos HCosto por Km ∗ Distancia en KmsL y
las terminaciones de Fibra. Nótese que si la central usa Fibra canalizada el costo del cable es particular,
para todos los demás casos es un precio estándar. Se asegura que a nivel
de centrales Host el resultado debe ser siempre cero ∗L
e1compRHxPixT
fiberinvremotehostx2PixT = fiberinvremotehostTOTALx2PixT ∗
;
e1compRHTOTALxPixT
fiberinvremotehostalqx2A1PixT = fiberinvremotehostTOTALx2PixT ∗
fiberinvremotehostalqx2B1PixT = fiberinvremotehostTOTALx2PixT ∗
e1compalqRHxA1PixT
;
e1compRHTOTALxPixT
e1compalqRHxB1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx2C1PixT = fiberinvremotehostTOTALx2PixT ∗
e1compalqRHxC1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx2LLPixT = fiberinvremotehostTOTALx2PixT ∗
fiberinvremotehostalqx2LPPixT = fiberinvremotehostTOTALx2PixT ∗
fiberinvremotehostalqx2ASPixT = fiberinvremotehostTOTALx2PixT ∗
fiberinvremotehostalqx2BSPixT = fiberinvremotehostTOTALx2PixT ∗
e1compalqRHxLLPixT
;
e1compRHTOTALxPixT
e1compalqRHxLPPixT
;
e1compRHTOTALxPixT
e1compalqRHxASPixT
;
e1compRHTOTALxPixT
e1compalqRHxBSPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx2CSPixT = fiberinvremotehostTOTALx2PixT ∗
e1compalqRHxCSPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx2ABC2PixT = fiberinvremotehostTOTALx2PixT ∗
e1compalqRHxABC2PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx2ABCnopPixT = fiberinvremotehostTOTALx2PixT ∗
fiberinvremotehostitxx2PixT = fiberinvremotehostTOTALx2PixT ∗
e1compalqRHxABCnopPixT
;
e1compRHTOTALxPixT
e1compitxRHxPixT
;
e1compRHTOTALxPixT
fiberinvremotehostadslx2PixT = fiberinvremotehostTOTALx2PixT ∗
e1compadslRHxPixT
;F;
e1compRHTOTALxPixT
, 8ix, nx<F;
H∗ Luego se identifica el costo imputable a cada servicio,
para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, costeTerminacionesFibraxPixT, CosteExtra2FRHxPixT, fiberinvremotehostx2PixT,
fiberinvremotehostalqx2A1PixT, fiberinvremotehostalqx2B1PixT, fiberinvremotehostalqx2C1PixT,
fiberinvremotehostalqx2LLPixT, fiberinvremotehostalqx2LPPixT, fiberinvremotehostalqx2ASPixT,
fiberinvremotehostalqx2BSPixT, fiberinvremotehostalqx2CSPixT, fiberinvremotehostalqx2ABC2PixT,
fiberinvremotehostalqx2ABCnopPixT, fiberinvremotehostadslx2PixT, fiberinvremotehostitxx2PixT,
fiberinvremotehostTOTALx2PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "costeTerminacionesFibrax",
"CosteExtra2FRHx", "fiberinvremotehostx2", "fiberinvremotehostalqx2A1",
"fiberinvremotehostalqx2B1", "fiberinvremotehostalqx2C1", "fiberinvremotehostalqx2LL",
"fiberinvremotehostalqx2LP", "fiberinvremotehostalqx2AS", "fiberinvremotehostalqx2BS",
"fiberinvremotehostalqx2CS", "fiberinvremotehostalqx2ABC2", "fiberinvremotehostalqx2ABCnop",
"fiberinvremotehostadslx2", "fiberinvremotehostitxx2", "fiberinvremotehostTOTALx2"<<DD;
fiberinvremotehostx3 = zerox;
fiberinvremotehostalqx3A1 = zerox;
132
Modelo_Integral_ACK.nb
fiberinvremotehostalqx3A1 zerox;
fiberinvremotehostalqx3B1 = zerox;
fiberinvremotehostalqx3C1 = zerox;
fiberinvremotehostalqx3LL = zerox;
fiberinvremotehostalqx3LP = zerox;
fiberinvremotehostalqx3ABC2 = zerox;
fiberinvremotehostalqx3AS = zerox;
fiberinvremotehostalqx3BS = zerox;
fiberinvremotehostalqx3CS = zerox;
fiberinvremotehostalqx3ABCnop = zerox;
fiberinvremotehostitxx3 = zerox;
fiberinvremotehostadslx3 = zerox;
fiberinvremotehostTOTALx3 = zerox;
DoBIfBe1compRHTOTALxPixT ≠ 0 Ï host1xPixT ≠ 1, fiberinvremotehostTOTALx3PixT = CostePorKmFRHxPixT disthostxPixT;
H∗ Se estiman los costos asociados a las obras civiles HCosto por Km ∗ DistanciaL. Se
asegura que a nivel de centrales Host el resultado debe ser siempre cero ∗L
e1compRHxPixT
fiberinvremotehostx3PixT = fiberinvremotehostTOTALx3PixT ∗
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3A1PixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxA1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3B1PixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxB1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3C1PixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxC1PixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3LLPixT = fiberinvremotehostTOTALx3PixT ∗
fiberinvremotehostalqx3LPPixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxLLPixT
;
e1compRHTOTALxPixT
e1compalqRHxLPPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3ABC2PixT = fiberinvremotehostTOTALx3PixT ∗
fiberinvremotehostalqx3ASPixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxABC2PixT
;
e1compRHTOTALxPixT
e1compalqRHxASPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3BSPixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxBSPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3CSPixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxCSPixT
;
e1compRHTOTALxPixT
fiberinvremotehostalqx3ABCnopPixT = fiberinvremotehostTOTALx3PixT ∗
fiberinvremotehostitxx3PixT = fiberinvremotehostTOTALx3PixT ∗
e1compalqRHxABCnopPixT
;
e1compRHTOTALxPixT
e1compitxRHxPixT
;
e1compRHTOTALxPixT
fiberinvremotehostadslx3PixT = fiberinvremotehostTOTALx3PixT ∗
e1compadslRHxPixT
;F;
e1compRHTOTALxPixT
, 8ix, nx<F;
H∗ Luego se identifica el costo imputable a cada servicio,
para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L
fiberinvremotehostx = fiberinvremotehostx1 + fiberinvremotehostx2 + fiberinvremotehostx3;
fiberinvremotehostalqxA1 = fiberinvremotehostalqx1A1 + fiberinvremotehostalqx2A1 + fiberinvremotehostalqx3A1;
fiberinvremotehostalqxB1 = fiberinvremotehostalqx1B1 + fiberinvremotehostalqx2B1 + fiberinvremotehostalqx3B1;
fiberinvremotehostalqxC1 = fiberinvremotehostalqx1C1 + fiberinvremotehostalqx2C1 + fiberinvremotehostalqx3C1;
fiberinvremotehostalqxLL = fiberinvremotehostalqx1LL + fiberinvremotehostalqx2LL + fiberinvremotehostalqx3LL;
fiberinvremotehostalqxLP = fiberinvremotehostalqx1LP + fiberinvremotehostalqx2LP + fiberinvremotehostalqx3LP;
fiberinvremotehostalqxAS = fiberinvremotehostalqx1AS + fiberinvremotehostalqx2AS + fiberinvremotehostalqx3AS;
fiberinvremotehostalqxBS = fiberinvremotehostalqx1BS + fiberinvremotehostalqx2BS + fiberinvremotehostalqx3BS;
fiberinvremotehostalqxCS = fiberinvremotehostalqx1CS + fiberinvremotehostalqx2CS + fiberinvremotehostalqx3CS;
fiberinvremotehostalqxABC2 =
fiberinvremotehostalqx1ABC2 + fiberinvremotehostalqx2ABC2 + fiberinvremotehostalqx3ABC2;
fiberinvremotehostalqxABCnop = fiberinvremotehostalqx1ABCnop +
fiberinvremotehostalqx2ABCnop + fiberinvremotehostalqx3ABCnop;
fiberinvremotehostitxx = fiberinvremotehostitxx1 + fiberinvremotehostitxx2 + fiberinvremotehostitxx3;
fiberinvremotehostadslx = fiberinvremotehostadslx1 + fiberinvremotehostadslx2 + fiberinvremotehostadslx3;
fiberinvremotehostTOTALx = fiberinvremotehostTOTALx1 + fiberinvremotehostTOTALx2 + fiberinvremotehostTOTALx3;
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, fiberinvremotehostxPixT, fiberinvremotehostalqxA1PixT,
fiberinvremotehostalqxB1PixT, fiberinvremotehostalqxC1PixT, fiberinvremotehostalqxLLPixT,
fiberinvremotehostalqxLPPixT, fiberinvremotehostalqxASPixT, fiberinvremotehostalqxBSPixT,
fiberinvremotehostalqxCSPixT, fiberinvremotehostalqxABC2PixT, fiberinvremotehostalqxABCnopPixT,
fiberinvremotehostadslxPixT, fiberinvremotehostitxxPixT, fiberinvremotehostTOTALxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "fiberinvremotehostx", "fiberinvremotehostalqxA1",
"fiberinvremotehostalqxB1", "fiberinvremotehostalqxC1", "fiberinvremotehostalqxLL",
"fiberinvremotehostalqxLP", "fiberinvremotehostalqxAS", "fiberinvremotehostalqxBS",
"fiberinvremotehostalqxCS", "fiberinvremotehostalqxABC2", "fiberinvremotehostalqxABCnop",
"fiberinvremotehostadslx", "fiberinvremotehostitxx", "fiberinvremotehostTOTALx"<<DD;
INVERSIÓN COMPILADA
133
Modelo_Integral_ACK.nb
PrintBStyleB
"INVERSIÓN COMPILADA A NIVEL CABECERA−TANDEM",
16, Bold, White, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
CosteAñadidoTrxPorDistanciaHTx = zerox;
CosteAñadidoTrxPorDistanciaalqHTxA1 = zerox;
CosteAñadidoTrxPorDistanciaalqHTxB1 = zerox;
CosteAñadidoTrxPorDistanciaalqHTxC1 = zerox;
CosteAñadidoTrxPorDistanciaalqHTxLL = zerox;
CosteAñadidoTrxPorDistanciaalqHTxLP = zerox;
CosteAñadidoTrxPorDistanciaalqHTxAS = zerox;
CosteAñadidoTrxPorDistanciaalqHTxBS = zerox;
CosteAñadidoTrxPorDistanciaalqHTxCS = zerox;
CosteAñadidoTrxPorDistanciaalqHTxABC2 = zerox;
CosteAñadidoTrxPorDistanciaalqHTxABCnop = zerox;
CosteAñadidoTrxPorDistanciaitxHTx = zerox;
CosteAñadidoTrxPorDistanciaadslHTx = zerox;
CosteAñadidoTrxPorDistanciaHTTOTALx = zerox;
DoBIfBdeptxPixT ≠ LIMA Ï host1xPixT 1 Ï e1compHTTOTALxPixT ≠ 0 Ï transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaHTTOTALxPixT = AñadidoTrxPorKm distance@ix, idinvertxPCentralRefTD;
e1compHTxPixT
CosteAñadidoTrxPorDistanciaHTxPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxA1PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxB1PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compalqHTxA1PixT
;
e1compHTTOTALxPixT
e1compalqHTxB1PixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxC1PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compalqHTxC1PixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxLLPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxLPPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxASPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxBSPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compalqHTxLLPixT
;
e1compHTTOTALxPixT
e1compalqHTxLPPixT
;
e1compHTTOTALxPixT
e1compalqHTxASPixT
;
e1compHTTOTALxPixT
e1compalqHTxBSPixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxCSPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compalqHTxCSPixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxABC2PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compalqHTxABC2PixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaalqHTxABCnopPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
CosteAñadidoTrxPorDistanciaitxHTxPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compalqHTxABCnopPixT
;
e1compHTTOTALxPixT
e1compitxHTxPixT
;
e1compHTTOTALxPixT
CosteAñadidoTrxPorDistanciaadslHTxPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT
e1compadslHTxPixT
;F;
e1compHTTOTALxPixT
, 8ix, nx<F;
H∗ El costo de traslado de los equipos de Tx a
provincias: Si la central no esta en Lima y es remota equivale a la distancia de cada central
hasta la central de referencia en Lima HTandem de LimaL multiplicado por el costo por Km. En
todas las Host entonces el valor es cero. El resultado se multiplica por el respectivo factor
de imputación para estimar el costo de cada servicio. Nótese que si el número de E1s es cero,
entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo,
en todas las remotas e1compHTTOTALx=0,
entonces costo añadido será cero. Conclusión,
a nivel HT todo es cero ∗L
Print@TableForm@
Table@8ix, idxPixT, yPix, 13T, CosteAñadidoTrxPorDistanciaHTxPixT, CosteAñadidoTrxPorDistanciaalqHTxA1PixT,
CosteAñadidoTrxPorDistanciaalqHTxB1PixT, CosteAñadidoTrxPorDistanciaalqHTxC1PixT,
CosteAñadidoTrxPorDistanciaalqHTxLLPixT, CosteAñadidoTrxPorDistanciaalqHTxLPPixT,
CosteAñadidoTrxPorDistanciaalqHTxASPixT, CosteAñadidoTrxPorDistanciaalqHTxBSPixT,
CosteAñadidoTrxPorDistanciaalqHTxCSPixT, CosteAñadidoTrxPorDistanciaalqHTxABC2PixT,
CosteAñadidoTrxPorDistanciaalqHTxABCnopPixT, CosteAñadidoTrxPorDistanciaadslHTxPixT,
CosteAñadidoTrxPorDistanciaitxHTxPixT, CosteAñadidoTrxPorDistanciaHTTOTALxPixT<, 8ix, nx<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"ix", "idx", "Nombre Central", "CosteAñadidoTrxPorDistanciaHTx", "CosteAñadidoTrxPorDistanciaalqHTxA1",
"CosteAñadidoTrxPorDistanciaalqHTxB1", "CosteAñadidoTrxPorDistanciaalqHTxC1",
"CosteAñadidoTrxPorDistanciaalqHTxLL", "CosteAñadidoTrxPorDistanciaalqHTxLP",
"CosteAñadidoTrxPorDistanciaalqHTxAS", "CosteAñadidoTrxPorDistanciaalqHTxBS",
"CosteAñadidoTrxPorDistanciaalqHTxCS", "CosteAñadidoTrxPorDistanciaalqHTxABC2",
"CosteAñadidoTrxPorDistanciaalqHTxABCnop", "CosteAñadidoTrxPorDistanciaadslHTx",
"CosteAñadidoTrxPorDistanciaitxHTx", "CosteAñadidoTrxPorDistanciaHTTOTALx"<<DD;
134
invhosttandemx1 = Table@If@satxPixT, 0, radioinvhosttandemxPixTD, 8ix, nx<D;
invhosttandemLocx1 = zerox;
invhosttandemLDNx1 = zerox;
invhosttandemLDIx1 = zerox;
invhosttandemalqx1A1 = Table@If@satxPixT, 0, radioinvhosttandemalqxA1PixTD, 8ix, nx<D;
invhosttandemalqx1B1 = Table@If@satxPixT, 0, radioinvhosttandemalqxB1PixTD, 8ix, nx<D;
invhosttandemalqx1C1 = Table@If@satxPixT, 0, radioinvhosttandemalqxC1PixTD, 8ix, nx<D;
invhosttandemalqx1LL = Table@If@satxPixT, 0, radioinvhosttandemalqxLLPixTD, 8ix, nx<D;
invhosttandemalqx1LP = Table@If@satxPixT, 0, radioinvhosttandemalqxLPPixTD, 8ix, nx<D;
invhosttandemalqx1AS = Table@If@satxPixT, 0, radioinvhosttandemalqxASPixTD, 8ix, nx<D;
invhosttandemalqx1BS = Table@If@satxPixT, 0, radioinvhosttandemalqxBSPixTD, 8ix, nx<D;
invhosttandemalqx1CS = Table@If@satxPixT, 0, radioinvhosttandemalqxCSPixTD, 8ix, nx<D;
invhosttandemalqx1ABC2 = Table@If@satxPixT, 0, radioinvhosttandemalqxABC2PixTD, 8ix, nx<D;
invhosttandemalqx1ABCnop = Table@If@satxPixT, 0, radioinvhosttandemalqxABCnopPixTD, 8ix, nx<D;
invhosttandemitxx1 = Table@If@satxPixT, 0, radioinvhosttandemitxxPixTD, 8ix, nx<D;
invhosttandemadslx1 = Table@If@satxPixT, 0, radioinvhosttandemadslxPixTD, 8ix, nx<D;
invhosttandemTOTALx1 = Table@If@satxPixT, 0, radioinvhosttandemTOTALxPixTD, 8ix, nx<D;
H∗ Compila o resume el total de inversiones a nivel de equipos a nivel HT imputable a todos los
servicios. Lo que manda es la tecnología de Tx de la Tandem. Inicialmente, si la Tandem no es satelital,
el nivel de inversión válido para cada una de las centrales del departamento será radioinvhosttandemTOTALx,
radioinvhosttandemx, radioinvhosttandemalqxA1, radioinvhosttandemalqxB1, radioinvhosttandemalqxC1,
radioinvhosttandemalqxLL, radioinvhosttandemalqxLP, radioinvhosttandemalqxAS, radioinvhosttandemalqxBS,
radioinvhosttandemalqxCS, radioinvhosttandemalqxABC2, radioinvhosttandemalqxABCnop,
radioinvhosttandemitxx, radioinvhosttandemadslx. Dependiendo de cada caso∗L
Modelo_Integral_ACK.nb
DoBIfBfiberxPixT,
invhosttandemTOTALx1PixT = fiberinvhosttandemTOTALx1PixT;
invhosttandemx1PixT = fiberinvhosttandemx1PixT;
IfBloadcompHTxPixT > 0,
invhosttandemLocx1PixT = invhosttandemx1PixT
invhosttandemLDNx1PixT = invhosttandemx1PixT
invhosttandemLDIx1PixT = invhosttandemx1PixT
loadcompHTLocxPixT
;
loadcompHTxPixT
loadcompHTLDNxPixT
;
loadcompHTxPixT
loadcompHTLDIxPixT
;F;
loadcompHTxPixT
H∗ Compila o resume el total de inversiones a nivel
de equipos a nivel HT imputable a los servicios Local, LDN y LDI de Voz. ∗L
invhosttandemalqx1A1PixT = fiberinvhosttandemalqx1A1PixT;
invhosttandemalqx1B1PixT = fiberinvhosttandemalqx1B1PixT;
invhosttandemalqx1C1PixT = fiberinvhosttandemalqx1C1PixT;
invhosttandemalqx1LLPixT = fiberinvhosttandemalqx1LLPixT;
invhosttandemalqx1LPPixT = fiberinvhosttandemalqx1LPPixT;
invhosttandemalqx1ASPixT = fiberinvhosttandemalqx1ASPixT;
invhosttandemalqx1BSPixT = fiberinvhosttandemalqx1BSPixT;
invhosttandemalqx1CSPixT = fiberinvhosttandemalqx1CSPixT;
invhosttandemalqx1ABC2PixT = fiberinvhosttandemalqx1ABC2PixT;
invhosttandemalqx1ABCnopPixT = fiberinvhosttandemalqx1ABCnopPixT;
invhosttandemitxx1PixT = fiberinvhosttandemitxx1PixT;
invhosttandemadslx1PixT = fiberinvhosttandemadslx1PixT;F;
H∗ Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las
centrales del departamento será en cada caso: fiberinvhosttandemTOTALx1, fiberinvhosttandemx1,
fiberinvhosttandemalqx1A1, fiberinvhosttandemalqx1B1, fiberinvhosttandemalqx1C1, fiberinvhosttandemalqx1LL,
fiberinvhosttandemalqx1LP, fiberinvhosttandemalqx1AS, fiberinvhosttandemalqx1BS,
fiberinvhosttandemalqx1CS, fiberinvhosttandemalqx1ABC2, fiberinvhosttandemalqx1ABCnop,
fiberinvhosttandemitxx1, fiberinvhosttandemadslx1 dependiendo de cada servicio ∗L
invhosttandemTOTALx1PixT = invhosttandemTOTALx1PixT + CosteAñadidoTrxPorDistanciaHTTOTALxPixT;
invhosttandemx1PixT = invhosttandemx1PixT + CosteAñadidoTrxPorDistanciaHTxPixT;
invhosttandemalqx1A1PixT = invhosttandemalqx1A1PixT + CosteAñadidoTrxPorDistanciaalqHTxA1PixT;
invhosttandemalqx1B1PixT = invhosttandemalqx1B1PixT + CosteAñadidoTrxPorDistanciaalqHTxB1PixT;
invhosttandemalqx1C1PixT = invhosttandemalqx1C1PixT + CosteAñadidoTrxPorDistanciaalqHTxC1PixT;
invhosttandemalqx1LLPixT = invhosttandemalqx1LLPixT + CosteAñadidoTrxPorDistanciaalqHTxLLPixT;
invhosttandemalqx1LPPixT = invhosttandemalqx1LPPixT + CosteAñadidoTrxPorDistanciaalqHTxLPPixT;
invhosttandemalqx1ASPixT = invhosttandemalqx1ASPixT + CosteAñadidoTrxPorDistanciaalqHTxASPixT;
invhosttandemalqx1BSPixT = invhosttandemalqx1BSPixT + CosteAñadidoTrxPorDistanciaalqHTxBSPixT;
invhosttandemalqx1CSPixT = invhosttandemalqx1CSPixT + CosteAñadidoTrxPorDistanciaalqHTxCSPixT;
invhosttandemalqx1ABC2PixT = invhosttandemalqx1ABC2PixT + CosteAñadidoTrxPorDistanciaalqHTxABC2PixT;
invhosttandemalqx1ABCnopPixT = invhosttandemalqx1ABCnopPixT + CosteAñadidoTrxPorDistanciaalqHTxABCnopPixT;
invhosttandemitxx1PixT = invhosttandemitxx1PixT + CosteAñadidoTrxPorDistanciaitxHTxPixT;
invhosttandemadslx1PixT = invhosttandemadslx1PixT + CosteAñadidoTrxPorDistanciaadslHTxPixT;
, 8ix, nx<F;
H∗ Luego, identificado el nivel de inversión a tomar en cuenta en cada central,
se añade el costo añadido el traslado de los equipos desde Lima a provincias ∗L
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemx1PixT, invhosttandemLocx1PixT, invhosttandemLDNx1PixT,
invhosttandemLDIx1PixT, invhosttandemalqx1A1PixT, invhosttandemalqx1B1PixT, invhosttandemalqx1C1PixT,
invhosttandemalqx1LLPixT, invhosttandemalqx1LPPixT, invhosttandemalqx1ASPixT, invhosttandemalqx1BSPixT,
invhosttandemalqx1CSPixT, invhosttandemalqx1ABC2PixT, invhosttandemalqx1ABCnopPixT, invhosttandemadslx1PixT,
invhosttandemitxx1PixT, invhosttandemTOTALx1PixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
135
invhosttandemitxx1PixT, invhosttandemTOTALx1PixT<, 8ix, nx<D, TableDirections 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx1",
"invhosttandemLocx1", "invhosttandemLDNx1", "invhosttandemLDIx1", "invhosttandemalqx1A1",
"invhosttandemalqx1B1", "invhosttandemalqx1C1", "invhosttandemalqx1LL", "invhosttandemalqx1LP",
"invhosttandemalqx1AS", "invhosttandemalqx1BS", "invhosttandemalqx1CS", "invhosttandemalqx1ABC2",
"invhosttandemalqx1ABCnop", "invhosttandemadslx1", "invhosttandemitxx1", "invhosttandemTOTALx1"<<DD;
Modelo_Integral_ACK.nb
invhosttandemd1 = zerod;
invhosttandemLocd1 = zerod;
invhosttandemLDNd1 = zerod;
invhosttandemLDId1 = zerod;
invhosttandemalqd1A1 = zerod;
invhosttandemalqd1B1 = zerod;
invhosttandemalqd1C1 = zerod;
invhosttandemalqd1LL = zerod;
invhosttandemalqd1LP = zerod;
invhosttandemalqd1AS = zerod;
invhosttandemalqd1BS = zerod;
invhosttandemalqd1CS = zerod;
invhosttandemalqd1ABC2 = zerod;
invhosttandemalqd1ABCnop = zerod;
invhosttandemitxd1 = zerod;
invhosttandemadsld1 = zerod;
invhosttandemTOTALd1 = zerod;
Do@
invhosttandemd1PdeptxPixTT = invhosttandemd1PdeptxPixTT + invhosttandemx1PixT;
invhosttandemLocd1PdeptxPixTT = invhosttandemLocd1PdeptxPixTT + invhosttandemLocx1PixT;
invhosttandemLDNd1PdeptxPixTT = invhosttandemLDNd1PdeptxPixTT + invhosttandemLDNx1PixT;
invhosttandemLDId1PdeptxPixTT = invhosttandemLDId1PdeptxPixTT + invhosttandemLDIx1PixT;
invhosttandemalqd1A1PdeptxPixTT = invhosttandemalqd1A1PdeptxPixTT + invhosttandemalqx1A1PixT;
invhosttandemalqd1B1PdeptxPixTT = invhosttandemalqd1B1PdeptxPixTT + invhosttandemalqx1B1PixT;
invhosttandemalqd1C1PdeptxPixTT = invhosttandemalqd1C1PdeptxPixTT + invhosttandemalqx1C1PixT;
invhosttandemalqd1LLPdeptxPixTT = invhosttandemalqd1LLPdeptxPixTT + invhosttandemalqx1LLPixT;
invhosttandemalqd1LPPdeptxPixTT = invhosttandemalqd1LPPdeptxPixTT + invhosttandemalqx1LPPixT;
invhosttandemalqd1ASPdeptxPixTT = invhosttandemalqd1ASPdeptxPixTT + invhosttandemalqx1ASPixT;
invhosttandemalqd1BSPdeptxPixTT = invhosttandemalqd1BSPdeptxPixTT + invhosttandemalqx1BSPixT;
invhosttandemalqd1CSPdeptxPixTT = invhosttandemalqd1CSPdeptxPixTT + invhosttandemalqx1CSPixT;
invhosttandemalqd1ABC2PdeptxPixTT = invhosttandemalqd1ABC2PdeptxPixTT + invhosttandemalqx1ABC2PixT;
invhosttandemalqd1ABCnopPdeptxPixTT = invhosttandemalqd1ABCnopPdeptxPixTT + invhosttandemalqx1ABCnopPixT;
invhosttandemitxd1PdeptxPixTT = invhosttandemitxd1PdeptxPixTT + invhosttandemitxx1PixT;
invhosttandemadsld1PdeptxPixTT = invhosttandemadsld1PdeptxPixTT + invhosttandemadslx1PixT;
invhosttandemTOTALd1PdeptxPixTT = invhosttandemTOTALd1PdeptxPixTT + invhosttandemTOTALx1PixT;
, 8ix, nx<D;
H∗ Acumula a nivel departamental las variables invhosttandemx1, invhosttandemLocx1, invhosttandemLDNx1,
invhosttandemLDIx1, invhosttandemalqx1A1, invhosttandemalqx1B1, invhosttandemalqx1C1,
invhosttandemalqx1LL, invhosttandemalqx1LP, invhosttandemalqx1AS, invhosttandemalqx1BS,
invhosttandemalqx1CS, invhosttandemalqx1ABC2, invhosttandemalqx1ABCnop, invhosttandemitxx1,
invhosttandemadslx1 y invhosttandemTOTALx1 imputable a cada uno de los servicios ∗L
Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemd1PidT, invhosttandemLocd1PidT, invhosttandemLDNd1PidT,
invhosttandemLDId1PidT, invhosttandemalqd1A1PidT, invhosttandemalqd1B1PidT, invhosttandemalqd1C1PidT,
invhosttandemalqd1LLPidT, invhosttandemalqd1LPPidT, invhosttandemalqd1ASPidT, invhosttandemalqd1BSPidT,
invhosttandemalqd1CSPidT, invhosttandemalqd1ABC2PidT, invhosttandemalqd1ABCnopPidT, invhosttandemadsld1PidT,
invhosttandemitxd1PidT, invhosttandemTOTALd1PidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd1",
"invhosttandemLocd1", "invhosttandemLDNd1", "invhosttandemLDId1", "invhosttandemalqd1A1",
"invhosttandemalqd1B1", "invhosttandemalqd1C1", "invhosttandemalqd1LL", "invhosttandemalqd1LP",
"invhosttandemalqd1AS", "invhosttandemalqd1BS", "invhosttandemalqd1CS", "invhosttandemalqd1ABC2",
"invhosttandemalqd1ABCnop", "invhosttandemadsld1", "invhosttandemitxd1", "invhosttandemTOTALd1"<<DD;
invhosttandemx2 = zerox;
invhosttandemLocx2 = zerox;
invhosttandemLDNx2 = zerox;
invhosttandemLDIx2 = zerox;
invhosttandemalqx2A1 = zerox;
invhosttandemalqx2B1 = zerox;
invhosttandemalqx2C1 = zerox;
invhosttandemalqx2LL = zerox;
invhosttandemalqx2LP = zerox;
invhosttandemalqx2AS = zerox;
invhosttandemalqx2BS = zerox;
invhosttandemalqx2CS = zerox;
invhosttandemalqx2ABC2 = zerox;
invhosttandemalqx2ABCnop = zerox;
invhosttandemitxx2 = zerox;
invhosttandemadslx2 = zerox;
invhosttandemTOTALx2 = zerox;
DoBIfBfiberxPixT,
invhosttandemx2PixT = fiberinvhosttandemx2PixT;
P
136
T
P
T
Modelo_Integral_ACK.nb
IfBloadcompHTxPixT > 0,
invhosttandemLocx2PixT = invhosttandemx2PixT
loadcompHTLocxPixT
;
loadcompHTxPixT
invhosttandemLDNx2PixT = invhosttandemx2PixT
invhosttandemLDIx2PixT = invhosttandemx2PixT
loadcompHTLDNxPixT
;
loadcompHTxPixT
loadcompHTLDIxPixT
;F;
loadcompHTxPixT
H∗ Compila o resume el total de inversiones aplicable a los cables imputable a los servicios Local,
LDN y LDI de Voz. Como dicha información sólo es aplicable para el uso de fibra,
en todos los demás casos es cero ∗L
invhosttandemalqx2A1PixT = fiberinvhosttandemalqx2A1PixT;
invhosttandemalqx2B1PixT = fiberinvhosttandemalqx2B1PixT;
invhosttandemalqx2C1PixT = fiberinvhosttandemalqx2C1PixT;
invhosttandemalqx2LLPixT = fiberinvhosttandemalqx2LLPixT;
invhosttandemalqx2LPPixT = fiberinvhosttandemalqx2LPPixT;
invhosttandemalqx2ASPixT = fiberinvhosttandemalqx2ASPixT;
invhosttandemalqx2BSPixT = fiberinvhosttandemalqx2BSPixT;
invhosttandemalqx2CSPixT = fiberinvhosttandemalqx2CSPixT;
invhosttandemalqx2ABC2PixT = fiberinvhosttandemalqx2ABC2PixT;
invhosttandemalqx2ABCnopPixT = fiberinvhosttandemalqx2ABCnopPixT;
invhosttandemitxx2PixT = fiberinvhosttandemitxx2PixT;
invhosttandemadslx2PixT = fiberinvhosttandemadslx2PixT;
invhosttandemTOTALx2PixT = fiberinvhosttandemTOTALx2PixT;F;
, 8ix, nx<F;
H∗ Compila o resume el total de inversiones aplicable a los cables imputable
a cada servicio. Como dicha información sólo es aplicable para el uso de fibra,
simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvhosttandemx2,
fiberinvhosttandemalqx2A1, fiberinvhosttandemalqx2B1, fiberinvhosttandemalqx2C1, fiberinvhosttandemalqx2LL,
fiberinvhosttandemalqx2LP, fiberinvhosttandemalqx2AS, fiberinvhosttandemalqx2BS, fiberinvhosttandemalqx2CS,
fiberinvhosttandemalqx2ABC2, fiberinvhosttandemalqx2ABCnop, fiberinvhosttandemitxx2,
fiberinvhosttandemadslx2 o fiberinvhosttandemTOTALx2 según sea el caso, en todos los demás casos es cero ∗L
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemx2PixT, invhosttandemLocx2PixT, invhosttandemLDNx2PixT,
invhosttandemLDIx2PixT, invhosttandemalqx2A1PixT, invhosttandemalqx2B1PixT, invhosttandemalqx2C1PixT,
invhosttandemalqx2LLPixT, invhosttandemalqx2LPPixT, invhosttandemalqx2ASPixT, invhosttandemalqx2BSPixT,
invhosttandemalqx2CSPixT, invhosttandemalqx2ABC2PixT, invhosttandemalqx2ABCnopPixT, invhosttandemadslx2PixT,
invhosttandemitxx2PixT, invhosttandemTOTALx2PixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx2",
"invhosttandemLocx2", "invhosttandemLDNx2", "invhosttandemLDIx2", "invhosttandemalqx2A1",
"invhosttandemalqx2B1", "invhosttandemalqx2C1", "invhosttandemalqx2LL", "invhosttandemalqx2LP",
"invhosttandemalqx2AS", "invhosttandemalqx2BS", "invhosttandemalqx2CS", "invhosttandemalqx2ABC2",
"invhosttandemalqx2ABCnop", "invhosttandemadslx2", "invhosttandemitxx2", "invhosttandemTOTALx2"<<DD;
invhosttandemd2 = zerod;
invhosttandemLocd2 = zerod;
invhosttandemLDNd2 = zerod;
invhosttandemLDId2 = zerod;
invhosttandemalqd2A1 = zerod;
invhosttandemalqd2B1 = zerod;
invhosttandemalqd2C1 = zerod;
invhosttandemalqd2LL = zerod;
invhosttandemalqd2LP = zerod;
invhosttandemalqd2AS = zerod;
invhosttandemalqd2BS = zerod;
invhosttandemalqd2CS = zerod;
invhosttandemalqd2ABC2 = zerod;
invhosttandemalqd2ABCnop = zerod;
invhosttandemitxd2 = zerod;
invhosttandemadsld2 = zerod;
invhosttandemTOTALd2 = zerod;
Do@
invhosttandemd2PdeptxPixTT = invhosttandemd2PdeptxPixTT + invhosttandemx2PixT;
invhosttandemLocd2PdeptxPixTT = invhosttandemLocd2PdeptxPixTT + invhosttandemLocx2PixT;
invhosttandemLDNd2PdeptxPixTT = invhosttandemLDNd2PdeptxPixTT + invhosttandemLDNx2PixT;
invhosttandemLDId2PdeptxPixTT = invhosttandemLDId2PdeptxPixTT + invhosttandemLDIx2PixT;
invhosttandemalqd2A1PdeptxPixTT = invhosttandemalqd2A1PdeptxPixTT + invhosttandemalqx2A1PixT;
invhosttandemalqd2B1PdeptxPixTT = invhosttandemalqd2B1PdeptxPixTT + invhosttandemalqx2B1PixT;
invhosttandemalqd2C1PdeptxPixTT = invhosttandemalqd2C1PdeptxPixTT + invhosttandemalqx2C1PixT;
invhosttandemalqd2LLPdeptxPixTT = invhosttandemalqd2LLPdeptxPixTT + invhosttandemalqx2LLPixT;
invhosttandemalqd2LPPdeptxPixTT = invhosttandemalqd2LPPdeptxPixTT + invhosttandemalqx2LPPixT;
invhosttandemalqd2ASPdeptxPixTT = invhosttandemalqd2ASPdeptxPixTT + invhosttandemalqx2ASPixT;
invhosttandemalqd2BSPdeptxPixTT = invhosttandemalqd2BSPdeptxPixTT + invhosttandemalqx2BSPixT;
invhosttandemalqd2CSPdeptxPixTT = invhosttandemalqd2CSPdeptxPixTT + invhosttandemalqx2CSPixT;
invhosttandemalqd2ABC2PdeptxPixTT = invhosttandemalqd2ABC2PdeptxPixTT + invhosttandemalqx2ABC2PixT;
invhosttandemalqd2ABCnopPdeptxPixTT = invhosttandemalqd2ABCnopPdeptxPixTT + invhosttandemalqx2ABCnopPixT;
invhosttandemitxd2PdeptxPixTT = invhosttandemitxd2PdeptxPixTT + invhosttandemitxx2PixT;
invhosttandemadsld2PdeptxPixTT = invhosttandemadsld2PdeptxPixTT + invhosttandemadslx2PixT;
137
invhosttandemadsld2PdeptxPixTT invhosttandemadsld2PdeptxPixTT invhosttandemadslx2PixT;
invhosttandemTOTALd2PdeptxPixTT = invhosttandemTOTALd2PdeptxPixTT + invhosttandemTOTALx2PixT;
, 8ix, nx<D;
H∗ Acumula a nivel departamental las variables invhosttandemx2, invhosttandemLocx2, invhosttandemLDNx2,
invhosttandemLDIx2, invhosttandemalqx2A1, invhosttandemalqx2B1, invhosttandemalqx2C1,
invhosttandemalqx2LL, invhosttandemalqx2LP, invhosttandemalqx2AS, invhosttandemalqx2BS,
invhosttandemalqx2CS, invhosttandemalqx2ABC2, invhosttandemalqx2ABCnop, invhosttandemitxx2,
invhosttandemadslx2 y invhosttandemTOTALx2 imputable a cada uno de los servicios ∗L
Modelo_Integral_ACK.nb
Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemd2PidT, invhosttandemLocd2PidT, invhosttandemLDNd2PidT,
invhosttandemLDId2PidT, invhosttandemalqd2A1PidT, invhosttandemalqd2B1PidT, invhosttandemalqd2C1PidT,
invhosttandemalqd2LLPidT, invhosttandemalqd2LPPidT, invhosttandemalqd2ASPidT, invhosttandemalqd2BSPidT,
invhosttandemalqd2CSPidT, invhosttandemalqd2ABC2PidT, invhosttandemalqd2ABCnopPidT, invhosttandemadsld2PidT,
invhosttandemitxd2PidT, invhosttandemTOTALd2PidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd2",
"invhosttandemLocd2", "invhosttandemLDNd2", "invhosttandemLDId2", "invhosttandemalqd2A1",
"invhosttandemalqd2B1", "invhosttandemalqd2C1", "invhosttandemalqd2LL", "invhosttandemalqd2LP",
"invhosttandemalqd2AS", "invhosttandemalqd2BS", "invhosttandemalqd2CS", "invhosttandemalqd2ABC2",
"invhosttandemalqd2ABCnop", "invhosttandemadsld2", "invhosttandemitxd2", "invhosttandemTOTALd2"<<DD;
invhosttandemx3 = zerox;
invhosttandemLocx3 = zerox;
invhosttandemLDNx3 = zerox;
invhosttandemLDIx3 = zerox;
invhosttandemalqx3A1 = zerox;
invhosttandemalqx3B1 = zerox;
invhosttandemalqx3C1 = zerox;
invhosttandemalqx3LL = zerox;
invhosttandemalqx3LP = zerox;
invhosttandemalqx3AS = zerox;
invhosttandemalqx3BS = zerox;
invhosttandemalqx3CS = zerox;
invhosttandemalqx3ABC2 = zerox;
invhosttandemalqx3ABCnop = zerox;
invhosttandemitxx3 = zerox;
invhosttandemadslx3 = zerox;
invhosttandemTOTALx3 = zerox;
DoBIfBfiberxPixT,
invhosttandemx3PixT = fiberinvhosttandemx3PixT;
IfBloadcompHTxPixT > 0,
invhosttandemLocx3PixT = invhosttandemx3PixT
invhosttandemLDNx3PixT = invhosttandemx3PixT
invhosttandemLDIx3PixT = invhosttandemx3PixT
loadcompHTLocxPixT
;
loadcompHTxPixT
loadcompHTLDNxPixT
;
loadcompHTxPixT
loadcompHTLDIxPixT
;F;
loadcompHTxPixT
H∗ Compila o resume el total de inversiones aplicable a obras civiles imputable a los servicios Local,
LDN y LDI de Voz. Como dicha información sólo es aplicable para el uso de fibra,
en todos los demás casos es cero ∗L
invhosttandemalqx3A1PixT = fiberinvhosttandemalqx3A1PixT;
invhosttandemalqx3B1PixT = fiberinvhosttandemalqx3B1PixT;
invhosttandemalqx3C1PixT = fiberinvhosttandemalqx3C1PixT;
invhosttandemalqx3LLPixT = fiberinvhosttandemalqx3LLPixT;
invhosttandemalqx3LPPixT = fiberinvhosttandemalqx3LPPixT;
invhosttandemalqx3ASPixT = fiberinvhosttandemalqx3ASPixT;
invhosttandemalqx3BSPixT = fiberinvhosttandemalqx3BSPixT;
invhosttandemalqx3CSPixT = fiberinvhosttandemalqx3CSPixT;
invhosttandemalqx3ABC2PixT = fiberinvhosttandemalqx3ABC2PixT;
invhosttandemalqx3ABCnopPixT = fiberinvhosttandemalqx3ABCnopPixT;
invhosttandemitxx3PixT = fiberinvhosttandemitxx3PixT;
invhosttandemadslx3PixT = fiberinvhosttandemadslx3PixT;
invhosttandemTOTALx3PixT = fiberinvhosttandemTOTALx3PixT;F;
, 8ix, nx<F;
H∗ Compila o resume el total de inversiones aplicable a obras civiles imputable
a cada servicio. Como dicha información sólo es aplicable para el uso de fibra,
simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvhosttandemx3,
fiberinvhosttandemalqx3A1, fiberinvhosttandemalqx3B1, fiberinvhosttandemalqx3C1,
fiberinvhosttandemalqx3LL, fiberinvhosttandemalqx3LP, fiberinvhosttandemalqx3AS,
fiberinvhosttandemalqx3BS, fiberinvhosttandemalqx3CS, fiberinvhosttandemalqx3ABC2,
fiberinvhosttandemalqx3ABCnop, fiberinvhosttandemitxx3, fiberinvhosttandemadslx3,
fiberinvhosttandemTOTALx3, según sea el caso, en todos los demás casos es cero ∗L
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemx3PixT, invhosttandemLocx3PixT, invhosttandemLDNx3PixT,
invhosttandemLDIx3PixT, invhosttandemalqx3A1PixT, invhosttandemalqx3B1PixT, invhosttandemalqx3C1PixT,
invhosttandemalqx3LLPixT, invhosttandemalqx3LPPixT, invhosttandemalqx3ASPixT, invhosttandemalqx3BSPixT,
invhosttandemalqx3CSPixT, invhosttandemalqx3ABC2PixT, invhosttandemalqx3ABCnopPixT, invhosttandemadslx3PixT,
invhosttandemitxx3PixT, invhosttandemTOTALx3PixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx3",
138
TableSpacing 80, 1<, TableHeadings 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx3",
"invhosttandemLocx3", "invhosttandemLDNx3", "invhosttandemLDIx3", "invhosttandemalqx3A1",
"invhosttandemalqx3B1", "invhosttandemalqx3C1", "invhosttandemalqx3LL", "invhosttandemalqx3LP",
"invhosttandemalqx3AS", "invhosttandemalqx3BS", "invhosttandemalqx3CS", "invhosttandemalqx3ABC2",
"invhosttandemalqx3ABCnop", "invhosttandemadslx3", "invhosttandemitxx3", "invhosttandemTOTALx3"<<DD;
Modelo_Integral_ACK.nb
invhosttandemd3 = zerod;
invhosttandemLocd3 = zerod;
invhosttandemLDNd3 = zerod;
invhosttandemLDId3 = zerod;
invhosttandemalqd3A1 = zerod;
invhosttandemalqd3B1 = zerod;
invhosttandemalqd3C1 = zerod;
invhosttandemalqd3LL = zerod;
invhosttandemalqd3LP = zerod;
invhosttandemalqd3AS = zerod;
invhosttandemalqd3BS = zerod;
invhosttandemalqd3CS = zerod;
invhosttandemalqd3ABC2 = zerod;
invhosttandemalqd3ABCnop = zerod;
invhosttandemitxd3 = zerod;
invhosttandemadsld3 = zerod;
invhosttandemTOTALd3 = zerod;
Do@
invhosttandemd3PdeptxPixTT = invhosttandemd3PdeptxPixTT + invhosttandemx3PixT;
invhosttandemLocd3PdeptxPixTT = invhosttandemLocd3PdeptxPixTT + invhosttandemLocx3PixT;
invhosttandemLDNd3PdeptxPixTT = invhosttandemLDNd3PdeptxPixTT + invhosttandemLDNx3PixT;
invhosttandemLDId3PdeptxPixTT = invhosttandemLDId3PdeptxPixTT + invhosttandemLDIx3PixT;
invhosttandemalqd3A1PdeptxPixTT = invhosttandemalqd3A1PdeptxPixTT + invhosttandemalqx3A1PixT;
invhosttandemalqd3B1PdeptxPixTT = invhosttandemalqd3B1PdeptxPixTT + invhosttandemalqx3B1PixT;
invhosttandemalqd3C1PdeptxPixTT = invhosttandemalqd3C1PdeptxPixTT + invhosttandemalqx3C1PixT;
invhosttandemalqd3LLPdeptxPixTT = invhosttandemalqd3LLPdeptxPixTT + invhosttandemalqx3LLPixT;
invhosttandemalqd3LPPdeptxPixTT = invhosttandemalqd3LPPdeptxPixTT + invhosttandemalqx3LPPixT;
invhosttandemalqd3ASPdeptxPixTT = invhosttandemalqd3ASPdeptxPixTT + invhosttandemalqx3ASPixT;
invhosttandemalqd3BSPdeptxPixTT = invhosttandemalqd3BSPdeptxPixTT + invhosttandemalqx3BSPixT;
invhosttandemalqd3CSPdeptxPixTT = invhosttandemalqd3CSPdeptxPixTT + invhosttandemalqx3CSPixT;
invhosttandemalqd3ABC2PdeptxPixTT = invhosttandemalqd3ABC2PdeptxPixTT + invhosttandemalqx3ABC2PixT;
invhosttandemalqd3ABCnopPdeptxPixTT = invhosttandemalqd3ABCnopPdeptxPixTT + invhosttandemalqx3ABCnopPixT;
invhosttandemitxd3PdeptxPixTT = invhosttandemitxd3PdeptxPixTT + invhosttandemitxx3PixT;
invhosttandemadsld3PdeptxPixTT = invhosttandemadsld3PdeptxPixTT + invhosttandemadslx3PixT;
invhosttandemTOTALd3PdeptxPixTT = invhosttandemTOTALd3PdeptxPixTT + invhosttandemTOTALx3PixT;
, 8ix, nx<D;
H∗ Acumula a nivel departamental las variables invhosttandemx3, invhosttandemLocx3, invhosttandemLDNx3,
invhosttandemLDIx3, invhosttandemalqx3A1, invhosttandemalqx3B1, invhosttandemalqx3C1,
invhosttandemalqx3LL, invhosttandemalqx3LP, invhosttandemalqx3AS, invhosttandemalqx3BS,
invhosttandemalqx3CS, invhosttandemalqx3ABC2, invhosttandemalqx3ABCnop, invhosttandemitxx3,
invhosttandemadslx3 y invhosttandemTOTALx3 imputable a cada uno de los servicios ∗L
Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemd3PidT, invhosttandemLocd3PidT, invhosttandemLDNd3PidT,
invhosttandemLDId3PidT, invhosttandemalqd3A1PidT, invhosttandemalqd3B1PidT, invhosttandemalqd3C1PidT,
invhosttandemalqd3LLPidT, invhosttandemalqd3LPPidT, invhosttandemalqd3ASPidT, invhosttandemalqd3BSPidT,
invhosttandemalqd3CSPidT, invhosttandemalqd3ABC2PidT, invhosttandemalqd3ABCnopPidT, invhosttandemadsld3PidT,
invhosttandemitxd3PidT, invhosttandemTOTALd3PidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd3",
"invhosttandemLocd3", "invhosttandemLDNd3", "invhosttandemLDId3", "invhosttandemalqd3A1",
"invhosttandemalqd3B1", "invhosttandemalqd3C1", "invhosttandemalqd3LL", "invhosttandemalqd3LP",
"invhosttandemalqd3AS", "invhosttandemalqd3BS", "invhosttandemalqd3CS", "invhosttandemalqd3ABC2",
"invhosttandemalqd3ABCnop", "invhosttandemadsld3", "invhosttandemitxd3", "invhosttandemTOTALd3"<<DD;
invhosttandemx = invhosttandemx1 + invhosttandemx2 + invhosttandemx3;
invhosttandemLocx = invhosttandemLocx1 + invhosttandemLocx2 + invhosttandemLocx3;
invhosttandemLDNx = invhosttandemLDNx1 + invhosttandemLDNx2 + invhosttandemLDNx3;
invhosttandemLDIx = invhosttandemLDIx1 + invhosttandemLDIx2 + invhosttandemLDIx3;
invhosttandemalqxA1 = invhosttandemalqx1A1 + invhosttandemalqx2A1 + invhosttandemalqx3A1;
invhosttandemalqxB1 = invhosttandemalqx1B1 + invhosttandemalqx2B1 + invhosttandemalqx3B1;
invhosttandemalqxC1 = invhosttandemalqx1C1 + invhosttandemalqx2C1 + invhosttandemalqx3C1;
invhosttandemalqxLL = invhosttandemalqx1LL + invhosttandemalqx2LL + invhosttandemalqx3LL;
invhosttandemalqxLP = invhosttandemalqx1LP + invhosttandemalqx2LP + invhosttandemalqx3LP;
invhosttandemalqxAS = invhosttandemalqx1AS + invhosttandemalqx2AS + invhosttandemalqx3AS;
invhosttandemalqxBS = invhosttandemalqx1BS + invhosttandemalqx2BS + invhosttandemalqx3BS;
invhosttandemalqxCS = invhosttandemalqx1CS + invhosttandemalqx2CS + invhosttandemalqx3CS;
invhosttandemalqxABC2 = invhosttandemalqx1ABC2 + invhosttandemalqx2ABC2 + invhosttandemalqx3ABC2;
invhosttandemalqxABCnop = invhosttandemalqx1ABCnop + invhosttandemalqx2ABCnop + invhosttandemalqx3ABCnop;
invhosttandemitxx = invhosttandemitxx1 + invhosttandemitxx2 + invhosttandemitxx3;
invhosttandemadslx = invhosttandemadslx1 + invhosttandemadslx2 + invhosttandemadslx3;
invhosttandemTOTALx = invhosttandemTOTALx1 + invhosttandemTOTALx2 + invhosttandemTOTALx3;
H∗ Total de inversiones en Tx a nivel HT imputable a cada servicio ∗L
Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemxPixT, invhosttandemLocxPixT, invhosttandemLDNxPixT,
invhosttandemLDIxPixT, invhosttandemalqxA1PixT, invhosttandemalqxB1PixT, invhosttandemalqxC1PixT,
139
Modelo_Integral_ACK.nb
invhosttandemLDIxPixT, invhosttandemalqxA1PixT, invhosttandemalqxB1PixT, invhosttandemalqxC1PixT,
invhosttandemalqxLLPixT, invhosttandemalqxLPPixT, invhosttandemalqxASPixT, invhosttandemalqxBSPixT,
invhosttandemalqxCSPixT, invhosttandemalqxABC2PixT, invhosttandemalqxABCnopPixT, invhosttandemadslxPixT,
invhosttandemitxxPixT, invhosttandemTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx",
"invhosttandemLocx", "invhosttandemLDNx", "invhosttandemLDIx", "invhosttandemalqxA1",
"invhosttandemalqxB1", "invhosttandemalqxC1", "invhosttandemalqxLL", "invhosttandemalqxLP",
"invhosttandemalqxAS", "invhosttandemalqxBS", "invhosttandemalqxCS", "invhosttandemalqxABC2",
"invhosttandemalqxABCnop", "invhosttandemadslx", "invhosttandemitxx", "invhosttandemTOTALx"<<DD;
invhosttandemd = zerod;
invhosttandemLocd = zerod;
invhosttandemLDNd = zerod;
invhosttandemLDId = zerod;
invhosttandemalqdA1 = zerod;
invhosttandemalqdB1 = zerod;
invhosttandemalqdC1 = zerod;
invhosttandemalqdLL = zerod;
invhosttandemalqdLP = zerod;
invhosttandemalqdAS = zerod;
invhosttandemalqdBS = zerod;
invhosttandemalqdCS = zerod;
invhosttandemalqdABC2 = zerod;
invhosttandemalqdABCnop = zerod;
invhosttandemitxd = zerod;
invhosttandemadsld = zerod;
invhosttandemTOTALd = zerod;
Do@
invhosttandemdPdeptxPixTT = invhosttandemdPdeptxPixTT + invhosttandemxPixT;
invhosttandemLocdPdeptxPixTT = invhosttandemLocdPdeptxPixTT + invhosttandemLocxPixT;
invhosttandemLDNdPdeptxPixTT = invhosttandemLDNdPdeptxPixTT + invhosttandemLDNxPixT;
invhosttandemLDIdPdeptxPixTT = invhosttandemLDIdPdeptxPixTT + invhosttandemLDIxPixT;
invhosttandemalqdA1PdeptxPixTT = invhosttandemalqdA1PdeptxPixTT + invhosttandemalqxA1PixT;
invhosttandemalqdB1PdeptxPixTT = invhosttandemalqdB1PdeptxPixTT + invhosttandemalqxB1PixT;
invhosttandemalqdC1PdeptxPixTT = invhosttandemalqdC1PdeptxPixTT + invhosttandemalqxC1PixT;
invhosttandemalqdLLPdeptxPixTT = invhosttandemalqdLLPdeptxPixTT + invhosttandemalqxLLPixT;
invhosttandemalqdLPPdeptxPixTT = invhosttandemalqdLPPdeptxPixTT + invhosttandemalqxLPPixT;
invhosttandemalqdASPdeptxPixTT = invhosttandemalqdASPdeptxPixTT + invhosttandemalqxASPixT;
invhosttandemalqdBSPdeptxPixTT = invhosttandemalqdBSPdeptxPixTT + invhosttandemalqxBSPixT;
invhosttandemalqdCSPdeptxPixTT = invhosttandemalqdCSPdeptxPixTT + invhosttandemalqxCSPixT;
invhosttandemalqdABC2PdeptxPixTT = invhosttandemalqdABC2PdeptxPixTT + invhosttandemalqxABC2PixT;
invhosttandemalqdABCnopPdeptxPixTT = invhosttandemalqdABCnopPdeptxPixTT + invhosttandemalqxABCnopPixT;
invhosttandemitxdPdeptxPixTT = invhosttandemitxdPdeptxPixTT + invhosttandemitxxPixT;
invhosttandemadsldPdeptxPixTT = invhosttandemadsldPdeptxPixTT + invhosttandemadslxPixT;
invhosttandemTOTALdPdeptxPixTT = invhosttandemTOTALdPdeptxPixTT + invhosttandemTOTALxPixT;
, 8ix, nx<D;
H∗ Acumula a nivel departamental las variables invhosttandemx, invhosttandemLocx,
invhosttandemLDNx, invhosttandemLDIx, invhosttandemalqxA1, invhosttandemalqxB1, invhosttandemalqxC1,
invhosttandemalqxLL, invhosttandemalqxLP, invhosttandemalqxAS, invhosttandemalqxBS,
invhosttandemalqxCS, invhosttandemalqxABC2, invhosttandemalqxABCnop, invhosttandemitxx,
invhosttandemadslx y invhosttandemTOTALx imputable a cada uno de los servicios ∗L
Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemdPidT, invhosttandemLocdPidT, invhosttandemLDNdPidT,
invhosttandemLDIdPidT, invhosttandemalqdA1PidT, invhosttandemalqdB1PidT, invhosttandemalqdC1PidT,
invhosttandemalqdLLPidT, invhosttandemalqdLPPidT, invhosttandemalqdASPidT, invhosttandemalqdBSPidT,
invhosttandemalqdCSPidT, invhosttandemalqdABC2PidT, invhosttandemalqdABCnopPidT, invhosttandemadsldPidT,
invhosttandemitxdPidT, invhosttandemTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd",
"invhosttandemLocd", "invhosttandemLDNd", "invhosttandemLDId", "invhosttandemalqdA1",
"invhosttandemalqdB1", "invhosttandemalqdC1", "invhosttandemalqdLL", "invhosttandemalqdLP",
"invhosttandemalqdAS", "invhosttandemalqdBS", "invhosttandemalqdCS", "invhosttandemalqdABC2",
"invhosttandemalqdABCnop", "invhosttandemadsld", "invhosttandemitxd", "invhosttandemTOTALd"<<DD;
invhosttandem = Plus @@ invhosttandemd;
invhosttandemLoc = Plus @@ invhosttandemLocd;
invhosttandemLDN = Plus @@ invhosttandemLDNd;
invhosttandemLDI = Plus @@ invhosttandemLDId;
invhosttandemalqA1 = Plus @@ invhosttandemalqdA1;
invhosttandemalqB1 = Plus @@ invhosttandemalqdB1;
invhosttandemalqC1 = Plus @@ invhosttandemalqdC1;
invhosttandemalqLL = Plus @@ invhosttandemalqdLL;
invhosttandemalqLP = Plus @@ invhosttandemalqdLP;
invhosttandemalqAS = Plus @@ invhosttandemalqdAS;
invhosttandemalqBS = Plus @@ invhosttandemalqdBS;
invhosttandemalqCS = Plus @@ invhosttandemalqdCS;
invhosttandemalqABC2 = Plus @@ invhosttandemalqdABC2;
invhosttandemalqABCnop = Plus @@ invhosttandemalqdABCnop;
invhosttandemitx = Plus @@ invhosttandemitxd;
invhosttandemadsl = Plus @@ invhosttandemadsld;
invhosttandemTOTAL = Plus @@ invhosttandemTOTALd;
140
Modelo_Integral_ACK.nb
invhosttandemTOTAL Plus
invhosttandemTOTALd;
H∗ Total de inversiones en Tx a nivel HT a nivel nacional imputable a cada uno de los servicios ∗L
Print@TableForm@8invhosttandem, invhosttandemLoc, invhosttandemLDN, invhosttandemLDI, invhosttandemalqA1,
invhosttandemalqB1, invhosttandemalqC1, invhosttandemalqLL, invhosttandemalqLP, invhosttandemalqAS,
invhosttandemalqBS, invhosttandemalqCS, invhosttandemalqABC2, invhosttandemalqABCnop, invhosttandemadsl,
invhosttandemitx, invhosttandemTOTAL<, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"invhosttandem", "invhosttandemLoc", "invhosttandemLDN", "invhosttandemLDI",
"invhosttandemalqA1", "invhosttandemalqB1", "invhosttandemalqC1", "invhosttandemalqLL", "invhosttandemalqLP",
"invhosttandemalqAS", "invhosttandemalqBS", "invhosttandemalqCS", "invhosttandemalqABC2",
"invhosttandemalqABCnop", "invhosttandemadsl", "invhosttandemitx", "invhosttandemTOTAL"<<DD;
PrintBStyleB
"INVERSIÓN POR SERVICIO − HOST TANDEM",
16, Bold, White, Underlined, Background → BlueFF;
Resinvhosttandemx = Table@0, 8jx, nx<, 8ix, 13<D;
Do@ResinvhosttandemxPix, 1T = invhosttandemxPixT;
ResinvhosttandemxPix, 2T = invhosttandemalqxA1PixT;
ResinvhosttandemxPix, 3T = invhosttandemalqxB1PixT;
ResinvhosttandemxPix, 4T = invhosttandemalqxC1PixT;
ResinvhosttandemxPix, 5T = invhosttandemalqxLLPixT;
ResinvhosttandemxPix, 6T = invhosttandemalqxLPPixT;
ResinvhosttandemxPix, 7T = invhosttandemalqxASPixT;
ResinvhosttandemxPix, 8T = invhosttandemalqxBSPixT;
ResinvhosttandemxPix, 9T = invhosttandemalqxCSPixT;
ResinvhosttandemxPix, 10T = invhosttandemalqxABC2PixT;
ResinvhosttandemxPix, 11T = invhosttandemalqxABCnopPixT;
ResinvhosttandemxPix, 12T = invhosttandemitxxPixT;
ResinvhosttandemxPix, 13T = invhosttandemadslxPixT;, 8ix, nx<D;
Print@TableForm@ResinvhosttandemxDD;
PRINT["INVERSIÓN
COMPILADA A NIVEL REMOTA-CABECERA"]
Print["CosteAñadidoTrxPorDistanciaRHx"]
CosteAñadidoTrxPorDistanciaRHx=zerox;
Do[If[deptxPixT≠ LIMA fl host1xPixT0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaRHxPixT=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaRHxPixT=CosteAñadidoTrxPorDistanciaRHx[[ix]]*
If[e1compRHTOTALxPixT≠0 fl host1xPixT≠1,(e1compRHx[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaRHx]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Voz. Nótese que si el número de E1s es cero, entonces se
multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0,
entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxA1"]
CosteAñadidoTrxPorDistanciaalqRHxA1=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxA1[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxA1]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Rango A. Nótese que si el número de E1s es cero,
entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxB1"]
CosteAñadidoTrxPorDistanciaalqRHxB1=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxB1[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxB1]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Rango B. Nótese que si el número de E1s es cero,
entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxC1"]
CosteAñadidoTrxPorDistanciaalqRHxC1=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxC1[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxC1]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
141
Modelo_Integral_ACK.nb
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Rango C. Nótese que si el número de E1s es cero,
entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxLL"]
CosteAñadidoTrxPorDistanciaalqRHxLL=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxLL[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxLL]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Local Lima. Nótese que si el número de E1s es cero,
entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxLP"]
CosteAñadidoTrxPorDistanciaalqRHxLP=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxLP[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxLP]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Local Provincias. Nótese que si el número de E1s es
cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxAS"]
CosteAñadidoTrxPorDistanciaalqRHxAS=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxAS[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxAS]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Rango A Satelital. Nótese que si el número de E1s es
cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxBS"]
CosteAñadidoTrxPorDistanciaalqRHxBS=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxBS[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxBS]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Rango B Satelital. Nótese que si el número de E1s es
cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxCS"]
CosteAñadidoTrxPorDistanciaalqRHxCS=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxCS[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxCS]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos Rango C Satelital. Nótese que si el número de E1s es
cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxABC2"]
CosteAñadidoTrxPorDistanciaalqRHxABC2=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxABC2[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxABC2]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
142
Modelo_Integral_ACK.nb
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Otros Circuitos Rango A, B y C. Nótese que si el número de E1s
es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaalqRHxABCnop"]
CosteAñadidoTrxPorDistanciaalqRHxABCnop=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxABCnop[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaalqRHxABCnop]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos de No Operadores. Nótese que si el número de E1s es
cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaitxRHx"]
CosteAñadidoTrxPorDistanciaitxRHx=zerox;
Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaitxRHx[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]];
CosteAñadidoTrxPorDistanciaitxRHx[[ix]]=CosteAñadidoTrxPorDistanciaitxRHx[[ix]]*
If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compitxRHx[[ix]]/e1compRHTOTALx[[ix]]),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaitxRHx]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de Circuitos de Interconexión. Nótese que si el número de E1s es
cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras
e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaadslRHx"]
CosteAñadidoTrxPorDistanciaadslRHx=zerox;
Do[If[deptxPixT≠ LIMA fl host1xPixT0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaadslRHxPixT=AñadidoTrxPorKm*distance[ix,idinvertxPCentralRefT];
CosteAñadidoTrxPorDistanciaadslRHxPixT=CosteAñadidoTrxPorDistanciaadslRHxPixT*
If[e1compRHTOTALxPixT≠0 fl host1xPixT≠1,(e1compadslRHxPixT/e1compRHTOTALxPixT),0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaadslRHx]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo del servicio de ADSL. Nótese que si el número de E1s es cero, entonces se
multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0,
entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["CosteAñadidoTrxPorDistanciaRHTOTALx"]
CosteAñadidoTrxPorDistanciaRHTOTALx=zerox;
Do[If[deptxPixT≠ LIMA fl host1xPixT0fl transtechxPixT ≠ Radio,
CosteAñadidoTrxPorDistanciaRHTOTALxPixT=AñadidoTrxPorKm*distance[ix,idinvertxPCentralRefT];
CosteAñadidoTrxPorDistanciaRHTOTALxPixT=CosteAñadidoTrxPorDistanciaRHTOTALxPixT*If[e1compRHTOTALxPixT≠0 fl
host1xPixT≠1,1,0];];
,{ix,nx}];
Print[CosteAñadidoTrxPorDistanciaRHTOTALx]
(* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a
la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo
por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de
imputación para estimar el costo de todos los servicios. Nótese que si el número de E1s es cero, entonces se
multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0,
entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *)
Print["invremotehostx1"]
invremotehostx1=radioinvremotehostx;
Do[If[fiberx[[ix]],invremotehostx1[[ix]]=fiberinvremotehostx1[[ix]]],{ix,nx}]
Do[invremotehostx1[[ix]]=invremotehostx1[[ix]]+CosteAñadidoTrxPorDistanciaRHx[[ix]];,{ix,nx}];
Print[invremotehostx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Voz. Utiliza
la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será
radioinvremotehostx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales
del departamento será fiberinvremotehostx1. Luego, identificado el nivel de inversión a tomar en cuenta en cada
central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostLocx1"]
invremotehostLocx1=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLocx1[[ix]]=invremotehostx1[[ix]]*loadcompRHLocx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}];
Print[invremotehostLocx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio Local de Voz. *)
Print["invremotehostLDNx1"]
invremotehostLDNx1=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLDNx1[[ix]]=invremotehostx1[[ix]]*loadcompRHLDNx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}];
Print[invremotehostLDNx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio LDN de Voz. *)
Print["invremotehostLDIx1"]
143
Modelo_Integral_ACK.nb
invremotehostLDIx1=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLDIx1[[ix]]=invremotehostx1[[ix]]*loadcompRHLDIx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}];
Print[invremotehostLDIx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio LDI de Voz. *)
Print["invremotehostalqx1A1"]
invremotehostalqx1A1=radioinvremotehostalqxA1;
Do[If[fiberx[[ix]],invremotehostalqx1A1[[ix]]=fiberinvremotehostalqx1A1[[ix]]],{ix,nx}]
Do[invremotehostalqx1A1[[ix]]=invremotehostalqx1A1[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]];,{ix,nx}];
Print[invremotehostalqx1A1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Rango A. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxA1. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1A1. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1B1"]
invremotehostalqx1B1=radioinvremotehostalqxB1;
Do[If[fiberx[[ix]],invremotehostalqx1B1[[ix]]=fiberinvremotehostalqx1B1[[ix]]],{ix,nx}]
Do[invremotehostalqx1B1[[ix]]=invremotehostalqx1B1[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]];,{ix,nx}];
Print[invremotehostalqx1B1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Rango B. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxB1. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1B1. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1C1"]
invremotehostalqx1C1=radioinvremotehostalqxC1;
Do[If[fiberx[[ix]],invremotehostalqx1C1[[ix]]=fiberinvremotehostalqx1C1[[ix]]],{ix,nx}]
Do[invremotehostalqx1C1[[ix]]=invremotehostalqx1C1[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]];,{ix,nx}];
Print[invremotehostalqx1C1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Rango C. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxC1. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1C1. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1LL"]
invremotehostalqx1LL=radioinvremotehostalqxLL;
Do[If[fiberx[[ix]],invremotehostalqx1LL[[ix]]=fiberinvremotehostalqx1LL[[ix]]],{ix,nx}]
Do[invremotehostalqx1LL[[ix]]=invremotehostalqx1LL[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]];,{ix,nx}];
Print[invremotehostalqx1LL]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Local Lima. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxLL. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1LL. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1LP"]
invremotehostalqx1LP=radioinvremotehostalqxLP;
Do[If[fiberx[[ix]],invremotehostalqx1LP[[ix]]=fiberinvremotehostalqx1LP[[ix]]],{ix,nx}]
Do[invremotehostalqx1LP[[ix]]=invremotehostalqx1LP[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]];,{ix,nx}];
Print[invremotehostalqx1LP]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Local Provincias. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxLP. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1LP. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1AS"]
invremotehostalqx1AS=radioinvremotehostalqxAS;
Do[If[fiberx[[ix]],invremotehostalqx1AS[[ix]]=fiberinvremotehostalqx1AS[[ix]]],{ix,nx}]
Do[invremotehostalqx1AS[[ix]]=invremotehostalqx1AS[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]];,{ix,nx}];
Print[invremotehostalqx1AS]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Rango A Satelital. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxAS. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1AS. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1BS"]
invremotehostalqx1BS=radioinvremotehostalqxBS;
Do[If[fiberx[[ix]],invremotehostalqx1BS[[ix]]=fiberinvremotehostalqx1BS[[ix]]],{ix,nx}]
Do[invremotehostalqx1BS[[ix]]=invremotehostalqx1BS[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]];,{ix,nx}];
Print[invremotehostalqx1BS]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Rango B Satelital. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxBS. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostalqx1BS. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1CS"]
invremotehostalqx1CS=radioinvremotehostalqxCS;
Do[If[fiberx[[ix]],invremotehostalqx1CS[[ix]]=fiberinvremotehostalqx1CS[[ix]]],{ix,nx}]
Do[invremotehostalqx1CS[[ix]]=invremotehostalqx1CS[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]];,{ix,nx}];
Print[invremotehostalqx1CS]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos
Rango C Satelital. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxCS. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
144
Modelo_Integral_ACK.nb
una de las centrales del departamento será fiberinvremotehostalqx1CS. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostalqx1ABC2"]
invremotehostalqx1ABC2=radioinvremotehostalqxABC2;
Do[If[fiberx[[ix]],invremotehostalqx1ABC2[[ix]]=fiberinvremotehostalqx1ABC2[[ix]]],{ix,nx}]
Do[invremotehostalqx1ABC2[[ix]]=invremotehostalqx1ABC2[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]];,{ix,nx}]
;
Print[invremotehostalqx1ABC2]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Otros
Circuitos Rango A, B y C. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las
centrales del departamento será radioinvremotehostalqxABC2. Luego, si la Tandem es Fibra, el nivel de inversión
válido para cada una de las centrales del departamento será fiberinvremotehostalqx1ABC2. Luego, identificado el
nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde
Lima a provincias *)
Print["invremotehostalqx1ABCnop"]
invremotehostalqx1ABCnop=radioinvremotehostalqxABCnop;
Do[If[fiberx[[ix]],invremotehostalqx1ABCnop[[ix]]=fiberinvremotehostalqx1ABCnop[[ix]]],{ix,nx}]
Do[invremotehostalqx1ABCnop[[ix]]=invremotehostalqx1ABCnop[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]];,{i
x,nx}];
Print[invremotehostalqx1ABCnop]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos de
No Operadores. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostalqxB1nop. Luego, si la Tandem es Fibra, el nivel de inversión válido para
cada una de las centrales del departamento será fiberinvremotehostalqx1B1nop. Luego, identificado el nivel de
inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a
provincias *)
Print["invremotehostitxx1"]
invremotehostitxx1=radioinvremotehostitxx;
Do[If[fiberx[[ix]],invremotehostitxx1[[ix]]=fiberinvremotehostitxx1[[ix]]],{ix,nx}]
Do[invremotehostitxx1[[ix]]=invremotehostitxx1[[ix]]+CosteAñadidoTrxPorDistanciaitxRHx[[ix]];,{ix,nx}];
Print[invremotehostitxx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos de
Interconexión. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del
departamento será radioinvremotehostitxx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada
una de las centrales del departamento será fiberinvremotehostitxx1. Luego, identificado el nivel de inversión a
tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostadslx1"]
invremotehostadslx1=radioinvremotehostadslx;
Do[If[fiberx[[ix]],invremotehostadslx1[[ix]]=fiberinvremotehostadslx1[[ix]]],{ix,nx}]
Do[invremotehostadslx1[[ix]]=invremotehostadslx1[[ix]]+CosteAñadidoTrxPorDistanciaadslRHx[[ix]];,{ix,nx}];
Print[invremotehostadslx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de ADSL. Utiliza
la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será
radioinvremotehostadslx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las
centrales del departamento será fiberinvremotehostadslx1. Luego, identificado el nivel de inversión a tomar en
cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostTOTALx1"]
invremotehostTOTALx1=radioinvremotehostTOTALx;
Do[If[fiberx[[ix]],invremotehostTOTALx1[[ix]]=fiberinvremotehostTOTALx1[[ix]]],{ix,nx}]
Do[invremotehostTOTALx1[[ix]]=invremotehostTOTALx1[[ix]]+CosteAñadidoTrxPorDistanciaRHTOTALx[[ix]];,{ix,nx}];
Print[invremotehostTOTALx1]
(* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable a todos los servicios.
Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será
radioinvremotehostTOTALx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las
centrales del departamento será fiberinvremotehostTOTALx1. Luego, identificado el nivel de inversión a tomar en
cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *)
Print["invremotehostd1"]
invremotehostd1=zerod;
Do[invremotehostd1[[deptx[[ix]]]]=invremotehostd1[[deptx[[ix]]]]+invremotehostx1[[ix]],{ix,nx}]
Print[invremotehostd1]
(* Acumula a nivel departamental la variable invremotehostx1 imputable al servicio de Voz *)
Print["invremotehostLocd1"]
invremotehostLocd1=zerod;
Do[invremotehostLocd1[[deptx[[ix]]]]=invremotehostLocd1[[deptx[[ix]]]]+invremotehostLocx1[[ix]],{ix,nx}]
Print[invremotehostLocd1]
(* Acumula a nivel departamental la variable invremotehostLocx1 imputable al servicio Local de Voz *)
Print["invremotehostLDNd1"]
invremotehostLDNd1=zerod;
Do[invremotehostLDNd1[[deptx[[ix]]]]=invremotehostLDNd1[[deptx[[ix]]]]+invremotehostLDNx1[[ix]],{ix,nx}]
Print[invremotehostLDNd1]
(* Acumula a nivel departamental la variable invremotehostLDNx1 imputable al servicio LDN de Voz *)
Print["invremotehostLDId1"]
invremotehostLDId1=zerod;
Do[invremotehostLDId1[[deptx[[ix]]]]=invremotehostLDId1[[deptx[[ix]]]]+invremotehostLDIx1[[ix]],{ix,nx}]
Print[invremotehostLDId1]
(* Acumula a nivel departamental la variable invremotehostLDIx1 imputable al servicio LDI de Voz *)
Print["invremotehostalqd1A1"]
invremotehostalqd1A1=zerod;
Do[invremotehostalqd1A1[[deptx[[ix]]]]=invremotehostalqd1A1[[deptx[[ix]]]]+invremotehostalqx1A1[[ix]],{ix,nx}]
Print[invremotehostalqd1A1]
(* Acumula a nivel departamental la variable invremotehostalqx1A1 imputable al servicio de Circuitos Rango A *)
145
Modelo_Integral_ACK.nb
Print["invremotehostalqd1B1"]
invremotehostalqd1B1=zerod;
Do[invremotehostalqd1B1[[deptx[[ix]]]]=invremotehostalqd1B1[[deptx[[ix]]]]+invremotehostalqx1B1[[ix]],{ix,nx}]
Print[invremotehostalqd1B1]
(* Acumula a nivel departamental la variable invremotehostalqx1B1 imputable al servicio de Circuitos Rango B *)
Print["invremotehostalqd1C1"]
invremotehostalqd1C1=zerod;
Do[invremotehostalqd1C1[[deptx[[ix]]]]=invremotehostalqd1C1[[deptx[[ix]]]]+invremotehostalqx1C1[[ix]],{ix,nx}]
Print[invremotehostalqd1C1]
(* Acumula a nivel departamental la variable invremotehostalqx1C1 imputable al servicio de Circuitos Rango C *)
Print["invremotehostalqd1LL"]
invremotehostalqd1LL=zerod;
Do[invremotehostalqd1LL[[deptx[[ix]]]]=invremotehostalqd1LL[[deptx[[ix]]]]+invremotehostalqx1LL[[ix]],{ix,nx}]
Print[invremotehostalqd1LL]
(* Acumula a nivel departamental la variable invremotehostalqx1LL imputable al servicio de Circuitos Local Lima *)
Print["invremotehostalqd1LP"]
invremotehostalqd1LP=zerod;
Do[invremotehostalqd1LP[[deptx[[ix]]]]=invremotehostalqd1LP[[deptx[[ix]]]]+invremotehostalqx1LP[[ix]],{ix,nx}]
Print[invremotehostalqd1LP]
(* Acumula a nivel departamental la variable invremotehostalqx1LP imputable al servicio de Circuitos Local
Provincias *)
Print["invremotehostalqd1AS"]
invremotehostalqd1AS=zerod;
Do[invremotehostalqd1AS[[deptx[[ix]]]]=invremotehostalqd1AS[[deptx[[ix]]]]+invremotehostalqx1AS[[ix]],{ix,nx}]
Print[invremotehostalqd1AS]
(* Acumula a nivel departamental la variable invremotehostalqx1AS imputable al servicio de Circuitos Rango A
Satelital*)
Print["invremotehostalqd1BS"]
invremotehostalqd1BS=zerod;
Do[invremotehostalqd1BS[[deptx[[ix]]]]=invremotehostalqd1BS[[deptx[[ix]]]]+invremotehostalqx1BS[[ix]],{ix,nx}]
Print[invremotehostalqd1BS]
(* Acumula a nivel departamental la variable invremotehostalqx1BS imputable al servicio de Circuitos Rango B
Satelital*)
Print["invremotehostalqd1CS"]
invremotehostalqd1CS=zerod;
Do[invremotehostalqd1CS[[deptx[[ix]]]]=invremotehostalqd1CS[[deptx[[ix]]]]+invremotehostalqx1CS[[ix]],{ix,nx}]
Print[invremotehostalqd1CS]
(* Acumula a nivel departamental la variable invremotehostalqx1CS imputable al servicio de Circuitos Rango C
Satelital*)
Print["invremotehostalqd1ABC2"]
invremotehostalqd1ABC2=zerod;
Do[invremotehostalqd1ABC2[[deptx[[ix]]]]=invremotehostalqd1ABC2[[deptx[[ix]]]]+invremotehostalqx1ABC2[[ix]],{ix,nx
}]
Print[invremotehostalqd1ABC2]
(* Acumula a nivel departamental la variable invremotehostalqx1ABC2 imputable al servicio de Otros Circuitos
Rango A, B y C *)
Print["invremotehostalqd1ABCnop"]
invremotehostalqd1ABCnop=zerod;
Do[invremotehostalqd1ABCnop[[deptx[[ix]]]]=invremotehostalqd1ABCnop[[deptx[[ix]]]]+invremotehostalqx1ABCnop[[ix]],
{ix,nx}]
Print[invremotehostalqd1ABCnop]
(* Acumula a nivel departamental la variable invremotehostalqx1ABCnop imputable al servicio de Circuitos de No
Operadores*)
Print["invremotehostitxd1"]
invremotehostitxd1=zerod;
Do[invremotehostitxd1[[deptx[[ix]]]]=invremotehostitxd1[[deptx[[ix]]]]+invremotehostitxx1[[ix]],{ix,nx}]
Print[invremotehostitxd1]
(* Acumula a nivel departamental la variable invremotehostitxx1 imputable al servicio de Circuitos de
Interconexión *)
Print["invremotehostadsld1"]
invremotehostadsld1=zerod;
Do[invremotehostadsld1[[deptx[[ix]]]]=invremotehostadsld1[[deptx[[ix]]]]+invremotehostadslx1[[ix]],{ix,nx}]
Print[invremotehostadsld1]
(* Acumula a nivel departamental la variable invremotehostadslx1 imputable al servicio de ADSL *)
Print["invremotehostTOTALd1"]
invremotehostTOTALd1=zerod;
Do[invremotehostTOTALd1[[deptx[[ix]]]]=invremotehostTOTALd1[[deptx[[ix]]]]+invremotehostTOTALx1[[ix]],{ix,nx}]
Print[invremotehostTOTALd1]
(* Acumula a nivel departamental la variable invremotehostTOTALx1 imputable a todos los servicios *)
Print["invremotehostx2"]
invremotehostx2=zerox;
Do[If[fiberx[[ix]],invremotehostx2[[ix]]=fiberinvremotehostx2[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostx2[[ix]]=0.55*invremotehostx2[[ix]]];,{ix,nx}];
Print[invremotehostx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Voz. Como dicha
información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se
considera el nivel de inversión fiberinvremotehostx2, en todos los demás casos es cero. El resultado se
146
Modelo_Integral_ACK.nb
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostLocx2"]
invremotehostLocx2=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLocx2[[ix]]=invremotehostx2[[ix]]*loadcompRHLocx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}];
Print[invremotehostLocx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio Local de Voz. *)
Print["invremotehostLDNx2"]
invremotehostLDNx2=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLDNx2[[ix]]=invremotehostx2[[ix]]*loadcompRHLDNx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}];
Print[invremotehostLDNx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio LDN de Voz. *)
Print["invremotehostLDIx2"]
invremotehostLDIx2=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLDIx2[[ix]]=invremotehostx2[[ix]]*loadcompRHLDIx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}];
Print[invremotehostLDIx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio LDI de Voz. *)
Print["invremotehostalqx2A1"]
invremotehostalqx2A1=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2A1[[ix]]=fiberinvremotehostalqx2A1[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2A1[[ix]]=0.55*invremotehostalqx2A1[[ix]]];,{ix,nx}];
Print[invremotehostalqx2A1]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango A.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx2A1, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2B1"]
invremotehostalqx2B1=zerox;
Do[If[fiberxPixT,invremotehostalqx2B1PixT=fiberinvremotehostalqx2B1PixT],{ix,nx}]
Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado,
invremotehostalqx2B1PixT=0.55*invremotehostalqx2B1PixT];,{ix,nx}];
Print[invremotehostalqx2B1]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango B.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx2B1, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2C1"]
invremotehostalqx2C1=zerox;
Do[If[fiberxPixT,invremotehostalqx2C1PixT=fiberinvremotehostalqx2C1PixT],{ix,nx}]
Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado,
invremotehostalqx2C1PixT=0.55*invremotehostalqx2C1PixT];,{ix,nx}];
Print[invremotehostalqx2C1]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango C.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx2C1, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2LL"]
invremotehostalqx2LL=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2LL[[ix]]=fiberinvremotehostalqx2LL[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2LL[[ix]]=0.55*invremotehostalqx2LL[[ix]]];,{ix,nx}];
Print[invremotehostalqx2LL]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Local Lima.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx2LL, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2LP"]
invremotehostalqx2LP=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2LP[[ix]]=fiberinvremotehostalqx2LP[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2LP[[ix]]=0.55*invremotehostalqx2LP[[ix]]];,{ix,nx}];
Print[invremotehostalqx2LP]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Local Lima.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx2LL, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2AS"]
invremotehostalqx2AS=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2AS[[ix]]=fiberinvremotehostalqx2AS[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2AS[[ix]]=0.55*invremotehostalqx2AS[[ix]]];,{ix,nx}];
Print[invremotehostalqx2AS]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango A
147
Modelo_Integral_ACK.nb
Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2AS, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2BS"]
invremotehostalqx2BS=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2BS[[ix]]=fiberinvremotehostalqx2BS[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2BS[[ix]]=0.55*invremotehostalqx2BS[[ix]]];,{ix,nx}];
Print[invremotehostalqx2BS]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango B
Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2BS, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2CS"]
invremotehostalqx2CS=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2CS[[ix]]=fiberinvremotehostalqx2CS[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2CS[[ix]]=0.55*invremotehostalqx2CS[[ix]]];,{ix,nx}];
Print[invremotehostalqx2CS]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango C
Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2CS, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2ABC2"]
invremotehostalqx2ABC2=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2ABC2[[ix]]=fiberinvremotehostalqx2ABC2[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2ABC2[[ix]]=0.55*invremotehostalqx2ABC2[[ix]]];,{ix,nx}];
Print[invremotehostalqx2ABC2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Otros Circuitos Rango
A, B y C. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2ABC2, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx2ABCnop"]
invremotehostalqx2ABCnop=zerox;
Do[If[fiberx[[ix]],invremotehostalqx2ABCnop[[ix]]=fiberinvremotehostalqx2ABCnop[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostalqx2ABCnop[[ix]]=0.55*invremotehostalqx2ABCnop[[ix]]];,{ix,nx}];
Print[invremotehostalqx2ABCnop]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos de No
Operadores. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2B1nop, en todos los demás casos
es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostitxx2"]
invremotehostitxx2=zerox;
Do[If[fiberx[[ix]],invremotehostitxx2[[ix]]=fiberinvremotehostitxx2[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado,
invremotehostitxx2[[ix]]=0.55*invremotehostitxx2[[ix]]];,{ix,nx}];
Print[invremotehostitxx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos de
Interconexión. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostitxx2, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostadslx2"]
invremotehostadslx2=zerox;
Do[If[fiberxPixT,invremotehostadslx2PixT=fiberinvremotehostadslx2PixT],{ix,nx}]
Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado,
invremotehostadslx2[[ix]]=0.55*invremotehostadslx2[[ix]]];,{ix,nx}];
Print[invremotehostadslx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de ADSL. Como dicha
información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se
considera el nivel de inversión fiberinvremotehostadslx2, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostTOTALx2"]
invremotehostTOTALx2=zerox;
Do[If[fiberxPixT,invremotehostTOTALx2PixT=fiberinvremotehostTOTALx2PixT],{ix,nx}]
Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado,
invremotehostTOTALx2PixT=0.55*invremotehostTOTALx2PixT];,{ix,nx}];
Print[invremotehostTOTALx2]
(* Compila o resume el total de inversiones aplicable a los cables imputable a todos los servicios. Como dicha
información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se
considera el nivel de inversión fiberinvremotehostTOTALx2, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostd2"]
invremotehostd2=zerod;
148
Modelo_Integral_ACK.nb
Do[invremotehostd2[[deptx[[ix]]]]=invremotehostd2[[deptx[[ix]]]]+invremotehostx2[[ix]],{ix,nx}]
Print[invremotehostd2]
(* Acumula a nivel departamental la variable invremotehostx2 imputable al servicio de Voz *)
Print["invremotehostLocd2"]
invremotehostLocd2=zerod;
Do[invremotehostLocd2[[deptx[[ix]]]]=invremotehostLocd2[[deptx[[ix]]]]+invremotehostLocx2[[ix]],{ix,nx}]
Print[invremotehostLocd2]
(* Acumula a nivel departamental la variable invremotehostLocx2 imputable al servicio Local de Voz *)
Print["invremotehostLDNd2"]
invremotehostLDNd2=zerod;
Do[invremotehostLDNd2[[deptx[[ix]]]]=invremotehostLDNd2[[deptx[[ix]]]]+invremotehostLDNx2[[ix]],{ix,nx}]
Print[invremotehostLDNd2]
(* Acumula a nivel departamental la variable invremotehostLDNx2 imputable al servicio LDN de Voz *)
Print["invremotehostLDId2"]
invremotehostLDId2=zerod;
Do[invremotehostLDId2[[deptx[[ix]]]]=invremotehostLDId2[[deptx[[ix]]]]+invremotehostLDIx2[[ix]],{ix,nx}]
Print[invremotehostLDId2]
(* Acumula a nivel departamental la variable invremotehostLDIx2 imputable al servicio LDI de Voz *)
Print["invremotehostalqd2A1"]
invremotehostalqd2A1=zerod;
Do[invremotehostalqd2A1[[deptx[[ix]]]]=invremotehostalqd2A1[[deptx[[ix]]]]+invremotehostalqx2A1[[ix]],{ix,nx}]
Print[invremotehostalqd2A1]
(* Acumula a nivel departamental la variable invremotehostalqx2A1 imputable al servicio de Circuitos Rango A *)
Print["invremotehostalqd2B1"]
invremotehostalqd2B1=zerod;
Do[invremotehostalqd2B1[[deptx[[ix]]]]=invremotehostalqd2B1[[deptx[[ix]]]]+invremotehostalqx2B1[[ix]],{ix,nx}]
Print[invremotehostalqd2B1]
(* Acumula a nivel departamental la variable invremotehostalqx2B1 imputable al servicio de Circuitos Rango B *)
Print["invremotehostalqd2C1"]
invremotehostalqd2C1=zerod;
Do[invremotehostalqd2C1[[deptx[[ix]]]]=invremotehostalqd2C1[[deptx[[ix]]]]+invremotehostalqx2C1[[ix]],{ix,nx}]
Print[invremotehostalqd2C1]
(* Acumula a nivel departamental la variable invremotehostalqx2C1 imputable al servicio de Circuitos Rango C *)
Print["invremotehostalqd2LL"]
invremotehostalqd2LL=zerod;
Do[invremotehostalqd2LL[[deptx[[ix]]]]=invremotehostalqd2LL[[deptx[[ix]]]]+invremotehostalqx2LL[[ix]],{ix,nx}]
Print[invremotehostalqd2LL]
(* Acumula a nivel departamental la variable invremotehostalqx2LL imputable al servicio de Circuitos Local Lima *)
Print["invremotehostalqd2LP"]
invremotehostalqd2LP=zerod;
Do[invremotehostalqd2LP[[deptx[[ix]]]]=invremotehostalqd2LP[[deptx[[ix]]]]+invremotehostalqx2LP[[ix]],{ix,nx}]
Print[invremotehostalqd2LP]
(* Acumula a nivel departamental la variable invremotehostalqx2LP imputable al servicio de Circuitos Local
Provincias *)
Print["invremotehostalqd2AS"]
invremotehostalqd2AS=zerod;
Do[invremotehostalqd2AS[[deptx[[ix]]]]=invremotehostalqd2AS[[deptx[[ix]]]]+invremotehostalqx2AS[[ix]],{ix,nx}]
Print[invremotehostalqd2AS]
(* Acumula a nivel departamental la variable invremotehostalqx2AS imputable al servicio de Circuitos Rango A
Satelital*)
Print["invremotehostalqd2BS"]
invremotehostalqd2BS=zerod;
Do[invremotehostalqd2BS[[deptx[[ix]]]]=invremotehostalqd2BS[[deptx[[ix]]]]+invremotehostalqx2BS[[ix]],{ix,nx}]
Print[invremotehostalqd2BS]
(* Acumula a nivel departamental la variable invremotehostalqx2BS imputable al servicio de Circuitos Rango B
Satelital*)
Print["invremotehostalqd2CS"]
invremotehostalqd2CS=zerod;
Do[invremotehostalqd2CS[[deptx[[ix]]]]=invremotehostalqd2CS[[deptx[[ix]]]]+invremotehostalqx2CS[[ix]],{ix,nx}]
Print[invremotehostalqd2CS]
(* Acumula a nivel departamental la variable invremotehostalqx2CS imputable al servicio de Circuitos Rango C
Satelital*)
Print["invremotehostalqd2ABC2"]
invremotehostalqd2ABC2=zerod;
Do[invremotehostalqd2ABC2[[deptx[[ix]]]]=invremotehostalqd2ABC2[[deptx[[ix]]]]+invremotehostalqx2ABC2[[ix]],{ix,nx
}]
Print[invremotehostalqd2ABC2]
(* Acumula a nivel departamental la variable invremotehostalqx2ABC2 imputable al servicio de Otros Circuitos
Rango A, B y C*)
Print["invremotehostalqd2ABCnop"]
invremotehostalqd2ABCnop=zerod;
Do[invremotehostalqd2ABCnop[[deptx[[ix]]]]=invremotehostalqd2ABCnop[[deptx[[ix]]]]+invremotehostalqx2ABCnop[[ix]],
{ix,nx}]
Print[invremotehostalqd2ABCnop]
(* Acumula a nivel departamental la variable invremotehostalqx2ABCnop imputable al servicio de Circuitos de No
Operadores*)
Print["invremotehostitxd2"]
149
Modelo_Integral_ACK.nb
invremotehostitxd2=zerod;
Do[invremotehostitxd2[[deptx[[ix]]]]=invremotehostitxd2[[deptx[[ix]]]]+invremotehostitxx2[[ix]],{ix,nx}]
Print[invremotehostitxd2]
(* Acumula a nivel departamental la variable invremotehostitxx2 imputable al servicio de Circuitos de
Interconexión *)
Print["invremotehostadsld2"]
invremotehostadsld2=zerod;
Do[invremotehostadsld2[[deptx[[ix]]]]=invremotehostadsld2[[deptx[[ix]]]]+invremotehostadslx2[[ix]],{ix,nx}]
Print[invremotehostadsld2]
(* Acumula a nivel departamental la variable invremotehostadslx2 imputable al servicio de ADSL *)
Print["invremotehostTOTALd2"]
invremotehostTOTALd2=zerod;
Do[invremotehostTOTALd2[[deptx[[ix]]]]=invremotehostTOTALd2[[deptx[[ix]]]]+invremotehostTOTALx2[[ix]],{ix,nx}]
Print[invremotehostTOTALd2]
(* Acumula a nivel departamental la variable invremotehostTOTALx2 imputable a todos los servicios*)
Print["invremotehostx3"]
invremotehostx3=zerox;
Do[If[fiberx[[ix]],invremotehostx3[[ix]]=fiberinvremotehostx3[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostx3[[ix]]=0.55*invremotehostx3[[ix]]];,{ix,nx}];
Print[invremotehostx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Voz. Como dicha
información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se
considera el nivel de inversión fiberinvremotehostx3, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostLocx3"]
invremotehostLocx3=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLocx3[[ix]]=invremotehostx3[[ix]]*loadcompRHLocx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}]
Print[invremotehostLocx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio Local de Voz.*)
Print["invremotehostLDNx3"]
invremotehostLDNx3=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLDNx3[[ix]]=invremotehostx3[[ix]]*loadcompRHLDNx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}]
Print[invremotehostLDNx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio LDN de Voz.*)
Print["invremotehostLDIx3"]
invremotehostLDIx3=zerox;
Do[If[loadcompRHx[[ix]]>0,invremotehostLDIx3[[ix]]=invremotehostx3[[ix]]*loadcompRHLDIx[[ix]]/loadcompRHx[[ix]]],{
ix,nx}]
Print[invremotehostLDIx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio LDI de Voz.*)
Print["invremotehostalqx3A1"]
invremotehostalqx3A1=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3A1[[ix]]=fiberinvremotehostalqx3A1[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3A1[[ix]]=0.55*invremotehostalqx3A1[[ix]]];,{ix,nx}];
Print[invremotehostalqx3A1]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango A.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx3A1, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3B1"]
invremotehostalqx3B1=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3B1[[ix]]=fiberinvremotehostalqx3B1[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3B1[[ix]]=0.55*invremotehostalqx3B1[[ix]]];,{ix,nx}];
Print[invremotehostalqx3B1]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango B.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx3B1, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3C1"]
invremotehostalqx3C1=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3C1[[ix]]=fiberinvremotehostalqx3C1[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3C1[[ix]]=0.55*invremotehostalqx3C1[[ix]]];,{ix,nx}];
Print[invremotehostalqx3C1]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango C.
Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra
se considera el nivel de inversión fiberinvremotehostalqx3C1, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3LL"]
invremotehostalqx3LL=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3LL[[ix]]=fiberinvremotehostalqx3LL[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
150
Modelo_Integral_ACK.nb
invremotehostalqx3LL[[ix]]=0.55*invremotehostalqx3LL[[ix]]];,{ix,nx}];
Print[invremotehostalqx3LL]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Local
Lima. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es
fibra se considera el nivel de inversión fiberinvremotehostalqx3LL, en todos los demás casos es cero. El
resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el
modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3LP"]
invremotehostalqx3LP=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3LP[[ix]]=fiberinvremotehostalqx3LP[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3LP[[ix]]=0.55*invremotehostalqx3LP[[ix]]];,{ix,nx}];
Print[invremotehostalqx3LP]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Local
Provincias. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3LP, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3AS"]
invremotehostalqx3AS=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3AS[[ix]]=fiberinvremotehostalqx3AS[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3AS[[ix]]=0.55*invremotehostalqx3AS[[ix]]];,{ix,nx}];
Print[invremotehostalqx3AS]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango A
Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3AS, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3BS"]
invremotehostalqx3BS=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3BS[[ix]]=fiberinvremotehostalqx3BS[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3BS[[ix]]=0.55*invremotehostalqx3BS[[ix]]];,{ix,nx}];
Print[invremotehostalqx3BS]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango B
Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3BS, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3CS"]
invremotehostalqx3CS=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3CS[[ix]]=fiberinvremotehostalqx3CS[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3CS[[ix]]=0.55*invremotehostalqx3CS[[ix]]];,{ix,nx}];
Print[invremotehostalqx3CS]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango C
Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3CS, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3ABC2"]
invremotehostalqx3ABC2=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3ABC2[[ix]]=fiberinvremotehostalqx3ABC2[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3ABC2[[ix]]=0.55*invremotehostalqx3ABC2[[ix]]];,{ix,nx}];
Print[invremotehostalqx3ABC2]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Otros Circuitos
Rango A, B y C. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3ABC2, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostalqx3ABCnop"]
invremotehostalqx3ABCnop=zerox;
Do[If[fiberx[[ix]],invremotehostalqx3ABCnop[[ix]]=fiberinvremotehostalqx3ABCnop[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostalqx3ABCnop[[ix]]=0.55*invremotehostalqx3ABCnop[[ix]]];,{ix,nx}];
Print[invremotehostalqx3ABCnop]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos de No
Operadores. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3ABCnop, en todos los demás casos
es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
Print["invremotehostitxx3"]
invremotehostitxx3=zerox;
Do[If[fiberx[[ix]],invremotehostitxx3[[ix]]=fiberinvremotehostitxx3[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostitxx3[[ix]]=0.55*invremotehostitxx3[[ix]]];,{ix,nx}];
Print[invremotehostitxx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos de
Interconexión. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del
departamento es fibra se considera el nivel de inversión fiberinvremotehostitxx3, en todos los demás casos es
cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima
(En el modelo de la red fija se definió que el 45% se comparte) *)
151
Modelo_Integral_ACK.nb
Print["invremotehostadslx3"]
invremotehostadslx3=zerox;
Do[If[fiberx[[ix]],invremotehostadslx3[[ix]]=fiberinvremotehostadslx3[[ix]]],{ix,nx}]
Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado,
invremotehostadslx3[[ix]]=0.55*invremotehostadslx3[[ix]]];,{ix,nx}];
Print[invremotehostadslx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de ADSL. Como dicha
información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se
considera el nivel de inversión fiberinvremotehostadslx3, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostTOTALx3"]
invremotehostTOTALx3=zerox;
Do[If[fiberxPixT,invremotehostTOTALx3PixT=fiberinvremotehostTOTALx3PixT],{ix,nx}]
Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado,
invremotehostTOTALx3PixT=0.55*invremotehostTOTALx3PixT];,{ix,nx}];
Print[invremotehostTOTALx3]
(* Compila o resume el total de inversiones aplicable a obras civiles imputable a todos los servicios. Como dicha
información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se
considera el nivel de inversión fiberinvremotehostTOTALx3, en todos los demás casos es cero. El resultado se
multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red
fija se definió que el 45% se comparte) *)
Print["invremotehostd3"]
invremotehostd3=zerod;
Do[invremotehostd3PdeptxPixTT=invremotehostd3PdeptxPixTT+invremotehostx3PixT,{ix,nx}]
Print[invremotehostd3]
(* Acumula a nivel departamental la variable invremotehostx3 imputable al servicio de Voz*)
Print["invremotehostLocd3"]
invremotehostLocd3=zerod;
Do[invremotehostLocd3PdeptxPixTT=invremotehostLocd3PdeptxPixTT+invremotehostLocx3PixT,{ix,nx}]
Print[invremotehostLocd3]
(* Acumula a nivel departamental la variable invremotehostLocx3 imputable al servicio Local de Voz*)
Print["invremotehostLDNd3"]
invremotehostLDNd3=zerod;
Do[invremotehostLDNd3PdeptxPixTT=invremotehostLDNd3PdeptxPixTT+invremotehostLDNx3PixT,{ix,nx}]
Print[invremotehostLDNd3]
(* Acumula a nivel departamental la variable invremotehostLDNx3 imputable al servicio LDN de Voz*)
Print["invremotehostLDId3"]
invremotehostLDId3=zerod;
Do[invremotehostLDId3[[deptx[[ix]]]]=invremotehostLDId3[[deptx[[ix]]]]+invremotehostLDIx3[[ix]],{ix,nx}]
Print[invremotehostLDId3]
(* Acumula a nivel departamental la variable invremotehostLDIx3 imputable al servicio LDI de Voz*)
Print["invremotehostalqd3A1"]
invremotehostalqd3A1=zerod;
Do[invremotehostalqd3A1[[deptx[[ix]]]]=invremotehostalqd3A1[[deptx[[ix]]]]+invremotehostalqx3A1[[ix]],{ix,nx}]
Print[invremotehostalqd3A1]
(* Acumula a nivel departamental la variable invremotehostalqx3A1 imputable al servicio de Circuitos Rango A *)
Print["invremotehostalqd3B1"]
invremotehostalqd3B1=zerod;
Do[invremotehostalqd3B1[[deptx[[ix]]]]=invremotehostalqd3B1[[deptx[[ix]]]]+invremotehostalqx3B1[[ix]],{ix,nx}]
Print[invremotehostalqd3B1]
(* Acumula a nivel departamental la variable invremotehostalqx3B1 imputable al servicio de Circuitos Rango B *)
Print["invremotehostalqd3C1"]
invremotehostalqd3C1=zerod;
Do[invremotehostalqd3C1[[deptx[[ix]]]]=invremotehostalqd3C1[[deptx[[ix]]]]+invremotehostalqx3C1[[ix]],{ix,nx}]
Print[invremotehostalqd3C1]
(* Acumula a nivel departamental la variable invremotehostalqx3C1 imputable al servicio de Circuitos Rango C *)
Print["invremotehostalqd3LL"]
invremotehostalqd3LL=zerod;
Do[invremotehostalqd3LL[[deptx[[ix]]]]=invremotehostalqd3LL[[deptx[[ix]]]]+invremotehostalqx3LL[[ix]],{ix,nx}]
Print[invremotehostalqd3LL]
(* Acumula a nivel departamental la variable invremotehostalqx3LL imputable al servicio de Circuitos Local Lima *)
Print["invremotehostalqd3LP"]
invremotehostalqd3LP=zerod;
Do[invremotehostalqd3LP[[deptx[[ix]]]]=invremotehostalqd3LP[[deptx[[ix]]]]+invremotehostalqx3LP[[ix]],{ix,nx}]
Print[invremotehostalqd3LP]
(* Acumula a nivel departamental la variable invremotehostalqx3LP imputable al servicio de Circuitos Local
Provincias *)
Print["invremotehostalqd3AS"]
invremotehostalqd3AS=zerod;
Do[invremotehostalqd3AS[[deptx[[ix]]]]=invremotehostalqd3AS[[deptx[[ix]]]]+invremotehostalqx3AS[[ix]],{ix,nx}]
Print[invremotehostalqd3AS]
(* Acumula a nivel departamental la variable invremotehostalqx3AS imputable al servicio de Circuitos Rango A
Satelital*)
Print["invremotehostalqd3BS"]
invremotehostalqd3BS=zerod;
Do[invremotehostalqd3BS[[deptx[[ix]]]]=invremotehostalqd3BS[[deptx[[ix]]]]+invremotehostalqx3BS[[ix]],{ix,nx}]
Print[invremotehostalqd3BS]
152
Modelo_Integral_ACK.nb
(* Acumula a nivel departamental la variable invremotehostalqx3BS imputable al servicio de Circuitos Rango B
Satelital*)
Print["invremotehostalqd3CS"]
invremotehostalqd3CS=zerod;
Do[invremotehostalqd3CS[[deptx[[ix]]]]=invremotehostalqd3CS[[deptx[[ix]]]]+invremotehostalqx3CS[[ix]],{ix,nx}]
Print[invremotehostalqd3CS]
(* Acumula a nivel departamental la variable invremotehostalqx3CS imputable al servicio de Circuitos Rango C
Satelital*)
Print["invremotehostalqd3ABC2"]
invremotehostalqd3ABC2=zerod;
Do[invremotehostalqd3ABC2[[deptx[[ix]]]]=invremotehostalqd3ABC2[[deptx[[ix]]]]+invremotehostalqx3ABC2[[ix]],{ix,nx
}]
Print[invremotehostalqd3ABC2]
(* Acumula a nivel departamental la variable invremotehostalqx3ABC2 imputable al servicio de Otros Circuitos
Rango A, B y C*)
Print["invremotehostalqd3ABCnop"]
invremotehostalqd3ABCnop=zerod;
Do[invremotehostalqd3ABCnop[[deptx[[ix]]]]=invremotehostalqd3ABCnop[[deptx[[ix]]]]+invremotehostalqx3ABCnop[[ix]],
{ix,nx}]
Print[invremotehostalqd3ABCnop]
(* Acumula a nivel departamental la variable invremotehostalqx3ABCnop imputable al servicio de Circuitos de No
Operadores*)
Print["invremotehostitxd3"]
invremotehostitxd3=zerod;
Do[invremotehostitxd3[[deptx[[ix]]]]=invremotehostitxd3[[deptx[[ix]]]]+invremotehostitxx3[[ix]],{ix,nx}]
Print[invremotehostitxd3]
(* Acumula a nivel departamental la variable invremotehostitxx3 imputable al servicio de Circuitos de
Interconexión*)
Print["invremotehostadsld3"]
invremotehostadsld3=zerod;
Do[invremotehostadsld3[[deptx[[ix]]]]=invremotehostadsld3[[deptx[[ix]]]]+invremotehostadslx3[[ix]],{ix,nx}]
Print[invremotehostadsld3]
(* Acumula a nivel departamental la variable invremotehostadslx3 imputable al servicio de ADSL*)
Print["invremotehostTOTALd3"]
invremotehostTOTALd3=zerod;
Do[invremotehostTOTALd3[[deptx[[ix]]]]=invremotehostTOTALd3[[deptx[[ix]]]]+invremotehostTOTALx3[[ix]],{ix,nx}]
Print[invremotehostTOTALd3]
(* Acumula a nivel departamental la variable invremotehostTOTALx3 imputable a todos los servicios*)
Print["invremotehostx"]
invremotehostx=invremotehostx1+invremotehostx2+invremotehostx3;
Print[invremotehostx]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Voz *)
Print["invremotehostLocx"]
invremotehostLocx=invremotehostLocx1+invremotehostLocx2+invremotehostLocx3;
Print[invremotehostLocx]
(* Total de inversiones en Tx a nivel RH imputable al servicio Local de Voz *)
Print["invremotehostLDNx"]
invremotehostLDNx=invremotehostLDNx1+invremotehostLDNx2+invremotehostLDNx3;
Print[invremotehostLDNx]
(* Total de inversiones en Tx a nivel RH imputable al servicio LDN de Voz *)
Print["invremotehostLDIx"]
invremotehostLDIx=invremotehostLDIx1+invremotehostLDIx2+invremotehostLDIx3;
Print[invremotehostLDIx]
(* Total de inversiones en Tx a nivel RH imputable al servicio LDI de Voz *)
Print["invremotehostalqxA1"]
invremotehostalqxA1=invremotehostalqx1A1+invremotehostalqx2A1+invremotehostalqx3A1;
Print[invremotehostalqxA1]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango A *)
Print["invremotehostalqxB1"]
invremotehostalqxB1=invremotehostalqx1B1+invremotehostalqx2B1+invremotehostalqx3B1;
Print[invremotehostalqxB1]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango B *)
Print["invremotehostalqxC1"]
invremotehostalqxC1=invremotehostalqx1C1+invremotehostalqx2C1+invremotehostalqx3C1;
Print[invremotehostalqxC1]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango C *)
Print["invremotehostalqxLL"]
invremotehostalqxLL=invremotehostalqx1LL+invremotehostalqx2LL+invremotehostalqx3LL;
Print[invremotehostalqxLL]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Local Lima *)
Print["invremotehostalqxLP"]
invremotehostalqxLP=invremotehostalqx1LP+invremotehostalqx2LP+invremotehostalqx3LP;
Print[invremotehostalqxLP]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Local Provincias *)
Print["invremotehostalqxAS"]
153
Modelo_Integral_ACK.nb
invremotehostalqxAS=invremotehostalqx1AS+invremotehostalqx2AS+invremotehostalqx3AS;
Print[invremotehostalqxAS]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango A Satelital*)
Print["invremotehostalqxBS"]
invremotehostalqxBS=invremotehostalqx1BS+invremotehostalqx2BS+invremotehostalqx3BS;
Print[invremotehostalqxBS]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango B Satelital*)
Print["invremotehostalqxCS"]
invremotehostalqxCS=invremotehostalqx1CS+invremotehostalqx2CS+invremotehostalqx3CS;
Print[invremotehostalqxCS]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango C Satelital*)
Print["invremotehostalqxABC2"]
invremotehostalqxABC2=invremotehostalqx1ABC2+invremotehostalqx2ABC2+invremotehostalqx3ABC2;
Print[invremotehostalqxABC2]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Otros Circuitos Rango A, B y C*)
Print["invremotehostalqxABCnop"]
invremotehostalqxABCnop=invremotehostalqx1ABCnop+invremotehostalqx2ABCnop+invremotehostalqx3ABCnop;
Print[invremotehostalqxABCnop]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos de No Operadores*)
Print["invremotehostitxx"]
invremotehostitxx=invremotehostitxx1+invremotehostitxx2+invremotehostitxx3;
Print[invremotehostitxx]
(* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos de Interconexión *)
Print["invremotehostdslx"]
invremotehostadslx=invremotehostadslx1+invremotehostadslx2+invremotehostadslx3;
Print[invremotehostadslx]
(* Total de inversiones en Tx a nivel RH imputable al servicio de ADSL *)
Print["invremotehostTOTALx"]
invremotehostTOTALx=invremotehostTOTALx1+invremotehostTOTALx2+invremotehostTOTALx3;
Print[invremotehostTOTALx]
(* Total de inversiones en Tx a nivel RH imputable a todos los servicios *)
Print["invremotehostd"]
invremotehostd=zerod;
Do[invremotehostd[[deptx[[ix]]]]=invremotehostd[[deptx[[ix]]]]+invremotehostx[[ix]],{ix,nx}]
Print[invremotehostd]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Voz *)
Print["invremotehostLocd"]
invremotehostLocd=zerod;
Do[invremotehostLocd[[deptx[[ix]]]]=invremotehostLocd[[deptx[[ix]]]]+invremotehostLocx[[ix]],{ix,nx}]
Print[invremotehostLocd]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio Local de Voz *)
Print["invremotehostLDNd"]
invremotehostLDNd=zerod;
Do[invremotehostLDNd[[deptx[[ix]]]]=invremotehostLDNd[[deptx[[ix]]]]+invremotehostLDNx[[ix]],{ix,nx}]
Print[invremotehostLDNd]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio LDN de Voz *)
Print["invremotehostLDId"]
invremotehostLDId=zerod;
Do[invremotehostLDId[[deptx[[ix]]]]=invremotehostLDId[[deptx[[ix]]]]+invremotehostLDIx[[ix]],{ix,nx}]
Print[invremotehostLDId]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio LDI de Voz *)
Print["invremotehostalqdA1"]
invremotehostalqdA1=zerod;
Do[invremotehostalqdA1[[deptx[[ix]]]]=invremotehostalqdA1[[deptx[[ix]]]]+invremotehostalqxA1[[ix]],{ix,nx}]
Print[invremotehostalqdA1]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango A *)
Print["invremotehostalqdB1"]
invremotehostalqdB1=zerod;
Do[invremotehostalqdB1[[deptx[[ix]]]]=invremotehostalqdB1[[deptx[[ix]]]]+invremotehostalqxB1[[ix]],{ix,nx}]
Print[invremotehostalqdB1]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango B *)
Print["invremotehostalqdC1"]
invremotehostalqdC1=zerod;
Do[invremotehostalqdC1[[deptx[[ix]]]]=invremotehostalqdC1[[deptx[[ix]]]]+invremotehostalqxC1[[ix]],{ix,nx}]
Print[invremotehostalqdC1]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango C *)
Print["invremotehostalqdLL"]
invremotehostalqdLL=zerod;
Do[invremotehostalqdLL[[deptx[[ix]]]]=invremotehostalqdLL[[deptx[[ix]]]]+invremotehostalqxLL[[ix]],{ix,nx}]
Print[invremotehostalqdLL]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Local Lima *)
Print["invremotehostalqdLP"]
invremotehostalqdLP=zerod;
Do[invremotehostalqdLP[[deptx[[ix]]]]=invremotehostalqdLP[[deptx[[ix]]]]+invremotehostalqxLP[[ix]],{ix,nx}]
Print[invremotehostalqdLP]
154
Modelo_Integral_ACK.nb
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Local Provincias *)
Print["invremotehostalqdAS"]
invremotehostalqdAS=zerod;
Do[invremotehostalqdAS[[deptx[[ix]]]]=invremotehostalqdAS[[deptx[[ix]]]]+invremotehostalqxAS[[ix]],{ix,nx}]
Print[invremotehostalqdAS]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango A Satelital*)
Print["invremotehostalqdBS"]
invremotehostalqdBS=zerod;
Do[invremotehostalqdBS[[deptx[[ix]]]]=invremotehostalqdBS[[deptx[[ix]]]]+invremotehostalqxBS[[ix]],{ix,nx}]
Print[invremotehostalqdBS]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango B Satelital*)
Print["invremotehostalqdCS"]
invremotehostalqdCS=zerod;
Do[invremotehostalqdCS[[deptx[[ix]]]]=invremotehostalqdCS[[deptx[[ix]]]]+invremotehostalqxCS[[ix]],{ix,nx}]
Print[invremotehostalqdCS]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango C Satelital*)
Print["invremotehostalqdABC2"]
invremotehostalqdABC2=zerod;
Do[invremotehostalqdABC2[[deptx[[ix]]]]=invremotehostalqdABC2[[deptx[[ix]]]]+invremotehostalqxABC2[[ix]],{ix,nx}]
Print[invremotehostalqdABC2]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Otros Circuitos Rango A, B y
C*)
Print["invremotehostalqdABCnop"]
invremotehostalqdABCnop=zerod;
Do[invremotehostalqdABCnop[[deptx[[ix]]]]=invremotehostalqdABCnop[[deptx[[ix]]]]+invremotehostalqxABCnop[[ix]],{ix
,nx}]
Print[invremotehostalqdABCnop]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos de No Operadores*)
Print["invremotehostitxd"]
invremotehostitxd=zerod;
Do[invremotehostitxd[[deptx[[ix]]]]=invremotehostitxd[[deptx[[ix]]]]+invremotehostitxx[[ix]],{ix,nx}]
Print[invremotehostitxd]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos de Interconexión *)
Print["invremotehostadsld"]
invremotehostadsld=zerod;
Do[invremotehostadsld[[deptx[[ix]]]]=invremotehostadsld[[deptx[[ix]]]]+invremotehostadslx[[ix]],{ix,nx}]
Print[invremotehostadsld]
(* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de ADSL *)
Print["invremotehostTOTALd"]
invremotehostTOTALd=zerod;
Do[invremotehostTOTALdPdeptxPixTT=invremotehostTOTALdPdeptxPixTT+invremotehostTOTALxPixT,{ix,nx}]
Print[invremotehostTOTALd]
(* Total de inversiones en Tx a nivel RH por departamento imputable a todos los servicios *)
Print["invremotehost"]
invremotehost=Plus@@invremotehostd;
Print[invremotehost]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Voz *)
Print["invremotehostLoc"]
invremotehostLoc=Plus@@invremotehostLocd;
Print[invremotehostLoc]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio Local de Voz *)
Print["invremotehostLDN"]
invremotehostLDN=Plus@@invremotehostLDNd;
Print[invremotehostLDN]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio LDN de Voz *)
Print["invremotehostLDI"]
invremotehostLDI=Plus@@invremotehostLDId;
Print[invremotehostLDI]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio LDI de Voz *)
Print["invremotehostaqlA1"]
invremotehostalqA1=Plus@@invremotehostalqdA1;
Print[invremotehostalqA1]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango A *)
Print["invremotehostaqlB1"]
invremotehostalqB1=Plus@@invremotehostalqdB1;
Print[invremotehostalqB1]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango B *)
Print["invremotehostaqlC1"]
invremotehostalqC1=Plus@@invremotehostalqdC1;
Print[invremotehostalqC1]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango C *)
Print["invremotehostaqlLL"]
invremotehostalqLL=Plus@@invremotehostalqdLL;
Print[invremotehostalqLL]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Local Lima *)
155
Modelo_Integral_ACK.nb
Print["invremotehostaqlLP"]
invremotehostalqLP=Plus@@invremotehostalqdLP;
Print[invremotehostalqLP]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Local Provincias *)
Print["invremotehostaqlAS"]
invremotehostalqAS=Plus@@invremotehostalqdAS;
Print[invremotehostalqAS]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango A Satelital*)
Print["invremotehostaqlBS"]
invremotehostalqBS=Plus@@invremotehostalqdBS;
Print[invremotehostalqBS]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango B Satelital *)
Print["invremotehostaqlCS"]
invremotehostalqCS=Plus@@invremotehostalqdCS;
Print[invremotehostalqCS]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango C Satelital*)
Print["invremotehostaqlABC2"]
invremotehostalqABC2=Plus@@invremotehostalqdABC2;
Print[invremotehostalqABC2]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Otros Circuitos Rango A, B y
C*)
Print["invremotehostaqlABCnop"]
invremotehostalqABCnop=Plus@@invremotehostalqdABCnop;
Print[invremotehostalqABCnop]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos de No Operadores*)
Print["invremotehostitx"]
invremotehostitx=Plus@@invremotehostitxd;
Print[invremotehostitx]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos de Interconexión *)
Print["invremotehostadsl"]
invremotehostadsl=Plus@@invremotehostadsld;
Print[invremotehostadsl]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de ADSL *)
Print["invremotehostTOTAL"]
invremotehostTOTAL=Plus@@invremotehostTOTALd;
Print[invremotehostTOTAL]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable a todos los servicios *)
(*********)
PRINT["INVERSIÓN POR SERVICIO - REMOTE HOST"]
Resinvremotehostx=Table[0,{jx,nx},{ix,13}];
Do[ResinvremotehostxPix,1T = invremotehostxPixT;
ResinvremotehostxPix,2T = invremotehostalqxA1PixT;
ResinvremotehostxPix,3T = invremotehostalqxB1PixT;
ResinvremotehostxPix,4T = invremotehostalqxC1PixT;
ResinvremotehostxPix,5T = invremotehostalqxLLPixT;
ResinvremotehostxPix,6T = invremotehostalqxLPPixT;
ResinvremotehostxPix,7T = invremotehostalqxASPixT;
ResinvremotehostxPix,8T = invremotehostalqxBSPixT;
ResinvremotehostxPix,9T = invremotehostalqxCSPixT;
ResinvremotehostxPix,10T = invremotehostalqxABC2PixT;
ResinvremotehostxPix,11T = invremotehostalqxABCnopPixT;
ResinvremotehostxPix,12T = invremotehostitxxPixT;
ResinvremotehostxPix,13T = invremotehostadslxPixT;,{ix,nx}];
Print[Resinvremotehostx];
PrintBStyleB
"RESUMEN DE INVERSIONES POR ELEMENTO Y DEPARTAENTO",
Bold, 16, Underlined, White, Background → RGBColorB0,
PrintBStyleB"
1
, 0FFF;
2
A NIVEL DE CONMUTACIÓN", Bold, 14, Underlined, White, Background → BlueFF;
InvRemotad = remoteinvd;
InvRemotaLocd = remoteinvLocd;
InvRemotaLDNd = remoteinvLDNd;
InvRemotaLDId = remoteinvLDId;
Print@TableForm@
Table@8id, deptTXTdPidT, InvRemotadPidT, InvRemotaLocdPidT, InvRemotaLDNdPidT, InvRemotaLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Departamento", "InvRemotad", "InvRemotaLocd", "InvRemotaLDNd", "InvRemotaLDId"<<DD;
H∗ Inversion total en Centrales remotas locales por departamento ∗L
InvHostd = hostsatinvd + hostnonsatinvd;
InvHostLocd = hostsatinvLocd + hostnonsatinvLocd;
InvHostLDNd = hostsatinvLDNd + hostnonsatinvLDNd;
InvHostLDId = hostsatinvLDId + hostnonsatinvLDId;
Print@
TableForm@Table@8id, deptTXTdPidT, InvHostdPidT, InvHostLocdPidT, InvHostLDNdPidT, InvHostLDIdPidT<, 8id, nd<D,
156
Modelo_Integral_ACK.nb
TableForm@Table@8id, deptTXTdPidT, InvHostdPidT, InvHostLocdPidT, InvHostLDNdPidT, InvHostLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "InvHostd", "InvHostLocd", "InvHostLDNd", "InvHostLDId"<<DD;
H∗ Inversion total en Centrales cabeceras locales por departamento ∗L
InvTandemd = tandeminvd;
InvTandemLocd = tandeminvLocd;
InvTandemLDNd = tandeminvLDNd;
InvTandemLDId = tandeminvLDId;
Print@TableForm@
Table@8id, deptTXTdPidT, InvTandemdPidT, InvTandemLocdPidT, InvTandemLDNdPidT, InvTandemLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Departamento", "InvTandemd", "InvTandemLocd", "InvTandemLDNd", "InvTandemLDId"<<DD;
H∗ Inversion total en Centrales tándem locales por departamento ∗L
InvSignald = signalfrac ∗ HInvRemotad + InvHostd + InvTandemdL;
InvSignalLocd = signalfrac ∗ HInvRemotaLocd + InvHostLocd + InvTandemLocdL;
InvSignalLDNd = signalfrac ∗ HInvRemotaLDNd + InvHostLDNd + InvTandemLDNdL;
InvSignalLDId = signalfrac ∗ HInvRemotaLDId + InvHostLDId + InvTandemLDIdL;
Print@TableForm@
Table@8id, deptTXTdPidT, InvSignaldPidT, InvSignalLocdPidT, InvSignalLDNdPidT, InvSignalLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Departamento", "InvSignald", "InvSignalLocd", "InvSignalLDNd", "InvSignalLDId"<<DD;
H∗ Inversion total en señalización de todas las centrales locales por departamento ∗L
PrintBStyleB"
A NIVEL DE TRANSMISIÓN", Bold, 14, Underlined, White, Background → BlueFF;
InvRemotaHostd = invremotehostd;
InvRemotaHostLocd = invremotehostLocd;
InvRemotaHostLDNd = invremotehostLDNd;
InvRemotaHostLDId = invremotehostLDId;
Print@TableForm@Table@8id, deptTXTdPidT, InvRemotaHostdPidT, InvRemotaHostLocdPidT, InvRemotaHostLDNdPidT,
InvRemotaHostLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None,
8"id", "Departamento", "InvRemotaHostd", "InvRemotaHostLocd", "InvRemotaHostLDNd", "InvRemotaHostLDId"<<DD;
H∗ Inversion total en Transmisión a nivel RH por departamento imputable
al servicio de Voz ∗L
Print@"InvRemotaHostd"D;
InvRemotaHostalqdA1 = invremotehostalqdA1;
InvRemotaHostalqdB1 = invremotehostalqdB1;
InvRemotaHostalqdC1 = invremotehostalqdC1;
InvRemotaHostalqdLL = invremotehostalqdLL;
InvRemotaHostalqdLP = invremotehostalqdLP;
InvRemotaHostalqdAS = invremotehostalqdAS;
InvRemotaHostalqdBS = invremotehostalqdBS;
InvRemotaHostalqdCS = invremotehostalqdCS;
InvRemotaHostalqdABC2 = invremotehostalqdABC2;
InvRemotaHostalqdABCnop = invremotehostalqdABCnop;
InvRemotaHostitxd = invremotehostitxd;
InvRemotaHostadsld = invremotehostadsld;
InvRemotaHostTOTALd = invremotehostTOTALd;
Print@TableForm@Table@8id, deptTXTdPidT, InvRemotaHostdPidT, InvRemotaHostalqdA1PidT,
InvRemotaHostalqdB1PidT, InvRemotaHostalqdC1PidT, InvRemotaHostalqdLLPidT, InvRemotaHostalqdLPPidT,
InvRemotaHostalqdASPidT, InvRemotaHostalqdBSPidT, InvRemotaHostalqdCSPidT, InvRemotaHostalqdABC2PidT,
InvRemotaHostalqdABCnopPidT, InvRemotaHostitxdPidT, InvRemotaHostadsldPidT, InvRemotaHostTOTALdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov",
"Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD;
H∗ Inversion total en Transmisión a nivel RH por departamento imputable al cada servicio ∗L
InvHostTandemd = invhosttandemd;
InvHostTandemLocd = invhosttandemLocd;
InvHostTandemLDNd = invhosttandemLDNd;
InvHostTandemLDId = invhosttandemLDId;
Print@TableForm@Table@8id, deptTXTdPidT, InvHostTandemdPidT, InvHostTandemLocdPidT, InvHostTandemLDNdPidT,
InvHostTandemLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None,
8"id", "Departamento", "InvHostTandemd", "InvHostTandemLocd", "InvHostTandemLDNd", "InvHostTandemLDId"<<DD;
H∗ Inversion total en Transmisión a nivel HT por departamento imputable al servicio de Voz ∗L
Print@"InvHostTandemd"D;
InvHostTandemalqdA1 = invhosttandemalqdA1;
InvHostTandemalqdB1 = invhosttandemalqdB1;
InvHostTandemalqdC1 = invhosttandemalqdC1;
InvHostTandemalqdLL = invhosttandemalqdLL;
InvHostTandemalqdLP = invhosttandemalqdLP;
InvHostTandemalqdAS = invhosttandemalqdAS;
InvHostTandemalqdBS = invhosttandemalqdBS;
InvHostTandemalqdCS = invhosttandemalqdCS;
InvHostTandemalqdABC2 = invhosttandemalqdABC2;
InvHostTandemalqdABCnop = invhosttandemalqdABCnop;
157
InvHostTandemalqdABCnop invhosttandemalqdABCnop;
InvHostTandemitxd = invhosttandemitxd;
InvHostTandemadsld = invhosttandemadsld;
InvHostTandemTOTALd = invhosttandemTOTALd;
Print@TableForm@Table@8id, deptTXTdPidT, InvHostTandemdPidT, InvHostTandemalqdA1PidT,
InvHostTandemalqdB1PidT, InvHostTandemalqdC1PidT, InvHostTandemalqdLLPidT, InvHostTandemalqdLPPidT,
InvHostTandemalqdA1PidT, InvHostTandemalqdB1PidT, InvHostTandemalqdC1PidT, InvHostTandemalqdABC2PidT,
InvHostTandemalqdABCnopPidT, InvHostTandemitxdPidT, InvHostTandemadsldPidT, InvHostTandemTOTALdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov",
"Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD;
H∗ Inversion total en Transmisión a nivel HT por departamento imputable a cada servicio ∗L
Modelo_Integral_ACK.nb
CALCULO DE ANUALIZACION
PrintBStyleB"
FACTORES DE ANUALIZACIÓN", Bold, 14, Underlined, White, Background → BlueFF;
OyMCx = networkopfrac + switchmaintfrac;
OyMTx = networkopfrac + transmaintfrac;
OyMSupp = networkopfrac + supportmaintfrac;
1
VuCx = RoundB
switchdeprfrac
VuTx1 = RoundB
VuTx2 = RoundB
VuTx3 = RoundB
1
transdeprfrac
F;
F;
1
fibertransdeprfrac
1
petransdeprfrac
VuSupp = RoundB
F;
F;
1
supportdeprfrac
F;
F;
edifsupportdeprfrac
retcap
;
FactorSupp = OyMSupp +
1 − H1 + retcapL−VuSupp
retcap
FactorEdif = OyMSupp +
;
1 − H1 + retcapL−VuEdif
VuEdif = RoundB
1
FactorCx = HOyMCx + overheadfracL +
retcap
1 − H1 + retcapL−VuCx
FactorTx1 = HOyMTx + overheadfracL +
FactorTx2 = HOyMTx + overheadfracL +
FactorTx3 = HOyMTx + overheadfracL +
+ supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif;
retcap
1 − H1 + retcapL−VuTx1
retcap
1 − H1 + retcapL−VuTx2
retcap
1 − H1 + retcapL−VuTx3
+ supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif;
+ supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif;
+ supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif;
FactorOyMTx = HOyMTx + overheadfracL + supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif;
Print@"Factores Anuales"D;
Print@TableForm@8FactorSupp, FactorEdif, FactorCx, FactorTx1, FactorTx2, FactorTx3, FactorOyMTx<,
TableDirections → 8Row, Column<,
TableHeadings → 88"Soporte", "Edificios", "Cx", "Tx1", "Tx2", "Tx3", "OyMTx"<, Automatic<DD;
PrintBStyleB
"ESTIMACIÓN DE LOS NIVELES DE GASTO POR ELEMENTO",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
PrintBStyleB"
A NIVEL CONMUTACIÓN", Bold, 14, Underlined, White, Background → BlueFF;
Print@"Costo Total de Cx Remota por Dpto"D;
CTCxRemotad = InvRemotad ∗ FactorCx;
CTCxRemotaLocd = InvRemotaLocd ∗ FactorCx;
CTCxRemotaLDNd = InvRemotaLDNd ∗ FactorCx;
CTCxRemotaLDId = InvRemotaLDId ∗ FactorCx;
Print@
TableForm@Table@8id, deptTXTdPidT, CTCxRemotadPidT, CTCxRemotaLocdPidT, CTCxRemotaLDNdPidT, CTCxRemotaLDIdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "CTCxRemotad", "CTCxRemotaLocd", "CTCxRemotaLDNd", "CTCxRemotaLDId"<<DD;
H∗ Se estima el nivel de gasto de las centrales remotas a nivel departamental ∗L
Print@"Costo Total de Cx Host por Dpto"D;
CTCxHostd = InvHostd ∗ FactorCx;
CTCxHostLocd = InvHostLocd ∗ FactorCx;
CTCxHostLDNd = InvHostLDNd ∗ FactorCx;
CTCxHostLDId = InvHostLDId ∗ FactorCx;
Print@TableForm@Table@8id, deptTXTdPidT, CTCxHostdPidT, CTCxHostLocdPidT, CTCxHostLDNdPidT, CTCxHostLDIdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "CTCxHostd", "CTCxHostLocd", "CTCxHostLDNd", "CTCxHostLDId"<<DD;
H∗ Se estima el nivel de gasto de las centrales cabeceras a nivel departamental ∗L
158
H
Se estima el nivel de gasto de las centrales cabeceras a nivel departamental
L
Modelo_Integral_ACK.nb
Print@"Costo Total de Cx Tandem por Dpto"D;
CTCxTandemd = InvTandemd ∗ FactorCx;
CTCxTandemLocd = InvTandemLocd ∗ FactorCx;
CTCxTandemLDNd = InvTandemLDNd ∗ FactorCx;
CTCxTandemLDId = InvTandemLDId ∗ FactorCx;
Print@
TableForm@Table@8id, deptTXTdPidT, CTCxTandemdPidT, CTCxTandemLocdPidT, CTCxTandemLDNdPidT, CTCxTandemLDIdPidT<,
8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "CTCxTandemd", "CTCxTandemLocd", "CTCxTandemLDNd", "CTCxTandemLDId"<<DD;
H∗ Se estima el nivel de gasto de las centrales Tandem a nivel departamental ∗L
Print@"CTCxTandemitxd: Costo Total de Cx para Circuitos de Interconexión en Tandems por Dpto"D;
CTCxTandemitxd = zerod ∗ FactorCx;
Print@TableForm@Table@8id, deptTXTdPidT, CTCxTandemitxdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxTandemitxd"<<DD;
H∗ Se estima el nivel de gasto de Circuitos de Interconexión en las centrales Tandem a nivel departamental ∗L
Print@"Costo Total de Cx por Dpto"D;
CTCxd = CTCxRemotad + CTCxHostd + CTCxTandemd;
CTCxLocd = CTCxRemotaLocd + CTCxHostLocd + CTCxTandemLocd;
CTCxLDNd = CTCxRemotaLDNd + CTCxHostLDNd + CTCxTandemLDNd;
CTCxLDId = CTCxRemotaLDId + CTCxHostLDId + CTCxTandemLDId;
Print@TableForm@Table@8id, deptTXTdPidT, CTCxdPidT, CTCxLocdPidT, CTCxLDNdPidT, CTCxLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxd", "CTCxLocd", "CTCxLDNd", "CTCxLDId"<<DD;
H∗ Gasto Total en centrales de conmutación a nivel departamental ∗L
Print@"Costo Total de Señalización por Dpto"D;
CTSxd = InvSignald ∗ FactorCx;
CTSxLocd = InvSignalLocd ∗ FactorCx;
CTSxLDNd = InvSignalLDNd ∗ FactorCx;
CTSxLDId = InvSignalLDId ∗ FactorCx;
Print@TableForm@Table@8id, deptTXTdPidT, CTSxdPidT, CTSxLocdPidT, CTSxLDNdPidT, CTSxLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "CTSxd", "CTSxLocd", "CTSxLDNd", "CTSxLDId"<<DD;
H∗ Gasto Total en Señalización por departamento ∗L
PrintBStyleB"
A NIVEL TRANSMISIÓN", Bold, 14, Underlined, White, Background → BlueFF;
Print@"CTTxRemotaHostd: Costo Total de Tx RemotaHost por Dpto imputable al servicio de Voz"D;
CTTxRemotaHostd = invremotehostd1 ∗ FactorTx1 + invremotehostd2 ∗ FactorTx2 + invremotehostd3 ∗ FactorTx3;
CTTxRemotaHostLocd = invremotehostLocd1 ∗ FactorTx1 + invremotehostLocd2 ∗ FactorTx2 + invremotehostLocd3 ∗ FactorTx3;
CTTxRemotaHostLDNd = invremotehostLDNd1 ∗ FactorTx1 + invremotehostLDNd2 ∗ FactorTx2 + invremotehostLDNd3 ∗ FactorTx3;
CTTxRemotaHostLDId = invremotehostLDId1 ∗ FactorTx1 + invremotehostLDId2 ∗ FactorTx2 + invremotehostLDId3 ∗ FactorTx3;
Print@TableForm@Table@8id, deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostLocdPidT,
CTTxRemotaHostLDNdPidT, CTTxRemotaHostLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTTxRemotaHostd",
"CTTxRemotaHostLocd", "CTTxRemotaHostLDNd", "CTTxRemotaHostLDId"<<DD;
H∗ Gasto Total en Transmisión a nivel RH por departamento imputable al servicio de Voz ∗L
Print@"Costo Total de Tx RemotaHost por Dpto"D;
CTTxRemotaHostalqdA1 =
invremotehostalqd1A1 ∗ FactorTx1 + invremotehostalqd2A1 ∗ FactorTx2 + invremotehostalqd3A1 ∗ FactorTx3;
CTTxRemotaHostalqdB1 = invremotehostalqd1B1 ∗ FactorTx1 +
invremotehostalqd2B1 ∗ FactorTx2 + invremotehostalqd3B1 ∗ FactorTx3;
CTTxRemotaHostalqdC1 = invremotehostalqd1C1 ∗ FactorTx1 + invremotehostalqd2C1 ∗ FactorTx2 +
invremotehostalqd3C1 ∗ FactorTx3;
CTTxRemotaHostalqdLL = invremotehostalqd1LL ∗ FactorTx1 + invremotehostalqd2LL ∗ FactorTx2 +
invremotehostalqd3LL ∗ FactorTx3;
CTTxRemotaHostalqdLP = invremotehostalqd1LP ∗ FactorTx1 + invremotehostalqd2LP ∗ FactorTx2 +
invremotehostalqd3LP ∗ FactorTx3;
CTTxRemotaHostalqdAS = invremotehostalqd1AS ∗ FactorTx1 + invremotehostalqd2AS ∗ FactorTx2 +
invremotehostalqd3AS ∗ FactorTx3;
CTTxRemotaHostalqdBS = invremotehostalqd1BS ∗ FactorTx1 + invremotehostalqd2BS ∗ FactorTx2 +
invremotehostalqd3BS ∗ FactorTx3;
CTTxRemotaHostalqdCS = invremotehostalqd1CS ∗ FactorTx1 + invremotehostalqd2CS ∗ FactorTx2 +
invremotehostalqd3CS ∗ FactorTx3;
CTTxRemotaHostalqdABC2 = invremotehostalqd1ABC2 ∗ FactorTx1 +
invremotehostalqd2ABC2 ∗ FactorTx2 + invremotehostalqd3ABC2 ∗ FactorTx3;
CTTxRemotaHostalqdABCnop = invremotehostalqd1ABCnop ∗ FactorTx1 +
invremotehostalqd2ABCnop ∗ FactorTx2 + invremotehostalqd3ABCnop ∗ FactorTx3;
CTTxRemotaHostitxd = invremotehostitxd1 ∗ FactorTx1 + invremotehostitxd2 ∗ FactorTx2 + invremotehostitxd3 ∗ FactorTx3;
CTTxRemotaHostadsld =
invremotehostadsld1 ∗ FactorTx1 + invremotehostadsld2 ∗ FactorTx2 + invremotehostadsld3 ∗ FactorTx3;
CTTxRemotaHostTOTALd = invremotehostTOTALd1 ∗ FactorTx1 +
invremotehostTOTALd2 ∗ FactorTx2 + invremotehostTOTALd3 ∗ FactorTx3;
Print@TableForm@Table@8id, deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostalqdA1PidT, CTTxRemotaHostalqdB1PidT,
159
Modelo_Integral_ACK.nb
Print@TableForm@Table@8id, deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostalqdA1PidT, CTTxRemotaHostalqdB1PidT,
CTTxRemotaHostalqdC1PidT, CTTxRemotaHostalqdLLPidT, CTTxRemotaHostalqdLPPidT, CTTxRemotaHostalqdASPidT,
CTTxRemotaHostalqdBSPidT, CTTxRemotaHostalqdCSPidT, CTTxRemotaHostalqdABC2PidT, CTTxRemotaHostalqdABCnopPidT,
CTTxRemotaHostitxdPidT, CTTxRemotaHostadsldPidT, CTTxRemotaHostTOTALdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov",
"Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD;
H∗ Gasto Total en Transmisión a nivel RH por departamento imputable a todos los servicios ∗L
Print@"CTTxHostTandemd: Costo Total de Tx HostTandem por Dpto imputable al servicio de Voz"D;
CTTxHostTandemd = invhosttandemd1 ∗ FactorTx1 + invhosttandemd2 ∗ FactorTx2 + invhosttandemd3 ∗ FactorTx3 +
HFactorTx1 ∗ satinvd + ExtrasatcostdL + HFactorTx1 ∗ satlimainvd + ExtrasatcostdL + interdinvpermin ∗ satmind4;
CTTxHostTandemLocd = invhosttandemLocd1 ∗ FactorTx1 + invhosttandemLocd2 ∗ FactorTx2 + invhosttandemLocd3 ∗ FactorTx3 +
HFactorTx1 ∗ satinvLocd + ExtrasatcostLocdL + HFactorTx1 ∗ satlimainvLocd + ExtrasatcostLocdL;
CTTxHostTandemLDNd = invhosttandemLDNd1 ∗ FactorTx1 + invhosttandemLDNd2 ∗ FactorTx2 + invhosttandemLDNd3 ∗ FactorTx3 +
HFactorTx1 ∗ satinvLDNd + ExtrasatcostLDNdL + HFactorTx1 ∗ satlimainvLDNd + ExtrasatcostLDNdL;
CTTxHostTandemLDId = invhosttandemLDId1 ∗ FactorTx1 + invhosttandemLDId2 ∗ FactorTx2 + invhosttandemLDId3 ∗ FactorTx3 +
HFactorTx1 ∗ satinvLDId + ExtrasatcostLDIdL + HFactorTx1 ∗ satlimainvLDId + ExtrasatcostLDIdL;
Print@TableForm@Table@8id, deptTXTdPidT, CTTxHostTandemdPidT, CTTxHostTandemLocdPidT,
CTTxHostTandemLDNdPidT, CTTxHostTandemLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTTxHostTandemd",
"CTTxHostTandemLocd", "CTTxHostTandemLDNd", "CTTxHostTandemLDId"<<DD;
H∗ Gasto Total en Transmisión a nivel HT por departamento imputable al servicio de Voz. Se incluye
el gasto asociado a los equipos de los nodos que emplean Tx satelital y el asociado al gasto por los
equipo que existen en Lima. Se añade además el gasto por el alquiler del ancho de banda satelital ∗L
Print@"Costo Total de Tx HostTandem por Dpto"D; CTTxHostTandemalqdA1 =
invhosttandemalqd1A1 ∗ FactorTx1 + invhosttandemalqd2A1 ∗ FactorTx2 + invhosttandemalqd3A1 ∗ FactorTx3 +
HFactorTx1 ∗ satinvalqdA1 + ExtrasatcostalqdA1L + HFactorTx1 ∗ satlimainvalqdA1 + ExtrasatcostalqdA1L;
CTTxHostTandemalqdB1 = invhosttandemalqd1B1 ∗ FactorTx1 + invhosttandemalqd2B1 ∗ FactorTx2 + invhosttandemalqd3B1 ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdB1 + ExtrasatcostalqdB1L + HFactorTx1 ∗ satlimainvalqdB1 + ExtrasatcostalqdB1L;
CTTxHostTandemalqdC1 = invhosttandemalqd1C1 ∗ FactorTx1 + invhosttandemalqd2C1 ∗ FactorTx2 + invhosttandemalqd3C1 ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdC1 + ExtrasatcostalqdC1L + HFactorTx1 ∗ satlimainvalqdC1 + ExtrasatcostalqdC1L;
CTTxHostTandemalqdLL = invhosttandemalqd1LL ∗ FactorTx1 + invhosttandemalqd2LL ∗ FactorTx2 + invhosttandemalqd3LL ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdLL + ExtrasatcostalqdLLL + HFactorTx1 ∗ satlimainvalqdLL + ExtrasatcostalqdLLL;
CTTxHostTandemalqdLP = invhosttandemalqd1LP ∗ FactorTx1 + invhosttandemalqd2LP ∗ FactorTx2 + invhosttandemalqd3LP ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdLP + ExtrasatcostalqdLPL + HFactorTx1 ∗ satlimainvalqdLP + ExtrasatcostalqdLPL;
CTTxHostTandemalqdAS = invhosttandemalqd1AS ∗ FactorTx1 + invhosttandemalqd2AS ∗ FactorTx2 + invhosttandemalqd3AS ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdAS + ExtrasatcostalqdASL + HFactorTx1 ∗ satlimainvalqdAS + ExtrasatcostalqdASL;
CTTxHostTandemalqdBS = invhosttandemalqd1BS ∗ FactorTx1 + invhosttandemalqd2BS ∗ FactorTx2 + invhosttandemalqd3BS ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdBS + ExtrasatcostalqdBSL + HFactorTx1 ∗ satlimainvalqdBS + ExtrasatcostalqdBSL;
CTTxHostTandemalqdCS = invhosttandemalqd1CS ∗ FactorTx1 + invhosttandemalqd2CS ∗ FactorTx2 + invhosttandemalqd3CS ∗
FactorTx3 + HFactorTx1 ∗ satinvalqdCS + ExtrasatcostalqdCSL + HFactorTx1 ∗ satlimainvalqdCS + ExtrasatcostalqdCSL;
CTTxHostTandemalqdABC2 = invhosttandemalqd1ABC2 ∗ FactorTx1 + invhosttandemalqd2ABC2 ∗ FactorTx2 +
invhosttandemalqd3ABC2 ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdABC2 + ExtrasatcostalqdABC2L +
HFactorTx1 ∗ satlimainvalqdABC2 + ExtrasatcostalqdABC2L;
CTTxHostTandemalqdABCnop = invhosttandemalqd1ABCnop ∗ FactorTx1 + invhosttandemalqd2ABCnop ∗ FactorTx2 +
invhosttandemalqd3ABCnop ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdABCnop + ExtrasatcostalqdABCnopL +
HFactorTx1 ∗ satlimainvalqdABCnop + ExtrasatcostalqdABCnopL;
CTTxHostTandemitxd = invhosttandemitxd1 ∗ FactorTx1 + invhosttandemitxd2 ∗ FactorTx2 + invhosttandemitxd3 ∗ FactorTx3 +
HFactorTx1 ∗ satinvitxd + ExtrasatcostitxdL + HFactorTx1 ∗ satlimainvitxd + ExtrasatcostitxdL;
CTTxHostTandemadsld = invhosttandemadsld1 ∗ FactorTx1 + invhosttandemadsld2 ∗ FactorTx2 + invhosttandemadsld3 ∗
FactorTx3 + HFactorTx1 ∗ satinvadsld + ExtrasatcostadsldL + HFactorTx1 ∗ satlimainvadsld + ExtrasatcostadsldL;
CTTxHostTandemTOTALd = invhosttandemTOTALd1 ∗ FactorTx1 + invhosttandemTOTALd2 ∗ FactorTx2 +
invhosttandemTOTALd3 ∗ FactorTx3 + HFactorTx1 ∗ satinvTOTALd + ExtrasatcostTOTALdL +
HFactorTx1 ∗ satlimainvTOTALd + ExtrasatcostTOTALdL;
Print@TableForm@Table@8id, deptTXTdPidT, CTTxHostTandemdPidT, CTTxHostTandemalqdA1PidT, CTTxHostTandemalqdB1PidT,
CTTxHostTandemalqdC1PidT, CTTxHostTandemalqdLLPidT, CTTxHostTandemalqdLPPidT, CTTxHostTandemalqdASPidT,
CTTxHostTandemalqdBSPidT, CTTxHostTandemalqdCSPidT, CTTxHostTandemalqdABC2PidT, CTTxHostTandemalqdABCnopPidT,
CTTxHostTandemitxdPidT, CTTxHostTandemadsldPidT, CTTxHostTandemTOTALdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov",
"Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD;
H∗ Gasto Total en Transmisión a nivel HT por departamento imputable a todos los servicios. Se incluye
el gasto asociado a los equipos de los nodos que emplean Tx satelital y el asociado al gasto por los
equipo que existen en Lima. Se añade además el gasto por el alquiler del ancho de banda satelital ∗L
Print@"CTTxd: Costo Total de Tx por Dpto imputable al servicio de Voz"D;
CTTxd = CTTxRemotaHostd + CTTxHostTandemd;
CTTxLocd = CTTxRemotaHostLocd + CTTxHostTandemLocd;
CTTxLDNd = CTTxRemotaHostLDNd + CTTxHostTandemLDNd;
CTTxLDId = CTTxRemotaHostLDId + CTTxHostTandemLDId;
Print@TableForm@Table@8id, deptTXTdPidT, CTTxdPidT, CTTxLocdPidT, CTTxLDNdPidT, CTTxLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "CTTxd", "CTTxLocd", "CTTxLDNd", "CTTxLDId"<<DD;
H∗ Gasto Total en Transmisión por departamento imputable al servicio de Voz ∗L
Print@"Costo Total de Tx por Dpto"D;
CTTxalqdA1 = CTTxRemotaHostalqdA1 + CTTxHostTandemalqdA1;
CTTxalqdB1 = CTTxRemotaHostalqdB1 + CTTxHostTandemalqdB1;
160
Modelo_Integral_ACK.nb
CTTxalqdB1 CTTxRemotaHostalqdB1 CTTxHostTandemalqdB1;
CTTxalqdC1 = CTTxRemotaHostalqdC1 + CTTxHostTandemalqdC1;
CTTxalqdLL = CTTxRemotaHostalqdLL + CTTxHostTandemalqdLL;
CTTxalqdLP = CTTxRemotaHostalqdLP + CTTxHostTandemalqdLP;
CTTxalqdAS = CTTxRemotaHostalqdAS + CTTxHostTandemalqdAS;
CTTxalqdBS = CTTxRemotaHostalqdBS + CTTxHostTandemalqdBS;
CTTxalqdCS = CTTxRemotaHostalqdCS + CTTxHostTandemalqdCS;
CTTxalqdABC2 = CTTxRemotaHostalqdABC2 + CTTxHostTandemalqdABC2;
CTTxalqdABCnop = CTTxRemotaHostalqdABCnop + CTTxHostTandemalqdABCnop;
CTTxitxd = CTTxRemotaHostitxd + CTTxHostTandemitxd;
CTTxadsld = CTTxRemotaHostadsld + CTTxHostTandemadsld;
CTTxTOTALd = CTTxRemotaHostTOTALd + CTTxHostTandemTOTALd;
Print@
TableForm@Table@8id, deptTXTdPidT, CTTxdPidT, CTTxalqdA1PidT, CTTxalqdB1PidT, CTTxalqdC1PidT, CTTxalqdLLPidT,
CTTxalqdLPPidT, CTTxalqdASPidT, CTTxalqdBSPidT, CTTxalqdCSPidT, CTTxalqdABC2PidT, CTTxalqdABCnopPidT,
CTTxitxdPidT, CTTxadsldPidT, CTTxTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima",
"Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD;
H∗ Gasto Total en Transmisión por departamento imputable a todos los servicios ∗L
Print@"CTTx: Gasto Total en Transmisión a nivel nacional imputable al servicio de Voz "D;
CTTx = Plus @@ CTTxd;
CTTxLoc = Plus @@ CTTxLocd;
CTTxLDN = Plus @@ CTTxLDNd;
CTTxLDI = Plus @@ CTTxLDId;
Print@TableForm@8CTTx, CTTxLoc, CTTxLDN, CTTxLDI<,
TableDirections → 8Row, Column<, TableHeadings → 88"CTTx", "CTTxLoc", "CTTxLDN", "CTTxLDI"<, None<DD;
H∗ Gasto Total en Transmisión a nivel nacional imputable al servicio de Voz ∗L
PrintBStyleB
"PARA HALLAR GASTOS ÚNICOS ADSL",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"Incógnitas"D;
X1;
X2;
H∗La mitad del ingreso a Intradepartamental ∗L
X1
;
InvUsu =
3
X2
;
InvATM =
3
Print@"FactorTx"D;
FactorTx = 8FactorTx1, FactorTx2, FactorTx3<;
Print@
TableForm@FactorTx, TableDirections → 8Row, Column<, TableHeadings → 88"FactorTx1", "FactorTx2", "FactorTx3"<<DD;
Print@"InvIntraDepADSLd"D;
InvIntraDepADSLd = 8invremotehostadsld1 + invhosttandemadsld1 + satinvadsld + satlimainvadsld,
invhosttandemadsld2 + invremotehostadsld2, invremotehostadsld3 + invhosttandemadsld3<;
Print@TableForm@Table@8id, deptTXTdPidT, InvIntraDepADSLdP1, idT, InvIntraDepADSLdP2, idT,
InvIntraDepADSLdP3, idT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "InvIntraDepADSL1d", "InvIntraDepADSL2d", "InvIntraDepADSL3d"<<DD;
Print@"InvUsuPropd"D;
InvUsuPropd = Table@0, 8if, 3<, 8id, nd<D;
DoBInvUsuPropdPif, idT = InvUsu ∗
InvIntraDepADSLdPif, idT
Plus @@ Plus @@ InvIntraDepADSLd
, 8if, 3<, 8id, nd<F;
Print@TableForm@Table@8id, deptTXTdPidT, InvUsuPropdP1, idT, InvUsuPropdP2, idT, InvUsuPropdP3, idT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "InvUsuProp1d", "InvUsuProp2d", "InvUsuProp3d"<<DD;
Print@"InvATMPropd"D;
InvATMPropd = Table@0, 8if, 3<, 8id, nd<D;
InvIntraDepADSLdPif, idT
, 8if, 3<, 8id, nd<F;
DoBInvATMPropdPif, idT = InvATM ∗
Plus @@ Plus @@ InvIntraDepADSLd
Print@TableForm@Table@8id, deptTXTdPidT, InvATMPropdP1, idT, InvATMPropdP2, idT, InvATMPropdP3, idT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "InvATMProp1d", "InvATMProp2d", "InvATMProp3d"<<DD;
Print@"InvIntraDepADSLd"D;
InvIntraDepADSLd = InvIntraDepADSLd − InvUsuPropd − InvATMPropd;
Print@TableForm@
Table@8id, deptTXTdPidT, InvIntraDepADSLdP1, idT, InvIntraDepADSLdP2, idT, InvIntraDepADSLdP3, idT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings →
8None, 8"id", "Nombre Departamento", "InvIntraDepADSL1d", "InvIntraDepADSL2d", "InvIntraDepADSL3d"<<DD;
Print@"CosteExtraSatADSL"D;
CosteExtraSatADSL = 2 ∗ Plus @@ Extrasatcostadsld;
Print@TableForm@CosteExtraSatADSLDD;
161
Modelo_Integral_ACK.nb
Print@TableForm@CosteExtraSatADSLDD;
Print@"CTTxadsld"D; CTTxadsld = FullSimplify@InvIntraDepADSLdP1T ∗ FactorTxP1T +
InvIntraDepADSLdP2T ∗ FactorTxP2T + InvIntraDepADSLdP3T ∗ FactorTxP3T + 2 ∗ ExtrasatcostadsldD;
Print@TableForm@Table@8id, deptTXTdPidT, CTTxadsldPidT<, 8id, nd<D, TableDirections → 8Column, Row<,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Central", "CTTxadsld"<<DD;
PrintBStyleB
"GASTOS FINALES A NIVEL NACIONAL",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"Gasto Total en Transmisión a nivel nacional"D;
CTTxalqA1 = Plus @@ CTTxalqdA1;
CTTxalqB1 = Plus @@ CTTxalqdB1;
CTTxalqC1 = Plus @@ CTTxalqdC1;
CTTxalqABC2 = Plus @@ CTTxalqdABC2;
CTTxalqABCnop = Plus @@ CTTxalqdABCnop;
CTTxitx = Plus @@ CTTxitxd;
CTTxadsl = Plus @@ CTTxadsld;
CTTxTOTAL = Plus @@ CTTxTOTALd;
Print@TableForm@8CTTx, CTTxalqA1, CTTxalqB1, CTTxalqC1, CTTxalqLL, CTTxalqLP, CTTxalqAS, CTTxalqBS,
CTTxalqCS, CTTxalqABC2, CTTxalqABCnop, CTTxitx, CTTxadsl, CTTxTOTAL<, TableDirections → 8Row, Column<,
TableHeadings → 88"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat",
"Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<, None<DD;
H∗ Gasto Total en Transmisión a nivel nacional imputable a todos los servicios ∗L
PrintAStyleA"
A NIVEL TOTAL", Bold, 14, Underlined, White, Background → BlueEE;
Print@"CTd: Costo Total Anual de los Elementos de red por Dpto"D;
CTd = CTCxRemotad + CTCxHostd + CTCxTandemd + CTSxd + CTTxRemotaHostd + CTTxHostTandemd;
CTLocd = CTCxRemotaLocd + CTCxHostLocd + CTCxTandemLocd + CTSxLocd + CTTxRemotaHostLocd + CTTxHostTandemLocd;
CTLDNd = CTCxRemotaLDNd + CTCxHostLDNd + CTCxTandemLDNd + CTSxLDNd + CTTxRemotaHostLDNd + CTTxHostTandemLDNd;
CTLDId = CTCxRemotaLDId + CTCxHostLDId + CTCxTandemLDId + CTSxLDId + CTTxRemotaHostLDId + CTTxHostTandemLDId;
Print@TableForm@Table@8id, deptTXTdPidT, CTdPidT, CTTxLocdPidT, CTLDNdPidT, CTLDIdPidT<, 8id, nd<D,
TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "CTd", "CTLocd", "CTLDNd", "CTLDId"<<DD;
H∗ Gasto Total por departamento imputable al servicio de Voz. Incluye todos los
elementos de red: centrales remotas, centrales cabeceras,
centrales tandem, transmisión RH, transmisión HT y señalización ∗L
Print@"Costo Total Anual de los Elementos de red por Dpto"D;
CTalqdA1 = CTTxRemotaHostalqdA1 + CTTxHostTandemalqdA1;
CTalqdB1 = CTTxRemotaHostalqdB1 + CTTxHostTandemalqdB1;
CTalqdC1 = CTTxRemotaHostalqdC1 + CTTxHostTandemalqdC1;
CTalqdLL = CTTxRemotaHostalqdLL + CTTxHostTandemalqdLL;
CTalqdLP = CTTxRemotaHostalqdLP + CTTxHostTandemalqdLP;
CTalqdAS = CTTxRemotaHostalqdAS + CTTxHostTandemalqdAS;
CTalqdBS = CTTxRemotaHostalqdBS + CTTxHostTandemalqdBS;
CTalqdCS = CTTxRemotaHostalqdCS + CTTxHostTandemalqdCS;
CTalqdABC2 = CTTxRemotaHostalqdABC2 + CTTxHostTandemalqdABC2;
CTalqdABCnop = CTTxRemotaHostalqdABCnop + CTTxHostTandemalqdABCnop;
CTitxd = H∗CTCxTandemitxd+∗LCTTxRemotaHostitxd + CTTxHostTandemitxd;
CTadsld = CTTxRemotaHostadsld + CTTxHostTandemadsld;
CTTOTALd =
CTCxRemotad + CTCxHostd + CTCxTandemd + CTSxd + CTCxTandemitxd + CTTxRemotaHostTOTALd + CTTxHostTandemTOTALd;
Print@TableForm@Table@8id, deptTXTdPidT, CTdPidT, CTalqdA1PidT, CTalqdB1PidT, CTalqdC1PidT, CTalqdLLPidT,
CTalqdLPPidT, CTalqdASPidT, CTalqdBSPidT, CTalqdCSPidT, CTalqdABC2PidT, CTalqdABCnopPidT, CTitxdPidT,
CTadsldPidT, CTTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima",
"Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD;
H∗ Gasto Total por departamento imputable a todos los servicios. Incluye todos los
elementos de red: centrales remotas, centrales cabeceras,
centrales tandem, transmisión RH, transmisión HT y señalización ∗L
Print@"CT: Costo Total a nivel nacional de Voz"D;
CT = Plus @@ CTd;
CTLoc = Plus @@ CTLocd;
CTLDN = Plus @@ CTLDNd;
CTLDI = Plus @@ CTLDId;
Print@TableForm@8CT, CTTxLoc, CTLDN, CTLDI<,
TableDirections → 8Row, Column<, TableHeadings → 88"CT", "CTLoc", "CTLDN", "CTLDI"<, None<DD;
H∗ Gasto Total a nivel nacional imputable al servicio de Voz. Incluye todos los
elementos de red: centrales remotas, centrales cabeceras,
centrales tandem, transmisión RH, transmisión HT y señalización ∗L
Print@"Costo Total a nivel nacional"D;
CTalqA1 = Plus @@ CTalqdA1;
CTalqB1 = Plus @@ CTalqdB1;
CTalqC1 = Plus @@ CTalqdC1;
CTalqLL = Plus @@ CTalqdLL;
CTalqLP = Plus @@ CTalqdLP;
162
Modelo_Integral_ACK.nb
CTalqLP Plus
CTalqdLP;
CTalqAS = Plus @@ CTalqdAS;
CTalqBS = Plus @@ CTalqdBS;
CTalqCS = Plus @@ CTalqdCS;
CTalqABC2 = Plus @@ CTalqdABC2;
CTalqABCnop = Plus @@ CTalqdABCnop;
CTitx = Plus @@ CTitxd;
CTadsl = Plus @@ CTadsld;
CTTOTAL = Plus @@ CTTOTALd;
Print@TableForm@8CT, CTalqA1, CTalqB1, CTalqC1, CTalqLL, CTalqLP, CTalqAS, CTalqBS,
CTalqCS, CTalqABC2, CTalqABCnop, CTitx, CTadsl, CTTOTAL<, TableDirections → 8Row, Column<,
TableHeadings → 88"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat",
"Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<, None<DD;
H∗ Gasto Total a nivel nacional imputable a todos los servicios. Incluye todos los elementos de
red: centrales remotas, centrales cabeceras, centrales tandem, transmisión RH, transmisión HT y señalización ∗L
RESULTADOS
Resultado final para Terminación de Llamada Osiptel
PrintBStyleB
"RESULTADO FINAL PARA TERMINACIÓN DE LLAMADA OSIPTEL",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
Print@"Ponderación por Dpto."D;
Print@"Código hecho por OSIPTEL"D;
TrafTotd = zerod;
Do@TrafTotdPdeptxPixTT = TrafTotdPdeptxPixTT +
HlocoutxPixT + interprovoutxPixT + ldxPixT + recldxPixT + intlinxPixT + intloutxPixTL, 8ix, nx<D;
Print@"TrafTotd"D;
Print@TableForm@Table@8id, deptTXTdPidT, TrafTotdPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "TrafTotd"<<DD;
H∗ Tráfico Total ∗L
Print@"CMed: Costo Unitario por Departamento"D;
CMed = zerod;
DoBCMedPidT =
CTdPidT
TrafTotdPidT
, 8id, nd<F;
Print@TableForm@Table@8id, deptTXTdPidT, CMedPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CMed"<<DD;
Print@"TrafTotNac"D;
TrafTotNac = Plus @@ TrafTotd;
Print@TrafTotNacD;
H∗ Se coloca la información ya que sólo se había considerado 11 meses ∗L
Print@"Ponderación Nacional de Tráfico"D;
PondNacd = zerod;
TrafTotdPidT
, 8id, nd<F;
DoBPondNacdPidT =
TrafTotNac
Print@TableForm@Table@8id, deptTXTdPidT, PondNacdPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "PondNacd"<<DD;
Print@"Ponderación Nacional de Tráfico"D;
TrafTotropNac = 0;
Do@TrafTotropNac = TrafTotropNac + If@id LIMA, 0, 1D ∗ TrafTotdPidT, 8id, nd<D
PondropNacd = zerod;
TrafTotdPidT ∗ If@id LIMA, 0, 1D
, 8id, nd<F;
DoBPondropNacdPidT =
TrafTotropNac
Print@"Costo de Interconexión Promedio Ponderado a nivel Nacional − Resultado de OSIPTEL"D;
CMeMinNacT = CMed . PondNacd;
Print@CMeMinNacTD;
163
Modelo_Integral_ACK.nb
Resultado final para Terminación de Llamada Osiptel (por Capacidad)
PrintBStyleB
"CALCULO DEL CARGO FIJO PERIODICO HPOR CAPACIDADL",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
H∗Función Tráfico en función de cantidad de Troncales y probabilidad de bloqueo∗L
Print@"Definición de Función Traf"D;
Off@FindRoot::lstolD;
Off@FindRoot::jsingD;
Traf@n_, p_D := ModuleB8Expr, Sol<,
If@n > $MaxRootDegree, $MaxRootDegree = n, $MaxRootDegree = 1000D;
n
Expr = ExpandAllB‚
j=0
λ1j
j!
F;
Sol = ReplaceAllBλ1, FindRootBExpr −
λ1n 1
n! p
, 8λ1, n + If@n ≥ 1, Log@nD, 0D<FF;
N@SolDF;
H∗E0s para tramos Remote−Host y Host−Tandem ∗L
E0sremotehostd = Table@
Plus @@ Table@trunkxPixT, 8ix, Select@Range@nxD, deptxPT id Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8id, nd<D;
E0shosttandemd = TableBIfBid MADREDEDIOS, CalcTrunkB
HswitchendHCLDNpPPTOMALDONADOPT + locoutHCpPPTOMALDONADOPT + switchendHCLDIpPPTOMALDONADOPTL, 0.01F, 0F −
60
If@id LIMA, HPlus @@ Table@trunkxPhostpPipTT − Plus @@ Table@trunkxPixT, 8ix, Select@Range@nxD,
provxPT ip Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8ip, Select@Range@npD, deptxPhostpPTT LIMA Ï
host1xPhostpPTT 1 Ï Hsat1xPhostpPTT 0 Í tandem1xPhostpPTT 1L Ï tandem1xPhostpPTT 0 &D<D −
trunkxPidinvertxPCentralRefTT ∗ 2L ê 2, 0D + Plus @@ Table@trunkxPhostpPipTT −
Plus @@ Table@trunkxPixT, 8ix, Select@Range@nxD, provxPT ip Ï Hremote1xPT 1 Í sat1xPT 1L &D<D,
8ip, Select@Range@npD, deptxPhostpPTT id Ï host1xPhostpPTT 1 Ï
1
Hsat1xPhostpPTT 0 Í tandem1xPhostpPTT 1L Ï tandem1xPhostpPTT 0 &D<D, 8id, nd<F;
H∗Peso tramos Remote−Host y Host−Tandem∗L
E0sremotehostd
;
Wremotehostd =
E0sremotehostd + E0shosttandemd
E0shosttandemd
;
Whosttandemd =
E0sremotehostd + E0shosttandemd
Print@TableForm@Table@8id, deptTXTdPidT, E0sremotehostdPidT, E0shosttandemdPidT,
E0sremotehostdPidT + E0shosttandemdPidT, WremotehostdPidT, WhosttandemdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "E0s R−C", "E0s C−T", "Total E0s", "w1", "w2"<<DD;
PrintAStyleA"Tramo
Remota Cabecera", Bold, 14, Underlined, White, Background → BlueEE;
H∗Número de Remotas por Departamento∗L
Remotasd = Table@Plus @@ Table@remote1xPixT + sat1xPixT, 8ix, Select@Range@nxD, deptxPT id &D<D, 8id, nd<D;
H∗Circuitos por Tramo Remota Cabecera∗L
E0sremotehostdPidT
FF, 8id, nd<F;
trunkremotehostd = TableBIfBRemotasdPidT 0, 0, CeilingB
RemotasdPidT
H∗Erlangs Cursados por Tramo Remota Cabecera∗L
erlangremotehostd = Table@Traf@trunkremotehostdPidT, probD ∗ H1 − probL, 8id, nd<D;
H∗Minuntos Cursados por Circuito en Tramo Remota Cabecera∗L
mintrunkremotehostd = TableB60 IfBtrunkremotehostdPidT 0, 0,
erlangremotehostdPidT
trunkremotehostdPidT
F, 8id, nd<F;
Print@TableForm@
Table@8id, deptTXTdPidT, RemotasdPidT, trunkremotehostdPidT, erlangremotehostdPidT, mintrunkremotehostdPidT<,
8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Remotas",
"Circ Remota Cabecera", "Erlang Remota Cabecera", "Min Remota Cabecera por Circuito"<<DD;
PrintAStyleA"Tramo
Cabecera Tandem", Bold, 14, Underlined, White, Background → BlueEE;
H∗Número de Cabeceras por Departamento∗L
Cabecerasd = Table@Plus @@ Table@host1xPixT − sat1xPixT, 8ix, Select@Range@nxD, deptxPT id &D<D, 8id, nd<D;
H∗Circuitos por Tramo Cabecera Tandem∗L
E0shosttandemdPidT
trunkhosttandemd = TableBIfBCabecerasdPidT 0, 0, CeilingB
FF, 8id, nd<F;
CabecerasdPidT
H∗Erlangs Cursados por Tramo Cabecera Tandem∗L
erlanghosttandemd = Table@Traf@trunkhosttandemdPidT, probD ∗ H1 − probL, 8id, nd<D;
H∗Minuntos Cursados por Circuito en Tramo Cabecera Tandem∗L
erlanghosttandemdPidT
mintrunkhosttandemd = TableB60 IfBtrunkhosttandemdPidT 0, 0,
F, 8id, nd<F;
trunkhosttandemdPidT
Print@TableForm@
Table@8id, deptTXTdPidT, CabecerasdPidT, trunkhosttandemdPidT, erlanghosttandemdPidT, mintrunkhosttandemdPidT<,
8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Cabeceras",
"Circ Cabecera Tandem", "Erlang Cabecera Tandem", "Min Cabecera Tandem por Circuito"<<DD;
PrintAStyleA"Totales", Bold, 14, Underlined, White, Background → BlueEE;
164
A
A"Totales"
EE
Modelo_Integral_ACK.nb
H∗Minuntos Cursados Total utilizando pesos∗L
mintrunkd = mintrunkremotehostd ∗ Wremotehostd + mintrunkhosttandemd ∗ Whosttandemd;
Print@TableForm@Table@8id, deptTXTdPidT, mintrunkdPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Min Totales por Circuito"<<DD;
H∗Tráfico de Hora Cargada por Departamento∗L
TrafTotHCd =
Table@Plus @@ Table@locoutHCxPixT + interprovoutHCxPixT + ldHCxPixT + recldHCxPixT + intlinHCxPixT + intloutHCxPixT,
8ix, Select@Range@nxD, deptxPT id &D<D, 8id, nd<D;
Print@TableForm@Table@8id, deptTXTdPidT, TrafTotHCdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "Tráfico Total"<<DD;
H∗Circuitos y E1s Equivalentes∗L
TrafTotHCd
F;
CirqEquivd = CeilingB
mintrunkd
CeilingB
CirqEquivd
30
F
F;
fiberfill
Print@TableForm@Table@8id, deptTXTdPidT, CirqEquivdPidT, E1sEquivdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "Circuitos Equivalentes", "E1s Equivalentes"<<DD;
H∗Ponderación Nacional de Tráfico en función a E1s∗L
E1sEquivd = CeilingB
PondNacE1Equivd =
CTE1mesd =
CTd
E1sEquivd
Plus @@ E1sEquivd
;
1
;
E1sEquivd 12
Print@TableForm@Table@8id, deptTXTdPidT, PondNacE1EquivdPidT, CTE1mesdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "Ponderador de E1s Equiv", "Costo por E1 Mensual"<<DD;
Print@"Costo de Interconexión Promedio Ponderado a nivel Nacional por Capacidad − Resultado de OSIPTEL"D;
CMeE1NacT = CTE1mesd.PondNacE1Equivd;
Print@CMeE1NacTD;
Resultado final para Terminación de Llamada Osiptel, Con Factor de Corrección
PrintBStyleB
"CALCULO DEL FACTOR DE CORRECCIÓN",
Bold, 16, Underlined, White, Background → RGBColorB0,
1
, 0FFF;
2
H∗Se define kmax, como K∗L
kmax = K;
H∗Función de Distribución de la demanda en función del tiempo,
o periodo total T de distribución dd@0D = K, dd@TD = 0∗L
K
dd@t_D := K − t;
T
H∗Función que determina para una capacidad contratada k,
el cruce de la capacidad contratada con la función de demanda,
también es función Inversa de dd@tD, τ@KD=0,τ@0D=T∗L
T
k;
τ@k_D := T −
K
H∗Cantidad de minutos pagados en exceso, en función de la capacidad contratada k∗L
q@k_D := ‡
τ@kD
0
Hdd@tD − kL t;
H∗Lo que se paga en función de la capacidad contratada k∗L
Cix@k_D := ak ∗ k + aq ∗ q@kD;
H∗El qmax será la cantidad de minutos a pagar, cuando k=0, o sea todo se paga por tiempo∗L
qmax = q@0D;
H∗Los cargos están dados por∗L
F
;
ak =
kmax
F
aq =
;
qmax
H∗Donde F es el pago total si todo estuviera en sólo uno de los modos∗L
H∗Se optimiza el pago Cix,
se deriva respecto de la capacidad contratada k y se iguala a cero el resultado será el k óptimo: kop ;
para dicho kop, existe un qop dado por qop=q@kopD∗L
kop = Replace@k, Solve@∂k Cix@kD 0, kDP1TD;
qop = q@kopD;
H∗El Factor de corrección estará dado por la relación entre el pago total F y el pago deducido como óptimo∗L
Print@"Factor de Corrección"D;
F
;
λ =
kop ak + qop aq
Print@λD;
H∗Cargos Corregidos∗L
Print@"Costo de Interconexión Promedio Ponderado a
nivel Nacional por Tiempo y por Capacidad − Resultados de OSIPTEL Corregidos"D;
CMeMinNacTCorr = CMeMinNacT ∗ λ;
CMeE1NacTCorr = Ceiling@CMeE1NacT ∗ λD;
Print@CMeMinNacTCorrD;
Print@CMeE1NacTCorrD;
This document was created with Win2PDF available at http://www.win2pdf.com.
The unregistered version of Win2PDF is for evaluation or non-commercial use only.
This page will not be added after purchasing Win2PDF.