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"
[email protected]"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"
[email protected]"input_centralesfinal.txt"D;
ü Lee archivo y lo carga en variable auxiliar "y"
y = [email protected]"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
[email protected]"disthostx"D;
disthostx
;
disthostx =
factorNoLinealx
H∗ corrige la variable dishostx por el factor de no linealidad que le corresponde ∗L
[email protected]"disttandemx"D;
disttandemx
;
disttandemx =
factorNoLinealx
H∗ corrige la variable disttandemx por el factor de no linealidad que le corresponde ∗L
[email protected]"repfibrax"D;
repfibrax = zerox;
[email protected]
[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
[email protected]"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;
[email protected]"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
[email protected]"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
[email protected]"Calculos posteriores"D;
[email protected]@TamAnillopPiapT < 0.01, TamAnillopPiapT = 0D;, 8iap, np<D;
[email protected]@TamAnillodPiadT < 0.01, TamAnillodPiadT = 0D;, 8iad, nd<D;
[email protected]"FIN Calculos posteriores"D;
[email protected]"TamAnillop"D;
[email protected]@[email protected], provTXTpPipT, TamAnillopPipT<, 8ip, np<D, TableAlignments → Right,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "TamAnillop"<<DD;
[email protected]"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
[email protected]"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;
[email protected]"Trafico en Hora Cargada"D;
TraficoRealHCx = [email protected]"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
[email protected]"Trafico Minutos de Uso"D;
TraficoRealMx = [email protected]"input_Trafico_M.txt", 8Real, Real, Real, Real, Real, Real<D ∗ FactTrafico;
H∗[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
[email protected]"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;
[email protected]"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;
[email protected]"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
[email protected]"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;
[email protected]"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;
[email protected]"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]@[email protected], 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
[email protected]"input_RutasDirectas.txt"D;
RD = [email protected]@"input_RutasDirectas.txt", Number, RecordLists → TrueDD;
H∗Lectura del fichero de rutas directas∗L
nrd = [email protected];
H∗ Numero de registros en el fichero de rutas directas∗L
[email protected] 0, [email protected], 3T = 0;, 8i, nrd<D;, [email protected]"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;
[email protected], 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
[email protected]"Tráfico de Salida"D; [email protected]
[email protected]@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 = [email protected], 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
[email protected]"Tráfico de Entrada"D; [email protected]
[email protected]@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;
[email protected]"Rutas Directas"D; [email protected]
[email protected]@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
[email protected]@[email protected], 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;
[email protected]@remotexPixT Ï tandemxPixT idinvertxP248T,
TempLoc = TempLoc + switchendLocxPixT;
TempLDN = TempLDN + switchendLDNxPixT;
TempLDI = TempLDI + switchendLDIxPixT;D;, 8ix, nx<D;
[email protected]@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
[email protected]@[email protected], 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;
[email protected] = switchendLocpPprovxPixTT + switchendLocxPixT;
switchendLDNpPprovxPixTT = switchendLDNpPprovxPixTT + switchendLDNxPixT;
switchendLDIpPprovxPixTT = switchendLDIpPprovxPixTT + switchendLDIxPixT;, 8ix, nx<D;
switchendp = switchendLocp + switchendLDNp + switchendLDIp;
[email protected]@
[email protected], 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;
[email protected] = switchendLocdPdeptxPixTT + switchendLocxPixT;
switchendLDNdPdeptxPixTT = switchendLDNdPdeptxPixTT + switchendLDNxPixT;
switchendLDIdPdeptxPixTT = switchendLDIdPdeptxPixTT + switchendLDIxPixT;, 8ix, nx<D;
switchendd = switchendLocd + switchendLDNd + switchendLDId;
[email protected]@
[email protected], 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
[email protected]
[email protected]@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;
[email protected] = switchendHCLocpPprovxPixTT + switchendHCLocxPixT;
switchendHCLDNpPprovxPixTT = switchendHCLDNpPprovxPixTT + switchendHCLDNxPixT;
switchendHCLDIpPprovxPixTT = switchendHCLDIpPprovxPixTT + switchendHCLDIxPixT;, 8ix, nx<D;
switchendHCp = switchendHCLocp + switchendHCLDNp + switchendHCLDIp;
[email protected]@[email protected]
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;
[email protected] = switchendHCLocdPdeptxPixTT + switchendLocxPixT;
switchendHCLDNdPdeptxPixTT = switchendHCLDNdPdeptxPixTT + switchendLDNxPixT;
switchendHCLDIdPdeptxPixTT = switchendHCLDIdPdeptxPixTT + switchendLDIxPixT;, 8ix, nx<D;
switchendHCd = switchendHCLocd + switchendHCLDNd + switchendHCLDId;
[email protected]@[email protected]
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;
[email protected]@
[email protected], 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;
[email protected] = satminLocpPprovxPixTT + satminLocxPixT;
satminLDNpPprovxPixTT = satminLDNpPprovxPixTT + satminLDNxPixT;
satminLDIpPprovxPixTT = satminLDIpPprovxPixTT + satminLDIxPixT;
satldintradpPprovxPixTT = satldintradpPprovxPixTT + satldintradxPixT;
satminpPprovxPixTT = satminpPprovxPixTT + satminxPixT, 8ix, nx<D;
[email protected]@[email protected]
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;
[email protected] = 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;
[email protected]@[email protected]
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;
[email protected]@
[email protected], 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
[email protected]@[email protected], 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 = [email protected]@remotexPixT Ï ropxPixT, switchendLocxPixT − intraxPixT, 0D, 8ix, nx<D;
ropminremotehostLDNx = [email protected]@remotexPixT Ï ropxPixT, switchendLDNxPixT, 0D, 8ix, nx<D;
ropminremotehostLDIx = [email protected]@remotexPixT Ï ropxPixT, switchendLDIxPixT, 0D, 8ix, nx<D;
ropminremotehostx = ropminremotehostLocx + ropminremotehostLDNx + ropminremotehostLDIx;
[email protected]
[email protected]@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 = [email protected]@remotexPixT Ï ropxPixT, switchendHCLocxPixT − intraHCxPixT, 0D, 8ix, nx<D;
ropminremotehostHCLDNx = [email protected]@remotexPixT Ï ropxPixT, switchendHCLDNxPixT, 0D, 8ix, nx<D;
ropminremotehostHCLDIx = [email protected]@remotexPixT Ï ropxPixT, switchendHCLDIxPixT, 0D, 8ix, nx<D;
ropminremotehostHCx = ropminremotehostHCLocx + ropminremotehostHCLDNx + ropminremotehostHCLDIx;
[email protected]@[email protected], 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;
[email protected]
[email protected]@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;
[email protected]@[email protected], yPix, 13T, limaminremotehostHCLocxPixT,
<
D
28
Modelo_Integral_ACK.nb
[email protected]@[email protected], 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;
[email protected]@
[email protected], 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;
[email protected] = minremotehostLocdPdeptxPixTT + minremotehostLocxPixT;
minremotehostLDNdPdeptxPixTT = minremotehostLDNdPdeptxPixTT + minremotehostLDNxPixT;
minremotehostLDIdPdeptxPixTT = minremotehostLDIdPdeptxPixTT + minremotehostLDIxPixT;
minremotehostdPdeptxPixTT = minremotehostdPdeptxPixTT + minremotehostxPixT, 8ix, nx<D;
[email protected]@[email protected], 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;
[email protected]@[email protected], 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
[email protected]@[email protected], 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 = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendLocpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
[email protected], intrapPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemLDNx = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDNpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemLDIx = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDIpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemx = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
[email protected], intrapPprovxPixTT, 0D, 8ix, nx<D;
[email protected]@[email protected], 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 = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendHCLocpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL +
[email protected], intraHCpPprovxPixTT, 0D, 0D, 8ix, nx<D;
ropminhosttandemHCLDNx = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDNpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemHCLDIx = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDIpPprovxPixTT, 0D, 8ix, nx<D;
ropminhosttandemHCx = [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
D
29
Modelo_Integral_ACK.nb
ropminhosttandemHCx [email protected]@hostxPixT Ï ropxPixT Ï tandemxPixT ixH Ï satxPixT L,
switchendHCpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL, 0D +
[email protected], intraHCpPprovxPixTT, 0D, 8ix, nx<D;
[email protected]@[email protected], 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 = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendLocpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
[email protected], intrapPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemLDNx = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDNpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemLDIx = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendLDIpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemx = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D +
[email protected], intrapPprovxPixTT, 0D, 8ix, nx<D;
[email protected]@[email protected], 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 = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendHCLocpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL +
[email protected], intraHCpPprovxPixTT, 0D, 0D, 8ix, nx<D;
limaminhosttandemHCLDNx = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDNpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemHCLDIx = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix
H∗ϬsatxPixT∗L, switchendHCLDIpPprovxPixTT, 0D, 8ix, nx<D;
limaminhosttandemHCx = [email protected]@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L,
switchendHCpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL, 0D +
[email protected], intraHCpPprovxPixTT, 0D, 8ix, nx<D;
[email protected]@[email protected], 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;
[email protected]@
[email protected], 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;
[email protected] = minhosttandemLocdPdeptxPixTT + minhosttandemLocxPixT;
minhosttandemLDNdPdeptxPixTT = minhosttandemLDNdPdeptxPixTT + minhosttandemLDNxPixT;
minhosttandemLDIdPdeptxPixTT = minhosttandemLDIdPdeptxPixTT + minhosttandemLDIxPixT;
minhosttandemdPdeptxPixTT = minhosttandemdPdeptxPixTT + minhosttandemxPixT, 8ix, nx<D;
[email protected]@[email protected], 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;
[email protected]@[email protected], 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
[email protected]@[email protected], 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
[email protected]"Definición de la función CalcTrunk"D;
H∗ ERLANGB [email protected]λ_,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
[email protected]λ_, 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;
[email protected]@deptxPixT ≠ MADREDEDIOS, trunksatxPixT = [email protected], probD;D;, 8ix, nx<D;
CeilingA
DoBe1satxPixT = CeilingB
trunksatx PixT
E
30
compresDCME
F, 8ix, nx<F;
[email protected]@
[email protected], yPix, 13T, trunksatxPixT, e1satxPixT<, 8ix, [email protected]@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 = [email protected], 1T, loadRDxPird, 2T, [email protected], 3T, probD<, 8ird, nrd<D;
[email protected]@[email protected], 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
[email protected]@[email protected], yPix, 13T, e1RDxPixT<, 8ix, [email protected]@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 = [email protected], 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
[email protected]@[email protected], yPix, 13T, trunkremotehostxPixT, e1remotehostxPixT<,
8ix, [email protected]@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 = [email protected], 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;
[email protected]@[email protected], yPix, 13T, trunkhosttandemxPixT, e1hosttandemxPixT<,
8ix, [email protected]@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;
[email protected], 1TT = trunkrdxPtrunkRDxPird, 1TT + trunkRDxPird, 3T;
trunkrdxPtrunkRDxPird, 2TT = trunkrdxPtrunkRDxPird, 2TT + trunkRDxPird, 3T;, 8ird, nrd<D;
trunkx = [email protected] ∗ trunkremotehostxPixT +
host1xPixT ∗ HtrunkhosttandemxPixT ∗ [email protected] LIMA, 2, 1D + trunkrdxPixTL, 8ix, nx<D;
[email protected]@remotexPixT, trunkxPallhostxPixTT = trunkxPallhostxPixTT + trunkremotehostxPixTD;
[email protected] Ï tandemxPixT ≠ ix, trunkxPtandemxPixTT = trunkxPtandemxPixTT + trunkhosttandemxPixTD;, 8ix, nx<D;
[email protected]@[email protected], 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
[email protected]"demandasADSL1"D;
[email protected]"Demandas_ADSL_2005OrdTotal_6Pops.txt"D;
demandasADSL1 = [email protected]"Demandas_ADSL_2005OrdTotal_6Pops.txt",
8Word, Word, Word, Real, Real, Real, Real, Real, Real, Real<D;
[email protected]"Demandas_ADSL_2005OrdTotal_6Pops.txt"D;
[email protected]"Localidades"D;
Localidades = [email protected];
[email protected];
H∗ Todas las Localidades con servicio ADSL ∗L
[email protected]@[email protected]@[email protected], 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
[email protected]"equivADSL"D;
equivADSL = [email protected], idinvertxPdemandasADSL1Pi, 4TT<, 8i, Localidades<D;
[email protected];
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
[email protected]"neq"D;
neq = [email protected];
[email protected];
[email protected]"EquivADSLFija"D;
EquivADSLFija = [email protected], 8ix, nx<D;
[email protected]
[email protected], 2T ≠ 0, EquivADSLFijaPequivADSLPieq, 2TT = equivADSLPieq, 1T;D;, 8ieq, neq<D;
[email protected];
H∗ lista de nodos ATM en Lima∗L
[email protected]"NodosATMLima_6Pops.txt"D;
H∗Instruccion escondida. En texto blanco∗L
CxATMLima1x = [email protected]"NodosATMLima_6Pops.txt", RealD;
CxATMLimax = zerox;
[email protected] = CxATMLima1xPixT, 8ix, nx<D;
[email protected];
[email protected]"sumademandasADSL"D;
sumademandasADSL =
[email protected], 5T + demandasADSL1Pi, 6T + demandasADSL1Pi, 7T + demandasADSL1Pi, 8T +
demandasADSL1Pi, 9T + demandasADSL1Pi, 10T, 8i, Localidades<D; [email protected];
H∗Suma las demandas ∗L
[email protected]"demandasADSL1x"D;
demandasADSL1x = [email protected]@0, 8il, 6<D, 8ix, nx<D;
[email protected]@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,
[email protected]@demandasADSL1xDD;
H∗Distribución de las demandas a nivel departamental∗L
5T;
6T;
7T;
8T;
9T;
10T;D;, 8ix, nx<D;
[email protected]"demandasADSL1Nuc"D;
demandasADSL1Nuc = demandasADSL1x;
[email protected]@demandasADSL1NucDD;
H∗Distribución de las demandas para Nuc∗L
[email protected]"sumademandasADSLNuc"D;
sumademandasADSLNuc =
[email protected], 1T + demandasADSL1NucPi, 2T + demandasADSL1NucPi, 3T + demandasADSL1NucP
i, 4T + demandasADSL1NucPi, 5T + demandasADSL1NucPi, 6T, 8i, nx<D; [email protected];
H∗Suma las demandas Nuc∗L
33
H Suma las demandas Nuc L
Modelo_Integral_ACK.nb
[email protected]"SumDemADSL"D;
SumDemADSL = Plus @@ sumademandasADSL;
[email protected];
H∗Suma las demandas Total ∗L
[email protected]"demandaADSL2000"D;
demandaADSL2000 = [email protected], 5T, 8i, Localidades<D;
[email protected];
[email protected]"demandaADSL2000Nuc"D;
demandaADSL2000Nuc = [email protected], 1T, 8ix, nx<D;
[email protected];
[email protected]"SumComprobdemandaADSL2000"D;
SumComprobdemandaADSL2000 = Plus @@ demandaADSL2000;
[email protected];
[email protected]"CentralesConExtensores"D;
demandaADSL2000
F;
40
E;∗L
H∗CentralesConExtensores=CeilingA sumademandasADSL
40
CentralesConExtensores = CeilingB
[email protected];
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
[email protected]"SumCentralesConExtensores"D;
SumCentralesConExtensores = Plus @@ CentralesConExtensores;
[email protected];
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;
[email protected]"Servicios_ADSLCambios.txt"D;
velocidadADSL = [email protected]"Servicios_ADSLCambios.txt", 8Word, Real<D;
[email protected]"Servicios_ADSLCambios.txt"D;
H∗Carga las velocidades de cada uno de los tipos de servicios de ADSL∗L
[email protected]"velocidad2000"D;
velocidad2000 = velocidadADSLP1TP2T;
[email protected];
H∗Carga las velocidad 2000 en fraccion de Mbps∗L
[email protected]"velocidad1200"D;
velocidad1200 = velocidadADSLP2TP2T;
[email protected];
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
[email protected]"velocidad900"D;
velocidad900 = velocidadADSLP3TP2T;
[email protected];
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
[email protected]"velocidad600"D;
velocidad600 = velocidadADSLP4TP2T;
[email protected];
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
[email protected]"velocidad400"D;
velocidad400 = velocidadADSLP5TP2T;
[email protected];
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
[email protected]"velocidadPlus"D;
velocidadPlus = velocidadADSLP6TP2T;
[email protected];
H∗Carga las velocidad Plus en fraccion de Mbps∗L
[email protected]"porcentajeBWGarant"D;
porcentajeBWGarant = velocidadADSLP7TP2T;
[email protected];
H∗Carga las velocidad Plus en fraccion de Mbps∗L
[email protected]"porcentajeBWGarantPlus"D;
porcentajeBWGarantPlus = porcentajeBWGarant;
[email protected];
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∗[email protected],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
[email protected]"BWGarant"D;
BWGarant = [email protected], 5T ∗ velocidad2000 + demandasADSL1Pi, 6T ∗ velocidad1200 +
demandasADSL1Pi, 7T ∗ velocidad900 + demandasADSL1Pi, 8T ∗ velocidad600 +
demandasADSL1Pi, 9T ∗ velocidad400L ∗ porcentajeBWGarant + demandasADSL1Pi, 10T ∗
velocidadPlus ∗ porcentajeBWGarantPlusL, 8i, Localidades<D ∗ factrednd;
[email protected]; BWGarantNuc = [email protected], 1T ∗ velocidad2000 +
demandasADSL1NucPin, 2T ∗ velocidad1200 + demandasADSL1NucPin, 3T ∗ velocidad900 +
demandasADSL1NucPin, 4T ∗ velocidad600 + demandasADSL1NucPin, 5T ∗ velocidad400L ∗
porcentajeBWGarant + demandasADSL1NucPin, 6T ∗ velocidadPlus ∗
porcentajeBWGarantPlusL, 8in, nx<D ∗ factrednd;
[email protected];
H∗ Calcula el Ancho de Banda de seguridad,
usamos aquí y sólo aquí el factor de redundancia ∗L
[email protected]"SumBWGarant"D;
SumBWGarant = Plus @@ BWGarant;
[email protected];
[email protected]"SumBWGarantNuc"D;
SumBWGarantNuc = Plus @@ BWGarantNuc;
[email protected];
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;
[email protected]"preciosADSL"D;
[email protected]"Precios_DSLAM.txt"D;
preciosADSL = [email protected]"Precios_DSLAM.txt", 8Word, Real<D;
[email protected]"Precios_DSLAM.txt"D;
[email protected];
[email protected]"precioClusterFull"D;
precioClusterFull = preciosADSLP1TP2T;
[email protected];
[email protected]"precioShelfFull"D;
35
[email protected]"precioShelfFull"D;
precioShelfFull = preciosADSLP2TP2T;
[email protected];
[email protected]"precioTarjLT24"D;
precioTarjLT24 = preciosADSLP3TP2T;
[email protected];
[email protected]"precioShelf"D;
precioShelf = preciosADSLP4TP2T;
[email protected];
[email protected]"precioArmario"D;
precioArmario = preciosADSLP5TP2T;
[email protected];
[email protected]"precioShelfExtension"D;
precioShelfExtension = preciosADSLP6TP2T;
[email protected];
[email protected]"precioTarjNT8"D;
precioTarjNT8 = preciosADSLP7TP2T;
[email protected];
[email protected]"precioTarjNT34"D;
precioTarjNT34 = preciosADSLP8TP2T;
[email protected];
[email protected]"precioTarjNT155"D;
precioTarjNT155 = preciosADSLP9TP2T;
[email protected];
[email protected]"precioPreconcentrClusterFull"D;
precioPreconcentrClusterFull = preciosADSLP10TP2T;
[email protected];
[email protected]"precioPreconcentrShelfFull"D;
precioPreconcentrShelfFull = preciosADSLP11TP2T;
[email protected];
[email protected]"precioTarjLT4E1"D;
precioTarjLT4E1 = preciosADSLP12TP2T;
[email protected];
[email protected]"precioExtensorADSL"D;
precioExtensorADSL = preciosADSLP13TP2T;
[email protected];
PrintAStyleA
"Parámetros de Máximo número de usuarios por componente: Cluster,
Shelf y Tarj", Bold, 16, Underlined, White, Background → BlueEE;
[email protected]"parametrosDSLAM"D;
[email protected]"Parametros_DSLAM.txt"D;
parametrosDSLAM = [email protected]"Parametros_DSLAM.txt", 8Word, Real<D;
[email protected]"Parametros_DSLAM.txt"D;
[email protected];
H∗Parámetros de Máximo número de usuarios por componente: Cluster, Shelf y Tarj∗L
[email protected]"maxUsrCluster"D;
maxUsrCluster = parametrosDSLAMP1TP2T;
[email protected];
H∗ Parámetros de Máximo número de usuarios por Cluster ∗L
[email protected]"maxUsrShelf"D;
maxUsrShelf = parametrosDSLAMP2TP2T;
[email protected];
H∗ Parámetros de Máximo número de usuarios por Shelf ∗L
[email protected]"maxUsrTarj"D;
Modelo_Integral_ACK.nb
36
[email protected]"maxUsrTarj"D;
maxUsrTarj = parametrosDSLAMP3TP2T;
[email protected];
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;
[email protected]"numeroClusterFull"D;
numeroClusterFull = TableBFloorB
sumademandasADSLPiT
F, 8i, Localidades<F;
maxUsrCluster
[email protected];
H∗ Número de los Clusters completos ∗L
[email protected]"numeroClusterFullNuc"D;
sumademandasADSLNuc
numeroClusterFullNuc = FloorB
F;
maxUsrCluster
[email protected];
H∗ Número de los Clusters completos Nuc ∗L
[email protected]"SumnumeroClusterFull"D;
Sum numeroClusterFull = Plus @@ numeroClusterFull;
[email protected];
H∗Instruccion añadida para verificacion de suma de numero de clusters totalmente ocupados∗L
P [email protected]"numeroShelfFull"D;
numeroShelfFull =
sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster
F, 8i, Localidades<F;
TableBFloorB
maxUsrShelf
[email protected];
H∗ Número de los Armarios completos ∗L
P [email protected]"numeroShelfFullNuc"D;
sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster
F;
numeroShelfFullNuc = FloorB
maxUsrShelf
[email protected];
H∗ Número de los Armarios completos Nuc ∗L
[email protected]"SumnumeroShelfFull"D;
Sum numeroShelfFull = Plus @@ numeroShelfFull;
[email protected] numeroShelfFullD;
H∗Instruccion añadida para verificacion de suma de numero de Shelfs completamente ocupados∗L
[email protected]"numeroTarjLT24"D;
numeroTarjLT24 = TableBCeilingB
sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster − numeroShelfFullPiT ∗ maxUsrShelf
F,
maxUsrTarj
8i, Localidades<F;
[email protected];
H∗ Número de Tarjetas de Terminación de Línea ∗L
[email protected]"nuermoTarjLT24Nuc"D;
numeroTarjLT24Nuc = CeilingB
sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster − numeroShelfFullNuc ∗ maxUsrShelf
F;
maxUsrTarj
[email protected];
H∗ Número de Tarjetas de Terminación de Línea Nuc∗L
[email protected]"SumnumeroTarjLT24"D;
SumnumeroTar jLT24 = Plus @@ numeroTarjLT24;
[email protected] umeroTarjLT24D;
H∗Instruccion añadida para verificacion de
suma de numero de Tarjetas de Terminacion de Linea∗L
[email protected]"numeroArmario"D;
numeroArmario =
sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster
TableBCeilingB
F, 8i, Localidades<F;
2 maxUsrShelf
37
Modelo_Integral_ACK.nb
[email protected];
[email protected]"numeroArmarioNuc"D;
numeroArmarioNuc = CeilingB
sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster
F;
2 maxUsrShelf
[email protected];
[email protected]"SumnumeroArmario"D;
SumnumeroArmario = Plus @@ numeroArmario;
[email protected];
H∗Instruccion añadida para verificacion de suma de numero de Armarios∗L
[email protected]"CostoDSLAMsintarjetaNT"D;
CostoDSLAMsintarjetaNT =
[email protected] ∗ precioClusterFull + numeroShelfFullPiT ∗ precioShelfFull +
numeroTarjLT24PiT ∗ precioTarjLT24 + numeroArmarioPiT ∗ precioArmario +
[email protected] > 1, [email protected] > 0, numeroShelfFullPiT,
HnumeroShelfFullPiT − 1LD, 0DL ∗ precioShelfExtension +
[email protected] > 0, precioShelf, 0DLL, 8i, Localidades<D;
[email protected];
[email protected]"CostoDSLAMsintarjetaNTNuc"D;
CostoDSLAMsintarjetaNTNuc = [email protected], 8i, nx<D;
[email protected];
[email protected]"SumCostoDSLAMsintarjetaNT"D;
SumCostoDSLAMsintarjetaNT = Plus @@ CostoDSLAMsintarjetaNT;
[email protected];
H∗Instruccion añadida para verificacion de suma
del costo de DSLAM sin Tarjeta de Terminacion de Red∗L
[email protected]"BWClusterFull"D;
BWClusterFull = [email protected]@CostoDSLAMsintarjetaNTPiT 0, 0,
BWGarantPiT HnumeroClusterFullPiT maxUsrClusterL ê HnumeroClusterFullPiT maxUsrCluster +
numeroShelfFullPiT maxUsrShelf + numeroTarjLT24PiT maxUsrTarjLD, 8i, Localidades<D;
[email protected];
[email protected]"BWClusterFullNuc"D;
BWClusterFullNuc = [email protected], 8i, nx<D;
[email protected];
[email protected]"SumBWClusterFull"D;
SumBWClusterFull = Plus @@ BWClusterFull;
[email protected];
H∗Instruccion añadida para verificacion de suma
de los anchos de banda de Clusters Totalmente ocupados∗L
[email protected]"BWClusterParcial"D;
BWClusterParcial = [email protected]@CostoDSLAMsintarjetaNTPiT 0, 0,
BWGarantPiT HnumeroShelfFullPiT ∗ maxUsrShelf + numeroTarjLT24PiT ∗ maxUsrTarjL ê
HnumeroClusterFullPiT maxUsrCluster + numeroShelfFullPiT maxUsrShelf +
numeroTarjLT24PiT maxUsrTarjLD, 8i, Localidades<D;
[email protected];
H∗Calcula el ancho de banda del Cluster Parcialmente ocupado∗L
[email protected]"BWClusterParcialNuc"D;
BWClusterParcialN uc = [email protected], 8i, nx<D;
[email protected];
H∗Calcula el ancho de banda del Cluster Parcialmente ocupado Nuc∗L
[email protected]"SumBWClusterParcial"D;
SumBWClusterParcial = Plus @@ BWClusterParcial;
[email protected];
H∗Instruccion añadida para verificacion de suma
de los anchos de banda de Clusters parcialmente ocupados∗L
[email protected]"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
[email protected];
34, IfB
[email protected]"TarjNTClusterFullNuc"D;
TarjNTClusterFullNuc = [email protected], 8i, nx<D;
[email protected];
[email protected]"TarjNTClusterParcial"D;
TarjNTClusterParcial =
[email protected]@BWClusterParcialPiT > 0, [email protected] ≤ 8, 8, [email protected] ≤ 34,
34, [email protected] ≤ 155, 155, "No"DDD, 0DL, 8i, Localidades<D;
[email protected];
[email protected]"TarjNTClusterParcialNuc"D;
TarjNTClusterParcialNuc = [email protected], 8i, nx<D;
[email protected];
[email protected]"SumTarjNTClusterParcial"D;
SumTarjNTClusterParcial = Plus @@ TarjNTClusterParcial;
[email protected];
H∗Instruccion añadida para verificacion de suma de las velocidades de las Tarjetas de
Terminacion para Clusters parcialmente ocupados∗[email protected]"CostoDSLAMConTarjetaNT1"D;
CostoDSLAMConTarjetaNT1 = [email protected] +
[email protected] 8, precioTarjNT8, [email protected] 34,
precioTarjNT34, [email protected] 155, precioTarjNT155, 0DDDL ∗
numeroClusterFullPiT + [email protected] 8, precioTarjNT8,
[email protected] 34, precioTarjNT34,
[email protected] 155, precioTarjNT155, 0DDDLL, 8i, Localidades<D;
Plus @@ CostoDSLAMConTarjetaNT1P1T;
[email protected];
H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red∗L
[email protected]"CostoDSLAMConTarjetaNT1"D;
CostoDSLAMConTarjetaNT1 = [email protected] +
[email protected] 8, precioTarjNT8, [email protected] 34,
precioTarjNT34, [email protected] 155, precioTarjNT155, 0DDDL ∗
numeroClusterFullPiT + [email protected] 8, precioTarjNT8,
[email protected] 34, precioTarjNT34,
[email protected] 155, precioTarjNT155, 0DDDLL, 8i, Localidades<D;
Plus @@ CostoDSLAMConTarjetaNT1P1T;
[email protected];
H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red∗L
[email protected]"SumCostoDSLAMConTarjetaNT1"D;
SumCostoDSLAMConTarjetaNT1 = Plus @@ CostoDSLAMConTarjetaNT1;
[email protected];
H∗Instruccion añadida para verificacion de suma
de los costos del DSLAM con Tarjeta de Terminacion de Red∗L
[email protected]"CostoDSLAMConTarjetaNT"D;
CostoDSLAMConTarjetaNT = CostoDSLAMConTarjetaNT1 + HprecioExtensorADSL CentralesConExtensoresL;
[email protected];
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∗[email protected]"SumCostoDSLAMConTarjetaNT"D;
SumCostoDSLAMConTarjetaNT = Plus @@ CostoDSLAMConTarjetaNT;
[email protected];
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
[email protected]"InterfazSTM1HaciaPOP"D;
InterfazSTM1HaciaPOP = [email protected]@TarjNTClusterFullPiT 155, numeroClusterFullPiT, 0D +
[email protected] 155, 1, 0D, 8i, Localidades<D;
[email protected];
[email protected]"InterfazSTM1HaciaPOPNuc"D;
InterfazSTM1HaciaPOPNuc = [email protected], 8i, nx<D;
[email protected];
39
[email protected];
Modelo_Integral_ACK.nb
[email protected]"SumInterfazSTM1HaciaPOP"D;
SumInterfazSTM1HaciaPOP = Plus @@ InterfazSTM1HaciaPOP;
[email protected];
H∗Instruccion añadida para verificacion de suma de las interfases STM−1 hacia los PoPs ATM∗L
[email protected]"InterfazE3HaciaPOP"D;
InterfazE3HaciaPOP = [email protected]@TarjNTClusterFullPiT 34, numeroClusterFullPiT, 0D +
[email protected] 34, 1, 0D, 8i, Localidades<D;
[email protected];
[email protected]"InterfazE3HaciaPOPNuc"D;
InterfazE3HaciaPOPNuc = [email protected], 8i, nx<D;
[email protected];
[email protected]"SumInterfazE3HaciaPOP"D;
SumInterfazE3HaciaPOP = Plus @@ InterfazE3HaciaPOP;
[email protected];
H∗Instruccion añadida para verificacion de suma de las interfases E−3 hacia los PoPs ATM∗L
[email protected]"InterfazE1HaciaPOP"D;
InterfazE1HaciaPOP =
BWClusterParcialPiT
F, 0F, 8i, Localidades<F;
TableBIfBTarjNTClusterParcialPiT 8, CeilingB
2.048
[email protected];
[email protected]"InterfazE1HaciaPOPNuc"D;
BWClusterFullNucPiT
, 8i, nx<F;
InterfazE1HaciaPOPNuc = TableB
2.048
[email protected];
[email protected]"SumInterfazE1HaciaPOP"D;
SumInterfazE1HaciaPOP = Plus @@ InterfazE1HaciaPOP;
[email protected];
H∗Instruccion añadida para verificacion de suma de las interfases E−1 hacia los PoPs ATM∗L
[email protected]"NumE1Equivs"D;
NumE1Equivs = [email protected] ∗ InterfazSTM1HaciaPOPPiT +
16 ∗ InterfazE3HaciaPOPPiT + InterfazE1HaciaPOPPiT, 8i, Localidades<D;
[email protected];
H∗Calcula el numero de E1s equivalentes por site hacia los PoPs ATM∗L
[email protected]"NumE1EquivsNuc"D;
NumE1EquivsNuc = [email protected], 8i, nx<D;
[email protected];
H∗Calcula el numero de E1s equivalentes por site hacia los PoPs ATM∗L
[email protected]"SumNumE1Equivs"D;
SumNumE1Equivs = Plus @@ NumE1Equivs;
[email protected];
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
[email protected]"Energia_DSLAM.txt"D;
energiaADSL = [email protected]"Energia_DSLAM.txt", 8Word, Real<D;
[email protected]"Energia_DSLAM.txt"D;
[email protected]"CostePorWDSLAM"D;
CostePorWDSLAM = energiaADSLP1TP2T;
[email protected];
[email protected]"WPorLineaDSLAM"D;
WPorLineaDSLAM = energiaADSLP2TP2T;
[email protected];
H∗Calcula el costo del consumo de energia del DSLAM por watio por site∗L
[email protected]"CostoEnergiaDSLAM"D;
CostoEnergiaDSLAM =
[email protected] ∗ WPorLineaDSLAM ∗ sumademandasADSLPiT, 8i, Localidades<D;
[email protected];
40
[email protected];
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
[email protected]"SumCostoEnergiaDSLAM"D; SumCostoEnergiaDSLAM = Plus @@ CostoEnergiaDSLAM;
[email protected];
PrintAStyleA"REPARTO
A SERVICIOS POR DEPARTAMENTO",
Bold, 16, Underlined, White, Background → BlueEE;
H∗Carga de los ficheros de entrada∗L
[email protected]"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt"D;
PuertosLima =
[email protected]"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt", 8Word, Real, Real, Real, Real, Real<D;
[email protected]"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 = [email protected], 1D;
[email protected]"PuertosLima"D;
[email protected]@PuertosLimaDD;
[email protected]"NumLIMA"D;
NumLIMA = [email protected];
[email protected];
[email protected]"CabsLIMA"D;
CabsLIMA = [email protected] @@ PuertosLimaPj, kT, 8j, NumLIMA<, 8k, 2, 6<D;
SumCabsLIMA = Plus @@ CabsLIMA;
[email protected]@CabsLIMADD;
[email protected]"SumCabsLIMA"D;
SumCabsLIMA = Plus @@ CabsLIMA;
[email protected];
H∗Calcula la demanda GigADSL mayorista
atendida por los PoPs para servicios mayoristas en Lima∗L
[email protected]"demADSL"D;
demADSL = [email protected], 8NumLIMA<D;
[email protected]@PuertosLimaPj, 1T demandasADSL1Pi, 3T, demADSLPjT += sumademandasADSLPiT;D;,
8i, Localidades<, 8j, 1, NumLIMA<D;
[email protected];
[email protected]"ComprobSumDemADSL"D;
ComprobSumDemADSL = Plus @@ demADSL;
[email protected];
[email protected]"LineasGigADSL.txt"D;
LineasGigADSL = [email protected]"LineasGigADSL.txt", 8Word, Real<D;
[email protected]"LineasGigADSL.txt"D;
[email protected]"LineasGigADSL"D; [email protected]@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∗[email protected]"PromLineasGigADSL"D;
[email protected]−1,2T+LineasGigADSLPi,2TLê2,8i,2,5<D;
[email protected]@PrevLineasGigADSLê4;
[email protected];∗L
[email protected]"PorcentajeLinGigADSL"D;
LineasGigADSLP1, 2T
PorcentajeLinGigADSL =
;
SumDemADSL
[email protected];
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
[email protected]"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt"D;
PuertosDptos = [email protected]
"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt", 8Word, Real, Real, Real, Real, Real<D;
[email protected]"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt"D;
41
Modelo_Integral_ACK.nb
[email protected]"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 = [email protected], [email protected], "LIMA"DD;
[email protected]"PuertosDptos"D; [email protected]@PuertosDptosDD;
[email protected]"NumDPTOS"D;
NumDPTOS = [email protected];
[email protected];
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∗[email protected]@[email protected],1TdemandasADSLPa,i,1T,
demADSLDepPa,jT+=sumademandasADSLPa,iT;D;,
8i,Localidades<,8j,1,NumDPTOS<D,8a,Años<D∗L
[email protected]"demADSLDep"D;
demADSLDep = [email protected], 8NumDPTOS − 1<D;
[email protected]@PuertosDptosPj, 1T demandasADSL1Pi, 3T, demADSLDepPjT += sumademandasADSLPiT;D;,
8i, Localidades<, 8j, 1, NumDPTOS<D
[email protected];
H∗Se añadio la siguiente instruccion de suma de comprobacion
de la demanda de usuarios GigADSL mayoristas a nivel nacional∗L
[email protected]"demADSLDep"D;
demADSLDep = [email protected], ComprobSumDemADSLD;
[email protected];
[email protected]"demADSLDep"D;
demADSLDep = [email protected], ComprobSumDemADSLD;
[email protected];
[email protected]"ComprobSumdemADSLDep"D;
ComprobSumdemADSLDep = Plus @@ demADSLDep;
[email protected];
[email protected]"CabsDPTOS"D;
CabsDPTOS = [email protected] @@ PuertosDptosPj, kT, 8j, NumDPTOS<, 8k, 2, 6<D;
[email protected]@CabsDPTOSDD;
H∗Se añadio la siguiente instruccion de suma de comprobacion
del numero de puertos ATM donde se consideran PoPs por departamento∗L
[email protected]"ComprobSumCabsDPTOS"D;
ComprobSumCabsDPTOS = [email protected] @@ CabsDPTOSD;
[email protected];
H∗Calcula la demanda GigADSL mayorista donde existen puertos ATM a nivel nacional∗L
[email protected]"LinGigADSLDep"D;
LinGigADSLDep = [email protected], 8NumDPTOS<D;
[email protected]@[email protected], 1T ≠ 0, LinGigADSLDepPjT += demADSLDepPjTD, 8j, 1, NumDPTOS<DD
[email protected];
H∗ Sumatoria de las líneas ADSL ∗L
[email protected]"SumLinGigADSLDep"D;
SumLinGigADSLDep = Plus @@ LinGigADSLDep;
[email protected];
H∗ Se calcula el porcentaje GigADSL por departamento ∗L
[email protected]"PorcentajesNulos"D;
PorcentajesNulos = 0;
[email protected];
[email protected]"PorcentGigADSLDep"D;
PorcentGigADSLDep =
IfBSumLinGigADSLDep 0, PorcentajesNulos,
[email protected];
SumDemADSL ∗ PorcentajeLinGigADSL
SumLinGigADSLDep
F;
42
[email protected];
Modelo_Integral_ACK.nb
H∗Calcula la demanda GigADSL mayorista donde existen puertos ATM en el departamento de Lima∗L
[email protected]"LineasLimaGigADSL"D;
LineasLimaGigADSL = [email protected], 8NumLIMA<D;
[email protected]@CabsLIMAPj, 1T ≠ 0, LineasLimaGigADSLPjT += demADSLPjTD, 8j, 1, NumLIMA<D
[email protected];
[email protected]"SumLinLimaGigADSL"D;
SumLinLimaGigADSL = Plus @@ LineasLimaGigADSL;
[email protected]maGigADSLD;
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∗[email protected]@SumLinLimaGigADSLPaT0,PorcentajesNulosPaT,
SumDemADSLPaT∗PorcentGigADSLDepPaTêSumLinLimaGigADSLPaTD,8a,Años<D;∗L
[email protected]"PorcentLimaGigADSL"D;
LineasGigADSLP1, 2T
PorcentLimaGigADSL = IfBSumLinLimaGigADSL 0, PorcentajesNulos,
F;
SumDemADSL
[email protected];
H∗Calcula el porcentaje de servicios GigADSL
mayoristas donde existen puertos ATM a nivel nacional∗L
[email protected]"PorcentajealineasGigADSLDep"D;
PorcentajealineasGigADSLDep =
[email protected]@CabsDPTOSPj, 1T ≠ 0, PorcentGigADSLDep, 0D, 8j, 1, NumDPTOS<D;
[email protected]@PorcentajealineasGigADSLDepDD;
H∗Calcula el porcentaje de servicios GigADSL mayoristas
donde existen puertos ATM en el departamento de Lima∗L
[email protected]"PorcentajealineasGigADSLLima"D; PorcentajealineasGigADSLLima =
[email protected]@CabsLIMAPj, 1T ≠ 0, PorcentLimaGigADSL, 0D, 8j, 1, NumLIMA<D;
[email protected]@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
[email protected]"UsersSTM1"D;
UsersSTM1 =
[email protected]@HmaxUsrCluster ∗ InterfazSTM1HaciaPOPPiTL, sumademandasADSLPiTD, 8i, Localidades<D;
[email protected]@UsersSTM1DD;
[email protected]"SumaUsersSTM1"D;
SumaUsersSTM1 = [email protected] @@ UsersSTM1D;
[email protected];
[email protected]"xCx"D;
xCx = [email protected], 3T, 8i, Localidades<D;
[email protected]@xCxDD;
xCx1 = [email protected];
[email protected];
[email protected]"UsersSTM1"D;
UsersSTM1 = [email protected]@8UsersSTM1PiT<, xCxPiTD, 8i, Localidades<D;
[email protected]@UsersSTM1DD;
H∗Calcula el numero de usuarios por site para la interfase E3∗L
[email protected]"UsersE3"D;
UsersE3 = [email protected]@HmaxUsrCluster ∗ InterfazE3HaciaPOPPiTL,
HsumademandasADSLPiT − UsersSTM1Pi, 2TLD, 8i, Localidades<D;
[email protected]@UsersE3DD;
[email protected]"SumUsersE3"D;
SumUsersE3 = [email protected] @@ UsersE3D;
43
SumUsersE3 [email protected]
[email protected];
UsersE3D;
Modelo_Integral_ACK.nb
[email protected]"UsersE3"D;
UsersE3 = [email protected]@8UsersE3PiT<, xCxPiTD, 8i, Localidades<D;
[email protected]@UsersE3DD;
H∗Calcula el numero de usuarios por site para la interfase E1∗L
[email protected]"UsersE1"D;
UsersE1 = [email protected] − UsersSTM1Pi, 2T − UsersE3Pi, 2T, 8i, Localidades<D;
[email protected]@UsersE1DD;
[email protected]"SumUsersE1"D;
SumUsersE1 = [email protected] @@ UsersE1D;
[email protected];
[email protected]"UsersE1"D;
UsersE1 = [email protected]@8UsersE1PiT<, xCxPiTD, 8i, Localidades<D;
[email protected]@UsersE1DD;
H∗Calcula el numero de usuarios hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
[email protected]"DemPorPOP"D;
DemPorPOP = [email protected], 8Localidades<D;
[email protected]@UsersSTM1Pi, 1T ≠ UsersSTM1Pi − 1, 1T,
[email protected], 1T UsersSTM1Pi, 1T, DemPorPOPPiT += sumademandasADSLPjTD, 0D,
8i, 2, Localidades<, 8j, Localidades<D
[email protected];
[email protected]"DemPorPOP1"D;
DemPorPOP1 = [email protected];
[email protected];
[email protected]"DemPorPOP2"D;
DemPorPOP2 = 0;
[email protected]@UsersSTM1Pj, 1T UsersSTM1P1, 1T, DemPorPOP2 += sumademandasADSLPjT, 0D, 8j, Localidades<D
[email protected];
[email protected]"DemPorPOP3"D;
DemPorPOP3 = [email protected], DemPorPOP2D;
[email protected];
[email protected]"InterfazSTM1"D;
InterfazSTM1 = [email protected], 8Localidades<D;
[email protected]@UsersSTM1Pi, 1T ≠ UsersSTM1Pi − 1, 1T,
[email protected], 1T UsersSTM1Pi, 1T, InterfazSTM1PiT += InterfazSTM1HaciaPOPPjTD, 0D,
8i, 2, Localidades<, 8j, Localidades<D
[email protected];
[email protected]"InterfazSTM11"D;
InterfazSTM11 = [email protected];
[email protected];
[email protected]"InterfazSTM12"D;
InterfazSTM12 = 0;
[email protected]@UsersSTM1Pj, 1T UsersSTM1P1, 1T,
InterfazSTM12 += InterfazSTM1HaciaPOPPjT, 0D, 8j, Localidades<D
[email protected];
H∗Calcula el numero de interfases STM−
1 por cabecera hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
[email protected]"InterfazSTM13"D;
InterfazSTM13 = [email protected], InterfazSTM12D;
[email protected];
[email protected]"SumInterfazSTM13"D;
SumInterfazSTM13 = Plus @@ InterfazSTM13;
[email protected];
[email protected]"InterfazE3"D;
InterfazE3 = [email protected], 8Localidades<D;
44
InterfazE3 [email protected], 8Localidades<D;
[email protected]@UsersE3Pi, 1T ≠ UsersE3Pi − 1, 1T,
[email protected], 1T UsersE3Pi, 1T, InterfazE3PiT += InterfazE3HaciaPOPPjTD, 0D,
8i, 2, Localidades<, 8j, Localidades<D
[email protected];
Modelo_Integral_ACK.nb
[email protected]"InterfazE31"D;
InterfazE31 = [email protected];
[email protected];
[email protected]"InterfazE32"D;
InterfazE32 = 0;
[email protected]
[email protected], 1T UsersE3P1, 1T, InterfazE32 += InterfazE3HaciaPOPPjT, 0D, 8j, Localidades<D;
[email protected];
H∗Calcula el numero de interfases E3 por cabecera
hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
[email protected]"InterfazE33"D;
InterfazE33 = [email protected], InterfazE32D;
[email protected];
[email protected]"SumInterfazE33"D;
SumInterfazE33 = Plus @@ InterfazE33;
[email protected];
[email protected]"InterfazE1"D;
InterfazE1 = [email protected], 8Localidades<D;
[email protected]@HUsersE1Pi, 1T ≠ UsersE1Pi − 1, 1TL, [email protected], 1T UsersE1Pi, 1T,
InterfazE1PiT += InterfazE1HaciaPOPPjTD, 0D, 8i, 2, Localidades<, 8j, Localidades<D;
[email protected];
[email protected]"Intfaz1E1"D;
Intfaz1E1 = [email protected];
[email protected];
[email protected]"Intfaz2E1"D;
Intfaz2E1 = 0;
[email protected]@UsersE1Pj, 1T UsersE1P1, 1T, Intfaz2E1 += InterfazE1HaciaPOPPjT, 0D, 8j, Localidades<D
[email protected];
H∗Calcula el numero de interfases E1 por cabecera
hacia los Puntos de Presencia HPoPsL a nivel nacional∗L
[email protected]"Intfaz3E1"D;
Intfaz3E1 = [email protected], Intfaz2E1D;
[email protected];
[email protected]"SumIntfaz3E1"D;
SumIntfaz3E1 = Plus @@ Intfaz3E1;
[email protected];
H∗Parámetros de Máximo número de puertos para ADSL: Cluster, Shelf y Tarj∗L
[email protected]"Parametros_ATM.txt"D;
parametrosATM = [email protected]"Parametros_ATM.txt", 8Word, Real<D;
[email protected]"maxUsrATMCluster"D;
maxUsrATMCluster = parametrosATMP1TP2T;
[email protected];
[email protected]"maxUsrATMShelf"D;
maxUsrATMShelf = parametrosATMP2TP2T;
[email protected];
[email protected]"maxUsrATMTarj"D;
maxUsrATMTarj = parametrosATMP3TP2T;
[email protected];
[email protected]"Parametros_ATM.txt"D;
H∗Calcula el numero de Clusters en los concentradores ATM por cabecera a nivel nacional∗L
[email protected]"ClusterPreconc"D;
45
Modelo_Integral_ACK.nb
ClusterPreconc = TableBFloorB
Intfaz3E1PiT
F, 8i, Localidades<F;
maxUsrATMCluster
[email protected];
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
[email protected]"SumClusterPreconc"D;
SumClusterPreconc = Plus @@ ClusterPreconc;
[email protected];
H∗Calcula el numero de Shelfs en los concentradores ATM por cabecera a nivel nacional∗L
[email protected]"ShelfPreconc"D;
ShelfPreconc =
Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster
TableBFloorB
F, 8i, Localidades<F;
maxUsrATMShelf
[email protected];
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
[email protected]"SumShelfPreconc"D;
SumShelfPreconc = Plus @@ ShelfPreconc;
[email protected];
H∗Calcula el numero de Tarjetas de Terminacion de
Red en los concentradores ATM por cabecera a nivel nacional∗L
[email protected]"TarjPreconc"D;
TarjPreconc = TableB
CeilingB
Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster − ShelfPreconcPiT ∗ maxUsrATMShelf
F,
maxUsrATMTarj
8i, Localidades<F;
[email protected];
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
[email protected]"SumTarjPreconc"D;
SumTarjPreconc = Plus @@ TarjPreconc;
[email protected];
H∗Calcula el numero de Armarios en los concentradores ATM por cabecera a nivel nacional∗L
[email protected]"ArmariosPreconc"D;
ArmariosPreconc =
Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster
TableBCeilingB
F, 8i, Localidades<F;
2 maxUsrATMShelf
[email protected];
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
[email protected]"SumArmariosPreconc"D;
SumArmariosPreconc = Plus @@ ArmariosPreconc;
[email protected];
H∗Calcula el costo del concentrador ATM sin Tarjeta de Terminacion de Red por cabecera∗L
[email protected]"CostePreconcSinTarj"D;
CostePreconcSinTarj = [email protected] ∗ precioPreconcentrClusterFull +
ShelfPreconcPiT ∗ precioPreconcentrShelfFull +
TarjPreconcPiT ∗ precioTarjLT4E1 + ArmariosPreconcPiT ∗ precioArmario +
[email protected] > 1, [email protected] > 0, ShelfPreconcPiT, HShelfPreconcPiT − 1LD, 0DL ∗
precioShelfExtension + [email protected] > 0, precioShelf, 0DL, 8i, Localidades<D;
[email protected];
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
[email protected]"SumCostePreconcSinTarj"D;
SumCostePreconcSinTarj = Plus @@ CostePreconcSinTarj;
[email protected];
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
[email protected]"TarjNTPreconcClusterFull"D;
TarjNTPreconcClusterFull = [email protected]@ClusterPreconcPiT > 0, 155, 0D, 8i, Localidades<D;
[email protected];
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
[email protected]"SumTarjNTPreconcClusterFull"D;
SumTarjNTPreconcClusterFull = Plus @@ TarjNTPreconcClusterFull;
[email protected];
H∗Determina el tipo de tarjeta para el Cluster
parcialmente ocupado en el concentrador ATM por cabecera∗L
[email protected]"TarjNTPreconcClusterParcial"D;
TarjNTPreconcClusterParcial = [email protected]@ShelfPreconcPiT > 0, 155,
[email protected] > 0, [email protected] ≤ 4, 34, 155D, 0DD, 8i, Localidades<D;
[email protected];
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
[email protected]"SumTarjNTPreconcClusterParcial"D;
SumTarjNTPreconcClusterParcial = Plus @@ TarjNTPreconcClusterParcial;
[email protected];
H∗Calcula el costo del concentrador ATM con Tarjeta de Terminacion de Red por cabecera∗L
[email protected]"CostePreconcConTarj"D;
CostePreconcConTarj =
[email protected] + [email protected] 34, precioTarjNT34,
[email protected] 155, precioTarjNT155, 0DD ∗ ClusterPreconcPiT +
[email protected] 34, precioTarjNT34,
[email protected] 155, precioTarjNT155, 0DD, 8i, Localidades<D;
[email protected];
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
[email protected]"SumCostePreconcConTarj"D;
SumCostePreconcConTarj = Plus @@ CostePreconcConTarj;
[email protected];
H∗Calcula el numero de interfases STM−1 de 155Mbps en el concentrador ATM por cabecera∗L
[email protected]"TotIntfzPreconcSTM1"D;
TotIntfzPreconcSTM1 = [email protected]@TarjNTPreconcClusterFullPiT 155, ClusterPreconcPiT, 0D +
[email protected] 155, ArmariosPreconcPiT, 0D, 8i, Localidades<D;
[email protected];
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
[email protected]"SumTotIntfzPreconcSTM1"D;
SumTotIntfzPreconcSTM1 = Plus @@ TotIntfzPreconcSTM1;
[email protected];
H∗Calcula el numero de interfases E3 de 34Mbps en el concentrador ATM por cabecera∗L
[email protected]"TotIntfzPreconcE3"D;
TotIntfzPreconcE3 = [email protected]@TarjNTPreconcClusterFullPiT 34, ClusterPreconcPiT, 0D +
[email protected] 34, ArmariosPreconcPiT, 0D, 8i, Localidades<D;
InterfazSTM1HaciaATM = [email protected] + InterfazSTM13PiT, 8i, Localidades<D;
[email protected];
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
[email protected]"SumTotIntfzPreconcE3"D;
SumTotIntfzPreconcE3 = Plus @@ TotIntfzPreconcE3;
[email protected];
H∗Calcula el numero de interfases STM−1 de 155Mbps en el Nodo ATM por cabecera∗L
[email protected]"InterfazSTM1HaciaATM"D;
InterfazSTM1HaciaATM = [email protected] + InterfazSTM13PiT, 8i, Localidades<D;
[email protected];
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
[email protected]"SumInterfazSTM1HaciaATM"D;
SumInterfazSTM1HaciaATM = Plus @@ InterfazSTM1HaciaATM;
[email protected];
H∗Calcula el numero de interfases E3 de 34Mbps en el Nodo ATM por cabecera∗L
[email protected]"InterfazE3HaciaATM"D;
InterfazE3HaciaATM = [email protected] + InterfazE33PiT, 8i, Localidades<D;
[email protected];
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
[email protected]"SumInterfazE3HaciaATM"D;
SumInterfazE3HaciaATM = Plus @@ InterfazE3HaciaATM;
[email protected];
H∗Precios para Nodos ATM en la etapa de concentración∗L
[email protected]"Precios_ATM.txt"D;
preciosATM = [email protected]"Precios_ATM.txt", 8Word, Real<D;
[email protected]"precioChasis"D;
precioChasis = preciosATMP1TP2T;
[email protected];
[email protected]"precioTarjSTM1"D;
precioTarjSTM1 = preciosATMP2TP2T;
[email protected];
[email protected]"precioTarjE3"D;
precioTarjE3 = preciosATMP3TP2T;
[email protected];
[email protected]"Precios_ATM.txt"D;
H∗Precios para Nodos ATM en la etapa de concentración∗L
[email protected]"PuertosTarj_ATM.txt"D;
puertosTarjATM = [email protected]"PuertosTarj_ATM.txt", 8Word, Real<D;
[email protected]"puertosTarjSTM1"D;
puertosTarjSTM1 = puertosTarjATMP1TP2T;
[email protected];
[email protected]"puertosTarjE3"D;
puertosTarjE3 = puertosTarjATMP2TP2T;
[email protected];
[email protected]"PuertosTarj_ATM.txt"D;
H∗Calcula el numero de Nodos ATM∗L
[email protected]"NumNodosATM"D;
DemPorPOP3PiT
F, 8i, Localidades<F;
NumNodosATM = TableBCeilingB
16 000
[email protected];
H∗Se ha añadido una instruccion de comprobacion
que suma el numero de Nodos ATM por cabecera∗L
[email protected]"SumNumNodosATM"D;
SumNumNodosATM = Plus @@ NumNodosATM;
[email protected];
H∗Calcula el numero de tarjetas STM−1 en el Nodo ATM por cabecera∗L
[email protected]"NumTarjSTM1Conc"D;
InterfazSTM1HaciaATMPiT
NumTarjSTM1Conc = TableBCeilingB
F, 8i, Localidades<F;
puertosTarjSTM1
[email protected];
H∗Se ha añadido una instruccion de comprobacion que suma el numero de Tarjetas STM−
1 en los Nodos ATM por cabecera∗L
[email protected]"SumNumTarjSTM1Conc"D;
SumNumTarjSTM1Conc = Plus @@ NumTarjSTM1Conc;
[email protected];
H∗Calcula el numero de Tarjetas E3 en el Nodo ATM por cabecera∗L
[email protected]"NumTarjE3Conc"D;
InterfazE3HaciaATMPiT
NumTarjE3Conc = TableBCeilingB
F, 8i, Localidades<F;
puertosTarjE3
Modelo_Integral_ACK.nb
48
Modelo_Integral_ACK.nb
[email protected];
H∗Se ha añadido una instruccion de comprobacion que
suma el numero de Tarjetas E3 en los Nodos ATM por cabecera∗L
[email protected]"SumNumTarjE3Conc"D;
SumNumTarjE3Conc = Plus @@ NumTarjE3Conc;
[email protected];
H∗Calcula el costo del Nodo ATM por cabecera∗L
[email protected]"CostoATMConc"D;
CostoATMConc = [email protected] ∗ precioChasis +
NumTarjSTM1ConcPiT ∗ precioTarjSTM1 + NumTarjE3ConcPiT ∗ precioTarjE3, 8i, Localidades<D;
[email protected];
H∗Se ha añadido una instruccion de comprobacion
que suma los costos de los Nodos ATM por cabecera∗L
[email protected]"SumCostoATMConc"D;
SumCostoATMConc = Plus @@ CostoATMConc;
[email protected];
H∗Carga los datos de número de usuarios∗L
[email protected]"NumUsuarios_Agreg.txt"D;
NumUsersAgreg = [email protected]"NumUsuarios_Agreg.txt", 8Word, Real<D;
[email protected]"NumUsersSTM1Agreg"D;
NumUsersSTM1Agreg = NumUsersAgregP1TP2T;
[email protected];
[email protected]"NumUsersAgregAgreg"D;
NumUsersAgregAgreg = NumUsersAgregP2TP2T;
[email protected];
[email protected]"NumUsuarios_Agreg.txt"D;
[email protected]"yCx"D;
yCx = [email protected], 1T, 8i, Localidades<D;
[email protected]@yCxDD;
yCx1 = [email protected];
[email protected];
[email protected]"DemPorPOP4"D;
DemPorPOP4 = [email protected], xCxD;
[email protected];
[email protected]"DemPorPOP5"D;
DemPorPOP5 = [email protected], yCxD;
[email protected];
[email protected]"z1Cx"D;
z1Cx = 0;
[email protected];
H∗En formato normal instrucciones que se han añadido al programa∗L
[email protected]"PorcentajealineasGigADSLLima2"D;
PorcentajealineasGigADSLLima2 = PorcentajealineasGigADSLLima;
[email protected]@PorcentajealineasGigADSLLima2DD;
[email protected]"PorclineasGigADLSLima2"D;
PorclineasGigADLSLima2 = [email protected];
[email protected];
[email protected]"PorcentajealineasGigADSLLima2"D;
[email protected] = [email protected]@PorcentajealineasGigADSLLima2, z1CxDD,
8l, NumDPTOS − NumLIMA<D
[email protected]@PorcentajealineasGigADSLLima2DD;
[email protected]"PorclineasGigADLSLima22"D;
PorclineasGigADLSLima22 = [email protected];
[email protected];
PorcentajealineasGigADSLLima2;
[email protected]"z2Cx"D;
49
[email protected]"z2Cx"D;
z2Cx = [email protected], 86<D;
[email protected];
Modelo_Integral_ACK.nb
[email protected]"PuertosLima2"D;
PuertosLima2 = PuertosLima;
[email protected]@PuertosLima2DD;
[email protected]"PtosLima2"D;
PtosLima2 = [email protected];
[email protected];
[email protected]"PuertosLima2"D;
[email protected] = [email protected]@PuertosLima2, z2CxDD, 8l, NumDPTOS − NumLIMA<D
[email protected]@PuertosLima2DD;
[email protected]"PtosLima22"D;
PtosLima22 = [email protected];
[email protected];
[email protected]"PorcentajeGigADSLTotal1"D;
PorcentajeGigADSLTotal1 =
[email protected]@DemPorPOP5P1, iT ≠ "LIMA", [email protected], iT PuertosDptosPj, 1T,
PorcentajealineasGigADSLDepPjT, 0D, [email protected], iT PuertosLima2Pj, 1T,
PorcentajealineasGigADSLLima2PjT, 0DD, 8i, Localidades<, 8j, NumDPTOS<D;
[email protected];
H∗Calcula el porcentaje de lineas mayoristas por site a nivel nacional∗L
[email protected]"PorcentajeGigADSLTotal"D;
PorcentajeGigADSLTotal = [email protected] @@ PorcentajeGigADSLTotal1PiT, 8i, Localidades<D;
[email protected]@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∗[email protected]
[email protected]@@iDD∗H1−[email protected]@iDDLêNumUsersSTM1AgregD,8i,Localidades<D;
[email protected]"NumInterSTM1Agreg"D;
[email protected];
[email protected]@NumInterSTM1Agreg;
[email protected];∗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∗[email protected],xCxD;
[email protected]"NumInterSTM1Agreg1"D;
[email protected];∗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∗[email protected],yCxD;
[email protected]"NumInterSTM1Agreg2"D;
[email protected];∗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 = [email protected]"PRUPtasATM.txt"D;
[email protected], "", "\n", "\n", "Dptos",
" ", [email protected], "\n", "Cabs", " ",
[email protected], "\n", "03", " ", [email protected],
"\n", "04", " ", [email protected], "\n", "05", " ",
[email protected], "\n", "06", " ", [email protected],
"\n", "07", " ", [email protected], "\n"D;
[email protected]"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∗[email protected]@[email protected]@1,iDD≠"LIMA",
[email protected]@@1,[email protected]@j,1DD,[email protected]@j,a+1DD,0D,
D
50
[email protected]@@1,iDD [email protected]@j,1DD,[email protected]@j,a 1DD,0D,
[email protected]@@2,[email protected]@j,1DD,[email protected]@j,a+1DD,0DD,
8i,Localidades<,8a,Años<,8j,NumDPTOS<D;
[email protected]"PuertosATMGigADSL1"D;
[email protected];∗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∗[email protected]@@[email protected]@i,aDD,8a,Años<,8i,Localidades<D;
[email protected]"PuertosATMGigADSL"D;
[email protected];
[email protected]"SumComprobPuertosATMGigADSL"D;
SumComprobPuertosATMGigADSL=
[email protected]@@[email protected]@aDD,8a,Años<D;
[email protected];∗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∗[email protected]@[email protected]@a,iDD≠0,
[email protected]@a,[email protected]@a,iDD,0D,8a,Años<,8i,Localidades<D;
[email protected]"NumPuertasATM"D;
[email protected];
[email protected]"ComprobNumPuertasATM"D;
[email protected] [email protected]@[email protected]@aDD,8a,Años<D;
[email protected];∗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=
[email protected]@[email protected]@a,iDDê4D∗precioTarjSTM1,8a,Años<,8i,Localidades<D;
[email protected]"CostoNodoATMCnxOp"D;
[email protected];
[email protected]"SumComprobCostoNodoATMCnxOp"D;
SumComprobCostoNodoATMCnxOp=
[email protected]@@[email protected]@aDD,8a,Años<D;
[email protected];∗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∗[email protected]@@a,iDD+
[email protected]@a,[email protected]@a,iDD,8a,Años<,8i,Localidades<D;∗L
CostoTotalPopATM = [email protected] + CostoATMConcPiT, 8i, Localidades<D;
[email protected]"CostoTotalPopATM"D;
[email protected];
[email protected]"SumCostoTotalPopATM"D;
SumCostoTotalPopATM = Plus @@ CostoTotalPopATM;
[email protected];
H∗Carga los datos de potencia y energía∗L
[email protected]"Energia_ATM.txt"D;
energiaATM = [email protected]"Energia_ATM.txt", 8Word, Real<D;
[email protected]"Energia_ATM.txt"D;
[email protected]"CostePorWATM"D;
CostePorWATM = energiaATMP1TP2T;
[email protected];
[email protected]"WPorEquipoATM"D;
WPorEquipoATM = energiaATMP2TP2T;
[email protected];
H∗Calcula el costo de energia del Nodo ATM∗L
[email protected]"CostoEnergiaATM"D;
Modelo_Integral_ACK.nb
51
[email protected]"CostoEnergiaATM"D;
CostoEnergiaATM = [email protected] ∗ WPorEquipoATM ∗ NumNodosATMPiT, 8i, Localidades<D;
[email protected];
[email protected]"SumCostoEnergiaATM"D;
SumCostoEnergiaATM = Plus @@ CostoEnergiaATM;
[email protected];
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
[email protected]"Parametros_Costes.txt"D;
ParamsCostes = [email protected]"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;
[email protected]"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
[email protected]"EvolucionPrecios.txt"D;
EvPrecios = [email protected]"EvolucionPrecios.txt", 8Word, Real, Real, Real, Real, Real<D;
EvPrecios = [email protected], 1D;
[email protected]"EvolucionPrecios.txt"D;
H∗Carga del fichero que determina los costes de actividades para cada año∗L
[email protected]"CosteActividadesCambios.txt"D;
CosteActivs2 = [email protected]"CosteActividadesCambios.txt", 8Word, Real, Real, Real, Real, Real<D;
CosteActivs2 = [email protected], 1D;
[email protected]"CosteActividadesCambios.txt"D;
[email protected]"PorcentCosteActiv.txt"D;
CosteActivs = [email protected]"PorcentCosteActiv.txt", 8Word, Real<D;
[email protected]"PorcentCosteActiv.txt"D;
[email protected]"CADSL"D;
CADSL = [email protected], 8ix, nx<D;
Modelo_Integral_ACK.nb
52
CADSL [email protected], 8ix, nx<D;
[email protected]@EquivADSLFijaPixT ≠ 0,
auxLoc = EquivADSLFijaPixT;
CADSLPixT = H63 ∗ InterfazSTM1HaciaPOPPauxLocT +
16 ∗ InterfazE3HaciaPOPPauxLocT + InterfazE1HaciaPOPPauxLocTLD;, 8ix, nx<D;
[email protected];
H∗Cargas en número de E1s de ADSL por cada central∗L
[email protected]"CADSLd"D;
CADSLd = [email protected], 8id, nd<D;
[email protected] = CADSLdPdeptxPixTT + CADSLPixT, 8ix, nx<D;
[email protected];
[email protected]"CADSLNucd"D;
CADSLNucd = [email protected], 8id, nd<D;
[email protected] = CADSLNucdPdeptxPixTT +NumE1EquivsNucPixT;, 8ix, nx<D;
[email protected];
H∗ Acumulación de las cargas por departamento ∗L
inputLDadsl = [email protected], 8id, nd<, 8jd, nd<D;
Destinosadsl = [email protected], 8id, nd<D;
inputLDNucNuc = [email protected], 8id, nd<, 8jd, nd<D;
adslTruji = 0;
adslAreq = 0;
[email protected] =
[email protected], 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;
[email protected] 14, adslTruji = adslTruji + CADSLNucdPidTD;
[email protected] 19, adslAreq = adslAreq + CADSLNucdPidTD;
inputLDadslPid, DestinosadslPidTT = inputLDadslPid, DestinosadslPidTT + CADSLdPidT;
, 8id, nd<D;
inputLDNucNucP14, 6T = [email protected]@adslTrujiD, 63D;
inputLDNucNucP19, 6T = [email protected]@adslAreqD, 63D;
[email protected];
[email protected];
H∗ Se ingresan los archivos de Cargas ∗L
[email protected]"input_traficoLDadsl.txt"D;
[email protected]"input_traficoAlqLDE1sABC2.txt"D;
OutAdslLD = [email protected]"input_traficoLDadsl.txt"D;
OutNucNucLD = [email protected]"input_traficoAlqLDE1sABC2.txt"D;
[email protected] = "";
str2 = "";
[email protected]@iy 1,
str1 = [email protected], [email protected], iyTD<D;
str2 = [email protected], [email protected], iyTD<D;,
Modelo_Integral_ACK.nb
53
str2 [email protected], [email protected], iyTD<D;,
str1 = [email protected], "\t", [email protected], iyTD<D;
str2 = [email protected], "\t", [email protected], iyTD<D;D;, 8iy, 24<D;
str1 = [email protected], "\n"<D;
str2 = [email protected], "\n"<D;
[email protected], str1D;
[email protected], str2D;, 8ix, 24<D;
[email protected];
[email protected];
H∗ Se acumula aquí los tráficos ADSL por TRAMO ∗L
Modelo_Integral_ACK.nb
[email protected]"nadsl"D;
nadsl = [email protected];
[email protected];
[email protected]"TOTALE1ADSL"D;
TOTALE1ADSL = 0;
[email protected] = TO TALE1ADSL + CADSLPiadslT;, 8iadsl, nadsl<D;
[email protected];
e1remotehostadslx = zerox;
e1hosttandemadslx = zerox;
[email protected]"e1remotehostadslx"D;
[email protected]
[email protected] 1, e1remotehostadslxPiadslT = e1remotehostadslxPiadslT + CADSLPiadslT;D;,
8iadsl, nadsl<D;
[email protected]
[email protected]"e1hosttandemadslx"D;
[email protected]@remote1xPiadslT 1,
e1hosttandemadslxPallhostxPiadslTT = e1hosttandemadslxPallhostxPiadslTT + CADSLPiadslT;D;
[email protected] 0 Ï tandem1xPiadslT 0,
e1hosttandemadslxPiadslT = e1hosttandemadslxPiadslT + CADSLPiadslT;D;, 8iadsl, nadsl<D;
[email protected]@limaxPiadslT Ï esAnillodxPiadslT 2 Ï hostxPiadslT, [email protected] ≠ 1,
e1hosttandemadslxPiadslT = [email protected] ∗ 1.75D;,
e1hosttandemadslxPiadslT = [email protected] ∗ 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
[email protected];
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;
[email protected]"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
[email protected]"nalqA1"D;
CALQUILADOA1 = [email protected]@[email protected]"input_C_AlquiladosA1.txt", Number, RecordLists → TrueDDD;
nalqA1 = [email protected];
[email protected];
[email protected]"CALQUILADOA1"D;
[email protected]@[email protected], 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;
[email protected]"TOTALE1ALQA1"D;
DoBTOTALE1ALQA1 = TOTALE1ALQA1 +
CALQUILADOA1Pialq, 2T
2
;, 8ialq, nalqA1<F;
[email protected];
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
[email protected]"e1remotehostalqxA1"D;
[email protected]@remote1xPCALQUILADOA1Pialq, 1TT 1, e1remotehostalqxA1PCALQUILADOA1Pialq, 1TT =
e1remotehostalqxA1PCALQUILADOA1Pialq, 1TT + CALQUILADOA1Pialq, 2T;D;, 8ialq, nalqA1<D;
[email protected];
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
[email protected]"e1hosttandemalqxA1"D;
[email protected]@remote1xPCALQUILADOA1Pialq, 1TT 1, e1hosttandemalqxA1PallhostxPCALQUILADOA1Pialq, 1TTT =
e1hosttandemalqxA1PallhostxPCALQUILADOA1Pialq, 1TTT + CALQUILADOA1Pialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOA1Pialq, 1TT 0,
e1hosttandemalqxA1PCALQUILADOA1Pialq, 1TT =
e1hosttandemalqxA1PCALQUILADOA1Pialq, 1TT + CALQUILADOA1Pialq, 2T;D;, 8ialq, nalqA1<D;
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOA12"D;
CALQUILADOA12 = [email protected]@[email protected]"input_C_Alquilados2A1.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqA12"D;
nalqA12 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOA12∗L
[email protected]"TOTALE1ALQA1"D;
[email protected] = TOTALE1ALQA1 + CALQUILADOA12Pialq, 3T;, 8ialq, nalqA12<D;
[email protected];
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
[email protected]"e1remotehostalqxA1"D;
[email protected] = CALQUILADOA12Pialq, 1T;
aux2 = CALQUILADOA12Pialq, 2T;
[email protected] ≠ aux2,
[email protected] 1, e1remotehostalqxA1Paux1T = e1remotehostalqxA1Paux1T + CALQUILADOA12Pialq, 3T;D;
D
55
Modelo_Integral_ACK.nb
[email protected] 1, e1remotehostalqxA1Paux1T e1remotehostalqxA1Paux1T CALQUILADOA12Pialq, 3T;D;
[email protected] 1, e1remotehostalqxA1Paux2T = e1remotehostalqxA1Paux2T + CALQUILADOA12Pialq, 3T;D;D;
, 8ialq, nalqA12<D;
[email protected];
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
[email protected]"e1hosttandemalqxA1"D
[email protected] = CALQUILADOA12Pialq, 1T;
aux2 = CALQUILADOA12Pialq, 2T;
[email protected] ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
[email protected] 1, aux1 = allhostxPaux1T;D;
[email protected] 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
[email protected] 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
[email protected] 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
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOB1"D;
CALQUILADOB1 = [email protected]@[email protected]"input_C_AlquiladosB1.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqB1"D;
nalqB1 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOB1 ∗L
e1remotehostalqxB1 = zerox;
e1hosttandemalqxB1 = zerox;
TOTALE1ALQB1 = 0;
[email protected]"TOTALE1ALQB1"D;
DoBTOTALE1ALQB1 = TOTALE1ALQB1 +
CALQUILADOB1Pialq, 2T
2
;, 8ialq, nalqB1<F;
[email protected];
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
[email protected]"e1remotehostalqxB1"D;
[email protected]@remote1xPCALQUILADOB1Pialq, 1TT 1, e1remotehostalqxB1PCALQUILADOB1Pialq, 1TT =
e1remotehostalqxB1PCALQUILADOB1Pialq, 1TT + CALQUILADOB1Pialq, 2T;D;, 8ialq, nalqB1<D;
[email protected];
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
[email protected]"e1hosttandemalqxB1"D;
[email protected]@remote1xPCALQUILADOB1Pialq, 1TT 1, e1hosttandemalqxB1PallhostxPCALQUILADOB1Pialq, 1TTT =
e1hosttandemalqxB1PallhostxPCALQUILADOB1Pialq, 1TTT + CALQUILADOB1Pialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOB1Pialq, 1TT 0,
e1hosttandemalqxB1PCALQUILADOB1Pialq, 1TT =
e1hosttandemalqxB1PCALQUILADOB1Pialq, 1TT + CALQUILADOB1Pialq, 2T;D;, 8ialq, nalqB1<D;
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOB12"D;
CALQUILADOB12 = [email protected]@[email protected]"input_C_Alquilados2B1.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqB12"D;
nalqB12 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOB12 ∗L
[email protected]"TOTALE1ALQB1"D;
[email protected] = TOTALE1ALQB1 + CALQUILADOB12Pialq, 3T;, 8ialq, nalqB12<D;
[email protected];
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
[email protected]"e1remotehostalqxB1"D;
[email protected] = CALQUILADOB12Pialq, 1T;
aux2 = CALQUILADOB12Pialq, 2T;
[email protected] ≠ aux2,
[email protected] 1, e1remotehostalqxB1Paux1T = e1remotehostalqxB1Paux1T + CALQUILADOB12Pialq, 3T;D;
[email protected] 1, e1remotehostalqxB1Paux2T = e1remotehostalqxB1Paux2T + CALQUILADOB12Pialq, 3T;D;D;
, 8ialq, nalqB12<D;
[email protected];
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
[email protected]"e1hosttandemalqxB1"D;
[email protected] = CALQUILADOB12Pialq, 1T;
57
Modelo_Integral_ACK.nb
[email protected] CALQUILADOB12Pialq, 1T;
aux2 = CALQUILADOB12Pialq, 2T;
[email protected] ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
[email protected] 1, aux1 = allhostxPaux1T;D;
[email protected] 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
[email protected] 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
[email protected] 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
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOC1"D;
CALQUILADOC1 = [email protected]@[email protected]"input_C_AlquiladosC1.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqC1"D;
nalqC1 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOC1 ∗L
e1remotehostalqxC1 = zerox;
e1hosttandemalqxC1 = zerox;
TOTALE1ALQC1 = 0;
[email protected]"TOTALE1ALQC1"D;
DoBTOTALE1ALQC1 = TOTALE1ALQC1 +
CALQUILADOC1Pialq, 2T
2
;, 8ialq, nalqC1<F;
[email protected];
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
[email protected]"e1remotehostalqxC1"D;
[email protected]@remote1xPCALQUILADOC1Pialq, 1TT 1, e1remotehostalqxC1PCALQUILADOC1Pialq, 1TT =
e1remotehostalqxC1PCALQUILADOC1Pialq, 1TT + CALQUILADOC1Pialq, 2T;D;, 8ialq, nalqC1<D;
[email protected];
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
[email protected]"e1hosttandemalqxC1"D;
[email protected]@remote1xPCALQUILADOC1Pialq, 1TT 1, e1hosttandemalqxC1PallhostxPCALQUILADOC1Pialq, 1TTT =
e1hosttandemalqxC1PallhostxPCALQUILADOC1Pialq, 1TTT + CALQUILADOC1Pialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOC1Pialq, 1TT 0,
e1hosttandemalqxC1PCALQUILADOC1Pialq, 1TT =
e1hosttandemalqxC1PCALQUILADOC1Pialq, 1TT + CALQUILADOC1Pialq, 2T;D;, 8ialq, nalqC1<D;
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOC12"D;
CALQUILADOC12 = [email protected]@[email protected]"input_C_Alquilados2C1.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqC12"D;
nalqC12 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOC12 ∗L
[email protected]"TOTALE1ALQC1"D;
[email protected] = TOTALE1ALQC1 + CALQUILADOC12Pialq, 3T;, 8ialq, nalqC12<D;
[email protected];
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
[email protected]"e1remotehostalqxC1"D;
[email protected] = CALQUILADOC12Pialq, 1T;
aux2 = CALQUILADOC12Pialq, 2T;
[email protected] ≠ aux2,
[email protected] 1, e1remotehostalqxC1Paux1T = e1remotehostalqxC1Paux1T + CALQUILADOC12Pialq, 3T;D;
[email protected] 1, e1remotehostalqxC1Paux2T = e1remotehostalqxC1Paux2T + CALQUILADOC12Pialq, 3T;D;D;
, 8ialq, nalqC12<D;
[email protected];
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
[email protected]"e1hosttandemalqxC1"D;
[email protected] = CALQUILADOC12Pialq, 1T;
aux2 = CALQUILADOC12Pialq, 2T;
[email protected] ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
[email protected] 1, aux1 = allhostxPaux1T;D;
[email protected] 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
[email protected] 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
[email protected] 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
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOLL2"D;
CALQUILADOLL2 = [email protected]@[email protected]"input_C_Alquilados2LL.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqLL2"D;
nalqLL2 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOLL2 ∗L
[email protected]"TOTALE1ALQLL"D;
TOTALE1ALQLL = 0; [email protected] = TOTALE1ALQLL + CALQUILADOLL2Pialq, 3T;, 8ialq, nalqLL2<D;
[email protected];
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
[email protected]"e1remotehostalqxLL"D;
e1remotehostalqxLL = zerox;
[email protected] = CALQUILADOLL2Pialq, 1T;
aux2 = CALQUILADOLL2Pialq, 2T;
[email protected] ≠ aux2,
[email protected] 1, e1remotehostalqxLLPaux1T = e1remotehostalqxLLPaux1T + CALQUILADOLL2Pialq, 3T;D;
[email protected] 1, e1remotehostalqxLLPaux2T = e1remotehostalqxLLPaux2T + CALQUILADOLL2Pialq, 3T;D;D;
, 8ialq, nalqLL2<D;
[email protected];
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
[email protected]"e1hosttandemalqxLL"D;
e1hosttandemalqxLL = zerox;
[email protected] = CALQUILADOLL2Pialq, 1T;
aux2 = CALQUILADOLL2Pialq, 2T;
[email protected] ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
[email protected] 1, aux1 = allhostxPaux1T;D;
[email protected] 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
[email protected] 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 [email protected] 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
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOLP2"D;
CALQUILADOLP2 = [email protected]@[email protected]"input_C_Alquilados2LP.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqLP2"D;
nalqLP2 = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOLP2 ∗L
[email protected]"TOTALE1ALQLP"D;
TOTALE1ALQLP = 0; [email protected] = TOTALE1ALQLP + CALQUILADOLP2Pialq, 3T;, 8ialq, nalqLP2<D;
[email protected];
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
[email protected]"e1remotehostalqxLP"D;
e1remotehostalqxLP = zerox;
[email protected] = CALQUILADOLP2Pialq, 1T;
aux2 = CALQUILADOLP2Pialq, 2T;
[email protected] ≠ aux2,
[email protected] 1, e1remotehostalqxLPPaux1T = e1remotehostalqxLPPaux1T + CALQUILADOLP2Pialq, 3T;D;
[email protected] 1, e1remotehostalqxLPPaux2T = e1remotehostalqxLPPaux2T + CALQUILADOLP2Pialq, 3T;D;D;
, 8ialq, nalqLP2<D;
[email protected];
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
[email protected]"e1hosttandemalqxLP"D;
e1hosttandemalqxLP = zerox;
[email protected] = CALQUILADOLP2Pialq, 1T;
aux2 = CALQUILADOLP2Pialq, 2T;
[email protected] ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
[email protected] 1, aux1 = allhostxPaux1T;D;
[email protected] 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
[email protected] 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
[email protected] 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
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOAS"D;
CALQUILADOAS = [email protected]@[email protected]"input_C_AlquiladosAS.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqAS"D;
nalqAS = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOAS ∗L
e1remotehostalqxAS = zerox;
e1hosttandemalqxAS = zerox;
TOTALE1ALQAS = 0;
[email protected]"TOTALE1ALQAS"D;
DoBTOTALE1ALQAS = TOTALE1ALQAS +
CALQUILADOASPialq, 2T
2
;, 8ialq, nalqAS<F;
[email protected];
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
[email protected]"e1remotehostalqxAS"D
[email protected]@remote1xPCALQUILADOASPialq, 1TT 1, e1remotehostalqxASPCALQUILADOASPialq, 1TT =
e1remotehostalqxASPCALQUILADOASPialq, 1TT + CALQUILADOASPialq, 2T;D;, 8ialq, nalqAS<D;
[email protected]
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
[email protected]"e1hosttandemalqxAS"D
[email protected]@remote1xPCALQUILADOASPialq, 1TT 1, e1hosttandemalqxASPallhostxPCALQUILADOASPialq, 1TTT =
e1hosttandemalqxASPallhostxPCALQUILADOASPialq, 1TTT + CALQUILADOASPialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOASPialq, 1TT 0,
e1hosttandemalqxASPCALQUILADOASPialq, 1TT =
e1hosttandemalqxASPCALQUILADOASPialq, 1TT + CALQUILADOASPialq, 2T;D;, 8ialq, nalqAS<D;
[email protected]
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;
[email protected]"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
[email protected]"CALQUILADOBS"D;
CALQUILADOBS = [email protected]@[email protected]"input_C_AlquiladosBS.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqBS"D;
nalqBS = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOBS ∗L
e1remotehostalqxBS = zerox;
e1hosttandemalqxBS = zerox;
TOTALE1ALQBS = 0;
[email protected]"TOTALE1ALQBS"D;
DoBTOTALE1ALQBS = TOTALE1ALQBS +
CALQUILADOBSPialq, 2T
2
;, 8ialq, nalqBS<F;
[email protected];
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
[email protected]"e1remotehostalqxBS"D;
[email protected]@remote1xPCALQUILADOBSPialq, 1TT 1, e1remotehostalqxBSPCALQUILADOBSPialq, 1TT =
e1remotehostalqxBSPCALQUILADOBSPialq, 1TT + CALQUILADOBSPialq, 2T;D;, 8ialq, nalqBS<D;
[email protected];
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
[email protected]"e1hosttandemalqxBS"D;
[email protected]@remote1xPCALQUILADOBSPialq, 1TT 1, e1hosttandemalqxBSPallhostxPCALQUILADOBSPialq, 1TTT =
e1hosttandemalqxBSPallhostxPCALQUILADOBSPialq, 1TTT + CALQUILADOBSPialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOBSPialq, 1TT 0,
e1hosttandemalqxBSPCALQUILADOBSPialq, 1TT =
e1hosttandemalqxBSPCALQUILADOBSPialq, 1TT + CALQUILADOBSPialq, 2T;D;, 8ialq, nalqBS<D;
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOCS"D;
CALQUILADOCS = [email protected]@[email protected]"input_C_AlquiladosCS.txt", Number, RecordLists → TrueDDD;
[email protected];
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
[email protected]"nalqCS"D;
nalqCS = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOCS ∗L
e1remotehostalqxCS = zerox;
e1hosttandemalqxCS = zerox;
TOTALE1ALQCS = 0;
[email protected]"TOTALE1ALQCS"D;
DoBTOTALE1ALQCS = TOTALE1ALQCS +
CALQUILADOCSPialq, 2T
2
;, 8ialq, nalqCS<F;
[email protected];
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
[email protected]"e1remotehostalqxCS"D;
[email protected]@remote1xPCALQUILADOCSPialq, 1TT 1, e1remotehostalqxCSPCALQUILADOCSPialq, 1TT =
e1remotehostalqxCSPCALQUILADOCSPialq, 1TT + CALQUILADOCSPialq, 2T;D;, 8ialq, nalqCS<D;
[email protected];
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
[email protected]"e1hosttandemalqxCS"D;
[email protected]@remote1xPCALQUILADOCSPialq, 1TT 1, e1hosttandemalqxCSPallhostxPCALQUILADOCSPialq, 1TTT =
e1hosttandemalqxCSPallhostxPCALQUILADOCSPialq, 1TTT + CALQUILADOCSPialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOCSPialq, 1TT 0,
e1hosttandemalqxCSPCALQUILADOCSPialq, 1TT =
e1hosttandemalqxCSPCALQUILADOCSPialq, 1TT + CALQUILADOCSPialq, 2T;D;, 8ialq, nalqCS<D;
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOABCnop"D;
CALQUILADOABCnop = [email protected]@[email protected]@"input_C_AlquiladosABCnop.txt", Number, RecordLists → TrueDDDD;
[email protected];
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
[email protected]"nalqABCnop"D;
nalqABCnop = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOABCnop ∗L
e1remotehostalqxABCnop = zerox;
e1hosttandemalqxABCnop = zerox;
TOTALE1ALQABCnop = 0;
[email protected]"TOTALE1ALQABCnop"D;
DoBTOTALE1ALQABCnop = TOTALE1ALQABCnop +
CALQUILADOABCnopPialq, 2T
2
;, 8ialq, nalqABCnop<F;
[email protected];
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
[email protected]"e1remotehostalqxABCnop"D;
[email protected]@remote1xPCALQUILADOABCnopPialq, 1TT 1, e1remotehostalqxABCnopPCALQUILADOABCnopPialq, 1TT =
e1remotehostalqxABCnopPCALQUILADOABCnopPialq, 1TT + CALQUILADOABCnopPialq, 2T;D;, 8ialq, nalqABCnop<D;
[email protected];
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
[email protected]"e1hosttandemalqxABCnop"D;
[email protected]@remote1xPCALQUILADOABCnopPialq, 1TT 1, e1hosttandemalqxABCnopPallhostxPCALQUILADOABCnopPialq, 1TTT =
e1hosttandemalqxABCnopPallhostxPCALQUILADOABCnopPialq, 1TTT + CALQUILADOABCnopPialq, 2T;D;
[email protected], 1TT 0 Ï tandem1xPCALQUILADOABCnopPialq, 1TT 0,
e1hosttandemalqxABCnopPCALQUILADOABCnopPialq, 1TT =
e1hosttandemalqxABCnopPCALQUILADOABCnopPialq, 1TT + CALQUILADOABCnopPialq, 2T;D;, 8ialq, nalqABCnop<D;
[email protected];
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;
[email protected]"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
[email protected]"CALQUILADOABC2nop"D;
CALQUILADOABC2nop = [email protected]@[email protected]@"input_C_Alquilados2ABCnop.txt", Number, RecordLists → TrueDDDD;
[email protected];
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
[email protected]"nalqABC2nop"D;
nalqABC2nop = [email protected];
[email protected];
H∗ Identifica el número de elementos de la lista CALQUILADOABC2nop ∗L
[email protected]"TOTALE1ALQABCnop"D;
[email protected] = TOTALE1ALQABCnop + CALQUILADOABC2nopPialqnop, 3T;, 8ialqnop, nalqABC2nop<D;
[email protected];
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
[email protected]"e1remotehostalqxABCnop"D;
[email protected] = CALQUILADOABC2nopPialq, 1T;
aux2 = CALQUILADOABC2nopPialq, 2T;
[email protected] ≠ aux2,
[email protected] 1,
e1remotehostalqxABCnopPaux1T = e1remotehostalqxABCnopPaux1T + CALQUILADOABC2nopPialq, 3T;D;
[email protected] 1, e1remotehostalqxABCnopPaux2T =
e1remotehostalqxABCnopPaux2T + CALQUILADOABC2nopPialq, 3T;D;D;
, 8ialq, nalqABC2nop<D;
[email protected];
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
[email protected]"e1hosttandemalqxABCnop"D;
[email protected] = CALQUILADOABC2nopPialq, 1T;
aux2 = CALQUILADOABC2nopPialq, 2T;
[email protected] ≠ aux2,
H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L
[email protected] 1, aux1 = allhostxPaux1T;D;
[email protected] 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
[email protected] 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
[email protected] 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
[email protected];
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
[email protected] 1,
numeronodos = 1;
numeronodosnoradio = 1;
nodoPnumeronodosT = iax;
nodonoradioPnumeronodosnoradioT = iax;,
[email protected] 0 Ï [email protected], 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
[email protected] 0 Ï [email protected], Aereo, Urbana<,
transtechxPiaxTD,
numeronodosnoradio ++;
nodonoradioPnumeronodosnoradioT = iax;D;D; H∗∗L
IfBhost1xPiax + 1T 1 Ï numeronodos > 2, H∗ comienzo Prim ∗L
[email protected]"Prim"D;
H∗Todos los nodos∗L
disttotal = 0;
nodoconectado = [email protected], 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;
[email protected] = 1, iinod < numeronodos,
[email protected] = iinod + 1, jjnod < numeronodos + 1, [email protected]@nodoPiinodT, nodoPjjnodTD < distaux Í
nodoencontrado 0L Ï HHnodoconectadoPiinodT 1 Ï nodoconectadoPjjnodT 0L Í
HnodoconectadoPjjnodT 1 Ï nodoconectadoPiinodT 0LL,
distaux = [email protected], nodoPjjnodTD;
nodoencontrado = [email protected] 0, iinod, jjnodD;
nodoalqueseconecta = [email protected] 0, iinod, jjnodD;D; jjnod ++D; iinod ++D;
[email protected] ≠ 0, nodoconectadoPnodoencontradoT = 1;
aquienmeconectoPnodoencontradoT = nodoalqueseconecta;D;
distaux
disttotal = disttotal +
;F;
factorNoLinealNoUrban
H∗Nodos de Fibra∗L
disttotalnoradio = 0;
nodoconectadonoradio = [email protected], 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 = [email protected], 8ix, numeronodosnoradio<D;
[email protected] = 1, ibx ≤ numeronodosnoradio,
[email protected] = 1, icx ≤ numeronodos, [email protected] nodoPicxT, numeronodonormalPibxT = icxD;
icx ++D;
ibx ++D;
Modelo_Integral_ACK.nb
WhileBnodoencontradonoradio ≠ 0,
distauxnoradio = ∞;
nodoencontradonoradio = 0;
nodoalqueseconectanoradio = 0;
[email protected] = 1, iinod < numeronodosnoradio,
[email protected] = iinod + 1, jjnod < numeronodosnoradio + 1,
[email protected]@nodonoradioPiinodT, nodonoradioPjjnodTD < distauxnoradio Í nodoencontradonoradio 0L Ï
HHnodoconectadonoradioPiinodT 1 Ï nodoconectadonoradioPjjnodT 0L Í HnodoconectadonoradioPjjnodT 1 Ï
nodoconectadonoradioPiinodT 0LL, distauxnoradio = [email protected], nodonoradioPjjnodTD;
nodoencontradonoradio = [email protected] 0, iinod, jjnodD;
nodoalqueseconectanoradio = [email protected] 0, iinod, jjnodD;D; jjnod ++D; iinod ++D;
[email protected] ≠ 0, nodoconectadonoradioPnodoencontradonoradioT = 1;
aquienmeconectonoradioPnodoencontradonoradioT = nodoalqueseconectanoradio;D;
distauxnoradio
disttotalnoradio = disttotalnoradio +
;F;
factorNoLinealNoUrban
[email protected] = 2, ibx ≤ numeronodosnoradio,
aquienmeconectoPnumeronodonormalPibxTT = numeronodonormalPaquienmeconectonoradioPibxTT; ibx ++D;
ForBibx = 2, ibx ≤ numeronodos, distaux = [email protected], nodoPaquienmeconectoPibxTTD;
disthostxPnodoPibxTT =
distaux
;
factorNoLinealxPnodoPibxTT
repfibraxPnodoPibxTT =
distaux
;
factorNoLinealxPnodoPibxTT
ConexionPnodoPibxTT = nodoPaquienmeconectoPibxTT;
[email protected] 1L Ï HConsideraPRIM 2L Ï HtranstechxPnodoPibxTT EnterradoL,
disthostxPnodoPibxTT = 2 ∗ disthostxPnodoPibxTT;
repfibraxPnodoPibxTT = H∗2∗LrepfibraxPnodoPibxTT;D;
H∗Se le retira el producto por 2∗L
[email protected] 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
[email protected] = [email protected]@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;
[email protected] = 2, iinod < numeronodos + 1, [email protected]
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"<;
[email protected]"Valores Luego de PRIM"D;
loadremotehostx = loadremotehostLocx + loadremotehostLDNx + loadremotehostLDIx;
[email protected]@
[email protected], 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;
[email protected]
[email protected] 1,
[email protected] 1,
ProvAnillo = provxPixT;
esAnillo = 1;,
esAnillo = 0;
D;
D;
[email protected] 1,
e1AnillopPProvAnilloT =
e1AnillopPProvAnilloT + [email protected] 0, 0, 1D ∗ e1remotehostxPixT ∗ [email protected] 1, 0, 1D;
loadAnilloLocpPProvAnilloT = loadAnilloLocpPProvAnilloT +
[email protected] 0, 0, 1D ∗ loadremotehostLocxPixT ∗ [email protected] 1, 0, 1D;
loadAnilloLDNpPProvAnilloT = loadAnilloLDNpPProvAnilloT +
[email protected] 0, 0, 1D ∗ loadremotehostLDNxPixT ∗ [email protected] 1, 0, 1D;
loadAnilloLDIpPProvAnilloT = loadAnilloLDIpPProvAnilloT +
[email protected] 0, 0, 1D ∗ loadremotehostLDIxPixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpA1PProvAnilloT = e1AnilloalqpA1PProvAnilloT +
70
Modelo_Integral_ACK.nb
e1AnilloalqpA1PProvAnilloT e1AnilloalqpA1PProvAnilloT
[email protected] 0, 0, 1D ∗ e1remotehostalqxA1PixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpB1PProvAnilloT = e1AnilloalqpB1PProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxB1PixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpC1PProvAnilloT = e1AnilloalqpC1PProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxC1PixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpLLPProvAnilloT = e1AnilloalqpLLPProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxLLPixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpLPPProvAnilloT = e1AnilloalqpLPPProvAnilloT + [email protected] 0, 0, 1D ∗
e1remotehostalqxLPPixT ∗ [email protected] 1, 0, 1D; e1AnilloalqpASPProvAnilloT =
e1AnilloalqpASPProvAnilloT + [email protected] 0, 0, 1D ∗ e1remotehostalqxASPixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpBSPProvAnilloT = e1AnilloalqpBSPProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxBSPixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpCSPProvAnilloT = e1AnilloalqpCSPProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxCSPixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpABC2PProvAnilloT = e1AnilloalqpABC2PProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxABC2PixT ∗ [email protected] 1, 0, 1D;
e1AnilloalqpABCnopPProvAnilloT = e1AnilloalqpABCnopPProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostalqxABCnopPixT ∗ [email protected] 1, 0, 1D;
e1AnilloadslpPProvAnilloT = e1AnilloadslpPProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostadslxPixT ∗ [email protected] 1, 0, 1D;
e1AnilloitxpPProvAnilloT = e1AnilloitxpPProvAnilloT +
[email protected] 0, 0, 1D ∗ e1remotehostitxxPixT ∗ [email protected] 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
[email protected]@[email protected], 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;
[email protected]@AnilloCabecerasPipT ≠ 0,
[email protected] 1,
[email protected] ≠ NA,
DepAnillo = deptxPAnilloCabecerasPipTT;
esAnillo = 1;,
esAnillo = 0;
D;
D;
[email protected] 1, e1AnillodPDepAnilloT = e1AnillodPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemxPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
loadAnilloLocdPDepAnilloT = loadAnilloLocdPDepAnilloT + [email protected] NA, 0, 1D ∗
loadhosttandemLocxPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
loadAnilloLDNdPDepAnilloT = loadAnilloLDNdPDepAnilloT + [email protected] NA, 0, 1D ∗
loadhosttandemLDNxPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
71
Modelo_Integral_ACK.nb
loadhosttandemLDNxPAnilloCabecerasPipTT [email protected] 1, 0, 1D;
loadAnilloLDIdPDepAnilloT = loadAnilloLDIdPDepAnilloT + [email protected] NA, 0, 1D ∗
loadhosttandemLDIxPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdA1PDepAnilloT = e1AnilloalqdA1PDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxA1PAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdB1PDepAnilloT = e1AnilloalqdB1PDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxB1PAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdC1PDepAnilloT = e1AnilloalqdC1PDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxC1PAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdLLPDepAnilloT = e1AnilloalqdLLPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxLLPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdLPPDepAnilloT = e1AnilloalqdLPPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxLPPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdASPDepAnilloT = e1AnilloalqdASPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxASPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdBSPDepAnilloT = e1AnilloalqdBSPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxBSPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdCSPDepAnilloT = e1AnilloalqdCSPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxCSPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdABC2PDepAnilloT = e1AnilloalqdABC2PDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxABC2PAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloalqdABCnopPDepAnilloT = e1AnilloalqdABCnopPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemalqxABCnopPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloadsldPDepAnilloT = e1AnilloadsldPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemadslxPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloitxdPDepAnilloT = e1AnilloitxdPDepAnilloT + [email protected] NA, 0, 1D ∗
e1hosttandemitxxPAnilloCabecerasPipTT ∗ [email protected] 1, 0, 1D;
e1AnilloRDdPDepAnilloT = e1AnilloRDdPDepAnilloT + [email protected] 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
[email protected]@[email protected], 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 = [email protected] + e1remotehostadslx + e1remotehostalqxA1 + e1remotehostalqxB1 +
e1remotehostalqxC1 + e1remotehostalqxLL + e1remotehostalqxLP + e1remotehostalqxAS + e1remotehostalqxBS +
e1remotehostalqxCS + e1remotehostalqxABC2 + e1remotehostalqxABCnop + e1remotehostitxxD;
e1hosttandemTOTALx = [email protected] + 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
[email protected]@[email protected], 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 = [email protected]
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
[email protected]@[email protected], provTXTpPipT, e1AnilloTOTALpPipT<, 8ip, np<D, TableSpacing → 80, 1<,
TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "e1AnilloTOTALp"<<DD;
e1AnilloTOTALd = [email protected]
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
[email protected]@[email protected], 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 = [email protected]"ModCom_ListadoCentrales.txt", "CSV"D;
H∗extrae cabecera ∗L
CenComInput = [email protected];
H∗numero de elementos ∗L
CenComN = [email protected];
à Parametros
ü Precios {CenComPrec}
H∗ lee el archivo incluyendo cabecera ∗L
CenComAux = [email protected]"ModCom_PreciarioCentrales.txt", String, RecordLists −> TrueD;
H∗subdivide cada linea por el separador ";"∗L
CenComAux = [email protected], ";"D;
H∗extrae cabecera ∗L
CenComPrec = [email protected];
H∗ convierte valores de cadena a numeros∗L
m = [email protected];
[email protected], 3T = [email protected], 3T D; H∗ ITEM ∗L
CenComPrecPi, 5T = [email protected], 5T D; H∗ PRECIO UNITARIO ∗L
, 8i, 1, m<D;
ü Factores {CenComFactores, CenComPorcInst}
H∗ lee el archivo incluyendo cabecera ∗L
CenComAux = [email protected]"ModCom_Factores.txt", "CSV"D;
H∗extrae cabecera ∗L
CenComFactores = [email protected];
CenComPorcInst = [email protected]@1, 3DD;
73
Modelo_Integral_ACK.nb
Calculo de Parametros de Dimensionamiento de las Centrales
à Enlaces (E0' s) {CenComE0s}
CenComE0s = [email protected], 8i, 1, CenComN<D;
[email protected] = 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 = [email protected], 1T, CenComInputPi, 9T<, 8i, 1, CenComN<D;
à Acondicionamiento de Archivo
de E0s
[email protected]
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.
[email protected]_, mMatrizBuscarEn_, mColumna_ D := [email protected], j, k, a, m, AuxV<,
m = [email protected];
AuxV = mMatrizBuscarEnPm, mColumnaT;
[email protected]
[email protected] <= mMatrizBuscarEnPi, 1T,
AuxV = mMatrizBuscarEnPi, mColumnaT;
[email protected];
D;
, 8i, 1, m<D;
[email protected];
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
[email protected]_D := [email protected] ≥ 0, [email protected], [email protected];
ü 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
[email protected]_D := [email protected] >= 0, [email protected], [email protected];
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 = [email protected]"", 8i, 1, 14<D;
CenComPreciosSA = [email protected], 8i, 1, 14<D;
CenComDistribucionSA = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 14<D;
auxSA = [email protected], 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 = [email protected]"", 8i, 1, 8<D;
CenComPreciosSSG = [email protected]"", 8i, 1, 8<D;
CenComDistribucionSSG = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 8<D;
auxSSG = [email protected], 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 = [email protected]"", 8i, 1, 13<D;
CenComPreciosSES = [email protected]"", 8i, 1, 13<D;
CenComDistribucionSES = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 13<D;
auxSES = [email protected], 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 = [email protected]"", 8i, 1, 11<D;
CenComPreciosSC = [email protected]"", 8i, 1, 11<D;
CenComDistribucionSC = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 11<D;
auxSC = [email protected], 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 = [email protected]"", 8i, 1, 5<D;
CenComPreciosMED = [email protected]"", 8i, 1, 5<D;
CenComDistribucionMED = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 5<D;
auxMED = [email protected], 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 = [email protected]"", 8i, 1, 3<D;
CenComPreciosEC = [email protected]"", 8i, 1, 3<D;
CenComDistribucionEC = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 3<D;
auxEC = [email protected], 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 = [email protected]"", 8i, 1, 3<D;
CenComPreciosOC = [email protected]"", 8i, 1, 3<D;
CenComDistribucionOC = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 3<D;
auxOC = [email protected], 8i, 1, 3<D;
a = 1;
CenComTituloOCPaT = "SOFTWARE POR ACCESO BASICO";
CenComPreciosOCPaT = [email protected]@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 = [email protected], auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC<D;
auxPrec = [email protected], CenComPreciosSSG,
CenComPreciosSES, CenComPreciosSC, CenComPreciosMED, CenComPreciosEC, CenComPreciosOC<D;
auxTit = [email protected], CenComTituloSSG, CenComTituloSES, CenComTituloSC,
CenComTituloMED, CenComTituloEC, CenComTituloOC<D;
auxDist = [email protected], 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 = [email protected]"", 8i, 1, 20<D;
CenComPreciosSAr = [email protected], 8i, 1, 20<D;
CenComDistribucionSAr = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 20<D;
auxSAr = [email protected], 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 = [email protected]"", 8i, 1, 4<D;
CenComPreciosMEDr = [email protected]"", 8i, 1, 4<D;
CenComDistribucionMEDr = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 4<D;
auxMEDr = [email protected], 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 = [email protected]"", 8i, 1, 3<D;
CenComPreciosECr = [email protected]"", 8i, 1, 3<D;
CenComDistribucionECr = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 3<D;
auxECr = [email protected], 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 = [email protected]"", 8i, 1, 2<D;
CenComPreciosOCr = [email protected]"", 8i, 1, 2<D;
CenComDistribucionOCr = [email protected]@0, 8j, 1, [email protected]<D, 8i, 1, 2<D;
auxOCr = [email protected], 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 = [email protected], auxMEDr, auxECr, auxOCr<D;
auxPrecr = [email protected], CenComPreciosMEDr, CenComPreciosECr, CenComPreciosOCr<D;
auxTitr = [email protected], CenComTituloMEDr, CenComTituloECr, CenComTituloOCr<D;
auxDistr = [email protected],
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 = [email protected], 8i, 1, CenComN<D;
H∗ Elementos de cada SubCentral para cada Unidad Remota∗L
CenComElemRem = [email protected]<, 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 = [email protected]<, 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}
[email protected]_, mNumRDSIBA_, mNumRDSIPRI_, mNumRem_, mNumE0_D :=
ModuleB8auxElem, auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC, i, j, k,
auxEspacioLSMs, AuxArmariosLSMs, AuxArmariosSTC, AuxArmariosTSM, AuxArmariosSPM<,
auxSA = [email protected], 8i, 1, 14<D;
auxSSG = [email protected], 8i, 1, 8<D;
auxSES = [email protected], 8i, 1, 13<D;
auxSC = [email protected], 8i, 1, 11<D;
auxMED = [email protected], 8i, 1, 5<D;
auxEC = [email protected], 8i, 1, 3<D;
auxOC = [email protected], 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∗ [email protected]ñoDeEjecucion2000,[email protected]∗mNumPSTND,0D ∗L
H∗tarjetas JTC∗L
F;
2
H∗almacen STC − Señalizadores para Unidades Remotas∗L
auxSAP9T = [email protected] ∗ 1.6934D;
auxSAP8T = RedondearMasBauxSAP4T +
auxSAP3T
H∗preinstalacion PSTN Preinstalacion ACA−3∗L
auxSAP10T = [email protected] ∗ 16 − auxSAP1T D;
H∗preinstalacion basicos 2b+d∗L
mNumRDSIBA
F;
auxSAP11T = auxSAP4T ∗ 16 − RedondearMasB
4
H∗MTU para centrales∗L
auxSAP12T = [email protected] mNumPSTN + mNumRDSIBA + mNumRDSIPRI L 0, 0, 1D;
H∗Armario 24 BM 6 alturas∗L
auxEspacioLSMs = [email protected] + auxSAP4T ∗ 2 + auxSAP5T, 16D;
AuxArmariosLSMs = [email protected], CenComMLSMArmarios, 2D;
auxSAP9T
AuxArmariosSTC = RedondearMasB
F;
32
auxSAP13T = AuxArmariosLSMs;
auxSAP14T = AuxArmariosSTC;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema de Control − APZ∗L
H∗ Disketera ∗L
[email protected]@1DD = 2;
H∗ Disco duro ∗L
[email protected]@2DD = 1;
H∗ Tarjeta RPU ∗L
[email protected]@3DD = 4;
H∗ Tarjeta LIU ∗L
[email protected]@4DD = 7;
H∗ Tarjeta ALAMP ∗L
[email protected]@5DD = 1;
H∗ Tarjeta ALEX ∗L
16
FF;
86
Modelo_Integral_ACK.nb
[email protected]@6DD = 1;
H∗ Tarjeta SCAN ∗L
[email protected]@7DD = 1;
H∗ Almacen ODM ∗L
[email protected]@8DD = 1;
H∗ APZ 212 20 ∗L
[email protected]@9DD = 1;
H∗ Ampliacion memoria 256 MW Dup ∗L
[email protected]@10DD = 0;
H∗ Conjunto IOG 11 − B5 Basico ∗L
[email protected]@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
[email protected]@1DD = RedondearMasB
F;
30
H∗ Almacén para Tarjetas ETC − Almacen GEMM1 para 16 Tarjetas ETC ∗L
[email protected]@1DD
F;
[email protected]@2DD = RedondearMasB
16
H∗ Tarjeta TRH − Funcion TRH HFH, PRA, ST7L − Transaction Record Handler,
Frame Handler, RSDI PRI, Señalizacion SS7 ∗L
mNumRDSIPRI
[email protected]@4DD
[email protected]@3DD = RedondearMasB
F + RedondearMasB
F + [email protected] ∗ 0.0007D;
16
12
H∗ Almacen para Tarjeta TRH∗L
[email protected]@3DD
[email protected]@4DD = RedondearMasB
F;
4
H∗Armario 12 BM 6 alturas para tarjetas ETC − GEMM1 y HLP∗L
[email protected]@2DD + [email protected]@4DD
F;
[email protected]@5DD = RedondearMasB
6
H∗ Almacen CCD − Call Conference Device ∗L
mNumPSTN ∗ 0.1
F;
[email protected]@6DD = RedondearMasB
128
H∗ Armario 24 BM 6 alturas ∗L
[email protected]@6DD
[email protected]@7DD = RedondearMasB
F + 2 ∗ [email protected]@9DD;
8
H∗ AST − DR V2 Basico ∗L
[email protected]@8DD = 1;
H∗ AST − DR V2 Backup ∗L
[email protected]@9DD = 1;
H∗ Almacen EMAS ∗L
[email protected]@10DD = [email protected]@9DD;
H∗ Almacen CSFSK para CLASS∗L
[email protected]@11DD = 1;
H∗ Almacen TCON ∗L
[email protected]@12DD = 1;
H∗ Almacen CANS − incluye OMS ∗L
[email protected]@13DD = 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema Selector de Grupo ∗L
H∗ Almacen CLM − entre 0 y 32 k∗L
[email protected]@4DD = 3;
H∗ Almacen RCM ∗L
[email protected]@5DD = 1;
H∗ Almacen ICM ∗L
[email protected]@6DD = 2;
H∗ Almacen PCD − DL2 ∗L
[email protected]@7DD = 2;
H∗ Almacen de Conmutadores Temporales − TSM Dup entre 0 y 32 k∗L
1
[email protected]@1DD = RedondearMasB
[email protected]@2DD ∗ 16 + [email protected]@6DD +
16
[email protected]@8DD + [email protected]@8DD ∗ 2 + [email protected]@7DD + [email protected]@3DD + [email protected]@11DD + [email protected]@12DDLF;
H∗ Almacen de Conmutadores Espaciales − SPM Dup para 8k ∗L
[email protected]@2DD =
4
[email protected]@@1DD ∗ 0.5, 16D 16, ,
2
87
Modelo_Integral_ACK.nb
[email protected]@@1DD ∗ 0.5, 16D 32,
16
[email protected]@@1DD ∗ 0.5, 16D 48,
,
2
36
[email protected]@@1DD ∗ 0.5, 16D 64,
F;
F
,
2
62
, 32F
2
F
H∗ almacen de Procesadores Regionales − RP Dup con 256 KW∗L
[email protected]@1DD
[email protected]@6DD
[email protected]@3DD = RedondearMasB
F + 1 + RedondearMasB
F + [email protected]@12DD + 1;
8
8
H∗Armario 12 BM 6 alturas∗L
AuxArmariosTSM = [email protected]@[email protected]@1DD, 8D, CenComMTSMArmarios, 2D;
AuxArmariosSPM = [email protected]@@2DD, CenComMSPMArmarios, 2D;
[email protected]@8DD = AuxArmariosTSM + AuxArmariosSPM + 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Materiales y Equipos Diversos ∗L
H∗ cable coaxial flex3 ∗L
[email protected]@1DD = [email protected] ∗ mNumE0D;
H∗ conectores para ETC ∗L
[email protected]@2DD = [email protected]@1DD;
H∗ regleta de abonados 32 x 8 cubret ∗L
mNumPSTN
mNumRDSIBA
[email protected]@3DD = RedondearMasB
F + RedondearMasB
F;
128
128
H∗ regleta miscelaneos 34 x 6 ∗L
[email protected]@4DD = 2;
H∗ cable de distribucion de alimentacion ∗L
[email protected]@5DD = [email protected] ∗ HmNumPSTN + 2 ∗ mNumRDSIBA + 30 ∗ mNumRDSIPRI + mNumE0LD;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Equipos de Conservacion ∗L
H∗ Materiales de Consumo Central APZ 212 ∗L
[email protected]@1DD = 1;
H∗ Modulo C ∗L
[email protected]@2DD = 1;
H∗ Modulo I ∗L
[email protected]@3DD = 1;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Otros Costes ∗L
H∗ Software
[email protected]@1DD =
H∗ Software
[email protected]@2DD =
H∗ DDF ∗L
[email protected]@3DD =
por Acceso Basico ∗L
[email protected], 64D;
por Acceso Primario ∗L
mNumRDSIPRI;
1;
H∗ Crea Matriz Con Resultado Final del Dimensionamiento∗L
auxElem = [email protected], auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC<D;
[email protected];
F;
ü Dimensionar Unidades Remotas {DimensionaSubCentral, CenComNumAbonadoSSS, DimensionaAbonadosPorSubCentral, DimensionaRemota}
[email protected]_, mNumRDSIBA_, mNumE0_, mNumSubCentral_D := ModuleB8auxElemr, auxSAr,
auxMEDr, auxECr, auxOCr, i, j, k, auxNumeroLSMs, AuxArmariosLSMs, auxPreInstalacionRSDIBasicos, a<,
auxSAr = [email protected], 8i, 1, 20<D;
auxMEDr = [email protected], 8i, 1, 4<D;
auxECr = [email protected], 8i, 1, 3<D;
auxOCr = [email protected], 8i, 1, 2<D;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗Subsistema de Abonado∗L
H∗LSM PSTN∗L
[email protected]@4DD = 0;
88
Modelo_Integral_ACK.nb
[email protected]@4DD 0;
[email protected]@5DD = 0;
[email protected]@6DD = 0;
[email protected]@7DD = RedondearMasB
mNumPSTN
128
F;
[email protected]@8DD = 0;
H∗LSM RDSI BA∗L
[email protected] HmNumRDSIBA > 0L && HmNumRDSIBA < 16L, a = 1;, a = 0;D;
[email protected]@9DD = a;
[email protected] HmNumRDSIBA ≥ 16L && HmNumRDSIBA < 32L, a = 1, a = 0D;
[email protected]@10DD = a;
[email protected] HmNumRDSIBA ≥ 32L && HmNumRDSIBA < 48L, a = 1, a = 0D;
[email protected]@11DD = a;
[email protected] HmNumRDSIBA ≥ 48L && HmNumRDSIBA < 60L, a = 1, a = 0D;
[email protected]@12DD = a;
IfB mNumRDSIBA ≥ 60, a = RedondearMasB
mNumRDSIBA
64
F, a = 0F;
[email protected]@13DD = a;
H∗Armario 24 BM 6 alturas∗L
auxNumeroLSMs = 2 ∗ [email protected]@9DD + [email protected]@10DD + [email protected]@11DD + [email protected]@12DD + [email protected]@13DDL +
[email protected]@4DD + [email protected]@5DD + [email protected]@6DD + [email protected]@7DD + [email protected]@8DD;
[email protected] + mNumRDSIBAL > 0,
[email protected] > 16L, AuxArmariosLSMs = 3,
[email protected] > 6L, AuxArmariosLSMs = 2, AuxArmariosLSMs = 1DD;
, AuxArmariosLSMs = 0D;
[email protected]@20DD = AuxArmariosLSMs;
H∗Tarjeta de Abonado RSDI Basico∗L
IfBHmNumRDSIBA < 8L,
a = RedondearMenosB
1
4
HmNumRDSIBA − [email protected]@9DD ∗ 8 + [email protected]@10DD ∗ 16 + [email protected]@11DD ∗ 32 + [email protected]@12DD ∗ 48 + [email protected]@13DD ∗ 60LLF;
,
a = RedondearMasB
1
F;
4
HmNumRDSIBA − [email protected]@9DD ∗ 8 + [email protected]@10DD ∗ 16 + [email protected]@11DD ∗ 32 + [email protected]@12DD ∗ 48 + [email protected]@13DD ∗ 60LLF;
[email protected]@2DD = a;
H∗ tarjetas de conexion con GSS ∗L
H∗ tarjeta str para rdsi ∗L
[email protected] + 2 ∗ mNumRDSIBA + mNumE0L > 0,
[email protected]@@4DD == 1,
a = 1,
[email protected]@@4DD 0, a = 2, a = 0DD;
,
a = 0D;
[email protected]@16DD = a;
H∗ tarjeta etb para rdsi ∗L
[email protected]@14DD = RedondearMasB
mNumE0
30
F; H∗ −[email protected]@4DD−[email protected]@6DD ∗L
H∗Tarjeta de Abonado PSTN∗L
[email protected]@1DD = 0;
H∗ tarjeta str para pstn ∗L
[email protected]@15DD = 0;
H∗Almacen MTU para RSS∗L
H∗[email protected],
[email protected] mNumPSTN+mNumRDSIBA+mNumE0 L>0,a=1,a=0D
,a=0D; ∗L
[email protected] mNumPSTN + mNumRDSIBA + mNumE0 L > 0, a = 1, a = 0D;
auxSArP19T = a;
H∗preinstalacion PSTN∗L
[email protected]@17DD = −1 ∗ [email protected]@1DDL;
H∗preinstalacion basicos 2b+d∗L
auxPreInstalacionRSDIBasicos =
89
Modelo_Integral_ACK.nb
1
RedondearMasB
4
H60 ∗ [email protected]@9DD + [email protected]@10DD + [email protected]@11DD + [email protected]@12DD + [email protected]@13DDL − mNumRDSIBALF;
[email protected]@18DD = auxPreInstalacionRSDIBasicos;
H∗Tarjetas KR∗L
[email protected] 0,
a = 0,
[email protected]@@4DD + [email protected]@5DDL 0,
a = 1;,
a = 0;D
D;
[email protected]@3DD = a;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Materiales y Equipos Diversos ∗L
H∗ cable de distribucion de alimentacion ∗L
[email protected] + 2 ∗ mNumRDSIBA + mNumE0L > 0
,
[email protected] 1,
a = 160,
[email protected] 2,
a = 360, [email protected] 3, a = 480, a = 600D; D;
,
a=0
D;
D;
[email protected]@4DD = a;
H∗ conectores para flex ∗L
[email protected]@1DD = 2 ∗ [email protected]@14DD + [email protected]@4DD + [email protected]@5DD + [email protected]@6DD L;
H∗ puente con punto de prueba ∗L
[email protected]@3DD = [email protected]@1DD;
H∗ regleta miscelaneos 34 x 6 ∗L
[email protected] + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D;
[email protected]@2DD = a;
H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L
H∗ Equipos de Conservacion ∗L
H∗ MODULO C HPAPELL PARA RSS. ∗L
[email protected]@1DD = 0;
H∗ MODULO I HPAPELL PARA RSS. ∗L
[email protected] 1,
[email protected] + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D
,
a = 0D;
[email protected]@2DD = a;
H∗ DOC.PARA RSS NUEVOS. ∗L
[email protected]NumSubCentral 1,
[email protected] + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D;
,
a = 0D;
[email protected]@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;
[email protected]@1DD = a;
H∗ DDF ∗L
[email protected] 1,
[email protected] + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D;
,
a = 0D;
[email protected]@2DD = a;
90
[email protected]@2DD
Modelo_Integral_ACK.nb
a;
H∗ Crea Matriz Con Resultado Final del Dimensionamiento∗L
auxElemr = [email protected], auxMEDr, auxECr, auxOCr<D;
[email protected];
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
[email protected]_, TipoLSM_D :=
ModuleB
8auxLSMsTipo, AuxSuma, i, x, y<,
auxLSMsTipo = [email protected], 8x1_, y1_< ê; x1 TipoLSMD;
Length @auxLSMsTipo D
AuxSuma =
‚
[email protected]@i, 2DD;
i=1
[email protected];
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
[email protected] 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
[email protected] + mNumRDSIBA + mNumE0L 0, [email protected];
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 = [email protected]"BA", auxAbonBAxLSMBA<, 8auxNumLSMBA<D ;
[email protected]@mNumRDSIBA, auxAbonBAxLSMBAD > 0, [email protected]@auxNumLSMBA, 2DD = [email protected], auxAbonBAxLSMBAD;
D;
Modelo_Integral_ACK.nb
mListaLSMPSTN = [email protected]"PSTN", auxAbonPSTNxLSMPSTN<, 8auxNumLSMPSTN<D ;
[email protected]@mNumPSTN, auxAbonPSTNxLSMPSTND > 0,
[email protected]@auxNumLSMPSTN, 2DD = [email protected], auxAbonPSTNxLSMPSTND;
D;
mListaLSM = [email protected] mListaLSMBA, mListaLSMPSTN<D;
mListaLSM = [email protected], 1D;
mNumLSMs = [email protected];
H∗ calcula numero de subcentrales ∗L
mNumLSMs
mNumSSS = CeilingB
F;
auxLSMxSSS
H∗ completa bloques de subcentrales pra subdividirlas posteriormente ∗L
mListaLSM = [email protected], mNumSSS ∗ auxLSMxSSS, 8auxLSMVacio<D;
mListaLSM = [email protected], 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 = [email protected]@[email protected]@iDD, "PSTN"D, [email protected]@@iDD, "BA"D,
0<, 8i, 1, [email protected]<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 ∗ [email protected]@i, 1DD + [email protected]@i, 2DD ∗ 2L
[email protected]@i, 3DD = RedondearMenosB
F,
HmNumPSTN + mNumRDSIBA ∗ 2L
8i, 1, [email protected]<F;
H∗ corrige el ultimo elemento con el numero de enlaces faltantes
Length @mAuxAbonE0xSSS D−1
auxA =
‚
[email protected]@i, 3DDL;
i=1
[email protected]@[email protected], 3DD = mNumE0 − auxA;
[email protected];
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
[email protected]_D :=
[email protected]
8 mauxElemr,
mNumPSTN, mNumRDSIBA, mNumE0,
mAuxAbonE0xSSS,
auxA
<,
mauxElemr = 8auxElemr<;
H∗ validacion para unidad remota sin SubCentrales ∗L
[email protected]@mAbonSubCentD 0, [email protected];
H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L
H∗ dimensiona cada subcentral de acuerdo al numero de abonados y e0's∗L
mauxElemr = [email protected]
[email protected]
[email protected]@i, 1DD,
[email protected]@i, 2DD,
[email protected]@i, 3DD,
i
D
, 8i, 1, [email protected]<
D;
[email protected];
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
[email protected]
NumPSTN = [email protected]@i, 6DD;
NumRDSIBA = [email protected]@i, 7DD;
NumRDSIPRI = [email protected]@i, 8DD;
NumRem = [email protected]@i, 2DD;
NumE0 = [email protected]@iDD;
[email protected] [email protected]@i, 5DD "CABECERA",
H∗ DIMENSIONA CABECERAS∗L
[email protected]@iDD = [email protected], NumRDSIBA, NumRDSIPRI, NumRem, NumE0D;
,
H∗DIMENSIONA UNIDADES REMOTAS∗L
H∗ calcula el numero de abonados y enlaces por cada subcentral ∗L
[email protected]@iDD = [email protected], NumRDSIBA, NumE0D;
H∗ calcula el numero de elementos por cada subcentral ∗L
[email protected]@iDD = [email protected]@@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 = [email protected], 8i, 1, CenComN<D;
[email protected]
[email protected]@iDD = [email protected]@iDD ∗ auxPrec;
,
8i, 1, CenComN<
D;
H∗ Costos de Materiales para Unidades Remotas ∗L
CenComMatRem = [email protected]<, 8i, 1, CenComN<D;
[email protected]
H∗ unidad remota ∗L
AuxR = [email protected]@iDD;
H∗ calcula costo para cada subcentral ∗L
AuxCostR = [email protected]@@jDD ∗ auxPrecrL, 8j, 1, [email protected]<D;
H∗ asigna costo calculado ∗L
[email protected]@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
[email protected]
H∗ Equipos de Conservación ∗L
[email protected]@i, 6DD = [email protected]@i, 6DD ∗ 0;
,
8i, 1, CenComN<
D;
H∗ costo de instalacion y descuentos para Unidades Remotas ∗L
CenComInstRem = [email protected]<, 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
[email protected]
H∗ numero de abonados y enlaces de unidad remota ∗L
AuxAbonSCR = [email protected]@iDD;
AuxNumSubCent = [email protected];
H∗ costo de materiales de unidad remota ∗L
AuxCostMatR = [email protected]@iDD;
AuxCostIntR = [email protected]<, 8j, 1, AuxNumSubCent<D;
H∗ calcula descuento para cada subcentral ∗L
[email protected]
AuxNumPSTN = [email protected]@j, 1DD;
[email protected] ≤ 768, AuxDcto = 0.928, AuxDcto = 0.876D;
AuxCostMatSubCent = [email protected]@jDD;
[email protected]@jDD = AuxCostMatSubCent ∗ HCenComPorcInst ∗ AuxDctoL;
, 8j, 1, AuxNumSubCent <
D;
H∗ asigna valor final∗L
[email protected]@iDD = AuxCostIntR;
H∗ elimina aplicacion de factor de instalacion a elementos identificados ∗L
H∗ Equipos de Conservación ∗L
[email protected]@i, 1, 3DD = [email protected]@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}
[email protected]_, 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;
[email protected]@sDD;
H∗TARJETA PARA 8 ABONADOS ACA−3∗L;
[email protected]@s, 1, CenComCatCostoAccesoPSTNDD = aP1T;
H∗TARJETA KR PARA LSM DE ACA−3∗L;
[email protected]@s, 2, CenComCatCostoAccesoPSTNDD = aP2T;
H∗LSM ACA−3 PARA 128 AB.POU.∗L;
[email protected]@s, 3, CenComCatCostoAccesoPSTNDD = aP3T;
H∗LSM PARA 64 ACC 2 B+D INCL.60∗L;
[email protected]@s, 4, CenComCatCostoAccesoBASDD = aP4T;
H∗NUEVO LSM−PRA CON ACC.30 B+D∗L;
[email protected]@s, 5, CenComCatCostoAccesoPRIDD = aP5T;
H∗ALMACEN RPBC HDUPLICADOL∗L;
[email protected]@s, 6, CenComCatCostoAccesoPSTNDD =
[email protected] + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumPSTN ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ [email protected]@6DDD;
[email protected]@s, 6, CenComCatCostoAccesoBASDD = [email protected] + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIBA ∗ 2 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ [email protected]@6DDD;
[email protected]@s, 6, CenComCatCostoAccesoPRIDD = [email protected] + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIPRI ∗ 30 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ [email protected]@6DDD;
H∗ALMACEN SE−PRM H50L 8 AB.GEN.∗L;
[email protected]@s, 7, CenComCatCostoAccesoPSTNDD = [email protected]@7DD;
H∗TARJETA JTC PARA RDSI∗L;
[email protected]@s, 8, CenComCatCostoTraficoDD = [email protected]@8DD;
H∗ALMACEN STC.∗L;
[email protected]@s, 9, CenComCatCostoTraficoDD = [email protected]@9DD;
H∗PREINSTALACION ACA−3∗L;
[email protected]@s, 10, CenComCatCostoAccesoPSTNDD = [email protected]@10DD;
H∗PREINSTALACION 2 B+D∗L;
[email protected]@s, 11, CenComCatCostoAccesoBASDD = [email protected]@11DD;
H∗MTU PARA CENTRALES∗L;
[email protected]@s, 12, CenComCatCostoAccesoPSTNDD = [email protected]@12DD;
H∗ARMARIO H24 BML CON 6 ALTURAS.−LSM's∗L; [email protected]@s, 13, CenComCatCostoAccesoPSTNDD =
[email protected] + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumPSTN ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ [email protected]@13DDD;
[email protected]@s, 13, CenComCatCostoAccesoBASDD = [email protected] + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIBA ∗ 2 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ [email protected]@13DDD;
[email protected]@s, 13, CenComCatCostoAccesoPRIDD = [email protected] + mNumRDSIBA + mNumRDSIPRIL 0,
0, mNumRDSIPRI ∗ 30 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ [email protected]@13DDD;
H∗ARMARIO H24 BML CON 6 ALTURAS.−STC's∗L;
[email protected]@s, 14, CenComCatCostoTraficoDD = [email protected]@14DD;
H∗ subsistema selector de grupo ∗L
s = 2;
a = [email protected]@sDD;
H∗ALM.TSM HDUP.L ENTRE 0 Y 32K∗L;
[email protected]@s, 1, CenComCatCostoTraficoDD
H∗ALMACEN SPM HDUP.L PARA 8K∗L;
[email protected]@s, 2, CenComCatCostoTraficoDD
H∗ALMACEN RP HDUP.L CON 256 KW.∗L;
[email protected]@s, 3, CenComCatCostoTraficoDD
H∗ALM.CLM ENTRE 0 Y 32K∗L;
[email protected]@s, 4, CenComCatCostoTraficoDD
H∗ALMACEN RCM∗L;
[email protected]@s, 5, CenComCatCostoTraficoDD
H∗ALMACEN ICM∗L;
[email protected]@s, 6, CenComCatCostoTraficoDD
H∗ALMACEN PCD HDL2L∗L;
[email protected]@s, 7, CenComCatCostoTraficoDD
= [email protected]@1DD;
= [email protected]@2DD;
= [email protected]@3DD;
= [email protected]@4DD;
= [email protected]@5DD;
= [email protected]@6DD;
= [email protected]@7DD;
96
H∗ARMARIO 12 BM CON 6 ALTURAS∗L;
[email protected]@s, 8, CenComCatCostoTraficoDD = [email protected]@8DD;
H∗ subsistema de enlace y señalizacion ∗L
s = 3;
a = [email protected]@sDD;
H∗FUNCIÓN ETC3ê4 H32 CANALESL∗L;
[email protected]@s, 1, CenComCatCostoTraficoDD = [email protected]@1DD;
H∗ALMACÉN GEMM1 PARA 16 ETCC4∗L;
[email protected]@s, 2, CenComCatCostoTraficoDD = [email protected]@2DD;
H∗FUNCIÓN TRH HFH,PARA,ST7L∗L;
[email protected]@s, 3, CenComCatCostoSenalizacionDD = [email protected]@3DD;
H∗ALMACÉN TRH HFH,PARA,ST7L∗L;
[email protected]@s, 4, CenComCatCostoSenalizacionDD = [email protected]@4DD;
H∗ subsistema de control ∗L
s = 4;
a = [email protected]@sDD;
H∗FDD HFLOPPY DISKL CON 1.2 MB∗L;
[email protected]@s, 1, CenComCatCostoTraficoDD
H∗HDD HHARD DISKL CON 1 GB∗L;
[email protected]@s, 2, CenComCatCostoTraficoDD
H∗TARJETA RPU HINTERFAZ V−24L∗L;
[email protected]@s, 3, CenComCatCostoTraficoDD
H∗TARJETA LIU HINTERFAZ V−24L∗L;
[email protected]@s, 4, CenComCatCostoTraficoDD
H∗TARJETA ALAMP∗L;
[email protected]@s, 5, CenComCatCostoTraficoDD
H∗TARJETA ALEX∗L;
[email protected]@s, 6, CenComCatCostoTraficoDD
H∗TARJETA SCAN∗L;
[email protected]@s, 7, CenComCatCostoTraficoDD
= [email protected]@1DD;
= [email protected]@2DD;
= [email protected]@3DD;
= [email protected]@4DD;
= [email protected]@5DD;
= [email protected]@6DD;
= [email protected]@7DD;
H∗ALMACÉN ODM∗L;
[email protected]@s, 8, CenComCatCostoTraficoDD = [email protected]@8DD;
H∗APZ 212 20∗L;
[email protected]@s, 9, CenComCatCostoTraficoDD = [email protected]@9DD;
H∗AMPLIACIÓN DE 256 MW HDUP.L∗L;
[email protected]@s, 10, CenComCatCostoTraficoDD = [email protected]@10DD;
H∗IOG 11−B5 BÁSICO∗L;
[email protected]@s, 11, CenComCatCostoTraficoDD = [email protected]@11DD;
H∗ otros costos ∗L
s = 7;
a = [email protected]@sDD;
H∗SOFTWARE POR ACCESO BASICO∗L;
[email protected]@s, 1, CenComCatCostoTraficoDD = [email protected]@1DD;
H∗SOFTWARE POR ACCESO PRIMARIO∗L;
[email protected]@s, 2, CenComCatCostoTraficoDD = [email protected]@2DD;
H∗DDF∗L;
[email protected]@s, 3, CenComCatCostoTraficoDD = [email protected]@3DD;
[email protected];
E;
ü Remota : Asignación Directa {AsignacionDirectaRemota}
Modelo_Integral_ACK.nb
97
Modelo_Integral_ACK.nb
H∗ Esta funcion se aplica para cada subcentral ∗L
[email protected]_D :=
[email protected], 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 = [email protected]@sDD;
H∗TARJETA PARA 8 ABONADOS ACA−3.∗L;
[email protected]@s, 1, CenComCatCostoAccesoPSTNDD = [email protected]@1DD;
H∗TARJETA PARA 4 ACCESOS 2B+D.∗L;
[email protected]@s, 2, CenComCatCostoAccesoBASDD = [email protected]@2DD;
H∗TARJETA KR PARA LSM DE ACA−3∗L;
[email protected]@s, 3, CenComCatCostoAccesoPSTNDD = [email protected]@3DD;
H∗LSM ACA−3 128. STR,KR,ETB,POU.∗L;
[email protected]@s, 4, CenComCatCostoAccesoPSTNDD = [email protected]@4DD;
H∗LSM ACA−3 128. KR,ETB,POU.∗L;
[email protected]@s, 5, CenComCatCostoAccesoPSTNDD = [email protected]@5DD;
H∗LSM ACA−3 128. ETB,POU.∗L;
[email protected]@s, 6, CenComCatCostoAccesoPSTNDD = [email protected]@6DD;
H∗LSM ACA−3 128. POU.∗L;
[email protected]@s, 7, CenComCatCostoAccesoPSTNDD = [email protected]@7DD;
H∗LSM ACA−3 PARA 128 AB.POU.∗L;
[email protected]@s, 8, CenComCatCostoAccesoPSTNDD = [email protected]@8DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 8 ACCESOS∗L;
[email protected]@s, 9, CenComCatCostoAccesoBASDD = [email protected]@9DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 16 ACCESOS∗L;
[email protected]@s, 10, CenComCatCostoAccesoBASDD = [email protected]@10DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 32 ACCESOS∗L;
[email protected]@s, 11, CenComCatCostoAccesoBASDD = [email protected]@11DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 48 ACCESOS∗L;
[email protected]@s, 12, CenComCatCostoAccesoBASDD = [email protected]@12DD;
H∗LSM PARA 64 ACC.2B+D.INCLUYE 60 ACCESOS∗L;
[email protected]@s, 13, CenComCatCostoAccesoBASDD = [email protected]@13DD;
H∗TARJETA ETB PARA R.D.S.I.∗L;
[email protected]@s, 14, CenComCatCostoTraficoDD = [email protected]@14DD;
H∗TARJETA STR PARA LSM DE ACA−3.∗L;
[email protected]@s, 15, CenComCatCostoTraficoDD = [email protected]@15DD;
H∗TARJETA STR PARA R.D.S.I.∗L;
[email protected]@s, 16, CenComCatCostoTraficoDD = [email protected]@16DD;
H∗PREINSTALACION ACA−3∗L;
[email protected]@s, 17, CenComCatCostoAccesoPSTNDD = [email protected]@17DD;
H∗PREINSTALACION 2B+D∗L;
[email protected]@s, 18, CenComCatCostoAccesoBASDD = [email protected]@18DD;
H∗otros costos∗L
s = 4;
a = [email protected]@sDD;
H∗SOFTWARE POR ACCESO BASICO.∗L;
[email protected]@s, 1, CenComCatCostoTraficoDD = [email protected]@1DD;
H∗DDF∗L;
[email protected]@s, 2, CenComCatCostoTraficoDD = [email protected]@2DD;
[email protected];D;
98
Modelo_Integral_ACK.nb
ü Cabecera : Asignación Indirecta {AsignacionIndirectaCabecera}
[email protected]_, 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 = [email protected];
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;
[email protected],iT,aPiT∗auxP;,
8i,81,3,4,5<<D;∗L
H∗ material y equipo diverso ∗L
s = 5;
a = [email protected]@sDD;
m = [email protected];
[email protected]
[email protected]@s, iDD = [email protected]@iDD ∗ auxP;
,
8i, 1, m<D;
H∗ equipamiento de conservacion ∗L
s = 6;
a = [email protected]@sDD;
m = [email protected];
[email protected]
[email protected]@s, iDD = [email protected]@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 = [email protected];
auxP = [email protected], 8m<D;
[email protected]@CenComCatCostoTraficoDD
[email protected]@CenComCatCostoTraficoDD =
;
[email protected]@CenComCatCostoTraficoDD + [email protected]@CenComCatCostoSenalizacionDD
[email protected]@CenComCatCostoSenalizacionDD =
[email protected]@CenComCatCostoSenalizacionDD
[email protected]@CenComCatCostoTraficoDD + [email protected]@CenComCatCostoSenalizacionDD
H∗ subsistema de enlace y señalizacion ∗L
s = 3;
a = [email protected]@sDD;
H∗ solo algunos elementos ∗L
[email protected]
[email protected]@s, iDD = [email protected]@iDD ∗ auxP;
,
8i, 5, 13<D;
[email protected];
F;
;
99
Modelo_Integral_ACK.nb
Remota : Asignación Indirecta {AsignacionIndirectaRemota}
[email protected]_, 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 = [email protected];
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
[email protected] @@ auxS L 0,
H∗ inversion = 0, los factores de distribucion no existen matematicamente ∗L
auxP = [email protected], 8i, [email protected]<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 = [email protected]@sDD;
[email protected]
[email protected]@s, iDD = [email protected]@iDD ∗ auxP;
,
8i, 19, 20<D;
H∗ material y equipo diverso ∗L
s = 2;
a = [email protected]@sDD;
m = [email protected];
[email protected]
[email protected]@s, iDD = [email protected]@iDD ∗ auxP;
,
8i, 1, m<D;
H∗ equipamiento de conservacion ∗L
s = 3;
a = [email protected]@sDD;
m = [email protected];
[email protected]
[email protected]@s, iDD = [email protected]@iDD ∗ auxP;
,
8i, 1, m<D;
[email protected];
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 = [email protected], 8i, 1, CenComN<D;
CenComDistIndirCab = [email protected], 8i, 1, CenComN<D;
CenComDistCab = [email protected], 8i, 1, CenComN<D;
H∗ para Unidades Remotas ∗L
CenComDistDirRem = [email protected]<, 8i, 1, CenComN<D;
CenComDistIndirRem = [email protected]<, 8i, 1, CenComN<D;
CenComDistRem = [email protected]<, 8i, 1, CenComN<D;
ü Calculo y compilación de Asignación Directa e Indirecta
[email protected]
NumPSTN = CenComInputPi, 6T;
NumRDSIBA = CenComInputPi, 7T;
NumRDSIPRI = CenComInputPi, 8T;
xAuxTot = CenComTotCabPiT ;
xAuxTotr = CenComTotRemPiT ;
[email protected] CenComInputPi, 5T "CABECERA",
CenComDistDirCabPiT = [email protected], NumRDSIBA, NumRDSIPRI, xAuxTotD;
xAuxDir = CenComDistDirCabPiT;
CenComDistIndirCabPiT = [email protected], xAuxDirD;,
m = [email protected]xTotrD;
auxR = [email protected]@xAuxTotrPjTD, 8j, 1, m<D;
CenComDistDirRemPiT = auxR;
auxR = [email protected]@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 = [email protected], 8i, 1, CenComN<D;
CenComTraficoRem = [email protected], 8i, 1, CenComN<D;
à Funciones Auxiliares
ü Funcion que extrae la inversion en una categoria de costo especifica {fCatCostCent}
Length @mCentral D
[email protected]_, 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 = [email protected]
[email protected], CenComCatCostoTraficoD
,
8x, 1, [email protected]<
D;
CenComTraficoRem = [email protected]
Plus @@ H
[email protected]
[email protected], yT, CenComCatCostoTraficoD
,
8y, 1, [email protected] CenComDistRemPxT D<
D
L
,
8x, 1, [email protected]<
D;
à Total {CenComTrafico}
CenComTrafico = CenComTraficoCab + CenComTraficoRem;
ü Guarda el Archivo en disco
ArchSalConmInvTraf = "Switchinv.txt";
[email protected], CenComTrafico, "CSV"D;
ü Impresion de la inversion en Trafico Total (Cabeceras y Unidades Remotas)
[email protected]
8aT, aTh, aR<,
aT = [email protected] êê TableForm;
aTh = 8None, 8"CentralId", "Departamento", "Provincia", "Central", "Inversion Conmutacion"<<;
aR = [email protected]@[email protected]@1, 1DD, [email protected]@1, 2DD, [email protected]@1, 3DD, [email protected]@1, 4DD, CenComTrafico<DD;
H∗ ∗L
[email protected]@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
[email protected]"CVoz"D;
trunkx
30
F;
fiberfill
H∗ Se calcula los circuitos HE1sL de voz por cada central ∗L
[email protected]"CosteAñadidoPorDistanciax"D;
CosteAñadidoPorDistanciax = zerox;
[email protected]@deptxPixT ≠ LIMA,
CosteAñadidoPorDistanciaxPixT = AñadidoCxPorKm ∗ [email protected], idinvertxPCentralRefTD;D;, 8ix, nx<D;
H∗ Se Calcula el Coste Añadido por distancia para cada central fuera de Lima ∗L
[email protected]@[email protected], 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
[email protected]"Switchinv.txt"D;
switchinvx = zerox;
switchinvLocx = zerox;
switchinvLDNx = zerox;
switchinvLDIx = zerox;
switchinvx = [email protected]"Switchinv.txt", NumberD;
switchinvx = switchinvx + CosteAñadidoPorDistanciax;
DoBIfBix ≠ idinvertxP248T,
SwITot = [email protected] ≥ 0, switchendLocxPixT, 0D +
[email protected] ≥ 0, switchendLDNxPixT, 0D + [email protected] ≥ 0, switchendLDIxPixT, 0D;
switchinvxPixT
;
IfBSwITot ≠ 0, switchinvLocxPixT = [email protected] ≥ 0, switchendLocxPixT, 0D ∗
SwITot
switchinvxPixT
;
switchinvLDNxPixT = [email protected] ≥ 0, switchendLDNxPixT, 0D ∗
SwITot
switchinvxPixT
;F;,
switchinvLDIxPixT = [email protected] ≥ 0, switchendLDIxPixT, 0D ∗
SwITot
switchinvLocxPixT = switchinvxPixT ∗ switchendLocxPixT;
switchinvLDNxPixT = switchinvxPixT ∗ switchendLDNxPixT;
switchinvLDIxPixT = switchinvxPixT ∗ switchendLDIxPixT;F;, 8ix, nx<F;
[email protected]@[email protected], 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;
[email protected] = switchinvdPdeptxPixTT + switchinvxPixT;
switchinvLocdPdeptxPixTT = switchinvLocdPdeptxPixTT + switchinvLocxPixT;
switchinvLDNdPdeptxPixTT = switchinvLDNdPdeptxPixTT + switchinvLDNxPixT;
switchinvLDIdPdeptxPixTT = switchinvLDIdPdeptxPixTT + switchinvLDIxPixT;, 8ix, nx<D;
[email protected]@
[email protected], 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;
[email protected]@
[email protected], 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;
[email protected] = hostsatinvdPdeptxPixTT + hostsatinvxPixT;
hostsatinvLocdPdeptxPixTT = hostsatinvLocdPdeptxPixTT + hostsatinvLocxPixT;
hostsatinvLDNdPdeptxPixTT = hostsatinvLDNdPdeptxPixTT + hostsatinvLDNxPixT;
hostsatinvLDIdPdeptxPixTT = hostsatinvLDIdPdeptxPixTT + hostsatinvLDIxPixT;, 8ix, nx<D;
[email protected]
[email protected]@8id, deptTXTdPidT, hostsatinvdPidT, hostsatinvLocdPidT, hostsatinvLDNdPidT, hostsatinvLDIdPidT<,
D
103
Modelo_Integral_ACK.nb
[email protected]@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;
[email protected]@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;
[email protected]@[email protected], 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;
[email protected] = tandeminvdPdeptxPixTT + tandeminvxPixT;
tandeminvLocdPdeptxPixTT = tandeminvLocdPdeptxPixTT + tandeminvLocxPixT;
tandeminvLDNdPdeptxPixTT = tandeminvLDNdPdeptxPixTT + tandeminvLDNxPixT;
tandeminvLDIdPdeptxPixTT = tandeminvLDIdPdeptxPixTT + tandeminvLDIxPixT;, 8ix, nx<D;
[email protected]@
[email protected], 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
[email protected]@
[email protected], 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;
[email protected] = hostnonsatinvdPdeptxPixTT + hostnonsatinvxPixT;
hostnonsatinvLocdPdeptxPixTT = hostnonsatinvLocdPdeptxPixTT +hostnonsatinvLocxPixT;
hostnonsatinvLDNdPdeptxPixTT = hostnonsatinvLDNdPdeptxPixTT + hostnonsatinvLDNxPixT;
hostnonsatinvLDIdPdeptxPixTT = hostnonsatinvLDIdPdeptxPixTT + hostnonsatinvLDIxPixT;, 8ix, nx<D;
[email protected]@[email protected], 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;
[email protected]@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
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"tandeminvitx"D;
tandeminvitx = Plus @@ tandeminvitxd;
[email protected];
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
[email protected]@
[email protected], 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;
[email protected]@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
[email protected]"signalinvd"D;
signalinvd = signalfrac ∗ switchinvd;
[email protected]@[email protected], 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
[email protected]"signalinv"D;
signalinv = Plus @@ signalinvd;
[email protected];
H∗ Participación de Señalización a Nivel Nacional∗L
PrintBStyleB
"TERMINACIONES DE FIBRA", 16, White, Bold, Underlined, Background → RGBColorB0,
1
, 0FFF;
2
[email protected]"costeTerminacionesFibrax"D; [email protected]@transtechxPixT Urbana Í transtechxPixT Enterrado,
costeTerminacionesFibraxPixT = costeTerminacionesFibraxPixT + 2 TxFibraCosteTerminacion, 0D, 8ix, nx<D;
[email protected]@[email protected], 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;
[email protected]"disthostx modificado"D;
DoBIfBesAnillopxPixT 1,
IfBe1AnillopPprovxPixTT ≠ 0, disthostxPixT = TamAnillopPprovxPixTT ∗
e1remotehostTOTALxPixT
e1AnilloTOTALpPprovxPixTT
FF;, 8ix, nx<F;
[email protected]@[email protected], 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;
[email protected]"disttandemx modificado"D; DoBIfBesAnillodxPAnilloCabecerasPixTT ≠ NA,
IfBe1AnillodPdeptxPAnilloCabecerasPixTTT ≠ 0, disttandemxPAnilloCabecerasPixTT =
TamAnillodPdeptxPAnilloCabecerasPixTTT ∗
e1hosttandemTOTALxPAnilloCabecerasPixTT
e1AnilloTOTALdPdeptxPAnilloCabecerasPixTTT
P[email protected]@[email protected], 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 = [email protected]@sat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxLD, 8ix, nx<D;
[email protected]@[email protected], 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;
[email protected] = 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;
[email protected]
[email protected]@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;
[email protected]@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;
[email protected]"numerosat"D;
numerosat = 0;
[email protected]@sat1xPixT 1, numerosat = numerosat + 1D, 8ix, nx<D;
[email protected];
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
[email protected]"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;
[email protected];
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
[email protected]"satlimainvLocx"D;
satlimainvLocx = satlimainvx ∗ satLocx;
[email protected];
H∗ Parte de Tráfico Local de Voz ∗L
[email protected]"satlimainvLDNx"D;
satlimainvLDNx = satlimainvx ∗ satLDNx;
[email protected];
H∗ Parte de Tráfico LDN de Voz ∗L
[email protected]"satlimainvLDIx"D;
satlimainvLDIx = satlimainvx ∗ satLDIx;
[email protected];
H∗ Parte de Tráfico LDI de Voz ∗L
[email protected]"satlimainvalqxA1"D;
satlimainvalqxA1 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxA1PixT = 0,
satlimainvalqxA1PixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxA1PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxB1"D;
satlimainvalqxB1 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxB1PixT = 0,
satlimainvalqxB1PixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxB1PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxC1"D;
satlimainvalqxC1 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxC1PixT = 0,
satlimainvalqxC1PixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxC1PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxLL"D;
109
Modelo_Integral_ACK.nb
[email protected]"satlimainvalqxLL"D;
satlimainvalqxLL = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxLLPixT = 0,
satlimainvalqxLLPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxLLPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxLP"D;
satlimainvalqxLP = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxLPPixT = 0,
satlimainvalqxLPPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxLPPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxAS"D;
satlimainvalqxAS = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxASPixT = 0,
satlimainvalqxASPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxASPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxBS"D;
satlimainvalqxBS = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxBSPixT = 0,
satlimainvalqxBSPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemalqxBSPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxCS"D;
satlimainvalqxCS = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxCSPixT = 0,
satlimainvalqxCSPixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxCSPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected]
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
[email protected]"satlimainvalqxABC2"D;
satlimainvalqxABC2 = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxABC2PixT = 0,
satlimainvalqxABC2PixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxABC2PixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvalqxABCnop"D;
satlimainvalqxABCnop = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxABCnopPixT = 0,
satlimainvalqxABCnopPixT =
satantena
numerosat
+ sateqtx ∗
e1hosttandemalqxABCnopPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvadslx"D;
satlimainvadslx = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvadslxPixT = 0,
satlimainvadslxPixT =
satantena
+ sateqtx ∗
numerosat
e1hosttandemadslxPixT
e1hosttandemTOTALxPixT
∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvitxx"D;
satlimainvitxx = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, [email protected]@ixDD = 0,
[email protected]@ixDD =
satantena
+ sateqtx ∗
numerosat
e1hosttandemitxxPixT
e1hosttandemTOTALxPixT
∗ [email protected]@ixDDF, 8ix, nx<F
[email protected]
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
[email protected]"satlimainvTOTALx"D;
satlimainvTOTALx = zerox;
DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0,
satlimainvTOTALxPixT = 0, satlimainvTOTALxPixT =
satantena
numerosat
+ sateqtx ∗ sat1xPixTF, 8ix, nx<F;
[email protected];
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
[email protected]"satlimainvd"D;
satlimainvd = zerod;
[email protected] = satlimainvdPdeptxPixTT + satlimainvxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvLocd"D;
satlimainvLocd = zerod;
[email protected] = satlimainvLocdPdeptxPixTT + satlimainvLocxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvLDNd"D;
satlimainvLDNd = zerod;
[email protected] = satlimainvLDNdPdeptxPixTT + satlimainvLDNxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvLDId"D;
satlimainvLDId = zerod;
[email protected] = satlimainvLDIdPdeptxPixTT + satlimainvLDIxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdA1"D;
satlimainvalqdA1 = zerod;
[email protected] = satlimainvalqdA1PdeptxPixTT + satlimainvalqxA1PixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdB1"D;
satlimainvalqdB1 = zerod;
[email protected] = satlimainvalqdB1PdeptxPixTT + satlimainvalqxB1PixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdC1"D;
satlimainvalqdC1 = zerod;
[email protected] = satlimainvalqdC1PdeptxPixTT + satlimainvalqxC1PixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdLL"D;
satlimainvalqdLL = zerod;
[email protected] = satlimainvalqdLLPdeptxPixTT + satlimainvalqxLLPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdLP"D
satlimainvalqdLP = zerod;
[email protected] = satlimainvalqdLPPdeptxPixTT + [email protected]@ixDD, 8ix, nx<D;
[email protected]
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
[email protected]"satlimainvalqdAS"D;
satlimainvalqdAS = zerod;
[email protected] = satlimainvalqdASPdeptxPixTT + satlimainvalqxASPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdBS"D;
satlimainvalqdBS = zerod;
[email protected] = satlimainvalqdBSPdeptxPixTT + satlimainvalqxBSPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdCS"D;
satlimainvalqdCS = zerod;
[email protected] = satlimainvalqdCSPdeptxPixTT + satlimainvalqxCSPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvalqdABC2"D
satlimainvalqdABC2 = zerod;
[email protected] = satlimainvalqdABC2PdeptxPixTT + [email protected]@ixDD, 8ix, nx<D;
[email protected]
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
[email protected]"satlimainvalqdABCnop"D;
satlimainvalqdABCnop = zerod;
[email protected] = satlimainvalqdABCnopPdeptxPixTT + satlimainvalqxABCnopPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvadsld"D
satlimainvadsld = zerod;
[email protected] = satlimainvadsldPdeptxPixTT + [email protected]@ixDD, 8ix, nx<D;
[email protected]
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
[email protected]"satlimainvitxd"D;
satlimainvitxd = zerod;
[email protected] = satlimainvitxdPdeptxPixTT + satlimainvitxxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainvTOTALd"D;
satlimainvTOTALd = zerod;
[email protected] = satlimainvTOTALdPdeptxPixTT + satlimainvTOTALxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"satlimainv"D;
satlimainv = Plus @@ satlimainvd;
[email protected];
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
[email protected]"satlimainvLoc"D;
satlimainvLoc = Plus @@ satlimainvLocd;
[email protected];
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
[email protected]"satlimainvLDN"D;
satlimainvLDN = Plus @@ satlimainvLDNd;
[email protected];
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
[email protected]"satlimainvLDI"D;
satlimainvLDI = Plus @@ satlimainvLDId;
[email protected];
113
Modelo_Integral_ACK.nb
[email protected];
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
[email protected]"satlimainvalqA1"D;
satlimainvalqA1 = Plus @@ satlimainvalqdA1;
[email protected];
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
[email protected]"satlimainvalqB1"D;
satlimainvalqB1 = Plus @@ satlimainvalqdB1;
[email protected];
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
[email protected]"satlimainvalqC1"D;
satlimainvalqC1 = Plus @@ satlimainvalqdC1;
[email protected];
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
[email protected]"satlimainvalqLL"D;
satlimainvalqLL = Plus @@ satlimainvalqdLL;
[email protected];
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
[email protected]"satlimainvalqLP"D;
satlimainvalqLP = Plus @@ satlimainvalqdLP;
[email protected];
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
[email protected]"satlimainvalqAS"D;
satlimainvalqAS = Plus @@ satlimainvalqdAS;
[email protected];
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
[email protected]"satlimainvalqBS"D;
satlimainvalqBS = Plus @@ satlimainvalqdBS;
[email protected];
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
[email protected]"satlimainvalqCS"D;
satlimainvalqCS = Plus @@ satlimainvalqdCS;
[email protected];
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
[email protected]"satlimainvalqABC2"D;
satlimainvalqABC2 = Plus @@ satlimainvalqdABC2;
[email protected];
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
[email protected]"satlimainvalqABCnop"D;
satlimainvalqABCnop = Plus @@ satlimainvalqdABCnop;
[email protected];
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
[email protected]"satlimainvadsl"D;
satlimainvadsl = Plus @@ satlimainvadsld;
[email protected];
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
[email protected]"satlimainvitx"D;
satlimainvitx = Plus @@ satlimainvitxd;
[email protected];
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
[email protected]"satlimainvTOTAL"D;
satlimainvTOTAL = Plus @@ satlimainvTOTALd;
[email protected];
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
[email protected]"e1satalqxA1"D;
e1satalqxA1 = zerox;
[email protected] = e1hosttandemalqxA1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxB1"D;
e1satalqxB1 = zerox;
[email protected] = e1hosttandemalqxB1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxC1"D;
e1satalqxC1 = zerox;
[email protected] = e1hosttandemalqxC1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxLL"D;
e1satalqxLL = zerox;
[email protected] = e1hosttandemalqxLLPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxLP"D;
e1satalqxLP = zerox;
[email protected] = e1hosttandemalqxLPPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxAS"D;
e1satalqxAS = zerox;
[email protected] = e1hosttandemalqxASPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxBS"D;
e1satalqxBS = zerox;
[email protected] = e1hosttandemalqxBSPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxCS"D;
e1satalqxCS = zerox;
[email protected] = e1hosttandemalqxCSPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxABC2"D;
e1satalqxABC2 = zerox;
[email protected] = e1hosttandemalqxABC2PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satalqxABCnop"D;
e1satalqxABCnop = zerox;
[email protected] = e1hosttandemalqxABCnopPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satadslx"D;
e1satadslx = zerox;
[email protected] = e1hosttandemadslxPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satitxx"D;
e1satitxx = zerox;
[email protected] = e1hosttandemitxxPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D;
[email protected];
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
[email protected]"e1satTOTALx"D;
e1satTOTALx = e1satx + e1satalqxA1 + e1satalqxB1 + e1satalqxC1 + e1satalqxLL + e1satalqxLP +
e1satalqxAS + e1satalqxBS + e1satalqxCS + e1satalqxABC2 + e1satalqxABCnop + e1satitxx + e1satadslx;
[email protected];
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
[email protected]"Extrasatcostx"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
Extrasatcostx =
2
[email protected];
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
[email protected]"ExtrasatcostLocx"D;
ExtrasatcostLocx = Extrasatcostx ∗ satLocx;
[email protected];
H∗ Divide el Servicio de Voz en Local ∗L
[email protected]"ExtrasatcostLDNx"D;
ExtrasatcostLDNx = Extrasatcostx ∗ satLDNx;
[email protected]tLDNxD;
H∗ Divide el Servicio de Voz en LDN ∗L
[email protected]"ExtrasatcostLDIx"D;
ExtrasatcostLDIx = Extrasatcostx ∗ satLDIx;
[email protected];
H∗ Divide el Servicio de Voz en LDI ∗L
[email protected]"ExtrasatcostalqxA1"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxA1 =
;
2
[email protected];
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
[email protected]"ExtrasatcostalqxB1"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxB1 =
2
[email protected];
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
[email protected]"ExtrasatcostalqxC1"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxC1 =
;
2
116
Modelo_Integral_ACK.nb
[email protected];
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
[email protected]"ExtrasatcostalqxLL"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxLL =
2
[email protected];
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
[email protected]"ExtrasatcostalqxLP"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxLP =
2
[email protected];
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
[email protected]"ExtrasatcostalqxAS"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxAS =
;
2
[email protected];
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
[email protected]"ExtrasatcostalqxBS"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxBS =
;
2
[email protected];
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
[email protected]"ExtrasatcostalqxCS"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
ExtrasatcostalqxCS =
;
2
[email protected];
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
[email protected]"ExtrasatcostalqxABC2"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxABC2 =
2
[email protected];
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
[email protected]"ExtrasatcostalqxABCnop"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostalqxABCnop =
2
[email protected];
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
[email protected]"Extrasatcostadslx"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
;
Extrasatcostadslx =
2
[email protected];
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
[email protected]"Extrasatcostitxx"D;
2 [email protected] ∗ numMHzporMb ∗ costesatporMHz
Extrasatcostitxx =
;
2
[email protected];
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
[email protected]"ExtrasatcostTOTALx"D;
2 [email protected]1satTOTALxD ∗ numMHzporMb ∗ costesatporMHz
;
ExtrasatcostTOTALx =
2
[email protected];
H∗ Sobre la base del número de E1s satelitales se estima
el gasto directo en el alquiler del ancho de banda satelital. ∗L
[email protected]"Extrasatcostd"D;
Extrasatcostd = zerod;
[email protected] = ExtrasatcostdPdeptxPixTT + ExtrasatcostxPixT, 8ix, nx<D;
[email protected];
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
[email protected]"factor4"D;
factor4 = zerox;
DoBfactor4PixT = IfBlinesdPdeptxPixTT linesxPixT, 0,
satlinesdPdeptxPixTT − satlinesxPixT
linesdPdeptxPixTT − linesxPixT
F;, 8ix, nx<F;
[email protected];
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
[email protected]"satmind4"D;
satmind4 = zerod;
[email protected]@deptxPixT ≠ MADREDEDIOS, satmind4PdeptxPixTT =
satmind4PdeptxPixTT + HswitchendxPixTH∗−intraxPixT∗L − satldintradxPixT ∗ factor4PixTL ∗ sat1xPixTD;, 8ix, nx<D;
[email protected];
[email protected]"ExtrasatcostLocd"D;
ExtrasatcostLocd = zerod;
[email protected] = ExtrasatcostLocdPdeptxPixTT + ExtrasatcostLocxPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostLocx, Servicio Local de Voz ∗L
[email protected]"ExtrasatcostLDNd"D;
ExtrasatcostLDNd = zerod;
[email protected] = ExtrasatcostLDNdPdeptxPixTT + ExtrasatcostLDNxPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostLDNx, Servicio LDN de Voz ∗L
[email protected]"ExtrasatcostLDId"D;
ExtrasatcostLDId = zerod;
[email protected] = ExtrasatcostLDIdPdeptxPixTT + ExtrasatcostLDIxPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostLDIx, Servicio LDI de Voz ∗L
[email protected]"ExtrasatcostalqdA1"D;
ExtrasatcostalqdA1 = zerod;
[email protected] = ExtrasatcostalqdA1PdeptxPixTT + ExtrasatcostalqxA1PixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxA1, Servicio de Circuitos Rango A ∗L
[email protected]"ExtrasatcostalqdB1"D;
ExtrasatcostalqdB1 = zerod;
[email protected] = ExtrasatcostalqdB1PdeptxPixTT + ExtrasatcostalqxB1PixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxB1, Servicio de Circuitos Rango B ∗L
[email protected]"ExtrasatcostalqdC1"D;
ExtrasatcostalqdC1 = zerod;
[email protected] = ExtrasatcostalqdC1PdeptxPixTT + ExtrasatcostalqxC1PixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxC1, Servicio de Circuitos Rango C ∗L
[email protected]"ExtrasatcostalqdLL"D;
ExtrasatcostalqdLL = zerod;
[email protected] = ExtrasatcostalqdLLPdeptxPixTT + ExtrasatcostalqxLLPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxLL, Servicio de Circuitos Local Lima ∗L
[email protected]"ExtrasatcostalqdLP"D;
ExtrasatcostalqdLP = zerod;
[email protected] = ExtrasatcostalqdLPPdeptxPixTT + ExtrasatcostalqxLPPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxLP, Servicio de Circuitos Local Provincia ∗L
[email protected]"ExtrasatcostalqdAS"D;
ExtrasatcostalqdAS = zerod;
[email protected] = ExtrasatcostalqdASPdeptxPixTT + ExtrasatcostalqxASPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxAS, Servicio de Circuitos Rango A Satelital∗L
[email protected]"ExtrasatcostalqdBS"D
ExtrasatcostalqdBS = zerod;
[email protected] = ExtrasatcostalqdBSPdeptxPixTT + ExtrasatcostalqxBSPixT, 8ix, nx<D
[email protected]
H∗ Acumula por departamento la variable ExtrasatcostalqxBS, Servicio de Circuitos Rango B Satelital∗L
[email protected]"ExtrasatcostalqdCS"D;
ExtrasatcostalqdCS = zerod;
[email protected] = ExtrasatcostalqdCSPdeptxPixTT + ExtrasatcostalqxCSPixT, 8ix, nx<D;
[email protected];
118
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxCS, Servicio de Circuitos Rango C Satelital∗L
Modelo_Integral_ACK.nb
[email protected]"ExtrasatcostalqdABC2"D;
ExtrasatcostalqdABC2 = zerod;
[email protected] = ExtrasatcostalqdABC2PdeptxPixTT + ExtrasatcostalqxABC2PixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxABC2, Servicio de Otros Circuitos Rango A, B y C∗L
[email protected]"ExtrasatcostalqdABCnop"D;
ExtrasatcostalqdABCnop = zerod;
[email protected] = ExtrasatcostalqdABCnopPdeptxPixTT + ExtrasatcostalqxABCnopPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable ExtrasatcostalqxABCnop, Servicio de Circuitos de No Operadores∗L
[email protected]"Extrasatcostadsld"D;
Extrasatcostadsld = zerod;
[email protected] = ExtrasatcostadsldPdeptxPixTT + ExtrasatcostadslxPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable Extrasatcostadslx, Servicio de ADSL ∗L
[email protected]"Extrasatcostitxd"D;
Extrasatcostitxd = zerod;
[email protected] = ExtrasatcostitxdPdeptxPixTT + ExtrasatcostitxxPixT, 8ix, nx<D;
[email protected];
H∗ Acumula por departamento la variable Extrasatcostitxx, Servicio de Circuitos de Interconexión∗L
[email protected]"ExtrasatcostTOTALd"D;
ExtrasatcostTOTALd = zerod;
[email protected] = ExtrasatcostTOTALdPdeptxPixTT + ExtrasatcostTOTALxPixT, 8ix, nx<D;
[email protected];
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;
[email protected]"e1compHTx"D;
e1compHTx = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compHTxPixT = e1AnillodPdeptxPixTT, e1compHTxPixT = e1hosttandemxPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"loadcompHTLocx"D;
loadcompHTLocx = zerox;
[email protected]@esAnillodxPixT ≠ NA, loadcompHTLocxPixT = loadAnilloLocdPdeptxPixTT,
loadcompHTLocxPixT = loadhosttandemLocxPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"loadcompHTLDNx"D;
loadcompHTLDNx = zerox;
[email protected]@esAnillodxPixT ≠ NA, loadcompHTLDNxPixT = loadAnilloLDNdPdeptxPixTT,
loadcompHTLDNxPixT = loadhosttandemLDNxPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"loadcompHTLDIx"D;
loadcompHTLDIx = zerox;
[email protected]@esAnillodxPixT ≠ NA, loadcompHTLDIxPixT = loadAnilloLDIdPdeptxPixTT,
loadcompHTLDIxPixT = loadhosttandemLDIxPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"loadcompHTx"D;
loadcompHTx = zerox;
[email protected]@esAnillodxPixT ≠ NA, loadcompHTxPixT = loadAnillodPdeptxPixTT, loadcompHTxPixT = loadhosttandemxPixTD;,
8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxA1"D;
e1compalqHTxA1 = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxA1PixT = e1AnilloalqdA1PdeptxPixTT,
e1compalqHTxA1PixT = e1hosttandemalqxA1PixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxB1"D;
e1compalqHTxB1 = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxB1PixT = e1AnilloalqdB1PdeptxPixTT,
e1compalqHTxB1PixT = e1hosttandemalqxB1PixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxC1"D;
e1compalqHTxC1 = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxC1PixT = e1AnilloalqdC1PdeptxPixTT,
e1compalqHTxC1PixT = e1hosttandemalqxC1PixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxLL"D;
e1compalqHTxLL = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxLLPixT = e1AnilloalqdLLPdeptxPixTT,
e1compalqHTxLLPixT = e1hosttandemalqxLLPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxLP"D;
e1compalqHTxLP = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxLPPixT = e1AnilloalqdLPPdeptxPixTT,
e1compalqHTxLPPixT = e1hosttandemalqxLPPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxAS"D;
e1compalqHTxAS = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxASPixT = e1AnilloalqdASPdeptxPixTT,
e1compalqHTxASPixT = e1hosttandemalqxASPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxBS"D;
e1compalqHTxBS = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxBSPixT = e1AnilloalqdBSPdeptxPixTT,
e1compalqHTxBSPixT = e1hosttandemalqxBSPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxCS"D;
e1compalqHTxCS = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxCSPixT = e1AnilloalqdCSPdeptxPixTT,
e1compalqHTxCSPixT = e1hosttandemalqxCSPixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxABC2"D;
e1compalqHTxABC2 = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxABC2PixT = e1AnilloalqdABC2PdeptxPixTT,
e1compalqHTxABC2PixT = e1hosttandemalqxABC2PixTD;, 8ix, nx<D;
[email protected];
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
[email protected]"e1compalqHTxABCnop"D;
e1compalqHTxABCnop = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compalqHTxABCnopPixT = e1AnilloalqdABCnopPdeptxPixTT,
e1compalqHTxABCnopPixT = e1hosttandemalqxABCnopPixTD;, 8ix, nx<D;
[email protected]
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
[email protected]"e1compitxHTx"D;
e1compitxHTx = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compitxHTxPixT = [email protected],
e1compitxHTxPixT = [email protected];, 8ix, nx<D;
[email protected];
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
[email protected]"e1compadslHTx"D;
e1compadslHTx = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compadslHTxPixT = [email protected],
e1compadslHTxPixT = [email protected];, 8ix, nx<D;
[email protected];
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
[email protected]"e1compHTTOTALx"D;
e1compHTTOTALx = zerox;
[email protected]@esAnillodxPixT ≠ NA, e1compHTTOTALxPixT = e1AnilloTOTALdPdeptxPixTT,
e1compHTTOTALxPixT = e1hosttandemTOTALxPixTD;, 8ix, nx<D;
[email protected];
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 = [email protected], 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;
[email protected]@Pcte1compHTx, TableAlignments → 8Center, Center<, TableDirections → 8Column, Row<,
TableHeadings → [email protected], 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;
[email protected]"Cargas de Voz"D;
loadcompRHx = zerox;
loadcompRHLocx = zerox;
loadcompRHLDNx = zerox;
loadcompRHLDIx = zerox;
[email protected]@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
[email protected]@8loadcompRHx, loadcompRHLocx, loadcompRHLDNx, loadcompRHLDIx<,
TableAlignments → 8Center, Center<, TableDirections → 8Row, Column<, TableSpacing → 80, 0<,
TableHeadings → 88"Total", "Local", "LDN", "LDI"<, [email protected], 8ix, nx<D<DD;
[email protected]"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;
[email protected]@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
[email protected]@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"<, [email protected], 8ix, nx<D<DD;
PrintBStyleB
"COMPOSICIÓN POR SERVICIO − REMOTE HOST",
16, Bold, White, Underlined, Background → BlueFF;
Pcte1compRHx = [email protected], 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;
[email protected]
[email protected], TableAlignments → 8Center, Center<, TableDirections → 8Column, Row<, TableSpacing → 80, 0<,
TableHeadings → [email protected], 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;
[email protected]@e1compHTTOTALxPixT ≠ 0,
[email protected]@e1compHTTOTALxPixT > TxRadioLimitesPiT, VelocidadRHTxPixT = iD;, 8i, [email protected]<D;
[email protected] < [email protected], VelocidadRHTxPixT = VelocidadRHTxPixT + 1D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
[email protected] ≠ 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
[email protected]@[email protected], 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;
[email protected]@e1compRHTOTALxPixT ≠ 0,
[email protected]@e1compRHTOTALxPixT > TxRadioLimitesPiT, VelocidadRRHxPixT = iD;, 8i, [email protected]<D;
[email protected] < [email protected], VelocidadRRHxPixT = VelocidadRRHxPixT + 1D;D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
[email protected] ≠ 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
[email protected]@
[email protected], 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
[email protected]"TxFibraCosteKmUrban: Fibra Canalizada"D;
TxFibraCosteKmUrban =
TxFibraCosteEmpalme
TxFibraCosteCamara
compfiburb ∗
+ TxFibraCosteCanalizacionKm +
;
TxFibraDistEntreEmpalmesKm
TxFibraDistEntreCamarasKm
[email protected];
[email protected]"TxFibraCosteKmEnterrado: Fibra Enterrada"D;
TxFibraCosteEmpalme
+ TxFibraCosteTrituboKm;
TxFibraCosteKmEnterrado =
TxFibraDistEntreEmpalmesKm
[email protected];
[email protected]"TxFibraCosteKmAereo: Fibra Aerea"D;
TxFibraCosteKmAereo = 4451.85900092466; H∗Se toma de los preciarios de ACCESS∗L
[email protected];
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;
[email protected]@e1compHTTOTALxPixT ≠ 0,
[email protected]@e1compHTTOTALxPixT > TxFibraLimitesPiT, VelocidadFHTxPixT = iD;, 8i, [email protected]<D;
[email protected] < [email protected], VelocidadFHTxPixT = VelocidadFHTxPixT + 1D;D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
[email protected] Urbana, CostePorKmFHTxPixT = TxFibraCosteKmUrban;, [email protected] Enterrado,
CostePorKmFHTxPixT = TxFibraCosteKmEnterrado;, CostePorKmFHTxPixT = TxFibraCosteKmAereo;D;D;
H∗ Especifica el costo asociado a la obra civil dependiendo del tipo de Fibra ∗L
[email protected] ≠ 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 = [email protected] ≠ NA, 1, 2D ∗ CosteFijoFHTxPixT + [email protected] ≠ 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
[email protected]@
[email protected], 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 = [email protected] Urbana, costedelafibraurbKm, [email protected] Enterrado,
TxFibraCosteCableKm, [email protected] 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
[email protected]@
[email protected], 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
[email protected]@
[email protected], 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;
[email protected]@[email protected], 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;
[email protected]@e1compRHTOTALxPixT ≠ 0,
[email protected]@e1compRHTOTALxPixT > TxFibraLimitesPiT, VelocidadFRHxPixT = iD;, 8i, [email protected]<D;
[email protected] < [email protected], VelocidadFRHxPixT = VelocidadFRHxPixT + 1D;D;
H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L
[email protected] Urbana, CostePorKmFRHxPixT = TxFibraCosteKmUrban;, [email protected] Enterrado,
CostePorKmFRHxPixT = TxFibraCosteKmEnterrado;, CostePorKmFRHxPixT = TxFibraCosteKmAereo;D;D;
H∗ Especifica el costo asociado a la obra civil dependiendo del tipo de Fibra ∗L
[email protected] ≠ 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 = [email protected] 1, 1, 2D ∗ CosteFijoFRHxPixT + [email protected] 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
[email protected]@
[email protected], 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 =
[email protected] Urbana, costedelafibraurbKm, [email protected] 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
[email protected]@
[email protected], 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;
[email protected]@[email protected], 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 [email protected], 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
[email protected]@
[email protected], 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 = [email protected]@satxPixT, 0, radioinvhosttandemxPixTD, 8ix, nx<D;
invhosttandemLocx1 = zerox;
invhosttandemLDNx1 = zerox;
invhosttandemLDIx1 = zerox;
invhosttandemalqx1A1 = [email protected]@satxPixT, 0, radioinvhosttandemalqxA1PixTD, 8ix, nx<D;
invhosttandemalqx1B1 = [email protected]@satxPixT, 0, radioinvhosttandemalqxB1PixTD, 8ix, nx<D;
invhosttandemalqx1C1 = [email protected]@satxPixT, 0, radioinvhosttandemalqxC1PixTD, 8ix, nx<D;
invhosttandemalqx1LL = [email protected]@satxPixT, 0, radioinvhosttandemalqxLLPixTD, 8ix, nx<D;
invhosttandemalqx1LP = [email protected]@satxPixT, 0, radioinvhosttandemalqxLPPixTD, 8ix, nx<D;
invhosttandemalqx1AS = [email protected]@satxPixT, 0, radioinvhosttandemalqxASPixTD, 8ix, nx<D;
invhosttandemalqx1BS = [email protected]@satxPixT, 0, radioinvhosttandemalqxBSPixTD, 8ix, nx<D;
invhosttandemalqx1CS = [email protected]@satxPixT, 0, radioinvhosttandemalqxCSPixTD, 8ix, nx<D;
invhosttandemalqx1ABC2 = [email protected]@satxPixT, 0, radioinvhosttandemalqxABC2PixTD, 8ix, nx<D;
invhosttandemalqx1ABCnop = [email protected]@satxPixT, 0, radioinvhosttandemalqxABCnopPixTD, 8ix, nx<D;
invhosttandemitxx1 = [email protected]@satxPixT, 0, radioinvhosttandemitxxPixTD, 8ix, nx<D;
invhosttandemadslx1 = [email protected]@satxPixT, 0, radioinvhosttandemadslxPixTD, 8ix, nx<D;
invhosttandemTOTALx1 = [email protected]@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
[email protected]@[email protected], 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;
[email protected]
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
[email protected]@[email protected], 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
[email protected]@[email protected], 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;
[email protected]
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
[email protected]@[email protected], 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
[email protected]@[email protected], 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;
[email protected]
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
[email protected]@[email protected], 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
[email protected]@[email protected], 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;
[email protected]
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
[email protected]@[email protected], 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
[email protected]@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 = [email protected], 8jx, nx<, 8ix, 13<D;
[email protected], 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;
[email protected]@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"]
[email protected]@invremotehostd;
Print[invremotehost]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Voz *)
Print["invremotehostLoc"]
[email protected]@invremotehostLocd;
Print[invremotehostLoc]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio Local de Voz *)
Print["invremotehostLDN"]
[email protected]@invremotehostLDNd;
Print[invremotehostLDN]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio LDN de Voz *)
Print["invremotehostLDI"]
[email protected]@invremotehostLDId;
Print[invremotehostLDI]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio LDI de Voz *)
Print["invremotehostaqlA1"]
[email protected]@invremotehostalqdA1;
Print[invremotehostalqA1]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango A *)
Print["invremotehostaqlB1"]
[email protected]@invremotehostalqdB1;
Print[invremotehostalqB1]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango B *)
Print["invremotehostaqlC1"]
[email protected]@invremotehostalqdC1;
Print[invremotehostalqC1]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango C *)
Print["invremotehostaqlLL"]
[email protected]@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"]
[email protected]@invremotehostalqdLP;
Print[invremotehostalqLP]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Local Provincias *)
Print["invremotehostaqlAS"]
[email protected]@invremotehostalqdAS;
Print[invremotehostalqAS]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango A Satelital*)
Print["invremotehostaqlBS"]
[email protected]@invremotehostalqdBS;
Print[invremotehostalqBS]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango B Satelital *)
Print["invremotehostaqlCS"]
[email protected]@invremotehostalqdCS;
Print[invremotehostalqCS]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango C Satelital*)
Print["invremotehostaqlABC2"]
[email protected]@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"]
[email protected]@invremotehostalqdABCnop;
Print[invremotehostalqABCnop]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos de No Operadores*)
Print["invremotehostitx"]
[email protected]@invremotehostitxd;
Print[invremotehostitx]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos de Interconexión *)
Print["invremotehostadsl"]
[email protected]@invremotehostadsld;
Print[invremotehostadsl]
(* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de ADSL *)
Print["invremotehostTOTAL"]
[email protected]@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;
[email protected]@
[email protected], 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;
[email protected]
[email protected]@8id, deptTXTdPidT, InvHostdPidT, InvHostLocdPidT, InvHostLDNdPidT, InvHostLDIdPidT<, 8id, nd<D,
156
Modelo_Integral_ACK.nb
[email protected]@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;
[email protected]@
[email protected], 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;
[email protected]@
[email protected], 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;
[email protected][email protected]@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
[email protected]"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;
[email protected]@[email protected], 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;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@[email protected], 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;
[email protected]"Factores Anuales"D;
[email protected]@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;
[email protected]"Costo Total de Cx Remota por Dpto"D;
CTCxRemotad = InvRemotad ∗ FactorCx;
CTCxRemotaLocd = InvRemotaLocd ∗ FactorCx;
CTCxRemotaLDNd = InvRemotaLDNd ∗ FactorCx;
CTCxRemotaLDId = InvRemotaLDId ∗ FactorCx;
[email protected]
[email protected]@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
[email protected]"Costo Total de Cx Host por Dpto"D;
CTCxHostd = InvHostd ∗ FactorCx;
CTCxHostLocd = InvHostLocd ∗ FactorCx;
CTCxHostLDNd = InvHostLDNd ∗ FactorCx;
CTCxHostLDId = InvHostLDId ∗ FactorCx;
[email protected]@[email protected], 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
[email protected]"Costo Total de Cx Tandem por Dpto"D;
CTCxTandemd = InvTandemd ∗ FactorCx;
CTCxTandemLocd = InvTandemLocd ∗ FactorCx;
CTCxTandemLDNd = InvTandemLDNd ∗ FactorCx;
CTCxTandemLDId = InvTandemLDId ∗ FactorCx;
[email protected]
[email protected]@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
[email protected]"CTCxTandemitxd: Costo Total de Cx para Circuitos de Interconexión en Tandems por Dpto"D;
CTCxTandemitxd = zerod ∗ FactorCx;
[email protected]@[email protected], 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
[email protected]"Costo Total de Cx por Dpto"D;
CTCxd = CTCxRemotad + CTCxHostd + CTCxTandemd;
CTCxLocd = CTCxRemotaLocd + CTCxHostLocd + CTCxTandemLocd;
CTCxLDNd = CTCxRemotaLDNd + CTCxHostLDNd + CTCxTandemLDNd;
CTCxLDId = CTCxRemotaLDId + CTCxHostLDId + CTCxTandemLDId;
[email protected]@[email protected], 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
[email protected]"Costo Total de Señalización por Dpto"D;
CTSxd = InvSignald ∗ FactorCx;
CTSxLocd = InvSignalLocd ∗ FactorCx;
CTSxLDNd = InvSignalLDNd ∗ FactorCx;
CTSxLDId = InvSignalLDId ∗ FactorCx;
[email protected]@[email protected], 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;
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@[email protected], deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostalqdA1PidT, CTTxRemotaHostalqdB1PidT,
159
Modelo_Integral_ACK.nb
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]
[email protected]@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
[email protected]"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;
[email protected]@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
[email protected]"Incógnitas"D;
X1;
X2;
H∗La mitad del ingreso a Intradepartamental ∗L
X1
;
InvUsu =
3
X2
;
InvATM =
3
[email protected]"FactorTx"D;
FactorTx = 8FactorTx1, FactorTx2, FactorTx3<;
[email protected]
[email protected], TableDirections → 8Row, Column<, TableHeadings → 88"FactorTx1", "FactorTx2", "FactorTx3"<<DD;
[email protected]"InvIntraDepADSLd"D;
InvIntraDepADSLd = 8invremotehostadsld1 + invhosttandemadsld1 + satinvadsld + satlimainvadsld,
invhosttandemadsld2 + invremotehostadsld2, invremotehostadsld3 + invhosttandemadsld3<;
[email protected]@[email protected], 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;
[email protected]"InvUsuPropd"D;
InvUsuPropd = [email protected], 8if, 3<, 8id, nd<D;
DoBInvUsuPropdPif, idT = InvUsu ∗
InvIntraDepADSLdPif, idT
Plus @@ Plus @@ InvIntraDepADSLd
, 8if, 3<, 8id, nd<F;
[email protected]@[email protected], 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;
[email protected]"InvATMPropd"D;
InvATMPropd = [email protected], 8if, 3<, 8id, nd<D;
InvIntraDepADSLdPif, idT
, 8if, 3<, 8id, nd<F;
DoBInvATMPropdPif, idT = InvATM ∗
Plus @@ Plus @@ InvIntraDepADSLd
[email protected]@[email protected], 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;
[email protected]"InvIntraDepADSLd"D;
InvIntraDepADSLd = InvIntraDepADSLd − InvUsuPropd − InvATMPropd;
[email protected]@
[email protected], 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;
[email protected]"CosteExtraSatADSL"D;
CosteExtraSatADSL = 2 ∗ Plus @@ Extrasatcostadsld;
[email protected]@CosteExtraSatADSLDD;
161
Modelo_Integral_ACK.nb
[email protected]@CosteExtraSatADSLDD;
[email protected]"CTTxadsld"D; CTTxadsld = [email protected] ∗ FactorTxP1T +
InvIntraDepADSLdP2T ∗ FactorTxP2T + InvIntraDepADSLdP3T ∗ FactorTxP3T + 2 ∗ ExtrasatcostadsldD;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@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;
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"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;
[email protected]@[email protected], 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
[email protected]"CT: Costo Total a nivel nacional de Voz"D;
CT = Plus @@ CTd;
CTLoc = Plus @@ CTLocd;
CTLDN = Plus @@ CTLDNd;
CTLDI = Plus @@ CTLDId;
Print[email protected]@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
[email protected]"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;
[email protected]@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
[email protected]"Ponderación por Dpto."D;
[email protected]"Código hecho por OSIPTEL"D;
TrafTotd = zerod;
[email protected] = TrafTotdPdeptxPixTT +
HlocoutxPixT + interprovoutxPixT + ldxPixT + recldxPixT + intlinxPixT + intloutxPixTL, 8ix, nx<D;
[email protected]"TrafTotd"D;
[email protected]@[email protected], deptTXTdPidT, TrafTotdPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "TrafTotd"<<DD;
H∗ Tráfico Total ∗L
[email protected]"CMed: Costo Unitario por Departamento"D;
CMed = zerod;
DoBCMedPidT =
CTdPidT
TrafTotdPidT
, 8id, nd<F;
[email protected]@[email protected], deptTXTdPidT, CMedPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CMed"<<DD;
[email protected]"TrafTotNac"D;
TrafTotNac = Plus @@ TrafTotd;
[email protected];
H∗ Se coloca la información ya que sólo se había considerado 11 meses ∗L
[email protected]"Ponderación Nacional de Tráfico"D;
PondNacd = zerod;
TrafTotdPidT
, 8id, nd<F;
DoBPondNacdPidT =
TrafTotNac
[email protected]@[email protected], deptTXTdPidT, PondNacdPidT<, 8id, nd<D,
TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "PondNacd"<<DD;
[email protected]"Ponderación Nacional de Tráfico"D;
TrafTotropNac = 0;
[email protected] = TrafTotropNac + [email protected] LIMA, 0, 1D ∗ TrafTotdPidT, 8id, nd<D
PondropNacd = zerod;
TrafTotdPidT ∗ [email protected] LIMA, 0, 1D
, 8id, nd<F;
DoBPondropNacdPidT =
TrafTotropNac
[email protected]"Costo de Interconexión Promedio Ponderado a nivel Nacional − Resultado de OSIPTEL"D;
CMeMinNacT = CMed . PondNacd;
[email protected];
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
[email protected]"Definición de Función Traf"D;
[email protected]::lstolD;
[email protected]::jsingD;
[email protected]_, p_D := ModuleB8Expr, Sol<,
[email protected] > $MaxRootDegree, $MaxRootDegree = n, $MaxRootDegree = 1000D;
n
Expr = ExpandAllB‚
j=0
λ1j
j!
F;
Sol = ReplaceAllBλ1, FindRootBExpr −
λ1n 1
n! p
, 8λ1, n + [email protected] ≥ 1, [email protected], 0D<FF;
[email protected];
H∗E0s para tramos Remote−Host y Host−Tandem ∗L
E0sremotehostd = [email protected]
Plus @@ [email protected], 8ix, [email protected]@nxD, deptxPT id Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8id, nd<D;
E0shosttandemd = TableBIfBid MADREDEDIOS, CalcTrunkB
HswitchendHCLDNpPPTOMALDONADOPT + locoutHCpPPTOMALDONADOPT + switchendHCLDIpPPTOMALDONADOPTL, 0.01F, 0F −
60
[email protected] LIMA, HPlus @@ [email protected] − Plus @@ [email protected], 8ix, [email protected]@nxD,
provxPT ip Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8ip, [email protected]@npD, deptxPhostpPTT LIMA Ï
host1xPhostpPTT 1 Ï Hsat1xPhostpPTT 0 Í tandem1xPhostpPTT 1L Ï tandem1xPhostpPTT 0 &D<D −
trunkxPidinvertxPCentralRefTT ∗ 2L ê 2, 0D + Plus @@ [email protected] −
Plus @@ [email protected], 8ix, [email protected]@nxD, provxPT ip Ï Hremote1xPT 1 Í sat1xPT 1L &D<D,
8ip, [email protected]@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
[email protected]@[email protected], 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 = [email protected] @@ [email protected] + sat1xPixT, 8ix, [email protected]@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 = [email protected]@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;
[email protected]@
[email protected], 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 = [email protected] @@ [email protected] − sat1xPixT, 8ix, [email protected]@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 = [email protected]@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
[email protected]@
[email protected], 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;
[email protected]@[email protected], 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 =
[email protected] @@ [email protected] + interprovoutHCxPixT + ldHCxPixT + recldHCxPixT + intlinHCxPixT + intloutHCxPixT,
8ix, [email protected]@nxD, deptxPT id &D<D, 8id, nd<D;
[email protected]@[email protected], 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
[email protected]@[email protected], 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
[email protected]@[email protected], deptTXTdPidT, PondNacE1EquivdPidT, CTE1mesdPidT<, 8id, nd<D, TableSpacing → 80, 1<,
TableHeadings → 8None, 8"id", "Departamento", "Ponderador de E1s Equiv", "Costo por E1 Mensual"<<DD;
[email protected]"Costo de Interconexión Promedio Ponderado a nivel Nacional por Capacidad − Resultado de OSIPTEL"D;
CMeE1NacT = CTE1mesd.PondNacE1Equivd;
[email protected];
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 [email protected] = K, [email protected] = 0∗L
K
[email protected]_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 [email protected], τ@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
[email protected]_D := ‡
τ@kD
0
[email protected] − kL t;
H∗Lo que se paga en función de la capacidad contratada k∗L
[email protected]_D := ak ∗ k + aq ∗ [email protected];
H∗El qmax será la cantidad de minutos a pagar, cuando k=0, o sea todo se paga por tiempo∗L
qmax = [email protected];
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 [email protected]∗L
kop = [email protected], [email protected]∂k [email protected] 0, kDP1TD;
qop = [email protected];
H∗El Factor de corrección estará dado por la relación entre el pago total F y el pago deducido como óptimo∗L
[email protected]"Factor de Corrección"D;
F
;
λ =
kop ak + qop aq
[email protected]λD;
H∗Cargos Corregidos∗L
[email protected]"Costo de Interconexión Promedio Ponderado a
nivel Nacional por Tiempo y por Capacidad − Resultados de OSIPTEL Corregidos"D;
CMeMinNacTCorr = CMeMinNacT ∗ λ;
CMeE1NacTCorr = [email protected] ∗ λD;
[email protected];
[email protected];
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.