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 Off@General::spell1D; Off@General::spellD; à Establece el directorio de trabajo El modelo utiliza diversos archivos de texto como entrada. En esta instrucción se establece el directorio donde se encuentran ubicados dichos archivos SetDirectoryA "D:\\Data\\Confidencial\\Fija2006\\Modelo de Costos\\Modelo Integral\\Aceptaciones\\AceptacionesTdP"E; CARGA DE PARÁMETROS GENERALES à Identificación de Areas Locales: Departamentos Listado de los departamentos y les asigna un número correlativo 2 Modelo_Integral_ACK.nb AYACUCHO = 1; HUANCAVELICA = 2; HUANUCO = 3; ICA = 4; JUNIN = 5; LIMA = 6; LORETO = 7; PASCO = 8; SANMARTIN = 9; UCAYALI = 10; AMAZONAS = 11; ANCASH = 12; CAJAMARCA = 13; LALIBERTAD = 14; LAMBAYEQUE = 15; PIURA = 16; TUMBES = 17; APURIMAC = 18; AREQUIPA = 19; CUSCO = 20; MADREDEDIOS = 21; MOQUEGUA = 22; PUNO = 23; TACNA = 24; Parámetros de Centrales de Conmutación ü Codificación de Centrales Tandems Departamentales Identifica las centrales Tandem dentro del listado de 585 CHACHAPOYASX=1; HUARAZX=5; ABANCAYX=36; AREQUIPACENTROX=39; AYACUCHOX=86; CAJAMARCAX=92; CUSCOCENTROX=110; HUANCAVELICAX=124; HUANUCOX=128; ICACENTROX=132; HUANCAYOCENTROX=150; TRUJILLOIX=183; CHICLAYOCENTROX=223; TANDEMLIMAX= 248; IQUITOSCENTROX=481; PTOMALDONADOX=491; ILOCENTROX=492; CERRODEPASCOX=498; PIURACENTROX=504; JULIACAX=534; TARAPOTOX=549; TACNACENTROX=561; TUMBESX=574; PUCALLPACENTROX=581; CentralRef=TANDEMLIMAX; ü Codificación de Centrales Cabeceras (Provincias) Listado de las cabeceras y les asigna un código correlativo ABANCAYP=1; AREQUIPACAYMAP=2; AREQUIPACENTROP=3; AREQUIPAPRXP=4; AYACUCHOP=5; BARRANCONEAXP=6; CAJAMARCAP=7; CALLAOP=8; CUSCOCENTROP=9; CHACHAPOYASP=10; CHICLAYOCENTROP=11; CHIMBOTECENTROP=12; ELCERCADO1P=13; ELCERCADO2P=14; HIGUERETA1P=15; HIGUERETA2P=16; HIGUERETANEAXP=17; HUACHOP=18; 3 Modelo_Integral_ACK.nb HUANCAVELICAP=19; HUANCAYOCENTROP=20; HUANCAYOPRXP=21; HUANUCOP=22; HUARAZP=23; ICACENTROP=24; ICAPRXP=25; ILOCENTROP=26; IQUITOSCENTROP=27; JAENP=28; JULIACAP=29; LAVICTORIANEAXP=30; LINCEP=31; LINCENEAXP=32; LOSOLIVOS1P=33; LOSOLIVOS2P=34; LOSOLIVOS3P=35; LOSOLIVOSNEAXP=36; MAGDALENAP=37; MAGDALENANEAXP=38; MIRAFLORES1P=39; MIRAFLORES2P=40; MIRAFLORESNEAXP=41; MONTERRICO1P=42; MONTERRICO2P=43; MONTERRICO3P=44; MONTERRICONEAXP=45; PIURACENTROP=46; PIURAPRXP=47; PTOMALDONADOP=48; PUCALLPACENTROP=49; PUNOPRXP=50; QUILLABAMBAP=51; SANBORJANEAXP=52; SANISIDRO1P=53; SANISIDRO2P=54; SANISIDRONEAXP=55; SANJOSE1P=56; SANJOSE2P=57; SANJOSE3P=58; SANJOSENEAXP=59; SANJUANNEAXP=60; TACNACENTROP=61; TACNAPRXP=62; TANDEMLIMAP=63; TARAPOTOP=64; TARMAP=65; TRUJILLOIP=66; TRUJILLOIIP=67; TRUJILLOPRXP=68; TUMBESP=69; WASHINGTON1P=70; WASHINGTON2P=71; WASHINGTONNEAXP=72; ZARATE1P=73; ZARATE2P=74; CERRODEPASCOP=75; ATALAYAP=76; CABALLOCOCHAP=77; CONTAMANAP=78; LAGUNASP=79; NAUTAP=80; REQUENAP=81; AGUASCALIENTESP=82; BELLAVISTAP=83; CABANAP=84; CAJATAMBOP=85; CORACORAP=86; IQUITOSCENTROP=87; JUANJUIP=88; PUQUIOP=89; SANFRANCISCOP=90; SAPOSOAP=91; TINGOMARIAP=92; TOCACHENUEVOP=93; UCHIZAP=94; ZARATE3P=95; LOSOLIVOS4P=96; LOSOLIVOS5P=97; SANISIDRO3P=98; MIRAFLORES3P=99; HIGUERETAP=100; ü Identificación de Centrales Tandems (Departamentales) por Nombre 4 Modelo_Integral_ACK.nb deptTXTd = 8"AYACUCHO", "HUANCAVELICA", "HUANUCO", "ICA", "JUNIN", "LIMA", "LORETO", "PASCO", "SANMARTIN", "UCAYALI", "AMAZONAS", "ANCASH", "CAJAMARCA", "LALIBERTAD", "LAMBAYEQUE", "PIURA", "TUMBES", "APURIMAC", "AREQUIPA", "CUSCO", "MADREDEDIOS", "MOQUEGUA", "PUNO", "TACNA"<; ü Identificación de Centrales Cabeceras (Provincias) por Nombre provTXTp = 8"ABANCAYP", "AREQUIPACAYMAP", "AREQUIPACENTROP", "AREQUIPAPRXP", "AYACUCHOP", "BARRANCONEAXP", "CAJAMARCAP", "CALLAOP", "CUSCOCENTROP", "CHACHAPOYASP", "CHICLAYOCENTROP", "CHIMBOTECENTROP", "ELCERCADO1P", "ELCERCADO2P", "HIGUERETA1P", "HIGUERETA2P", "HIGUERETANEAXP", "HUACHOP", "HUANCAVELICAP", "HUANCAYOCENTROP", "HUANCAYOPRXP", "HUANUCOP", "HUARAZP", "ICACENTROP", "ICAPRXP", "ILOCENTROP", "IQUITOSCENTROP", "JAENP", "JULIACAP", "LAVICTORIANEAXP", "LINCEP", "LINCENEAXP", "LOSOLIVOS1P", "LOSOLIVOS2P", "LOSOLIVOS3P", "LOSOLIVOSNEAXP", "MAGDALENAP", "MAGDALENANEAXP", "MIRAFLORES1P", "MIRAFLORES2P", "MIRAFLORESNEAXP", "MONTERRICO1P", "MONTERRICO2P", "MONTERRICO3P", "MONTERRICONEAXP", "PIURACENTROP", "PIURAPRXP", "PTOMALDONADOP", "PUCALLPACENTROP", "PUNOPRXP", "QUILLABAMBAP", "SANBORJANEAXP", "SANISIDRO1P", "SANISIDRO2P", "SANISIDRONEAXP", "SANJOSE1P", "SANJOSE2P", "SANJOSE3P", "SANJOSENEAXP", "SANJUANNEAXP", "TACNACENTROP", "TACNAPRXP", "TANDEMLIMAP", "TARAPOTOP", "TARMAP", "TRUJILLOIP", "TRUJILLOIIP", "TRUJILLOPRXP", "TUMBESP", "WASHINGTON1P", "WASHINGTON2P", "WASHINGTONNEAXP", "ZARATE1P", "ZARATE2P", "CERRODEPASCOP", "ATALAYAP", "CABALLOCOCHAP", "CONTAMANAP", "LAGUNASP", "NAUTAP", "REQUENAP", "AGUASCALIENTESP", "BELLAVISTAP", "CABANAP", "CAJATAMBOP", "CORACORAP", "IQUITOSCENTROP", "JUANJUIP", "PUQUIOP", "SANFRANCISCOP", "SAPOSOAP", "TINGOMARIAP", "TOCACHENUEVOP", "UCHIZAP", "ZARATE3P", "LOSOLIVOS4P", "LOSOLIVOS5P", "SANISIDRO3P", "MIRAFLORES3P", "HIGUERETAP"<; à Identificación y Codificación de Función de Central Esquema de identificación lógico entre Centrales Cabeceras y URAS (Unidades Remotas, tanto Analógicas como Digitales) CABECERA=1; URD=0; à Identificación y Codificación de Tecnologías de transmisión asociadas a cada Central de Conmutación ü Todas las Tecnologías de Transmisión utilizadas Listado de Tecnologías identificadas por un número Satelite=1; Enterrado=2; Radio=3; NA=4; Urbana=5; Aereo=6; ü Identificación especial de Tecnología de Fibra Óptica Donde diga Fiberoptic esta haciendo referencia a la tecnología de fibra enterrada Fiberoptic=2; Lectura de Archivo de Texto "input_TdP.txt" à Carga datos de Archivo de Texto "input_TdP.txt" ü Abre Archivo de Texto "input_TdP.txt" OpenRead@"input_TdP.txt"D; ü Lee archivo y lo carga en variable auxiliar "d" d = N@ReadList@"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 Off@ToExpression::"sntxi"D; à Carga datos de Archivo de Texto "input_centralesfinal.txt" ü Abre Archivo de Texto "input_centralesfinal.txt" OpenRead@"input_centralesfinal.txt"D; ü Lee archivo y lo carga en variable auxiliar "y" y = ReadList@"input_centralesfinal.txt", Word, RecordLists → TrueD; ü El archivo leido es convertido a formato de expresión para su posterior uso en variable auxiliar "z" z = ToExpression@yD; 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 = Table@zPixTP1T, 8ix, nx<D; H∗ Especifica para cada central su ID ∗L idinvertx = Table@0, 8ix, nx<D; Do@idinvertxPidxPixTT = ix, 8ix, nx<D; Traducir@Vector_D := Module@8Vector1, n, dim<, n = Dimensions@VectorDP1T; dim = Dimensions@VectorDP2T; Vector1 = Table@Table@0, 8d, dim<D, 8i, n<D; Do@If@dim 2, Vector1Pi, 1T = idinvertxPVectorPi, 1TT; Vector1Pi, 2T = VectorPi, 2T;D; If@dim 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 = Table@zPixTP3T, 8ix, nx<D; H∗ Especifica para cada central el departamento al cual pertenece ∗L provx = Table@zPixTP4T, 8ix, nx<D; H∗ Especifica para cada central la provincia a la cual pertenece ∗L longdegx = Table@zPixTP5T, 8ix, nx<D; H∗ Especifica para cada central la coordenada: longitud en grados ∗L longminx = Table@zPixTP7T, 8ix, nx<D; H∗ Especifica para cada central la coordenada: longitud en minutos ∗L longsecx = Table@zPixTP9T, 8ix, nx<D; H∗ Especifica para cada central la coordenada: longitud en segundos ∗L latdegx = Table@zPixTP6T, 8ix, nx<D; H∗ Especifica para cada central la coordenada: latitud en grados ∗L latminx = Table@zPixTP8T, 8ix, nx<D; H∗ Especifica para cada central la coordenada: latitud en minutos ∗L latsecx = Table@zPixTP10T, 8ix, nx<D; H∗ Especifica para cada central la coordenada: latitud en segundos ∗L linesx = Table@zPixTP11T, 8ix, nx<D; H∗ Especifica para cada central el número de líneas ∗L systemx = Table@zPixTP12T, 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 = Table@zPixTP2T, 8ix, nx<D; H∗ Especifica para cada central la tecnología de transmisión ∗L esAnillopx = Table@zPixTP14T, 8ix, nx<D; Do@If@esAnillopxPixT 1 Ï transtechxPixT ≠ Urbana, transtechxPixT = UrbanaD;, 8ix, nx<D; H∗ Especifica para cada central si forma parte del anillo provincial ∗L esAnillodx = Table@zPixTP15T, 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 distance@ix1_, ix2_D := ModuleB8vect1, vect2, dist<, vect1 = :latdegxPix1T + vect2 = :latdegxPix2T + latminxPix1T 60 latminxPix2T 60 + + latsecxPix1T 3600 latsecxPix2T 3600 , longdegxPix1T + , longdegxPix2T + longminxPix1T 60 longminxPix2T 60 If@vect1 vect2, dist = 0, dist = SphericalDistance@vect1, vect2DD; distF; + + longsecxPix1T 3600 longsecxPix2T 3600 >; >; 12 Modelo_Integral_ACK.nb ESTIMACIÓN DE DISTANCIAS Calculo de la distancia entre nodos (centrales) à Identificación de Nodos por cada tecnología de transmisión ü Identificación de Nodos que utilizan tecnología satelital (variables satx, sat1x) satx=Table[False,{ix,nx}]; satxP1T=transtechxP1TSatelite; Do[satxPixT=If[provxPixTprovxPix-1T,satxPix-1T,(*deptxPixT≠LIMA fl*) deptxPixT≠MADREDEDIOS fl transtechxPixT Satelite];,{ix,2,nx}]; (* Identifica los nodos que usan tecnología de Tx satelital con "True" y los demás con "False" , ojo que en Lima no pueden haber nodos que usen tecnología satelital *) sat1x=Table[If[satxPixT,1,0],{ix,nx}]; (* Identifica los nodos que usan tecnología de Tx satelital con "1" y los demás con "0", ojo que en Lima no pueden haber nodos que usen tecnología satelital *) Print[TableForm[Table[{ix,idxPixT,yPix,13T,satxPixT,sat1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→ {Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","satx","sat1x"}}]]; ü Identificación de Nodos que utilizan tecnología de fibra optica (variables fiberx, fibert1x) fiberx=Table[False,{ix,nx}]; Do[fiberxPixT=transtechxPixTEnterrado fi transtechxPixTUrbana fi transtechxPixTAereo,{ix,nx}]; (* Identifica los nodos que usan fibra como tecnología de Tx con "True" y los demás con "False" *) fiber1x=Table[If[fiberxPixT,1,0],{ix,nx}]; (* Identifica los nodos que usan fibra como tecnología de Tx con "1" y los demás con "0"*) Print[TableForm[Table[{ix,idxPixT,yPix,13T,fiberxPixT,fiber1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→ {Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","fiberx","fiber1x"}}]]; à Identificación de Centrales Tandem por Area Local (Departamento) ü Identificación de Centrales Tamdem por Cada Area Local (Departamento) (variable tandemd) Print["tandemd"]; tandemd=zerod; tandemdPAMAZONAST=idinvertxPCHACHAPOYASXT; tandemdPANCASHT=idinvertxPHUARAZXT; tandemdPAPURIMACT=idinvertxPABANCAYXT; tandemdPAREQUIPAT=idinvertxPAREQUIPACENTROXT; tandemdPAYACUCHOT=idinvertxPAYACUCHOXT; tandemdPCAJAMARCAT=idinvertxPCAJAMARCAXT; tandemdPCUSCOT=idinvertxPCUSCOCENTROXT; tandemdPHUANCAVELICAT=idinvertxPHUANCAVELICAXT; tandemdPHUANUCOT=idinvertxPHUANUCOXT; tandemdPICAT=idinvertxPICACENTROXT; tandemdPJUNINT=idinvertxPHUANCAYOCENTROXT; tandemdPLALIBERTADT=idinvertxPTRUJILLOIXT; tandemdPLAMBAYEQUET=idinvertxPCHICLAYOCENTROXT; tandemdPLIMAT=idinvertxPTANDEMLIMAXT; tandemdPLORETOT=idinvertxPIQUITOSCENTROXT; tandemdPMADREDEDIOST=idinvertxPPTOMALDONADOXT; tandemdPMOQUEGUAT=idinvertxPILOCENTROXT; tandemdPPASCOT=idinvertxPCERRODEPASCOXT; tandemdPPIURAT=idinvertxPPIURACENTROXT; tandemdPPUNOT=idinvertxPJULIACAXT; tandemdPSANMARTINT=idinvertxPTARAPOTOXT; tandemdPTACNAT=idinvertxPTACNACENTROXT; tandemdPTUMBEST=idinvertxPTUMBESXT; tandemdPUCAYALIT=idinvertxPPUCALLPACENTROXT; Print[TableForm[Table[{id,deptTXTdPidT,tandemdPidT,yPtandemdPidT,13T},{id,nd}],TableSpacing→ {0,1},TableDirections→{Column,Row},TableHeadings→{None,{"id","Nombre Departamento","id Tandem","Nombre Tandem"}}]]; (* Identifica para cada departamento cuál es la central que será considerada Tandem *) ü Identificación de Central Tandem por cada Central (variables tandemx, tandem1x) tandemx=Table[tandemdPdeptxPixTT,{ix,nx}]; (* Para cada central se especifica cuál es la Tandem de su departamento *) tandem1x=Table[If[tandemxPixTix,1,0],{ix,nx}]; (* Para aquellas centrales que son Tandem las identifica con "1" y las que no son con "0" *) Print[TableForm[Table[{ix,idxPixT,yPix,13T,tandemxPixT,idxPtandemxPixTT,yPtandemxPixT,13T,tandem1xP ixT},{ix,nx}],TableSpacing→{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","tandemx","idtandemx","Nombre Tandem","tandem1x"}}]]; 13 Modelo_Integral_ACK.nb Identificación de Centrales Cabeceras (variables host1x, hostx) host1x=Table[systemxPixT,{ix,nx}]; (* Para aquellas centrales que son Cabeceras las identifica con "1" y las que no son con "0" *) hostx=Table[If[host1xPixT1,True,False],{ix,nx}]; Print[TableForm[Table[{ix,idxPixT,yPix,13T,hostxPixT,host1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→ {Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","hostx","host1x"}}]]; à Identificación de Centrales Host por Provincia (variable hostp) hostp=zerop; Do[If[hostxPixT,hostpPprovxPixTT=ix];,{ix,nx}]; (* Identificamos el host por cada provincia *) Print[TableForm[Table[{ip,provTXTpPipT,hostpPipT},{ip,np}],TableSpacing→{0,1},TableDirections→ {Column,Row},TableHeadings→{None,{"ip","Nombre Provincia","hostp"}}]]; à Identificación de Conexiones entre centrales ü Crea Variable Auxiliar de Ceonexiones (variable Conexion) Conexion=Table[ix,{ix,nx}]; Print[TableForm[Table[{ix,idxPixT,yPix,13T,ConexionPixT,idxPConexionPixTT,yPConexionP ixT,13T},{ix,nx}],TableSpacing→{0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","Conexion","id Conexion","Nombre Conexion"}}]]; (* Se inicializa el vector de conexión (para saber a qué se refiere cada vector de conexión) la inicialización es como si cada central se conectara consigo misma. *) ü Crea Variable Auxiliar de Anillos de Cabeceras (variable AnilloCabeceras) Print["AnilloCabeceras"]; AnilloCabeceras=zerop; pos=1; Do[If[host1xPiaxT1, AnilloCabecerasPposT=iax; pos=pos+1;];,{iax,nx}]; Print[TableForm[Table[{AnilloCabecerasPposT,If[AnilloCabecerasPposT≠0,yPAnilloCabecerasPposT,13T,""],provxP AnilloCabecerasPposTT,If[AnilloCabecerasPposT≠0,provTXTpPprovxPAnilloCabecerasPposTTT,""]},{pos,np}],TableSpacing→ {0,1},TableHeadings→{None,{"pos","Nombre Central","Provincia","Nombre Provincia"}}]]; (* Anillos Cabeceras, marca las cabeceras provinciales *) ü Crea Variable Auxiliar de Conexion de Provincias con su Tandem (variable ConexionProv) Print["ConexionProv"]; ConexionProv=Table[ip,{ip,np}]; Do[If[AnilloCabecerasPipT≠0, ConexionProvPprovxPAnilloCabecerasPipTTT=provxPtandemxPAnilloCabecerasPipTTT;];,{ip,np}]; Print[TableForm[Table[{ip,provTXTpPipT,ConexionProvPipT,ConexionProvPipT},{ip,np}],TableSpacing→ {0,1},TableDirections→{Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","Conexion","idConexion","Nombre Conexion"}}]]; (* Inicializamos ConexionProv, aquí vemos que indicamos que cada Provincia (en realidad cabecera) se conecta con cada tándem *) à Calcula distancias de cada central a su tandem (variable disttandemx) Print["disttandemx"] disttandemx=Abs[Table[distance[ix,tandemxPixT],{ix,nx}]]; Do[If[esAnillodxPixTNA fl host1xPixT1 fl lima1xPixT1 fl tandem1xPixT0, disttandemxPixT=disttandemxPixT+distance[ix,idinvertxP377T]; ConexionProvPprovxPixTT=provxPidinvertxP377TT;];,{ix,nx}]; Print[TableForm[Table[{ix,idxPixT,yPix,13T,NumberForm[disttandemxPixT,{17,10}]},{ix,nx}],TableAlignments→ Right,TableSpacing→{0,1},TableHeadings→{None,{"ix","idx","Nombre Central","disttandemx"}}]]; (* Para cada central se estima la distancia a su Tandem. Algunas centrales en Lima también estan conectadas a la central de San Isidro (la número 377), por ello para dichas centrales se suma la distancia con esa central. Dichas centrales cumplen con: Ser Host o cabecera, No forman parte del anillo departamental, pertenecen a Lima y no son ninguna de las dos Tandem de Lima *) 14 Modelo_Integral_ACK.nb Calculo de la distancia entre nodos (remotas) à Identificación de Centrales Remotas (variables remote1x, remotex) remote1x=Table[If[systemxPixT0,1,0],{ix,nx}]; (* Para aquellas centrales que son remotas las identifica con "1" y las que no son remotas con "0" *) remotex=Table[If[remote1xPixT1,True,False],{ix,nx}]; (* Para aquellas centrales que son Remotas las identifica con "True" y las que no son Remotas con "False" *) Print[TableForm[Table[{ix,idxPixT,yPix,13T,remotexPixT,remote1xPixT},{ix,nx}],TableSpacing→{0,1},TableDirections→ {Column,Row},TableHeadings→{None,{"ix","idx","Nombre Central","remotex","remote1x"}}]]; à Identificación de host para el Resto del Perú (variable rophostx) Print["rophostx"] rophostx=Table[tandemxPixT,{ix,nx}]; Do[If[remotexPixT fl ropxPixT, Do[If[hostxPjxT fl provxPjxTprovxPixT, rophostxPixT=jx;];,{jx,nx}];];,{ix,nx}]; Print[TableForm[Table[{ix,yPix,13T,rophostxPixT,yProphostxPixT,13T},{ix,nx}],TableSpacing→{0,1},TableHeadings→ {None,{"ix","Nombre Central","rophostx","Nomobre Host"}}]]; (* Sola para las centrales de provincias: si es remota se especifica cuál es su central cabecera o Host, es decir, la cabecera de su provincia. En el caso de las host queda como dato su Tandem. Observese que para identificar la cabecera de una remota es necesario buscar para cada remota cuál es la central cabecera que pertenece a la misma provincia *) Identificación de Central de Jerarquia Superior para todas las Centrales Print["allhostx y disthostx"] allhostx=Table[tandemxPixT,{ix,nx}]; Do[If[remotexPixT, Do[If[hostxPjxT fl provxPjxTprovxPixT, allhostxPixT=jx;];,{jx,nx}];];,{ix,nx}]; (* Para todo el Perú: si es remota se especifica cuál es su central cabecera o Host, es decir, la cabecera de su provincia. En el caso de las host queda como dato su Tandem . Observese que para identificar la cabecera de una remota es necesario buscar para cada remota cuál es la central cabecera que pertenece a la misma provincia *) disthostx=Abs[Table[distance[ix,allhostxPixT],{ix,nx}]]; (* Para cada central se estima la distancia a la cabecera de su provincia. En el caso de las que son cabecera se establece como dato la distancia a su Tandem. No olvidar que en la variable allHostx a las cabeceras se les puso como allHostx la Tandem de su departamento *) Print[TableForm[Table[{ix,idxPixT,yPix,13T,allhostxPixT,yPallhostxPixT,13T,NumberForm[disthostxP ixT,{17,10}]},{ix,nx}],TableSpacing→{0,1},TableHeadings→{None,{"ix","idx","Nombre Central","allhostx","Nombre Host","disthostx"}}]]; Calcula Factor de NoLinealidad para cada conexion à Define variable auxiliar de Factor de No Linealidad (variable factorNoLinealx) Print["factorNoLinealx"] factorNoLinealx=onex; (*Este listado corresponde a los enlaces que siendo de Tecnología Urbana (Canalizada), son tramos inter urbanos*) EntreCiudades = {26, 39, 44, 45, 68, 69, 70, 95, 135, 136, 154, 156, 157, 158, 159, 162, 165, 170, 186, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 220, 221, 225, 226, 229, 232, 233, 234, 235, 236, 255, 256, 273, 274, 277, 281, 282, 308, 309, 329, 330, 357, 358, 456, 457, 464, 465, 467, 469, 470, 475, 476, 486, 487, 489, 490, 501, 502, 503, 505, 506, 507, 508, 526, 577, 580, 593, 609, 610, 616}; Do[If[transtechxPixTEnterrado fi transtechxPixTAereo, factorNoLinealxPixT=factorNoLinealNoUrban]; If[transtechxPixTUrbana, factorNoLinealxPixT=factorNoLinealUrban]; If[transtechxPixTRadio, factorNoLinealxPixT=factorNoLinealRadio]; If[Count[EntreCiudades, ix] > 0, factorNoLinealxPixT=factorNoLinealNoUrban]; ,{ix, nx}]; Print[TableForm[Table[{ix,idxPixT,yPix,13T,NumberForm[factorNoLinealxPixT,{17,10}]},{ix,nx}],TableAlignments→ Right,TableSpacing→{0,1},TableHeadings→{None,{"ix","idx","Nombre Central","factorNoLinealx"}}]]; (* Para cada central se especifica cuál es el factor de ajuste por no linealidad dependiendo de la tecnología de transmisión que se usa en dicho nodo *) 15 Modelo_Integral_ACK.nb Calculo de la distancia entre nodos (centrales y remotas) ajustadas por el Factor de No Linealidad Print@"disthostx"D; disthostx ; disthostx = factorNoLinealx H∗ corrige la variable dishostx por el factor de no linealidad que le corresponde ∗L Print@"disttandemx"D; disttandemx ; disttandemx = factorNoLinealx H∗ corrige la variable disttandemx por el factor de no linealidad que le corresponde ∗L Print@"repfibrax"D; repfibrax = zerox; Do@ If@host1xPixT 1, repfibraxPixT = disttandemxPixT; ConexionPixT = ix;, repfibraxPixT = disthostxPixT; ConexionPixT = allhostxPixT; D; , 8ix, nx<D; H∗ Distancia entre repetidoras de fibra: Como punto de partida para las remotas toma la variable disthostx y para las host la variable disttandemx ∗L Print@"Conexion"D; Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, NumberForm@disthostxPixT, 817, 10<D, NumberForm@disttandemxPixT, 817, 10<D, NumberForm@repfibraxPixT, 817, 10<D, ConexionPixT, yPConexionPixT, 13T<, 8ix, nx<D, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "disthostx", "disttandemx", "repfibrax", "Conexión", "Nombre Conexión"<<DD; 16 Modelo_Integral_ACK.nb Calcula el Tamaño de los Anillos (Sumatoria de distancias) à Tamaño de Anillo a Nivel Provincial PrintAStyleA" A NIVEL PROVINCIAL", Underlined, 16, Background → Blue, White, BoldEE; H∗Cada provincia es un anillo de Remotas−Cabeceras∗L H∗Inicializacion de variables∗L TamAnillop = zerop; CabAnillo = 1; ProvAnillo = 1; esAnillo = 0; costeTerminacionesFibrax = zerox; SumaCabecerax = zerox; Print@"TamAnillop"D; DoBIf@host1xPiaxT 1, If@esAnillopxPiaxT 1, CabAnillo = iax; H∗Cabecera del anillo∗L ProvAnillo = provxPCabAnilloT; H∗Provincia del anillo∗L If@provxPiax + 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 + If@esAnillopxPiaxT 0, 0, 1D ∗ Abs@distance@iax, CabAnilloDD ; factorNoLinealxPiaxT IfBesAnillopxPiaxT 1, SumaCabeceraxPiaxT = Abs@distance@iax, CabAnilloDD ;, factorNoLinealxPiaxT repfibraxPiaxT = repfibraxPiaxT + Abs@distance@iax, CabAnilloDD ;F; factorNoLinealxPiaxT ConexionPiaxT = CabAnillo;, TamAnillopPProvAnilloT = TamAnillopPProvAnilloT + Abs@distance@iax, iax + 1DD ; factorNoLinealxPiaxT repfibraxPiax + 1T = Abs@distance@iax, iax + 1DD ; factorNoLinealxPiaxT ConexionPiaxT = iax + 1;F;F;, 8iax, nx − 1<F; Print@TableForm@Table@8ip, provTXTpPipT, TamAnillopPipT<, 8ip, np<D, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "TamAnillop"<<DD; H∗ Se estima el tamaño del anillo de cada provincia. Para ello hay que asignar a cada nodo una distancia relevante y luego sumar dichas distancias. Primero se busca el final del anillo, entonces, evalua cada nodo que si es anillo, luego, si el nodo siguiente es host o no forma parte de un anillo entonces estas en un nodo que cierra un anillo, por lo que la distancia relevante es la distancia con su cabecera. En cualquier otro caso, la distancia relevante es la distancia con el nodo siguiente ∗L 17 Modelo_Integral_ACK.nb à Tamaño de Anillo a Nivel Departamental PrintAStyleA" A NIVEL DEPARTAMENTAL", Underlined, 16, Background → Blue, White, BoldEE; H∗Inicializacion de variables∗L Print@"TamAnillod"D; TamAnillod = zerod; TandemAnillo = 0; DepAnillo = 0; H∗Se extraen las cabeceras∗L esAnillo = 0; DoB IfBAnilloCabecerasPiaxT ≠ 0, If@tandem1xPAnilloCabecerasPiaxTT 1, If@esAnillodxPAnilloCabecerasPiaxTT ≠ 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 + Abs@distance@AnilloCabecerasPiaxT, TandemAnilloDD If@esAnillodxPAnilloCabecerasPiaxTT NA, 0, 1D ∗ ; factorNoLinealxPAnilloCabecerasPiaxTT IfBesAnillodxPAnilloCabecerasPiaxTT ≠ NA, repfibraxPAnilloCabecerasPiaxTT = Abs@distance@AnilloCabecerasPiaxT, TandemAnilloDD ;F; repfibraxPAnilloCabecerasPiaxTT + factorNoLinealxPAnilloCabecerasPiaxTT ConexionProvPprovxPAnilloCabecerasPiaxTTT = provxPTandemAnilloT, TamAnillodPDepAnilloT = Abs@distance@AnilloCabecerasPiaxT, AnilloCabecerasPiax + 1TDD ; TamAnillodPDepAnilloT + factorNoLinealxPAnilloCabecerasPiaxTT repfibraxPAnilloCabecerasPiax + 1TT = Abs@distance@AnilloCabecerasPiaxT, AnilloCabecerasPiax + 1TDD factorNoLinealxPAnilloCabecerasPiaxTT ConexionProvPprovxPAnilloCabecerasPiaxTTT = provxPAnilloCabecerasPiax + 1TT;F;F;F;, 8iax, np − 1<F; Print@TableForm@Table@8id, deptTXTdPidT, TamAnillodPidT<, 8id, nd<D, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "TamAnillod"<<DD; H∗ Se estima el tamaño del anillo de cada departamento. Para ello hay que asignar a cada nodo una distancia relevante y luego sumar dichas distancias. Primero se busca el final del anillo, entonces, evalua cada host que si es anillo, luego, si el host siguiente es cabecera de anillo departamental Hes TandemL o no forma parte de un anillo departamental entonces estas en un nodo que cierra un anillo, por lo que la distancia relevante es la distancia con su Tandem. En cualquier otro caso, la distancia relevante es la distancia con el nodo cabecera siguiente ∗L à Eliminacion de Valores muy bajos en Tamaño de Anillos PrintBStyleB "ELIMINACIÓN DE VALORES MUY BAJOS EN TAMAÑO DE ANILLOS", White, 16, Underlined, Background → RGBColorB0, 1 , 0F, BoldFF; 2 Print@"Calculos posteriores"D; Do@If@TamAnillopPiapT < 0.01, TamAnillopPiapT = 0D;, 8iap, np<D; Do@If@TamAnillodPiadT < 0.01, TamAnillodPiadT = 0D;, 8iad, nd<D; Print@"FIN Calculos posteriores"D; Print@"TamAnillop"D; Print@TableForm@Table@8ip, provTXTpPipT, TamAnillopPipT<, 8ip, np<D, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "TamAnillop"<<DD; Print@"TamAnillod"D; Print@TableForm@Table@8id, 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; Do@linespPprovxPixTT = 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 If@remotexPixT Ï allhostxPixT tandemxPixT, remotetandemlinesdPdeptxPixTT = remotetandemlinesdPdeptxPixTT + linesxPixT;D; H∗ Se identifica el número de líneas de las remotas de un departamento, pero solo de aquellas remotas cuya cabecera es a su vez la tandem del departamento ∗L satlinesdPdeptxPixTT = satlinesdPdeptxPixTT + satlinesxPixT; H∗ Se totaliza a nivel departamental el número de líneas que usan tecnología de Tx satelital ∗L satlinespPprovxPixTT = satlinespPprovxPixTT + satlinesxPixT;, 8ix, nx<D; H∗ Se totaliza a nivel provincial el número de líneas que usan tecnología de Tx satelital ∗L DoBIfBlinespPprovxPixTT 0 Í linesdPdeptxPixTT 0, 1 interprovfracxPixT = 0;, interprovfracxPixT = 1 − linespPprovxPixTT linesdPdeptxPixTT locb ;F;, 8ix, nx<F; hostlinesd = linesd − remotelinesd; H∗ Total de líneas conectadas sólo a las centrales Cabeceras: Información a nivel departamental∗L Print@"lines"D; lines = Plus @@ linesd; Print@linesD; H∗ Total de líneas en la red ∗L Print@TableForm@Table@8id, 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; Print@TableForm@Table@8ip, provTXTpPipT, linespPipT, satlinespPipT<, 8ip, np<D, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Provincia", "linesp", "satlinesp"<<DD; Print@TableForm@Table@8ix, yPix, 13T, linesxPixT, satlinesxPixT, interprovfracxPixT<, 8ix, nx<D, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Central", "linesx", "satlinesx", "interprovfracx"<<DD; H∗ Factor de elasticidad estimado por cada central para ser empleado en la estimación de cada uno de los distintos tipos de tráfico∗L 19 Modelo_Integral_ACK.nb TRÁFICO EN HORA CARGADA PrintBStyleB "TRATAMIENTO DEL TRÁFICO EN LA HORA CARGADA", White, 16, Underlined, Background → RGBColorB0, 1 , 0F, BoldFF; 2 FactTrafico = 1.0; Print@"Trafico en Hora Cargada"D; TraficoRealHCx = ReadList@"input_Trafico_HC.txt", 8Real, Real, Real, Real, Real, Real<D ∗ FactTrafico; H∗ Print@TableForm@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 = Table@TraficoRealHCxPidxPixTTP1T, 8ix, nx<D ∗ H1 + trafAdicNoTarifL; H∗ Lectura del Tráfico Intradepartamental de entrada. Le añade los minutos no tarificados ∗L intradepoutHC1x = Table@TraficoRealHCxPidxPixTTP2T, 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 = Table@TraficoRealHCxPidxPixTTP3T, 8ix, nx<D ∗ H1 + trafAdicNoTarifL; H∗ Lectura del Tráfico LDN ENTRANTE. Le añade los minutos no tarificados ∗L ldHC1x = Table@TraficoRealHCxPidxPixTTP4T, 8ix, nx<D ∗ H1 + trafAdicNoTarifL; H∗ Lectura del Tráfico LDN SALIENTE. Le añade los minutos no tarificados ∗L intlinHC1x = Table@TraficoRealHCxPidxPixTTP5T, 8ix, nx<D ∗ H1 + trafAdicNoTarifL; H∗ Lectura del Tráfico LDI ENTRANTE. Le añade los minutos no tarificados ∗L intloutHC1x = Table@TraficoRealHCxPidxPixTTP6T, 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 Print@TableForm@Table@8ix, yPix, 13T, intradepinHC1xPixT, intradepoutHC1xPixT, interprovinHC1xPixT, interprovoutHC1xPixT, locinHC1xPixT, locoutHC1xPixT, recldnacHC1xPixT, ldHC1xPixT, intlinHC1xPixT, intloutHC1xPixT, ldintradHC1xPixT, recldHC1xPixT, locHC1xPixT, intraHC1xPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "Intra Dep In", "Intra Dep Out", "Inter Prov In", "Inter Prov Out", "Intra Prov In", "Intra Prov Out", "LDN In", "LDN Out", "LDI IN", "LDI Out", "Inter Prov", "LDN In", "Intra Prov Prom", "Intra Central"<<DD; 20 Modelo_Integral_ACK.nb PrintBStyleB "TRATAMIENTO DEL TRÁFICO DE SEGUNDOS DE USO", White, 16, Underlined, Background → RGBColorB0, 1 , 0F, BoldFF; 2 Print@"Trafico Minutos de Uso"D; TraficoRealMx = ReadList@"input_Trafico_M.txt", 8Real, Real, Real, Real, Real, Real<D ∗ FactTrafico; H∗Print@TableForm@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 Print@TableForm@Table@8ix, yPix, 13T, intradepinMxPixT, intradepoutMxPixT, interprovinMxPixT, interprovoutMxPixT, locinMxPixT, locoutMxPixT, recldnacMxPixT, ldMxPixT, intlinMxPixT, intloutMxPixT, ldintradMxPixT, recldMxPixT, locMxPixT, intraMxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "Intra Dep In", "Intra Dep Out", "Inter Prov In", "Inter Prov Out", "Intra Prov In", "Intra Prov Out", "LDN In", "LDN Out", "LDI IN", "LDI Out", "Inter Prov", "LDN In", "Intra Prov Prom", "Intra Central"<<DD; PrintBStyleB "ANUALIZACIÓN DE MINUTOS DE USO", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"Por Central"D; 12 ; intrax = intraMx ∗ 60 H∗ Tráfco Intranodo en minutos de uso anual ∗L 12 locinx = locinMx ∗ ; 60 H∗ Tráfico Intraprovincial Entrante en Minutos de uso anual ∗L 12 ; locoutx = locoutMx ∗ 60 H∗ Tráfico Intraprovincial Saliente en Minutos de uso anual ∗L 12 ; interprovinx = interprovinMx ∗ 60 H∗ Tráfico Interprovincial Entrante en la Minutos de uso anual ∗L 12 interprovoutx = interprovoutMx ∗ ; 60 H∗ Tráfico Interprovincial Saliente en la Minutos de uso anual ∗L 12 ldintradx = ldintradMx ∗ ; 60 H∗ Total Trafico Interprovincial en minutos de uso L 21 H Total Trafico Interprovincial en minutos de uso anual: Interprovincial Entrante + Interprovincial Saliente 12 recldx = recldMx ∗ ; 60 H∗ Igual que recldnacMx: Tráfico LDN ENTRANTE en minutos de 12 ; ldx = ldMx ∗ 60 H∗ Lectura del Tráfico LDN SALIENTE en Minutos de uso anual 12 ; intlinx = intlinMx ∗ 60 H∗ Lectura del Tráfico LDI ENTRANTE en minutos de uso anual 12 intloutx = intloutMx ∗ ; 60 H∗ Lectura del Tráfico LDI SALIENTE en minutos de uso anual 12 ; locx = locMx ∗ 60 H∗ Tráf.Intraprovincial Promedio en minutos de uso anual: Modelo_Integral_ACK.nb ∗L uso anual ∗L ∗L ∗L ∗L Intraprovincial Entrante + Saliente 2 ∗L Print@TableForm@Table@8ix, yPix, 13T, intraxPixT, locinxPixT, locoutxPixT, interprovinxPixT, interprovoutxPixT, ldintradxPixT, recldxPixT, ldxPixT, intlinxPixT, intloutxPixT, locxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "NombreCentral", "intrax", "locinx", "locoutx", "interprovinx", "interprovoutx", "ldintradx", "recldx", "ldx", "intlinx", "intloutx", "locx"<<DD; Print@"Por Provincia"D intrap = zerop; locinp = zerop; locoutp = zerop; interprovinp = zerop; interprovoutp = zerop; ldintradp = zerop; recldp = zerop; ldp = zerop; intlinp = zerop; intloutp = zerop; locp = zerop; Do@intrapPprovxPixTT = 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 Print@TableForm@Table@8ip, provTXTpPipT, intrapPipT, locinpPipT, locoutpPipT, interprovinpPipT, interprovoutpPipT, ldintradpPipT, recldpPipT, ldpPipT, intlinpPipT, intloutpPipT, locpPipT<, 8ip, np<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "NombreProvincia", "intrap", "locinp", "locoutp", "interprovinp", "interprovoutp", "ldintradp", "recldp", "ldp", "intlinp", "intloutp", "locp"<<DD; Print@"Por Departamento"D; intrad = zerod; locind = zerod; locoutd = zerod; interprovind = zerod; interprovoutd = zerod; ldintradd = zerod; recldd = zerod; ldd = zerod; intlind = zerod; intloutd = zerod; locd = zerod; Do@intradPdeptxPixTT = 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 Print@TableForm@Table@8id, deptTXTdPidT, intradPidT, locindPidT, locoutdPidT, interprovindPidT, interprovoutdPidT, ldintraddPidT, reclddPidT, lddPidT, intlindPidT, intloutdPidT, locdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "NombreDepartamento", "intrad", "locind", "locoutd", "interprovind", "interprovoutd", "ldintradd", "recldd", "ldd", "intlind", "intloutd", "locd"<<DD; Modelo_Integral_ACK.nb PrintB StyleB "HORA CARGADA EN ERLANGS", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"Por Central"D; intraHC1x ; intraHCx = 60 H∗ Tráfco Intranodo en minutos de hora cargada ∗L locinHC1x locinHCx = ; 60 H∗ Tráfico Intraprovincial Entrante en Minutos de hora cargada ∗L locoutHC1x ; locoutHCx = 60 H∗ Tráfico Intraprovincial Saliente en Minutos de hora cargada ∗L interprovinHC1x ; interprovinHCx = 60 H∗ Tráfico Interprovincial Entrante en la Minutos de hora cargada ∗L interprovoutHC1x interprovoutHCx = ; 60 H∗ Tráfico Interprovincial Saliente en la Minutos de hora cargada ∗L ldintradHC1x ; ldintradHCx = 60 H∗ Total Trafico Interprovincial en minutos de hora cargada: Interprovincial Entrante + Interprovincial Saliente ∗L recldHC1x recldHCx = ; 60 H∗ Igual que recldnacMx: Tráfico LDN ENTRANTE en minutos de hora cargada ∗L ldHC1x ; ldHCx = 60 H∗ Lectura del Tráfico LDN SALIENTE en Minutos de hora cargada ∗L intlinHC1x ; intlinHCx = 60 H∗ Lectura del Tráfico LDI ENTRANTE en minutos de hora cargada ∗L intloutHC1x intloutHCx = ; 60 H∗ Lectura del Tráfico LDI SALIENTE en minutos de hora cargada ∗L locHC1x ; locHCx = 60 H∗ Tráf.Intraprovincial Promedio en minutos de hora cargada: HIntraprovincial Entrante + SalienteLê2 ∗L Print@TableForm@Table@8ix, yPix, 13T, intraHCxPixT, locinHCxPixT, locoutHCxPixT, interprovinHCxPixT, interprovoutHCxPixT, ldintradHCxPixT, recldHCxPixT, ldHCxPixT, intlinHCxPixT, intloutHCxPixT, locHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "NombreCentral", "intraHCx", "locinHCx", "locoutHCx", "interprovinHCx", "interprovoutHCx", "ldintradHCx", "recldHCx", "ldHCx", "intlinHCx", "intloutHCx", "locHCx"<<DD; Print@"Por Provincia"D intraHCp = zerop; locinHCp = zerop; locoutHCp = zerop; interprovinHCp = zerop; interprovoutHCp = zerop; ldintradHCp = zerop; recldHCp = zerop; ldHCp = zerop; intlinHCp = zerop; intloutHCp = zerop; locHCp = zerop; Do@intraHCpPprovxPixTT = 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 Print@TableForm@ Table@8ip, provTXTpPipT, intraHCpPipT, locinHCpPipT, locoutHCpPipT, interprovinHCpPipT, interprovoutHCpPipT, ldintradHCpPipT, recldHCpPipT, ldHCpPipT, intlinHCpPipT, intloutHCpPipT, locHCpPipT<, 8ip, np<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "NombreProvincia", "intraHCp", "locinHCp", "locoutHCp", "interprovinHCp", "interprovoutHCp", "ldintradHCp", "recldHCp", "ldHCp", "intlinHCp", "intloutHCp", "locHCp"<<DD; Print@"Por Departamento"D; intraHCd = zerod; locinHCd = zerod; locoutHCd = zerod; interprovinHCd = zerod; interprovoutHCd = zerod; ldintradHCd = zerod; recldHCd = zerod; ldHCd = zerod; intlinHCd = zerod; intloutHCd = zerod; locHCd = zerod; Do@intraHCdPdeptxPixTT = 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 Print@TableForm@Table@8id, deptTXTdPidT, intraHCdPidT, locinHCdPidT, locoutHCdPidT, interprovinHCdPidT, interprovoutHCdPidT, ldintradHCdPidT, recldHCdPidT, ldHCdPidT, intlinHCdPidT, intloutHCdPidT, locHCdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "NombreDepartamento", "intraHCd", "locinHCd", "locoutHCd", "interprovinHCd", "interprovoutHCd", "ldintradHCd", "recldHCd", "ldHCd", "intlinHCd", "intloutHCd", "locHCd"<<DD; ESTIMACION DE RUTAS DIRECTAS PrintBStyleB "ESTIMACIONES DE RUTAS DIRECTAS", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 OpenRead@"input_RutasDirectas.txt"D; RD = N@ReadList@"input_RutasDirectas.txt", Number, RecordLists → TrueDD; H∗Lectura del fichero de rutas directas∗L nrd = Length@RDD; H∗ Numero de registros en el fichero de rutas directas∗L If@consideraRD 0, Do@RDPi, 3T = 0;, 8i, nrd<D;, Print@"Se consideran Rutas Directas"DD; PrintAStyleA "ESTIMACIONES A NIVEL LOCAL", Bold, 16, Underlined, White, Background → BlueEE; H∗Trafico de salida∗L locoutRDx = zerox; restalocoutHCx = zerox; restalocoutx = zerox; Do@restalocoutHCxPidinvertxPRDPi, 1TTT = restalocoutHCxPidinvertxPRDPi, 1TTT − interprovoutHCxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T; restalocoutxPidinvertxPRDPi, 1TTT = restalocoutxPidinvertxPRDPi, 1TTT − interprovoutxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T;, 8i, nrd<D; H∗ Tráfico interprovincial saliente hacia las rutas directas en HC en minutos: Se define como negativo pues se restará del dimensionamiento necesario ∗L H∗ El tráfico interprovincial saliente en la HC en minutos se multiplica por el porcentaje del tráfico total que sale de cada nodo que corresponde a tráfico en las rutas directas ∗L ldintradHCx = ldintradHCx + restalocoutHCx; H∗ al total del tráfico interprovincial en la HC Hentrante+salienteL le resta el tráfico de las rutas directas por tráfico saliente ∗L H∗ Tráfico interprovincial saliente hacia las rutas directas en minutos de uso anuales: Se define como negativo pues se restará del dimensionamiento necesario ∗L H∗ El tráfico interprovincial saliente en minutos de uso anual se multiplica por el porcentaje del tráfico total que sale de cada nodo que corresponde a tráfico en rutas directas ∗L ldintradx = ldintradx + restalocoutx; H∗ al total del tráfico interprovincial en minutos de uso anual L 24 H al total del tráfico interprovincial en minutos de uso anual Hentrante+salienteL le resta el tráfico de las rutas directas por tráfico saliente ∗L Modelo_Integral_ACK.nb Print@"Tráfico de Salida"D; Print@ TableForm@Table@8ix, yPix, 13T, restalocoutHCxPixT, ldintradHCxPixT, restalocoutxPixT, ldintradxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "restalocoutHCx", "ldintradHCx", "restalocoutx", "ldintradx"<<DD; H∗Trafico de entrada∗L locinRDx = Table@80, 0, 0<, 8ird, nrd<D; restalocinHCx = zerox; restalocinx = zerox; RDPi, 3T >; DoBlocinRDxPiT = :idinvertxPRDPi, 1TT, idinvertxPRDPi, 2TT, interprovoutHCxPidinvertxPRDPi, 1TTT ∗ 60 restalocinHCxPidinvertxPRDPi, 2TTT = restalocinHCxPidinvertxPRDPi, 2TTT − interprovoutHCxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T; restalocinxPidinvertxPRDPi, 2TTT = restalocinxPidinvertxPRDPi, 2TTT − interprovoutxPidinvertxPRDPi, 1TTT ∗ RDPi, 3T; H∗Lo mismo para los minutos de uso∗L, 8i, nrd<F; H∗ Para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego, se toma la variable interprovoutHCx o interprovincial saliente en la HC en minutos de dichas centrales y se multiplica por su respectivo % de tráfico saliente a través de las RD, se divide entre 60 para tener Erlangs. Luego, para cada una de las centrales de destino se realiza la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L H∗ Tráfico interprovincial entrante de las rutas directas en HC en minuto: Se define como negativo pues se restará del dimensionamiento necesario ∗L H∗ Para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego, se toma la variable interprovoutHCx o interprovincial saliente de dichas centrales en minutos de HC y se multiplica por su respectivo % de tráfico saliente a través de las RD. Luego, para cada una de las centrales de destino se realiza la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L ldintradHCx = ldintradHCx + restalocinHCx; H∗ al total del tráfico interprovincial en minutos de HC Hentrante+salienteL se le resta ahora el tráfico de las rutas directas por tráfico entrante∗L H∗ Tráfico interprovincial entrante de las rutas directas en minutos de uso anuales: Se define como negativo pues se restará del dimensionamiento necesario ∗L H∗ Para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego, se toma la variable interprovoutx o interprovincial saliente anual de dichas centrales en minutos de uso y se multiplica por su respectivo % de tráfico saliente a través de las RD. Luego, para cada una de las centrales de destino se realiza la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L ldintradx = ldintradx + restalocinx; H∗ al total del tráfico interprovincial en minutos de uso anual Hentrante+salienteL le resta ahora el tráfico de las rutas directas por tráfico entrante ∗L loadRDx = locinRDx; H∗ Igual a la variable locinRDx equivalente al total de las cargas en Erlangs que entran a cada central a través de RDs Htráfico interprovincialL. Recordar que: para cada central se identifican las centrales que le envían tráfico mediante las RD. Luego, se toma la variable interprovoutHCx o interprovincial saliente en minutos de HC de dichas centrales y se multiplica por su respectivo % de tráfico saliente a través de las RD, se divide entre 60 para tener Erlangs. Luego, para cada una de las centrales de destino se realiza la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L Print@"Tráfico de Entrada"D; Print@ TableForm@Table@8ix, yPix, 13T, restalocinHCxPixT, ldintradHCxPixT, restalocinxPixT, ldintradxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "restalocinHCx", "ldintradHCx actualizado", "restalocinx", "ldintradx actualizado"<<DD; Print@"Rutas Directas"D; Print@ TableForm@Table@8loadRDxPird, 1T, yPloadRDxPird, 1T, 13T, loadRDxPird, 2T, yPloadRDxPird, 2T, 13T, loadRDxPird, 3T<, 8ird, nrd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central Origen", "ix", "Nombre Central Origen", "loadRDx"<<DD; PrintAStyleA "ESTIMACIONES A NIVEL LDN", Bold, 16, Underlined, White, Background → BlueEE; reclimaldx = recldx lima1x; H∗ Tráfico LDN ENTRANTE en minutos de uso anual en los nodos de Lima ∗L reclimaldHCx = recldHCx lima1x; H∗ Tráfico LDN ENTRANTE en HC anual en los nodos de Lima ∗L recropinterldx = recldx rop1x; H∗ Tráfico LDN ENTRANTE en minutos de uso anual en los nodos de provincias ∗L recropinterldHCx = recldHCx rop1x; H∗ Tráfico LDN ENTRANTE en HC anual en los nodos de provincias ∗L Print@TableForm@Table@8ix, yPix, 13T, reclimaldxPixT, reclimaldHCxPixT, recropinterldxPixT, recropinterldHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "reclimaldx", "reclimaldHCx", "recropinterldx", "recropinterldHCx"<<DD; 25 Modelo_Integral_ACK.nb PrintBStyleB "RESUMEN DE TRÁFICO CONMUTABLE", Bold, 16, Underlined, White, Background → RGBColorB0, PrintAStyleA 1 , 0FFF; 2 "MINUTOS DE USO", Bold, 16, Underlined, White, Background → BlueEE; switchendLocx = locinx + locoutx + ldintradx − intrax; H∗ Tráfico Local que conmuta en minutos de uso anual, se suman entonces los tráficos: Intraprovincial entrante + Intraprovincial saliente + Interprovincial Total − El tráfico intranodo Hse resta porque esta duplicado en el intraprovincialL ∗L H∗ Ojo que el tráficos de Interprovincial Total ya esta descontado el tráfico de las Rutas Directas ∗L switchendLDNx = ldx + reclimaldx + recropinterldx; H∗ Tráfico LDN que conmuta en minutos de uso anual, se suman entonces los tráficos: LDN saliente + LDN Entrante en los nodos de Lima + LDN Entrante en los nodos de Provincias ∗L H∗ Ojo que los tráficos de LDN Entrante en los nodos de Lima y LDN Entrante en los nodos de Provincias ya estan descontados del tráfico de las Rutas Directas ∗L switchendLDIx = intloutx + intlinx; H∗ Tráfico LDI que conmuta en minutos de uso anual, se suman entonces los tráficos: LDI Saliente + LDI Entrante ∗L switchendx = switchendLocx + switchendLDNx + switchendLDIx; H∗ Continuación de Switchendx ∗L TempLoc = 0; TempLDN = 0; TempLDI = 0; Do@If@remotexPixT Ï tandemxPixT idinvertxP248T, TempLoc = TempLoc + switchendLocxPixT; TempLDN = TempLDN + switchendLDNxPixT; TempLDI = TempLDI + switchendLDIxPixT;D;, 8ix, nx<D; Do@If@hostxPixT Ï tandemxPixT ≠ ix Ï tandemxPixT idinvertxP248T, TempLoc = TempLoc + switchendLocxPixT; TempLDN = TempLDN + switchendLDNxPixT; TempLDI = TempLDI + switchendLDIxPixT;D;, 8ix, nx<D; TempLoc switchendLocxP248T = ; TempLoc + TempLDN + TempLDI TempLDN switchendLDNxP248T = ; TempLoc + TempLDN + TempLDI TempLDI switchendLDIxP248T = ; TempLoc + TempLDN + TempLDI H∗ Tráfico total que conmuta en minutos de uso anual, se suman entonces los tráficos: switchendLocx + switchendLDNx + switchendLDIx ∗L H∗ Continua al final de la sección ∗L Print@TableForm@Table@8ix, yPix, 13T, switchendLocxPixT, switchendLDNxPixT, switchendLDIxPixT, switchendxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "switchendLocx", "switchendLDNx", "switchendLDIx", "switchendx"<<DD; switchendLocp = zerop; switchendLDNp = zerop; switchendLDIp = zerop; Do@switchendLocpPprovxPixTT = switchendLocpPprovxPixTT + switchendLocxPixT; switchendLDNpPprovxPixTT = switchendLDNpPprovxPixTT + switchendLDNxPixT; switchendLDIpPprovxPixTT = switchendLDIpPprovxPixTT + switchendLDIxPixT;, 8ix, nx<D; switchendp = switchendLocp + switchendLDNp + switchendLDIp; Print@TableForm@ Table@8ip, provTXTpPipT, switchendLocpPipT, switchendLDNpPipT, switchendLDIpPipT, switchendpPipT<, 8ip, np<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "switchendLocp", "switchendLDNp", "switchendLDIp", "switchendp"<<DD; H∗ Se acumula a nivel provincial el trafico Local, LDN, LDI y Total que conmuta en minutos de uso anual ∗L switchendLocd = zerod; switchendLDNd = zerod; switchendLDId = zerod; Do@switchendLocdPdeptxPixTT = switchendLocdPdeptxPixTT + switchendLocxPixT; switchendLDNdPdeptxPixTT = switchendLDNdPdeptxPixTT + switchendLDNxPixT; switchendLDIdPdeptxPixTT = switchendLDIdPdeptxPixTT + switchendLDIxPixT;, 8ix, nx<D; switchendd = switchendLocd + switchendLDNd + switchendLDId; Print@TableForm@ Table@8id, deptTXTdPidT, switchendLocdPidT, switchendLDNdPidT, switchendLDIdPidT, switchenddPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "switchendLocd", "switchendLDNd", "switchendLDId", "switchendd"<<DD; H∗ Se acumula a nivel departamental el trafico Local, LDN, LDI y Total que conmuta en minutos de uso anual ∗L PrintAStyleA "HORA CARGADA", Bold, 16, Underlined, White, Background → BlueEE; switchendHCLocx = locinHCx + locoutHCx + ldintradHCx − intraHCx; H∗ Tráfico Local que conmuta en minutos de HC, se suman entonces los tráficos: Intraprovincial entrante + Intraprovincial saliente + Interprovincial Total − El tráfico intranodo Hse resta porque esta duplicado en el intraprovincialL ∗L H∗ Ojo que el tráfico Interprovincial Total ya esta descontado del tráfico de las Rutas Directas ∗L switchendHCLDNx = ldHCx + reclimaldHCx + recropinterldHCx; H∗ Tráfico LDN que conmuta en minutos de HC, se suman entonces los L 26 H Modelo_Integral_ACK.nb Tráfico LDN que conmuta en minutos de HC, se suman entonces los tráficos: LDN saliente + LDN Entrante en los nodos de Lima + LDN Entrante en los nodos de Provincias ∗L H∗ Ojo que los tráficos LDN Entrante en los nodos de Lima y LDN Entrante en los nodos de Provincias ya estan descontados del tráfico de las Rutas Directas ∗L switchendHCLDIx = intloutHCx + intlinHCx; H∗ Tráfico LDI que conmuta en minutos de HC, se suman entonces los tráficos: LDI Saliente + LDI Entrante ∗L switchendHCx = switchendHCLocx + switchendHCLDNx + switchendHCLDIx; H∗ Tráfico total que conmuta en minutos de HC, se suman entonces los tráficos: switchendHCLocx+switchendHCLDNx+switchendHCLDIx ∗L Print@ TableForm@Table@8ix, yPix, 13T, switchendHCLocxPixT, switchendHCLDNxPixT, switchendHCLDIxPixT, switchendHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "switchendHCLocx", "switchendHCLDNx", "switchendHCLDIx", "switchendHCx"<<DD; switchendHCLocp = zerop; switchendHCLDNp = zerop; switchendHCLDIp = zerop; Do@switchendHCLocpPprovxPixTT = switchendHCLocpPprovxPixTT + switchendHCLocxPixT; switchendHCLDNpPprovxPixTT = switchendHCLDNpPprovxPixTT + switchendHCLDNxPixT; switchendHCLDIpPprovxPixTT = switchendHCLDIpPprovxPixTT + switchendHCLDIxPixT;, 8ix, nx<D; switchendHCp = switchendHCLocp + switchendHCLDNp + switchendHCLDIp; Print@TableForm@Table@ 8ip, provTXTpPipT, switchendLocpPipT, switchendHCLDNpPipT, switchendHCLDIpPipT, switchendHCpPipT<, 8ip, np<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "switchendHCLocp", "switchendHCLDNp", "switchendLDIp", "switchendHCp"<<DD; H∗ Se acumula a nivel provincial el trafico Local, LDN, LDI y Total que conmuta en minutos de HC ∗L switchendHCLocd = zerod; switchendHCLDNd = zerod; switchendHCLDId = zerod; Do@switchendHCLocdPdeptxPixTT = switchendHCLocdPdeptxPixTT + switchendLocxPixT; switchendHCLDNdPdeptxPixTT = switchendHCLDNdPdeptxPixTT + switchendLDNxPixT; switchendHCLDIdPdeptxPixTT = switchendHCLDIdPdeptxPixTT + switchendLDIxPixT;, 8ix, nx<D; switchendHCd = switchendHCLocd + switchendHCLDNd + switchendHCLDId; Print@TableForm@Table@ 8id, deptTXTdPidT, switchendHCLocdPidT, switchendHCLDNdPidT, switchendHCLDIdPidT, switchendHCdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "switchendHCLocd", "switchendHCLDNd", "switchendHCLDId", "switchendHCd"<<DD; H∗ Se acumula a nivel departamental el trafico Local, LDN, LDI y Total que conmuta en minutos HC ∗L PrintBStyleB "IDENTIFICACIÓN DE CARGAS EN ERLANGS", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 "CARGAS SATELITALES", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"MINUTOS DE USO", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA satminLocx = switchendLocx sat1x; satminLDNx = switchendLDNx sat1x; satminLDIx = switchendLDIx sat1x; satldintradx = ldintradx sat1x; satminx = HsatminLocx + satminLDNx + satminLDIxL sat1x; Print@TableForm@ Table@8ix, yPix, 13T, satminLocxPixT, satminLDNxPixT, satminLDIxPixT, satldintradxPixT, satminxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "satminLocx", "satminLDNx", "satminLDIx", "satldintradx", "switchendx"<<DD; satminLocp = zerop; satminLDNp = zerop; satminLDIp = zerop; satldintradp = zerop; satminp = zerop; Do@satminLocpPprovxPixTT = satminLocpPprovxPixTT + satminLocxPixT; satminLDNpPprovxPixTT = satminLDNpPprovxPixTT + satminLDNxPixT; satminLDIpPprovxPixTT = satminLDIpPprovxPixTT + satminLDIxPixT; satldintradpPprovxPixTT = satldintradpPprovxPixTT + satldintradxPixT; satminpPprovxPixTT = satminpPprovxPixTT + satminxPixT, 8ix, nx<D; Print@TableForm@Table@ 8ip, provTXTpPipT, satminLocpPipT, satminLDNpPipT, satminLDIpPipT, satldintradpPipT, satminpPipT<, 8ip, np<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "satminLocp", "satminLDNp", "satminLDIp", "satldintradp", "switchendp"<<DD; satminLocd = zerod; satminLDNd = zerod; satminLDId = zerod; satldintradd = zerod; satmind = zerod; Do@satminLocdPdeptxPixTT = satminLocdPdeptxPixTT + satminLocxPixT; satminLDNdPdeptxPixTT = satminLDNdPdeptxPixTT + satminLDNxPixT; satminLDIdPdeptxPixTT = satminLDIdPdeptxPixTT + satminLDIxPixT; 27 Modelo_Integral_ACK.nb satminLDIdPdeptxPixTT satminLDIdPdeptxPixTT satminLDIxPixT; satldintraddPdeptxPixTT = satldintraddPdeptxPixTT + satldintradxPixT; satmindPdeptxPixTT = satmindPdeptxPixTT + satminxPixT, 8ix, nx<D; Print@TableForm@Table@ 8id, deptTXTdPidT, satminLocdPidT, satminLDNdPidT, satminLDIdPidT, satldintraddPidT, satmindPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "satminLocd", "satminLDNd", "satminLDId", "satldintradd", "switchendd"<<DD; PrintAStyleA "HORA CARGADA", Bold, 16, Underlined, White, Background → BlueEE; satminHCLocx = switchendHCLocx sat1x; satminHCLDNx = switchendHCLDNx sat1x; satminHCLDIx = switchendHCLDIx sat1x; satldintradHCx = ldintradHCx sat1x; satminHCx = HsatldintradHCx + satminHCLDNx + satminHCLDIxL ∗ sat1x; Print@TableForm@ Table@8ix, yPix, 13T, satminHCLocxPixT, satminHCLDNxPixT, satminHCLDIxPixT, satldintradHCxPixT, satminHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "satminHCLocx", "satminHCLDNx", "satminHCLDIx", "satldintradHCx", "switchendHCx"<<DD; H∗ Total tráfico en minutos de HC que puede conmutar a nivel de Tx. satelital: Tráfico total interprovicial Hentrante+salienteL+ LDN Saliente + LDN Entrante + LDI Saliente+ LDI Entrante. Ojo que al tráfico interprovicial total ya se le descontó el tráfico de las rutas directas ∗L satminHCLocx loadsatLocx = ; 60 satminHCLDNx ; loadsatLDNx = 60 satminHCLDIx ; loadsatLDIx = 60 satminHCx loadsatx = ; 60 Print@TableForm@Table@8ix, yPix, 13T, loadsatLocxPixT, loadsatLDNxPixT, loadsatLDIxPixT, loadsatxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "loadsatLocx", "loadsatLDNx", "loadsatLDIx", "loadsatx"<<DD; H∗ Se divide el tráfico considerado para el dimensionamiento satelital entre 60 para expresarlo en Erlangs ∗L H∗ Tablas Ponderadoras ∗L satLocx = TableBIfBloadsatxPixT > 0, satLDNx = TableBIfBloadsatxPixT > 0, satLDIx = TableBIfBloadsatxPixT > 0, PrintAStyleA loadsatLocxPixT loadsatxPixT loadsatLDNxPixT loadsatxPixT loadsatLDIxPixT loadsatxPixT , 0F, 8ix, nx<F; , 0F, 8ix, nx<F; , 0F, 8ix, nx<F; "TRAMO REMOTA−CABECERA", Bold, 16, Underlined, White, Background → BlueEE; ropminremotehostLocx = Table@If@remotexPixT Ï ropxPixT, switchendLocxPixT − intraxPixT, 0D, 8ix, nx<D; ropminremotehostLDNx = Table@If@remotexPixT Ï ropxPixT, switchendLDNxPixT, 0D, 8ix, nx<D; ropminremotehostLDIx = Table@If@remotexPixT Ï ropxPixT, switchendLDIxPixT, 0D, 8ix, nx<D; ropminremotehostx = ropminremotehostLocx + ropminremotehostLDNx + ropminremotehostLDIx; Print@ TableForm@Table@8ix, yPix, 13T, ropminremotehostLocxPixT, ropminremotehostLDNxPixT, ropminremotehostLDIxPixT, ropminremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "ropminremotehostLocx", "ropminremotehostLDNx", "ropminremotehostLDIx", "ropminremotehostx"<<DD; ropminremotehostHCLocx = Table@If@remotexPixT Ï ropxPixT, switchendHCLocxPixT − intraHCxPixT, 0D, 8ix, nx<D; ropminremotehostHCLDNx = Table@If@remotexPixT Ï ropxPixT, switchendHCLDNxPixT, 0D, 8ix, nx<D; ropminremotehostHCLDIx = Table@If@remotexPixT Ï ropxPixT, switchendHCLDIxPixT, 0D, 8ix, nx<D; ropminremotehostHCx = ropminremotehostHCLocx + ropminremotehostHCLDNx + ropminremotehostHCLDIx; Print@TableForm@Table@8ix, yPix, 13T, ropminremotehostHCLocxPixT, ropminremotehostHCLDNxPixT, ropminremotehostHCLDIxPixT, ropminremotehostHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "ropminremotehostHCLocx", "ropminremotehostHCLDNx", "ropminremotehostHCLDIx", "ropminremotehostHCx"<<DD; H∗ Para las centrales remotas y de provincias se toma el tráfico total considerado como tráfico que conmuta y se le resta el tráfico intranodo pues no pasa por la jerarquía R−H ∗L limaminremotehostLocx = HswitchendLocx − intraxL Hlima1x ∗ remote1xL; limaminremotehostLDNx = HswitchendLDNxL Hlima1x ∗ remote1xL; limaminremotehostLDIx = HswitchendLDIxL Hlima1x ∗ remote1xL; limaminremotehostx = limaminremotehostLocx + limaminremotehostLDNx + limaminremotehostLDIx; Print@ TableForm@Table@8ix, yPix, 13T, limaminremotehostLocxPixT, limaminremotehostLDNxPixT, limaminremotehostLDIxPixT, limaminremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "limaminremotehostLocx", "limaminremotehostLDNx", "limaminremotehostLDIx", "limaminremotehostx"<<DD; limaminremotehostHCLocx = HswitchendHCLocx − intraHCxL ∗ Hlima1x ∗ remote1xL; limaminremotehostHCLDNx = HswitchendHCLDNxL ∗ Hlima1x ∗ remote1xL; limaminremotehostHCLDIx = HswitchendHCLDIxL ∗ Hlima1x ∗ remote1xL; limaminremotehostHCx = limaminremotehostHCLocx + limaminremotehostHCLDNx + limaminremotehostHCLDIx; Print@TableForm@Table@8ix, yPix, 13T, limaminremotehostHCLocxPixT, < D 28 Modelo_Integral_ACK.nb Print@TableForm@Table@8ix, yPix, 13T, limaminremotehostHCLocxPixT, limaminremotehostHCLDNxPixT, limaminremotehostHCLDIxPixT, limaminremotehostHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "limaminremotehostHCLocx", "limaminremotehostHCLDNx", "limaminremotehostHCLDIx", "limaminremotehostHCx"<<DD; H∗ Para las centrales remotas y de Lima se toma el tráfico total considerado como tráfico que conmuta y se le resta el tráfico intranodo pues no pasa por la jerarquía R−H ∗L minremotehostLocx = rop1x ropminremotehostLocx + lima1x limaminremotehostLocx; minremotehostLDNx = rop1x ropminremotehostLDNx + lima1x limaminremotehostLDNx; minremotehostLDIx = rop1x ropminremotehostLDIx + lima1x limaminremotehostLDIx; minremotehostx = rop1x ropminremotehostx + lima1x limaminremotehostx; Print@TableForm@ Table@8ix, yPix, 13T, minremotehostLocxPixT, minremotehostLDNxPixT, minremotehostLDIxPixT, minremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "minremotehostLocx", "minremotehostLDNx", "minremotehostLDIx", "minremotehostx"<<DD; minremotehostLocd = zerod; minremotehostLDNd = zerod; minremotehostLDId = zerod; minremotehostd = zerod; Do@minremotehostLocdPdeptxPixTT = minremotehostLocdPdeptxPixTT + minremotehostLocxPixT; minremotehostLDNdPdeptxPixTT = minremotehostLDNdPdeptxPixTT + minremotehostLDNxPixT; minremotehostLDIdPdeptxPixTT = minremotehostLDIdPdeptxPixTT + minremotehostLDIxPixT; minremotehostdPdeptxPixTT = minremotehostdPdeptxPixTT + minremotehostxPixT, 8ix, nx<D; Print@TableForm@Table@8id, deptTXTdPidT, minremotehostLocdPidT, minremotehostLDNdPidT, minremotehostLDIdPidT, minremotehostdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "minremotehostLocd", "minremotehostLDNd", "minremotehostLDId", "minremotehostd"<<DD; minremotehostHCLocx = rop1x ∗ ropminremotehostHCLocx + lima1x ∗ limaminremotehostHCLocx; minremotehostHCLDNx = rop1x ∗ ropminremotehostHCLDNx + lima1x ∗ limaminremotehostHCLDNx; minremotehostHCLDIx = rop1x ∗ ropminremotehostHCLDIx + lima1x ∗ limaminremotehostHCLDIx; minremotehostHCx = rop1x ∗ ropminremotehostHCx + lima1x ∗ limaminremotehostHCx; Print@TableForm@Table@8ix, yPix, 13T, minremotehostHCLocxPixT, minremotehostHCLDNxPixT, minremotehostHCLDIxPixT, minremotehostHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "minremotehostHCLocx", "minremotehostHCLDNx", "minremotehostHCLDIx", "minremotehostHCx"<<DD; H∗ Para Todas las centrales remotas se toma el tráfico total considerado como tráfico que conmuta y se le resta el tráfico intranodo pues no pasa por la jerarquía R−H ∗L loadremotehostLocx = loadremotehostLDNx = loadremotehostLDIx = loadremotehostx = minremotehostHCLocx ; 60 minremotehostHCLDNx ; 60 minremotehostHCLDIx ; 60 minremotehostHCx ; 60 Print@TableForm@Table@8ix, yPix, 13T, loadremotehostLocxPixT, loadremotehostLDNxPixT, loadremotehostLDIxPixT, loadremotehostxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "loadremotehostLocx", "loadremotehostLDNx", "loadremotehostLDIx", "loadremotehostx"<<DD; H∗ Para todas las remotas se divide el tráfico conmutable Local, LDN, LDI y TOTAL entre 60 para identificar la carga correspondiente en Erlangs en el nivel R−H ∗L PrintAStyleA "TRAMO CABECERA−TANDEM", Bold, 16, Underlined, White, Background → BlueEE; H∗ A partir de aquí se retira la condición que excluye los satelitales ∗L ropminhosttandemLocx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendLocpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D + If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D; ropminhosttandemLDNx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendLDNpPprovxPixTT, 0D, 8ix, nx<D; ropminhosttandemLDIx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendLDIpPprovxPixTT, 0D, 8ix, nx<D; ropminhosttandemx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D + If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D; Print@TableForm@Table@8ix, yPix, 13T, ropminhosttandemLocxPixT, ropminhosttandemLDNxPixT, ropminhosttandemLDIxPixT, ropminhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "ropminhosttandemLocx", "ropminhosttandemLDNx", "ropminhosttandemLDIx", "ropminhosttandemx"<<DD; ropminhosttandemHCLocx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendHCLocpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL + If@satxPixT, intraHCpPprovxPixTT, 0D, 0D, 8ix, nx<D; ropminhosttandemHCLDNx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendHCLDNpPprovxPixTT, 0D, 8ix, nx<D; ropminhosttandemHCLDIx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendHCLDIpPprovxPixTT, 0D, 8ix, nx<D; ropminhosttandemHCx = Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, D 29 Modelo_Integral_ACK.nb ropminhosttandemHCx Table@If@hostxPixT Ï ropxPixT Ï tandemxPixT ixH Ï satxPixT L, switchendHCpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL, 0D + If@satxPixT, intraHCpPprovxPixTT, 0D, 8ix, nx<D; Print@TableForm@Table@8ix, yPix, 13T, ropminhosttandemHCLocxPixT, ropminhosttandemHCLDNxPixT, ropminhosttandemHCLDIxPixT, ropminhosttandemHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "ropminhosttandemHCLocx", "ropminhosttandemHCLDNx", "ropminhosttandemHCLDIx", "ropminhosttandemHCx"<<DD; H∗ Para las centrales que: son Host, son de provincias, no es satelital, y no es considerada la Tandem de su departamento: Se toma el tráfico total considerado como conmutable a nivel de toda su provincia restandole los siguiente: El tráfico total Intraprovincial Entrante de la provincia, El tráfico total Intraprovincial Saliente de la provincia, y el tráfico Intranodo. Nótese que el tráfico restado es el que no pasa por el nivel H−T ∗L limaminhosttandemLocx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendLocpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D + If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D; limaminhosttandemLDNx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendLDNpPprovxPixTT, 0D, 8ix, nx<D; limaminhosttandemLDIx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendLDIpPprovxPixTT, 0D, 8ix, nx<D; limaminhosttandemx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendpPprovxPixTT − HlocinpPprovxPixTT + locoutpPprovxPixTT − intrapPprovxPixTTL, 0D + If@satxPixT, intrapPprovxPixTT, 0D, 8ix, nx<D; Print@TableForm@Table@8ix, yPix, 13T, limaminhosttandemLocxPixT, limaminhosttandemLDNxPixT, limaminhosttandemLDIxPixT, limaminhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "limaminhosttandemLocx", "limaminhosttandemLDNx", "limaminhosttandemLDIx", "limaminhosttandemx"<<DD; limaminhosttandemHCLocx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendHCLocpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL + If@satxPixT, intraHCpPprovxPixTT, 0D, 0D, 8ix, nx<D; limaminhosttandemHCLDNx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendHCLDNpPprovxPixTT, 0D, 8ix, nx<D; limaminhosttandemHCLDIx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ix H∗ϬsatxPixT∗L, switchendHCLDIpPprovxPixTT, 0D, 8ix, nx<D; limaminhosttandemHCx = Table@If@hostxPixT Ï limaxPixT Ï tandemxPixT ≠ ixH∗ϬsatxPixT∗L, switchendHCpPprovxPixTT − HlocinHCpPprovxPixTT + locoutHCpPprovxPixTT − intraHCpPprovxPixTTL, 0D + If@satxPixT, intraHCpPprovxPixTT, 0D, 8ix, nx<D; Print@TableForm@Table@8ix, yPix, 13T, limaminhosttandemHCLocxPixT, limaminhosttandemHCLDNxPixT, limaminhosttandemHCLDIxPixT, limaminhosttandemHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "limaminhosttandemHCLocx", "limaminhosttandemHCLDNx", "limaminhosttandemHCLDIx", "limaminhosttandemHCx"<<DD; H∗ Para las centrales que: son Host, son de Lima, no es satelital, y no es considerada la Tandem de su departamento: Se toma el tráfico total considerado como conmutable a nivel de toda su provincia restandole los siguiente: El tráfico total Intraprovincial Entrante de la provincia, El tráfico total Intraprovincial Saliente de la provincia, y el tráfico Intranodo. Nótese que el tráfico restado es el que no pasa por el nivel H−T ∗L minhosttandemLocx = rop1x ∗ ropminhosttandemLocx + lima1x ∗ limaminhosttandemLocx; minhosttandemLDNx = rop1x ∗ ropminhosttandemLDNx + lima1x ∗ limaminhosttandemLDNx; minhosttandemLDIx = rop1x ∗ ropminhosttandemLDIx + lima1x ∗ limaminhosttandemLDIx; minhosttandemx = rop1x ∗ ropminhosttandemx + lima1x ∗ limaminhosttandemx; Print@TableForm@ Table@8ix, yPix, 13T, minhosttandemLocxPixT, minhosttandemLDNxPixT, minhosttandemLDIxPixT, minhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "minhosttandemLocx", "minhosttandemLDNx", "minhosttandemLDIx", "minhosttandemx"<<DD; minhosttandemLocd = zerod; minhosttandemLDNd = zerod; minhosttandemLDId = zerod; minhosttandemd = zerod; Do@minhosttandemLocdPdeptxPixTT = minhosttandemLocdPdeptxPixTT + minhosttandemLocxPixT; minhosttandemLDNdPdeptxPixTT = minhosttandemLDNdPdeptxPixTT + minhosttandemLDNxPixT; minhosttandemLDIdPdeptxPixTT = minhosttandemLDIdPdeptxPixTT + minhosttandemLDIxPixT; minhosttandemdPdeptxPixTT = minhosttandemdPdeptxPixTT + minhosttandemxPixT, 8ix, nx<D; Print@TableForm@Table@8id, deptTXTdPidT, minhosttandemLocdPidT, minhosttandemLDNdPidT, minhosttandemLDIdPidT, minhosttandemdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "minhosttandemLocd", "minhosttandemLDNd", "minhosttandemLDId", "minhosttandemd"<<DD; minhosttandemHCLocx = rop1x ∗ ropminhosttandemHCLocx + lima1x ∗ limaminhosttandemHCLocx; minhosttandemHCLDNx = rop1x ∗ ropminhosttandemHCLDNx + lima1x ∗ limaminhosttandemHCLDNx; minhosttandemHCLDIx = rop1x ∗ ropminhosttandemHCLDIx + lima1x ∗ limaminhosttandemHCLDIx; minhosttandemHCx = rop1x ∗ ropminhosttandemHCx + lima1x ∗ limaminhosttandemHCx; Print@TableForm@Table@8ix, yPix, 13T, minhosttandemHCLocxPixT, minhosttandemHCLDNxPixT, minhosttandemHCLDIxPixT, minhosttandemHCxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "minhosttandemHCLocx", "minhosttandemHCLDNx", "minhosttandemHCLDIx", "minhosttandemHCx"<<DD; 30 "minhosttandemHCLocx", "minhosttandemHCLDNx", "minhosttandemHCLDIx", "minhosttandemHCx"<<DD; H∗Sumando los dos resultados previos HLima+ProvinciasL obtenemos el tráfico total que es conmutable a nivel H−T∗L loadhosttandemLocx = loadhosttandemLDNx = loadhosttandemLDIx = loadhosttandemx = Modelo_Integral_ACK.nb minhosttandemHCLocx ; 60 minhosttandemHCLDNx ; 60 minhosttandemHCLDIx ; 60 minhosttandemHCx ; 60 Print@TableForm@Table@8ix, yPix, 13T, loadhosttandemLocxPixT, loadhosttandemLDNxPixT, loadhosttandemLDIxPixT, loadhosttandemxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "loadhosttandemLocx", "loadhosttandemLDNx", "loadhosttandemLDIx", "loadhosttandemx"<<DD; H∗Para convertir los minutos a Erlangs∗L H∗ Se divide el tráfico total considerado como conmutable a nivel H− T entre 60 para identificar las cargas en Erlangs ∗L ESTIMACION DE TRONCALES Y E1s DE VOZ PrintBStyleB "FÓRMULA DE ERLANG B EN GENERAL", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"Definición de la función CalcTrunk"D; H∗ ERLANGB ProbLoss@λ_,n_D:= λn n! ⁄nj=0 λj ; ∗L j! H∗ Formula para hallar el número de troncales, basado en la fórmula de Erlang B ∗L 1 S ∗ n CalcTrunk@λ_, p_D := ModuleB8n, S<, n = 0; S = 1; IfBλ > 0 Ï p < 1, WhileB > p, n = n + 1; S = + 1;F;, n = 0F; nF; S λ H∗ Se define esta función para evitar estar calculando manualmente las cargas con procedimientos que son iguales a lo largo de todo el código.∗L PrintBStyleB "ESTIMACIÓN DEL NÚMERO DE TRONCALES Y DE E1s DE VOZ", Bold, 16, Underlined, White, Background → RGBColorB0, PrintAStyleA 1 , 0FFF; 2 "A NIVEL SATELITAL", Bold, 16, Underlined, White, Background → BlueEE; trunksatx = zerox; e1satx = zerox; Do@If@deptxPixT ≠ MADREDEDIOS, trunksatxPixT = CalcTrunk@loadsatxPixT, probD;D;, 8ix, nx<D; CeilingA DoBe1satxPixT = CeilingB trunksatx PixT E 30 compresDCME F, 8ix, nx<F; Print@TableForm@ Table@8ix, yPix, 13T, trunksatxPixT, e1satxPixT<, 8ix, Select@Range@nxD, trunksatxPT > 0 Í e1satxPT > 0 &D<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "trunksatx", "e1satx"<<DD; H∗ Se estima el número de troncales a nivel Satelital sobre la base de las cargas en Erlangs estimadas en la sección anterior ∗L H∗ A partir del número de troncales estimados se estima el núemro de E1s correspondientes. Para ello se divide el número de troncales entre 30 ∗L PrintAStyleA "A NIVEL DE RUTAS DIRECTAS", Bold, 16, Underlined, White, Background → BlueEE; trunkRDx = Table@8loadRDxPird, 1T, loadRDxPird, 2T, CalcTrunk@loadRDxPird, 3T, probD<, 8ird, nrd<D; Print@TableForm@Table@8ird, trunkRDxPird, 1T, yPtrunkRDxPird, 1T, 13T, trunkRDxPird, 2T, yPtrunkRDxPird, 2T, 13T, trunkRDxPird, 3T<, 8ird, nrd<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ird", "ix Origen", "Nombre Central Origen", "ix Destino", "Nombre Central Destino", "trunkRDx"<<DD; e1RDx = zerox; trunkRDx Pird ,3T 30 F;, 8ird, nrd<F; fiberfill Print@TableForm@Table@8ix, yPix, 13T, e1RDxPixT<, 8ix, Select@Range@nxD, e1RDxPT > 0 &D<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "e1RDx"<<DD; H∗ Se estima el número de troncales correspondiente al tráfico de las Rutas Directas. La variable loadRDx equivalente al total de las cargas en Erlangs que entran a cada central a través de RDs. Recordar que para cada central se identificó las centrales que le envían tráfico mediante las RD. Luego, se tomó la variable interprovoutHCx o interprovincial saliente en minutos de HC de dichas centrales y se multiplicó por su respectivo % de tráfico saliente a través de las RD, se dividió entre 60 para tener Erlangs. Luego, para cada una de las centrales de destino se realizó la sumatoria de los resultados estimados en las centrales que le envían tráfico por las RD ∗L H∗ A partir del número de troncales de las RDS se estima el núemro de E1s correspondientes. Se divide entre 30 y entre el factor de utilización ∗L DoBe1RDxPtrunkRDxPird, 1TT = e1RDxPtrunkRDxPird, 1TT + CeilingB 31 Modelo_Integral_ACK.nb PrintAStyleA "A NIVEL REMOTA−CABECERAS", Bold, 16, Underlined, White, Background → BlueEE; trunkremotehostx = zerox; e1remotehostx = zerox; DoBtrunkremotehostxPixT = CalcTrunk@loadremotehostxPixT, probD; F;, fiberfill trunkremotehostxPixT IfBfiberxPixT, e1remotehostxPixT = CeilingB IfBsatxPixT, e1remotehostxPixT = CeilingB trunkremotehostx PixT 30 30 trunkremotehostx PixT 30 F;, F;F;F;, 8ix, nx<F; radiofill Print@TableForm@Table@8ix, yPix, 13T, trunkremotehostxPixT, e1remotehostxPixT<, 8ix, Select@Range@nxD, trunkremotehostxPT > 0 Í e1remotehostxPT > 0 &D<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "trunkremotehostx", "e1remotehostx"<<DD; H∗ Se estima el número de troncales a nivel RH sobre la base de las cargas en Erlangs estimadas en la sección anterior ∗L H∗ A partir del número de troncales estimados en el tramo RH se estima el núemro de E1s correspondientes. Se divide entre 30 y entre el factor de utilización que corresponde según la tecnología de transmisión empleada en cada central ∗L TOTALE1 = 0; TOTALE1 = Plus @@ e1remotehostx; e1remotehostxPixT = CeilingB PrintAStyleA "A NIVEL CABECERAS−TANDEM", Bold, 16, Underlined, White, Background → BlueEE; trunkhosttandemx = zerox; e1hosttandemx = zerox; DoBIfBhost1xPixT 1 Ï tandemxPixT idinvertxP248T, trunkhosttandemxPixT = CalcTrunkB loadhosttandemxPixT , probF;, 2 trunkhosttandemxPixT = CalcTrunk@loadhosttandemxPixT, probD;F;, 8ix, nx<F; DoBIfBfiberxPixT, e1hosttandemxPixT = CeilingB trunkhosttandemx PixT 30 fiberfill IfBsatxPixT, e1hosttandemxPixT = CeilingB trunkhosttandemx PixT 30 compresDCME e1hosttandemxPixT = CeilingB trunkhosttandemx PixT 30 radiofill F;, F;, F;F;F;, 8ix, nx<F; DoBIfBhost1xPixT 1 Ï tandemxPixT idinvertxP248T, IfBsat1xPixT 1, e1hosttandemxPixT = CeilingB 2 e1hosttandemxPixT compresDCME F;, e1hosttandemxPixT = 2 e1hosttandemxPixT;F;F;, 8ix, nx<F; e1hosttandemx = e1hosttandemx + e1RDx; Print@TableForm@Table@8ix, yPix, 13T, trunkhosttandemxPixT, e1hosttandemxPixT<, 8ix, Select@Range@nxD, trunkhosttandemxPT > 0 Í e1hosttandemxPT > 0 &D<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "trunkhosttandemx", "e1hosttandemx"<<DD; H∗ Se estima el número de troncales a nivel HT sobre la base de las cargas en Erlangs estimadas en la sección anterior ∗L H∗ A partir del número de troncales estimados en el tramo HT se estima el núemro de E1s correspondientes. Se divide entre 30 y entre el factor de utilización que corresponde según la tecnología de transmisión empleada en cada central ∗L TOTALE1 = TOTALE1 + Plus @@ e1remotehostx; trunkrdx = zerox; Do@trunkrdxPtrunkRDxPird, 1TT = trunkrdxPtrunkRDxPird, 1TT + trunkRDxPird, 3T; trunkrdxPtrunkRDxPird, 2TT = trunkrdxPtrunkRDxPird, 2TT + trunkRDxPird, 3T;, 8ird, nrd<D; trunkx = Table@remote1xPixT ∗ trunkremotehostxPixT + host1xPixT ∗ HtrunkhosttandemxPixT ∗ If@deptxPixT LIMA, 2, 1D + trunkrdxPixTL, 8ix, nx<D; Do@If@remotexPixT, trunkxPallhostxPixTT = trunkxPallhostxPixTT + trunkremotehostxPixTD; If@hostxPixT Ï tandemxPixT ≠ ix, trunkxPtandemxPixTT = trunkxPtandemxPixTT + trunkhosttandemxPixTD;, 8ix, nx<D; Print@TableForm@Table@8ix, yPix, 13T, trunkxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "trunkx"<<DD; H∗ Identificación del total de troncales asociadas a cada central. Para las centrales remotas es aplicable el total trunkremotehostx, mientras que para las cabeceras es aplicable el total trunkhosttandemx + trunksatx. A las centrales cabeceras les agrega las troncales de sus remotas asociadas Hlos trunkremotehostx de sus remotasL. A las centrales Tandem le suma además las troncales de sus cabeceras asociadas Hlos trunkhosttandemx de sus cabeceras asociadas ∗L PrintBStyleB"ESTIMACIÓN DE CARGAS EN E1s ASOCIADAS AL SERVICIO ADSL", 1 , 0FFF; 2 ADSL", Bold, 16, Underlined, White, Background → BlueEE; Bold, 16, Underlined, White, Background → RGBColorB0, PrintAStyleA"CIRCUITOS 32 Modelo_Integral_ACK.nb Print@"demandasADSL1"D; OpenRead@"Demandas_ADSL_2005OrdTotal_6Pops.txt"D; demandasADSL1 = ReadList@"Demandas_ADSL_2005OrdTotal_6Pops.txt", 8Word, Word, Word, Real, Real, Real, Real, Real, Real, Real<D; Close@"Demandas_ADSL_2005OrdTotal_6Pops.txt"D; Print@"Localidades"D; Localidades = Length@demandasADSL1D; Print@LocalidadesD; H∗ Todas las Localidades con servicio ADSL ∗L Print@TableForm@Table@Prepend@Table@demandasADSL1Pi, jT, 8j, 1, 10<D, iD, 8i, Localidades<D, TableDirections → 8Column, Row<, TableAlignments → Right, TableSpacing → 80, 1<, TableHeadings → 8None, 8"Nro", "Departamento", "Nombre", "Pop", "Id Central", "2000", "600", "400", "200", "100", "Plus"<<DD; H∗Importación de la demanda de cada año∗L Print@"equivADSL"D; equivADSL = Table@8i, idinvertxPdemandasADSL1Pi, 4TT<, 8i, Localidades<D; Print@TableFormequivADSLD; H∗Se utiliza un input para la equivalencia entre Localidad ADSL y Central en la red Fija Ya no se utiliza el archivo input_equiv_ADSL.txt∗L Print@"neq"D; neq = Length@equivADSLD; Print@neqD; Print@"EquivADSLFija"D; EquivADSLFija = Table@0, 8ix, nx<D; Do@ If@equivADSLPieq, 2T ≠ 0, EquivADSLFijaPequivADSLPieq, 2TT = equivADSLPieq, 1T;D;, 8ieq, neq<D; Print@EquivADSLFijaD; H∗ lista de nodos ATM en Lima∗L OpenRead@"NodosATMLima_6Pops.txt"D; H∗Instruccion escondida. En texto blanco∗L CxATMLima1x = ReadList@"NodosATMLima_6Pops.txt", RealD; CxATMLimax = zerox; Do@CxATMLimaxPidinvertxPixTT = CxATMLima1xPixT, 8ix, nx<D; Print@CxATMLimaxD; Print@"sumademandasADSL"D; sumademandasADSL = Table@demandasADSL1Pi, 5T + demandasADSL1Pi, 6T + demandasADSL1Pi, 7T + demandasADSL1Pi, 8T + demandasADSL1Pi, 9T + demandasADSL1Pi, 10T, 8i, Localidades<D; Print@sumademandasADSLD; H∗Suma las demandas ∗L Print@"demandasADSL1x"D; demandasADSL1x = Table@Table@0, 8il, 6<D, 8ix, nx<D; Do@If@EquivADSLFijaPixT ≠ 0, auxLoc = EquivADSLFijaPixT; demandasADSL1xPix, 1T = demandasADSL1xPix, 1T + demandasADSL1PauxLoc, demandasADSL1xPix, 2T = demandasADSL1xPix, 2T + demandasADSL1PauxLoc, demandasADSL1xPix, 3T = demandasADSL1xPix, 3T + demandasADSL1PauxLoc, demandasADSL1xPix, 4T = demandasADSL1xPix, 4T + demandasADSL1PauxLoc, demandasADSL1xPix, 5T = demandasADSL1xPix, 5T + demandasADSL1PauxLoc, demandasADSL1xPix, 6T = demandasADSL1xPix, 6T + demandasADSL1PauxLoc, Print@TableForm@demandasADSL1xDD; H∗Distribución de las demandas a nivel departamental∗L 5T; 6T; 7T; 8T; 9T; 10T;D;, 8ix, nx<D; Print@"demandasADSL1Nuc"D; demandasADSL1Nuc = demandasADSL1x; Print@TableForm@demandasADSL1NucDD; H∗Distribución de las demandas para Nuc∗L Print@"sumademandasADSLNuc"D; sumademandasADSLNuc = Table@demandasADSL1NucPi, 1T + demandasADSL1NucPi, 2T + demandasADSL1NucPi, 3T + demandasADSL1NucP i, 4T + demandasADSL1NucPi, 5T + demandasADSL1NucPi, 6T, 8i, nx<D; Print@sumademandasADSLNucD; H∗Suma las demandas Nuc∗L 33 H Suma las demandas Nuc L Modelo_Integral_ACK.nb Print@"SumDemADSL"D; SumDemADSL = Plus @@ sumademandasADSL; Print@SumDemADSLD; H∗Suma las demandas Total ∗L Print@"demandaADSL2000"D; demandaADSL2000 = Table@demandasADSL1Pi, 5T, 8i, Localidades<D; Print@demandaADSL2000D; Print@"demandaADSL2000Nuc"D; demandaADSL2000Nuc = Table@demandasADSL1NucPix, 1T, 8ix, nx<D; Print@demandaADSL2000NucD; Print@"SumComprobdemandaADSL2000"D; SumComprobdemandaADSL2000 = Plus @@ demandaADSL2000; Print@SumComprobdemandaADSL2000D; Print@"CentralesConExtensores"D; demandaADSL2000 F; 40 E;∗L H∗CentralesConExtensores=CeilingA sumademandasADSL 40 CentralesConExtensores = CeilingB Print@CentralesConExtensoresD; H∗Se ha modificado la expresion de tal manera que unicamente se consideren las lineas de 2Mbps para el empleo de los extensores ∗L H∗ Uso de extensores. ∗L Print@"SumCentralesConExtensores"D; SumCentralesConExtensores = Plus @@ CentralesConExtensores; Print@SumCentralesConExtensoresD; H∗Se añadio instruccion de suma de comprobacion de las lineas que requieres adecuacion utilizando extensores∗L PrintAStyleA"CARGA DE VELOCIDAD", Bold, 16, Underlined, White, Background → BlueEE; OpenRead@"Servicios_ADSLCambios.txt"D; velocidadADSL = ReadList@"Servicios_ADSLCambios.txt", 8Word, Real<D; Close@"Servicios_ADSLCambios.txt"D; H∗Carga las velocidades de cada uno de los tipos de servicios de ADSL∗L Print@"velocidad2000"D; velocidad2000 = velocidadADSLP1TP2T; Print@velocidad2000D; H∗Carga las velocidad 2000 en fraccion de Mbps∗L Print@"velocidad1200"D; velocidad1200 = velocidadADSLP2TP2T; Print@velocidad1200D; H∗Se ha cambiado 600 por 1200 para que corresponda con el valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L H∗velocidad600=velocidadADSLP2TP2T;∗L Print@"velocidad900"D; velocidad900 = velocidadADSLP3TP2T; Print@velocidad900D; H∗Se ha cambiado 400 por 900 para que corresponda con el valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L H∗velocidad400=velocidadADSLP3TP2T;∗L Print@"velocidad600"D; velocidad600 = velocidadADSLP4TP2T; Print@velocidad600D; H∗Se ha cambiado 200 por 600 para que corresponda con el valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L H∗velocidad200=velocidadADSLP4TP2T;∗L Print@"velocidad400"D; velocidad400 = velocidadADSLP5TP2T; Print@velocidad400D; H∗Se ha cambiado 100 por 400 para que corresponda con el L 34 H Se ha cambiado 100 por 400 para que corresponda con el valor que esta leyendo del archivo Servicios_ADSLCambios.txt∗L H∗velocidad100=velocidadADSLP5TP2T;∗L Modelo_Integral_ACK.nb Print@"velocidadPlus"D; velocidadPlus = velocidadADSLP6TP2T; Print@velocidadPlusD; H∗Carga las velocidad Plus en fraccion de Mbps∗L Print@"porcentajeBWGarant"D; porcentajeBWGarant = velocidadADSLP7TP2T; Print@porcentajeBWGarantD; H∗Carga las velocidad Plus en fraccion de Mbps∗L Print@"porcentajeBWGarantPlus"D; porcentajeBWGarantPlus = porcentajeBWGarant; Print@porcentajeBWGarantPlusD; H∗Carga las velocidad Plus en fraccion de Mbps∗L H∗Calcula el Ancho de Banda de seguridad∗L H∗Observacion: Como se variaron los nombres de las velocidades en el paso anterior se ha cambiado la siguiente instruccion para que pueda leer los valores del archivo de entrada Servicios_ADSLCambios∗L H∗BWGarant=Table@HHdemandasADSLPa,i,4T∗velocidad2000+demandasADSLPa,i,5T∗velocidad600+ demandasADSLPa,i,6T∗velocidad400+demandasADSLPa,i,7T∗velocidad200+ demandasADSLPa,i,8T∗velocidad100L∗porcentajeBWGarant+ demandasADSLPa,i,9T∗velocidadPlus∗porcentajeBWGarantPlusL,8a,Años<,8i,Localidades<D;∗L H∗Se ha añadido 10% de Overbooking Hcómo parámetro factredndL en el calculo del ancho de banda de seguridad para aprovechar las caracteristicas estadistica de las transmisiones en rafagas de los clientes, aumentando asi la utilizacion de los recursos de red∗L Print@"BWGarant"D; BWGarant = Table@HHdemandasADSL1Pi, 5T ∗ velocidad2000 + demandasADSL1Pi, 6T ∗ velocidad1200 + demandasADSL1Pi, 7T ∗ velocidad900 + demandasADSL1Pi, 8T ∗ velocidad600 + demandasADSL1Pi, 9T ∗ velocidad400L ∗ porcentajeBWGarant + demandasADSL1Pi, 10T ∗ velocidadPlus ∗ porcentajeBWGarantPlusL, 8i, Localidades<D ∗ factrednd; Print@BWGarantD; BWGarantNuc = Table@HHdemandasADSL1NucPin, 1T ∗ velocidad2000 + demandasADSL1NucPin, 2T ∗ velocidad1200 + demandasADSL1NucPin, 3T ∗ velocidad900 + demandasADSL1NucPin, 4T ∗ velocidad600 + demandasADSL1NucPin, 5T ∗ velocidad400L ∗ porcentajeBWGarant + demandasADSL1NucPin, 6T ∗ velocidadPlus ∗ porcentajeBWGarantPlusL, 8in, nx<D ∗ factrednd; Print@BWGarantNucD; H∗ Calcula el Ancho de Banda de seguridad, usamos aquí y sólo aquí el factor de redundancia ∗L Print@"SumBWGarant"D; SumBWGarant = Plus @@ BWGarant; Print@SumBWGarantD; Print@"SumBWGarantNuc"D; SumBWGarantNuc = Plus @@ BWGarantNuc; Print@SumBWGarantNucD; PrintA StyleA"PRECIOS DE CLUSTER_FULL, SHELF_FULL, TARJ_LT_24, SHELF_ARMARIO, SHELF_EXTENSION, TARJ_NT_8_MBPS, TARJ_NT_34_MBPS, TARJ_NT_155_MBPS", Bold, 16, Underlined, White, Background → BlueEE; Print@"preciosADSL"D; OpenRead@"Precios_DSLAM.txt"D; preciosADSL = ReadList@"Precios_DSLAM.txt", 8Word, Real<D; Close@"Precios_DSLAM.txt"D; Print@preciosADSLD; Print@"precioClusterFull"D; precioClusterFull = preciosADSLP1TP2T; Print@precioClusterFullD; Print@"precioShelfFull"D; 35 Print@"precioShelfFull"D; precioShelfFull = preciosADSLP2TP2T; Print@precioShelfFullD; Print@"precioTarjLT24"D; precioTarjLT24 = preciosADSLP3TP2T; Print@precioTarjLT24D; Print@"precioShelf"D; precioShelf = preciosADSLP4TP2T; Print@precioShelfD; Print@"precioArmario"D; precioArmario = preciosADSLP5TP2T; Print@precioArmarioD; Print@"precioShelfExtension"D; precioShelfExtension = preciosADSLP6TP2T; Print@precioShelfExtensionD; Print@"precioTarjNT8"D; precioTarjNT8 = preciosADSLP7TP2T; Print@precioTarjNT8D; Print@"precioTarjNT34"D; precioTarjNT34 = preciosADSLP8TP2T; Print@precioTarjNT34D; Print@"precioTarjNT155"D; precioTarjNT155 = preciosADSLP9TP2T; Print@precioTarjNT155D; Print@"precioPreconcentrClusterFull"D; precioPreconcentrClusterFull = preciosADSLP10TP2T; Print@precioPreconcentrClusterFullD; Print@"precioPreconcentrShelfFull"D; precioPreconcentrShelfFull = preciosADSLP11TP2T; Print@precioPreconcentrShelfFullD; Print@"precioTarjLT4E1"D; precioTarjLT4E1 = preciosADSLP12TP2T; Print@precioTarjLT4E1D; Print@"precioExtensorADSL"D; precioExtensorADSL = preciosADSLP13TP2T; Print@precioExtensorADSLD; PrintAStyleA "Parámetros de Máximo número de usuarios por componente: Cluster, Shelf y Tarj", Bold, 16, Underlined, White, Background → BlueEE; Print@"parametrosDSLAM"D; OpenRead@"Parametros_DSLAM.txt"D; parametrosDSLAM = ReadList@"Parametros_DSLAM.txt", 8Word, Real<D; Close@"Parametros_DSLAM.txt"D; Print@parametrosDSLAMD; H∗Parámetros de Máximo número de usuarios por componente: Cluster, Shelf y Tarj∗L Print@"maxUsrCluster"D; maxUsrCluster = parametrosDSLAMP1TP2T; Print@maxUsrClusterD; H∗ Parámetros de Máximo número de usuarios por Cluster ∗L Print@"maxUsrShelf"D; maxUsrShelf = parametrosDSLAMP2TP2T; Print@maxUsrShelfD; H∗ Parámetros de Máximo número de usuarios por Shelf ∗L Print@"maxUsrTarj"D; Modelo_Integral_ACK.nb 36 Print@"maxUsrTarj"D; maxUsrTarj = parametrosDSLAMP3TP2T; Print@maxUsrTarjD; H∗ Parámetros de Máximo número de usuarios por Tarjeta ∗L PrintAStyleA"Número Modelo_Integral_ACK.nb de componentes que forman los DSLAMs por ubicación", Bold, 16, Underlined, White, Background → BlueEE; Print@"numeroClusterFull"D; numeroClusterFull = TableBFloorB sumademandasADSLPiT F, 8i, Localidades<F; maxUsrCluster Print@numeroClusterFullD; H∗ Número de los Clusters completos ∗L Print@"numeroClusterFullNuc"D; sumademandasADSLNuc numeroClusterFullNuc = FloorB F; maxUsrCluster Print@numeroClusterFullNucD; H∗ Número de los Clusters completos Nuc ∗L Print@"SumnumeroClusterFull"D; Sum numeroClusterFull = Plus @@ numeroClusterFull; Print@SumnumeroClusterFullD; H∗Instruccion añadida para verificacion de suma de numero de clusters totalmente ocupados∗L P rint@"numeroShelfFull"D; numeroShelfFull = sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster F, 8i, Localidades<F; TableBFloorB maxUsrShelf Print@numeroShelfFullD; H∗ Número de los Armarios completos ∗L P rint@"numeroShelfFullNuc"D; sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster F; numeroShelfFullNuc = FloorB maxUsrShelf Print@numeroShelfFullNucD; H∗ Número de los Armarios completos Nuc ∗L Print@"SumnumeroShelfFull"D; Sum numeroShelfFull = Plus @@ numeroShelfFull; Print@Sum numeroShelfFullD; H∗Instruccion añadida para verificacion de suma de numero de Shelfs completamente ocupados∗L Print@"numeroTarjLT24"D; numeroTarjLT24 = TableBCeilingB sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster − numeroShelfFullPiT ∗ maxUsrShelf F, maxUsrTarj 8i, Localidades<F; Print@numeroTarjLT24D; H∗ Número de Tarjetas de Terminación de Línea ∗L Print@"nuermoTarjLT24Nuc"D; numeroTarjLT24Nuc = CeilingB sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster − numeroShelfFullNuc ∗ maxUsrShelf F; maxUsrTarj Print@numeroTarjLT24NucD; H∗ Número de Tarjetas de Terminación de Línea Nuc∗L Print@"SumnumeroTarjLT24"D; SumnumeroTar jLT24 = Plus @@ numeroTarjLT24; Print@Sumn umeroTarjLT24D; H∗Instruccion añadida para verificacion de suma de numero de Tarjetas de Terminacion de Linea∗L Print@"numeroArmario"D; numeroArmario = sumademandasADSLPiT − numeroClusterFullPiT ∗ maxUsrCluster TableBCeilingB F, 8i, Localidades<F; 2 maxUsrShelf 37 Modelo_Integral_ACK.nb Print@numeroArmarioD; Print@"numeroArmarioNuc"D; numeroArmarioNuc = CeilingB sumademandasADSLNuc − numeroClusterFullNuc ∗ maxUsrCluster F; 2 maxUsrShelf Print@numeroArmarioNucD; Print@"SumnumeroArmario"D; SumnumeroArmario = Plus @@ numeroArmario; Print@SumnumeroArmarioD; H∗Instruccion añadida para verificacion de suma de numero de Armarios∗L Print@"CostoDSLAMsintarjetaNT"D; CostoDSLAMsintarjetaNT = Table@HnumeroClusterFullPiT ∗ precioClusterFull + numeroShelfFullPiT ∗ precioShelfFull + numeroTarjLT24PiT ∗ precioTarjLT24 + numeroArmarioPiT ∗ precioArmario + HIf@numeroShelfFullPiT > 1, If@numeroTarjLT24PiT > 0, numeroShelfFullPiT, HnumeroShelfFullPiT − 1LD, 0DL ∗ precioShelfExtension + HIf@numeroTarjLT24PiT > 0, precioShelf, 0DLL, 8i, Localidades<D; Print@CostoDSLAMsintarjetaNTD; Print@"CostoDSLAMsintarjetaNTNuc"D; CostoDSLAMsintarjetaNTNuc = Table@0, 8i, nx<D; Print@CostoDSLAMsintarjetaNTNucD; Print@"SumCostoDSLAMsintarjetaNT"D; SumCostoDSLAMsintarjetaNT = Plus @@ CostoDSLAMsintarjetaNT; Print@SumCostoDSLAMsintarjetaNTD; H∗Instruccion añadida para verificacion de suma del costo de DSLAM sin Tarjeta de Terminacion de Red∗L Print@"BWClusterFull"D; BWClusterFull = Table@If@CostoDSLAMsintarjetaNTPiT 0, 0, BWGarantPiT HnumeroClusterFullPiT maxUsrClusterL ê HnumeroClusterFullPiT maxUsrCluster + numeroShelfFullPiT maxUsrShelf + numeroTarjLT24PiT maxUsrTarjLD, 8i, Localidades<D; Print@BWClusterFullD; Print@"BWClusterFullNuc"D; BWClusterFullNuc = Table@BWGarantNucPiT, 8i, nx<D; Print@BWClusterFullNucD; Print@"SumBWClusterFull"D; SumBWClusterFull = Plus @@ BWClusterFull; Print@SumBWClusterFullD; H∗Instruccion añadida para verificacion de suma de los anchos de banda de Clusters Totalmente ocupados∗L Print@"BWClusterParcial"D; BWClusterParcial = Table@If@CostoDSLAMsintarjetaNTPiT 0, 0, BWGarantPiT HnumeroShelfFullPiT ∗ maxUsrShelf + numeroTarjLT24PiT ∗ maxUsrTarjL ê HnumeroClusterFullPiT maxUsrCluster + numeroShelfFullPiT maxUsrShelf + numeroTarjLT24PiT maxUsrTarjLD, 8i, Localidades<D; Print@BWClusterParcialD; H∗Calcula el ancho de banda del Cluster Parcialmente ocupado∗L Print@"BWClusterParcialNuc"D; BWClusterParcialN uc = Table@0, 8i, nx<D; Print@BWClusterParcialNucD; H∗Calcula el ancho de banda del Cluster Parcialmente ocupado Nuc∗L Print@"SumBWClusterParcial"D; SumBWClusterParcial = Plus @@ BWClusterParcial; Print@SumBWClusterParcialD; H∗Instruccion añadida para verificacion de suma de los anchos de banda de Clusters parcialmente ocupados∗L Print@"TarjNTClusterFull"D; TarjNTClusterFull = 38 Modelo_Integral_ACK.nb TableBIfBBWClusterFullPiT > 0, IfBBWClusterFullPiT ≤ 8, 8, IfB BWClusterFullPiT ≤ 34, numeroClusterFullPiT BWClusterFullPiT ≤ 155, 155, "No"FFF, 0F, 8i, Localidades<F; numeroClusterFullPiT Print@TarjNTClusterFullD; 34, IfB Print@"TarjNTClusterFullNuc"D; TarjNTClusterFullNuc = Table@0, 8i, nx<D; Print@TarjNTClusterFullNucD; Print@"TarjNTClusterParcial"D; TarjNTClusterParcial = Table@HIf@BWClusterParcialPiT > 0, If@BWClusterParcialPiT ≤ 8, 8, If@BWClusterParcialPiT ≤ 34, 34, If@BWClusterParcialPiT ≤ 155, 155, "No"DDD, 0DL, 8i, Localidades<D; Print@TarjNTClusterParcialD; Print@"TarjNTClusterParcialNuc"D; TarjNTClusterParcialNuc = Table@0, 8i, nx<D; Print@TarjNTClusterParcialNucD; Print@"SumTarjNTClusterParcial"D; SumTarjNTClusterParcial = Plus @@ TarjNTClusterParcial; Print@SumTarjNTClusterParcialD; H∗Instruccion añadida para verificacion de suma de las velocidades de las Tarjetas de Terminacion para Clusters parcialmente ocupados∗LPrint@"CostoDSLAMConTarjetaNT1"D; CostoDSLAMConTarjetaNT1 = Table@HCostoDSLAMsintarjetaNTPiT + HIf@TarjNTClusterFullPiT 8, precioTarjNT8, If@TarjNTClusterFullPiT 34, precioTarjNT34, If@TarjNTClusterFullPiT 155, precioTarjNT155, 0DDDL ∗ numeroClusterFullPiT + HIf@TarjNTClusterParcialPiT 8, precioTarjNT8, If@TarjNTClusterParcialPiT 34, precioTarjNT34, If@TarjNTClusterParcialPiT 155, precioTarjNT155, 0DDDLL, 8i, Localidades<D; Plus @@ CostoDSLAMConTarjetaNT1P1T; Print@CostoDSLAMConTarjetaNT1D; H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red∗L Print@"CostoDSLAMConTarjetaNT1"D; CostoDSLAMConTarjetaNT1 = Table@HCostoDSLAMsintarjetaNTPiT + HIf@TarjNTClusterFullPiT 8, precioTarjNT8, If@TarjNTClusterFullPiT 34, precioTarjNT34, If@TarjNTClusterFullPiT 155, precioTarjNT155, 0DDDL ∗ numeroClusterFullPiT + HIf@TarjNTClusterParcialPiT 8, precioTarjNT8, If@TarjNTClusterParcialPiT 34, precioTarjNT34, If@TarjNTClusterParcialPiT 155, precioTarjNT155, 0DDDLL, 8i, Localidades<D; Plus @@ CostoDSLAMConTarjetaNT1P1T; Print@CostoDSLAMConTarjetaNT1D; H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red∗L Print@"SumCostoDSLAMConTarjetaNT1"D; SumCostoDSLAMConTarjetaNT1 = Plus @@ CostoDSLAMConTarjetaNT1; Print@SumCostoDSLAMConTarjetaNT1D; H∗Instruccion añadida para verificacion de suma de los costos del DSLAM con Tarjeta de Terminacion de Red∗L Print@"CostoDSLAMConTarjetaNT"D; CostoDSLAMConTarjetaNT = CostoDSLAMConTarjetaNT1 + HprecioExtensorADSL CentralesConExtensoresL; Print@CostoDSLAMConTarjetaNTD; H∗ Coste de los extensores, en caso de que sean necesarios∗L H∗Calcula el costo del DSLAM con Tarjeta de Terminacion de Red mas el costo del extensor de bucle de abonado donde sean necesarios∗LPrint@"SumCostoDSLAMConTarjetaNT"D; SumCostoDSLAMConTarjetaNT = Plus @@ CostoDSLAMConTarjetaNT; Print@SumCostoDSLAMConTarjetaNTD; H∗Instruccion añadida para verificacion de suma de los costos del DSLAM con Tarjeta de Terminacion de Red mas los costos de los extensores de bucle de abonado∗L Print@"InterfazSTM1HaciaPOP"D; InterfazSTM1HaciaPOP = Table@If@TarjNTClusterFullPiT 155, numeroClusterFullPiT, 0D + If@TarjNTClusterParcialPiT 155, 1, 0D, 8i, Localidades<D; Print@InterfazSTM1HaciaPOPD; Print@"InterfazSTM1HaciaPOPNuc"D; InterfazSTM1HaciaPOPNuc = Table@0, 8i, nx<D; Print@InterfazSTM1HaciaPOPNucD; 39 Print@InterfazSTM1HaciaPOPNucD; Modelo_Integral_ACK.nb Print@"SumInterfazSTM1HaciaPOP"D; SumInterfazSTM1HaciaPOP = Plus @@ InterfazSTM1HaciaPOP; Print@SumInterfazSTM1HaciaPOPD; H∗Instruccion añadida para verificacion de suma de las interfases STM−1 hacia los PoPs ATM∗L Print@"InterfazE3HaciaPOP"D; InterfazE3HaciaPOP = Table@If@TarjNTClusterFullPiT 34, numeroClusterFullPiT, 0D + If@TarjNTClusterParcialPiT 34, 1, 0D, 8i, Localidades<D; Print@InterfazE3HaciaPOPD; Print@"InterfazE3HaciaPOPNuc"D; InterfazE3HaciaPOPNuc = Table@0, 8i, nx<D; Print@InterfazE3HaciaPOPNucD; Print@"SumInterfazE3HaciaPOP"D; SumInterfazE3HaciaPOP = Plus @@ InterfazE3HaciaPOP; Print@SumInterfazE3HaciaPOPD; H∗Instruccion añadida para verificacion de suma de las interfases E−3 hacia los PoPs ATM∗L Print@"InterfazE1HaciaPOP"D; InterfazE1HaciaPOP = BWClusterParcialPiT F, 0F, 8i, Localidades<F; TableBIfBTarjNTClusterParcialPiT 8, CeilingB 2.048 Print@InterfazE1HaciaPOPD; Print@"InterfazE1HaciaPOPNuc"D; BWClusterFullNucPiT , 8i, nx<F; InterfazE1HaciaPOPNuc = TableB 2.048 Print@InterfazE1HaciaPOPNucD; Print@"SumInterfazE1HaciaPOP"D; SumInterfazE1HaciaPOP = Plus @@ InterfazE1HaciaPOP; Print@SumInterfazE1HaciaPOPD; H∗Instruccion añadida para verificacion de suma de las interfases E−1 hacia los PoPs ATM∗L Print@"NumE1Equivs"D; NumE1Equivs = Table@63 ∗ InterfazSTM1HaciaPOPPiT + 16 ∗ InterfazE3HaciaPOPPiT + InterfazE1HaciaPOPPiT, 8i, Localidades<D; Print@NumE1EquivsD; H∗Calcula el numero de E1s equivalentes por site hacia los PoPs ATM∗L Print@"NumE1EquivsNuc"D; NumE1EquivsNuc = Table@InterfazE1HaciaPOPNucPiT, 8i, nx<D; Print@NumE1EquivsNucD; H∗Calcula el numero de E1s equivalentes por site hacia los PoPs ATM∗L Print@"SumNumE1Equivs"D; SumNumE1Equivs = Plus @@ NumE1Equivs; Print@SumNumE1EquivsD; H∗Instruccion añadida para verificacion de suma del numero de E− 1 equivalentes hacia los PoPs ATM∗L H∗Carga los datos de potencia y energía∗L OpenRead@"Energia_DSLAM.txt"D; energiaADSL = ReadList@"Energia_DSLAM.txt", 8Word, Real<D; Close@"Energia_DSLAM.txt"D; Print@"CostePorWDSLAM"D; CostePorWDSLAM = energiaADSLP1TP2T; Print@CostePorWDSLAMD; Print@"WPorLineaDSLAM"D; WPorLineaDSLAM = energiaADSLP2TP2T; Print@WPorLineaDSLAMD; H∗Calcula el costo del consumo de energia del DSLAM por watio por site∗L Print@"CostoEnergiaDSLAM"D; CostoEnergiaDSLAM = Table@CostePorWDSLAM ∗ WPorLineaDSLAM ∗ sumademandasADSLPiT, 8i, Localidades<D; Print@CostoEnergiaDSLAMD; 40 Print@CostoEnergiaDSLAMD; Modelo_Integral_ACK.nb H∗Instruccion añadida para verificacion de suma de los costos de energia de los DSLAM por watio por site∗L Print@"SumCostoEnergiaDSLAM"D; SumCostoEnergiaDSLAM = Plus @@ CostoEnergiaDSLAM; Print@SumCostoEnergiaDSLAMD; PrintAStyleA"REPARTO A SERVICIOS POR DEPARTAMENTO", Bold, 16, Underlined, White, Background → BlueEE; H∗Carga de los ficheros de entrada∗L OpenRead@"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt"D; PuertosLima = ReadList@"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt", 8Word, Real, Real, Real, Real, Real<D; Close@"PuertosATM155ParaGigADSL_LIMA6PE3TOT.txt"D; H∗La primera columna es la de los departamentos de LIMA, y las restantes, el número de puertos desde 2005 a 2009∗LPuertosLima = Drop@PuertosLima, 1D; Print@"PuertosLima"D; Print@TableForm@PuertosLimaDD; Print@"NumLIMA"D; NumLIMA = Length@PuertosLimaD; Print@NumLIMAD; Print@"CabsLIMA"D; CabsLIMA = Table@Plus @@ PuertosLimaPj, kT, 8j, NumLIMA<, 8k, 2, 6<D; SumCabsLIMA = Plus @@ CabsLIMA; Print@TableForm@CabsLIMADD; Print@"SumCabsLIMA"D; SumCabsLIMA = Plus @@ CabsLIMA; Print@SumCabsLIMAD; H∗Calcula la demanda GigADSL mayorista atendida por los PoPs para servicios mayoristas en Lima∗L Print@"demADSL"D; demADSL = Table@0, 8NumLIMA<D; Do@If@PuertosLimaPj, 1T demandasADSL1Pi, 3T, demADSLPjT += sumademandasADSLPiT;D;, 8i, Localidades<, 8j, 1, NumLIMA<D; Print@demADSLD; Print@"ComprobSumDemADSL"D; ComprobSumDemADSL = Plus @@ demADSL; Print@ComprobSumDemADSLD; OpenRead@"LineasGigADSL.txt"D; LineasGigADSL = ReadList@"LineasGigADSL.txt", 8Word, Real<D; Close@"LineasGigADSL.txt"D; Print@"LineasGigADSL"D; Print@TableForm@LineasGigADSLDD; PrintAStyleA"CARGA DE LOS FICHEROS DE ENTRADA", Bold, 16, Underlined, White, Background → BlueEE; H∗ Antes de Seguir, se Trabajará con el promedio del promedio móvil de los 5 años∗L H∗Print@"PromLineasGigADSL"D; PrevLineasGigADSL=Table@HLineasGigADSLPi−1,2T+LineasGigADSLPi,2TLê2,8i,2,5<D; PromLineasGigADSL=Plus@@PrevLineasGigADSLê4; Print@PromLineasGigADSLD;∗L Print@"PorcentajeLinGigADSL"D; LineasGigADSLP1, 2T PorcentajeLinGigADSL = ; SumDemADSL Print@PorcentajeLinGigADSLD; H∗ Porcentaje de Líneas GigAdsl, es la cantidad de Líneas entre la demanda ADSL, a nivel anual ∗L H∗Calculo del numero de puertos ATM donde se consideran PoPs por departamento∗L OpenRead@"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt"D; PuertosDptos = ReadList@ "PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt", 8Word, Real, Real, Real, Real, Real<D; Close@"PuertosATM155ParaGigADSL_Departamentos6PE3TOT.txt"D; 41 Modelo_Integral_ACK.nb Close@"PuertosATM155ParaGigADSL Departamentos6PE3TOT.txt"D; H∗La primera columna es la de los departamentos de Perú, excepto Lima, y las restantes, el número de puertos desde 2005 a 2009.∗L PuertosDptos = Append@PuertosDptos, Prepend@SumCabsLIMA, "LIMA"DD; Print@"PuertosDptos"D; Print@TableForm@PuertosDptosDD; Print@"NumDPTOS"D; NumDPTOS = Length@PuertosDptosD; Print@NumDPTOSD; PrintAStyleA"Acumula las Demandas a nivel de Departamento y por año", Bold, 16, Underlined, White, Background → BlueEE; H∗Se modifico la expresion para que se acumularan las demandas atendidas por PoPs a nivel nacional y no limitarlo a la demanda por departamento debido a que los PoPs ubicados en Arequipa, La Libertad y Lima atienden al resto de departamentos∗L H∗Do@Do@If@PuertosDptosPj,1TdemandasADSLPa,i,1T, demADSLDepPa,jT+=sumademandasADSLPa,iT;D;, 8i,Localidades<,8j,1,NumDPTOS<D,8a,Años<D∗L Print@"demADSLDep"D; demADSLDep = Table@0, 8NumDPTOS − 1<D; Do@If@PuertosDptosPj, 1T demandasADSL1Pi, 3T, demADSLDepPjT += sumademandasADSLPiT;D;, 8i, Localidades<, 8j, 1, NumDPTOS<D Print@demADSLDepD; H∗Se añadio la siguiente instruccion de suma de comprobacion de la demanda de usuarios GigADSL mayoristas a nivel nacional∗L Print@"demADSLDep"D; demADSLDep = Append@demADSLDep, ComprobSumDemADSLD; Print@demADSLDepD; Print@"demADSLDep"D; demADSLDep = Append@demADSLDep, ComprobSumDemADSLD; Print@demADSLDepD; Print@"ComprobSumdemADSLDep"D; ComprobSumdemADSLDep = Plus @@ demADSLDep; Print@ComprobSumdemADSLDepD; Print@"CabsDPTOS"D; CabsDPTOS = Table@Plus @@ PuertosDptosPj, kT, 8j, NumDPTOS<, 8k, 2, 6<D; Print@TableForm@CabsDPTOSDD; H∗Se añadio la siguiente instruccion de suma de comprobacion del numero de puertos ATM donde se consideran PoPs por departamento∗L Print@"ComprobSumCabsDPTOS"D; ComprobSumCabsDPTOS = Table@Plus @@ CabsDPTOSD; Print@ComprobSumCabsDPTOSD; H∗Calcula la demanda GigADSL mayorista donde existen puertos ATM a nivel nacional∗L Print@"LinGigADSLDep"D; LinGigADSLDep = Table@0, 8NumDPTOS<D; Do@Do@If@CabsDPTOSPj, 1T ≠ 0, LinGigADSLDepPjT += demADSLDepPjTD, 8j, 1, NumDPTOS<DD Print@LinGigADSLDepD; H∗ Sumatoria de las líneas ADSL ∗L Print@"SumLinGigADSLDep"D; SumLinGigADSLDep = Plus @@ LinGigADSLDep; Print@SumLinGigADSLDepD; H∗ Se calcula el porcentaje GigADSL por departamento ∗L Print@"PorcentajesNulos"D; PorcentajesNulos = 0; Print@PorcentajesNulosD; Print@"PorcentGigADSLDep"D; PorcentGigADSLDep = IfBSumLinGigADSLDep 0, PorcentajesNulos, Print@PorcentGigADSLDepD; SumDemADSL ∗ PorcentajeLinGigADSL SumLinGigADSLDep F; 42 Print@PorcentGigADSLDepD; Modelo_Integral_ACK.nb H∗Calcula la demanda GigADSL mayorista donde existen puertos ATM en el departamento de Lima∗L Print@"LineasLimaGigADSL"D; LineasLimaGigADSL = Table@0, 8NumLIMA<D; Do@If@CabsLIMAPj, 1T ≠ 0, LineasLimaGigADSLPjT += demADSLPjTD, 8j, 1, NumLIMA<D Print@LineasLimaGigADSLD; Print@"SumLinLimaGigADSL"D; SumLinLimaGigADSL = Plus @@ LineasLimaGigADSL; Print@SumLinLimaGigADSLD; H∗Se modifico la expresion debido a que en el porcentaje de lineas GigADSL si bien se toma como dato de entrada, el valor para cada uno de los años del archivo LineasGigADSL.txt, este valor es a nivel nacional y esta incluida en la demanda anual pero no especifica que cantidad realmente corresponde a Lima y que porcentaje para el resto de departamentos por lo que haciendo los reemplazos corrientes y mas aun con la modificacion del paso anterior se obtiene el nuevo porcentaje de lineas mayoristas en Lima∗L H∗PorcentLimaGigADSL=Table@If@SumLinLimaGigADSLPaT0,PorcentajesNulosPaT, SumDemADSLPaT∗PorcentGigADSLDepPaTêSumLinLimaGigADSLPaTD,8a,Años<D;∗L Print@"PorcentLimaGigADSL"D; LineasGigADSLP1, 2T PorcentLimaGigADSL = IfBSumLinLimaGigADSL 0, PorcentajesNulos, F; SumDemADSL Print@PorcentLimaGigADSLD; H∗Calcula el porcentaje de servicios GigADSL mayoristas donde existen puertos ATM a nivel nacional∗L Print@"PorcentajealineasGigADSLDep"D; PorcentajealineasGigADSLDep = Table@If@CabsDPTOSPj, 1T ≠ 0, PorcentGigADSLDep, 0D, 8j, 1, NumDPTOS<D; Print@TableForm@PorcentajealineasGigADSLDepDD; H∗Calcula el porcentaje de servicios GigADSL mayoristas donde existen puertos ATM en el departamento de Lima∗L Print@"PorcentajealineasGigADSLLima"D; PorcentajealineasGigADSLLima = Table@If@CabsLIMAPj, 1T ≠ 0, PorcentLimaGigADSL, 0D, 8j, 1, NumLIMA<D; Print@TableForm@PorcentajealineasGigADSLLimaDD; PrintBStyleB"CÁLCULO DE LOS COSTES DE NODOS ATM", Bold, 16, Underlined, White, Background → BlueFF; H∗Calcula el numero de usuarios por site para la interfase STM−1∗L Print@"UsersSTM1"D; UsersSTM1 = Table@Min@HmaxUsrCluster ∗ InterfazSTM1HaciaPOPPiTL, sumademandasADSLPiTD, 8i, Localidades<D; Print@TableForm@UsersSTM1DD; Print@"SumaUsersSTM1"D; SumaUsersSTM1 = Table@Plus @@ UsersSTM1D; Print@SumaUsersSTM1D; Print@"xCx"D; xCx = Table@demandasADSL1Pi, 3T, 8i, Localidades<D; Print@TableForm@xCxDD; xCx1 = Length@xCxD; Print@xCx1D; Print@"UsersSTM1"D; UsersSTM1 = Table@Prepend@8UsersSTM1PiT<, xCxPiTD, 8i, Localidades<D; Print@TableForm@UsersSTM1DD; H∗Calcula el numero de usuarios por site para la interfase E3∗L Print@"UsersE3"D; UsersE3 = Table@Min@HmaxUsrCluster ∗ InterfazE3HaciaPOPPiTL, HsumademandasADSLPiT − UsersSTM1Pi, 2TLD, 8i, Localidades<D; Print@TableForm@UsersE3DD; Print@"SumUsersE3"D; SumUsersE3 = Table@Plus @@ UsersE3D; 43 SumUsersE3 Table@Plus Print@SumUsersE3D; UsersE3D; Modelo_Integral_ACK.nb Print@"UsersE3"D; UsersE3 = Table@Prepend@8UsersE3PiT<, xCxPiTD, 8i, Localidades<D; Print@TableForm@UsersE3DD; H∗Calcula el numero de usuarios por site para la interfase E1∗L Print@"UsersE1"D; UsersE1 = Table@sumademandasADSLPiT − UsersSTM1Pi, 2T − UsersE3Pi, 2T, 8i, Localidades<D; Print@TableForm@UsersE1DD; Print@"SumUsersE1"D; SumUsersE1 = Table@Plus @@ UsersE1D; Print@SumUsersE1D; Print@"UsersE1"D; UsersE1 = Table@Prepend@8UsersE1PiT<, xCxPiTD, 8i, Localidades<D; Print@TableForm@UsersE1DD; H∗Calcula el numero de usuarios hacia los Puntos de Presencia HPoPsL a nivel nacional∗L Print@"DemPorPOP"D; DemPorPOP = Table@0, 8Localidades<D; Do@If@UsersSTM1Pi, 1T ≠ UsersSTM1Pi − 1, 1T, If@UsersSTM1Pj, 1T UsersSTM1Pi, 1T, DemPorPOPPiT += sumademandasADSLPjTD, 0D, 8i, 2, Localidades<, 8j, Localidades<D Print@DemPorPOPD; Print@"DemPorPOP1"D; DemPorPOP1 = Rest@DemPorPOPD; Print@DemPorPOP1D; Print@"DemPorPOP2"D; DemPorPOP2 = 0; Do@If@UsersSTM1Pj, 1T UsersSTM1P1, 1T, DemPorPOP2 += sumademandasADSLPjT, 0D, 8j, Localidades<D Print@DemPorPOP2D; Print@"DemPorPOP3"D; DemPorPOP3 = Prepend@DemPorPOP1, DemPorPOP2D; Print@DemPorPOP3D; Print@"InterfazSTM1"D; InterfazSTM1 = Table@0, 8Localidades<D; Do@If@UsersSTM1Pi, 1T ≠ UsersSTM1Pi − 1, 1T, If@UsersSTM1Pj, 1T UsersSTM1Pi, 1T, InterfazSTM1PiT += InterfazSTM1HaciaPOPPjTD, 0D, 8i, 2, Localidades<, 8j, Localidades<D Print@InterfazSTM1D; Print@"InterfazSTM11"D; InterfazSTM11 = Rest@InterfazSTM1D; Print@InterfazSTM11D; Print@"InterfazSTM12"D; InterfazSTM12 = 0; Do@If@UsersSTM1Pj, 1T UsersSTM1P1, 1T, InterfazSTM12 += InterfazSTM1HaciaPOPPjT, 0D, 8j, Localidades<D Print@InterfazSTM12D; H∗Calcula el numero de interfases STM− 1 por cabecera hacia los Puntos de Presencia HPoPsL a nivel nacional∗L Print@"InterfazSTM13"D; InterfazSTM13 = Prepend@InterfazSTM11, InterfazSTM12D; Print@InterfazSTM13D; Print@"SumInterfazSTM13"D; SumInterfazSTM13 = Plus @@ InterfazSTM13; Print@SumInterfazSTM13D; Print@"InterfazE3"D; InterfazE3 = Table@0, 8Localidades<D; 44 InterfazE3 Table@0, 8Localidades<D; Do@If@UsersE3Pi, 1T ≠ UsersE3Pi − 1, 1T, If@UsersE3Pj, 1T UsersE3Pi, 1T, InterfazE3PiT += InterfazE3HaciaPOPPjTD, 0D, 8i, 2, Localidades<, 8j, Localidades<D Print@InterfazE3D; Modelo_Integral_ACK.nb Print@"InterfazE31"D; InterfazE31 = Rest@InterfazE3D; Print@InterfazE31D; Print@"InterfazE32"D; InterfazE32 = 0; Do@ If@UsersE3Pj, 1T UsersE3P1, 1T, InterfazE32 += InterfazE3HaciaPOPPjT, 0D, 8j, Localidades<D; Print@InterfazE32D; H∗Calcula el numero de interfases E3 por cabecera hacia los Puntos de Presencia HPoPsL a nivel nacional∗L Print@"InterfazE33"D; InterfazE33 = Prepend@InterfazE31, InterfazE32D; Print@InterfazE33D; Print@"SumInterfazE33"D; SumInterfazE33 = Plus @@ InterfazE33; Print@SumInterfazE33D; Print@"InterfazE1"D; InterfazE1 = Table@0, 8Localidades<D; Do@If@HUsersE1Pi, 1T ≠ UsersE1Pi − 1, 1TL, If@UsersE1Pj, 1T UsersE1Pi, 1T, InterfazE1PiT += InterfazE1HaciaPOPPjTD, 0D, 8i, 2, Localidades<, 8j, Localidades<D; Print@InterfazE1D; Print@"Intfaz1E1"D; Intfaz1E1 = Rest@InterfazE1D; Print@Intfaz1E1D; Print@"Intfaz2E1"D; Intfaz2E1 = 0; Do@If@UsersE1Pj, 1T UsersE1P1, 1T, Intfaz2E1 += InterfazE1HaciaPOPPjT, 0D, 8j, Localidades<D Print@Intfaz2E1D; H∗Calcula el numero de interfases E1 por cabecera hacia los Puntos de Presencia HPoPsL a nivel nacional∗L Print@"Intfaz3E1"D; Intfaz3E1 = Prepend@Intfaz1E1, Intfaz2E1D; Print@Intfaz3E1D; Print@"SumIntfaz3E1"D; SumIntfaz3E1 = Plus @@ Intfaz3E1; Print@SumIntfaz3E1D; H∗Parámetros de Máximo número de puertos para ADSL: Cluster, Shelf y Tarj∗L OpenRead@"Parametros_ATM.txt"D; parametrosATM = ReadList@"Parametros_ATM.txt", 8Word, Real<D; Print@"maxUsrATMCluster"D; maxUsrATMCluster = parametrosATMP1TP2T; Print@maxUsrATMClusterD; Print@"maxUsrATMShelf"D; maxUsrATMShelf = parametrosATMP2TP2T; Print@maxUsrATMShelfD; Print@"maxUsrATMTarj"D; maxUsrATMTarj = parametrosATMP3TP2T; Print@maxUsrATMTarjD; Close@"Parametros_ATM.txt"D; H∗Calcula el numero de Clusters en los concentradores ATM por cabecera a nivel nacional∗L Print@"ClusterPreconc"D; 45 Modelo_Integral_ACK.nb ClusterPreconc = TableBFloorB Intfaz3E1PiT F, 8i, Localidades<F; maxUsrATMCluster Print@ClusterPreconcD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Clusters en los concentradores ATM por cabecera a nivel nacional∗L Print@"SumClusterPreconc"D; SumClusterPreconc = Plus @@ ClusterPreconc; Print@SumClusterPreconcD; H∗Calcula el numero de Shelfs en los concentradores ATM por cabecera a nivel nacional∗L Print@"ShelfPreconc"D; ShelfPreconc = Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster TableBFloorB F, 8i, Localidades<F; maxUsrATMShelf Print@ShelfPreconcD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Shelfs en los concentradores ATM por cabecera a nivel nacional∗L Print@"SumShelfPreconc"D; SumShelfPreconc = Plus @@ ShelfPreconc; Print@SumShelfPreconcD; H∗Calcula el numero de Tarjetas de Terminacion de Red en los concentradores ATM por cabecera a nivel nacional∗L Print@"TarjPreconc"D; TarjPreconc = TableB CeilingB Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster − ShelfPreconcPiT ∗ maxUsrATMShelf F, maxUsrATMTarj 8i, Localidades<F; Print@TarjPreconcD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Tarjetas de Terminacion de Red en los concentradores ATM por cabecera a nivel nacional∗L Print@"SumTarjPreconc"D; SumTarjPreconc = Plus @@ TarjPreconc; Print@SumTarjPreconcD; H∗Calcula el numero de Armarios en los concentradores ATM por cabecera a nivel nacional∗L Print@"ArmariosPreconc"D; ArmariosPreconc = Intfaz3E1PiT − ClusterPreconcPiT ∗ maxUsrATMCluster TableBCeilingB F, 8i, Localidades<F; 2 maxUsrATMShelf Print@ArmariosPreconcD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Armarios en los concentradores ATM por cabecera a nivel nacional∗L Print@"SumArmariosPreconc"D; SumArmariosPreconc = Plus @@ ArmariosPreconc; Print@SumArmariosPreconcD; H∗Calcula el costo del concentrador ATM sin Tarjeta de Terminacion de Red por cabecera∗L Print@"CostePreconcSinTarj"D; CostePreconcSinTarj = Table@ClusterPreconcPiT ∗ precioPreconcentrClusterFull + ShelfPreconcPiT ∗ precioPreconcentrShelfFull + TarjPreconcPiT ∗ precioTarjLT4E1 + ArmariosPreconcPiT ∗ precioArmario + HIf@ShelfPreconcPiT > 1, If@TarjPreconcPiT > 0, ShelfPreconcPiT, HShelfPreconcPiT − 1LD, 0DL ∗ precioShelfExtension + HIf@TarjPreconcPiT > 0, precioShelf, 0DL, 8i, Localidades<D; Print@CostePreconcSinTarjD; H∗Se ha añadido una instruccion de comprobacion que suma los costos de los concentradores ATM sin Tarjeta de Terminacion de Red por Cabecera∗L Print@"SumCostePreconcSinTarj"D; SumCostePreconcSinTarj = Plus @@ CostePreconcSinTarj; Print@SumCostePreconcSinTarjD; H∗Determina el tipo de tarjeta para el Cluster totalmente ocupado en el concentrador ATM por cabecera∗L 46 totalmente ocupado en el concentrador ATM por cabecera L Print@"TarjNTPreconcClusterFull"D; TarjNTPreconcClusterFull = Table@If@ClusterPreconcPiT > 0, 155, 0D, 8i, Localidades<D; Print@TarjNTPreconcClusterFullD; H∗Se ha añadido una instruccion de comprobacion que suma los tipos de tarjeta para los Clusters completamente ocupados en los concentradores ATM por cabecera∗L Print@"SumTarjNTPreconcClusterFull"D; SumTarjNTPreconcClusterFull = Plus @@ TarjNTPreconcClusterFull; Print@SumTarjNTPreconcClusterFullD; H∗Determina el tipo de tarjeta para el Cluster parcialmente ocupado en el concentrador ATM por cabecera∗L Print@"TarjNTPreconcClusterParcial"D; TarjNTPreconcClusterParcial = Table@If@ShelfPreconcPiT > 0, 155, If@TarjPreconcPiT > 0, If@TarjPreconcPiT ≤ 4, 34, 155D, 0DD, 8i, Localidades<D; Print@TarjNTPreconcClusterParcialD; H∗Se ha añadido una instruccion de comprobacion que suma los tipos de tarjeta para los Clusters parcialmente ocupados en los concentradores ATM por cabecera∗L Print@"SumTarjNTPreconcClusterParcial"D; SumTarjNTPreconcClusterParcial = Plus @@ TarjNTPreconcClusterParcial; Print@SumTarjNTPreconcClusterParcialD; H∗Calcula el costo del concentrador ATM con Tarjeta de Terminacion de Red por cabecera∗L Print@"CostePreconcConTarj"D; CostePreconcConTarj = Table@CostePreconcSinTarjPiT + If@TarjNTPreconcClusterFullPiT 34, precioTarjNT34, If@TarjNTPreconcClusterFullPiT 155, precioTarjNT155, 0DD ∗ ClusterPreconcPiT + If@TarjNTPreconcClusterParcialPiT 34, precioTarjNT34, If@TarjNTPreconcClusterParcialPiT 155, precioTarjNT155, 0DD, 8i, Localidades<D; Print@CostePreconcConTarjD; H∗Se ha añadido una instruccion de comprobacion que suma los costos de los concentradores ATM con Tarjeta de Terminacion de Red por cabecera∗L Print@"SumCostePreconcConTarj"D; SumCostePreconcConTarj = Plus @@ CostePreconcConTarj; Print@SumCostePreconcConTarjD; H∗Calcula el numero de interfases STM−1 de 155Mbps en el concentrador ATM por cabecera∗L Print@"TotIntfzPreconcSTM1"D; TotIntfzPreconcSTM1 = Table@If@TarjNTPreconcClusterFullPiT 155, ClusterPreconcPiT, 0D + If@TarjNTPreconcClusterParcialPiT 155, ArmariosPreconcPiT, 0D, 8i, Localidades<D; Print@TotIntfzPreconcSTM1D; H∗Se ha añadido una instruccion de comprobacion que suma el numero de interfases STM− 1 de 155Mbps en los concentradores ATM por cabecera∗L Print@"SumTotIntfzPreconcSTM1"D; SumTotIntfzPreconcSTM1 = Plus @@ TotIntfzPreconcSTM1; Print@SumTotIntfzPreconcSTM1D; H∗Calcula el numero de interfases E3 de 34Mbps en el concentrador ATM por cabecera∗L Print@"TotIntfzPreconcE3"D; TotIntfzPreconcE3 = Table@If@TarjNTPreconcClusterFullPiT 34, ClusterPreconcPiT, 0D + If@TarjNTPreconcClusterParcialPiT 34, ArmariosPreconcPiT, 0D, 8i, Localidades<D; InterfazSTM1HaciaATM = Table@TotIntfzPreconcSTM1PiT + InterfazSTM13PiT, 8i, Localidades<D; Print@TotIntfzPreconcE3D; H∗Se ha añadido una instruccion de comprobacion que suma el numero de interfases E3 de 34Mbps en los concentradores ATM por cabecera∗L Print@"SumTotIntfzPreconcE3"D; SumTotIntfzPreconcE3 = Plus @@ TotIntfzPreconcE3; Print@SumTotIntfzPreconcE3D; H∗Calcula el numero de interfases STM−1 de 155Mbps en el Nodo ATM por cabecera∗L Print@"InterfazSTM1HaciaATM"D; InterfazSTM1HaciaATM = Table@TotIntfzPreconcSTM1PiT + InterfazSTM13PiT, 8i, Localidades<D; Print@InterfazSTM1HaciaATMD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de interfases STM− L Modelo_Integral_ACK.nb 47 H Se ha añadido una instruccion de comprobacion que suma el numero de interfases STM 1 de 155Mbps en los Nodos ATM por cabecera∗L Print@"SumInterfazSTM1HaciaATM"D; SumInterfazSTM1HaciaATM = Plus @@ InterfazSTM1HaciaATM; Print@SumInterfazSTM1HaciaATMD; H∗Calcula el numero de interfases E3 de 34Mbps en el Nodo ATM por cabecera∗L Print@"InterfazE3HaciaATM"D; InterfazE3HaciaATM = Table@TotIntfzPreconcE3PiT + InterfazE33PiT, 8i, Localidades<D; Print@InterfazE3HaciaATMD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de interfases E3 de 34Mbps en los Nodos ATM por cabecera∗L Print@"SumInterfazE3HaciaATM"D; SumInterfazE3HaciaATM = Plus @@ InterfazE3HaciaATM; Print@SumInterfazE3HaciaATMD; H∗Precios para Nodos ATM en la etapa de concentración∗L OpenRead@"Precios_ATM.txt"D; preciosATM = ReadList@"Precios_ATM.txt", 8Word, Real<D; Print@"precioChasis"D; precioChasis = preciosATMP1TP2T; Print@precioChasisD; Print@"precioTarjSTM1"D; precioTarjSTM1 = preciosATMP2TP2T; Print@precioTarjSTM1D; Print@"precioTarjE3"D; precioTarjE3 = preciosATMP3TP2T; Print@precioTarjE3D; Close@"Precios_ATM.txt"D; H∗Precios para Nodos ATM en la etapa de concentración∗L OpenRead@"PuertosTarj_ATM.txt"D; puertosTarjATM = ReadList@"PuertosTarj_ATM.txt", 8Word, Real<D; Print@"puertosTarjSTM1"D; puertosTarjSTM1 = puertosTarjATMP1TP2T; Print@puertosTarjSTM1D; Print@"puertosTarjE3"D; puertosTarjE3 = puertosTarjATMP2TP2T; Print@puertosTarjE3D; Close@"PuertosTarj_ATM.txt"D; H∗Calcula el numero de Nodos ATM∗L Print@"NumNodosATM"D; DemPorPOP3PiT F, 8i, Localidades<F; NumNodosATM = TableBCeilingB 16 000 Print@NumNodosATMD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Nodos ATM por cabecera∗L Print@"SumNumNodosATM"D; SumNumNodosATM = Plus @@ NumNodosATM; Print@SumNumNodosATMD; H∗Calcula el numero de tarjetas STM−1 en el Nodo ATM por cabecera∗L Print@"NumTarjSTM1Conc"D; InterfazSTM1HaciaATMPiT NumTarjSTM1Conc = TableBCeilingB F, 8i, Localidades<F; puertosTarjSTM1 Print@NumTarjSTM1ConcD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Tarjetas STM− 1 en los Nodos ATM por cabecera∗L Print@"SumNumTarjSTM1Conc"D; SumNumTarjSTM1Conc = Plus @@ NumTarjSTM1Conc; Print@SumNumTarjSTM1ConcD; H∗Calcula el numero de Tarjetas E3 en el Nodo ATM por cabecera∗L Print@"NumTarjE3Conc"D; InterfazE3HaciaATMPiT NumTarjE3Conc = TableBCeilingB F, 8i, Localidades<F; puertosTarjE3 Modelo_Integral_ACK.nb 48 Modelo_Integral_ACK.nb Print@NumTarjE3ConcD; H∗Se ha añadido una instruccion de comprobacion que suma el numero de Tarjetas E3 en los Nodos ATM por cabecera∗L Print@"SumNumTarjE3Conc"D; SumNumTarjE3Conc = Plus @@ NumTarjE3Conc; Print@SumNumTarjE3ConcD; H∗Calcula el costo del Nodo ATM por cabecera∗L Print@"CostoATMConc"D; CostoATMConc = Table@NumNodosATMPiT ∗ precioChasis + NumTarjSTM1ConcPiT ∗ precioTarjSTM1 + NumTarjE3ConcPiT ∗ precioTarjE3, 8i, Localidades<D; Print@CostoATMConcD; H∗Se ha añadido una instruccion de comprobacion que suma los costos de los Nodos ATM por cabecera∗L Print@"SumCostoATMConc"D; SumCostoATMConc = Plus @@ CostoATMConc; Print@SumCostoATMConcD; H∗Carga los datos de número de usuarios∗L OpenRead@"NumUsuarios_Agreg.txt"D; NumUsersAgreg = ReadList@"NumUsuarios_Agreg.txt", 8Word, Real<D; Print@"NumUsersSTM1Agreg"D; NumUsersSTM1Agreg = NumUsersAgregP1TP2T; Print@NumUsersSTM1AgregD; Print@"NumUsersAgregAgreg"D; NumUsersAgregAgreg = NumUsersAgregP2TP2T; Print@NumUsersAgregAgregD; Close@"NumUsuarios_Agreg.txt"D; Print@"yCx"D; yCx = Table@demandasADSL1Pi, 1T, 8i, Localidades<D; Print@TableForm@yCxDD; yCx1 = Length@yCxD; Print@yCx1D; Print@"DemPorPOP4"D; DemPorPOP4 = Prepend@DemPorPOP3, xCxD; Print@DemPorPOP4D; Print@"DemPorPOP5"D; DemPorPOP5 = Prepend@DemPorPOP4, yCxD; Print@DemPorPOP5D; Print@"z1Cx"D; z1Cx = 0; Print@z1CxD; H∗En formato normal instrucciones que se han añadido al programa∗L Print@"PorcentajealineasGigADSLLima2"D; PorcentajealineasGigADSLLima2 = PorcentajealineasGigADSLLima; Print@TableForm@PorcentajealineasGigADSLLima2DD; Print@"PorclineasGigADLSLima2"D; PorclineasGigADLSLima2 = Length@PorcentajealineasGigADSLLimaD; Print@PorclineasGigADLSLima2D; Print@"PorcentajealineasGigADSLLima2"D; Do@PorcentajealineasGigADSLLima2 = Table@Append@PorcentajealineasGigADSLLima2, z1CxDD, 8l, NumDPTOS − NumLIMA<D Print@TableForm@PorcentajealineasGigADSLLima2DD; Print@"PorclineasGigADLSLima22"D; PorclineasGigADLSLima22 = Length@PorcentajealineasGigADSLLima2D; Print@PorclineasGigADLSLima22D; PorcentajealineasGigADSLLima2; Print@"z2Cx"D; 49 Print@"z2Cx"D; z2Cx = Table@0, 86<D; Print@z2CxD; Modelo_Integral_ACK.nb Print@"PuertosLima2"D; PuertosLima2 = PuertosLima; Print@TableForm@PuertosLima2DD; Print@"PtosLima2"D; PtosLima2 = Length@PuertosLimaD; Print@PtosLima2D; Print@"PuertosLima2"D; Do@PuertosLima2 = Table@Append@PuertosLima2, z2CxDD, 8l, NumDPTOS − NumLIMA<D Print@TableForm@PuertosLima2DD; Print@"PtosLima22"D; PtosLima22 = Length@PuertosLimaD; Print@PtosLima22D; Print@"PorcentajeGigADSLTotal1"D; PorcentajeGigADSLTotal1 = Table@If@DemPorPOP5P1, iT ≠ "LIMA", If@DemPorPOP5P1, iT PuertosDptosPj, 1T, PorcentajealineasGigADSLDepPjT, 0D, If@DemPorPOP5P2, iT PuertosLima2Pj, 1T, PorcentajealineasGigADSLLima2PjT, 0DD, 8i, Localidades<, 8j, NumDPTOS<D; Print@PorcentajeGigADSLTotal1D; H∗Calcula el porcentaje de lineas mayoristas por site a nivel nacional∗L Print@"PorcentajeGigADSLTotal"D; PorcentajeGigADSLTotal = Table@Plus @@ PorcentajeGigADSLTotal1PiT, 8i, Localidades<D; Print@TableForm@PorcentajeGigADSLTotalDD; H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗NumInterSTM1Agreg=Table@ Ceiling@DemPorPOP3@@iDD∗H1−PorcentajeGigADSLTotal@@iDDLêNumUsersSTM1AgregD,8i,Localidades<D; Print@"NumInterSTM1Agreg"D; Print@NumInterSTM1AgregD; SumComprobNumInterSTM1Agreg=Plus@@NumInterSTM1Agreg; Print@SumComprobNumInterSTM1AgregD;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗NumInterSTM1Agreg1=Prepend@NumInterSTM1Agreg,xCxD; Print@"NumInterSTM1Agreg1"D; Print@NumInterSTM1Agreg1D;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗Calcula el numero de interfases STM−1 para los servicios minoristas por cabecera∗L H∗NumInterSTM1Agreg2=Prepend@NumInterSTM1Agreg1,yCxD; Print@"NumInterSTM1Agreg2"D; Print@NumInterSTM1Agreg2D;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗Guarda los resultados obtenidos en NumInterSTM1Agreg2∗L PRUPtasATM = OpenWrite@"PRUPtasATM.txt"D; WriteString@PRUPtasATM, "", "\n", "\n", "Dptos", " ", AccountingForm@NumInterSTM1Agreg2P1TD, "\n", "Cabs", " ", AccountingForm@NumInterSTM1Agreg2P2TD, "\n", "03", " ", AccountingForm@NumInterSTM1Agreg2P3TD, "\n", "04", " ", AccountingForm@NumInterSTM1Agreg2P4TD, "\n", "05", " ", AccountingForm@NumInterSTM1Agreg2P5TD, "\n", "06", " ", AccountingForm@NumInterSTM1Agreg2P6TD, "\n", "07", " ", AccountingForm@NumInterSTM1Agreg2P7TD, "\n"D; Close@"PRUPtasATM.txt"D; H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗PuertosATMGigADSL1=Table@If@NumInterSTM1Agreg2@@1,iDD≠"LIMA", If@NumInterSTM1Agreg2@@1,iDDPuertosDptos@@j,1DD,PuertosDptos@@j,a+1DD,0D, D 50 If@NumInterSTM1Agreg2@@1,iDD PuertosDptos@@j,1DD,PuertosDptos@@j,a 1DD,0D, If@NumInterSTM1Agreg2@@2,iDDPuertosLima2@@j,1DD,PuertosLima2@@j,a+1DD,0DD, 8i,Localidades<,8a,Años<,8j,NumDPTOS<D; Print@"PuertosATMGigADSL1"D; Print@PuertosATMGigADSL1D;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗Calcula el numero de puertos ATM para los servicios mayoristas por site∗L H∗PuertosATMGigADSL=Table@Plus@@PuertosATMGigADSL1@@i,aDD,8a,Años<,8i,Localidades<D; Print@"PuertosATMGigADSL"D; Print@PuertosATMGigADSLD; Print@"SumComprobPuertosATMGigADSL"D; SumComprobPuertosATMGigADSL= Table@Plus@@PuertosATMGigADSL@@aDD,8a,Años<D; Print@SumComprobPuertosATMGigADSLD;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗Cálcula la suma del número de interfases y puertos STM−1 hacia los PoPs ATM∗L H∗NumPuertasATM=Table@If@NumInterSTM1Agreg@@a,iDD≠0, NumInterSTM1Agreg@@a,iDD+PuertosATMGigADSL@@a,iDD,0D,8a,Años<,8i,Localidades<D; Print@"NumPuertasATM"D; Print@NumPuertasATMD; Print@"ComprobNumPuertasATM"D; ComprobNumPuertasATM=Table@ Plus@@NumPuertasATM@@aDD,8a,Años<D; Print@ComprobNumPuertasATMD;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗Calcula el costo total del Nodo ATM por cabecera∗L H∗CostoNodoATMCnxOp= Table@Ceiling@NumPuertasATM@@a,iDDê4D∗precioTarjSTM1,8a,Años<,8i,Localidades<D; Print@"CostoNodoATMCnxOp"D; Print@CostoNodoATMCnxOpD; Print@"SumComprobCostoNodoATMCnxOp"D; SumComprobCostoNodoATMCnxOp= Table@Plus@@CostoNodoATMCnxOp@@aDD,8a,Años<D; Print@SumComprobCostoNodoATMCnxOpD;∗L H∗No se esta considerando la parte de los Agregadores IP. Se va a desechar del modelo final por considerarlo que se añadiendo un costo que no corresponde en el calculo del costo del Nodo ATM∗L H∗Calcula el costo total del Punto de Presencia HPoPL ATM por cabecera∗L H∗CostoTotalPopATM=Table@CostePreconcConTarj@@a,iDD+ CostoATMConc@@a,iDD+CostoNodoATMCnxOp@@a,iDD,8a,Años<,8i,Localidades<D;∗L CostoTotalPopATM = Table@CostePreconcConTarjPiT + CostoATMConcPiT, 8i, Localidades<D; Print@"CostoTotalPopATM"D; Print@CostoTotalPopATMD; Print@"SumCostoTotalPopATM"D; SumCostoTotalPopATM = Plus @@ CostoTotalPopATM; Print@SumCostoTotalPopATMD; H∗Carga los datos de potencia y energía∗L OpenRead@"Energia_ATM.txt"D; energiaATM = ReadList@"Energia_ATM.txt", 8Word, Real<D; Close@"Energia_ATM.txt"D; Print@"CostePorWATM"D; CostePorWATM = energiaATMP1TP2T; Print@CostePorWATMD; Print@"WPorEquipoATM"D; WPorEquipoATM = energiaATMP2TP2T; Print@WPorEquipoATMD; H∗Calcula el costo de energia del Nodo ATM∗L Print@"CostoEnergiaATM"D; Modelo_Integral_ACK.nb 51 Print@"CostoEnergiaATM"D; CostoEnergiaATM = Table@CostePorWATM ∗ WPorEquipoATM ∗ NumNodosATMPiT, 8i, Localidades<D; Print@CostoEnergiaATMD; Print@"SumCostoEnergiaATM"D; SumCostoEnergiaATM = Plus @@ CostoEnergiaATM; Print@SumCostoEnergiaATMD; H∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗ Fin de la parte de Conmutación. ∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗L PrintBStyleB"PARÁMETROS COSTES", Bold, 16, Underlined, White, Background → BlueFF; H∗Carga los parámetros de costes a emplear en la ejecución∗L OpenRead@"Parametros_Costes.txt"D; ParamsCostes = ReadList@"Parametros_Costes.txt", 8Word, Real<D; Wacc = ParamsCostesP1TP2T; AñosAmortCxDSLAM = ParamsCostesP2TP2T; AñosAmortCxNodoATM = ParamsCostesP3TP2T; AñosAmortTxEquipos = ParamsCostesP4TP2T; AñosAmortTxPtaExt = ParamsCostesP5TP2T; AñosAmortTxPortador = ParamsCostesP6TP2T; AñosAmortPtaSecENERGIA = ParamsCostesP7TP2T; AñosAmortPtaSecINMOB = ParamsCostesP8TP2T; Close@"Parametros_Costes.txt"D; H∗Puesto que el valor del WACC es después de impuestos, hay que convertirlo a su valor antes de impuestos∗L TasaImpositiva = 0.37; Wacc CosteCapital = ; 1 − TasaImpositiva H∗Una vez introducidos los datos de entrada, se calculan los respectivos factores de anualización∗L CosteCapital FactAnualizCxDSLAM = ; 1 − H1 + CosteCapitalL−AñosAmortCxDSLAM FactAnualizCxNodoATM = FactAnualizTxEquipos = FactAnualizTxPtaExt = CosteCapital 1 − H1 + CosteCapitalL−AñosAmortCxNodoATM CosteCapital 1 − H1 + CosteCapitalL−AñosAmortTxEquipos CosteCapital 1 − H1 + CosteCapitalL−AñosAmortTxPtaExt FactAnualizTxPortador = ; ; ; CosteCapital 1 − H1 + CosteCapitalL−AñosAmortTxPortador FactAnualizPtaSecENERGIA = FactAnualizPtaSecINMOB = ; CosteCapital 1 − H1 + CosteCapitalL −AñosAmortPtaSecENERGIA CosteCapital 1 − H1 + CosteCapitalL−AñosAmortPtaSecINMOB PrintBStyleB"EVOLUCIÓN ; ; PRECIOS", Bold, 16, Underlined, White, Background → BlueFF; H∗Carga del fichero que determina la evolución de precios∗L OpenRead@"EvolucionPrecios.txt"D; EvPrecios = ReadList@"EvolucionPrecios.txt", 8Word, Real, Real, Real, Real, Real<D; EvPrecios = Drop@EvPrecios, 1D; Close@"EvolucionPrecios.txt"D; H∗Carga del fichero que determina los costes de actividades para cada año∗L OpenRead@"CosteActividadesCambios.txt"D; CosteActivs2 = ReadList@"CosteActividadesCambios.txt", 8Word, Real, Real, Real, Real, Real<D; CosteActivs2 = Drop@CosteActivs2, 1D; Close@"CosteActividadesCambios.txt"D; OpenRead@"PorcentCosteActiv.txt"D; CosteActivs = ReadList@"PorcentCosteActiv.txt", 8Word, Real<D; Close@"PorcentCosteActiv.txt"D; Print@"CADSL"D; CADSL = Table@0, 8ix, nx<D; Modelo_Integral_ACK.nb 52 CADSL Table@0, 8ix, nx<D; Do@If@EquivADSLFijaPixT ≠ 0, auxLoc = EquivADSLFijaPixT; CADSLPixT = H63 ∗ InterfazSTM1HaciaPOPPauxLocT + 16 ∗ InterfazE3HaciaPOPPauxLocT + InterfazE1HaciaPOPPauxLocTLD;, 8ix, nx<D; Print@CADSLD; H∗Cargas en número de E1s de ADSL por cada central∗L Print@"CADSLd"D; CADSLd = Table@0, 8id, nd<D; Do@CADSLdPdeptxPixTT = CADSLdPdeptxPixTT + CADSLPixT, 8ix, nx<D; Print@CADSLdD; Print@"CADSLNucd"D; CADSLNucd = Table@0, 8id, nd<D; Do@CADSLNucdPdeptxPixTT = CADSLNucdPdeptxPixTT +NumE1EquivsNucPixT;, 8ix, nx<D; Print@CADSLNucdD; H∗ Acumulación de las cargas por departamento ∗L inputLDadsl = Table@0, 8id, nd<, 8jd, nd<D; Destinosadsl = Table@0, 8id, nd<D; inputLDNucNuc = Table@0, 8id, nd<, 8jd, nd<D; adslTruji = 0; adslAreq = 0; Do@DestinosadslPidT = Switch@id, AYACUCHO, LIMA, HUANCAVELICA, LIMA, HUANUCO, LIMA, ICA, LIMA, JUNIN, LIMA, LIMA, LIMA, LORETO, LIMA, PASCO, LIMA, SANMARTIN, LALIBERTAD, UCAYALI, LIMA, AMAZONAS, LALIBERTAD, ANCASH, LALIBERTAD, CAJAMARCA, LALIBERTAD, LALIBERTAD, LALIBERTAD, LAMBAYEQUE, LALIBERTAD, PIURA, LALIBERTAD, TUMBES, LALIBERTAD, APURIMAC, AREQUIPA, AREQUIPA, AREQUIPA, CUSCO, AREQUIPA, MADREDEDIOS, LIMA, MOQUEGUA, AREQUIPA, PUNO, AREQUIPA, TACNA, AREQUIPAD; If@DestinosadslPidT 14, adslTruji = adslTruji + CADSLNucdPidTD; If@DestinosadslPidT 19, adslAreq = adslAreq + CADSLNucdPidTD; inputLDadslPid, DestinosadslPidTT = inputLDadslPid, DestinosadslPidTT + CADSLdPidT; , 8id, nd<D; inputLDNucNucP14, 6T = Ceiling@Ceiling@adslTrujiD, 63D; inputLDNucNucP19, 6T = Ceiling@Ceiling@adslAreqD, 63D; Print@inputLDadslD; Print@inputLDNucNucD; H∗ Se ingresan los archivos de Cargas ∗L Print@"input_traficoLDadsl.txt"D; Print@"input_traficoAlqLDE1sABC2.txt"D; OutAdslLD = OpenWrite@"input_traficoLDadsl.txt"D; OutNucNucLD = OpenWrite@"input_traficoAlqLDE1sABC2.txt"D; Do@str1 = ""; str2 = ""; Do@If@iy 1, str1 = StringJoin@8str1, ToString@inputLDadslPix, iyTD<D; str2 = StringJoin@8str2, ToString@inputLDNucNucPix, iyTD<D;, Modelo_Integral_ACK.nb 53 str2 StringJoin@8str2, ToString@inputLDNucNucPix, iyTD<D;, str1 = StringJoin@8str1, "\t", ToString@inputLDadslPix, iyTD<D; str2 = StringJoin@8str2, "\t", ToString@inputLDNucNucPix, iyTD<D;D;, 8iy, 24<D; str1 = StringJoin@8str1, "\n"<D; str2 = StringJoin@8str2, "\n"<D; WriteString@OutAdslLD, str1D; WriteString@OutNucNucLD, str2D;, 8ix, 24<D; Close@OutAdslLDD; Close@OutNucNucLDD; H∗ Se acumula aquí los tráficos ADSL por TRAMO ∗L Modelo_Integral_ACK.nb Print@"nadsl"D; nadsl = Length@CADSLD; Print@nadslD; Print@"TOTALE1ADSL"D; TOTALE1ADSL = 0; Do@TOTALE1ADSL = TO TALE1ADSL + CADSLPiadslT;, 8iadsl, nadsl<D; Print@TOTALE1ADSLD; e1remotehostadslx = zerox; e1hosttandemadslx = zerox; Print@"e1remotehostadslx"D; Do@ If@remote1xPiadslT 1, e1remotehostadslxPiadslT = e1remotehostadslxPiadslT + CADSLPiadslT;D;, 8iadsl, nadsl<D; Print@e1remotehostadslxD Print@"e1hosttandemadslx"D; Do@If@remote1xPiadslT 1, e1hosttandemadslxPallhostxPiadslTT = e1hosttandemadslxPallhostxPiadslTT + CADSLPiadslT;D; If@remote1xPiadslT 0 Ï tandem1xPiadslT 0, e1hosttandemadslxPiadslT = e1hosttandemadslxPiadslT + CADSLPiadslT;D;, 8iadsl, nadsl<D; Do@If@limaxPiadslT Ï esAnillodxPiadslT 2 Ï hostxPiadslT, If@CxATMLimaxPiadslT ≠ 1, e1hosttandemadslxPiadslT = Ceiling@e1hosttandemadslxPiadslT ∗ 1.75D;, e1hosttandemadslxPiadslT = Ceiling@e1hosttandemadslxPiadslT ∗ 0.75D;D;D;, 8iadsl, nadsl<D; H∗Esta instucción sirve para utilizar el 75% más de Tx para ADSL en anillo de Lima∗L Print@e1hosttandemadslxD; PrintB "ESTIMACIÓN DE CARGAS EN E1S ASOCIADAS A LOS CIRCUITOS ALQUILADOS Y QUE SON IMPUTABLES A LAS REDES INTRADEPARTAMENTALES", StyleB Bold, 16, Underlined, White, Background → RGBColorB0, PrintAStyleA 1 , 0FFF; 2 "CIRCUITOS RANGO A", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosA1.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango A a nivel Interdepartamental: La data viene así: 39 1 377 1 377 1 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Print@"nalqA1"D; CALQUILADOA1 = Traducir@N@ReadList@"input_C_AlquiladosA1.txt", Number, RecordLists → TrueDDD; nalqA1 = Length@CALQUILADOA1D; Print@nalqA1D; Print@"CALQUILADOA1"D; Print@TableForm@Table@8CALQUILADOA1Pialq, 1T, yPCALQUILADOA1Pialq, 1T, 13T, deptTXTdPdeptxPCALQUILADOA1Pialq, 1TTT, CALQUILADOA1Pialq, 2T<, 8ialq, nalqA1<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "Departamento", "Nro Circuitos"<<DD; 54 TableHeadings 8None, 8"ix", "Nombre Central", "Departamento", "Nro Circuitos"<<DD; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango A a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L Modelo_Integral_ACK.nb H∗ Identifica el número de elementos de la lista CALQUILADOA1 ∗L e1remotehostalqxA1 = zerox; e1hosttandemalqxA1 = zerox; TOTALE1ALQA1 = 0; Print@"TOTALE1ALQA1"D; DoBTOTALE1ALQA1 = TOTALE1ALQA1 + CALQUILADOA1Pialq, 2T 2 ;, 8ialq, nalqA1<F; Print@TOTALE1ALQA1D; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo A que son atribuibles como cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Print@"e1remotehostalqxA1"D; Do@If@remote1xPCALQUILADOA1Pialq, 1TT 1, e1remotehostalqxA1PCALQUILADOA1Pialq, 1TT = e1remotehostalqxA1PCALQUILADOA1Pialq, 1TT + CALQUILADOA1Pialq, 2T;D;, 8ialq, nalqA1<D; Print@e1remotehostalqxA1D; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo A que estan asociados como punto de oriden o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L Print@"e1hosttandemalqxA1"D; Do@If@remote1xPCALQUILADOA1Pialq, 1TT 1, e1hosttandemalqxA1PallhostxPCALQUILADOA1Pialq, 1TTT = e1hosttandemalqxA1PallhostxPCALQUILADOA1Pialq, 1TTT + CALQUILADOA1Pialq, 2T;D; If@remote1xPCALQUILADOA1Pialq, 1TT 0 Ï tandem1xPCALQUILADOA1Pialq, 1TT 0, e1hosttandemalqxA1PCALQUILADOA1Pialq, 1TT = e1hosttandemalqxA1PCALQUILADOA1Pialq, 1TT + CALQUILADOA1Pialq, 2T;D;, 8ialq, nalqA1<D; Print@e1hosttandemalqxA1D; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo A que deberán ser añadidos a las cargas a nivel de centrales Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA"CIRCUITOS INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_Alquilados2A1.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango A que son intradepartamentales: La data viene así: 110 120 1 248 261 1 248 347 1 El primer dato corresponde a la central de origen, el segundo dato a la central de destino y el tercer dato al número de EIs ∗L Print@"CALQUILADOA12"D; CALQUILADOA12 = Traducir@N@ReadList@"input_C_Alquilados2A1.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOA12D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango A a nivel Intradepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L Print@"nalqA12"D; nalqA12 = Length@CALQUILADOA12D; Print@nalqA12D; H∗ Identifica el número de elementos de la lista CALQUILADOA12∗L Print@"TOTALE1ALQA1"D; Do@TOTALE1ALQA1 = TOTALE1ALQA1 + CALQUILADOA12Pialq, 3T;, 8ialq, nalqA12<D; Print@TOTALE1ALQA1D; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo A. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable TOTALE1ALQA1 que correspondió a los E1s asociados a los circuitos Interdepartamentales del tipo A que eran atribuibles como cargas en el tramo intradepartamental ∗L Print@"e1remotehostalqxA1"D; Do@aux1 = CALQUILADOA12Pialq, 1T; aux2 = CALQUILADOA12Pialq, 2T; If@aux1 ≠ aux2, If@remote1xPaux1T 1, e1remotehostalqxA1Paux1T = e1remotehostalqxA1Paux1T + CALQUILADOA12Pialq, 3T;D; D 55 Modelo_Integral_ACK.nb If@remote1xPaux1T 1, e1remotehostalqxA1Paux1T e1remotehostalqxA1Paux1T CALQUILADOA12Pialq, 3T;D; If@remote1xPaux2T 1, e1remotehostalqxA1Paux2T = e1remotehostalqxA1Paux2T + CALQUILADOA12Pialq, 3T;D;D; , 8ialq, nalqA12<D; Print@e1remotehostalqxA1D; H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo A que estan asociados como punto de oriden o destino a cada central remota. Se hace lo siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxA1 ∗L Print@"e1hosttandemalqxA1"D Do@aux1 = CALQUILADOA12Pialq, 1T; aux2 = CALQUILADOA12Pialq, 2T; If@aux1 ≠ aux2, H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D; If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D; H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras, en caso de no ser remota es claro que el nodo es identificado como Host ∗L If@tandem1xPaux2T 0 Ï aux1 ≠ aux2, e1hosttandemalqxA1Paux2T = e1hosttandemalqxA1Paux2T + CALQUILADOA12Pialq, 3T;D; H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del origen, se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L If@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxA1Paux1T = e1hosttandemalqxA1Paux1T + CALQUILADOA12Pialq, 3T;D;D; , 8ialq, nalqA12<D H∗ A nivel de las centrales de origen, Si la cabecera del origen no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del destino, se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L Print@e1hosttandemalqxA1D; H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo A que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxA1 ∗L PrintAStyleA "CIRCUITOS RANGO B", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosB1.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango B a nivel Interdepartamental: La data viene así: 39 1 377 1 377 1 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Print@"CALQUILADOB1"D; CALQUILADOB1 = Traducir@N@ReadList@"input_C_AlquiladosB1.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOB1D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango B a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @@origen o destino,número de E1sDD ∗L Print@"nalqB1"D; nalqB1 = Length@CALQUILADOB1D; Print@nalqB1D; H∗ Identifica el número de elementos de la lista CALQUILADOB1 ∗L e1remotehostalqxB1 = zerox; e1hosttandemalqxB1 = zerox; TOTALE1ALQB1 = 0; Print@"TOTALE1ALQB1"D; DoBTOTALE1ALQB1 = TOTALE1ALQB1 + CALQUILADOB1Pialq, 2T 2 ;, 8ialq, nalqB1<F; Print@TOTALE1ALQB1D; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo B que son atribuibles como cargas en el tramo intradepartamental. Se realiza 56 del tipo B que son atribuibles como cargas en el tramo intradepartamental. Se realiza lo siguiente: independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Modelo_Integral_ACK.nb Print@"e1remotehostalqxB1"D; Do@If@remote1xPCALQUILADOB1Pialq, 1TT 1, e1remotehostalqxB1PCALQUILADOB1Pialq, 1TT = e1remotehostalqxB1PCALQUILADOB1Pialq, 1TT + CALQUILADOB1Pialq, 2T;D;, 8ialq, nalqB1<D; Print@e1remotehostalqxB1D; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo B que estan asociados como punto de oriden o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L Print@"e1hosttandemalqxB1"D; Do@If@remote1xPCALQUILADOB1Pialq, 1TT 1, e1hosttandemalqxB1PallhostxPCALQUILADOB1Pialq, 1TTT = e1hosttandemalqxB1PallhostxPCALQUILADOB1Pialq, 1TTT + CALQUILADOB1Pialq, 2T;D; If@remote1xPCALQUILADOB1Pialq, 1TT 0 Ï tandem1xPCALQUILADOB1Pialq, 1TT 0, e1hosttandemalqxB1PCALQUILADOB1Pialq, 1TT = e1hosttandemalqxB1PCALQUILADOB1Pialq, 1TT + CALQUILADOB1Pialq, 2T;D;, 8ialq, nalqB1<D; Print@e1hosttandemalqxB1D; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo B que deberán ser añadidos a las cargas a nivel de centrales Host. Si se optó por la Opción 3 o 4 de estimar los costos de los circuitos del tipo A o B se realiza lo siguiente: En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA"CIRCUITOS INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_Alquilados2B1.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango B que son intradepartamentales: La data viene así: 377 259 1 39 59 1 248 252 1 El primer dato corresponde a la central de origen, el segundo dato a la central de destino y el tercer dato al número de EIs ∗L Print@"CALQUILADOB12"D; CALQUILADOB12 = Traducir@N@ReadList@"input_C_Alquilados2B1.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOB12D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango B a nivel Intradepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L Print@"nalqB12"D; nalqB12 = Length@CALQUILADOB12D; Print@nalqB12D; H∗ Identifica el número de elementos de la lista CALQUILADOB12 ∗L Print@"TOTALE1ALQB1"D; Do@TOTALE1ALQB1 = TOTALE1ALQB1 + CALQUILADOB12Pialq, 3T;, 8ialq, nalqB12<D; Print@TOTALE1ALQB1D; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo B. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable TOTALE1ALQB1 que correspondió a los E1s asociados a los circuitos Interdepartamentales del tipo A que eran atribuibles como cargas en el tramo intradepartamental ∗L Print@"e1remotehostalqxB1"D; Do@aux1 = CALQUILADOB12Pialq, 1T; aux2 = CALQUILADOB12Pialq, 2T; If@aux1 ≠ aux2, If@remote1xPaux1T 1, e1remotehostalqxB1Paux1T = e1remotehostalqxB1Paux1T + CALQUILADOB12Pialq, 3T;D; If@remote1xPaux2T 1, e1remotehostalqxB1Paux2T = e1remotehostalqxB1Paux2T + CALQUILADOB12Pialq, 3T;D;D; , 8ialq, nalqB12<D; Print@e1remotehostalqxB1D; H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo B que estan asociados como punto de oriden o destino a cada central remota. Se hace lo siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxB1 ∗L Print@"e1hosttandemalqxB1"D; Do@aux1 = CALQUILADOB12Pialq, 1T; 57 Modelo_Integral_ACK.nb Do@aux1 CALQUILADOB12Pialq, 1T; aux2 = CALQUILADOB12Pialq, 2T; If@aux1 ≠ aux2, H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D; If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D; H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras, en caso de no ser remota es claro que el nodo es identificado como Host ∗L If@tandem1xPaux2T 0 Ï aux1 ≠ aux2, e1hosttandemalqxB1Paux2T = e1hosttandemalqxB1Paux2T + CALQUILADOB12Pialq, 3T;D; H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del origen, se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L If@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxB1Paux1T = e1hosttandemalqxB1Paux1T + CALQUILADOB12Pialq, 3T;D;D; , 8ialq, nalqB12<D H∗ A nivel de las centrales de origen, si optó por la opción 3 o 4 Hestimar costo de circuitos del rango A o BL: Si la cabecera del origen no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del destino, se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L Print@e1hosttandemalqxB1D; H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo B que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxB1 ∗L PrintAStyleA "CIRCUITOS RANGO C", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosC1.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango C a nivel Interdepartamental: La data viene así: 216 1 377 1 439 1 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 216 y 377 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Print@"CALQUILADOC1"D; CALQUILADOC1 = Traducir@N@ReadList@"input_C_AlquiladosC1.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOC1D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango C a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @@origen o destino,número de E1sDD ∗L Print@"nalqC1"D; nalqC1 = Length@CALQUILADOC1D; Print@nalqC1D; H∗ Identifica el número de elementos de la lista CALQUILADOC1 ∗L e1remotehostalqxC1 = zerox; e1hosttandemalqxC1 = zerox; TOTALE1ALQC1 = 0; Print@"TOTALE1ALQC1"D; DoBTOTALE1ALQC1 = TOTALE1ALQC1 + CALQUILADOC1Pialq, 2T 2 ;, 8ialq, nalqC1<F; Print@TOTALE1ALQC1D; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo C que son atribuibles como cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Print@"e1remotehostalqxC1"D; Do@If@remote1xPCALQUILADOC1Pialq, 1TT 1, e1remotehostalqxC1PCALQUILADOC1Pialq, 1TT = e1remotehostalqxC1PCALQUILADOC1Pialq, 1TT + CALQUILADOC1Pialq, 2T;D;, 8ialq, nalqC1<D; Print@e1remotehostalqxC1D; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo C que estan asociados como punto de oriden o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L 58 la sumatoria del total de E1s H2do elemento de cada sublistaL L Modelo_Integral_ACK.nb Print@"e1hosttandemalqxC1"D; Do@If@remote1xPCALQUILADOC1Pialq, 1TT 1, e1hosttandemalqxC1PallhostxPCALQUILADOC1Pialq, 1TTT = e1hosttandemalqxC1PallhostxPCALQUILADOC1Pialq, 1TTT + CALQUILADOC1Pialq, 2T;D; If@remote1xPCALQUILADOC1Pialq, 1TT 0 Ï tandem1xPCALQUILADOC1Pialq, 1TT 0, e1hosttandemalqxC1PCALQUILADOC1Pialq, 1TT = e1hosttandemalqxC1PCALQUILADOC1Pialq, 1TT + CALQUILADOC1Pialq, 2T;D;, 8ialq, nalqC1<D; Print@e1hosttandemalqxC1D; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo C que deberán ser añadidos a las cargas a nivel de centrales Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA"CIRCUITOS INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_Alquilados2C1.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango C que son intradepartamentales: La data viene así: 1 2 0 El primer dato corresponde a la central de origen, el segundo dato a la central de destino y el tercer dato al número de EIs ∗L Print@"CALQUILADOC12"D; CALQUILADOC12 = Traducir@N@ReadList@"input_C_Alquilados2C1.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOC12D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango C a nivel Intradepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L Print@"nalqC12"D; nalqC12 = Length@CALQUILADOC12D; Print@nalqC12D; H∗ Identifica el número de elementos de la lista CALQUILADOC12 ∗L Print@"TOTALE1ALQC1"D; Do@TOTALE1ALQC1 = TOTALE1ALQC1 + CALQUILADOC12Pialq, 3T;, 8ialq, nalqC12<D; Print@TOTALE1ALQC1D; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo C. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable TOTALE1ALQC1 que correspondió a los E1s asociados a los circuitos Interdepartamentales del tipo C que eran atribuibles como cargas en el tramo intradepartamental ∗L Print@"e1remotehostalqxC1"D; Do@aux1 = CALQUILADOC12Pialq, 1T; aux2 = CALQUILADOC12Pialq, 2T; If@aux1 ≠ aux2, If@remote1xPaux1T 1, e1remotehostalqxC1Paux1T = e1remotehostalqxC1Paux1T + CALQUILADOC12Pialq, 3T;D; If@remote1xPaux2T 1, e1remotehostalqxC1Paux2T = e1remotehostalqxC1Paux2T + CALQUILADOC12Pialq, 3T;D;D; , 8ialq, nalqC12<D; Print@e1remotehostalqxC1D; H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo C que estan asociados como punto de oriden o destino a cada central remota. Se hace lo siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxC1 ∗L Print@"e1hosttandemalqxC1"D; Do@aux1 = CALQUILADOC12Pialq, 1T; aux2 = CALQUILADOC12Pialq, 2T; If@aux1 ≠ aux2, H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D; If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D; H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras, en caso de no ser remota es claro que el nodo es identificado como Host ∗L If@tandem1xPaux2T 0 Ï aux1 ≠ aux2, e1hosttandemalqxC1Paux2T = e1hosttandemalqxC1Paux2T + CALQUILADOC12Pialq, 3T;D; H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del origen, se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L If@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxC1Paux1T = e1hosttandemalqxC1Paux1T + CALQUILADOC12Pialq, 3T;D;D; D 59 e1hosttandemalqxC1Paux1T e1hosttandemalqxC1Paux1T CALQUILADOC12Pialq, 3T;D;D; , 8ialq, nalqC12<D; H∗ A nivel de las centrales de origen, si optó por la opción 5 Hestimar costo de circuitos del rango CL: Si la cabecera del origen no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del destino, se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L Print@e1hosttandemalqxC1D; H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales del tipo C que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxC1 ∗L PrintAStyleA Modelo_Integral_ACK.nb "CIRCUITOS LOCAL LIMA", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"CIRCUITOS INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_Alquilados2LL.txt"D; H∗ Leyendo la información de los circuitos alquilados Local Lima que son intradepartamentales: La data viene así: 1 2 0 El primer dato corresponde a la central de origen, el segundo dato a la central de destino y el tercer dato al número de EIs ∗L Print@"CALQUILADOLL2"D; CALQUILADOLL2 = Traducir@N@ReadList@"input_C_Alquilados2LL.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOLL2D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados Local Lima a nivel Intradepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L Print@"nalqLL2"D; nalqLL2 = Length@CALQUILADOLL2D; Print@nalqLL2D; H∗ Identifica el número de elementos de la lista CALQUILADOLL2 ∗L Print@"TOTALE1ALQLL"D; TOTALE1ALQLL = 0; Do@TOTALE1ALQLL = TOTALE1ALQLL + CALQUILADOLL2Pialq, 3T;, 8ialq, nalqLL2<D; Print@TOTALE1ALQLLD; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales Local Lima. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable TOTALE1ALQLL que correspondió a los E1s asociados a los circuitos Interdepartamentales Local Lima que eran atribuibles como cargas en el tramo intradepartamental ∗L Print@"e1remotehostalqxLL"D; e1remotehostalqxLL = zerox; Do@aux1 = CALQUILADOLL2Pialq, 1T; aux2 = CALQUILADOLL2Pialq, 2T; If@aux1 ≠ aux2, If@remote1xPaux1T 1, e1remotehostalqxLLPaux1T = e1remotehostalqxLLPaux1T + CALQUILADOLL2Pialq, 3T;D; If@remote1xPaux2T 1, e1remotehostalqxLLPaux2T = e1remotehostalqxLLPaux2T + CALQUILADOLL2Pialq, 3T;D;D; , 8ialq, nalqLL2<D; Print@e1remotehostalqxLLD; H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales Local Lima que estan asociados como punto de oriden o destino a cada central remota. Se hace lo siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxLL ∗L Print@"e1hosttandemalqxLL"D; e1hosttandemalqxLL = zerox; Do@aux1 = CALQUILADOLL2Pialq, 1T; aux2 = CALQUILADOLL2Pialq, 2T; If@aux1 ≠ aux2, H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D; If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D; H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras, en caso de no ser remota es claro que el nodo es identificado como Host ∗L If@tandem1xPaux2T 0 Ï aux1 ≠ aux2, e1hosttandemalqxLLPaux2T = e1hosttandemalqxLLPaux2T + CALQUILADOLL2Pialq, 3T;D; H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del origen, se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L I f@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxLLPaux1T = e1hosttandemalqxLLPaux1T + CALQUILADOLL2Pialq, 3T;D;D; , 8ialq, nalqLL2<D; 60 , 8ialq, nalqLL2<D; H∗ A nivel de las centrales de origen, si optó por la opción Hestimar costo de circuitos Local LimaL: Si la cabecera del origen no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del destino, se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L Print@e1hosttandemalqxLLD; H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales Local Lima que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxLL ∗L PrintAStyleA Modelo_Integral_ACK.nb "CIRCUITOS LOCAL PROVINCIA", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"CIRCUITOS INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_Alquilados2LP.txt"D; H∗ Leyendo la información de los circuitos alquilados Local Provincia que son intradepartamentales: La data viene así: 1 2 0 El primer dato corresponde a la central de origen, el segundo dato a la central de destino y el tercer dato al número de EIs ∗L Print@"CALQUILADOLP2"D; CALQUILADOLP2 = Traducir@N@ReadList@"input_C_Alquilados2LP.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOLP2D; H∗ Presenta la información del archivo de entrada de los circuitos alquilados Local Provincia a nivel Intradepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L Print@"nalqLP2"D; nalqLP2 = Length@CALQUILADOLP2D; Print@nalqLP2D; H∗ Identifica el número de elementos de la lista CALQUILADOLP2 ∗L Print@"TOTALE1ALQLP"D; TOTALE1ALQLP = 0; Do@TOTALE1ALQLP = TOTALE1ALQLP + CALQUILADOLP2Pialq, 3T;, 8ialq, nalqLP2<D; Print@TOTALE1ALQLPD; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales Local Provincia. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable TOTALE1ALQLP que correspondió a los E1s asociados a los circuitos Interdepartamentales Local Provincia que eran atribuibles como cargas en el tramo intradepartamental ∗L Print@"e1remotehostalqxLP"D; e1remotehostalqxLP = zerox; Do@aux1 = CALQUILADOLP2Pialq, 1T; aux2 = CALQUILADOLP2Pialq, 2T; If@aux1 ≠ aux2, If@remote1xPaux1T 1, e1remotehostalqxLPPaux1T = e1remotehostalqxLPPaux1T + CALQUILADOLP2Pialq, 3T;D; If@remote1xPaux2T 1, e1remotehostalqxLPPaux2T = e1remotehostalqxLPPaux2T + CALQUILADOLP2Pialq, 3T;D;D; , 8ialq, nalqLP2<D; Print@e1remotehostalqxLPD; H∗ Esta identificando los E1s correspondientes a circuitos Intradepartamentales Local Provincia que estan asociados como punto de oriden o destino a cada central remota. Se hace lo siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxLP ∗L Print@"e1hosttandemalqxLP"D; e1hosttandemalqxLP = zerox; Do@aux1 = CALQUILADOLP2Pialq, 1T; aux2 = CALQUILADOLP2Pialq, 2T; If@aux1 ≠ aux2, H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D; If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D; H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras, en caso de no ser remota es claro que el nodo es identificado como Host ∗L If@tandem1xPaux2T 0 Ï aux1 ≠ aux2, e1hosttandemalqxLPPaux2T = e1hosttandemalqxLPPaux2T + CALQUILADOLP2Pialq, 3T;D; H∗ A nivel de las centrales de destino, Si la cabecera del destino no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del origen, se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L If@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxLPPaux1T = e1hosttandemalqxLPPaux1T + CALQUILADOLP2Pialq, 3T;D;D; , 8ialq, nalqLP2<D; 61 Modelo_Integral_ACK.nb , 8ialq, nalqLP2<D; H∗ A nivel de las centrales de origen, si optó por la opción Hestimar costo de circuitos Local ProvinciaL: Si la cabecera del origen no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del destino, se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L Print@e1hosttandemalqxLPD; H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos Intradepartamentales Local Provincia que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxLP ∗L PrintAStyleA "CIRCUITOS RANGO A SATELITAL", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosAS.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango A Satelital a nivel Interdepartamental: La data viene así: 39 1 377 1 377 1 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Print@"CALQUILADOAS"D; CALQUILADOAS = Traducir@N@ReadList@"input_C_AlquiladosAS.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOASD; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango A Satelital a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L Print@"nalqAS"D; nalqAS = Length@CALQUILADOASD; Print@nalqASD; H∗ Identifica el número de elementos de la lista CALQUILADOAS ∗L e1remotehostalqxAS = zerox; e1hosttandemalqxAS = zerox; TOTALE1ALQAS = 0; Print@"TOTALE1ALQAS"D; DoBTOTALE1ALQAS = TOTALE1ALQAS + CALQUILADOASPialq, 2T 2 ;, 8ialq, nalqAS<F; Print@TOTALE1ALQASD; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo A Satelital que son atribuibles como cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Print@"e1remotehostalqxAS"D Do@If@remote1xPCALQUILADOASPialq, 1TT 1, e1remotehostalqxASPCALQUILADOASPialq, 1TT = e1remotehostalqxASPCALQUILADOASPialq, 1TT + CALQUILADOASPialq, 2T;D;, 8ialq, nalqAS<D; Print@e1remotehostalqxASD H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo A Satelital que estan asociados como punto de oriden o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L Print@"e1hosttandemalqxAS"D Do@If@remote1xPCALQUILADOASPialq, 1TT 1, e1hosttandemalqxASPallhostxPCALQUILADOASPialq, 1TTT = e1hosttandemalqxASPallhostxPCALQUILADOASPialq, 1TTT + CALQUILADOASPialq, 2T;D; If@remote1xPCALQUILADOASPialq, 1TT 0 Ï tandem1xPCALQUILADOASPialq, 1TT 0, e1hosttandemalqxASPCALQUILADOASPialq, 1TT = e1hosttandemalqxASPCALQUILADOASPialq, 1TT + CALQUILADOASPialq, 2T;D;, 8ialq, nalqAS<D; Print@e1hosttandemalqxASD H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo A Satelital que deberán ser añadidos a las cargas a nivel de centrales Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem L 62 de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA "CIRCUITOS RANGO B SATELITAL", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosBS.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango B Satelital a nivel Interdepartamental: La data viene así: 39 1 377 1 377 1 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Print@"CALQUILADOBS"D; CALQUILADOBS = Traducir@N@ReadList@"input_C_AlquiladosBS.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOBSD; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango B Satelital a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L Print@"nalqBS"D; nalqBS = Length@CALQUILADOBSD; Print@nalqBSD; H∗ Identifica el número de elementos de la lista CALQUILADOBS ∗L e1remotehostalqxBS = zerox; e1hosttandemalqxBS = zerox; TOTALE1ALQBS = 0; Print@"TOTALE1ALQBS"D; DoBTOTALE1ALQBS = TOTALE1ALQBS + CALQUILADOBSPialq, 2T 2 ;, 8ialq, nalqBS<F; Print@TOTALE1ALQBSD; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo B Satelital que son atribuibles como cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Print@"e1remotehostalqxBS"D; Do@If@remote1xPCALQUILADOBSPialq, 1TT 1, e1remotehostalqxBSPCALQUILADOBSPialq, 1TT = e1remotehostalqxBSPCALQUILADOBSPialq, 1TT + CALQUILADOBSPialq, 2T;D;, 8ialq, nalqBS<D; Print@e1remotehostalqxBSD; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo B Satelital que estan asociados como punto de oriden o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L Print@"e1hosttandemalqxBS"D; Do@If@remote1xPCALQUILADOBSPialq, 1TT 1, e1hosttandemalqxBSPallhostxPCALQUILADOBSPialq, 1TTT = e1hosttandemalqxBSPallhostxPCALQUILADOBSPialq, 1TTT + CALQUILADOBSPialq, 2T;D; If@remote1xPCALQUILADOBSPialq, 1TT 0 Ï tandem1xPCALQUILADOBSPialq, 1TT 0, e1hosttandemalqxBSPCALQUILADOBSPialq, 1TT = e1hosttandemalqxBSPCALQUILADOBSPialq, 1TT + CALQUILADOBSPialq, 2T;D;, 8ialq, nalqBS<D; Print@e1hosttandemalqxBSD; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo B Satelital que deberán ser añadidos a las cargas a nivel de centrales Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA "CIRCUITOS RANGO C SATELITAL", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosCS.txt"D; H∗ Leyendo la información de los circuitos alquilados del rango C Satelital a nivel Interdepartamental: La data viene así: 39 1 Modelo_Integral_ACK.nb 63 39 1 377 1 377 1 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 39 y 377 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Print@"CALQUILADOCS"D; CALQUILADOCS = Traducir@N@ReadList@"input_C_AlquiladosCS.txt", Number, RecordLists → TrueDDD; Print@CALQUILADOCSD; H∗ Presenta la información del archivo de entrada de los circuitos alquilados del rango C Satelital a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen o destino ,número de E1sD D ∗L Print@"nalqCS"D; nalqCS = Length@CALQUILADOCSD; Print@nalqCSD; H∗ Identifica el número de elementos de la lista CALQUILADOCS ∗L e1remotehostalqxCS = zerox; e1hosttandemalqxCS = zerox; TOTALE1ALQCS = 0; Print@"TOTALE1ALQCS"D; DoBTOTALE1ALQCS = TOTALE1ALQCS + CALQUILADOCSPialq, 2T 2 ;, 8ialq, nalqCS<F; Print@TOTALE1ALQCSD; H∗ Identifica el total de E1s asociados a los circuitos Interdepartamentales del tipo C Satelital que son atribuibles como cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Print@"e1remotehostalqxCS"D; Do@If@remote1xPCALQUILADOCSPialq, 1TT 1, e1remotehostalqxCSPCALQUILADOCSPialq, 1TT = e1remotehostalqxCSPCALQUILADOCSPialq, 1TT + CALQUILADOCSPialq, 2T;D;, 8ialq, nalqCS<D; Print@e1remotehostalqxCSD; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo C Satelital que estan asociados como punto de oriden o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L Print@"e1hosttandemalqxCS"D; Do@If@remote1xPCALQUILADOCSPialq, 1TT 1, e1hosttandemalqxCSPallhostxPCALQUILADOCSPialq, 1TTT = e1hosttandemalqxCSPallhostxPCALQUILADOCSPialq, 1TTT + CALQUILADOCSPialq, 2T;D; If@remote1xPCALQUILADOCSPialq, 1TT 0 Ï tandem1xPCALQUILADOCSPialq, 1TT 0, e1hosttandemalqxCSPCALQUILADOCSPialq, 1TT = e1hosttandemalqxCSPCALQUILADOCSPialq, 1TT + CALQUILADOCSPialq, 2T;D;, 8ialq, nalqCS<D; Print@e1hosttandemalqxCSD; H∗ Esta identificando los E1s correspondientes a circuitos interdepartamentales del tipo C Satelital que deberán ser añadidos a las cargas a nivel de centrales Host. Se realiza lo siguiente: En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras que no son Tandem y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA "CIRCUITOS NO OPERADORES", Bold, 16, Underlined, White, Background → BlueEE; PrintAStyleA"TRAMOS INTRADEPARTAMENTALES DE LOS CIRCUITOS INTERDEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_AlquiladosABCnop.txt"D; H∗ Leyendo la información de los circuitos alquilados de los no operadores que son Interdepartamentales. La data viene así: 39 8 39 7 216 9 El primer dato especifica uno de los puntos del circuito Horigen o destino, no se sabe cuálL, el segundo dato especifica la capacidad en E1s. Cada origen o destino esta identificado con alguna de las centrales del modelo, en el ejemplo, los números 39 y 216 hacen referencia a las centrales identificadas con dichos números. Cada circuito aparece 2 veces, en una fila aparecera el origen o destino y en otra el correspondiente destino u origen, sin embargo la información no esta ordenada Hlas filas no son consecutivasL, razón por la cual no es posible identificar a priori cuales son los pares ordenados asociados a un mismo circuito ∗L Modelo_Integral_ACK.nb 64 Modelo_Integral_ACK.nb Print@"CALQUILADOABCnop"D; CALQUILADOABCnop = Ceiling@Traducir@N@ReadList@"input_C_AlquiladosABCnop.txt", Number, RecordLists → TrueDDDD; Print@CALQUILADOABCnopD; H∗ Presenta la información del archivo de entrada de los circuitos alquilados de los no operadores a nivel Interdepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @@origen o destino, número de E1sDD ∗L Print@"nalqABCnop"D; nalqABCnop = Length@CALQUILADOABCnopD; Print@nalqABCnopD; H∗ Identifica el número de elementos de la lista CALQUILADOABCnop ∗L e1remotehostalqxABCnop = zerox; e1hosttandemalqxABCnop = zerox; TOTALE1ALQABCnop = 0; Print@"TOTALE1ALQABCnop"D; DoBTOTALE1ALQABCnop = TOTALE1ALQABCnop + CALQUILADOABCnopPialq, 2T 2 ;, 8ialq, nalqABCnop<F; Print@TOTALE1ALQABCnopD; H∗ Identifica el total de E1s asociados a los circuitos alquilados Interdepartamentales de los no operadores que son atribuibles como cargas en el tramo intradepartamental. Independientemente del nodo de referencia H1er dato de cada sublistaL, se suman todos los E1s identificados H2do elemento de cada sublistaL. El resultado se divide entre 2 porque cada circuito aparece dos veces ∗L Print@"e1remotehostalqxABCnop"D; Do@If@remote1xPCALQUILADOABCnopPialq, 1TT 1, e1remotehostalqxABCnopPCALQUILADOABCnopPialq, 1TT = e1remotehostalqxABCnopPCALQUILADOABCnopPialq, 1TT + CALQUILADOABCnopPialq, 2T;D;, 8ialq, nalqABCnop<D; Print@e1remotehostalqxABCnopD; H∗ Esta identificando los E1s correspondientes a circuitos alquilados interdepartamentales de los no operadores que estan asociados como punto de origen o destino a cada central remota. Dentro de la lista de nodos relacionados con dichos circuitos H1er dato de cada sublistaL, identifica las centrales que son remotas y para cada una de ellas realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L Print@"e1hosttandemalqxABCnop"D; Do@If@remote1xPCALQUILADOABCnopPialq, 1TT 1, e1hosttandemalqxABCnopPallhostxPCALQUILADOABCnopPialq, 1TTT = e1hosttandemalqxABCnopPallhostxPCALQUILADOABCnopPialq, 1TTT + CALQUILADOABCnopPialq, 2T;D; If@remote1xPCALQUILADOABCnopPialq, 1TT 0 Ï tandem1xPCALQUILADOABCnopPialq, 1TT 0, e1hosttandemalqxABCnopPCALQUILADOABCnopPialq, 1TT = e1hosttandemalqxABCnopPCALQUILADOABCnopPialq, 1TT + CALQUILADOABCnopPialq, 2T;D;, 8ialq, nalqABCnop<D; Print@e1hosttandemalqxABCnopD; H∗ Esta identificando los E1s correspondientes a circuitos alquilados interdepartamentales de los no operadores que deberán ser añadidos a las cargas a nivel de centrales Host. En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos asociados, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas Hpor jerarquía de la redL. En la segunda parte del código se identifica directamente dentro de la lista de nodos relacionados H1er dato de cada sublistaL las centrales que son cabeceras y que no son Tandem y para cada una de ellas se realiza la sumatoria del total de E1s H2do elemento de cada sublistaL ∗L PrintAStyleA"CIRCUITOS INTRADEPARTAMENTALES", Bold, 14, Blue, Background → YellowEE; OpenRead@"input_C_Alquilados2ABCnop.txt"D; H∗ Leyendo la información de los circuitos alquilados de los no operadores que son intradepartamentales: La data viene así: 377 261 3 183 190 2 39 76 2 El primer dato corresponde a la central de origen, el segundo dato a la central de destino y el tercer dato al número de EIs ∗L Print@"CALQUILADOABC2nop"D; CALQUILADOABC2nop = Ceiling@Traducir@N@ReadList@"input_C_Alquilados2ABCnop.txt", Number, RecordLists → TrueDDDD; Print@CALQUILADOABC2nopD; H∗ Presenta la información del archivo de entrada de los circuitos alquilados de los no operadores nivel Intradepartamental como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: @ @origen,destino,número de E1sD D ∗L Print@"nalqABC2nop"D; nalqABC2nop = Length@CALQUILADOABC2nopD; Print@nalqABC2nopD; H∗ Identifica el número de elementos de la lista CALQUILADOABC2nop ∗L Print@"TOTALE1ALQABCnop"D; Do@TOTALE1ALQABCnop = TOTALE1ALQABCnop + CALQUILADOABC2nopPialqnop, 3T;, 8ialqnop, nalqABC2nop<D; Print@TOTALE1ALQABCnopD; H∗ Identifica el total de E1s asociados a los circuitos alquilados Interdepartamentales de los no operadores. Se suman todos los E1s considerados como data H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable TOTALE1ALQB2 que correspondió a los E1s asociados a los circuitos alquilados Interdepartamentales L 65 TOTALE1ALQB2 que correspondió a los E1s asociados a los circuitos alquilados Interdepartamentales de los no operadores que eran atribuibles como cargas en el tramo intradepartamental ∗L Modelo_Integral_ACK.nb Print@"e1remotehostalqxABCnop"D; Do@aux1 = CALQUILADOABC2nopPialq, 1T; aux2 = CALQUILADOABC2nopPialq, 2T; If@aux1 ≠ aux2, If@remote1xPaux1T 1, e1remotehostalqxABCnopPaux1T = e1remotehostalqxABCnopPaux1T + CALQUILADOABC2nopPialq, 3T;D; If@remote1xPaux2T 1, e1remotehostalqxABCnopPaux2T = e1remotehostalqxABCnopPaux2T + CALQUILADOABC2nopPialq, 3T;D;D; , 8ialq, nalqABC2nop<D; Print@e1remotehostalqxABCnopD; H∗ Esta identificando los E1s correspondientes a circuitos alquilados Intradepartamentales de los no operadores que estan asociados como punto de oriden o destino a cada central remota. Si se optó por estimar los costos de los circutos del tipo B se hace lo siguiente: La primera parte del código identifica todos los nodos de origen H1er elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. La segunda parte del código identifica todos los nodos de destino H2do elemento de cada sublistaL que son remotas y se suma para cada una de ellas el total de E1s H3er elemento de cada sublistaL. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1remotehostalqxABCnop ∗L Print@"e1hosttandemalqxABCnop"D; Do@aux1 = CALQUILADOABC2nopPialq, 1T; aux2 = CALQUILADOABC2nopPialq, 2T; If@aux1 ≠ aux2, H∗ El código identifica el origen y el destino de cada circuito H1er y 2do elemento de cada sublistaL ∗L If@remote1xPaux1T 1, aux1 = allhostxPaux1T;D; If@remote1xPaux2T 1, aux2 = allhostxPaux2T;D; H∗ Si alguno de dichos nodos de origen y destino es remota el código identifica su respectivas cabeceras, en caso de no ser remota es claro que el nodo es identificado como Host ∗L If@tandem1xPaux2T 0 Ï aux1 ≠ aux2, e1hosttandemalqxABCnopPaux2T = e1hosttandemalqxABCnopPaux2T + CALQUILADOABC2nopPialq, 3T;D; H∗ A nivel de las centrales de destino, si la cabecera del destino no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del origen, se suma para cada una de las cabeceras del destino el número de E1s de sus remotas identificadas como destino de los circuitos H3er elemento de cada sublistaL. Si el destino no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L If@tandem1xPaux1T 0 Ï aux1 ≠ aux2, e1hosttandemalqxABCnopPaux1T = e1hosttandemalqxABCnopPaux1T + CALQUILADOABC2nopPialq, 3T;D;D; , 8ialq, nalqABC2nop<D; H∗ A nivel de las centrales de origen, si la cabecera del origen no es la Tandem del departamento, y si dicha cabecera es distinta de la cabecera del destino, se suma para cada una de las cabeceras del origen el número de E1s de sus remotas identificadas como origen de los circuitos H3er elemento de cada sublistaL. Si el origen no es remota, osea si es Host, automatícamente se imputa a dicha central los E1s del circuito H3er elemento la sublistaL ∗L Print@e1hosttandemalqxABCnopD; H∗ Este desarrollo esta identificando los E1s correspondientes a circuitos alquilados Intradepartamentales de los no operadores que deberán ser añadidos a las cargas a nivel de centrales Host. Nótese que dichos resultados se estan acumulando con la estimación ya realizada anteriormente para la variable e1hosttandemalqxABCnop ∗L 66 Modelo_Integral_ACK.nb PRINT["ESTIMACIÓN DE CARGAS EN E1S ASOCIADAS A LOS CIRCUITOS DE INTERCONEXIÓN Y QUE SON IMPUTABLES A LAS REDES INTRADEPARTAMENTALES"] PRINT["CIRCUITOS POR ENLACES DE INTERCONEXIÓN"] OpenRead["input_C_ITX.txt"]; (* Lee la información correspondiente a los circuitos de interconexión. La información se presenta de la siguiente manera: 439 39 439 40 39 2 132 1 223 1 El primer dato especifica el PDI de la red local de Tdp donde se realiza la interconexión, y el segundo dato corresponde al número de E1s del enlace *) Print["CdeITX"]; CdeITX=Traducir[N[ReadList["input_C_ITX.txt",Number,RecordLists→True]]]; Print[CdeITX]; (* Presenta la información de los circuitos de interconexión como una lista donde cada elemento es a su vez una lista que presenta los datos de cada fila: [[PDI,número de E1s]] *) Print["ncdeitx"]; ncdeitx=Length[CdeITX]; Print[ncdeitx]; (* Identifica el número de elementos de la lista CdeITX *) e1remotehostitxx=zerox; e1hosttandemitxx=zerox; TOTALE1ITX=0; TOTALE1ITXaux=0; CITX=zerox; Print["TOTALE1ITX"]; Do[TOTALE1ITX=TOTALE1ITX+CdeITXPialq,2T;,{ialq,ncdeitx}]; Print[TOTALE1ITX]; (* Sumatoria del total de E1s de Interconexión existentes, equivale a la sumatoria de los 2dos elementos de cada una de las sublistas *) Print["TOTALE1ITXaux"] Do[If[tandem1xPCdeITXPialq,1TT0,TOTALE1ITXaux=TOTALE1ITXaux+CdeITXPialq,2T;];,{ialq,ncdeitx}]; Print[TOTALE1ITXaux] (* Sumatoria del total de E1s de Interconeción existentes sólo para de los casos en los cuales el PDI especificado no es una central Tandem. Para dichos caso equivale a la sumatoria de los 2dos elementos de cada una de las sublistas *) Print["CITX"] Do[CITXPCdeITXPialq,1TT=CITXPCdeITXPialq,1TT+CdeITXPialq,2T;,{ialq,ncdeitx}]; Print[CITX] (* Identifica el total de E1s de interconexión que existen en cada central (obivamente habrá sólo 1 por departamento). Para ello identifica a que departamento pertenece cada PDI y luego totaliza el número de E1s que existe en cada departamento *) Print["e1remotehostitxx"]; Do[If[remote1xPCdeITXPialq,1TT1, e1remotehostitxxPCdeITXPialq,1TT= e1remotehostitxxPCdeITXPialq,1TT+CdeITXPialq,2T;];,{ialq,ncdeitx}]; Print[e1remotehostitxx]; (* Identifica el total de E1s a nivel R-H que estan asociados o vinculados con los enlaces de interconexión. Para ello, identifica los PDIs que son remotas y para cada uno de dichos casos totaliza el total de E1s de interconexión que se encuentran vinculados con dichos nodos *) Print["e1hosttandemitxx"]; Do[If[remote1xPCdeITXPialq,1TT1, e1hosttandemitxxPallhostxPCdeITXPialq,1TTT=e1hosttandemitxxPallhostxPCdeITXPialq,1TTT+CdeITXPialq,2T;]; If[remote1xPCdeITXPialq,1TT0 fl tandem1xPCdeITXPialq,1TT0, e1hosttandemitxxPCdeITXPialq,1TT=e1hosttandemitxxPCdeITXPialq,1TT+CdeITXPialq,2T;];,{ialq,ncdeitx}]; Print[e1hosttandemitxx]; (* Identifica el total de E1s a nivel H-T que estan asociados o vinculados con los enlaces de interconexión. En la primera parte del código identifica las centrales host que son cabeceras de las remotas en las cuales se identificó circuitos de interconexión, y para cada una de dichas cabeceras realiza la sumatoria de los circuitos asociados a sus remotas (por jerarquía de la red). En la segunda parte del código se identifica directamente dentro de la lista de PDIs (1er dato de cada sublista) las centrales que son cabeceras y que no son Tandem y para cada una de ellas se realiza la sumatoria del total de E1s (2do elemento de cada sublista) *) 67 Modelo_Integral_ACK.nb ALGORITMO DE PRIM PrintBStyleB "ALGORITMO DE PRIM", Bold, 16, Underlined, White, Background → RGBColorB0, H∗∗∗∗∗∗∗∗∗∗∗∗∗ en estrella con fibra enterrada ∗∗∗∗∗∗∗∗∗∗∗∗∗ L e1remotehostalqxABC2 = zerox; e1hosttandemalqxABC2 = zerox; 1 , 0FFF; 2 IfBConsideraPRIM ≠ 0, nodo = zerox; nodonoradio = zerox; numeronodos = 0; numeronodosnoradio = 0; prime1remotehostx = zerox; H∗ a nivel de voz ∗L primloadremotehostLocx = zerox; H∗ Voz Local ∗L primloadremotehostLDNx = zerox; H∗ Voz LDN ∗L primloadremotehostLDIx = zerox; H∗ Voz LDI ∗L prime1remotehostalqxA1 = zerox; H∗ circuitos tipo A ∗L prime1remotehostalqxB1 = zerox; H∗ circuitos tipo B ∗L prime1remotehostalqxC1 = zerox; H∗ circuitos tipo C ∗L prime1remotehostalqxLL = zerox; H∗ circuitos tipo Local LIMA ∗L prime1remotehostalqxLP = zerox; H∗ circuitos tipo Local Provincias ∗L prime1remotehostalqxAS = zerox; H∗ circuitos tipo A Satelital∗L prime1remotehostalqxBS = zerox; H∗ circuitos tipo B Satelital∗L prime1remotehostalqxCS = zerox; H∗ circuitos tipo C Satelital∗L prime1remotehostalqxABC2 = zerox; H∗ otros circuitos tipo A, B y C∗L prime1remotehostalqxABCnop = zerox; H∗ circuitos de No Operadores∗L prime1remotehostitxx = zerox; H∗ circuitos de Interconexión ∗L prime1remotehostadslx = zerox; H∗ Los de ADSL ∗L DoBIf@host1xPiaxT 1, numeronodos = 1; numeronodosnoradio = 1; nodoPnumeronodosT = iax; nodonoradioPnumeronodosnoradioT = iax;, If@esAnillopxPiaxT 0 Ï MemberQ@8Enterrado, Aereo, Urbana, Radio<, transtechxPiaxTD, numeronodos ++; nodoPnumeronodosT = iax;D; H∗Inicio de Cambios en el Algoritmo de PRIM para que sea similar al del modelo en access∗L If@esAnillopxPiaxT 0 Ï MemberQ@8Enterrado, Aereo, Urbana<, transtechxPiaxTD, numeronodosnoradio ++; nodonoradioPnumeronodosnoradioT = iax;D;D; H∗∗L IfBhost1xPiax + 1T 1 Ï numeronodos > 2, H∗ comienzo Prim ∗L Print@"Prim"D; H∗Todos los nodos∗L disttotal = 0; nodoconectado = Table@0, 8ix, numeronodos<D; nodoconectadoP1T = 1; H∗ vale 1 si ya forma parte del grafo ∗L aquienmeconecto = zerox; aquienmeconectoP1T = 1; nodoencontrado = 1; WhileBnodoencontrado ≠ 0, distaux = ∞; nodoencontrado = 0; nodoalqueseconecta = 0; For@iinod = 1, iinod < numeronodos, For@jjnod = iinod + 1, jjnod < numeronodos + 1, If@Hdistance@nodoPiinodT, nodoPjjnodTD < distaux Í nodoencontrado 0L Ï HHnodoconectadoPiinodT 1 Ï nodoconectadoPjjnodT 0L Í HnodoconectadoPjjnodT 1 Ï nodoconectadoPiinodT 0LL, distaux = distance@nodoPiinodT, nodoPjjnodTD; nodoencontrado = If@nodoconectadoPiinodT 0, iinod, jjnodD; nodoalqueseconecta = If@nodoconectadoPjjnodT 0, iinod, jjnodD;D; jjnod ++D; iinod ++D; If@nodoencontrado ≠ 0, nodoconectadoPnodoencontradoT = 1; aquienmeconectoPnodoencontradoT = nodoalqueseconecta;D; distaux disttotal = disttotal + ;F; factorNoLinealNoUrban H∗Nodos de Fibra∗L disttotalnoradio = 0; nodoconectadonoradio = Table@0, 8ix, numeronodosnoradio<D; nodoconectadonoradioP1T = 1; H∗ vale 1 si ya forma parte del grafo ∗L aquienmeconectonoradio = zerox; aquienmeconectonoradioP1T = 1; nodoencontradonoradio = 1; 68 nodoencontradonoradio 1; numeronodonormal = Table@0, 8ix, numeronodosnoradio<D; For@ibx = 1, ibx ≤ numeronodosnoradio, For@icx = 1, icx ≤ numeronodos, If@nodonoradioPibxT nodoPicxT, numeronodonormalPibxT = icxD; icx ++D; ibx ++D; Modelo_Integral_ACK.nb WhileBnodoencontradonoradio ≠ 0, distauxnoradio = ∞; nodoencontradonoradio = 0; nodoalqueseconectanoradio = 0; For@iinod = 1, iinod < numeronodosnoradio, For@jjnod = iinod + 1, jjnod < numeronodosnoradio + 1, If@Hdistance@nodonoradioPiinodT, nodonoradioPjjnodTD < distauxnoradio Í nodoencontradonoradio 0L Ï HHnodoconectadonoradioPiinodT 1 Ï nodoconectadonoradioPjjnodT 0L Í HnodoconectadonoradioPjjnodT 1 Ï nodoconectadonoradioPiinodT 0LL, distauxnoradio = distance@nodonoradioPiinodT, nodonoradioPjjnodTD; nodoencontradonoradio = If@nodoconectadonoradioPiinodT 0, iinod, jjnodD; nodoalqueseconectanoradio = If@nodoconectadonoradioPjjnodT 0, iinod, jjnodD;D; jjnod ++D; iinod ++D; If@nodoencontradonoradio ≠ 0, nodoconectadonoradioPnodoencontradonoradioT = 1; aquienmeconectonoradioPnodoencontradonoradioT = nodoalqueseconectanoradio;D; distauxnoradio disttotalnoradio = disttotalnoradio + ;F; factorNoLinealNoUrban For@ibx = 2, ibx ≤ numeronodosnoradio, aquienmeconectoPnumeronodonormalPibxTT = numeronodonormalPaquienmeconectonoradioPibxTT; ibx ++D; ForBibx = 2, ibx ≤ numeronodos, distaux = distance@nodoPibxT, nodoPaquienmeconectoPibxTTD; disthostxPnodoPibxTT = distaux ; factorNoLinealxPnodoPibxTT repfibraxPnodoPibxTT = distaux ; factorNoLinealxPnodoPibxTT ConexionPnodoPibxTT = nodoPaquienmeconectoPibxTT; If@Hibx 1L Ï HConsideraPRIM 2L Ï HtranstechxPnodoPibxTT EnterradoL, disthostxPnodoPibxTT = 2 ∗ disthostxPnodoPibxTT; repfibraxPnodoPibxTT = H∗2∗LrepfibraxPnodoPibxTT;D; H∗Se le retira el producto por 2∗L If@HConsideraPRIM 3L Ï HtranstechxPnodoPibxTT EnterradoL, disthostxPnodoPibxTT = 2 ∗ disthostxPnodoPibxTT; repfibraxPnodoPibxTT = H∗2∗LrepfibraxPnodoPibxTT;D; H∗Se le retira el producto por 2∗L distaux disttotal = disttotal + ; factorNoLinealNoUrban ibx ++F; H∗ ahora actualizar numero de e1s ∗L Do@prime1remotehostxPixT = e1remotehostx@@ixDD; primloadremotehostLocxPixT = loadremotehostLocxPixT; primloadremotehostLDNxPixT = loadremotehostLDNxPixT; primloadremotehostLDIxPixT = loadremotehostLDIxPixT; prime1remotehostalqxA1PixT = e1remotehostalqxA1PixT; prime1remotehostalqxB1PixT = e1remotehostalqxB1PixT; prime1remotehostalqxC1PixT = e1remotehostalqxC1PixT; prime1remotehostalqxLLPixT = e1remotehostalqxLLPixT; prime1remotehostalqxLPPixT = e1remotehostalqxLPPixT; prime1remotehostalqxASPixT = e1remotehostalqxASPixT; prime1remotehostalqxBSPixT = e1remotehostalqxBSPixT; prime1remotehostalqxCSPixT = e1remotehostalqxCSPixT; prime1remotehostalqxABC2PixT = e1remotehostalqxABC2PixT; prime1remotehostalqxABCnopPixT = e1remotehostalqxABCnopPixT; prime1remotehostitxxPixT = e1remotehostitxxPixT; prime1remotehostadslxPixT = e1remotehostadslxPixT;, 8ix, nx<D; aquienmeconecto2 = aquienmeconecto; For@iinod = 2, iinod < numeronodos + 1, While@ Haquienmeconecto2PiinodT ≠ 0L Ï Haquienmeconecto2PiinodT ≠ 1L, e1remotehostxPnodoPaquienmeconecto2PiinodTTT = e1remotehostxPnodoPaquienmeconecto2PiinodTTT + prime1remotehostxPnodoPiinodTT; loadremotehostLocxPnodoPaquienmeconecto2PiinodTTT = loadremotehostLocxPnodoPaquienmeconecto2PiinodTTT + primloadremotehostLocxPnodoPiinodTT; loadremotehostLDNxPnodoPaquienmeconecto2PiinodTTT = loadremotehostLDNxPnodoPaquienmeconecto2PiinodTTT + primloadremotehostLDNxPnodoPiinodTT; loadremotehostLDIxPnodoPaquienmeconecto2PiinodTTT = loadremotehostLDIxPnodoPaquienmeconecto2PiinodTTT + primloadremotehostLDIxPnodoPiinodTT; e1remotehostalqxA1PnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxA1PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxA1PnodoPiinodTT; e1remotehostalqxB1PnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxB1PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxB1PnodoPiinodTT; e1remotehostalqxC1PnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxC1PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxC1PnodoPiinodTT; e1remotehostalqxLLPnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxLLPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxLLPnodoPiinodTT; e1remotehostalqxLPPnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxLPPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxLPPnodoPiinodTT; 69 e1remotehostalqxLPPnodoPaquienmeconecto2PiinodTTT prime1remotehostalqxLPPnodoPiinodTT; e1remotehostalqxASPnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxASPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxASPnodoPiinodTT; e1remotehostalqxBSPnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxBSPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxBSPnodoPiinodTT; e1remotehostalqxCSPnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxCSPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxCSPnodoPiinodTT; e1remotehostalqxABC2PnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxABC2PnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxABC2PnodoPiinodTT; e1remotehostalqxABCnopPnodoPaquienmeconecto2PiinodTTT = e1remotehostalqxABCnopPnodoPaquienmeconecto2PiinodTTT + prime1remotehostalqxABCnopPnodoPiinodTT; e1remotehostadslxPnodoPaquienmeconecto2PiinodTTT = e1remotehostadslxPnodoPaquienmeconecto2PiinodTTT + prime1remotehostadslxPnodoPiinodTT; e1remotehostitxxPnodoPaquienmeconecto2PiinodTTT = e1remotehostitxxPnodoPaquienmeconecto2PiinodTTT + prime1remotehostitxxPnodoPiinodTT; aquienmeconecto2PiinodT = aquienmeconectoPaquienmeconecto2PiinodTT;D; Modelo_Integral_ACK.nb iinod ++D;F; F; , 8iax, nx − 1<F; H∗∗∗∗∗∗∗∗∗∗∗∗∗Fin Algoritmo de Prim para conectar las remotas∗∗∗∗∗∗∗∗∗∗∗∗∗ L Tcs = 8"", "Enlaces de Itx", "LD en Rango A", "LD en Rango B", "LD en Rango C"<; Print@"Valores Luego de PRIM"D; loadremotehostx = loadremotehostLocx + loadremotehostLDNx + loadremotehostLDIx; Print@TableForm@ Table@8ix, idxPixT, e1remotehostxPixT, loadremotehostLocxPixT, loadremotehostLDNxPixT, loadremotehostLDIxPixT, loadremotehostxPixT, e1remotehostalqxA1PixT, e1remotehostalqxB1PixT, e1remotehostalqxC1PixT, e1remotehostalqxLLPixT, e1remotehostalqxLPPixT, e1remotehostalqxASPixT, e1remotehostalqxBSPixT, e1remotehostalqxCSPixT, e1remotehostalqxABC2PixT, e1remotehostalqxABCnopPixT, e1remotehostadslxPixT, e1remotehostitxxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ix", "idx", "E1s Voz", "Erlangs Local", "Erlangs LDN", "Erlangs LDI", "Erlangs Total", "E1s Rango A", "E1s Rango B", "E1s Rango C", "E1s Local Lima", "E1s Local Prov", "E1s Rango A Sat", "E1s Rango B Sat", "E1s Rango C Sat", "E1s Otros", "E1s No Op", "E1s ADSL", "E1s ITX"<<DD; ACUMULACION DE E1s A NIVEL DE ANILLOS PRINTB" ACUMULADO DEL NÚMERO DE E1S A NIVEL DE ANILLOS"F; PRINTA" ACUMULADO PROVINCIALES"E; e1Anillop = zerop; H∗ Voz ∗L loadAnilloLocp = zerop; H∗ Voz Local ∗L loadAnilloLDNp = zerop; H∗ Voz LDN ∗L loadAnilloLDIp = zerop; H∗ Voz LDI ∗L e1AnilloalqpA1 = zerop; H∗ Circuitos Rango A ∗L e1AnilloalqpB1 = zerop; H∗ Circuitos Rango B ∗L e1AnilloalqpC1 = zerop; H∗ Circuitos Rango C ∗L e1AnilloalqpLL = zerop; H∗ Circuitos Local Lima ∗L e1AnilloalqpLP = zerop; H∗ Circuitos Local Provincias ∗L e1AnilloalqpAS = zerop; H∗ Circuitos Rango A Satelital∗L e1AnilloalqpBS = zerop; H∗ Circuitos Rango B Satelital∗L e1AnilloalqpCS = zerop; H∗ Circuitos Rango C Satelital∗L e1AnilloalqpABC2 = zerop; H∗ Otros Circuitos Rango A, B y C∗L e1AnilloalqpABCnop = zerop;H∗ Circuitos de No Operadores∗L e1Anilloadslp = zerop; H∗ ADSL ∗L e1Anilloitxp = zerop; H∗ Circuitos de Interconexión ∗L ProvAnillo = 1; esAnillo = 0; Do@ If@host1xPixT 1, If@esAnillopxPixT 1, ProvAnillo = provxPixT; esAnillo = 1;, esAnillo = 0; D; D; If@esAnillo 1, e1AnillopPProvAnilloT = e1AnillopPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostxPixT ∗ If@host1xPixT 1, 0, 1D; loadAnilloLocpPProvAnilloT = loadAnilloLocpPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ loadremotehostLocxPixT ∗ If@host1xPixT 1, 0, 1D; loadAnilloLDNpPProvAnilloT = loadAnilloLDNpPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ loadremotehostLDNxPixT ∗ If@host1xPixT 1, 0, 1D; loadAnilloLDIpPProvAnilloT = loadAnilloLDIpPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ loadremotehostLDIxPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpA1PProvAnilloT = e1AnilloalqpA1PProvAnilloT + 70 Modelo_Integral_ACK.nb e1AnilloalqpA1PProvAnilloT e1AnilloalqpA1PProvAnilloT If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxA1PixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpB1PProvAnilloT = e1AnilloalqpB1PProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxB1PixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpC1PProvAnilloT = e1AnilloalqpC1PProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxC1PixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpLLPProvAnilloT = e1AnilloalqpLLPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxLLPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpLPPProvAnilloT = e1AnilloalqpLPPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxLPPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpASPProvAnilloT = e1AnilloalqpASPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxASPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpBSPProvAnilloT = e1AnilloalqpBSPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxBSPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpCSPProvAnilloT = e1AnilloalqpCSPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxCSPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpABC2PProvAnilloT = e1AnilloalqpABC2PProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxABC2PixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloalqpABCnopPProvAnilloT = e1AnilloalqpABCnopPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostalqxABCnopPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloadslpPProvAnilloT = e1AnilloadslpPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostadslxPixT ∗ If@host1xPixT 1, 0, 1D; e1AnilloitxpPProvAnilloT = e1AnilloitxpPProvAnilloT + If@esAnillopxPixT 0, 0, 1D ∗ e1remotehostitxxPixT ∗ If@host1xPixT 1, 0, 1D; D; , 8ix, nx<D; loadAnillop = loadAnilloLocp + loadAnilloLDNp + loadAnilloLDIp; H∗ Se estima el número de E1s a nivel de cada anillo provincia para cada servicio. Para ello, se identifica cada provincia Higual a la provincia de cada cabeceraL y dentro de cada provincia donde efectivamente existe un anillo provincial se suma de todas las remotas que forman parte del anillo la respectiva variable e1remotehostx, loadremotehostLocx, loadremotehostLDNx, loadremotehostLDIx, loadremotehostx, e1remotehostalqxA1, e1remotehostalqxB1, e1remotehostalqxC1, e1remotehostalqxLL, e1remotehostalqxLP, e1remotehostalqxAS, e1remotehostalqxBS, e1remotehostalqxCS, e1remotehostalqxABC2, e1remotehostalqxABCnop, e1remotehostadslx, e1remotehostitxx ∗L Print@TableForm@Table@8ip, provTXTpPipT, e1AnillopPipT, loadAnilloLocpPipT, loadAnilloLDNpPipT, loadAnilloLDIpPipT, e1AnilloalqpA1PipT, e1AnilloalqpB1PipT, e1AnilloalqpC1PipT, e1AnilloalqpLLPipT, e1AnilloalqpLPPipT, e1AnilloalqpASPipT, e1AnilloalqpBSPipT, e1AnilloalqpCSPipT, e1AnilloalqpABC2PipT, e1AnilloalqpABCnopPipT, e1AnilloadslpPipT, e1AnilloitxpPipT<, 8ip, np<D, TableSpacing → 80, 1<, TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "e1Anillop", "loadAnilloLocp", "loadAnilloLDNp", "loadAnilloLDIp", "e1AnilloalqpA1", "e1AnilloalqpB1", "e1AnilloalqpC1", "e1AnilloalqpLL", "e1AnilloalqpLP", "e1AnilloalqpAS", "e1AnilloalqpBS", "e1AnilloalqpCS", "e1AnilloalqpABC2", "e1AnilloalqpABCnop", "e1Anilloadslp", "e1Anilloitxp"<<DD; PRINTA" ACUMULADO DEPARTAMENTALES"E; e1Anillod = zerod; H∗ Voz ∗L loadAnilloLocd = zerod; H∗ Voz Local ∗L loadAnilloLDNd = zerod; H∗ Voz LDN ∗L loadAnilloLDId = zerod; H∗ Voz LDI ∗L e1AnilloalqdA1 = zerod; H∗ Circuitos Rango A ∗L e1AnilloalqdB1 = zerod; H∗ Circuitos Rango B ∗L e1AnilloalqdC1 = zerod; H∗ Circuitos Rango C ∗L e1AnilloalqdLL = zerod; H∗ Circuitos Local Lima ∗L e1AnilloalqdLP = zerod; H∗ Circuitos Local Provincia ∗L e1AnilloalqdAS = zerod; H∗ Circuitos Rango A Satelital∗L e1AnilloalqdBS = zerod; H∗ Circuitos Rango B Satelital∗L e1AnilloalqdCS = zerod; H∗ Circuitos Rango C Satelital∗L e1AnilloalqdABC2 = zerod; H∗ Otros Circuitos Rango A, B y C ∗L e1AnilloalqdABCnop = zerod;H∗ Circuitos de No Operadores ∗L e1Anilloadsld = zerod; H∗ ADSL ∗L e1AnilloRDd = zerod; H∗ Rutas directas ∗L e1Anilloitxd = zerod; H∗ Circuitos de Interconexión ∗L DepAnillo = 0; esAnillo = 0; Do@If@AnilloCabecerasPipT ≠ 0, If@tandem1xPAnilloCabecerasPipTT 1, If@esAnillodxPAnilloCabecerasPipTT ≠ NA, DepAnillo = deptxPAnilloCabecerasPipTT; esAnillo = 1;, esAnillo = 0; D; D; If@esAnillo 1, e1AnillodPDepAnilloT = e1AnillodPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; loadAnilloLocdPDepAnilloT = loadAnilloLocdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ loadhosttandemLocxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; loadAnilloLDNdPDepAnilloT = loadAnilloLDNdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ loadhosttandemLDNxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; 71 Modelo_Integral_ACK.nb loadhosttandemLDNxPAnilloCabecerasPipTT If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; loadAnilloLDIdPDepAnilloT = loadAnilloLDIdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ loadhosttandemLDIxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdA1PDepAnilloT = e1AnilloalqdA1PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxA1PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdB1PDepAnilloT = e1AnilloalqdB1PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxB1PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdC1PDepAnilloT = e1AnilloalqdC1PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxC1PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdLLPDepAnilloT = e1AnilloalqdLLPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxLLPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdLPPDepAnilloT = e1AnilloalqdLPPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxLPPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdASPDepAnilloT = e1AnilloalqdASPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxASPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdBSPDepAnilloT = e1AnilloalqdBSPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxBSPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdCSPDepAnilloT = e1AnilloalqdCSPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxCSPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdABC2PDepAnilloT = e1AnilloalqdABC2PDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxABC2PAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloalqdABCnopPDepAnilloT = e1AnilloalqdABCnopPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemalqxABCnopPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloadsldPDepAnilloT = e1AnilloadsldPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemadslxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloitxdPDepAnilloT = e1AnilloitxdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1hosttandemitxxPAnilloCabecerasPipTT ∗ If@tandem1xPAnilloCabecerasPipTT 1, 0, 1D; e1AnilloRDdPDepAnilloT = e1AnilloRDdPDepAnilloT + If@esAnillodxPAnilloCabecerasPipTT NA, 0, 1D ∗ e1RDxPAnilloCabecerasPipTT; D; D; , 8ip, np<D; loadAnillod = loadAnilloLocd + loadAnilloLDNd + loadAnilloLDId; H∗ Se estima el número de E1s de cada anillo departamental para cada servicio. Para ello, se identifica cada departamento Higual al departamento de cada TandemL y dentro de cada departamento donde efectivamente existe un anillo departamental se suma de todas las cabeceras que forman parte del anillo la respectiva variable e1hosttandemx, loadhosttandemLocx, loadhosttandemLDNx, loadhosttandemLDIx, loadhosttandemx, e1hosttandemalqxA1, e1hosttandemalqxB1, e1hosttandemalqxC1, e1hosttandemalqxLL, e1hosttandemalqxLP, e1hosttandemalqxAS, e1hosttandemalqxBS, e1hosttandemalqxCS, e1hosttandemalqxABC2, e1hosttandemalqxABCnop, e1hosttandemadslx, e1hosttandemitxx, e1RDx ∗L Print@TableForm@Table@8id, deptTXTdPidT, e1AnillodPidT, loadAnilloLocdPidT, loadAnilloLDNdPidT, loadAnilloLDIdPidT, e1AnilloalqdA1PidT, e1AnilloalqdB1PidT, e1AnilloalqdC1PidT, e1AnilloalqdLLPidT, e1AnilloalqdLPPidT, e1AnilloalqdASPidT, e1AnilloalqdBSPidT, e1AnilloalqdCSPidT, e1AnilloalqdABC2PidT, e1AnilloalqdABCnopPidT, e1AnilloadsldPidT, e1AnilloitxdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableDirections → 8Column, Row<, TableHeadings → 8None, 8"id", "Nombre Departamento", "e1Anillod", "loadAnilloLocd", "loadAnilloLDNd", "loadAnilloLDId", "e1AnilloalqdA1", "e1AnilloalqdB1", "e1AnilloalqdC1", "e1AnilloalqdLL", "e1AnilloalqdLP", "e1AnilloalqdAS", "e1AnilloalqdBS", "e1AnilloalqdCS", "e1AnilloalqdABC2", "e1AnilloalqdABCnop", "e1Anilloadsld", "e1Anilloitxd"<<DD; PRINTA" A NIVEL DE TODOS LOS SERVICIOS"E; e1remotehostTOTALx = Ceiling@e1remotehostx + e1remotehostadslx + e1remotehostalqxA1 + e1remotehostalqxB1 + e1remotehostalqxC1 + e1remotehostalqxLL + e1remotehostalqxLP + e1remotehostalqxAS + e1remotehostalqxBS + e1remotehostalqxCS + e1remotehostalqxABC2 + e1remotehostalqxABCnop + e1remotehostitxxD; e1hosttandemTOTALx = Ceiling@e1hosttandemx + e1hosttandemadslx + e1hosttandemalqxA1 + e1hosttandemalqxB1 + e1hosttandemalqxC1 + e1hosttandemalqxLL + e1hosttandemalqxLP + e1hosttandemalqxAS + e1hosttandemalqxBS + e1hosttandemalqxCS + e1hosttandemalqxABC2 + e1hosttandemalqxABCnop + e1hosttandemitxxD; H∗ Estima el total de E1s a nivel RH y HT, incluyendo todos los servicios: Cargas de Voz, Cargas de circuitos alquilados de los 3 rangos, Cargas de otros circuitos, Adsl, Cargas de circuitos de no Operadores y Enlaces de Interconexión. ∗L Print@TableForm@Table@8ix, idxPixT, yPix, 13T, e1remotehostTOTALxPixT, e1hosttandemTOTALxPixT<, 8ix, nx<D, TableSpacing → 80, 1<, TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "e1remotehostTOTALx", "e1hosttandemTOTALx"<<DD; e1AnilloTOTALp = Ceiling@ e1Anillop + e1AnilloalqpA1 + e1AnilloalqpB1 + e1AnilloalqpC1 + e1AnilloalqpLL + e1AnilloalqpLP + e1AnilloalqpAS + e1AnilloalqpBS + e1AnilloalqpCS + e1AnilloalqpABC2 + e1AnilloalqpABCnop + e1Anilloadslp + e1AnilloitxpD; H∗ Estima el total de E1s de los anillos provinciales para todos los servicios. Para ellos suma los E1s asociados a cada uno de los servicios. ∗L Print@TableForm@Table@8ip, provTXTpPipT, e1AnilloTOTALpPipT<, 8ip, np<D, TableSpacing → 80, 1<, TableDirections → 8Column, Row<, TableHeadings → 8None, 8"ip", "Nombre Provincia", "e1AnilloTOTALp"<<DD; e1AnilloTOTALd = Ceiling@ e1Anillod + e1AnilloalqdA1 + e1AnilloalqdB1 + e1AnilloalqdC1 + e1AnilloalqdLL + e1AnilloalqdLP + e1AnilloalqdAS + e1AnilloalqdBS + e1AnilloalqdCS + e1AnilloalqdABC2 + e1AnilloalqdABCnop + e1Anilloadsld + e1AnilloitxdD; 72 Modelo_Integral_ACK.nb e1AnilloalqdBS e1AnilloalqdCS e1AnilloalqdABC2 e1AnilloalqdABCnop e1Anilloadsld e1AnilloitxdD; H∗ Estima el total de E1s de los anillos departamentales para todos los servicios. Para ellos suma los E1s asociados a cada uno de los servicios. ∗L Print@TableForm@Table@8id, deptTXTdPidT, e1AnilloTOTALdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableDirections → 8Column, Row<, TableHeadings → 8None, 8"id", "Nombre Departamento", "e1AnilloTOTALd"<<DD; CALCULO DE COSTOS EN CONMUTACIÓN Dimensionamiento, Costeo, Distribución de Costo e Identificación de Costo Atribuible a Tráfico para Centrales de Conmutación y Unidades Remotas Lectura de Datos à Centrales ü Estructura del Archivo de Centrales El archivo de centrales tiene la siguiente estructura: - ID Central - Departamento - Provincia - Nombre Central - Funcion - Lineas PSTN - Lineas RSDI Basicas - Lineas RSDI Primarias - Numero de Remotas (Asociadas a Central Cabecera) Dicho archivo tiene formato de texto separado por comas e incluye los nombres de los campos. ü Lectura del Archivo de Centrales {CenComInput, CenComN } H∗ lee el archivo incluyendo cabecera ∗L CenComAux = Import@"ModCom_ListadoCentrales.txt", "CSV"D; H∗extrae cabecera ∗L CenComInput = Rest@CenComAuxD; H∗numero de elementos ∗L CenComN = Length@CenComInputD; à Parametros ü Precios {CenComPrec} H∗ lee el archivo incluyendo cabecera ∗L CenComAux = ReadList@"ModCom_PreciarioCentrales.txt", String, RecordLists −> TrueD; H∗subdivide cada linea por el separador ";"∗L CenComAux = StringSplit@CenComAuxP1T, ";"D; H∗extrae cabecera ∗L CenComPrec = Rest@CenComAuxD; H∗ convierte valores de cadena a numeros∗L m = Length@CenComPrecD; Do@CenComPrecPi, 3T = ToExpression@CenComPrecPi, 3T D; H∗ ITEM ∗L CenComPrecPi, 5T = ToExpression@CenComPrecPi, 5T D; H∗ PRECIO UNITARIO ∗L , 8i, 1, m<D; ü Factores {CenComFactores, CenComPorcInst} H∗ lee el archivo incluyendo cabecera ∗L CenComAux = Import@"ModCom_Factores.txt", "CSV"D; H∗extrae cabecera ∗L CenComFactores = Rest@CenComAuxD; CenComPorcInst = CenComFactores@@1, 3DD; 73 Modelo_Integral_ACK.nb Calculo de Parametros de Dimensionamiento de las Centrales à Enlaces (E0' s) {CenComE0s} CenComE0s = Table@0, 8i, 1, CenComN<D; Do@idCentralMFija = CenComInputPi, 1T; idPosCentralMIntegral = idinvertxPidCentralMFijaT; CenComE0sPiT = trunkxPidPosCentralMIntegralT;, 8i, 1, CenComN<D; à Remotas por Cabecera {CenComRemCab} H∗Crea un array para contener el id_central y el numero de remotas que atiende∗L CenComRemCab = Table@8CenComInputPi, 1T, CenComInputPi, 9T<, 8i, 1, CenComN<D; à Acondicionamiento de Archivo de E0s Module@ 8aux<, H∗ Actualiza numero de E0's ∗L H∗ san isidro neax ∗L CenComE0sP400T = 105; H∗ tandemlimax ∗L CenComE0sP252T = 21 287; D; Dimensionamiento de Centrales à Funciones Auxiliares ü BuscarV Funcion que busca el valor indicado en una matriz y devuelve el elemento que corresponde de la columna solicitada (El primer valor debe ser el valor de Cero) Es una función propia de MS Excel. BuscarV@mValorBuscado_, mMatrizBuscarEn_, mColumna_ D := Module@8i, j, k, a, m, AuxV<, m = Length@mMatrizBuscarEnD; AuxV = mMatrizBuscarEnPm, mColumnaT; Do@ If@mValorBuscado <= mMatrizBuscarEnPi, 1T, AuxV = mMatrizBuscarEnPi, mColumnaT; Return@AuxVD; D; , 8i, 1, m<D; Return@AuxVD; D; ü RedondearMas Funcion que calcula el mayor numero entero, alejándose del Cero (Equivale a la funcion Ceiling para valores positivos y a Floor para valores negativos) Es una función propia de MS Excel RedondearMas@x_D := If@x ≥ 0, Ceiling@xD, Floor@xDD; ü RedondearMenos Funcion que calcula el menor numero entero , acercándose al Cero (Equivale a la funcion Floor para valores positivos y a Ceiling para valores negativos) Es una función propia de MS Excel RedondearMenos@x_D := If@x >= 0, Floor@xD, Ceiling@xDD; 74 Modelo_Integral_ACK.nb à Matriz de Categorias de Costos {CenComCatCosto, - CenComCatCostoAccesoPSTN, CenComCatCostoAccesoBAS, CenComCatCostoAccesoPRI, CenComCatCostoTrafico, CenComCatCostoSenalizacion - } Se define una matriz que contiene las categorías de costo que serán utilizadas para distribuir el costo de los elementos de las centrales (Cabeceras y Unidades Remotas) posteriormente. Por simplificación se ha considerado conveniente utilizar el mismo vector tanto para Cabeceras como para Unidades Remotas. En el caso de categorías no utilizadas, simplemente no tendrán valor asignado. CenComCatCosto = 9 "ACCESO−PSTN", H∗ 1 ∗L "ACCESO−RDSI BASICO", H∗ 2 ∗L "ACCESO−RDSI PRIMARIO", H∗ 3 ∗L "TRAFICO", H∗ 4 ∗L "SEÑALIZACION" H∗ 5 ∗L =; Se definen adicionalmente un conjunto de símbolos que actuarán como "índices" de la matriz definida anteriormente para hacer referencia al tipo de costo deseado. CenComCatCostoAccesoPSTN = 1; CenComCatCostoAccesoBAS = 2; CenComCatCostoAccesoPRI = 3; CenComCatCostoTrafico = 4; CenComCatCostoSenalizacion = 5; à Matrices de Elementos de cada Subsistema de una Central Cabecera Cada Central Cabecera se ha dividido en diversos subsistemas, cada uno de los cuales contiene elementos o "equipos" (armarios, tarjetas, almacenes, cables, etc.) Se ha desarrollado un patrón para facilitar el trabajo con estos elementos. Dicho patrón es el siguiente: Para cada Subsistema: Definición de Matrices generales Matriz de Nombre de los elementos (Titulos) Matriz de Precio de los elementos Matriz de Matriz de distribución de costo de los elementos Matriz auxiliar para la definción de elementos. (Equivale a la definición de un tipo/estructura de datos) Para cada elemento del subsistema Comentario conteniendo el nombre del elemento Variable auxiliar para indexar el elemento al interior de las matrices del subsistema Asignación del nombre del elemento Asignación del precio del elemento Para las Centrales de Conmutación Definición de Matrices Generales Matriz que contiene la estructura de la central, agrupados en subsistemas y elementos: auxElem. (Equivale a la definición de un tipo/estructura de datos) Matriz que contiene el vector de precios de la central, agrupados en subsistemas y elementos: auxPrec Matriz que contiene el nombre de los elementos de la central, agrupados en subsistemas y elementos: auxTit Matriz que contiene la distribución de los elementos de la central, para cada tipo de costo, agrupados en subsistemas y elementos: auxDist (Equivale a la definición de un tipo/estructura de datos) 75 Modelo_Integral_ACK.nb ü Matriz de Elementos del Subsistema de Abonado {CenComTituloSA, CenComPreciosSA, CenComDistribucionSA, auxSA} CenComTituloSA = Table@"", 8i, 1, 14<D; CenComPreciosSA = Table@0, 8i, 1, 14<D; CenComDistribucionSA = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 14<D; auxSA = Table@0, 8i, 1, 14<D; H∗ TARJETAS DE LINEA ∗L a = 1; CenComTituloSAPaT = "TARJETA PARA 8 ABONADOS ACA − 3"; CenComPreciosSAPaT = CenComPrecP9, 5T; a = 2; CenComTituloSAPaT = "TARJETA KR PARA LSM DE ACA − 3"; CenComPreciosSAPaT = CenComPrecP10, 5T; H∗ LSM's ∗L a = 3; CenComTituloSAPaT = "LSM ACA − 3 PARA 128 AB.POU."; CenComPreciosSAPaT = CenComPrecP8, 5T; a = 4; CenComTituloSAPaT = "LSM PARA 64 ACC 2 B + D INCL.60"; CenComPreciosSAPaT = CenComPrecP6, 5T; a = 5; CenComTituloSAPaT = "NUEVO LSM − PRA CON ACC.30 B + D"; CenComPreciosSAPaT = CenComPrecP7, 5T; H∗ ALMACENES GENERALES ∗L a = 6; CenComTituloSAPaT = "ALMACEN RPBC HDUPLICADOL"; CenComPreciosSAPaT = CenComPrecP2, 5T; a = 7; CenComTituloSAPaT = "ALMACEN SE − PRM H50L 8 AB.GEN."; CenComPreciosSAPaT = CenComPrecP4, 5T; H∗ ELEMENTOS DE CONEXION CON GSS Y UNIDADES REMOTAS ∗L a = 8; CenComTituloSAPaT = "TARJETA JTC PARA RDSI"; CenComPreciosSAPaT = CenComPrecP5, 5T; a = 9; CenComTituloSAPaT = "ALMACEN STC."; CenComPreciosSAPaT = CenComPrecP3, 5T; H∗ PREINSTALACIONES ∗L a = 10; CenComTituloSAPaT = "PREINSTALACION ACA − 3"; CenComPreciosSAPaT = CenComPrecP12, 5T; a = 11; CenComTituloSAPaT = "PREINSTALACION 2 B + D"; CenComPreciosSAPaT = CenComPrecP11, 5T; H∗ ELEMENTOS GENERALES ∗L a = 12; CenComTituloSAPaT = "MTU PARA CENTRALES"; CenComPreciosSAPaT = CenComPrecP13, 5T; H∗ ARMARIOS ∗L a = 13; CenComTituloSAPaT = "ARMARIO H24 BML CON 6 ALTURAS. − LSM's"; CenComPreciosSAPaT = CenComPrecP1, 5T; a = 14; CenComTituloSAPaT = "ARMARIO H24 BML CON 6 ALTURAS. − STC's"; CenComPreciosSAPaT = CenComPrecP1, 5T; 76 Modelo_Integral_ACK.nb ü Matriz de Elementos del Subsistema Selector de Grupo {CenComTituloSSG, CenComPreciosSSG, CenComDistribucionSSG, auxSSG} CenComTituloSSG = Table@"", 8i, 1, 8<D; CenComPreciosSSG = Table@"", 8i, 1, 8<D; CenComDistribucionSSG = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 8<D; auxSSG = Table@0, 8i, 1, 8<D; H∗ almacenes de conmutadores ∗L a = 1; CenComTituloSSGPaT = "ALM. TSM HDUP.L ENTRE 0 Y 32K"; CenComPreciosSSGPaT = CenComPrecP18, 5T; a = 2; CenComTituloSSGPaT = "ALMACEN SPM HDUP.L PARA 8K"; CenComPreciosSSGPaT = CenComPrecP17, 5T; H∗ almacenes de procesadores regionales ∗L a = 3; CenComTituloSSGPaT = "ALMACEN RP HDUP.L CON 256 KW."; CenComPreciosSSGPaT = CenComPrecP14, 5T; H∗almacenes del modulo de reloj ∗L a = 4; CenComTituloSSGPaT = "ALM. CLM ENTRE 0 Y 32K"; CenComPreciosSSGPaT = CenComPrecP15, 5T; a = 5; CenComTituloSSGPaT = "ALMACEN RCM"; CenComPreciosSSGPaT = CenComPrecP16, 5T; a = 6; CenComTituloSSGPaT = "ALMACEN ICM"; CenComPreciosSSGPaT = CenComPrecP20, 5T; H∗ almacen del modulo de sincronismo PCM ∗L a = 7; CenComTituloSSGPaT = "ALMACEN PCD HDL2L"; CenComPreciosSSGPaT = CenComPrecP21, 5T; H∗ armarios ∗L a = 8; CenComTituloSSGPaT = "ARMARIO 12 BM CON 6 ALTURAS"; CenComPreciosSSGPaT = CenComPrecP19, 5T; 77 Modelo_Integral_ACK.nb ü Matriz de Elementos del Subsistema de Enlace y Señalizacion {CenComTituloSES, CenComPreciosSES, CenComDistribucionSES, auxSES} CenComTituloSES = Table@"", 8i, 1, 13<D; CenComPreciosSES = Table@"", 8i, 1, 13<D; CenComDistribucionSES = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 13<D; auxSES = Table@0, 8i, 1, 13<D; H∗ elementos de enlace ∗L a = 1; CenComTituloSESPaT = "FUNCIÓN ETC3ê4 H32 CANALESL"; CenComPreciosSESPaT = CenComPrecP23, 5T; a = 2; CenComTituloSESPaT = "ALMACÉN GEMM1 PARA 16 ETCC4"; CenComPreciosSESPaT = CenComPrecP32, 5T; H∗ elementos de señalizacion con centrales externas ∗L a = 3; CenComTituloSESPaT = "FUNCIÓN TRH HFH, PARA, ST7L"; CenComPreciosSESPaT = CenComPrecP35, 5T; a = 4; CenComTituloSESPaT = "ALMACÉN TRH HFH, PARA, ST7L"; CenComPreciosSESPaT = CenComPrecP34, 5T; H∗ armario para elementos de enlace y señalizacion ∗L a = 5; CenComTituloSESPaT = "ARMARIO 12 BM 6 ALTURAS GEMM1 Y HLP."; CenComPreciosSESPaT = CenComPrecP33, 5T; H∗ almacen para dispositivo de conferencia de llamadas ∗L a = 6; CenComTituloSESPaT = "ALMACÉN CCD"; CenComPreciosSESPaT = CenComPrecP27, 5T; H∗ armario para CCD y APZ ∗L a = 7; CenComTituloSESPaT = "ARMARIO H24 BML CON 6 ALTURAS"; CenComPreciosSESPaT = CenComPrecP22, 5T; H∗ modulos de servidor de anuncios y expansion de memoria ∗L a = 8; CenComTituloSESPaT = "AST − DR V2.BÁSICO"; CenComPreciosSESPaT = CenComPrecP28, 5T; a = 9; CenComTituloSESPaT = "AST − DR V2.BACK − UP"; CenComPreciosSESPaT = CenComPrecP30, 5T; a = 10; CenComTituloSESPaT = "ALMACEN EMAS H4 EPROM + 4 RAML"; CenComPreciosSESPaT = CenComPrecP29, 5T; H∗ modulos diversos ∗L a = 11; CenComTituloSESPaT = "ALMACÉN CSFSK PARA CLASS"; CenComPreciosSESPaT = CenComPrecP31, 5T; a = 12; CenComTituloSESPaT = "ALM.TCON CENTRALES CON ABON."; CenComPreciosSESPaT = CenComPrecP25, 5T; a = 13; CenComTituloSESPaT = "ALMACÉN CANS HOMSL"; CenComPreciosSESPaT = CenComPrecP26, 5T; 78 Modelo_Integral_ACK.nb ü Matriz de Elementos del Subsistema de Control (APZ) {CenComTituloSC, CenComPreciosSC. CenComDistribucionSC, auxSC} CenComTituloSC = Table@"", 8i, 1, 11<D; CenComPreciosSC = Table@"", 8i, 1, 11<D; CenComDistribucionSC = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 11<D; auxSC = Table@0, 8i, 1, 11<D; H∗ dispositivos de alamcenamiento ∗L a = 1; CenComTituloSCPaT = "FDD HFLOPPY DISKL CON 1.2 MB"; CenComPreciosSCPaT = CenComPrecP37, 5T; a = 2; CenComTituloSCPaT = "HDD HHARD DISKL CON 1 GB"; CenComPreciosSCPaT = CenComPrecP43, 5T; H∗ alementos adicionales ∗L a = 3; CenComTituloSCPaT = "TARJETA RPU HINTERFAZ V − 24L"; CenComPreciosSCPaT = CenComPrecP38, 5T; a = 4; CenComTituloSCPaT = "TARJETA LIU HINTERFAZ V − 24L"; CenComPreciosSCPaT = CenComPrecP39, 5T; a = 5; CenComTituloSCPaT = "TARJETA ALAMP"; CenComPreciosSCPaT = CenComPrecP40, 5T; a = 6; CenComTituloSCPaT = "TARJETA ALEX"; CenComPreciosSCPaT = CenComPrecP41, 5T; a = 7; CenComTituloSCPaT = "TARJETA SCAN"; CenComPreciosSCPaT = CenComPrecP42, 5T; a = 8; CenComTituloSCPaT = "ALMACÉN ODM"; CenComPreciosSCPaT = CenComPrecP45, 5T; H∗ procesador ∗L a = 9; CenComTituloSCPaT = "APZ 212 20"; CenComPreciosSCPaT = CenComPrecP47, 5T; a = 10; CenComTituloSCPaT = "AMPLIACIÓN DE 256 MW HDUP.L"; CenComPreciosSCPaT = CenComPrecP48, 5T; H∗ modulo de entrada y salida ∗L a = 11; CenComTituloSCPaT = "IOG 11 − B5 BÁSICO"; CenComPreciosSCPaT = CenComPrecP44, 5T; 79 Modelo_Integral_ACK.nb ü Matriz de Elementos de Materiales y Equipos Diversos {CenComTituloMED, CenComPreciosMED, CenComDistribucionMED, auxMED} CenComTituloMED = Table@"", 8i, 1, 5<D; CenComPreciosMED = Table@"", 8i, 1, 5<D; CenComDistribucionMED = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 5<D; auxMED = Table@0, 8i, 1, 5<D; a = 1; CenComTituloMEDPaT = "CABLE COAXIAL HFLEX 3L"; CenComPreciosMEDPaT = CenComPrecP50, 5T; a = 2; CenComTituloMEDPaT = "CONJ.CONECTORES PARA 1 ETCC"; CenComPreciosMEDPaT = CenComPrecP51, 5T; a = 3; CenComTituloMEDPaT = "REGL.ABON.32 X8.CUBRET"; CenComPreciosMEDPaT = CenComPrecP52, 5T; a = 4; CenComTituloMEDPaT = "REGL.MISCELANEOS H34 x6L"; CenComPreciosMEDPaT = CenComPrecP53, 5T; a = 5; CenComTituloMEDPaT = "CABLE DE DISTRIB.ALIMENTACION"; CenComPreciosMEDPaT = CenComPrecP49, 5T; ü Matriz de Elementos de Equipos de Conservación {CenComTituloEC, CenComPreciosEC, CenComDistribucionEC, auxEC} CenComTituloEC = Table@"", 8i, 1, 3<D; CenComPreciosEC = Table@"", 8i, 1, 3<D; CenComDistribucionEC = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 3<D; auxEC = Table@0, 8i, 1, 3<D; a = 1; CenComTituloECPaT = "MAT.CONSUMO CENTRAL APZ 212"; CenComPreciosECPaT = CenComPrecP54, 5T; a = 2; CenComTituloECPaT = "MODULO C HPAPELL"; CenComPreciosECPaT = CenComPrecP55, 5T; a = 3; CenComTituloECPaT = "MODULO I HPAPELL"; CenComPreciosECPaT = CenComPrecP56, 5T; ü Matriz de Elementos de Otros Costes {CenComTituloOC, CenComPreciosOC, CenComDistribucionOC, auxOC} CenComTituloOC = Table@"", 8i, 1, 3<D; CenComPreciosOC = Table@"", 8i, 1, 3<D; CenComDistribucionOC = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 3<D; auxOC = Table@0, 8i, 1, 3<D; a = 1; CenComTituloOCPaT = "SOFTWARE POR ACCESO BASICO"; CenComPreciosOCPaT = CenComPrec@@57, 5DD; a = 2; CenComTituloOCPaT = "SOFTWARE POR ACCESO PRIMARIO"; CenComPreciosOCPaT = CenComPrecP58, 5T; a = 3; CenComTituloOCPaT = "DDF"; CenComPreciosOCPaT = CenComPrecP59, 5T; 80 Modelo_Integral_ACK.nb ü Matriz de Elementos de una central {auxElem, auxPrec, auxTit, auxDist} auxElem = Table@8auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC<D; auxPrec = Table@8CenComPreciosSA, CenComPreciosSSG, CenComPreciosSES, CenComPreciosSC, CenComPreciosMED, CenComPreciosEC, CenComPreciosOC<D; auxTit = Table@8CenComTituloSA, CenComTituloSSG, CenComTituloSES, CenComTituloSC, CenComTituloMED, CenComTituloEC, CenComTituloOC<D; auxDist = Table@8CenComDistribucionSA, CenComDistribucionSSG, CenComDistribucionSES, CenComDistribucionSC, CenComDistribucionMED, CenComDistribucionEC, CenComDistribucionOC<D; à Matrices de Elementos de cada Subsistema de una SubCentral de una Unidad Remota El dimensionamiento de una Central Cabecera es expresado como un patrón de diseño que agrupa los elementos necesarios agrupados de acuerdo al SubSistema al que pertenecen (Subsistema de Abonados, Subsistema Selector de Grupo, ..., Materiales y Equipos Diversos, Equipos de Conservación y Otros Costes). Este agrupamiento no influye en los calculos, correspondiendo unicamente a una agrupacion logica de elementos de acuerdo a los subsistemas propios de una central AXE de Ericcson, así como un agrupamiento conveniente de otros elementos que intervienen en el dimensionamiento (conectores, cables, etc. ). En tal sentido dicho patrón se ha hecho extensivo tambien a las Unidades Remotas. 81 Modelo_Integral_ACK.nb ü Matriz de Elementos del Subsistema de Abonado {CenComTituloSAr, CenComPreciosSAr, CenComDistribucionSAr, auxSAr} CenComTituloSAr = Table@"", 8i, 1, 20<D; CenComPreciosSAr = Table@0, 8i, 1, 20<D; CenComDistribucionSAr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 20<D; auxSAr = Table@0, 8i, 1, 20<D; H∗ TARJETAS DE LINEA ∗L a = 1; CenComTituloSArPaT = "TARJETA PARA 8 ABONADOS ACA−3."; CenComPreciosSArPaT = CenComPrecP76, 5T; a = 2; CenComTituloSArPaT = "TARJETA PARA 4 ACCESOS 2B+D."; CenComPreciosSArPaT = CenComPrecP63, 5T; a = 3; CenComTituloSArPaT = "TARJETA KR PARA LSM DE ACA − 3"; CenComPreciosSArPaT = CenComPrecP89, 5T; H∗ LSM's ∗L a = 4; CenComTituloSArPaT = "LSM ACA−3 128. STR,KR,ETB,POU."; CenComPreciosSArPaT = CenComPrecP71, 5T; a = 5; CenComTituloSArPaT = "LSM ACA−3 128. KR,ETB,POU."; CenComPreciosSArPaT = CenComPrecP72, 5T; a = 6; CenComTituloSArPaT = "LSM ACA−3 128. ETB,POU."; CenComPreciosSArPaT = CenComPrecP73, 5T; a = 7; CenComTituloSArPaT = "LSM ACA−3 128. POU."; CenComPreciosSArPaT = CenComPrecP74, 5T; a = 8; CenComTituloSArPaT = "LSM ACA−3 PARA 128 AB. POU."; CenComPreciosSArPaT = CenComPrecP75, 5T; a = 9; CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 8 ACCESOS"; CenComPreciosSArPaT = CenComPrecP66, 5T; a = 10; CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 16 ACCESOS"; CenComPreciosSArPaT = CenComPrecP67, 5T; a = 11; CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 32 ACCESOS"; CenComPreciosSArPaT = CenComPrecP68, 5T; a = 12; CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 48 ACCESOS"; CenComPreciosSArPaT = CenComPrecP69, 5T; a = 13; CenComTituloSArPaT = "LSM PARA 64 ACC. 2B+D. INCLUYE 60 ACCESOS"; CenComPreciosSArPaT = CenComPrecP70, 5T; H∗ ELEMENTOS DE CONEXION CON GSS ∗L a = 14; CenComTituloSArPaT = "TARJETA ETB PARA R.D.S.I."; CenComPreciosSArPaT = CenComPrecP65, 5T; a = 15; CenComTituloSArPaT = "TARJETA STR PARA LSM DE ACA−3."; CenComPreciosSArPaT = CenComPrecP77, 5T; a = 16; CenComTituloSArPaT = "TARJETA STR PARA R.D.S.I."; CenComPreciosSArPaT = CenComPrecP64, 5T; H∗ PREINSTALACIONES ∗L a = 17; CenComTituloSArPaT = "PREINSTALACION ACA−3"; 82 Modelo_Integral_ACK.nb CenComPreciosSArPaT = CenComPrecP77, 5T; a = 18; CenComTituloSArPaT = "PREINSTALACION 2B+D"; CenComPreciosSArPaT = CenComPrecP80, 5T; H∗ ELEMENTOS GENERALES ∗L a = 19; CenComTituloSArPaT = "ALMACEN MTU PARA RSS"; CenComPreciosSArPaT = CenComPrecP78, 5T; H∗ ARMARIOS ∗L a = 20; CenComTituloSArPaT = "ARMARIO H24 BML CON 6 ALTURAS. − RSS"; CenComPreciosSArPaT = CenComPrecP62, 5T; ü Matriz de Elementos de Materiales y Equipos Diversos {CenComTituloMEDr, CenComPreciosMEDr, CenComDistribucionMEDr, auxMEDr} CenComTituloMEDr = Table@"", 8i, 1, 4<D; CenComPreciosMEDr = Table@"", 8i, 1, 4<D; CenComDistribucionMEDr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 4<D; auxMEDr = Table@0, 8i, 1, 4<D; a = 1; CenComTituloMEDrPaT = "CONECTOR PARA FLEX 3."; CenComPreciosMEDrPaT = CenComPrecP82, 5T; a = 2; CenComTituloMEDrPaT = "REGL. MISCELANEOS H34x6L."; CenComPreciosMEDrPaT = CenComPrecP84, 5T; a = 3; CenComTituloMEDrPaT = "PUENTE CON PUNTO DE PRUEBA."; CenComPreciosMEDrPaT = CenComPrecP83, 5T; a = 4; CenComTituloMEDrPaT = "CABLE DE DISTRIB.ALIMENTACION"; CenComPreciosMEDrPaT = CenComPrecP81, 5T; ü Matriz de Elementos de Equipos de Conservación {CenComTituloECr, CenComPreciosECr, CenComDistribucionECr, auxECr} CenComTituloECr = Table@"", 8i, 1, 3<D; CenComPreciosECr = Table@"", 8i, 1, 3<D; CenComDistribucionECr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 3<D; auxECr = Table@0, 8i, 1, 3<D; a = 1; CenComTituloECrPaT = "MODULO C HPAPELL PARA RSS."; CenComPreciosECrPaT = CenComPrecP85, 5T; a = 2; CenComTituloECrPaT = "MODULO I HPAPELL PARA RSS."; CenComPreciosECrPaT = CenComPrecP86, 5T; a = 3; CenComTituloECrPaT = "DOC. PARA RSS NUEVOS."; CenComPreciosECrPaT = CenComPrecP87, 5T; 83 Modelo_Integral_ACK.nb ü Matriz de Elementos de Otros Costes {CenComTituloOCr, CenComPreciosOCr, CenComDistribucionOCr, auxOCr} CenComTituloOCr = Table@"", 8i, 1, 2<D; CenComPreciosOCr = Table@"", 8i, 1, 2<D; CenComDistribucionOCr = Table@Table@0, 8j, 1, Length@CenComCatCostoD<D, 8i, 1, 2<D; auxOCr = Table@0, 8i, 1, 2<D; a = 1; CenComTituloOCrPaT = "SOFTWARE POR ACCESO BASICO"; CenComPreciosOCrPaT = CenComPrecP88, 5T; a = 2; CenComTituloOCrPaT = "DDF"; CenComPreciosOCrPaT = CenComPrecP90, 5T; ü Matriz de Elementos de una Unidad Remota {auxElemr, auxPrecr, auxTitr, auxDisrt} auxElemr = Table@8auxSAr, auxMEDr, auxECr, auxOCr<D; auxPrecr = Table@8CenComPreciosSAr, CenComPreciosMEDr, CenComPreciosECr, CenComPreciosOCr<D; auxTitr = Table@8CenComTituloSAr, CenComTituloMEDr, CenComTituloECr, CenComTituloOCr<D; auxDistr = Table@8CenComDistribucionSAr, CenComDistribucionMEDr, CenComDistribucionECr, CenComDistribucionOCr<D; à Matriz de Elementos de todas las Centrales Cabecera y Unidades Remotas {CenComElemCab, CenComElemRem, CenComAbonSubCentRem} H∗ Elementos para cada Cabecera∗L CenComElemCab = Table@auxElem, 8i, 1, CenComN<D; H∗ Elementos de cada SubCentral para cada Unidad Remota∗L CenComElemRem = Table@8auxElemr<, 8i, 1, CenComN<D; H∗ Numero de Abonados por Tipo HPSTN y RDSI Basico L y Enlaces HEos'L de cada SubCentral para cada Unidad Remota ∗L auxAbonSubCent = 80, 0, 0<; CenComAbonSubCentRem = Table@8auxAbonSubCent<, 8i, 1, CenComN<D; à Tablas Auxiliares de dimensionamiento de armarios Los almacenes ("magazines" o "shelfs") se alojan en armarios. dichos armarios tienen diferentes capacidades de acuerdo a cada tipo de almacen (LSM, TSM, etc.). Se incluye el dimensionamiento específico del número de armarios requeridos de acuerdo al número de LSM's, TSM's y SPM's, de las centrales Cabecera. Dicho dimensionamiento está expre sado como una matriz que relaciona el número de almacenes y el número de armarios necesarios. Estas matrices son utilizadas normalmente mediante la función auxiliar "BuscarV" ü Dimensionamiento de Armarios para LSM's {CenComMLSMArmarios} CenComMLSMArmarios = 8 80 , 0< , 816 , 2<, 832 , 3<, 848 , 5<, 864 , 6<, 880 , 8<, 896 , 9<, 8 112, 11<, 8 128, 12<, 8144 , 14<, 8160 , 15<, 8176 , 17<, 8 192, 18<, 8208 , 20<, 8224 , 21<, 8240 , 23<, 8256 , 24< <; 84 Modelo_Integral_ACK.nb ü Dimensionamiento de Armarios para TSM {CenComMTSMArmarios} CenComMTSMArmarios = 8 80, 0<, 88, 2<, 816, 3<, 824, 5<, 832, 6<, 840, 8<, 848, 9<, 856, 11<, 864, 12<, 872, 14<, 880, 15<, 888, 17<, 896, 18<, 8104, 20<, 8112, 21<, 8120, 23<, 8128, 24< <; ü Dimensionamiento de armarios para SPM {CenComMSPMArmarios} CenComMSPMArmarios = 8 80, 0<, 82, 1<, 88, 4<, 816, 9<, 832, 16< <; 85 Modelo_Integral_ACK.nb à Funciones de Dimensionamiento de Centrales ü Dimensionar Cabeceras {DimensionaCabecera} DimensionaCabecera@mNumPSTN_, mNumRDSIBA_, mNumRDSIPRI_, mNumRem_, mNumE0_D := ModuleB8auxElem, auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC, i, j, k, auxEspacioLSMs, AuxArmariosLSMs, AuxArmariosSTC, AuxArmariosTSM, AuxArmariosSPM<, auxSA = Table@0, 8i, 1, 14<D; auxSSG = Table@0, 8i, 1, 8<D; auxSES = Table@0, 8i, 1, 13<D; auxSC = Table@0, 8i, 1, 11<D; auxMED = Table@0, 8i, 1, 5<D; auxEC = Table@0, 8i, 1, 3<D; auxOC = Table@0, 8i, 1, 3<D; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗Subsistema de Abonado∗L H∗Tarjeta de Abonado∗L auxSAP1T = 0; H∗Tarjetas KR∗L auxSAP2T = RedondearMasB 2 ∗ mNumPSTN 2048 H∗LSM PSTN∗L auxSAP3T = RedondearMasB H∗LSM RDSI BA∗L auxSAP4T = RedondearMasB H∗LSM RDSI PRI∗L auxSAP5T = RedondearMasB mNumPSTN 128 F; F; mNumRDSIBA 60 F; mNumRDSIPRI 4 F; H∗almacen RP − Procesadores Reginales RPBC Duplicado ∗L auxSAP6T = IfB HmNumPSTN + mNumRDSIBA + mNumRDSIPRI L 0, 0, RedondearMasB auxSAP3T + auxSAP4T + auxSAP5T H∗almacen SE−PRM − Equipo Especial de Medicion de Pulsos Remotos∗L auxSAP7T = 0; H∗ =If@AñoDeEjecucion2000,[email protected]∗mNumPSTND,0D ∗L H∗tarjetas JTC∗L F; 2 H∗almacen STC − Señalizadores para Unidades Remotas∗L auxSAP9T = RedondearMas@mNumRem ∗ 1.6934D; auxSAP8T = RedondearMasBauxSAP4T + auxSAP3T H∗preinstalacion PSTN Preinstalacion ACA−3∗L auxSAP10T = RedondearMas@auxSAP3T ∗ 16 − auxSAP1T D; H∗preinstalacion basicos 2b+d∗L mNumRDSIBA F; auxSAP11T = auxSAP4T ∗ 16 − RedondearMasB 4 H∗MTU para centrales∗L auxSAP12T = If@H mNumPSTN + mNumRDSIBA + mNumRDSIPRI L 0, 0, 1D; H∗Armario 24 BM 6 alturas∗L auxEspacioLSMs = Ceiling@auxSAP3T + auxSAP4T ∗ 2 + auxSAP5T, 16D; AuxArmariosLSMs = BuscarV@auxEspacioLSMs, CenComMLSMArmarios, 2D; auxSAP9T AuxArmariosSTC = RedondearMasB F; 32 auxSAP13T = AuxArmariosLSMs; auxSAP14T = AuxArmariosSTC; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗Subsistema de Control − APZ∗L H∗ Disketera ∗L auxSC@@1DD = 2; H∗ Disco duro ∗L auxSC@@2DD = 1; H∗ Tarjeta RPU ∗L auxSC@@3DD = 4; H∗ Tarjeta LIU ∗L auxSC@@4DD = 7; H∗ Tarjeta ALAMP ∗L auxSC@@5DD = 1; H∗ Tarjeta ALEX ∗L 16 FF; 86 Modelo_Integral_ACK.nb auxSC@@6DD = 1; H∗ Tarjeta SCAN ∗L auxSC@@7DD = 1; H∗ Almacen ODM ∗L auxSC@@8DD = 1; H∗ APZ 212 20 ∗L auxSC@@9DD = 1; H∗ Ampliacion memoria 256 MW Dup ∗L auxSC@@10DD = 0; H∗ Conjunto IOG 11 − B5 Basico ∗L auxSC@@11DD = 1; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗Subsistema de Enlace y Señalización ∗L H∗ Tarjetas ETC − Tarjeta de Enlace de 1 E1 = 30 E0's Funcion ETC ∗L mNumE0 auxSES@@1DD = RedondearMasB F; 30 H∗ Almacén para Tarjetas ETC − Almacen GEMM1 para 16 Tarjetas ETC ∗L auxSES@@1DD F; auxSES@@2DD = RedondearMasB 16 H∗ Tarjeta TRH − Funcion TRH HFH, PRA, ST7L − Transaction Record Handler, Frame Handler, RSDI PRI, Señalizacion SS7 ∗L mNumRDSIPRI auxSA@@4DD auxSES@@3DD = RedondearMasB F + RedondearMasB F + RedondearMas@mNumE0 ∗ 0.0007D; 16 12 H∗ Almacen para Tarjeta TRH∗L auxSES@@3DD auxSES@@4DD = RedondearMasB F; 4 H∗Armario 12 BM 6 alturas para tarjetas ETC − GEMM1 y HLP∗L auxSES@@2DD + auxSES@@4DD F; auxSES@@5DD = RedondearMasB 6 H∗ Almacen CCD − Call Conference Device ∗L mNumPSTN ∗ 0.1 F; auxSES@@6DD = RedondearMasB 128 H∗ Armario 24 BM 6 alturas ∗L auxSES@@6DD auxSES@@7DD = RedondearMasB F + 2 ∗ auxSC@@9DD; 8 H∗ AST − DR V2 Basico ∗L auxSES@@8DD = 1; H∗ AST − DR V2 Backup ∗L auxSES@@9DD = 1; H∗ Almacen EMAS ∗L auxSES@@10DD = auxSES@@9DD; H∗ Almacen CSFSK para CLASS∗L auxSES@@11DD = 1; H∗ Almacen TCON ∗L auxSES@@12DD = 1; H∗ Almacen CANS − incluye OMS ∗L auxSES@@13DD = 1; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗Subsistema Selector de Grupo ∗L H∗ Almacen CLM − entre 0 y 32 k∗L auxSSG@@4DD = 3; H∗ Almacen RCM ∗L auxSSG@@5DD = 1; H∗ Almacen ICM ∗L auxSSG@@6DD = 2; H∗ Almacen PCD − DL2 ∗L auxSSG@@7DD = 2; H∗ Almacen de Conmutadores Temporales − TSM Dup entre 0 y 32 k∗L 1 auxSSG@@1DD = RedondearMasB HauxSES@@2DD ∗ 16 + auxSES@@6DD + 16 auxSA@@8DD + auxSES@@8DD ∗ 2 + auxSSG@@7DD + auxSES@@3DD + auxSES@@11DD + auxSES@@12DDLF; H∗ Almacen de Conmutadores Espaciales − SPM Dup para 8k ∗L auxSSG@@2DD = 4 IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 16, , 2 87 Modelo_Integral_ACK.nb IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 32, 16 IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 48, , 2 36 IfBCeiling@auxSSG@@1DD ∗ 0.5, 16D 64, F; F , 2 62 , 32F 2 F H∗ almacen de Procesadores Regionales − RP Dup con 256 KW∗L auxSSG@@1DD auxSES@@6DD auxSSG@@3DD = RedondearMasB F + 1 + RedondearMasB F + auxSES@@12DD + 1; 8 8 H∗Armario 12 BM 6 alturas∗L AuxArmariosTSM = BuscarV@Ceiling@auxSSG@@1DD, 8D, CenComMTSMArmarios, 2D; AuxArmariosSPM = BuscarV@auxSSG@@2DD, CenComMSPMArmarios, 2D; auxSSG@@8DD = AuxArmariosTSM + AuxArmariosSPM + 1; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Materiales y Equipos Diversos ∗L H∗ cable coaxial flex3 ∗L auxMED@@1DD = [email protected] ∗ mNumE0D; H∗ conectores para ETC ∗L auxMED@@2DD = auxSES@@1DD; H∗ regleta de abonados 32 x 8 cubret ∗L mNumPSTN mNumRDSIBA auxMED@@3DD = RedondearMasB F + RedondearMasB F; 128 128 H∗ regleta miscelaneos 34 x 6 ∗L auxMED@@4DD = 2; H∗ cable de distribucion de alimentacion ∗L auxMED@@5DD = [email protected] ∗ HmNumPSTN + 2 ∗ mNumRDSIBA + 30 ∗ mNumRDSIPRI + mNumE0LD; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Equipos de Conservacion ∗L H∗ Materiales de Consumo Central APZ 212 ∗L auxEC@@1DD = 1; H∗ Modulo C ∗L auxEC@@2DD = 1; H∗ Modulo I ∗L auxEC@@3DD = 1; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Otros Costes ∗L H∗ Software auxOC@@1DD = H∗ Software auxOC@@2DD = H∗ DDF ∗L auxOC@@3DD = por Acceso Basico ∗L Ceiling@mNumRDSIBA, 64D; por Acceso Primario ∗L mNumRDSIPRI; 1; H∗ Crea Matriz Con Resultado Final del Dimensionamiento∗L auxElem = Table@8auxSA, auxSSG, auxSES, auxSC, auxMED, auxEC, auxOC<D; Return@auxElemD; F; ü Dimensionar Unidades Remotas {DimensionaSubCentral, CenComNumAbonadoSSS, DimensionaAbonadosPorSubCentral, DimensionaRemota} DimensionaSubCentral@mNumPSTN_, mNumRDSIBA_, mNumE0_, mNumSubCentral_D := ModuleB8auxElemr, auxSAr, auxMEDr, auxECr, auxOCr, i, j, k, auxNumeroLSMs, AuxArmariosLSMs, auxPreInstalacionRSDIBasicos, a<, auxSAr = Table@0, 8i, 1, 20<D; auxMEDr = Table@0, 8i, 1, 4<D; auxECr = Table@0, 8i, 1, 3<D; auxOCr = Table@0, 8i, 1, 2<D; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗Subsistema de Abonado∗L H∗LSM PSTN∗L auxSAr@@4DD = 0; 88 Modelo_Integral_ACK.nb auxSAr@@4DD 0; auxSAr@@5DD = 0; auxSAr@@6DD = 0; auxSAr@@7DD = RedondearMasB mNumPSTN 128 F; auxSAr@@8DD = 0; H∗LSM RDSI BA∗L If@ HmNumRDSIBA > 0L && HmNumRDSIBA < 16L, a = 1;, a = 0;D; auxSAr@@9DD = a; If@ HmNumRDSIBA ≥ 16L && HmNumRDSIBA < 32L, a = 1, a = 0D; auxSAr@@10DD = a; If@ HmNumRDSIBA ≥ 32L && HmNumRDSIBA < 48L, a = 1, a = 0D; auxSAr@@11DD = a; If@ HmNumRDSIBA ≥ 48L && HmNumRDSIBA < 60L, a = 1, a = 0D; auxSAr@@12DD = a; IfB mNumRDSIBA ≥ 60, a = RedondearMasB mNumRDSIBA 64 F, a = 0F; auxSAr@@13DD = a; H∗Armario 24 BM 6 alturas∗L auxNumeroLSMs = 2 ∗ HauxSAr@@9DD + auxSAr@@10DD + auxSAr@@11DD + auxSAr@@12DD + auxSAr@@13DDL + auxSAr@@4DD + auxSAr@@5DD + auxSAr@@6DD + auxSAr@@7DD + auxSAr@@8DD; If@HmNumPSTN + mNumRDSIBAL > 0, If@HauxNumeroLSMs > 16L, AuxArmariosLSMs = 3, If@HauxNumeroLSMs > 6L, AuxArmariosLSMs = 2, AuxArmariosLSMs = 1DD; , AuxArmariosLSMs = 0D; auxSAr@@20DD = AuxArmariosLSMs; H∗Tarjeta de Abonado RSDI Basico∗L IfBHmNumRDSIBA < 8L, a = RedondearMenosB 1 4 HmNumRDSIBA − HauxSAr@@9DD ∗ 8 + auxSAr@@10DD ∗ 16 + auxSAr@@11DD ∗ 32 + auxSAr@@12DD ∗ 48 + auxSAr@@13DD ∗ 60LLF; , a = RedondearMasB 1 F; 4 HmNumRDSIBA − HauxSAr@@9DD ∗ 8 + auxSAr@@10DD ∗ 16 + auxSAr@@11DD ∗ 32 + auxSAr@@12DD ∗ 48 + auxSAr@@13DD ∗ 60LLF; auxSAr@@2DD = a; H∗ tarjetas de conexion con GSS ∗L H∗ tarjeta str para rdsi ∗L If@HmNumPSTN + 2 ∗ mNumRDSIBA + mNumE0L > 0, If@auxSAr@@4DD == 1, a = 1, If@auxSAr@@4DD 0, a = 2, a = 0DD; , a = 0D; auxSAr@@16DD = a; H∗ tarjeta etb para rdsi ∗L auxSAr@@14DD = RedondearMasB mNumE0 30 F; H∗ −auxSAr@@4DD−auxSAr@@6DD ∗L H∗Tarjeta de Abonado PSTN∗L auxSAr@@1DD = 0; H∗ tarjeta str para pstn ∗L auxSAr@@15DD = 0; H∗Almacen MTU para RSS∗L H∗If@mNumSubCentral1, If@H mNumPSTN+mNumRDSIBA+mNumE0 L>0,a=1,a=0D ,a=0D; ∗L If@H mNumPSTN + mNumRDSIBA + mNumE0 L > 0, a = 1, a = 0D; auxSArP19T = a; H∗preinstalacion PSTN∗L auxSAr@@17DD = −1 ∗ HauxSAr@@1DDL; H∗preinstalacion basicos 2b+d∗L auxPreInstalacionRSDIBasicos = 89 Modelo_Integral_ACK.nb 1 RedondearMasB 4 H60 ∗ HauxSAr@@9DD + auxSAr@@10DD + auxSAr@@11DD + auxSAr@@12DD + auxSAr@@13DDL − mNumRDSIBALF; auxSAr@@18DD = auxPreInstalacionRSDIBasicos; H∗Tarjetas KR∗L If@mNumPSTN 0, a = 0, If@HauxSAr@@4DD + auxSAr@@5DDL 0, a = 1;, a = 0;D D; auxSAr@@3DD = a; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Materiales y Equipos Diversos ∗L H∗ cable de distribucion de alimentacion ∗L If@HmNumPSTN + 2 ∗ mNumRDSIBA + mNumE0L > 0 , If@AuxArmariosLSMs 1, a = 160, If@AuxArmariosLSMs 2, a = 360, If@AuxArmariosLSMs 3, a = 480, a = 600D; D; , a=0 D; D; auxMEDr@@4DD = a; H∗ conectores para flex ∗L auxMEDr@@1DD = 2 ∗ HauxSAr@@14DD + auxSAr@@4DD + auxSAr@@5DD + auxSAr@@6DD L; H∗ puente con punto de prueba ∗L auxMEDr@@3DD = auxMEDr@@1DD; H∗ regleta miscelaneos 34 x 6 ∗L If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D; auxMEDr@@2DD = a; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Equipos de Conservacion ∗L H∗ MODULO C HPAPELL PARA RSS. ∗L auxECr@@1DD = 0; H∗ MODULO I HPAPELL PARA RSS. ∗L If@mNumSubCentral 1, If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D , a = 0D; auxECr@@2DD = a; H∗ DOC.PARA RSS NUEVOS. ∗L If@mNumSubCentral 1, If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D; , a = 0D; auxECr@@3DD = a; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Otros Costes ∗L H∗ Software por Acceso Basico ∗L IfBmNumRDSIBA 0, a=0 , a = 64 ∗ RedondearMasB F; mNumRDSIBA 64 F; auxOCr@@1DD = a; H∗ DDF ∗L If@mNumSubCentral 1, If@HmNumPSTN + mNumRDSIBA + mNumE0L > 0, a = 1, a = 0D; , a = 0D; auxOCr@@2DD = a; 90 auxOCr@@2DD Modelo_Integral_ACK.nb a; H∗ Crea Matriz Con Resultado Final del Dimensionamiento∗L auxElemr = Table@8auxSAr, auxMEDr, auxECr, auxOCr<D; Return@auxElemrD; F; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ FUNCION AUXILIAR QUE SUMA EL NUMERO DE ABONADOS DE UN SSS DE ACUERDO AL TIPO DE LSM HPSTN o BAL PRIMERO SELECCIONA LOS LSM'S QUE SON DEL TIPO INDICADO LUEGO SUMA EL SEGUNDO ELEMENTO HNUMERO DE ABONADOSL Y LO DEVUELVE COMO RESULTADO ∗L CenComNumAbonadoSSS@SSS_, TipoLSM_D := ModuleB 8auxLSMsTipo, AuxSuma, i, x, y<, auxLSMsTipo = Cases@SSS, 8x1_, y1_< ê; x1 TipoLSMD; Length @auxLSMsTipo D AuxSuma = ‚ auxLSMsTipo@@i, 2DD; i=1 Return@AuxSumaD; F; H∗ Esta funcion devuelve un vector con el numero de abonados HPSTN−BasicosL y Enlaces HE0sL para cada subcentral En el caso que no existan abonados ni enlaces devuelve una matriz conteniendo una unica central vacia ∗L DimensionaAbonadosPorSubCentral@ mNumPSTN_, mNumRDSIBA_, mNumE0_D := ModuleB 8 mauxElemr, auxLSMxSSS, auxAbonPSTNxLSMPSTN, auxAbonBAxLSMBA, auxNumLSMPSTN, auxNumLSMBA, mListaLSM, mListaLSMBA, mListaLSMPSTN, mNumSSS, mNumLSMs, auxLSMVacio, mAuxAbonE0xSSS, auxNumE0xSSS, auxA< , mauxElemr = 8auxAbonSubCent<; H∗ validacion para unidad remota sin elementos ∗L If@HmNumPSTN + mNumRDSIBA + mNumE0L 0, Return@mauxElemrDD; H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L H∗ auxiliares ∗L auxLSMVacio = 8"PSTN", 0<; H∗ equivalencias ∗L H∗ una subcentral equivale a un SSS o modulo de conmutacion de abonados ∗L H∗ lsm's por sss ∗L auxLSMxSSS = 16; H∗ abonados por tipo de lsm ∗L auxAbonPSTNxLSMPSTN = 128; auxAbonBAxLSMBA = 64; H∗ priorizacion de llenado de SSS 1 BA; 2 PSTN; ∗L H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L H∗ calcula el numero de abonados por SSS ∗L H∗ numero de lsm's por servicio ∗L mNumPSTN auxNumLSMPSTN = CeilingB F; auxAbonPSTNxLSMPSTN mNumRDSIBA F; auxNumLSMBA = CeilingB auxAbonBAxLSMBA 91 H∗ crea lista ordenada de LSM's en funcion a su tipo y adiciona el numero de abonados ∗L mListaLSMBA = Table@8"BA", auxAbonBAxLSMBA<, 8auxNumLSMBA<D ; If@Mod@mNumRDSIBA, auxAbonBAxLSMBAD > 0, mListaLSMBA@@auxNumLSMBA, 2DD = Mod@mNumRDSIBA, auxAbonBAxLSMBAD; D; Modelo_Integral_ACK.nb mListaLSMPSTN = Table@8"PSTN", auxAbonPSTNxLSMPSTN<, 8auxNumLSMPSTN<D ; If@Mod@mNumPSTN, auxAbonPSTNxLSMPSTND > 0, mListaLSMPSTN@@auxNumLSMPSTN, 2DD = Mod@mNumPSTN, auxAbonPSTNxLSMPSTND; D; mListaLSM = Table@8 mListaLSMBA, mListaLSMPSTN<D; mListaLSM = Flatten@mListaLSM, 1D; mNumLSMs = Length@mListaLSMD; H∗ calcula numero de subcentrales ∗L mNumLSMs mNumSSS = CeilingB F; auxLSMxSSS H∗ completa bloques de subcentrales pra subdividirlas posteriormente ∗L mListaLSM = PadRight@mListaLSM, mNumSSS ∗ auxLSMxSSS, 8auxLSMVacio<D; mListaLSM = Partition@mListaLSM, auxLSMxSSSD; H∗ variable para almacenar division de subcentrales ∗L H∗ mAuxAbonE0xSSS; 1 = Num PSTN; 2 = Num RSDI Basico; 3 = Num Enlaces E0's; ∗L mAuxAbonE0xSSS = Table@8CenComNumAbonadoSSS@mListaLSM@@iDD, "PSTN"D, CenComNumAbonadoSSS@mListaLSM@@iDD, "BA"D, 0<, 8i, 1, Length@mListaLSMD<D; H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L H∗ calcula el numero de enlaces por SSS ∗L H∗ el numero de enlaces por sss se calcula prorrateando el numero de enlaces en funcion al numero de abonados equivalentes de cada sss ∗L mNumE0 ∗ HmAuxAbonE0xSSS@@i, 1DD + mAuxAbonE0xSSS@@i, 2DD ∗ 2L DoBmAuxAbonE0xSSS@@i, 3DD = RedondearMenosB F, HmNumPSTN + mNumRDSIBA ∗ 2L 8i, 1, Length@mAuxAbonE0xSSSD<F; H∗ corrige el ultimo elemento con el numero de enlaces faltantes Length @mAuxAbonE0xSSS D−1 auxA = ‚ HmAuxAbonE0xSSS@@i, 3DDL; i=1 mAuxAbonE0xSSS@@Length@mAuxAbonE0xSSSD, 3DD = mNumE0 − auxA; Return@mAuxAbonE0xSSSD; F; ∗L 92 Modelo_Integral_ACK.nb H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ Esta funcion recibe como entrada un vector que contiene el numero de abonadosHPSTN−BAL y Enlaces HE0sL para cada Subcentral de una unidad Remota. Devuelve una matriz de elementos dimensionados para cada subcentral. En el caso que no existan abonados ni enlaces devuelve una matriz conteniendo una unica central vacia. ∗L DimensionaRemota@mAbonSubCent_D := Module@ 8 mauxElemr, mNumPSTN, mNumRDSIBA, mNumE0, mAuxAbonE0xSSS, auxA <, mauxElemr = 8auxElemr<; H∗ validacion para unidad remota sin SubCentrales ∗L If@Length@mAbonSubCentD 0, Return@mauxElemrDD; H∗−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−∗L H∗ dimensiona cada subcentral de acuerdo al numero de abonados y e0's∗L mauxElemr = Table@ DimensionaSubCentral@ mAbonSubCent@@i, 1DD, mAbonSubCent@@i, 2DD, mAbonSubCent@@i, 3DD, i D , 8i, 1, Length@mAbonSubCentD< D; Return@mauxElemrD; D; à Cantidad de Materiales {CenComElemCab, CenComElemRem} Se calcula el dimensionamiento (numero de elementos) necesarios para cada Cabecera y Unidad Remota. En el caso de las Unidades Remotas se calcula el dimensionamiento por cada SubCentral Do@ NumPSTN = CenComInput@@i, 6DD; NumRDSIBA = CenComInput@@i, 7DD; NumRDSIPRI = CenComInput@@i, 8DD; NumRem = CenComRemCab@@i, 2DD; NumE0 = CenComE0s@@iDD; If@ CenComInput@@i, 5DD "CABECERA", H∗ DIMENSIONA CABECERAS∗L CenComElemCab@@iDD = DimensionaCabecera@NumPSTN, NumRDSIBA, NumRDSIPRI, NumRem, NumE0D; , H∗DIMENSIONA UNIDADES REMOTAS∗L H∗ calcula el numero de abonados y enlaces por cada subcentral ∗L CenComAbonSubCentRem@@iDD = DimensionaAbonadosPorSubCentral@NumPSTN, NumRDSIBA, NumE0D; H∗ calcula el numero de elementos por cada subcentral ∗L CenComElemRem@@iDD = DimensionaRemota@CenComAbonSubCentRem@@iDD D; D; , 8i, 1, CenComN<D; 93 Modelo_Integral_ACK.nb à Costos de Materiales {CenComMatCab,CenComMatRem} H∗ Costos de Materiales para Cabeceras ∗L CenComMatCab = Table@auxElem, 8i, 1, CenComN<D; Do@ CenComMatCab@@iDD = CenComElemCab@@iDD ∗ auxPrec; , 8i, 1, CenComN< D; H∗ Costos de Materiales para Unidades Remotas ∗L CenComMatRem = Table@8auxElemr<, 8i, 1, CenComN<D; Do@ H∗ unidad remota ∗L AuxR = CenComElemRem@@iDD; H∗ calcula costo para cada subcentral ∗L AuxCostR = Table@HAuxR@@jDD ∗ auxPrecrL, 8j, 1, Length@AuxRD<D; H∗ asigna costo calculado ∗L CenComMatRem@@iDD = AuxCostR; , 8i, 1, CenComN< D; 94 Modelo_Integral_ACK.nb à Costos de Instalación, Descuentos de Costo de instalación para Unidades Remotas y No Aplicación de Costo de instalacion {CenComInstCab,CenComInstRem} H∗ costo de instalacion para Cabeceras ∗L CenComInstCab = CenComMatCab ∗ CenComPorcInst; H∗ elimina aplicacion de factor de instalacion a elementos identificados ∗L Do@ H∗ Equipos de Conservación ∗L CenComInstCab@@i, 6DD = CenComInstCab@@i, 6DD ∗ 0; , 8i, 1, CenComN< D; H∗ costo de instalacion y descuentos para Unidades Remotas ∗L CenComInstRem = Table@8auxElemr<, 8i, 1, CenComN<D; H∗ En las Unidades Remotas se considera un descuento por instalacion este descuento depende del numero de abonados HPSTNL se debe calcular este descuento para cada Subcentral de cada Unidad Remota Do@ H∗ numero de abonados y enlaces de unidad remota ∗L AuxAbonSCR = CenComAbonSubCentRem@@iDD; AuxNumSubCent = Length@AuxAbonSCRD; H∗ costo de materiales de unidad remota ∗L AuxCostMatR = CenComMatRem@@iDD; AuxCostIntR = Table@8auxElemr<, 8j, 1, AuxNumSubCent<D; H∗ calcula descuento para cada subcentral ∗L Do@ AuxNumPSTN = AuxAbonSCR@@j, 1DD; If@AuxNumPSTN ≤ 768, AuxDcto = 0.928, AuxDcto = 0.876D; AuxCostMatSubCent = AuxCostMatR@@jDD; AuxCostIntR@@jDD = AuxCostMatSubCent ∗ HCenComPorcInst ∗ AuxDctoL; , 8j, 1, AuxNumSubCent < D; H∗ asigna valor final∗L CenComInstRem@@iDD = AuxCostIntR; H∗ elimina aplicacion de factor de instalacion a elementos identificados ∗L H∗ Equipos de Conservación ∗L CenComInstRem@@i, 1, 3DD = CenComInstRem@@i, 1, 3DD ∗ 0; , 8i, 1, CenComN< D; à Total {CenComTotCab, CenComTotRem} H∗ Costo Total Cabeceras ∗L CenComTotCab = CenComMatCab + CenComInstCab ; H∗ Costo Total Remotas ∗L CenComTotRem = CenComMatRem + CenComInstRem; ∗L 95 Modelo_Integral_ACK.nb Distribucion de Costos à Funciones de Distribución y Asignacion de Costo ü Cabecera : Asignación Directa {AsignacionDirectaCabecera} AsignacionDirectaCabecera@mNumPSTN_, mNumRDSIBA_, mNumRDSIPRI_, mPrec_D := ModuleA 8mauxDist, i, j, k, m, a, b, c, s<, H∗ Crea Matriz Con Resultado Final de asignacion directa∗L mauxDist = auxDist; H∗ H∗ s= a= procesa para cada subsistema ∗L subsistema de abonados ∗L 1; mPrec@@sDD; H∗TARJETA PARA 8 ABONADOS ACA−3∗L; mauxDist@@s, 1, CenComCatCostoAccesoPSTNDD = aP1T; H∗TARJETA KR PARA LSM DE ACA−3∗L; mauxDist@@s, 2, CenComCatCostoAccesoPSTNDD = aP2T; H∗LSM ACA−3 PARA 128 AB.POU.∗L; mauxDist@@s, 3, CenComCatCostoAccesoPSTNDD = aP3T; H∗LSM PARA 64 ACC 2 B+D INCL.60∗L; mauxDist@@s, 4, CenComCatCostoAccesoBASDD = aP4T; H∗NUEVO LSM−PRA CON ACC.30 B+D∗L; mauxDist@@s, 5, CenComCatCostoAccesoPRIDD = aP5T; H∗ALMACEN RPBC HDUPLICADOL∗L; mauxDist@@s, 6, CenComCatCostoAccesoPSTNDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumPSTN ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@6DDD; mauxDist@@s, 6, CenComCatCostoAccesoBASDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumRDSIBA ∗ 2 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@6DDD; mauxDist@@s, 6, CenComCatCostoAccesoPRIDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumRDSIPRI ∗ 30 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@6DDD; H∗ALMACEN SE−PRM H50L 8 AB.GEN.∗L; mauxDist@@s, 7, CenComCatCostoAccesoPSTNDD = a@@7DD; H∗TARJETA JTC PARA RDSI∗L; mauxDist@@s, 8, CenComCatCostoTraficoDD = a@@8DD; H∗ALMACEN STC.∗L; mauxDist@@s, 9, CenComCatCostoTraficoDD = a@@9DD; H∗PREINSTALACION ACA−3∗L; mauxDist@@s, 10, CenComCatCostoAccesoPSTNDD = a@@10DD; H∗PREINSTALACION 2 B+D∗L; mauxDist@@s, 11, CenComCatCostoAccesoBASDD = a@@11DD; H∗MTU PARA CENTRALES∗L; mauxDist@@s, 12, CenComCatCostoAccesoPSTNDD = a@@12DD; H∗ARMARIO H24 BML CON 6 ALTURAS.−LSM's∗L; mauxDist@@s, 13, CenComCatCostoAccesoPSTNDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumPSTN ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@13DDD; mauxDist@@s, 13, CenComCatCostoAccesoBASDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumRDSIBA ∗ 2 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@13DDD; mauxDist@@s, 13, CenComCatCostoAccesoPRIDD = If@HmNumPSTN + mNumRDSIBA + mNumRDSIPRIL 0, 0, mNumRDSIPRI ∗ 30 ê HmNumPSTN + mNumRDSIBA ∗ 2 + mNumRDSIPRI ∗ 30L ∗ a@@13DDD; H∗ARMARIO H24 BML CON 6 ALTURAS.−STC's∗L; mauxDist@@s, 14, CenComCatCostoTraficoDD = a@@14DD; H∗ subsistema selector de grupo ∗L s = 2; a = mPrec@@sDD; H∗ALM.TSM HDUP.L ENTRE 0 Y 32K∗L; mauxDist@@s, 1, CenComCatCostoTraficoDD H∗ALMACEN SPM HDUP.L PARA 8K∗L; mauxDist@@s, 2, CenComCatCostoTraficoDD H∗ALMACEN RP HDUP.L CON 256 KW.∗L; mauxDist@@s, 3, CenComCatCostoTraficoDD H∗ALM.CLM ENTRE 0 Y 32K∗L; mauxDist@@s, 4, CenComCatCostoTraficoDD H∗ALMACEN RCM∗L; mauxDist@@s, 5, CenComCatCostoTraficoDD H∗ALMACEN ICM∗L; mauxDist@@s, 6, CenComCatCostoTraficoDD H∗ALMACEN PCD HDL2L∗L; mauxDist@@s, 7, CenComCatCostoTraficoDD = a@@1DD; = a@@2DD; = a@@3DD; = a@@4DD; = a@@5DD; = a@@6DD; = a@@7DD; 96 H∗ARMARIO 12 BM CON 6 ALTURAS∗L; mauxDist@@s, 8, CenComCatCostoTraficoDD = a@@8DD; H∗ subsistema de enlace y señalizacion ∗L s = 3; a = mPrec@@sDD; H∗FUNCIÓN ETC3ê4 H32 CANALESL∗L; mauxDist@@s, 1, CenComCatCostoTraficoDD = a@@1DD; H∗ALMACÉN GEMM1 PARA 16 ETCC4∗L; mauxDist@@s, 2, CenComCatCostoTraficoDD = a@@2DD; H∗FUNCIÓN TRH HFH,PARA,ST7L∗L; mauxDist@@s, 3, CenComCatCostoSenalizacionDD = a@@3DD; H∗ALMACÉN TRH HFH,PARA,ST7L∗L; mauxDist@@s, 4, CenComCatCostoSenalizacionDD = a@@4DD; H∗ subsistema de control ∗L s = 4; a = mPrec@@sDD; H∗FDD HFLOPPY DISKL CON 1.2 MB∗L; mauxDist@@s, 1, CenComCatCostoTraficoDD H∗HDD HHARD DISKL CON 1 GB∗L; mauxDist@@s, 2, CenComCatCostoTraficoDD H∗TARJETA RPU HINTERFAZ V−24L∗L; mauxDist@@s, 3, CenComCatCostoTraficoDD H∗TARJETA LIU HINTERFAZ V−24L∗L; mauxDist@@s, 4, CenComCatCostoTraficoDD H∗TARJETA ALAMP∗L; mauxDist@@s, 5, CenComCatCostoTraficoDD H∗TARJETA ALEX∗L; mauxDist@@s, 6, CenComCatCostoTraficoDD H∗TARJETA SCAN∗L; mauxDist@@s, 7, CenComCatCostoTraficoDD = a@@1DD; = a@@2DD; = a@@3DD; = a@@4DD; = a@@5DD; = a@@6DD; = a@@7DD; H∗ALMACÉN ODM∗L; mauxDist@@s, 8, CenComCatCostoTraficoDD = a@@8DD; H∗APZ 212 20∗L; mauxDist@@s, 9, CenComCatCostoTraficoDD = a@@9DD; H∗AMPLIACIÓN DE 256 MW HDUP.L∗L; mauxDist@@s, 10, CenComCatCostoTraficoDD = a@@10DD; H∗IOG 11−B5 BÁSICO∗L; mauxDist@@s, 11, CenComCatCostoTraficoDD = a@@11DD; H∗ otros costos ∗L s = 7; a = mPrec@@sDD; H∗SOFTWARE POR ACCESO BASICO∗L; mauxDist@@s, 1, CenComCatCostoTraficoDD = a@@1DD; H∗SOFTWARE POR ACCESO PRIMARIO∗L; mauxDist@@s, 2, CenComCatCostoTraficoDD = a@@2DD; H∗DDF∗L; mauxDist@@s, 3, CenComCatCostoTraficoDD = a@@3DD; Return@mauxDistD; E; ü Remota : Asignación Directa {AsignacionDirectaRemota} Modelo_Integral_ACK.nb 97 Modelo_Integral_ACK.nb H∗ Esta funcion se aplica para cada subcentral ∗L AsignacionDirectaRemota@mPrec_D := Module@8mauxDistr, i, j, k, m, a, b, c, s<, H∗Crea Matriz Con Resultado Final de asignacion directa∗L mauxDistr = auxDistr; H∗procesa para cada subsistema∗L H∗subsistema de abonados∗L s = 1; a = mPrec@@sDD; H∗TARJETA PARA 8 ABONADOS ACA−3.∗L; mauxDistr@@s, 1, CenComCatCostoAccesoPSTNDD = a@@1DD; H∗TARJETA PARA 4 ACCESOS 2B+D.∗L; mauxDistr@@s, 2, CenComCatCostoAccesoBASDD = a@@2DD; H∗TARJETA KR PARA LSM DE ACA−3∗L; mauxDistr@@s, 3, CenComCatCostoAccesoPSTNDD = a@@3DD; H∗LSM ACA−3 128. STR,KR,ETB,POU.∗L; mauxDistr@@s, 4, CenComCatCostoAccesoPSTNDD = a@@4DD; H∗LSM ACA−3 128. KR,ETB,POU.∗L; mauxDistr@@s, 5, CenComCatCostoAccesoPSTNDD = a@@5DD; H∗LSM ACA−3 128. ETB,POU.∗L; mauxDistr@@s, 6, CenComCatCostoAccesoPSTNDD = a@@6DD; H∗LSM ACA−3 128. POU.∗L; mauxDistr@@s, 7, CenComCatCostoAccesoPSTNDD = a@@7DD; H∗LSM ACA−3 PARA 128 AB.POU.∗L; mauxDistr@@s, 8, CenComCatCostoAccesoPSTNDD = a@@8DD; H∗LSM PARA 64 ACC.2B+D.INCLUYE 8 ACCESOS∗L; mauxDistr@@s, 9, CenComCatCostoAccesoBASDD = a@@9DD; H∗LSM PARA 64 ACC.2B+D.INCLUYE 16 ACCESOS∗L; mauxDistr@@s, 10, CenComCatCostoAccesoBASDD = a@@10DD; H∗LSM PARA 64 ACC.2B+D.INCLUYE 32 ACCESOS∗L; mauxDistr@@s, 11, CenComCatCostoAccesoBASDD = a@@11DD; H∗LSM PARA 64 ACC.2B+D.INCLUYE 48 ACCESOS∗L; mauxDistr@@s, 12, CenComCatCostoAccesoBASDD = a@@12DD; H∗LSM PARA 64 ACC.2B+D.INCLUYE 60 ACCESOS∗L; mauxDistr@@s, 13, CenComCatCostoAccesoBASDD = a@@13DD; H∗TARJETA ETB PARA R.D.S.I.∗L; mauxDistr@@s, 14, CenComCatCostoTraficoDD = a@@14DD; H∗TARJETA STR PARA LSM DE ACA−3.∗L; mauxDistr@@s, 15, CenComCatCostoTraficoDD = a@@15DD; H∗TARJETA STR PARA R.D.S.I.∗L; mauxDistr@@s, 16, CenComCatCostoTraficoDD = a@@16DD; H∗PREINSTALACION ACA−3∗L; mauxDistr@@s, 17, CenComCatCostoAccesoPSTNDD = a@@17DD; H∗PREINSTALACION 2B+D∗L; mauxDistr@@s, 18, CenComCatCostoAccesoBASDD = a@@18DD; H∗otros costos∗L s = 4; a = mPrec@@sDD; H∗SOFTWARE POR ACCESO BASICO.∗L; mauxDistr@@s, 1, CenComCatCostoTraficoDD = a@@1DD; H∗DDF∗L; mauxDistr@@s, 2, CenComCatCostoTraficoDD = a@@2DD; Return@mauxDistrD;D; 98 Modelo_Integral_ACK.nb ü Cabecera : Asignación Indirecta {AsignacionIndirectaCabecera} AsignacionIndirectaCabecera@mPrec_, mAuxDir_D := ModuleB 8mauxDist, i, j, k, m, a, b, c, s, auxS, auxP<, H∗ Crea Matriz Con Resultado Final de asignacion indirecta∗L mauxDist = auxDist; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ calcula total de inversion por tipo de costo ∗L H∗ numero de subsistemas ∗L m = Length@mAuxDirD; H∗ inversion directa por tipo de costo ∗L m auxS = ‚ HPlus @@ mAuxDir @@bDDL ; b=1 H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ distribucion indirecta en funcion al total de tipo de costo ∗L H∗ porcentajes de distribucion indirecta ∗L auxS auxP = ; Plus @@ auxS H∗ abonado ∗L H∗s=1; a=mPrecPsT; Do@mauxDistPs,iT,aPiT∗auxP;, 8i,81,3,4,5<<D;∗L H∗ material y equipo diverso ∗L s = 5; a = mPrec@@sDD; m = Length@aD; Do@ mauxDist@@s, iDD = a@@iDD ∗ auxP; , 8i, 1, m<D; H∗ equipamiento de conservacion ∗L s = 6; a = mPrec@@sDD; m = Length@aD; Do@ mauxDist@@s, iDD = a@@iDD ∗ auxP; , 8i, 1, m<D; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ distribucion indirecta en funcion a tipo de costo Trafico y Señalizacion ∗L H∗ porcentajes de distribucion indirecta ∗L m = Length@CenComCatCostoD; auxP = Table@0, 8m<D; auxS@@CenComCatCostoTraficoDD auxP@@CenComCatCostoTraficoDD = ; auxS@@CenComCatCostoTraficoDD + auxS@@CenComCatCostoSenalizacionDD auxP@@CenComCatCostoSenalizacionDD = auxS@@CenComCatCostoSenalizacionDD auxS@@CenComCatCostoTraficoDD + auxS@@CenComCatCostoSenalizacionDD H∗ subsistema de enlace y señalizacion ∗L s = 3; a = mPrec@@sDD; H∗ solo algunos elementos ∗L Do@ mauxDist@@s, iDD = a@@iDD ∗ auxP; , 8i, 5, 13<D; Return@mauxDistD; F; ; 99 Modelo_Integral_ACK.nb Remota : Asignación Indirecta {AsignacionIndirectaRemota} AsignacionIndirectaRemota@mPrec_, mAuxDir_D := ModuleB 8mauxDistr, i, j, k, m, a, b, c, s, auxS, auxP<, H∗ Crea Matriz Con Resultado Final de asignacion indirecta∗L mauxDistr = auxDistr; H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ calcula total de inversion por tipo de costo ∗L H∗ numero de subsistemas ∗L m = Length@mAuxDirD; H∗ inversion directa por tipo de costo ∗L m auxS = ‚ HPlus @@ mAuxDir @@bDDL ; b=1 H∗ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ∗L H∗ distribucion indirecta en funcion al total de tipo de costo ∗L H∗ porcentajes de distribucion indirecta ∗L If@HPlus @@ auxS L 0, H∗ inversion = 0, los factores de distribucion no existen matematicamente ∗L auxP = Table@0, 8i, Length@CenComCatCostoD<D; , H∗ inversion <> 0. si existen factores de distribucion matematicamente ∗L auxP = auxS ê Plus @@ auxS ; D; H∗ Subsistema de Abonado ∗L H∗ solo algunos elementos ∗L s = 1; a = mPrec@@sDD; Do@ mauxDistr@@s, iDD = a@@iDD ∗ auxP; , 8i, 19, 20<D; H∗ material y equipo diverso ∗L s = 2; a = mPrec@@sDD; m = Length@aD; Do@ mauxDistr@@s, iDD = a@@iDD ∗ auxP; , 8i, 1, m<D; H∗ equipamiento de conservacion ∗L s = 3; a = mPrec@@sDD; m = Length@aD; Do@ mauxDistr@@s, iDD = a@@iDD ∗ auxP; , 8i, 1, m<D; Return@mauxDistrD; F; 100 Modelo_Integral_ACK.nb à Asignación Directa e Indirecta {CenComDistDirCab, CenComDistIndirCab, CenComDistCab, CenComDistDirRem, CenComDistIndirRem, CenComDistRem} ü Creacion de matrices de variables resultado H∗ para Cabeceras ∗L CenComDistDirCab = Table@auxDist, 8i, 1, CenComN<D; CenComDistIndirCab = Table@auxDist, 8i, 1, CenComN<D; CenComDistCab = Table@auxDist, 8i, 1, CenComN<D; H∗ para Unidades Remotas ∗L CenComDistDirRem = Table@8auxDistr<, 8i, 1, CenComN<D; CenComDistIndirRem = Table@8auxDistr<, 8i, 1, CenComN<D; CenComDistRem = Table@8auxDistr<, 8i, 1, CenComN<D; ü Calculo y compilación de Asignación Directa e Indirecta Do@ NumPSTN = CenComInputPi, 6T; NumRDSIBA = CenComInputPi, 7T; NumRDSIPRI = CenComInputPi, 8T; xAuxTot = CenComTotCabPiT ; xAuxTotr = CenComTotRemPiT ; If@ CenComInputPi, 5T "CABECERA", CenComDistDirCabPiT = AsignacionDirectaCabecera@NumPSTN, NumRDSIBA, NumRDSIPRI, xAuxTotD; xAuxDir = CenComDistDirCabPiT; CenComDistIndirCabPiT = AsignacionIndirectaCabecera@xAuxTot, xAuxDirD;, m = Length@xAuxTotrD; auxR = Table@AsignacionDirectaRemota@xAuxTotrPjTD, 8j, 1, m<D; CenComDistDirRemPiT = auxR; auxR = Table@AsignacionIndirectaRemota@xAuxTotrPjT, auxRPjTD, 8j, 1, m<D; CenComDistIndirRemPiT = auxR;D; , 8i, 1, CenComN<D; H∗ distribucion total ∗L CenComDistCab = CenComDistDirCab + CenComDistIndirCab; CenComDistRem = CenComDistDirRem + CenComDistIndirRem; Resultado Final à Creacion de Vectores de Tipo de Costo "Trafico" {CenComTraficoCab, CenComTraficoRem} CenComTraficoCab = Table@0, 8i, 1, CenComN<D; CenComTraficoRem = Table@0, 8i, 1, CenComN<D; à Funciones Auxiliares ü Funcion que extrae la inversion en una categoria de costo especifica {fCatCostCent} Length @mCentral D fCatCostCent@mCentral_, mCatCost_D := ‚ ms=1 Length @mCentral PmsTD ‚ me=1 mCentralPms, me, mCatCostT ; 101 Modelo_Integral_ACK.nb à Extraccion de la Inversion en Trafico {CenComTraficoCab, CenComTraficoRem} CenComTraficoCab = Table@ fCatCostCent@CenComDistCabPxT, CenComCatCostoTraficoD , 8x, 1, Length@CenComDistCabD< D; CenComTraficoRem = Table@ Plus @@ H Table@ fCatCostCent@CenComDistRemPx, yT, CenComCatCostoTraficoD , 8y, 1, Length@ CenComDistRemPxT D< D L , 8x, 1, Length@CenComDistRemD< D; à Total {CenComTrafico} CenComTrafico = CenComTraficoCab + CenComTraficoRem; ü Guarda el Archivo en disco ArchSalConmInvTraf = "Switchinv.txt"; Export@ArchSalConmInvTraf, CenComTrafico, "CSV"D; ü Impresion de la inversion en Trafico Total (Cabeceras y Unidades Remotas) Module@ 8aT, aTh, aR<, aT = Transpose@CenComInputD êê TableForm; aTh = 8None, 8"CentralId", "Departamento", "Provincia", "Central", "Inversion Conmutacion"<<; aR = Transpose@Table@8aT@@1, 1DD, aT@@1, 2DD, aT@@1, 3DD, aT@@1, 4DD, CenComTrafico<DD; H∗ ∗L Print@TableForm@aR, TableHeadings → aThDD; D; 102 Modelo_Integral_ACK.nb INVERSIÓN EN CONMUTACIÓN A NIVEL DE CENTRALES LOCALES PrintBStyleB "INVERSIONES EN CONMUTACIÓN A NIVEL DE CENTRALES LOCALES", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"CVoz"D; trunkx 30 F; fiberfill H∗ Se calcula los circuitos HE1sL de voz por cada central ∗L Print@"CosteAñadidoPorDistanciax"D; CosteAñadidoPorDistanciax = zerox; Do@If@deptxPixT ≠ LIMA, CosteAñadidoPorDistanciaxPixT = AñadidoCxPorKm ∗ distance@ix, idinvertxPCentralRefTD;D;, 8ix, nx<D; H∗ Se Calcula el Coste Añadido por distancia para cada central fuera de Lima ∗L Print@TableForm@Table@8ix, yPix, 13T, CVozPixT, CosteAñadidoPorDistanciaxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "CVoz", "CosteAñadidoPorDistanciax"<<DD; CVoz = CeilingB OpenRead@"Switchinv.txt"D; switchinvx = zerox; switchinvLocx = zerox; switchinvLDNx = zerox; switchinvLDIx = zerox; switchinvx = ReadList@"Switchinv.txt", NumberD; switchinvx = switchinvx + CosteAñadidoPorDistanciax; DoBIfBix ≠ idinvertxP248T, SwITot = If@switchendLocxPixT ≥ 0, switchendLocxPixT, 0D + If@switchendLDNxPixT ≥ 0, switchendLDNxPixT, 0D + If@switchendLDIxPixT ≥ 0, switchendLDIxPixT, 0D; switchinvxPixT ; IfBSwITot ≠ 0, switchinvLocxPixT = If@switchendLocxPixT ≥ 0, switchendLocxPixT, 0D ∗ SwITot switchinvxPixT ; switchinvLDNxPixT = If@switchendLDNxPixT ≥ 0, switchendLDNxPixT, 0D ∗ SwITot switchinvxPixT ;F;, switchinvLDIxPixT = If@switchendLDIxPixT ≥ 0, switchendLDIxPixT, 0D ∗ SwITot switchinvLocxPixT = switchinvxPixT ∗ switchendLocxPixT; switchinvLDNxPixT = switchinvxPixT ∗ switchendLDNxPixT; switchinvLDIxPixT = switchinvxPixT ∗ switchendLDIxPixT;F;, 8ix, nx<F; Print@TableForm@Table@8ix, yPix, 13T, switchinvxPixT, switchinvLocxPixT, switchinvLDNxPixT, switchinvLDIxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "switchinvx", "switchinvLocx", "switchinvLDNx", "switchinvLDIx"<<DD; H∗ Se lee el archivo que contiene las inversiones ya en costo de conmutación ∗L switchinvd = zerod; switchinvLocd = zerod; switchinvLDNd = zerod; switchinvLDId = zerod; Do@switchinvdPdeptxPixTT = switchinvdPdeptxPixTT + switchinvxPixT; switchinvLocdPdeptxPixTT = switchinvLocdPdeptxPixTT + switchinvLocxPixT; switchinvLDNdPdeptxPixTT = switchinvLDNdPdeptxPixTT + switchinvLDNxPixT; switchinvLDIdPdeptxPixTT = switchinvLDIdPdeptxPixTT + switchinvLDIxPixT;, 8ix, nx<D; Print@TableForm@ Table@8id, deptTXTdPidT, switchinvdPidT, switchinvLocdPidT, switchinvLDNdPidT, switchinvLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Departamento", "switchinvd", "switchinvLocd", "switchinvLDNd", "switchinvLDId"<<DD; H∗ Se acumula la inversión a nivel de deparamento ∗L hostsatinvx = host1x ∗ sat1x ∗ switchinvx; hostsatinvLocx = host1x ∗ sat1x ∗ switchinvLocx; hostsatinvLDNx = host1x ∗ sat1x ∗ switchinvLDNx; hostsatinvLDIx = host1x ∗ sat1x ∗ switchinvLDIx; Print@TableForm@ Table@8ix, yPix, 13T, hostsatinvxPixT, hostsatinvLocxPixT, hostsatinvLDNxPixT, hostsatinvLDIxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "hostsatinvx", "hostsatinvLocx", "hostsatinvLDNx", "hostsatinvLDIx"<<DD H∗ Cabeceras Satelitales ∗L hostsatinvd = zerod; hostsatinvLocd = zerod; hostsatinvLDNd = zerod; hostsatinvLDId = zerod; Do@hostsatinvdPdeptxPixTT = hostsatinvdPdeptxPixTT + hostsatinvxPixT; hostsatinvLocdPdeptxPixTT = hostsatinvLocdPdeptxPixTT + hostsatinvLocxPixT; hostsatinvLDNdPdeptxPixTT = hostsatinvLDNdPdeptxPixTT + hostsatinvLDNxPixT; hostsatinvLDIdPdeptxPixTT = hostsatinvLDIdPdeptxPixTT + hostsatinvLDIxPixT;, 8ix, nx<D; Print@ TableForm@Table@8id, deptTXTdPidT, hostsatinvdPidT, hostsatinvLocdPidT, hostsatinvLDNdPidT, hostsatinvLDIdPidT<, D 103 Modelo_Integral_ACK.nb TableForm@Table@8id, deptTXTdPidT, hostsatinvdPidT, hostsatinvLocdPidT, hostsatinvLDNdPidT, hostsatinvLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "hostsatinvd", "hostsatinvLocd", "hostsatinvLDNd", "hostsatinvLDId"<<DD; H∗ Se acumulan las inversiones de cabeceras satelitales a nivel de departamento ∗L hostsatinv = Plus @@ hostsatinvd; hostsatinvLoc = Plus @@ hostsatinvLocd; hostsatinvLDN = Plus @@ hostsatinvLDNd; hostsatinvLDI = Plus @@ hostsatinvLDId; Print@TableForm@8hostsatinv, hostsatinvLoc, hostsatinvLDN, hostsatinvLDI<, TableDirections → 8Row, Column<, TableSpacing → 80, 1<, TableHeadings → 88"hostsatinv", "hostsatinvLoc", "hostsatinvLDN", "hostsatinvLDI"<, None<DD; H∗ Se acumulan las inversiones de cabeceras satelitales a nivel nacional ∗L tandeminvx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvx; tandeminvLocx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvLocx; tandeminvLDNx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvLDNx; tandeminvLDIx = 2 ∗ lima1x ∗ tandem1x ∗ switchinvLDIx; Print@TableForm@Table@8ix, yPix, 13T, tandeminvxPixT, tandeminvLocxPixT, tandeminvLDNxPixT, tandeminvLDIxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "tandeminvx", "tandeminvLocx", "tandeminvLDNx", "tandeminvLDIx"<<DD H∗ Inversión en Tándems ∗L tandeminvd = zerod; tandeminvLocd = zerod; tandeminvLDNd = zerod; tandeminvLDId = zerod; Do@tandeminvdPdeptxPixTT = tandeminvdPdeptxPixTT + tandeminvxPixT; tandeminvLocdPdeptxPixTT = tandeminvLocdPdeptxPixTT + tandeminvLocxPixT; tandeminvLDNdPdeptxPixTT = tandeminvLDNdPdeptxPixTT + tandeminvLDNxPixT; tandeminvLDIdPdeptxPixTT = tandeminvLDIdPdeptxPixTT + tandeminvLDIxPixT;, 8ix, nx<D; Print@TableForm@ Table@8id, deptTXTdPidT, tandeminvdPidT, tandeminvLocdPidT, tandeminvLDNdPidT, tandeminvLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "tandeminvd", "tandeminvLocd", "tandeminvLDNd", "tandeminvLDId"<<DD; H∗tándem de Lima es doble∗L hostnonsatinvx = host1x ∗ switchinvx − hostsatinvx − tandeminvx ; 2 hostnonsatinvLocx = host1x ∗ switchinvLocx − hostsatinvLocx − hostnonsatinvLDNx = host1x ∗ switchinvLDNx − hostsatinvLDNx − hostnonsatinvLDIx = host1x ∗ switchinvLDIx −hostsatinvLDIx − tandeminvLocx ; 2 tandeminvLDNx ; 2 tandeminvLDIx ; 2 Print@TableForm@ Table@8ix, yPix, 13T, hostnonsatinvxPixT, hostnonsatinvLocxPixT, hostnonsatinvLDNxPixT, hostnonsatinvLDIxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "hostnonsatinvx", "hostnonsatinvLocx", "hostnonsatinvLDNx", "hostnonsatinvLDIx"<<DD H∗ cabeceras no satelitaleso ∗L hostnonsatinvd = zerod; hostnonsatinvLocd = zerod; hostnonsatinvLDNd = zerod; hostnonsatinvLDId = zerod; Do@hostnonsatinvdPdeptxPixTT = hostnonsatinvdPdeptxPixTT + hostnonsatinvxPixT; hostnonsatinvLocdPdeptxPixTT = hostnonsatinvLocdPdeptxPixTT +hostnonsatinvLocxPixT; hostnonsatinvLDNdPdeptxPixTT = hostnonsatinvLDNdPdeptxPixTT + hostnonsatinvLDNxPixT; hostnonsatinvLDIdPdeptxPixTT = hostnonsatinvLDIdPdeptxPixTT + hostnonsatinvLDIxPixT;, 8ix, nx<D; Print@TableForm@Table@8id, deptTXTdPidT, hostnonsatinvdPidT, hostnonsatinvLocdPidT, hostnonsatinvLDNdPidT, hostnonsatinvLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "hostnonsatinvd", "hostnonsatinvLocd", "hostnonsatinvLDNd", "hostnonsatinvLDId"<<DD; H∗ Se acumulan las inversiones de cabeceras no satelitales a nivel de departamento ∗L hostnonsatinv = Plus @@ hostnonsatinvd; hostnonsatinvLoc = Plus @@ hostnonsatinvLocd; hostnonsatinvLDN = Plus @@ hostnonsatinvLDNd; hostnonsatinvLDI = Plus @@ hostnonsatinvLDId; Print@TableForm@8hostnonsatinv, hostnonsatinvLoc, hostnonsatinvLDN, hostnonsatinvLDI<, TableDirections → 8Row, Column<, TableSpacing → 80, 1<, TableHeadings → 88"hostnonsatinv", "hostnonsatinvLoc", "hostnonsatinvLDN", "hostnonsatinvLDI"<, None<DD; H∗ Se acumulan las inversiones de cabeceras no satelitales a nivel nacional ∗L Print@"tandeminvitxd"D tandeminvitxd = zerod; DoBtandeminvitxdPdeptxPixTT = tandeminvitxdPdeptxPixTT + tandem1xPixT ∗ switchinvxPixT ∗ tandeminvitxdPLIMAT = 2 tandeminvitxdPLIMAT; CITXPtandemxPixTT CVozPixT + CITXPtandemxPixTT ;, 8ix, nx<F; 104 Modelo_Integral_ACK.nb tandeminvitxdPLIMAT 2 tandeminvitxdPLIMAT; Print@TableForm@Table@8id, deptTXTdPidT, tandeminvitxdPidT<, 8id, nd<D, , TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "tandeminvitxd"<<DD H∗ Se halla la participación de los Circuitos de Interconexión a nivel departamental ∗L Print@"tandeminvitx"D; tandeminvitx = Plus @@ tandeminvitxd; Print@tandeminvitxD; H∗ Se halla la participación Nacional de los Circuios de Interconexión ∗L remoteinvd = switchinvd − hostsatinvd − hostnonsatinvd − tandeminvd ; 2 remoteinvLocd = switchinvLocd − hostsatinvLocd − hostnonsatinvLocd − remoteinvLDNd = switchinvLDNd − hostsatinvLDNd − hostnonsatinvLDNd − remoteinvLDId = switchinvLDId − hostsatinvLDId − hostnonsatinvLDId − tandeminvLocd ; 2 tandeminvLDNd ; 2 tandeminvLDId ; 2 Print@TableForm@ Table@8id, deptTXTdPidT, remoteinvdPidT, remoteinvLocdPidT, remoteinvLDNdPidT, remoteinvLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "remoteinvd", "remoteinvLocd", "remoteinvLDNd", "remoteinvLDId"<<DD; H∗ Participación en Remota por Departamento ∗L remoteinv = Plus @@ remoteinvd; remoteinvLoc = Plus @@ remoteinvLocd; remoteinvLDN = Plus @@ remoteinvLDNd; remoteinvLDI = Plus @@ remoteinvLDId; Print@TableForm@8remoteinv, remoteinvLoc, remoteinvLDN, remoteinvLDI<, TableDirections → 8Row, Column<, TableSpacing → 80, 1<, TableHeadings → 88"remoteinv", "remoteinvLoc", "remoteinvLDN", "remoteinvLDI"<, None<DD; H∗ Participación de Remotas a Nivel Nacional ∗L Print@"signalinvd"D; signalinvd = signalfrac ∗ switchinvd; Print@TableForm@Table@8id, deptTXTdPidT, signalinvdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "signalinvd"<<DD; H∗ Participación de Señalización a Nivel Departamental∗L Print@"signalinv"D; signalinv = Plus @@ signalinvd; Print@signalinvD; H∗ Participación de Señalización a Nivel Nacional∗L PrintBStyleB "TERMINACIONES DE FIBRA", 16, White, Bold, Underlined, Background → RGBColorB0, 1 , 0FFF; 2 Print@"costeTerminacionesFibrax"D; Do@If@transtechxPixT Urbana Í transtechxPixT Enterrado, costeTerminacionesFibraxPixT = costeTerminacionesFibraxPixT + 2 TxFibraCosteTerminacion, 0D, 8ix, nx<D; Print@TableForm@Table@8ix, yPix, 13T, costeTerminacionesFibraxPixT<, 8ix, nx<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "Nombre Central", "costeTerminacionesFibrax"<<DD; H∗ En cada enlace de Fibra: En cada extremo de una arista hay dos terminaciones de fibra, sin embargo, si hay en un anillo es necesario también considerar las terminaciones de fibra de la arista entre el último nodo y la cabecera del anillo, variable que se estimó al inicio del modelo en la primera versión de la variable costeTerminacionesFibrax∗L 105 Modelo_Integral_ACK.nb DESAGREGACION DE ANILLOS POR ARISTA PrintBStyleB "DESAGREGACIÓN DEL TAMAÑO DE LOS ANILLOS: POR ARISTA", White, Bold, 16, Underlined, Background → RGBColorB0, 1 , 0FFF; 2 PrintAStyleA "A NIVEL PROVINCIAL", White, Bold, 16, Underlined, Background → BlueEE; Print@"disthostx modificado"D; DoBIfBesAnillopxPixT 1, IfBe1AnillopPprovxPixTT ≠ 0, disthostxPixT = TamAnillopPprovxPixTT ∗ e1remotehostTOTALxPixT e1AnilloTOTALpPprovxPixTT FF;, 8ix, nx<F; Print@TableForm@Table@8ix, yPix, 13T, disthostxPixT<, 8ix, nx<D, TableSpacings → 81, 0<, TableHeadings → 8None, 8"ix", "Nombre Central", "disthostx"<<DD; H∗ Para todas las centrales remotas que forman parte de un anillo provincial, se modifica la distancia a ser considerada como relevante para luego calcular los costos de cada arista. Para ello, asigna a cada tramo una fracción del total del tamaño del anillo. Dicho porcentaje o fracción es equivalemte al total de E1s identificados en el nivel RH He1remotehostTOTALxL para cada central entre el total de E1s del anillo ∗L PrintAStyleA "A NIVEL DEPARTAMENTAL", White, Bold, 16, Underlined, Background → BlueEE; Print@"disttandemx modificado"D; DoBIfBesAnillodxPAnilloCabecerasPixTT ≠ NA, IfBe1AnillodPdeptxPAnilloCabecerasPixTTT ≠ 0, disttandemxPAnilloCabecerasPixTT = TamAnillodPdeptxPAnilloCabecerasPixTTT ∗ e1hosttandemTOTALxPAnilloCabecerasPixTT e1AnilloTOTALdPdeptxPAnilloCabecerasPixTTT Print@TableForm@Table@8ix, yPix, 13T, disttandemxPixT<, 8ix, nx<D, TableSpacings → 81, 0<, TableHeadings → 8None, 8"ix", "Nombre Central", "disttandemx"<<DD; H∗ Para todas las centrales cabeceras que forman parte de un anillo departamental, se modifica la distancia a ser considerada como relevante para luego calcular los costos de cada arista. Para ello, asigna a cada tramo una fracción del total del tamaño del anillo. Dicho porcentaje o fracción es equivalemte al total de E1s identificados en el nivel HT He1hosttandemTOTALxL para cada central entre el total de E1s del anillo ∗L ;F;F;, 8ix, np<F 106 Modelo_Integral_ACK.nb ESTIMACION DE INVERSIONES A NIVEL SATELITAL PrintBStyleB" ESTIMACIÓN DE INVERSIONES A NIVEL SATELITAL", 16, White, Bold, Background → RGBColorB0, 1 , 0FFF; 2 PrintAStyleA" A NIVEL DE EQUIPOS EN LOS LUGARES REMOTOS", 16, White, Bold, Background → BlueEE; satinvx = TableB IfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemxPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvLocx = satinvx ∗ satLocx; satinvLDNx = satinvx ∗ satLDNx; satinvLDIx = satinvx ∗ satLDIx; satinvalqxA1 = TableB IfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxA1PixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxB1 = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxB1PixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxC1 = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxC1PixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxLL = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxLLPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxLP = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxLPPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxAS = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxASPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxBS = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxBSPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxCS = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxCSPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxABC2 = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxABC2PixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvalqxABCnop = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemalqxABCnopPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvitxx = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemitxxPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvadslx = TableBIfBsat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxL ∗ e1hosttandemadslxPixT e1hosttandemTOTALxPixT F, 8ix, nx<F; satinvTOTALx = Table@If@sat1xPixT 0 Í e1hosttandemTOTALxPixT 0, 0, Hsatantena + sateqtxLD, 8ix, nx<D; Print@TableForm@Table@8ix, idxPixT, yPix, 13T, satinvxPixT, satinvLocxPixT, satinvLDNxPixT, satinvLDIxPixT, satinvalqxA1PixT, satinvalqxB1PixT, satinvalqxC1PixT, satinvalqxLLPixT, satinvalqxLPPixT, satinvalqxASPixT, satinvalqxBSPixT, satinvalqxCSPixT, satinvalqxABC2PixT, satinvalqxABCnopPixT, satinvitxxPixT, satinvadslxPixT, satinvTOTALxPixT<, 8ix, nx<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "satinvx", "satinvLocx", "satinvLDNx", "satinvLDIx", "satinvalqxA1", "satinvalqxB1", "satinvalqxC1", "satinvalqxLL", "satinvalqxLP", "satinvalqxAS", "satinvalqxBS", "satinvalqxCS", "satinvalqxABC2", "satinvalqxABCnop", "satinvitxx", "satinvadslx", "satinvTOTALx"<<DD; H∗ Para todas las centrales que utilizan Tx satelital, se estima la inversión en los equipos de Tx y la antena satelital. Además, para imputar el costo de cada servicio, se multiplica la inversión total por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s a nivel HT de cada servicio entre el total de E1s a nivel HT que incluye todos los servicios ∗L satinvd = zerod; satinvLocd = zerod; satinvLDNd = zerod; satinvLDId = zerod; satinvalqdA1 = zerod; 107 Modelo_Integral_ACK.nb satinvalqdA1 zerod; satinvalqdB1 = zerod; satinvalqdC1 = zerod; satinvalqdLL = zerod; satinvalqdLP = zerod; satinvalqdAS = zerod; satinvalqdBS = zerod; satinvalqdCS = zerod; satinvalqdABC2 = zerod; satinvalqdABCnop = zerod; satinvadsld = zerod; satinvitxd = zerod; satinvTOTALd = zerod; Do@satinvdPdeptxPixTT = satinvdPdeptxPixTT + satinvxPixT; satinvLocdPdeptxPixTT = satinvLocdPdeptxPixTT + satinvLocxPixT; satinvLDNdPdeptxPixTT = satinvLDNdPdeptxPixTT + satinvLDNxPixT; satinvLDIdPdeptxPixTT = satinvLDIdPdeptxPixTT + satinvLDIxPixT; satinvalqdA1PdeptxPixTT = satinvalqdA1PdeptxPixTT + satinvalqxA1PixT; satinvalqdB1PdeptxPixTT = satinvalqdB1PdeptxPixTT + satinvalqxB1PixT; satinvalqdC1PdeptxPixTT = satinvalqdC1PdeptxPixTT + satinvalqxC1PixT; satinvalqdLLPdeptxPixTT = satinvalqdLLPdeptxPixTT + satinvalqxLLPixT; satinvalqdLPPdeptxPixTT = satinvalqdLPPdeptxPixTT + satinvalqxLPPixT; satinvalqdASPdeptxPixTT = satinvalqdASPdeptxPixTT + satinvalqxASPixT; satinvalqdBSPdeptxPixTT = satinvalqdBSPdeptxPixTT + satinvalqxBSPixT; satinvalqdCSPdeptxPixTT = satinvalqdCSPdeptxPixTT + satinvalqxCSPixT; satinvalqdABC2PdeptxPixTT = satinvalqdABC2PdeptxPixTT + satinvalqxABC2PixT; satinvalqdABCnopPdeptxPixTT = satinvalqdABCnopPdeptxPixTT + satinvalqxABCnopPixT; satinvadsldPdeptxPixTT = satinvadsldPdeptxPixTT + satinvadslxPixT; satinvitxdPdeptxPixTT = satinvitxdPdeptxPixTT + satinvitxxPixT; satinvTOTALdPdeptxPixTT = satinvTOTALdPdeptxPixTT + satinvTOTALxPixT; , 8ix, nx<D; Print@ TableForm@Table@8id, deptTXTdPidT, satinvdPidT, satinvLocdPidT, satinvLDNdPidT, satinvLDIdPidT, satinvalqdA1PidT, satinvalqdB1PidT, satinvalqdC1PidT, satinvalqdLLPidT, satinvalqdLPPidT, satinvalqdASPidT, satinvalqdBSPidT, satinvalqdCSPidT, satinvalqdABC2PidT, satinvalqdABCnopPidT, satinvadsldPidT, satinvitxdPidT, satinvTOTALdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "satinvd", "satinvLocd", "satinvLDNd", "satinvLDId", "satinvalqdA1", "satinvalqdB1", "satinvalqdC1", "satinvalqdLL", "satinvalqdLP", "satinvalqdAS", "satinvalqdBS", "satinvalqdCS", "satinvalqdABC2", "satinvalqdABCnop", "satinvadsld", "satinvitxd", " satinvTOTALd "<<DD; H∗ Acumula a nivel departamental las variables satinvx, satinvLocx, satinvLDNx, satinvLDIx, satinvalqxA1, satinvalqxB1, satinvalqxC1, satinvalqxLL, satinvalqxLP, satinvalqxAS, satinvalqxBS, satinvalqxCS, satinvalqxA1nop, satinvalqxB1nop, satinvadslx, satinvitxx: total de inversión en equipos de Tx y antenas satelitales de cada servicio ∗L satinv = Plus @@ satinvd; satinvLoc = Plus @@ satinvLocd; satinvLDN = Plus @@ satinvLDNd; satinvLDI = Plus @@ satinvLDId; satinvalqA1 = Plus @@ satinvalqdA1; satinvalqB1 = Plus @@ satinvalqdB1; satinvalqC1 = Plus @@ satinvalqdC1; satinvalqLL = Plus @@ satinvalqdLL; satinvalqLP = Plus @@ satinvalqdLP; satinvalqAS = Plus @@ satinvalqdAS; satinvalqBS = Plus @@ satinvalqdBS; satinvalqCS = Plus @@ satinvalqdCS; satinvalqABC2 = Plus @@ satinvalqdABC2; satinvalqABCnop = Plus @@ satinvalqdABCnop; satinvadsl = Plus @@ satinvadsld; satinvitx = Plus @@ satinvitxd; satinvTOTAL = Plus @@ satinvTOTALx; Print@TableForm@8satinv, satinvLoc, satinvLDN, satinvLDI, satinvalqA1, satinvalqB1, satinvalqC1, satinvalqLL, satinvalqLP, satinvalqAS, satinvalqBS, satinvalqCS, satinvalqABC2, satinvalqABCnop, satinvadsl, satinvitx, satinvTOTAL<, TableDirections → 8Row, Column<, TableHeadings → 88"satinv", "satinvLoc", "satinvLDN", "satinvLDI", "satinvalqA1", "satinvalqB1", "satinvalqC1", "satinvalqLL", "satinvalqLP", "satinvalqAS", "satinvalqBS", "satinvalqCS", "satinvalqABC2", "satinvalqABCnop", "satinvadsl", "satinvitx", "satinvTOTAL"<, Automatic<DD; H∗Sumatoria a nivel nacional del total de inversión en equipos de Tx y antenas satelitales de cada servicio ∗L PrintBStyleB" ESTIMACIÓN DE INVERSIONES A NIVEL SATELITAL", 16, White, Bold, Background → RGBColorB0, 1 , 0FFF; 2 PrintAStyleA" A NIVEL DE EQUIPOS EN LIMA ", 16, White, Bold, Background → BlueEE; Print@"numerosat"D; numerosat = 0; Do@If@sat1xPixT 1, numerosat = numerosat + 1D, 8ix, nx<D; Print@numerosatD; H∗ Identifica a nivel nacional el número total de centrales que emplean Tx satelital ∗L 108 H Identifica a nivel nacional el número total de centrales que emplean Tx satelital Print@"satlimainvx"D; satlimainvx = zerox; L Modelo_Integral_ACK.nb DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvxPixT = 0, satlimainvxPixT = satantena + sateqtx ∗ numerosat e1hosttandemxPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvxD; H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Voz, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Voz entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvLocx"D; satlimainvLocx = satlimainvx ∗ satLocx; Print@satlimainvLocxD; H∗ Parte de Tráfico Local de Voz ∗L Print@"satlimainvLDNx"D; satlimainvLDNx = satlimainvx ∗ satLDNx; Print@satlimainvLDNxD; H∗ Parte de Tráfico LDN de Voz ∗L Print@"satlimainvLDIx"D; satlimainvLDIx = satlimainvx ∗ satLDIx; Print@satlimainvLDIxD; H∗ Parte de Tráfico LDI de Voz ∗L Print@"satlimainvalqxA1"D; satlimainvalqxA1 = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxA1PixT = 0, satlimainvalqxA1PixT = satantena + sateqtx ∗ numerosat e1hosttandemalqxA1PixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxA1D; H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango A, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango A entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxB1"D; satlimainvalqxB1 = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxB1PixT = 0, satlimainvalqxB1PixT = satantena + sateqtx ∗ numerosat e1hosttandemalqxB1PixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxB1D; H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango B, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango B entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxC1"D; satlimainvalqxC1 = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxC1PixT = 0, satlimainvalqxC1PixT = satantena numerosat + sateqtx ∗ e1hosttandemalqxC1PixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxC1D; H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango C, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango B entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxLL"D; 109 Modelo_Integral_ACK.nb Print@"satlimainvalqxLL"D; satlimainvalqxLL = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxLLPixT = 0, satlimainvalqxLLPixT = satantena + sateqtx ∗ numerosat e1hosttandemalqxLLPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxLLD; H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Local Lima, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Local Lima entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxLP"D; satlimainvalqxLP = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxLPPixT = 0, satlimainvalqxLPPixT = satantena + sateqtx ∗ numerosat e1hosttandemalqxLPPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxLPD; H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Local Provincia, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Local Provincia entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxAS"D; satlimainvalqxAS = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxASPixT = 0, satlimainvalqxASPixT = satantena + sateqtx ∗ numerosat e1hosttandemalqxASPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxASD; H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango A Satelite, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango A Satelital entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxBS"D; satlimainvalqxBS = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxBSPixT = 0, satlimainvalqxBSPixT = satantena + sateqtx ∗ numerosat e1hosttandemalqxBSPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxBSD; H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango B Satelital, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango B Satelital entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxCS"D; satlimainvalqxCS = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxCSPixT = 0, satlimainvalqxCSPixT = satantena numerosat + sateqtx ∗ e1hosttandemalqxCSPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxCSD H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos Rango C Satelital, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango L 110 la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos Rango C Satelital entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Modelo_Integral_ACK.nb Print@"satlimainvalqxABC2"D; satlimainvalqxABC2 = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxABC2PixT = 0, satlimainvalqxABC2PixT = satantena numerosat + sateqtx ∗ e1hosttandemalqxABC2PixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxABC2D; H∗ Debido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Otros Circuitos Rango A, B y C, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Otros Circuitos Rango A, B y C entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvalqxABCnop"D; satlimainvalqxABCnop = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvalqxABCnopPixT = 0, satlimainvalqxABCnopPixT = satantena numerosat + sateqtx ∗ e1hosttandemalqxABCnopPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvalqxABCnopD; H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos de No Operadores, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos de No Operadores entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvadslx"D; satlimainvadslx = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvadslxPixT = 0, satlimainvadslxPixT = satantena + sateqtx ∗ numerosat e1hosttandemadslxPixT e1hosttandemTOTALxPixT ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvadslxD; H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a ADSL, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de ADSL entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvitxx"D; satlimainvitxx = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvitxx@@ixDD = 0, satlimainvitxx@@ixDD = satantena + sateqtx ∗ numerosat e1hosttandemitxxPixT e1hosttandemTOTALxPixT ∗ sat1x@@ixDDF, 8ix, nx<F Print@satlimainvitxxD H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. Además, para imputar el costo a Circuitos de Interconexión, se multiplica la inversión adicional estimada por la fracción de asignación, la cual es equivalente al ratio entre el total de E1s satelitales a nivel nacional de Circuitos de Interconexión entre el total de E1s satelitales a nivel nacional que incluye todos los servicios ∗L Print@"satlimainvTOTALx"D; satlimainvTOTALx = zerox; DoBIfBnumerosat 0 Í e1hosttandemTOTALxPixT 0, satlimainvTOTALxPixT = 0, satlimainvTOTALxPixT = satantena numerosat + sateqtx ∗ sat1xPixTF, 8ix, nx<F; Print@satlimainvitxxD; H∗ Dedido a que todas las transmisiones satelitales vienen hasta Lima, en Lima se requiere también un equipo de Tx y una antena satelital. Entonces, Si existe por lo menos una central que emplee Tx satelital se hace lo siguiente: A cada nodo que usa Tx satelital se le imputa el respectivo equipo de Tx que esta en Lima, y además una fracción proporcional del costo de la antena. ∗L 111 y además una fracción proporcional del costo de la antena. L Print@"satlimainvd"D; satlimainvd = zerod; Do@satlimainvdPdeptxPixTT = satlimainvdPdeptxPixTT + satlimainvxPixT, 8ix, nx<D; Print@satlimainvdD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Voz ∗L Print@"satlimainvLocd"D; satlimainvLocd = zerod; Do@satlimainvLocdPdeptxPixTT = satlimainvLocdPdeptxPixTT + satlimainvLocxPixT, 8ix, nx<D; Print@satlimainvLocdD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio Local de Voz ∗L Print@"satlimainvLDNd"D; satlimainvLDNd = zerod; Do@satlimainvLDNdPdeptxPixTT = satlimainvLDNdPdeptxPixTT + satlimainvLDNxPixT, 8ix, nx<D; Print@satlimainvLDNdD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio LDN de Voz ∗L Print@"satlimainvLDId"D; satlimainvLDId = zerod; Do@satlimainvLDIdPdeptxPixTT = satlimainvLDIdPdeptxPixTT + satlimainvLDIxPixT, 8ix, nx<D; Print@satlimainvLDIdD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio LDI de Voz ∗L Print@"satlimainvalqdA1"D; satlimainvalqdA1 = zerod; Do@satlimainvalqdA1PdeptxPixTT = satlimainvalqdA1PdeptxPixTT + satlimainvalqxA1PixT, 8ix, nx<D; Print@satlimainvalqdA1D; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango A ∗L Print@"satlimainvalqdB1"D; satlimainvalqdB1 = zerod; Do@satlimainvalqdB1PdeptxPixTT = satlimainvalqdB1PdeptxPixTT + satlimainvalqxB1PixT, 8ix, nx<D; Print@satlimainvalqdB1D; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango B ∗L Print@"satlimainvalqdC1"D; satlimainvalqdC1 = zerod; Do@satlimainvalqdC1PdeptxPixTT = satlimainvalqdC1PdeptxPixTT + satlimainvalqxC1PixT, 8ix, nx<D; Print@satlimainvalqdC1D; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango C ∗L Print@"satlimainvalqdLL"D; satlimainvalqdLL = zerod; Do@satlimainvalqdLLPdeptxPixTT = satlimainvalqdLLPdeptxPixTT + satlimainvalqxLLPixT, 8ix, nx<D; Print@satlimainvalqdLLD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Local Lima ∗L Print@"satlimainvalqdLP"D satlimainvalqdLP = zerod; Do@satlimainvalqdLPPdeptxPixTT = satlimainvalqdLPPdeptxPixTT + satlimainvalqxLP@@ixDD, 8ix, nx<D; Print@satlimainvalqdLPD H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Local Provincia ∗L Print@"satlimainvalqdAS"D; satlimainvalqdAS = zerod; Do@satlimainvalqdASPdeptxPixTT = satlimainvalqdASPdeptxPixTT + satlimainvalqxASPixT, 8ix, nx<D; Print@satlimainvalqdASD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los L Modelo_Integral_ACK.nb 112 plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango A Satelital∗L Modelo_Integral_ACK.nb Print@"satlimainvalqdBS"D; satlimainvalqdBS = zerod; Do@satlimainvalqdBSPdeptxPixTT = satlimainvalqdBSPdeptxPixTT + satlimainvalqxBSPixT, 8ix, nx<D; Print@satlimainvalqdBSD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango B Satelital∗L Print@"satlimainvalqdCS"D; satlimainvalqdCS = zerod; Do@satlimainvalqdCSPdeptxPixTT = satlimainvalqdCSPdeptxPixTT + satlimainvalqxCSPixT, 8ix, nx<D; Print@satlimainvalqdCSD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango C Satelital∗L Print@"satlimainvalqdABC2"D satlimainvalqdABC2 = zerod; Do@satlimainvalqdABC2PdeptxPixTT = satlimainvalqdABC2PdeptxPixTT + satlimainvalqxABC2@@ixDD, 8ix, nx<D; Print@satlimainvalqdABC2D H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Otros Circuitos Rango A, B y C∗L Print@"satlimainvalqdABCnop"D; satlimainvalqdABCnop = zerod; Do@satlimainvalqdABCnopPdeptxPixTT = satlimainvalqdABCnopPdeptxPixTT + satlimainvalqxABCnopPixT, 8ix, nx<D; Print@satlimainvalqdABCnopD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos de No Operadores∗L Print@"satlimainvadsld"D satlimainvadsld = zerod; Do@satlimainvadsldPdeptxPixTT = satlimainvadsldPdeptxPixTT + satlimainvadslx@@ixDD, 8ix, nx<D; Print@satlimainvadsldD H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de ADSL ∗L Print@"satlimainvitxd"D; satlimainvitxd = zerod; Do@satlimainvitxdPdeptxPixTT = satlimainvitxdPdeptxPixTT + satlimainvitxxPixT, 8ix, nx<D; Print@satlimainvitxdD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos de Interconexión∗L Print@"satlimainvTOTALd"D; satlimainvTOTALd = zerod; Do@satlimainvTOTALdPdeptxPixTT = satlimainvTOTALdPdeptxPixTT + satlimainvTOTALxPixT, 8ix, nx<D; Print@satlimainvTOTALdD; H∗ Acumula para cada departamento la variable satlimainvx correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para todos los servicios∗L Print@"satlimainv"D; satlimainv = Plus @@ satlimainvd; Print@satlimainvD; H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Voz ∗L Print@"satlimainvLoc"D; satlimainvLoc = Plus @@ satlimainvLocd; Print@satlimainvLocD; H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio Local de Voz ∗L Print@"satlimainvLDN"D; satlimainvLDN = Plus @@ satlimainvLDNd; Print@satlimainvLDND; H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio LDN de Voz ∗L Print@"satlimainvLDI"D; satlimainvLDI = Plus @@ satlimainvLDId; Print@satlimainvLDID; 113 Modelo_Integral_ACK.nb Print@satlimainvLDID; H∗ Acumula a nivel nacional la variable satlimainvd correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio LDI de Voz ∗L Print@"satlimainvalqA1"D; satlimainvalqA1 = Plus @@ satlimainvalqdA1; Print@satlimainvalqA1D; H∗ Acumula a nivel nacional la variable satlimainvalqdA1 correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango A ∗L Print@"satlimainvalqB1"D; satlimainvalqB1 = Plus @@ satlimainvalqdB1; Print@satlimainvalqB1D; H∗ Acumula a nivel nacional la variable satlimainvalqdB1 correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango B ∗L Print@"satlimainvalqC1"D; satlimainvalqC1 = Plus @@ satlimainvalqdC1; Print@satlimainvalqC1D; H∗ Acumula a nivel nacional la variable satlimainvalqdC1 correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango C ∗L Print@"satlimainvalqLL"D; satlimainvalqLL = Plus @@ satlimainvalqdLL; Print@satlimainvalqLLD; H∗ Acumula a nivel nacional la variable satlimainvalqdLL correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Local Lima ∗L Print@"satlimainvalqLP"D; satlimainvalqLP = Plus @@ satlimainvalqdLP; Print@satlimainvalqLPD; H∗ Acumula a nivel nacional la variable satlimainvalqdLP correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Local Provincias ∗L Print@"satlimainvalqAS"D; satlimainvalqAS = Plus @@ satlimainvalqdAS; Print@satlimainvalqASD; H∗ Acumula a nivel nacional la variable satlimainvalqdAS correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango A Satelital∗L Print@"satlimainvalqBS"D; satlimainvalqBS = Plus @@ satlimainvalqdBS; Print@satlimainvalqBSD; H∗ Acumula a nivel nacional la variable satlimainvalqdBS correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango B Satelital∗L Print@"satlimainvalqCS"D; satlimainvalqCS = Plus @@ satlimainvalqdCS; Print@satlimainvalqCSD; H∗ Acumula a nivel nacional la variable satlimainvalqdCS correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos Rango C Satelital∗L Print@"satlimainvalqABC2"D; satlimainvalqABC2 = Plus @@ satlimainvalqdABC2; Print@satlimainvalqABC2D; H∗ Acumula a nivel nacional la variable satlimainvalqdA1nop correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Otros Circuitos Rango A, B y C ∗L Print@"satlimainvalqABCnop"D; satlimainvalqABCnop = Plus @@ satlimainvalqdABCnop; Print@satlimainvalqABCnopD; H∗ Acumula a nivel nacional la variable satlimainvalqdB1nop correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos de No Operadores ∗L Print@"satlimainvadsl"D; satlimainvadsl = Plus @@ satlimainvadsld; Print@satlimainvadslD; H∗ Acumula a nivel nacional la variable satlimainvadsld correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de ADSL ∗L 114 Modelo_Integral_ACK.nb Print@"satlimainvitx"D; satlimainvitx = Plus @@ satlimainvitxd; Print@satlimainvitxD; H∗ Acumula a nivel nacional la variable satlimainvitxd correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para el servicio de Circuitos de Interconexión ∗L Print@"satlimainvTOTAL"D; satlimainvTOTAL = Plus @@ satlimainvTOTALd; Print@satlimainvTOTALD; H∗ Acumula a nivel nacional la variable satlimainvTOTALd correspondiente al plus de inversion adicional imputada a cada central que emplea Tx satelital por los equipos que se requieren en Lima para todos los servicios ∗L PrintAStyleA" A NIVEL DE ANCHO DE BANDA SATELITAL", 16, White, Bold, Background → BlueEE; H∗ E1s del servicio de Voz ya existe y está calculado previamente ∗L Print@"e1satalqxA1"D; e1satalqxA1 = zerox; Do@e1satalqxA1PinxT = e1hosttandemalqxA1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxA1D; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxA1 equivalente a la carga en E1s del servicio Circuitos Rango A ∗L Print@"e1satalqxB1"D; e1satalqxB1 = zerox; Do@e1satalqxB1PinxT = e1hosttandemalqxB1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxB1D; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxB1 equivalente a la carga en E1s del servicio Circuitos Rango B ∗L Print@"e1satalqxC1"D; e1satalqxC1 = zerox; Do@e1satalqxC1PinxT = e1hosttandemalqxC1PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxC1D; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxC1 equivalente a la carga en E1s del servicio Circuitos Rango C ∗L Print@"e1satalqxLL"D; e1satalqxLL = zerox; Do@e1satalqxLLPinxT = e1hosttandemalqxLLPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxLLD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxLL equivalente a la carga en E1s del servicio Circuitos Local Lima∗L Print@"e1satalqxLP"D; e1satalqxLP = zerox; Do@e1satalqxLPPinxT = e1hosttandemalqxLPPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxLPD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxLP equivalente a la carga en E1s del servicio Circuitos Local Provincia∗L Print@"e1satalqxAS"D; e1satalqxAS = zerox; Do@e1satalqxASPinxT = e1hosttandemalqxASPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxASD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxAS equivalente a la carga en E1s del servicio Circuitos Rango A Satelital∗L Print@"e1satalqxBS"D; e1satalqxBS = zerox; Do@e1satalqxBSPinxT = e1hosttandemalqxBSPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxBSD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxBS equivalente a la carga en E1s del servicio Circuitos Rango B Satelital∗L Print@"e1satalqxCS"D; e1satalqxCS = zerox; Do@e1satalqxCSPinxT = e1hosttandemalqxCSPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxCSD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxCS equivalente a la carga en E1s del servicio Circuitos Rango C Satelital∗L 115 Modelo_Integral_ACK.nb Print@"e1satalqxABC2"D; e1satalqxABC2 = zerox; Do@e1satalqxABC2PinxT = e1hosttandemalqxABC2PinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxABC2D; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxABC2 equivalente a la carga en E1s del servicio Otros Circuitos Rango A, B y C∗L Print@"e1satalqxABCnop"D; e1satalqxABCnop = zerox; Do@e1satalqxABCnopPinxT = e1hosttandemalqxABCnopPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satalqxABCnopD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemalqxABCnop equivalente a la carga en E1s del servicio Circuitos de No Operadores∗L Print@"e1satadslx"D; e1satadslx = zerox; Do@e1satadslxPinxT = e1hosttandemadslxPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satadslxD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemadslx equivalente a la carga en E1s del servicio ADSL ∗L Print@"e1satitxx"D; e1satitxx = zerox; Do@e1satitxxPinxT = e1hosttandemitxxPinxT ∗ host1xPinxT ∗ sat1xPinxT ∗ H1 − tandem1xPinxTL, 8inx, nx<D; Print@e1satitxxD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemitxx equivalente a la carga en E1s del servicio Circuitos de Interconexión ∗L Print@"e1satTOTALx"D; e1satTOTALx = e1satx + e1satalqxA1 + e1satalqxB1 + e1satalqxC1 + e1satalqxLL + e1satalqxLP + e1satalqxAS + e1satalqxBS + e1satalqxCS + e1satalqxABC2 + e1satalqxABCnop + e1satitxx + e1satadslx; Print@e1satTOTALxD; H∗ Identifica la carga en E1s correspondientes a los nodos que emplean Tx satelital. Es decir, sólo para las centrales Host que son distintas de la Tandem y que emplean Tx satelital se toma la variable e1hosttandemTOTALx equivalente a la carga en E1s de todos los servicios ∗L Print@"Extrasatcostx"D; 2 Ceiling@e1satxD ∗ numMHzporMb ∗ costesatporMHz ; Extrasatcostx = 2 Print@ExtrasatcostxD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Voz ∗L Print@"ExtrasatcostLocx"D; ExtrasatcostLocx = Extrasatcostx ∗ satLocx; Print@ExtrasatcostLocxD; H∗ Divide el Servicio de Voz en Local ∗L Print@"ExtrasatcostLDNx"D; ExtrasatcostLDNx = Extrasatcostx ∗ satLDNx; Print@ExtrasatcostLDNxD; H∗ Divide el Servicio de Voz en LDN ∗L Print@"ExtrasatcostLDIx"D; ExtrasatcostLDIx = Extrasatcostx ∗ satLDIx; Print@ExtrasatcostLDIxD; H∗ Divide el Servicio de Voz en LDI ∗L Print@"ExtrasatcostalqxA1"D; 2 Ceiling@e1satalqxA1D ∗ numMHzporMb ∗ costesatporMHz ExtrasatcostalqxA1 = ; 2 Print@ExtrasatcostalqxA1D; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A ∗L Print@"ExtrasatcostalqxB1"D; 2 Ceiling@e1satalqxB1D ∗ numMHzporMb ∗ costesatporMHz ; ExtrasatcostalqxB1 = 2 Print@ExtrasatcostalqxB1D; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango B ∗L Print@"ExtrasatcostalqxC1"D; 2 Ceiling@e1satalqxC1D ∗ numMHzporMb ∗ costesatporMHz ExtrasatcostalqxC1 = ; 2 116 Modelo_Integral_ACK.nb Print@ExtrasatcostalqxC1D; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A ∗L Print@"ExtrasatcostalqxLL"D; 2 Ceiling@e1satalqxLLD ∗ numMHzporMb ∗ costesatporMHz ; ExtrasatcostalqxLL = 2 Print@ExtrasatcostalqxLLD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Local Lima ∗L Print@"ExtrasatcostalqxLP"D; 2 Ceiling@e1satalqxLPD ∗ numMHzporMb ∗ costesatporMHz ; ExtrasatcostalqxLP = 2 Print@ExtrasatcostalqxLPD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Local Provincia ∗L Print@"ExtrasatcostalqxAS"D; 2 Ceiling@e1satalqxASD ∗ numMHzporMb ∗ costesatporMHz ExtrasatcostalqxAS = ; 2 Print@ExtrasatcostalqxASD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A Satelital∗L Print@"ExtrasatcostalqxBS"D; 2 Ceiling@e1satalqxBSD ∗ numMHzporMb ∗ costesatporMHz ExtrasatcostalqxBS = ; 2 Print@ExtrasatcostalqxBSD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango B Satelital∗L Print@"ExtrasatcostalqxCS"D; 2 Ceiling@e1satalqxCSD ∗ numMHzporMb ∗ costesatporMHz ExtrasatcostalqxCS = ; 2 Print@ExtrasatcostalqxCSD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos Rango A Satelital∗L Print@"ExtrasatcostalqxABC2"D; 2 Ceiling@e1satalqxABC2D ∗ numMHzporMb ∗ costesatporMHz ; ExtrasatcostalqxABC2 = 2 Print@ExtrasatcostalqxABC2D; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Otros Circuitos Rango A, B y C∗L Print@"ExtrasatcostalqxABCnop"D; 2 Ceiling@e1satalqxABCnopD ∗ numMHzporMb ∗ costesatporMHz ; ExtrasatcostalqxABCnop = 2 Print@ExtrasatcostalqxABCnopD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos de No Operadores∗L Print@"Extrasatcostadslx"D; 2 Ceiling@e1satadslxD ∗ numMHzporMb ∗ costesatporMHz ; Extrasatcostadslx = 2 Print@ExtrasatcostadslxD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de ADSL ∗L Print@"Extrasatcostitxx"D; 2 Ceiling@e1satitxxD ∗ numMHzporMb ∗ costesatporMHz Extrasatcostitxx = ; 2 Print@ExtrasatcostitxxD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. Servicio de Circuitos de Interconexión ∗L Print@"ExtrasatcostTOTALx"D; 2 Ceiling@e1satTOTALxD ∗ numMHzporMb ∗ costesatporMHz ; ExtrasatcostTOTALx = 2 Print@ExtrasatcostTOTALxD; H∗ Sobre la base del número de E1s satelitales se estima el gasto directo en el alquiler del ancho de banda satelital. ∗L Print@"Extrasatcostd"D; Extrasatcostd = zerod; Do@ExtrasatcostdPdeptxPixTT = ExtrasatcostdPdeptxPixTT + ExtrasatcostxPixT, 8ix, nx<D; Print@ExtrasatcostdD; H∗ Acumula por departamento la variable Extrasatcostx, Servicio de Voz ∗LH∗Ojo∗L 117 H Acumula por departamento la variable Extrasatcostx, Servicio de Voz LH Ojo L Modelo_Integral_ACK.nb Print@"factor4"D; factor4 = zerox; DoBfactor4PixT = IfBlinesdPdeptxPixTT linesxPixT, 0, satlinesdPdeptxPixTT − satlinesxPixT linesdPdeptxPixTT − linesxPixT F;, 8ix, nx<F; Print@factor4D; H∗Para igualar al propuesto, no se le quita el interno, asumiendo que también viene hasta LIMA como en el Modelo de ACCESS∗L Print@"satmind4"D; satmind4 = zerod; Do@If@deptxPixT ≠ MADREDEDIOS, satmind4PdeptxPixTT = satmind4PdeptxPixTT + HswitchendxPixTH∗−intraxPixT∗L − satldintradxPixT ∗ factor4PixTL ∗ sat1xPixTD;, 8ix, nx<D; Print@satmind4D; Print@"ExtrasatcostLocd"D; ExtrasatcostLocd = zerod; Do@ExtrasatcostLocdPdeptxPixTT = ExtrasatcostLocdPdeptxPixTT + ExtrasatcostLocxPixT, 8ix, nx<D; Print@ExtrasatcostLocdD; H∗ Acumula por departamento la variable ExtrasatcostLocx, Servicio Local de Voz ∗L Print@"ExtrasatcostLDNd"D; ExtrasatcostLDNd = zerod; Do@ExtrasatcostLDNdPdeptxPixTT = ExtrasatcostLDNdPdeptxPixTT + ExtrasatcostLDNxPixT, 8ix, nx<D; Print@ExtrasatcostLDNdD; H∗ Acumula por departamento la variable ExtrasatcostLDNx, Servicio LDN de Voz ∗L Print@"ExtrasatcostLDId"D; ExtrasatcostLDId = zerod; Do@ExtrasatcostLDIdPdeptxPixTT = ExtrasatcostLDIdPdeptxPixTT + ExtrasatcostLDIxPixT, 8ix, nx<D; Print@ExtrasatcostLDIdD; H∗ Acumula por departamento la variable ExtrasatcostLDIx, Servicio LDI de Voz ∗L Print@"ExtrasatcostalqdA1"D; ExtrasatcostalqdA1 = zerod; Do@ExtrasatcostalqdA1PdeptxPixTT = ExtrasatcostalqdA1PdeptxPixTT + ExtrasatcostalqxA1PixT, 8ix, nx<D; Print@ExtrasatcostalqdA1D; H∗ Acumula por departamento la variable ExtrasatcostalqxA1, Servicio de Circuitos Rango A ∗L Print@"ExtrasatcostalqdB1"D; ExtrasatcostalqdB1 = zerod; Do@ExtrasatcostalqdB1PdeptxPixTT = ExtrasatcostalqdB1PdeptxPixTT + ExtrasatcostalqxB1PixT, 8ix, nx<D; Print@ExtrasatcostalqdB1D; H∗ Acumula por departamento la variable ExtrasatcostalqxB1, Servicio de Circuitos Rango B ∗L Print@"ExtrasatcostalqdC1"D; ExtrasatcostalqdC1 = zerod; Do@ExtrasatcostalqdC1PdeptxPixTT = ExtrasatcostalqdC1PdeptxPixTT + ExtrasatcostalqxC1PixT, 8ix, nx<D; Print@ExtrasatcostalqdC1D; H∗ Acumula por departamento la variable ExtrasatcostalqxC1, Servicio de Circuitos Rango C ∗L Print@"ExtrasatcostalqdLL"D; ExtrasatcostalqdLL = zerod; Do@ExtrasatcostalqdLLPdeptxPixTT = ExtrasatcostalqdLLPdeptxPixTT + ExtrasatcostalqxLLPixT, 8ix, nx<D; Print@ExtrasatcostalqdLLD; H∗ Acumula por departamento la variable ExtrasatcostalqxLL, Servicio de Circuitos Local Lima ∗L Print@"ExtrasatcostalqdLP"D; ExtrasatcostalqdLP = zerod; Do@ExtrasatcostalqdLPPdeptxPixTT = ExtrasatcostalqdLPPdeptxPixTT + ExtrasatcostalqxLPPixT, 8ix, nx<D; Print@ExtrasatcostalqdLPD; H∗ Acumula por departamento la variable ExtrasatcostalqxLP, Servicio de Circuitos Local Provincia ∗L Print@"ExtrasatcostalqdAS"D; ExtrasatcostalqdAS = zerod; Do@ExtrasatcostalqdASPdeptxPixTT = ExtrasatcostalqdASPdeptxPixTT + ExtrasatcostalqxASPixT, 8ix, nx<D; Print@ExtrasatcostalqdASD; H∗ Acumula por departamento la variable ExtrasatcostalqxAS, Servicio de Circuitos Rango A Satelital∗L Print@"ExtrasatcostalqdBS"D ExtrasatcostalqdBS = zerod; Do@ExtrasatcostalqdBSPdeptxPixTT = ExtrasatcostalqdBSPdeptxPixTT + ExtrasatcostalqxBSPixT, 8ix, nx<D Print@ExtrasatcostalqdBSD H∗ Acumula por departamento la variable ExtrasatcostalqxBS, Servicio de Circuitos Rango B Satelital∗L Print@"ExtrasatcostalqdCS"D; ExtrasatcostalqdCS = zerod; Do@ExtrasatcostalqdCSPdeptxPixTT = ExtrasatcostalqdCSPdeptxPixTT + ExtrasatcostalqxCSPixT, 8ix, nx<D; Print@ExtrasatcostalqdCSD; 118 Print@ExtrasatcostalqdCSD; H∗ Acumula por departamento la variable ExtrasatcostalqxCS, Servicio de Circuitos Rango C Satelital∗L Modelo_Integral_ACK.nb Print@"ExtrasatcostalqdABC2"D; ExtrasatcostalqdABC2 = zerod; Do@ExtrasatcostalqdABC2PdeptxPixTT = ExtrasatcostalqdABC2PdeptxPixTT + ExtrasatcostalqxABC2PixT, 8ix, nx<D; Print@ExtrasatcostalqdABC2D; H∗ Acumula por departamento la variable ExtrasatcostalqxABC2, Servicio de Otros Circuitos Rango A, B y C∗L Print@"ExtrasatcostalqdABCnop"D; ExtrasatcostalqdABCnop = zerod; Do@ExtrasatcostalqdABCnopPdeptxPixTT = ExtrasatcostalqdABCnopPdeptxPixTT + ExtrasatcostalqxABCnopPixT, 8ix, nx<D; Print@ExtrasatcostalqdABCnopD; H∗ Acumula por departamento la variable ExtrasatcostalqxABCnop, Servicio de Circuitos de No Operadores∗L Print@"Extrasatcostadsld"D; Extrasatcostadsld = zerod; Do@ExtrasatcostadsldPdeptxPixTT = ExtrasatcostadsldPdeptxPixTT + ExtrasatcostadslxPixT, 8ix, nx<D; Print@ExtrasatcostadsldD; H∗ Acumula por departamento la variable Extrasatcostadslx, Servicio de ADSL ∗L Print@"Extrasatcostitxd"D; Extrasatcostitxd = zerod; Do@ExtrasatcostitxdPdeptxPixTT = ExtrasatcostitxdPdeptxPixTT + ExtrasatcostitxxPixT, 8ix, nx<D; Print@ExtrasatcostitxdD; H∗ Acumula por departamento la variable Extrasatcostitxx, Servicio de Circuitos de Interconexión∗L Print@"ExtrasatcostTOTALd"D; ExtrasatcostTOTALd = zerod; Do@ExtrasatcostTOTALdPdeptxPixTT = ExtrasatcostTOTALdPdeptxPixTT + ExtrasatcostTOTALxPixT, 8ix, nx<D; Print@ExtrasatcostTOTALdD; H∗ Acumula por departamento la variable ExtrasatcostTOTALx, Todos los servicios∗L ESTIMACIÓN DE COMPOSICION DE E1s PrintBStyleB "ESTIMACIÓN DE COMPOSICION DE E1s Hsi es del Anillo o de tramo independienteL", 16, White, Bold, Underlined, RGBColorB0, 1 , 0FFF; 2 PrintAStyleA"A NIVEL HOST TANDEM", 16, White, Bold, Underlined, Background → BlueEE; Print@"e1compHTx"D; e1compHTx = zerox; Do@If@esAnillodxPixT ≠ NA, e1compHTxPixT = e1AnillodPdeptxPixTT, e1compHTxPixT = e1hosttandemxPixTD;, 8ix, nx<D; Print@e1compHTxD; H∗ Especifica el número de E1s relevante para el servicio de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1Anillod y si no es anillo simplemente la variable e1hosttandemx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"loadcompHTLocx"D; loadcompHTLocx = zerox; Do@If@esAnillodxPixT ≠ NA, loadcompHTLocxPixT = loadAnilloLocdPdeptxPixTT, loadcompHTLocxPixT = loadhosttandemLocxPixTD;, 8ix, nx<D; Print@loadcompHTLocxD; H∗ Especifica la carga en Erlangs relevante para el servicio Local de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnilloLocd y si no es anillo simplemente la variable loadhosttandemLocx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"loadcompHTLDNx"D; loadcompHTLDNx = zerox; Do@If@esAnillodxPixT ≠ NA, loadcompHTLDNxPixT = loadAnilloLDNdPdeptxPixTT, loadcompHTLDNxPixT = loadhosttandemLDNxPixTD;, 8ix, nx<D; Print@loadcompHTLDNxD; H∗ Especifica la carga en Erlangs relevante para el servicio LDN de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnilloLDNd y si no es anillo simplemente la variable loadhosttandemLDNx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"loadcompHTLDIx"D; loadcompHTLDIx = zerox; Do@If@esAnillodxPixT ≠ NA, loadcompHTLDIxPixT = loadAnilloLDIdPdeptxPixTT, loadcompHTLDIxPixT = loadhosttandemLDIxPixTD;, 8ix, nx<D; Print@loadcompHTLDIxD; H∗ Especifica la carga en Erlangs relevante para el servicio LDI de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnilloLDId y si no es anillo simplemente la variable loadhosttandemLDIx, ambas referidas de manera exclusiva al servicio elegido ∗L 119 ambas referidas de manera exclusiva al servicio elegido L Print@"loadcompHTx"D; loadcompHTx = zerox; Do@If@esAnillodxPixT ≠ NA, loadcompHTxPixT = loadAnillodPdeptxPixTT, loadcompHTxPixT = loadhosttandemxPixTD;, 8ix, nx<D; Print@loadcompHTxD; H∗ Especifica la carga en Erlangs relevante para el servicio de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnillod y si no es anillo simplemente la variable loadhosttandemx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxA1"D; e1compalqHTxA1 = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxA1PixT = e1AnilloalqdA1PdeptxPixTT, e1compalqHTxA1PixT = e1hosttandemalqxA1PixTD;, 8ix, nx<D; Print@e1compalqHTxA1D; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango A: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdA1 y si no es anillo simplemente la variable e1hosttandemalqxA1, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxB1"D; e1compalqHTxB1 = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxB1PixT = e1AnilloalqdB1PdeptxPixTT, e1compalqHTxB1PixT = e1hosttandemalqxB1PixTD;, 8ix, nx<D; Print@e1compalqHTxB1D; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango B: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdB1 y si no es anillo simplemente la variable e1hosttandemalqxB1, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxC1"D; e1compalqHTxC1 = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxC1PixT = e1AnilloalqdC1PdeptxPixTT, e1compalqHTxC1PixT = e1hosttandemalqxC1PixTD;, 8ix, nx<D; Print@e1compalqHTxC1D; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango C: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdC1 y si no es anillo simplemente la variable e1hosttandemalqxC1, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxLL"D; e1compalqHTxLL = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxLLPixT = e1AnilloalqdLLPdeptxPixTT, e1compalqHTxLLPixT = e1hosttandemalqxLLPixTD;, 8ix, nx<D; Print@e1compalqHTxLLD; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Local Lima: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdLL y si no es anillo simplemente la variable e1hosttandemalqxLL, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxLP"D; e1compalqHTxLP = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxLPPixT = e1AnilloalqdLPPdeptxPixTT, e1compalqHTxLPPixT = e1hosttandemalqxLPPixTD;, 8ix, nx<D; Print@e1compalqHTxLPD; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Local Provincias: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdLP y si no es anillo simplemente la variable e1hosttandemalqxLP, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxAS"D; e1compalqHTxAS = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxASPixT = e1AnilloalqdASPdeptxPixTT, e1compalqHTxASPixT = e1hosttandemalqxASPixTD;, 8ix, nx<D; Print@e1compalqHTxASD; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango A Satelital: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdAS y si no es anillo simplemente la variable e1hosttandemalqxAS, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxBS"D; e1compalqHTxBS = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxBSPixT = e1AnilloalqdBSPdeptxPixTT, e1compalqHTxBSPixT = e1hosttandemalqxBSPixTD;, 8ix, nx<D; Print@e1compalqHTxBSD; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango B Satelital: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdBS y si no es anillo simplemente la variable e1hosttandemalqxBS, L Modelo_Integral_ACK.nb 120 tomar la variable e1AnilloalqdBS y si no es anillo simplemente la variable e1hosttandemalqxBS, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxCS"D; e1compalqHTxCS = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxCSPixT = e1AnilloalqdCSPdeptxPixTT, e1compalqHTxCSPixT = e1hosttandemalqxCSPixTD;, 8ix, nx<D; Print@e1compalqHTxCSD; H∗ Especifica el número de E1s relevante para el servicio de Circuitos Rango C Satelital: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdCS y si no es anillo simplemente la variable e1hosttandemalqxCS, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxABC2"D; e1compalqHTxABC2 = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxABC2PixT = e1AnilloalqdABC2PdeptxPixTT, e1compalqHTxABC2PixT = e1hosttandemalqxABC2PixTD;, 8ix, nx<D; Print@e1compalqHTxABC2D; H∗ Especifica el número de E1s relevante para el servicio de Otros Circuitos Rango A, B y C: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdABC2 y si no es anillo simplemente la variable e1hosttandemalqxABC2, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compalqHTxABCnop"D; e1compalqHTxABCnop = zerox; Do@If@esAnillodxPixT ≠ NA, e1compalqHTxABCnopPixT = e1AnilloalqdABCnopPdeptxPixTT, e1compalqHTxABCnopPixT = e1hosttandemalqxABCnopPixTD;, 8ix, nx<D; Print@e1compalqHTxABCnopD H∗ Especifica el número de E1s relevante para el servicio de Circuitos de No Operadores: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloalqdABCnop y si no es anillo simplemente la variable e1hosttandemalqxABCnop, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compitxHTx"D; e1compitxHTx = zerox; Do@If@esAnillodxPixT ≠ NA, e1compitxHTxPixT = Round@e1AnilloitxdPdeptxPixTTD, e1compitxHTxPixT = Round@e1hosttandemitxxPixTDD;, 8ix, nx<D; Print@e1compitxHTxD; H∗ Especifica el número de E1s relevante para el servicio de Circuitos de Interconexión: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1Anilloitxd y si no es anillo simplemente la variable e1hosttandemitxx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compadslHTx"D; e1compadslHTx = zerox; Do@If@esAnillodxPixT ≠ NA, e1compadslHTxPixT = Round@e1AnilloadsldPdeptxPixTTD, e1compadslHTxPixT = Round@e1hosttandemadslxPixTDD;, 8ix, nx<D; Print@e1compadslHTxD; H∗ Especifica el número de E1s relevante para el servicio de ADSL: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1Anilloadsld y si no es anillo simplemente la variable e1hosttandemadslx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@"e1compHTTOTALx"D; e1compHTTOTALx = zerox; Do@If@esAnillodxPixT ≠ NA, e1compHTTOTALxPixT = e1AnilloTOTALdPdeptxPixTT, e1compHTTOTALxPixT = e1hosttandemTOTALxPixTD;, 8ix, nx<D; Print@e1compHTTOTALxD; H∗ Especifica el número de E1s totales Hde todos los serviciosL: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable e1AnilloTOTALd y si no es anillo simplemente la variable e1hosttandemTOTALx ∗L PrintBStyleB "COMPOSICIÓN POR SERVICIO − HOST TANDEM", 16, White, Bold, Underlined, Background → BlueFF; Pcte1compHTx = Table@0, 8jx, nx<, 8ix, 13<D; DoBIfBe1compHTTOTALxPixT ≠ 0, Pcte1compHTxPix, 1T = Pcte1compHTxPix, 2T = Pcte1compHTxPix, 3T = e1compHTxPixT ; e1compHTTOTALxPixT e1compalqHTxA1PixT ; e1compHTTOTALxPixT e1compalqHTxB1PixT ; e1compHTTOTALxPixT Pcte1compHTxPix, 4T = e1compalqHTxC1PixT ; e1compHTTOTALxPixT Pcte1compHTxPix, 5T = e1compalqHTxLLPixT ; e1compHTTOTALxPixT Modelo_Integral_ACK.nb 121 Modelo_Integral_ACK.nb Pcte1compHTxPix, 6T = Pcte1compHTxPix, 7T = Pcte1compHTxPix, 8T = e1compalqHTxLPPixT ; e1compHTTOTALxPixT e1compalqHTxASPixT ; e1compHTTOTALxPixT e1compalqHTxBSPixT ; e1compHTTOTALxPixT Pcte1compHTxPix, 9T = e1compalqHTxCSPixT ; e1compHTTOTALxPixT Pcte1compHTxPix, 10T = Pcte1compHTxPix, 11T = Pcte1compHTxPix, 12T = Pcte1compHTxPix, 13T = e1compalqHTxABC2PixT ; e1compHTTOTALxPixT e1compalqHTxABCnopPixT ; e1compHTTOTALxPixT e1compitxHTxPixT ; e1compHTTOTALxPixT e1compadslHTxPixT e1compHTTOTALxPixT ;F;, 8ix, nx<F; Print@TableForm@Pcte1compHTx, TableAlignments → 8Center, Center<, TableDirections → 8Column, Row<, TableHeadings → 8Table@ix, 8ix, nx<D, 8"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq Otros", "No Op", "Itx", "ADSL"<<DD; PrintBStyleB "ESTIMACIÓN DE COMPOSICION DE E1s", 16, Bold, White, Underlined, Background → RGBColorB0, PrintAStyleA 1 , 0FFF; 2 "A NIVEL REMOTE HOST", 16, Bold, White, Underlined, Background → BlueEE; Print@"Cargas de Voz"D; loadcompRHx = zerox; loadcompRHLocx = zerox; loadcompRHLDNx = zerox; loadcompRHLDIx = zerox; Do@If@esAnillopxPixT 1, loadcompRHxPixT = loadAnillopPprovxPixTT; loadcompRHLocxPixT = loadAnilloLocpPprovxPixTT; loadcompRHLDNxPixT = loadAnilloLDNpPprovxPixTT; loadcompRHLDIxPixT = loadAnilloLDIpPprovxPixTT;, loadcompRHxPixT = loadremotehostxPixT; loadcompRHLocxPixT = loadremotehostLocxPixT; loadcompRHLDNxPixT = loadremotehostLDNxPixT; loadcompRHLDIxPixT = loadremotehostLDIxPixT;D;, 8ix, nx<D; H∗ Especifica la carga en Erlangs relevante para el servicio de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnillop y si no es anillo simplemente la variable loadremotehostx, ambas referidas de manera exclusiva al servicio elegido ∗L H∗ Especifica la carga en Erlangs relevante para el servicio Local de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnilloLocp y si no es anillo simplemente la variable loadremotehostLocx, ambas referidas de manera exclusiva al servicio elegido ∗L H∗ Especifica la carga en Erlangs relevante para el servicio LDN de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnilloLDNp y si no es anillo simplemente la variable loadremotehostLDNx, ambas referidas de manera exclusiva al servicio elegido ∗L H∗ Especifica la carga en Erlangs relevante para el servicio LDI de Voz: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar la variable loadAnilloLDIp y si no es anillo simplemente la variable loadremotehostLDIx, ambas referidas de manera exclusiva al servicio elegido ∗L Print@TableForm@8loadcompRHx, loadcompRHLocx, loadcompRHLDNx, loadcompRHLDIx<, TableAlignments → 8Center, Center<, TableDirections → 8Row, Column<, TableSpacing → 80, 0<, TableHeadings → 88"Total", "Local", "LDN", "LDI"<, Table@ix, 8ix, nx<D<DD; Print@"E1s por Servicio"D; e1compRHx = zerox; e1compalqRHxA1 = zerox; e1compalqRHxB1 = zerox; e1compalqRHxC1 = zerox; e1compalqRHxLL = zerox; e1compalqRHxLP = zerox; e1compalqRHxAS = zerox; e1compalqRHxBS = zerox; e1compalqRHxCS = zerox; e1compalqRHxABC2 = zerox; e1compalqRHxABCnop = zerox; e1compitxRHx = zerox; e1compadslRHx = zerox; e1compRHTOTALx = zerox; Do@If@esAnillopxPixT 1, e1compRHxPixT = e1AnillopPprovxPixTT; e1compalqRHxA1PixT = e1AnilloalqpA1PprovxPixTT; e1compalqRHxB1PixT = e1AnilloalqpB1PprovxPixTT; e1compalqRHxC1PixT = e1AnilloalqpC1PprovxPixTT; e1compalqRHxLLPixT = e1AnilloalqpLLPprovxPixTT; 122 Modelo_Integral_ACK.nb e1compalqRHxLLPixT e1AnilloalqpLLPprovxPixTT; e1compalqRHxLPPixT = e1AnilloalqpLPPprovxPixTT; e1compalqRHxASPixT = e1AnilloalqpASPprovxPixTT; e1compalqRHxBSPixT = e1AnilloalqpBSPprovxPixTT; e1compalqRHxCSPixT = e1AnilloalqpCSPprovxPixTT; e1compalqRHxABC2PixT = e1AnilloalqpABC2PprovxPixTT; e1compalqRHxABCnopPixT = e1AnilloalqpABCnopPprovxPixTT; e1compitxRHxPixT = e1AnilloitxpPprovxPixTT; e1compadslRHxPixT = e1AnilloadslpPprovxPixTT; e1compRHTOTALxPixT = e1AnilloTOTALpPprovxPixTT;, e1compRHxPixT = e1remotehostxPixT; e1compalqRHxA1PixT = e1remotehostalqxA1PixT; e1compalqRHxB1PixT = e1remotehostalqxB1PixT; e1compalqRHxC1PixT = e1remotehostalqxC1PixT; e1compalqRHxLLPixT = e1remotehostalqxLLPixT; e1compalqRHxLPPixT = e1remotehostalqxLPPixT; e1compalqRHxASPixT = e1remotehostalqxASPixT; e1compalqRHxBSPixT = e1remotehostalqxBSPixT; e1compalqRHxCSPixT = e1remotehostalqxCSPixT; e1compalqRHxABC2PixT = e1remotehostalqxABC2PixT; e1compalqRHxABCnopPixT = e1remotehostalqxABCnopPixT; e1compitxRHxPixT = e1remotehostitxxPixT; e1compadslRHxPixT = e1remotehostadslxPixT; e1compRHTOTALxPixT = e1remotehostTOTALxPixT;D;, 8ix, nx<D; H∗ Especifica el número de E1s relevante para los servicios de Voz, Circuitos Rango A, Circuitos Rango B, Circuitos Rango C, Otros Circuitos Rango A, B y C, Circuitos de No Operadores, Circuitos de Interconexión, ADSL y Totales: Vale para radio y fibra. Si la central forma parte de un anillo departamental se tomar las variables e1Anillop, e1AnilloalqpA1,e1AnilloalqpB1,e1AnilloalqpC1,e1AnilloalqpLL,e1AnilloalqpLP,e1AnilloalqpAS, e1AnilloalqpBS,e1AnilloalqpCS,e1AnilloalqpABC2,e1AnilloalqpABCnop,e1Anilloitxp, e1Anilloadslp o e1AnilloTOTALp y si no es anillo simplemente la variable e1remotehostx,e1remotehostalqxA1, e1remotehostalqxB1,e1remotehostalqxC1,e1remotehostalqxLL,e1remotehostalqxLP,e1remotehostalqxAS, e1remotehostalqxBS,e1remotehostalqxCS,e1remotehostalqxABC2,e1remotehostalqxABCnop,e1remotehostitxx, e1remotehostadslx o e1remotehostTOTALx, ambas referidas de manera exclusiva al servicio respectivo ∗L Print@TableForm@8e1compRHx, e1compalqRHxA1, e1compalqRHxB1, e1compalqRHxC1, e1compalqRHxABC2, e1compalqRHxABCnop, e1compitxRHx, e1compadslRHx, e1compRHTOTALx<, TableAlignments → 8Center, Center<, TableDirections → 8Row, Column<, TableSpacing → 80, 0<, TableHeadings → 88"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq Otros", "No Op", "Itx", "ADSL", "Total"<, Table@ix, 8ix, nx<D<DD; PrintBStyleB "COMPOSICIÓN POR SERVICIO − REMOTE HOST", 16, Bold, White, Underlined, Background → BlueFF; Pcte1compRHx = Table@0, 8jx, nx<, 8ix, 13<D; DoBIfBe1compRHTOTALxPixT ≠ 0, e1compRHxPixT Pcte1compRHxPix, 1T = ; e1compRHTOTALxPixT Pcte1compRHxPix, 2T = Pcte1compRHxPix, 3T = Pcte1compRHxPix, 4T = Pcte1compRHxPix, 5T = e1compalqRHxA1PixT ; e1compRHTOTALxPixT e1compalqRHxB1PixT ; e1compRHTOTALxPixT e1compalqRHxC1PixT ; e1compRHTOTALxPixT e1compalqRHxLLPixT ; e1compRHTOTALxPixT Pcte1compRHxPix, 6T = e1compalqRHxLPPixT ; e1compRHTOTALxPixT Pcte1compRHxPix, 7T = Pcte1compRHxPix, 8T = Pcte1compRHxPix, 9T = e1compalqRHxASPixT ; e1compRHTOTALxPixT e1compalqRHxBSPixT ; e1compRHTOTALxPixT e1compalqRHxCSPixT ; e1compRHTOTALxPixT Pcte1compRHxPix, 10T = e1compalqRHxABC2PixT ; e1compRHTOTALxPixT Pcte1compRHxPix, 11T = e1compalqRHxABCnopPixT ; e1compRHTOTALxPixT Pcte1compRHxPix, 12T = Pcte1compRHxPix, 13T = e1compitxRHxPixT ; e1compRHTOTALxPixT e1compadslRHxPixT e1compRHTOTALxPixT ;F;, 8ix, nx<F; Print@ TableForm@Pcte1compRHx, TableAlignments → 8Center, Center<, TableDirections → 8Column, Row<, TableSpacing → 80, 0<, TableHeadings → 8Table@ix, 8ix, nx<D, 8"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq Otros", "No Op", "Itx", "ADSL", "Total"<<DD; ESTIMACION DE INVERSIONES DE RADIO 123 Modelo_Integral_ACK.nb PrintBStyleB "ESTIMACIÓN DE INVERSIONES EN RADIO A NIVEL CABECERA−TANDEM", 16, Bold, White, Underlined, Background → RGBColorB0, hophosttandemx = FloorB disttandemx hop 1 , 0FFF; 2 F; H∗ Estima el número de Repetidoras: Equivale a la distancia relevante para cada arista entre la distancia máxima que debe existir entre cada repetidora. Para llegar al número de repetidoras es necesario restar 1 de dicho resultado ∗L e1hosttandemTOTALx F; numtributariosRHTx = CeilingB 21 H∗ Identifica el número de tributarios por central ∗L VelocidadRHTx = zerox; CosteFijoRHTx = zerox; CosteTributariosRHTx = zerox; CosteRepetidoresRHTx = zerox; Do@If@e1compHTTOTALxPixT ≠ 0, Do@If@e1compHTTOTALxPixT > TxRadioLimitesPiT, VelocidadRHTxPixT = iD;, 8i, Length@TxRadioLimitesD<D; If@VelocidadRHTxPixT < Length@TxRadioLimitesD, VelocidadRHTxPixT = VelocidadRHTxPixT + 1D; H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L If@VelocidadRHTxPixT ≠ 0, CosteFijoRHTxPixT = TxRadioCosteFijoPVelocidadRHTxPixTT; H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L CosteTributariosRHTxPixT = TxRadioCosteTributarioPVelocidadRHTxPixTT; H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L CosteRepetidoresRHTxPixT = TxRadioCosteRepPVelocidadRHTxPixTT ∗ hophosttandemxPixT;D;D; H∗ Especifica el costo del equipo repetidor asociado a la velocidad o capacidad requerida∗L , 8ix, nx<D; radioinvhosttandemx = zerox; radioinvhosttandemalqxA1 = zerox; radioinvhosttandemalqxB1 = zerox; radioinvhosttandemalqxC1 = zerox; radioinvhosttandemalqxLL = zerox; radioinvhosttandemalqxLP = zerox; radioinvhosttandemalqxAS = zerox; radioinvhosttandemalqxBS = zerox; radioinvhosttandemalqxCS = zerox; radioinvhosttandemalqxABC2 = zerox; radioinvhosttandemalqxABCnop = zerox; radioinvhosttandemadslx = zerox; radioinvhosttandemitxx = zerox; radioinvhosttandemTOTALx = zerox; DoBIfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, radioinvhosttandemTOTALxPixT = 2 ∗ CosteFijoRHTxPixT + CosteRepetidoresRHTxPixT + 2 ∗ CosteTributariosRHTxPixT ∗ numtributariosRHTxPixT; H∗ Estima el nivel de inversión Total e imputable a todos los servicios. Si la central es Tandem el resultado debe ser cero HEn el nivel HT todos los costos estan imputados a las cabeceras ∗L e1compHTxPixT radioinvhosttandemxPixT = radioinvhosttandemTOTALxPixT ∗ ; e1compHTTOTALxPixT radioinvhosttandemalqxA1PixT = radioinvhosttandemTOTALxPixT ∗ e1compalqHTxA1PixT ; e1compHTTOTALxPixT radioinvhosttandemalqxB1PixT = radioinvhosttandemTOTALxPixT ∗ e1compalqHTxB1PixT ; e1compHTTOTALxPixT radioinvhosttandemalqxC1PixT = radioinvhosttandemTOTALxPixT ∗ radioinvhosttandemalqxLLPixT = radioinvhosttandemTOTALxPixT ∗ radioinvhosttandemalqxLPPixT = radioinvhosttandemTOTALxPixT ∗ radioinvhosttandemalqxASPixT = radioinvhosttandemTOTALxPixT ∗ radioinvhosttandemalqxBSPixT = radioinvhosttandemTOTALxPixT ∗ e1compalqHTxC1PixT ; e1compHTTOTALxPixT e1compalqHTxLLPixT ; e1compHTTOTALxPixT e1compalqHTxLPPixT ; e1compHTTOTALxPixT e1compalqHTxASPixT ; e1compHTTOTALxPixT e1compalqHTxBSPixT ; e1compHTTOTALxPixT radioinvhosttandemalqxCSPixT = radioinvhosttandemTOTALxPixT ∗ e1compalqHTxCSPixT ; e1compHTTOTALxPixT radioinvhosttandemalqxABC2PixT = radioinvhosttandemTOTALxPixT ∗ e1compalqHTxABC2PixT ; e1compHTTOTALxPixT radioinvhosttandemalqxABCnopPixT = radioinvhosttandemTOTALxPixT ∗ radioinvhosttandemadslxPixT = radioinvhosttandemTOTALxPixT ∗ radioinvhosttandemitxxPixT = radioinvhosttandemTOTALxPixT ∗ e1compalqHTxABCnopPixT ; e1compHTTOTALxPixT e1compadslHTxPixT ; e1compHTTOTALxPixT e1compitxHTxPixT ;F; e1compHTTOTALxPixT , 8ix, nx<F; H∗ Estima el nivel de inversión Total e imputable al servicio de Voz. Para ello, utiliza como factor o proporción imputable el ratio entre las variables 124 Modelo_Integral_ACK.nb utiliza como factor o proporción imputable el ratio entre las variables HEspecifica el número de E1s relevante para el servicio de VozL y la variable e1compHTTOTALx HEspecifica el número de E1s de todos los serviciosL. Si la central es Tandem el resultado debe ser cero HEn el nivel HT todos los costos estan imputados a las cabeceras ∗L H∗ Estima el nivel de inversión Total e imputable a cada servicio. Para ello, utiliza como factor o proporción imputable el ratio entre las variables e1compHTx, e1compalqHTxA1, e1compalqHTxB1, e1compalqHTxC1,e1compalqHTxLL, e1compalqHTxLP, e1compalqHTxAS, e1compalqHTxBS, e1compalqHTxCS, e1compalqHTxABC2, e1compalqHTxABCnop, e1compadslHTx y e1compitxHTx HEspecifica el número de E1s relevante para el servicio de Cada ServicioL y la variable e1compHTTOTALx HEspecifica el número de E1s de todos los serviciosL. Si la central es Tandem el resultado debe ser cero HEn el nivel HT todos los costos estan imputados a las cabeceras ∗L Print@TableForm@Table@8ix, idxPixT, yPix, 13T, hophosttandemxPixT, numtributariosRHTxPixT, VelocidadRHTxPixT, CosteFijoRHTxPixT, CosteTributariosRHTxPixT, CosteRepetidoresRHTxPixT, radioinvhosttandemxPixT, radioinvhosttandemalqxA1PixT, radioinvhosttandemalqxB1PixT, radioinvhosttandemalqxC1PixT, radioinvhosttandemalqxLLPixT, radioinvhosttandemalqxLPPixT, radioinvhosttandemalqxASPixT, radioinvhosttandemalqxBSPixT, radioinvhosttandemalqxCSPixT, radioinvhosttandemalqxABC2PixT, radioinvhosttandemalqxABCnopPixT, radioinvhosttandemadslxPixT, radioinvhosttandemitxxPixT, radioinvhosttandemTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "hophosttandemx", "numtributariosRHTx", "VelocidadRHTx", "CosteFijoRHTx", "CosteTributariosRHTx", "CosteRepetidoresRHTx", "radioinvhosttandemx", "radioinvhosttandemalqxA1", "radioinvhosttandemalqxB1", "radioinvhosttandemalqxC1", "radioinvhosttandemalqxLL", "radioinvhosttandemalqxLP", "radioinvhosttandemalqxAS", "radioinvhosttandemalqxBS", "radioinvhosttandemalqxCS", "radioinvhosttandemalqxABC2", "radioinvhosttandemalqxABCnop", "radioinvhosttandemadslx", "radioinvhosttandemitxx", "radioinvhosttandemTOTALx"<<DD; PrintBStyleB "ESTIMACIÓN DE INVERSIONES EN RADIO A NIVEL REMOTA−CABECERA", 16, Bold, White, Underlined, Background → RGBColorB0, 1 , 0FFF; 2 hopremotehostx = zerox; DoBhopremotehostxPixT = IfBCeilingB disthostxPixT hop F > 1, CeilingB disthostxPixT hop F − 1, 0F;, 8ix, nx<F; H∗ Estima el número de Repetidoras: Equivale a la distancia relevante para cada arista entre la distancia máxima que debe existir entre cada repetidora. Para llegar al número de repetidoras es necesario restar 1 de dicho resultado ∗L F; 21 H∗ Identifica el número de tributarios por central ∗L numtributariosRRHx = CeilingB e1remotehostTOTALx VelocidadRRHx = zerox; CosteFijoRRHx = zerox; CosteTributariosRRHx = zerox; CosteRepetidoresRRHx = zerox; Do@If@e1compRHTOTALxPixT ≠ 0, Do@If@e1compRHTOTALxPixT > TxRadioLimitesPiT, VelocidadRRHxPixT = iD;, 8i, Length@TxRadioLimitesD<D; If@VelocidadRRHxPixT < Length@TxRadioLimitesD, VelocidadRRHxPixT = VelocidadRRHxPixT + 1D;D; H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L If@VelocidadRRHxPixT ≠ 0, CosteFijoRRHxPixT = TxRadioCosteFijoPVelocidadRRHxPixTT; H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L CosteTributariosRRHxPixT = TxRadioCosteTributarioPVelocidadRRHxPixTT; H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L CosteRepetidoresRRHxPixT = TxRadioCosteRepPVelocidadRRHxPixTT ∗ hopremotehostxPixT;D; H∗ Especifica el costo del equipo repetidor asociado a la velocidad o capacidad requerida∗L , 8ix, nx<D; radioinvremotehostx = zerox; radioinvremotehostalqxA1 = zerox; radioinvremotehostalqxB1 = zerox; radioinvremotehostalqxC1 = zerox; radioinvremotehostalqxLL = zerox; radioinvremotehostalqxLP = zerox; radioinvremotehostalqxAS = zerox; radioinvremotehostalqxBS = zerox; radioinvremotehostalqxCS = zerox; radioinvremotehostalqxABC2 = zerox; radioinvremotehostalqxABCnop = zerox; radioinvremotehostadslx = zerox; radioinvremotehostitxx = zerox; radioinvremotehostTOTALx = zerox; DoB IfBe1compRHTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, radioinvremotehostTOTALxPixT = 2 CosteFijoRRHxPixT + CosteRepetidoresRRHxPixT + 2 CosteTributariosRRHxPixT ∗ numtributariosRRHxPixT; H∗ Estima el nivel de inversión Total e imputable a todos los servicios. Si la central es Tandem el resultado debe ser cero HEn el nivel RH todos los costos estan imputados a las remotasL ∗L 125 Modelo_Integral_ACK.nb e1compRHxPixT radioinvremotehostxPixT = radioinvremotehostTOTALxPixT ∗ ; e1compRHTOTALxPixT radioinvremotehostalqxA1PixT = radioinvremotehostTOTALxPixT ∗ radioinvremotehostalqxB1PixT = radioinvremotehostTOTALxPixT ∗ radioinvremotehostalqxC1PixT = radioinvremotehostTOTALxPixT ∗ radioinvremotehostalqxLLPixT = radioinvremotehostTOTALxPixT ∗ e1compalqRHxA1PixT ; e1compRHTOTALxPixT e1compalqRHxB1PixT ; e1compRHTOTALxPixT e1compalqRHxC1PixT ; e1compRHTOTALxPixT e1compalqRHxLLPixT ; e1compRHTOTALxPixT radioinvremotehostalqxLPPixT = radioinvremotehostTOTALxPixT ∗ e1compalqRHxLPPixT ; e1compRHTOTALxPixT radioinvremotehostalqxASPixT = radioinvremotehostTOTALxPixT ∗ radioinvremotehostalqxBSPixT = radioinvremotehostTOTALxPixT ∗ radioinvremotehostalqxCSPixT = radioinvremotehostTOTALxPixT ∗ e1compalqRHxASPixT ; e1compRHTOTALxPixT e1compalqRHxBSPixT ; e1compRHTOTALxPixT e1compalqRHxCSPixT ; e1compRHTOTALxPixT radioinvremotehostalqxABC2PixT = radioinvremotehostTOTALxPixT ∗ e1compalqRHxABC2PixT ; e1compRHTOTALxPixT radioinvremotehostalqxABCnopPixT = radioinvremotehostTOTALxPixT ∗ e1compalqRHxABCnopPixT ; e1compRHTOTALxPixT radioinvremotehostadslxPixT = radioinvremotehostTOTALxPixT ∗ radioinvremotehostitxxPixT = radioinvremotehostTOTALxPixT ∗ e1compadslRHxPixT ; e1compRHTOTALxPixT e1compitxRHxPixT ;F; e1compRHTOTALxPixT , 8ix, nx<F; H∗ Estima el nivel de inversión Total e imputable a cada servicio. Para ello, utiliza como factor o proporción imputable el ratio entre las variables e1compRHx, e1compalqRHxA1, e1compalqRHxB1, e1compalqRHxC1, e1compalqRHxLL, e1compalqRHxLP, e1compalqRHxAS, e1compalqRHxBS, e1compalqRHxCS, e1compalqRHxABC2, e1compalqRHxABCnop, e1compadslRHx y e1compitxRHx HEspecifica el número de E1s relevante para cada servicioL y la variable e1compRHTOTALx HEspecifica el número de E1s de todos los serviciosL. Si la central es Tandem el resultado debe ser cero HEn el nivel RH todos los costos estan imputados a las remotasL ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, hopremotehostxPixT, numtributariosRRHxPixT, VelocidadRRHxPixT, CosteFijoRRHxPixT, CosteTributariosRRHxPixT, CosteRepetidoresRRHxPixT, radioinvremotehostxPixT, radioinvremotehostalqxA1PixT, radioinvremotehostalqxB1PixT, radioinvremotehostalqxC1PixT, radioinvremotehostalqxLLPixT, radioinvremotehostalqxLPPixT, radioinvremotehostalqxASPixT, radioinvremotehostalqxBSPixT, radioinvremotehostalqxCSPixT, radioinvremotehostalqxABC2PixT, radioinvremotehostalqxABCnopPixT, radioinvremotehostadslxPixT, radioinvremotehostitxxPixT, radioinvremotehostTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "hopremotehostx", "numtributariosRRHx", "VelocidadRRHx", "CosteFijoRRHx", "CosteTributariosRRHx", "CosteRepetidoresRRHx", "radioinvremotehostx", "radioinvremotehostalqxA1", "radioinvremotehostalqxB1", "radioinvremotehostalqxC1", "radioinvremotehostalqxLL", "radioinvremotehostalqxLP", "radioinvremotehostalqxAS", "radioinvremotehostalqxBS", "radioinvremotehostalqxCS", "radioinvremotehostalqxABC2", "radioinvremotehostalqxABCnop", "radioinvremotehostadslx", "radioinvremotehostitxx", "radioinvremotehostTOTALx"<<DD; CALCULO DE INVERSIÓN EN FIBRA PrintBStyleB "CALCULO DEL COSTO POR KM DE FIBRA", 16, Bold, White, Underlined, Background → RGBColorB0, 1 , 0FFF; 2 Print@"TxFibraCosteKmUrban: Fibra Canalizada"D; TxFibraCosteKmUrban = TxFibraCosteEmpalme TxFibraCosteCamara compfiburb ∗ + TxFibraCosteCanalizacionKm + ; TxFibraDistEntreEmpalmesKm TxFibraDistEntreCamarasKm Print@TxFibraCosteKmUrbanD; Print@"TxFibraCosteKmEnterrado: Fibra Enterrada"D; TxFibraCosteEmpalme + TxFibraCosteTrituboKm; TxFibraCosteKmEnterrado = TxFibraDistEntreEmpalmesKm Print@TxFibraCosteKmEnterradoD; Print@"TxFibraCosteKmAereo: Fibra Aerea"D; TxFibraCosteKmAereo = 4451.85900092466; H∗Se toma de los preciarios de ACCESS∗L Print@TxFibraCosteKmAereoD; PrintBStyleB "ESTIMACIÓN DE INVERSIONES EN FIBRA A NIVEL CABECERA−TANDEM", 16, Bold, White, Underlined, Background → RGBColorB0, repfibra2x = FloorB repfibrax hopfibra F + FloorB SumaCabecerax 60 F; 1 , 0FFF; 2 126 Modelo_Integral_ACK.nb H∗Se le agrega SumaCabecerax para evitar no incluir los repetidores de cabecera y evitar colocar inexistentes∗L H∗ Especifica el número de repetidoras de Fibra por tramo ∗L F; 21 H∗ Identifica el número de tributarios por central ∗L numtributariosFHTx = CeilingB e1hosttandemTOTALx VelocidadFHTx = zerox; CostePorKmFHTx = zerox; CosteFijoFHTx = zerox; CosteTributariosFHTx = zerox; Do@If@e1compHTTOTALxPixT ≠ 0, Do@If@e1compHTTOTALxPixT > TxFibraLimitesPiT, VelocidadFHTxPixT = iD;, 8i, Length@TxFibraLimitesD<D; If@VelocidadFHTxPixT < Length@TxFibraLimitesD, VelocidadFHTxPixT = VelocidadFHTxPixT + 1D;D; H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L If@transtechxPixT Urbana, CostePorKmFHTxPixT = TxFibraCosteKmUrban;, If@transtechxPixT Enterrado, CostePorKmFHTxPixT = TxFibraCosteKmEnterrado;, CostePorKmFHTxPixT = TxFibraCosteKmAereo;D;D; H∗ Especifica el costo asociado a la obra civil dependiendo del tipo de Fibra ∗L If@VelocidadFHTxPixT ≠ 0, CosteFijoFHTxPixT = TxFibraCosteFijoPVelocidadFHTxPixTT; H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L CosteTributariosFHTxPixT = TxFibraCosteTributarioPVelocidadFHTxPixTT;D; H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L , 8ix, nx<D; CosteExtraFHTx = zerox; CosteExtra2FHTx = zerox; DoBIfBesAnillodxPAnilloCabecerasPipTT ≠ NA Ï e1compHTTOTALxPAnilloCabecerasPipTT ≠ 0, CosteExtraFHTxPAnilloCabecerasPipTT = CosteFijoFHTxPAnilloCabecerasPipTT + CosteTributariosFHTxPAnilloCabecerasPipTT ∗ e1compHTTOTALxPAnilloCabecerasPipTT CeilingB 21 F ∗ e1hosttandemTOTALxPAnilloCabecerasPipTT ; e1compHTTOTALxPAnilloCabecerasPipTT H∗ A nivel HT todos los costos deben ser imputados a las cabeceras no Tandem. En ese sentido, cuando hay anillo HT, los costos de los equipos de Tx y de los tributarios de cada una de las Tandem deben ser repartidos entre todas las centrales cabeceras que forman parte del anillo. A cada cabecera se le agrega entonces una fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución a la carga del anillo He1hosttandemTOTALxL y la carga total del anillo He1compHTTOTALxL ∗L CosteExtra2FHTxPAnilloCabecerasPipTT = costeTerminacionesFibraxPAnilloCabecerasPipTT ∗ e1hosttandemTOTALxPAnilloCabecerasPipTT ;F; e1compHTTOTALxPAnilloCabecerasPipTT H∗ A nivel HT todos los costos deben ser imputados a las cabeceras no Tandem. En ese sentido, cuando hay anillo HT, los costos de las terminaciones de cada una de las Tandem deben ser repartidos entre todas las centrales cabeceras que forman parte del anillo. A cada cabecera se le agrega entonces una fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución a la carga del anillo e1hosttandemTOTALx y la carga total del anillo He1compHTTOTALxL ∗L , 8ip, np<F; fiberinvhosttandemx1 = zerox; fiberinvhosttandemalqx1A1 = zerox; fiberinvhosttandemalqx1B1 = zerox; fiberinvhosttandemalqx1C1 = zerox; fiberinvhosttandemalqx1LL = zerox; fiberinvhosttandemalqx1LP = zerox; fiberinvhosttandemalqx1AS = zerox; fiberinvhosttandemalqx1BS = zerox; fiberinvhosttandemalqx1CS = zerox; fiberinvhosttandemalqx1ABC2 = zerox; fiberinvhosttandemalqx1ABCnop = zerox; fiberinvhosttandemitxx1 = zerox; fiberinvhosttandemadslx1 = zerox; fiberinvhosttandemTOTALx1 = zerox; DoBIfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, fiberinvhosttandemTOTALx1PixT = If@esAnillodxPixT ≠ NA, 1, 2D ∗ CosteFijoFHTxPixT + If@esAnillodxPixT ≠ NA, 1, 2D ∗ CosteTributariosFHTxPixT numtributariosFHTxPixT + CosteFijoFHTxPixT ∗ repfibra2xPixT + CosteExtraFHTxPixT; H∗ Se estiman los costos asociados a los equipos: Equipo de Tx, Tributarios, Repetidora y Costo Extra. Notese que en el caso del equipo de Tx y el tributario si la central cabecera es parte de un anillo sólo considera una unidad de dichos elementos, mientras que si no son parte del anillo departamental considera dos unidades de cada uno de ellos. Se asegura que a nivel de centrales Tandem el resultado debe ser siempre cero ∗L e1compHTxPixT ; fiberinvhosttandemx1PixT = fiberinvhosttandemTOTALx1PixT ∗ e1compHTTOTALxPixT fiberinvhosttandemalqx1A1PixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxA1PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx1B1PixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxB1PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx1C1PixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxC1PixT ; e1compHTTOTALxPixT 127 Modelo_Integral_ACK.nb fiberinvhosttandemalqx1LLPixT = fiberinvhosttandemTOTALx1PixT ∗ fiberinvhosttandemalqx1LPPixT = fiberinvhosttandemTOTALx1PixT ∗ fiberinvhosttandemalqx1ASPixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxLLPixT ; e1compHTTOTALxPixT e1compalqHTxLPPixT ; e1compHTTOTALxPixT e1compalqHTxASPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx1BSPixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxBSPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx1CSPixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxCSPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx1ABC2PixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxABC2PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx1ABCnopPixT = fiberinvhosttandemTOTALx1PixT ∗ e1compalqHTxABCnopPixT ; e1compHTTOTALxPixT e1compitxHTxPixT fiberinvhosttandemitxx1PixT = fiberinvhosttandemTOTALx1PixT ∗ ; e1compHTTOTALxPixT e1compadslHTxPixT fiberinvhosttandemadslx1PixT = fiberinvhosttandemTOTALx1PixT ∗ ; e1compHTTOTALxPixT F; , 8ix, nx<F; H∗ Luego de sumar los costos, se identifica el costo imputable a cada servicio, para lo cual se multiplica la inversión total por la fracción de asignanción establecida de cada servicio ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, repfibra2xPixT, numtributariosFHTxPixT, VelocidadFHTxPixT, CosteFijoFHTxPixT, CosteTributariosFHTxPixT, CosteExtraFHTxPixT, fiberinvhosttandemx1PixT, fiberinvhosttandemalqx1A1PixT, fiberinvhosttandemalqx1B1PixT, fiberinvhosttandemalqx1C1PixT, fiberinvhosttandemalqx1LLPixT, fiberinvhosttandemalqx1LPPixT, fiberinvhosttandemalqx1ASPixT, fiberinvhosttandemalqx1BSPixT, fiberinvhosttandemalqx1CSPixT, fiberinvhosttandemalqx1ABC2PixT, fiberinvhosttandemalqx1ABCnopPixT, fiberinvhosttandemadslx1PixT, fiberinvhosttandemitxx1PixT, fiberinvhosttandemTOTALx1PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "repfibra2x", "numtributariosFHTx", "VelocidadFHTx", "CosteFijoFHTx", "CosteTributariosFHTx", "CosteExtraFHTx", "fiberinvhosttandemx1", "fiberinvhosttandemalqx1A1", "fiberinvhosttandemalqx1B1", "fiberinvhosttandemalqx1C1", "fiberinvhosttandemalqx1LL", "fiberinvhosttandemalqx1LP", "fiberinvhosttandemalqx1AS", "fiberinvhosttandemalqx1BS", "fiberinvhosttandemalqx1CS", "fiberinvhosttandemalqx1ABC2", "fiberinvhosttandemalqx1ABCnop", "fiberinvhosttandemadslx1", "fiberinvhosttandemitxx1", "fiberinvhosttandemTOTALx1"<<DD; fiberinvhosttandemx2 = zerox; fiberinvhosttandemalqx2A1 = zerox; fiberinvhosttandemalqx2B1 = zerox; fiberinvhosttandemalqx2C1 = zerox; fiberinvhosttandemalqx2LL = zerox; fiberinvhosttandemalqx2LP = zerox; fiberinvhosttandemalqx2AS = zerox; fiberinvhosttandemalqx2BS = zerox; fiberinvhosttandemalqx2CS = zerox; fiberinvhosttandemalqx2ABC2 = zerox; fiberinvhosttandemalqx2ABCnop = zerox; fiberinvhosttandemitxx2 = zerox; fiberinvhosttandemadslx2 = zerox; fiberinvhosttandemTOTALx2 = zerox; DoBIfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, fiberinvhosttandemTOTALx2PixT = If@transtechxPixT Urbana, costedelafibraurbKm, If@transtechxPixT Enterrado, TxFibraCosteCableKm, If@transtechxPixT Aereo, TxFibraCosteCableAereoKm, 0DDD ∗ disttandemxPixT +costeTerminacionesFibraxPixT +CosteExtra2FHTxPixT; H∗ Se estiman los costos asociados a los cables propiamente dichos HCosto por Km ∗ Distancia en KmsL y las terminaciones de Fibra. Nótese que si la central usa Fibra canalizada el costo del cable es particular, para todos los demás casos es un precio estándar. Se asegura que a nivel de centrales Tandem el resultado debe ser siempre cero ∗Lfiberinvhosttandemx2PixT = fiberinvhosttandemTOTALx2PixT ∗ fiberinvhosttandemalqx2A1PixT = fiberinvhosttandemTOTALx2PixT ∗ fiberinvhosttandemalqx2B1PixT = fiberinvhosttandemTOTALx2PixT ∗ fiberinvhosttandemalqx2C1PixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxA1PixT ; e1compHTTOTALxPixT e1compalqHTxB1PixT ; e1compHTTOTALxPixT e1compalqHTxC1PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx2LLPixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxLLPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx2LPPixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxLPPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx2ASPixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxASPixT ; e1compHTTOTALxPixT e1compHTxPixT ; e1compHTTOTALxPixT 128 Modelo_Integral_ACK.nb fiberinvhosttandemalqx2BSPixT = fiberinvhosttandemTOTALx2PixT ∗ fiberinvhosttandemalqx2CSPixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxBSPixT ; e1compHTTOTALxPixT e1compalqHTxCSPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx2ABC2PixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxABC2PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx2ABCnopPixT = fiberinvhosttandemTOTALx2PixT ∗ e1compalqHTxABCnopPixT ; e1compHTTOTALxPixT fiberinvhosttandemitxx2PixT = fiberinvhosttandemTOTALx2PixT ∗ e1compitxHTxPixT ; e1compHTTOTALxPixT fiberinvhosttandemadslx2PixT = fiberinvhosttandemTOTALx2PixT ∗ e1compadslHTxPixT ;F; e1compHTTOTALxPixT , 8ix, nx<F; H∗ Luego, se identifica el costo imputable a cada servicio, para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, costeTerminacionesFibraxPixT, CosteExtra2FHTxPixT, fiberinvhosttandemx2PixT, fiberinvhosttandemalqx2A1PixT, fiberinvhosttandemalqx2B1PixT, fiberinvhosttandemalqx2C1PixT, fiberinvhosttandemalqx2LLPixT, fiberinvhosttandemalqx2LPPixT, fiberinvhosttandemalqx2ASPixT, fiberinvhosttandemalqx2BSPixT, fiberinvhosttandemalqx2CSPixT, fiberinvhosttandemalqx2ABC2PixT, fiberinvhosttandemalqx2ABCnopPixT, fiberinvhosttandemadslx2PixT, fiberinvhosttandemitxx2PixT, fiberinvhosttandemTOTALx2PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "costeTerminacionesFibrax", "CosteExtra2FHTx", "fiberinvhosttandemx2", "fiberinvhosttandemalqx2A1", "fiberinvhosttandemalqx2B1", "fiberinvhosttandemalqx2C1", "fiberinvhosttandemalqx2LL", "fiberinvhosttandemalqx2LP", "fiberinvhosttandemalqx2AS", "fiberinvhosttandemalqx2BS", "fiberinvhosttandemalqx2CS", "fiberinvhosttandemalqx2ABC2", "fiberinvhosttandemalqx2ABCnop", "fiberinvhosttandemadslx2", "fiberinvhosttandemitxx2", "fiberinvhosttandemTOTALx2"<<DD; fiberinvhosttandemx3 = zerox; fiberinvhosttandemalqx3A1 = zerox; fiberinvhosttandemalqx3B1 = zerox; fiberinvhosttandemalqx3C1 = zerox; fiberinvhosttandemalqx3LL = zerox; fiberinvhosttandemalqx3LP = zerox; fiberinvhosttandemalqx3AS = zerox; fiberinvhosttandemalqx3BS = zerox; fiberinvhosttandemalqx3CS = zerox; fiberinvhosttandemalqx3ABC2 = zerox; fiberinvhosttandemalqx3ABCnop = zerox; fiberinvhosttandemitxx3 = zerox; fiberinvhosttandemadslx3 = zerox; fiberinvhosttandemTOTALx3 = zerox; DoB IfBe1compHTTOTALxPixT ≠ 0 Ï tandem1xPixT ≠ 1, fiberinvhosttandemTOTALx3PixT = CostePorKmFHTxPixT disttandemxPixT; H∗ Se estiman los costos asociados a las obras civiles HCosto por Km ∗ DistanciaL.Se asegura que a nivel de centrales Tandem el resultado debe ser siempre cero ∗L fiberinvhosttandemx3PixT = fiberinvhosttandemTOTALx3PixT ∗ e1compHTxPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx3A1PixT = fiberinvhosttandemTOTALx3PixT ∗ fiberinvhosttandemalqx3B1PixT = fiberinvhosttandemTOTALx3PixT ∗ fiberinvhosttandemalqx3C1PixT = fiberinvhosttandemTOTALx3PixT ∗ e1compalqHTxA1PixT ; e1compHTTOTALxPixT e1compalqHTxB1PixT ; e1compHTTOTALxPixT e1compalqHTxC1PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx3LLPixT = fiberinvhosttandemTOTALx3PixT ∗ e1compalqHTxLLPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx3LPPixT = fiberinvhosttandemTOTALx3PixT ∗ fiberinvhosttandemalqx3ASPixT = fiberinvhosttandemTOTALx3PixT ∗ fiberinvhosttandemalqx3BSPixT = fiberinvhosttandemTOTALx3PixT ∗ fiberinvhosttandemalqx3CSPixT = fiberinvhosttandemTOTALx3PixT ∗ e1compalqHTxLPPixT ; e1compHTTOTALxPixT e1compalqHTxASPixT ; e1compHTTOTALxPixT e1compalqHTxBSPixT ; e1compHTTOTALxPixT e1compalqHTxCSPixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx3ABC2PixT = fiberinvhosttandemTOTALx3PixT ∗ e1compalqHTxABC2PixT ; e1compHTTOTALxPixT fiberinvhosttandemalqx3ABCnopPixT = fiberinvhosttandemTOTALx3PixT ∗ fiberinvhosttandemitxx3PixT = fiberinvhosttandemTOTALx3PixT ∗ e1compalqHTxABCnopPixT ; e1compHTTOTALxPixT e1compitxHTxPixT ; e1compHTTOTALxPixT F 129 Modelo_Integral_ACK.nb fiberinvhosttandemadslx3PixT = fiberinvhosttandemTOTALx3PixT ∗ e1compadslHTxPixT ;F; e1compHTTOTALxPixT , 8ix, nx<F; H∗ Luego se identifica el costo imputable a cada servicio, para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, CostePorKmFHTxPixT, fiberinvhosttandemx3PixT, fiberinvhosttandemalqx3A1PixT, fiberinvhosttandemalqx3B1PixT, fiberinvhosttandemalqx3C1PixT, fiberinvhosttandemalqx3LLPixT, fiberinvhosttandemalqx3LPPixT, fiberinvhosttandemalqx3ASPixT, fiberinvhosttandemalqx3BSPixT, fiberinvhosttandemalqx3CSPixT, fiberinvhosttandemalqx3ABC2PixT, fiberinvhosttandemalqx3ABCnopPixT, fiberinvhosttandemadslx3PixT, fiberinvhosttandemitxx3PixT, fiberinvhosttandemTOTALx3PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "CostePorKmFHTx", "fiberinvhosttandemx3", "fiberinvhosttandemalqx3A1", "fiberinvhosttandemalqx3B1", "fiberinvhosttandemalqx3C1", "fiberinvhosttandemalqx3LL", "fiberinvhosttandemalqx3LP", "fiberinvhosttandemalqx3AS", "fiberinvhosttandemalqx3BS", "fiberinvhosttandemalqx3CS", "fiberinvhosttandemalqx3ABC2", "fiberinvhosttandemalqx3ABCnop", "fiberinvhosttandemadslx3", "fiberinvhosttandemitxx3", "fiberinvhosttandemTOTALx3"<<DD; fiberinvhosttandemx = fiberinvhosttandemx1 + fiberinvhosttandemx2 + fiberinvhosttandemx3; fiberinvhosttandemalqxA1 = fiberinvhosttandemalqx1A1 + fiberinvhosttandemalqx2A1 + fiberinvhosttandemalqx3A1; fiberinvhosttandemalqxB1 = fiberinvhosttandemalqx1B1 + fiberinvhosttandemalqx2B1 + fiberinvhosttandemalqx3B1; fiberinvhosttandemalqxC1 = fiberinvhosttandemalqx1C1 + fiberinvhosttandemalqx2C1 + fiberinvhosttandemalqx3C1; fiberinvhosttandemalqxLL = fiberinvhosttandemalqx1LL + fiberinvhosttandemalqx2LL + fiberinvhosttandemalqx3LL; fiberinvhosttandemalqxLP = fiberinvhosttandemalqx1LP + fiberinvhosttandemalqx2LP + fiberinvhosttandemalqx3LP; fiberinvhosttandemalqxAS = fiberinvhosttandemalqx1AS + fiberinvhosttandemalqx2AS + fiberinvhosttandemalqx3AS; fiberinvhosttandemalqxBS = fiberinvhosttandemalqx1BS + fiberinvhosttandemalqx2BS + fiberinvhosttandemalqx3BS; fiberinvhosttandemalqxCS = fiberinvhosttandemalqx1CS + fiberinvhosttandemalqx2CS + fiberinvhosttandemalqx3CS; fiberinvhosttandemalqxABC2 = fiberinvhosttandemalqx1ABC2 + fiberinvhosttandemalqx2ABC2 + fiberinvhosttandemalqx3ABC2; fiberinvhosttandemalqxABCnop = fiberinvhosttandemalqx1ABCnop + fiberinvhosttandemalqx2ABCnop + fiberinvhosttandemalqx3ABCnop; fiberinvhosttandemitxx = fiberinvhosttandemitxx1 + fiberinvhosttandemitxx2 + fiberinvhosttandemitxx3; fiberinvhosttandemadslx = fiberinvhosttandemadslx1 + fiberinvhosttandemadslx2 + fiberinvhosttandemadslx3; fiberinvhosttandemTOTALx = fiberinvhosttandemTOTALx1 + fiberinvhosttandemTOTALx2 + fiberinvhosttandemTOTALx3; Print@TableForm@Table@8ix, idxPixT, yPix, 13T, fiberinvhosttandemxPixT, fiberinvhosttandemalqxA1PixT, fiberinvhosttandemalqxB1PixT, fiberinvhosttandemalqxC1PixT, fiberinvhosttandemalqxLLPixT, fiberinvhosttandemalqxLPPixT, fiberinvhosttandemalqxASPixT, fiberinvhosttandemalqxBSPixT, fiberinvhosttandemalqxCSPixT, fiberinvhosttandemalqxABC2PixT, fiberinvhosttandemalqxABCnopPixT, fiberinvhosttandemadslxPixT, fiberinvhosttandemitxxPixT, fiberinvhosttandemTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "fiberinvhosttandemx", "fiberinvhosttandemalqxA1", "fiberinvhosttandemalqxB1", "fiberinvhosttandemalqxC1", "fiberinvhosttandemalqxLL", "fiberinvhosttandemalqxLP", "fiberinvhosttandemalqxAS", "fiberinvhosttandemalqxBS", "fiberinvhosttandemalqxCS", "fiberinvhosttandemalqxABC2", "fiberinvhosttandemalqxABCnop", "fiberinvhosttandemadslx", "fiberinvhosttandemitxx", "fiberinvhosttandemTOTALx"<<DD; PrintBStyleB "ESTIMACIÓN DE INVERSIONES EN FIBRA A NIVEL REMOTA−CABECERA", 16, Bold, White, Underlined, Background → RGBColorB0, 1 , 0FFF; 2 F; 21 H∗ Identifica el número de tributarios por central ∗L numtributariosFRHx = CeilingB e1remotehostTOTALx VelocidadFRHx = zerox; CostePorKmFRHx = zerox; CosteFijoFRHx = zerox; CosteTributariosFRHx = zerox; Do@If@e1compRHTOTALxPixT ≠ 0, Do@If@e1compRHTOTALxPixT > TxFibraLimitesPiT, VelocidadFRHxPixT = iD;, 8i, Length@TxFibraLimitesD<D; If@VelocidadFRHxPixT < Length@TxFibraLimitesD, VelocidadFRHxPixT = VelocidadFRHxPixT + 1D;D; H∗ Identifica para cada arista cual es la velocidad de Tx o capacidad requerida ∗L If@transtechxPixT Urbana, CostePorKmFRHxPixT = TxFibraCosteKmUrban;, If@transtechxPixT Enterrado, CostePorKmFRHxPixT = TxFibraCosteKmEnterrado;, CostePorKmFRHxPixT = TxFibraCosteKmAereo;D;D; H∗ Especifica el costo asociado a la obra civil dependiendo del tipo de Fibra ∗L If@VelocidadFRHxPixT ≠ 0, CosteFijoFRHxPixT = TxFibraCosteFijoPVelocidadFRHxPixTT; H∗ Especifica el costo del equipo de Tx asociado a la velocidad o capacidad requerida∗L CosteTributariosFRHxPixT = TxFibraCosteTributarioPVelocidadFRHxPixTT;D;, 8ix, nx<D; H∗ Especifica el costo del tributario asociado a la velocidad o capacidad requerida∗L CosteExtraFRHx = zerox; CosteExtra2FRHx = zerox; DoBIfBesAnillopxPixT 1 Ï e1AnilloTOTALpPprovxPixTT ≠ 0, CosteExtraFRHxPixT = 130 Modelo_Integral_ACK.nb CosteFijoFRHxPixT + CosteTributariosFRHxPixT ∗ CeilingB e1AnilloTOTALpPprovxPixTT 21 F ∗ e1remotehostTOTALxPixT ; e1compRHTOTALxPixT H∗ A nivel RH todos los costos deben ser imputados a las remotas. En ese sentido, cuando hay anillo RH, los costos de los equipos de Tx y de los tributarios de cada una de las Cabeceras deben ser repartidos entre todas las centrales remotas que forman parte del anillo. A cada remota se le agrega entonces una fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución a la carga del anillo He1remotehostTOTALxL y la carga total del anillo He1compFRHTOTALxL ∗L CosteExtra2FRHxPixT = costeTerminacionesFibraxPixT ∗ e1remotehostTOTALxPixT ∗ 0; e1compRHTOTALxPixT H∗ A nivel RH todos los costos deben ser imputados a las remotas. En ese sentido, cuando hay anillo RH, los costos de las terminaciones de cada una de las Cabeceras deben ser repartidos entre todas las centrales remotas que forman parte del anillo. A cada remota se le agrega entonces una fracción de dichas inversiones, siendo dicha proporción el ratio entre su contribución a la carga del anillo He1remotehostTOTALxL y la carga total del anillo He1compRHTOTALxL ∗LF; , 8ix, nx<F; fiberinvremotehostx1 = zerox; fiberinvremotehostalqx1A1 = zerox; fiberinvremotehostalqx1B1 = zerox; fiberinvremotehostalqx1C1 = zerox; fiberinvremotehostalqx1LL = zerox; fiberinvremotehostalqx1LP = zerox; fiberinvremotehostalqx1AS = zerox; fiberinvremotehostalqx1BS = zerox; fiberinvremotehostalqx1CS = zerox; fiberinvremotehostalqx1ABC2 = zerox; fiberinvremotehostalqx1ABCnop = zerox; fiberinvremotehostitxx1 = zerox; fiberinvremotehostadslx1 = zerox; fiberinvremotehostTOTALx1 = zerox; DoBIfBe1compRHTOTALxPixT ≠ 0 Ï host1xPixT ≠ 1, fiberinvremotehostTOTALx1PixT = If@esAnillopxPixT 1, 1, 2D ∗ CosteFijoFRHxPixT + If@esAnillopxPixT 1, 1, 2D ∗ CosteTributariosFRHxPixT numtributariosFRHxPixT + CosteFijoFRHxPixT repfibra2xPixT + CosteExtraFRHxPixT; H∗ Se estiman los costos asociados a los equipos: Equipo de Tx, Tributarios, Repetidora y Costo Extra. Notese que en el caso del equipo de Tx y el tributario si la central remota es parte de un anillo sólo considera una unidad de dichos elementos, mientras que si no son parte del anillo provincial considera dos unidades de cada uno de ellos. Se asegura que a nivel de centrales Host el resultado debe ser siempre cero ∗L e1compRHxPixT ; fiberinvremotehostx1PixT = fiberinvremotehostTOTALx1PixT ∗ e1compRHTOTALxPixT fiberinvremotehostalqx1A1PixT = fiberinvremotehostTOTALx1PixT ∗ fiberinvremotehostalqx1B1PixT = fiberinvremotehostTOTALx1PixT ∗ e1compalqRHxA1PixT ; e1compRHTOTALxPixT e1compalqRHxB1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx1C1PixT = fiberinvremotehostTOTALx1PixT ∗ e1compalqRHxC1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx1LLPixT = fiberinvremotehostTOTALx1PixT ∗ fiberinvremotehostalqx1LPPixT = fiberinvremotehostTOTALx1PixT ∗ fiberinvremotehostalqx1ASPixT = fiberinvremotehostTOTALx1PixT ∗ fiberinvremotehostalqx1BSPixT = fiberinvremotehostTOTALx1PixT ∗ e1compalqRHxLLPixT ; e1compRHTOTALxPixT e1compalqRHxLPPixT ; e1compRHTOTALxPixT e1compalqRHxASPixT ; e1compRHTOTALxPixT e1compalqRHxBSPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx1CSPixT = fiberinvremotehostTOTALx1PixT ∗ e1compalqRHxCSPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx1ABC2PixT = fiberinvremotehostTOTALx1PixT ∗ e1compalqRHxABC2PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx1ABCnopPixT = fiberinvremotehostTOTALx1PixT ∗ fiberinvremotehostitxx1PixT = fiberinvremotehostTOTALx1PixT ∗ e1compalqRHxABCnopPixT ; e1compRHTOTALxPixT e1compitxRHxPixT ; e1compRHTOTALxPixT fiberinvremotehostadslx1PixT = fiberinvremotehostTOTALx1PixT ∗ e1compadslRHxPixT ;F; e1compRHTOTALxPixT , 8ix, nx<F; H∗ Luego se identifica el costo imputable a cada servicio, para lo cual se multiplica la inversión total por la fracción de asignanción establecida ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, repfibra2xPixT, numtributariosFRHxPixT, VelocidadFRHxPixT, CosteFijoFRHxPixT, CosteTributariosFRHxPixT, CosteExtraFRHxPixT, fiberinvremotehostx1PixT, fiberinvremotehostalqx1A1PixT, fiberinvremotehostalqx1B1PixT, fiberinvremotehostalqx1C1PixT, fiberinvremotehostalqx1LLPixT, fiberinvremotehostalqx1LPPixT, fiberinvremotehostalqx1ASPixT, fiberinvremotehostalqx1BSPixT, fiberinvremotehostalqx1CSPixT, fiberinvremotehostalqx1ABC2PixT, fiberinvremotehostalqx1ABCnopPixT, < D 131 Modelo_Integral_ACK.nb fiberinvremotehostalqx1CSPixT, fiberinvremotehostalqx1ABC2PixT, fiberinvremotehostalqx1ABCnopPixT, fiberinvremotehostadslx1PixT, fiberinvremotehostitxx1PixT, fiberinvremotehostTOTALx1PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "repfibra2x", "numtributariosFRHx", "VelocidadFRHx", "CosteFijoFRHx", "CosteTributariosFRHx", "CosteExtraFRHx", "fiberinvremotehostx1", "fiberinvremotehostalqx1A1", "fiberinvremotehostalqx1B1", "fiberinvremotehostalqx1C1", "fiberinvremotehostalqx1LL", "fiberinvremotehostalqx1LP", "fiberinvremotehostalqx1AS", "fiberinvremotehostalqx1BS", "fiberinvremotehostalqx1CS", "fiberinvremotehostalqx1ABC2", "fiberinvremotehostalqx1ABCnop", "fiberinvremotehostadslx1", "fiberinvremotehostitxx1", "fiberinvremotehostTOTALx1"<<DD; fiberinvremotehostx2 = zerox; fiberinvremotehostalqx2A1 = zerox; fiberinvremotehostalqx2B1 = zerox; fiberinvremotehostalqx2C1 = zerox; fiberinvremotehostalqx2LL = zerox; fiberinvremotehostalqx2LP = zerox; fiberinvremotehostalqx2AS = zerox; fiberinvremotehostalqx2BS = zerox; fiberinvremotehostalqx2CS = zerox; fiberinvremotehostalqx2ABC2 = zerox; fiberinvremotehostalqx2ABCnop = zerox; fiberinvremotehostitxx2 = zerox; fiberinvremotehostadslx2 = zerox; fiberinvremotehostTOTALx2 = zerox; DoBIfBe1compRHTOTALxPixT ≠ 0 Ï host1xPixT ≠ 1, fiberinvremotehostTOTALx2PixT = If@transtechxPixT Urbana, costedelafibraurbKm, If@transtechxPixT Enterrado, TxFibraCosteCableKm, 0DD disthostxPixT + costeTerminacionesFibraxPixT + CosteExtra2FRHxPixT; H∗ Se estiman los costos asociados a los cables propiamente dichos HCosto por Km ∗ Distancia en KmsL y las terminaciones de Fibra. Nótese que si la central usa Fibra canalizada el costo del cable es particular, para todos los demás casos es un precio estándar. Se asegura que a nivel de centrales Host el resultado debe ser siempre cero ∗L e1compRHxPixT fiberinvremotehostx2PixT = fiberinvremotehostTOTALx2PixT ∗ ; e1compRHTOTALxPixT fiberinvremotehostalqx2A1PixT = fiberinvremotehostTOTALx2PixT ∗ fiberinvremotehostalqx2B1PixT = fiberinvremotehostTOTALx2PixT ∗ e1compalqRHxA1PixT ; e1compRHTOTALxPixT e1compalqRHxB1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx2C1PixT = fiberinvremotehostTOTALx2PixT ∗ e1compalqRHxC1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx2LLPixT = fiberinvremotehostTOTALx2PixT ∗ fiberinvremotehostalqx2LPPixT = fiberinvremotehostTOTALx2PixT ∗ fiberinvremotehostalqx2ASPixT = fiberinvremotehostTOTALx2PixT ∗ fiberinvremotehostalqx2BSPixT = fiberinvremotehostTOTALx2PixT ∗ e1compalqRHxLLPixT ; e1compRHTOTALxPixT e1compalqRHxLPPixT ; e1compRHTOTALxPixT e1compalqRHxASPixT ; e1compRHTOTALxPixT e1compalqRHxBSPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx2CSPixT = fiberinvremotehostTOTALx2PixT ∗ e1compalqRHxCSPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx2ABC2PixT = fiberinvremotehostTOTALx2PixT ∗ e1compalqRHxABC2PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx2ABCnopPixT = fiberinvremotehostTOTALx2PixT ∗ fiberinvremotehostitxx2PixT = fiberinvremotehostTOTALx2PixT ∗ e1compalqRHxABCnopPixT ; e1compRHTOTALxPixT e1compitxRHxPixT ; e1compRHTOTALxPixT fiberinvremotehostadslx2PixT = fiberinvremotehostTOTALx2PixT ∗ e1compadslRHxPixT ;F; e1compRHTOTALxPixT , 8ix, nx<F; H∗ Luego se identifica el costo imputable a cada servicio, para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, costeTerminacionesFibraxPixT, CosteExtra2FRHxPixT, fiberinvremotehostx2PixT, fiberinvremotehostalqx2A1PixT, fiberinvremotehostalqx2B1PixT, fiberinvremotehostalqx2C1PixT, fiberinvremotehostalqx2LLPixT, fiberinvremotehostalqx2LPPixT, fiberinvremotehostalqx2ASPixT, fiberinvremotehostalqx2BSPixT, fiberinvremotehostalqx2CSPixT, fiberinvremotehostalqx2ABC2PixT, fiberinvremotehostalqx2ABCnopPixT, fiberinvremotehostadslx2PixT, fiberinvremotehostitxx2PixT, fiberinvremotehostTOTALx2PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "costeTerminacionesFibrax", "CosteExtra2FRHx", "fiberinvremotehostx2", "fiberinvremotehostalqx2A1", "fiberinvremotehostalqx2B1", "fiberinvremotehostalqx2C1", "fiberinvremotehostalqx2LL", "fiberinvremotehostalqx2LP", "fiberinvremotehostalqx2AS", "fiberinvremotehostalqx2BS", "fiberinvremotehostalqx2CS", "fiberinvremotehostalqx2ABC2", "fiberinvremotehostalqx2ABCnop", "fiberinvremotehostadslx2", "fiberinvremotehostitxx2", "fiberinvremotehostTOTALx2"<<DD; fiberinvremotehostx3 = zerox; fiberinvremotehostalqx3A1 = zerox; 132 Modelo_Integral_ACK.nb fiberinvremotehostalqx3A1 zerox; fiberinvremotehostalqx3B1 = zerox; fiberinvremotehostalqx3C1 = zerox; fiberinvremotehostalqx3LL = zerox; fiberinvremotehostalqx3LP = zerox; fiberinvremotehostalqx3ABC2 = zerox; fiberinvremotehostalqx3AS = zerox; fiberinvremotehostalqx3BS = zerox; fiberinvremotehostalqx3CS = zerox; fiberinvremotehostalqx3ABCnop = zerox; fiberinvremotehostitxx3 = zerox; fiberinvremotehostadslx3 = zerox; fiberinvremotehostTOTALx3 = zerox; DoBIfBe1compRHTOTALxPixT ≠ 0 Ï host1xPixT ≠ 1, fiberinvremotehostTOTALx3PixT = CostePorKmFRHxPixT disthostxPixT; H∗ Se estiman los costos asociados a las obras civiles HCosto por Km ∗ DistanciaL. Se asegura que a nivel de centrales Host el resultado debe ser siempre cero ∗L e1compRHxPixT fiberinvremotehostx3PixT = fiberinvremotehostTOTALx3PixT ∗ ; e1compRHTOTALxPixT fiberinvremotehostalqx3A1PixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxA1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3B1PixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxB1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3C1PixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxC1PixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3LLPixT = fiberinvremotehostTOTALx3PixT ∗ fiberinvremotehostalqx3LPPixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxLLPixT ; e1compRHTOTALxPixT e1compalqRHxLPPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3ABC2PixT = fiberinvremotehostTOTALx3PixT ∗ fiberinvremotehostalqx3ASPixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxABC2PixT ; e1compRHTOTALxPixT e1compalqRHxASPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3BSPixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxBSPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3CSPixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxCSPixT ; e1compRHTOTALxPixT fiberinvremotehostalqx3ABCnopPixT = fiberinvremotehostTOTALx3PixT ∗ fiberinvremotehostitxx3PixT = fiberinvremotehostTOTALx3PixT ∗ e1compalqRHxABCnopPixT ; e1compRHTOTALxPixT e1compitxRHxPixT ; e1compRHTOTALxPixT fiberinvremotehostadslx3PixT = fiberinvremotehostTOTALx3PixT ∗ e1compadslRHxPixT ;F; e1compRHTOTALxPixT , 8ix, nx<F; H∗ Luego se identifica el costo imputable a cada servicio, para lo cual se multiplica la inversión total por la fracción de asignanción establecida. ∗L fiberinvremotehostx = fiberinvremotehostx1 + fiberinvremotehostx2 + fiberinvremotehostx3; fiberinvremotehostalqxA1 = fiberinvremotehostalqx1A1 + fiberinvremotehostalqx2A1 + fiberinvremotehostalqx3A1; fiberinvremotehostalqxB1 = fiberinvremotehostalqx1B1 + fiberinvremotehostalqx2B1 + fiberinvremotehostalqx3B1; fiberinvremotehostalqxC1 = fiberinvremotehostalqx1C1 + fiberinvremotehostalqx2C1 + fiberinvremotehostalqx3C1; fiberinvremotehostalqxLL = fiberinvremotehostalqx1LL + fiberinvremotehostalqx2LL + fiberinvremotehostalqx3LL; fiberinvremotehostalqxLP = fiberinvremotehostalqx1LP + fiberinvremotehostalqx2LP + fiberinvremotehostalqx3LP; fiberinvremotehostalqxAS = fiberinvremotehostalqx1AS + fiberinvremotehostalqx2AS + fiberinvremotehostalqx3AS; fiberinvremotehostalqxBS = fiberinvremotehostalqx1BS + fiberinvremotehostalqx2BS + fiberinvremotehostalqx3BS; fiberinvremotehostalqxCS = fiberinvremotehostalqx1CS + fiberinvremotehostalqx2CS + fiberinvremotehostalqx3CS; fiberinvremotehostalqxABC2 = fiberinvremotehostalqx1ABC2 + fiberinvremotehostalqx2ABC2 + fiberinvremotehostalqx3ABC2; fiberinvremotehostalqxABCnop = fiberinvremotehostalqx1ABCnop + fiberinvremotehostalqx2ABCnop + fiberinvremotehostalqx3ABCnop; fiberinvremotehostitxx = fiberinvremotehostitxx1 + fiberinvremotehostitxx2 + fiberinvremotehostitxx3; fiberinvremotehostadslx = fiberinvremotehostadslx1 + fiberinvremotehostadslx2 + fiberinvremotehostadslx3; fiberinvremotehostTOTALx = fiberinvremotehostTOTALx1 + fiberinvremotehostTOTALx2 + fiberinvremotehostTOTALx3; Print@TableForm@Table@8ix, idxPixT, yPix, 13T, fiberinvremotehostxPixT, fiberinvremotehostalqxA1PixT, fiberinvremotehostalqxB1PixT, fiberinvremotehostalqxC1PixT, fiberinvremotehostalqxLLPixT, fiberinvremotehostalqxLPPixT, fiberinvremotehostalqxASPixT, fiberinvremotehostalqxBSPixT, fiberinvremotehostalqxCSPixT, fiberinvremotehostalqxABC2PixT, fiberinvremotehostalqxABCnopPixT, fiberinvremotehostadslxPixT, fiberinvremotehostitxxPixT, fiberinvremotehostTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "fiberinvremotehostx", "fiberinvremotehostalqxA1", "fiberinvremotehostalqxB1", "fiberinvremotehostalqxC1", "fiberinvremotehostalqxLL", "fiberinvremotehostalqxLP", "fiberinvremotehostalqxAS", "fiberinvremotehostalqxBS", "fiberinvremotehostalqxCS", "fiberinvremotehostalqxABC2", "fiberinvremotehostalqxABCnop", "fiberinvremotehostadslx", "fiberinvremotehostitxx", "fiberinvremotehostTOTALx"<<DD; INVERSIÓN COMPILADA 133 Modelo_Integral_ACK.nb PrintBStyleB "INVERSIÓN COMPILADA A NIVEL CABECERA−TANDEM", 16, Bold, White, Underlined, Background → RGBColorB0, 1 , 0FFF; 2 CosteAñadidoTrxPorDistanciaHTx = zerox; CosteAñadidoTrxPorDistanciaalqHTxA1 = zerox; CosteAñadidoTrxPorDistanciaalqHTxB1 = zerox; CosteAñadidoTrxPorDistanciaalqHTxC1 = zerox; CosteAñadidoTrxPorDistanciaalqHTxLL = zerox; CosteAñadidoTrxPorDistanciaalqHTxLP = zerox; CosteAñadidoTrxPorDistanciaalqHTxAS = zerox; CosteAñadidoTrxPorDistanciaalqHTxBS = zerox; CosteAñadidoTrxPorDistanciaalqHTxCS = zerox; CosteAñadidoTrxPorDistanciaalqHTxABC2 = zerox; CosteAñadidoTrxPorDistanciaalqHTxABCnop = zerox; CosteAñadidoTrxPorDistanciaitxHTx = zerox; CosteAñadidoTrxPorDistanciaadslHTx = zerox; CosteAñadidoTrxPorDistanciaHTTOTALx = zerox; DoBIfBdeptxPixT ≠ LIMA Ï host1xPixT 1 Ï e1compHTTOTALxPixT ≠ 0 Ï transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaHTTOTALxPixT = AñadidoTrxPorKm distance@ix, idinvertxPCentralRefTD; e1compHTxPixT CosteAñadidoTrxPorDistanciaHTxPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxA1PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxB1PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compalqHTxA1PixT ; e1compHTTOTALxPixT e1compalqHTxB1PixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxC1PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compalqHTxC1PixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxLLPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxLPPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxASPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxBSPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compalqHTxLLPixT ; e1compHTTOTALxPixT e1compalqHTxLPPixT ; e1compHTTOTALxPixT e1compalqHTxASPixT ; e1compHTTOTALxPixT e1compalqHTxBSPixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxCSPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compalqHTxCSPixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxABC2PixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compalqHTxABC2PixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaalqHTxABCnopPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT CosteAñadidoTrxPorDistanciaitxHTxPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compalqHTxABCnopPixT ; e1compHTTOTALxPixT e1compitxHTxPixT ; e1compHTTOTALxPixT CosteAñadidoTrxPorDistanciaadslHTxPixT = CosteAñadidoTrxPorDistanciaHTTOTALxPixT e1compadslHTxPixT ;F; e1compHTTOTALxPixT , 8ix, nx<F; H∗ El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es remota equivale a la distancia de cada central hasta la central de referencia en Lima HTandem de LimaL multiplicado por el costo por Km. En todas las Host entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo de cada servicio. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las remotas e1compHTTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel HT todo es cero ∗L Print@TableForm@ Table@8ix, idxPixT, yPix, 13T, CosteAñadidoTrxPorDistanciaHTxPixT, CosteAñadidoTrxPorDistanciaalqHTxA1PixT, CosteAñadidoTrxPorDistanciaalqHTxB1PixT, CosteAñadidoTrxPorDistanciaalqHTxC1PixT, CosteAñadidoTrxPorDistanciaalqHTxLLPixT, CosteAñadidoTrxPorDistanciaalqHTxLPPixT, CosteAñadidoTrxPorDistanciaalqHTxASPixT, CosteAñadidoTrxPorDistanciaalqHTxBSPixT, CosteAñadidoTrxPorDistanciaalqHTxCSPixT, CosteAñadidoTrxPorDistanciaalqHTxABC2PixT, CosteAñadidoTrxPorDistanciaalqHTxABCnopPixT, CosteAñadidoTrxPorDistanciaadslHTxPixT, CosteAñadidoTrxPorDistanciaitxHTxPixT, CosteAñadidoTrxPorDistanciaHTTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "CosteAñadidoTrxPorDistanciaHTx", "CosteAñadidoTrxPorDistanciaalqHTxA1", "CosteAñadidoTrxPorDistanciaalqHTxB1", "CosteAñadidoTrxPorDistanciaalqHTxC1", "CosteAñadidoTrxPorDistanciaalqHTxLL", "CosteAñadidoTrxPorDistanciaalqHTxLP", "CosteAñadidoTrxPorDistanciaalqHTxAS", "CosteAñadidoTrxPorDistanciaalqHTxBS", "CosteAñadidoTrxPorDistanciaalqHTxCS", "CosteAñadidoTrxPorDistanciaalqHTxABC2", "CosteAñadidoTrxPorDistanciaalqHTxABCnop", "CosteAñadidoTrxPorDistanciaadslHTx", "CosteAñadidoTrxPorDistanciaitxHTx", "CosteAñadidoTrxPorDistanciaHTTOTALx"<<DD; 134 invhosttandemx1 = Table@If@satxPixT, 0, radioinvhosttandemxPixTD, 8ix, nx<D; invhosttandemLocx1 = zerox; invhosttandemLDNx1 = zerox; invhosttandemLDIx1 = zerox; invhosttandemalqx1A1 = Table@If@satxPixT, 0, radioinvhosttandemalqxA1PixTD, 8ix, nx<D; invhosttandemalqx1B1 = Table@If@satxPixT, 0, radioinvhosttandemalqxB1PixTD, 8ix, nx<D; invhosttandemalqx1C1 = Table@If@satxPixT, 0, radioinvhosttandemalqxC1PixTD, 8ix, nx<D; invhosttandemalqx1LL = Table@If@satxPixT, 0, radioinvhosttandemalqxLLPixTD, 8ix, nx<D; invhosttandemalqx1LP = Table@If@satxPixT, 0, radioinvhosttandemalqxLPPixTD, 8ix, nx<D; invhosttandemalqx1AS = Table@If@satxPixT, 0, radioinvhosttandemalqxASPixTD, 8ix, nx<D; invhosttandemalqx1BS = Table@If@satxPixT, 0, radioinvhosttandemalqxBSPixTD, 8ix, nx<D; invhosttandemalqx1CS = Table@If@satxPixT, 0, radioinvhosttandemalqxCSPixTD, 8ix, nx<D; invhosttandemalqx1ABC2 = Table@If@satxPixT, 0, radioinvhosttandemalqxABC2PixTD, 8ix, nx<D; invhosttandemalqx1ABCnop = Table@If@satxPixT, 0, radioinvhosttandemalqxABCnopPixTD, 8ix, nx<D; invhosttandemitxx1 = Table@If@satxPixT, 0, radioinvhosttandemitxxPixTD, 8ix, nx<D; invhosttandemadslx1 = Table@If@satxPixT, 0, radioinvhosttandemadslxPixTD, 8ix, nx<D; invhosttandemTOTALx1 = Table@If@satxPixT, 0, radioinvhosttandemTOTALxPixTD, 8ix, nx<D; H∗ Compila o resume el total de inversiones a nivel de equipos a nivel HT imputable a todos los servicios. Lo que manda es la tecnología de Tx de la Tandem. Inicialmente, si la Tandem no es satelital, el nivel de inversión válido para cada una de las centrales del departamento será radioinvhosttandemTOTALx, radioinvhosttandemx, radioinvhosttandemalqxA1, radioinvhosttandemalqxB1, radioinvhosttandemalqxC1, radioinvhosttandemalqxLL, radioinvhosttandemalqxLP, radioinvhosttandemalqxAS, radioinvhosttandemalqxBS, radioinvhosttandemalqxCS, radioinvhosttandemalqxABC2, radioinvhosttandemalqxABCnop, radioinvhosttandemitxx, radioinvhosttandemadslx. Dependiendo de cada caso∗L Modelo_Integral_ACK.nb DoBIfBfiberxPixT, invhosttandemTOTALx1PixT = fiberinvhosttandemTOTALx1PixT; invhosttandemx1PixT = fiberinvhosttandemx1PixT; IfBloadcompHTxPixT > 0, invhosttandemLocx1PixT = invhosttandemx1PixT invhosttandemLDNx1PixT = invhosttandemx1PixT invhosttandemLDIx1PixT = invhosttandemx1PixT loadcompHTLocxPixT ; loadcompHTxPixT loadcompHTLDNxPixT ; loadcompHTxPixT loadcompHTLDIxPixT ;F; loadcompHTxPixT H∗ Compila o resume el total de inversiones a nivel de equipos a nivel HT imputable a los servicios Local, LDN y LDI de Voz. ∗L invhosttandemalqx1A1PixT = fiberinvhosttandemalqx1A1PixT; invhosttandemalqx1B1PixT = fiberinvhosttandemalqx1B1PixT; invhosttandemalqx1C1PixT = fiberinvhosttandemalqx1C1PixT; invhosttandemalqx1LLPixT = fiberinvhosttandemalqx1LLPixT; invhosttandemalqx1LPPixT = fiberinvhosttandemalqx1LPPixT; invhosttandemalqx1ASPixT = fiberinvhosttandemalqx1ASPixT; invhosttandemalqx1BSPixT = fiberinvhosttandemalqx1BSPixT; invhosttandemalqx1CSPixT = fiberinvhosttandemalqx1CSPixT; invhosttandemalqx1ABC2PixT = fiberinvhosttandemalqx1ABC2PixT; invhosttandemalqx1ABCnopPixT = fiberinvhosttandemalqx1ABCnopPixT; invhosttandemitxx1PixT = fiberinvhosttandemitxx1PixT; invhosttandemadslx1PixT = fiberinvhosttandemadslx1PixT;F; H∗ Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será en cada caso: fiberinvhosttandemTOTALx1, fiberinvhosttandemx1, fiberinvhosttandemalqx1A1, fiberinvhosttandemalqx1B1, fiberinvhosttandemalqx1C1, fiberinvhosttandemalqx1LL, fiberinvhosttandemalqx1LP, fiberinvhosttandemalqx1AS, fiberinvhosttandemalqx1BS, fiberinvhosttandemalqx1CS, fiberinvhosttandemalqx1ABC2, fiberinvhosttandemalqx1ABCnop, fiberinvhosttandemitxx1, fiberinvhosttandemadslx1 dependiendo de cada servicio ∗L invhosttandemTOTALx1PixT = invhosttandemTOTALx1PixT + CosteAñadidoTrxPorDistanciaHTTOTALxPixT; invhosttandemx1PixT = invhosttandemx1PixT + CosteAñadidoTrxPorDistanciaHTxPixT; invhosttandemalqx1A1PixT = invhosttandemalqx1A1PixT + CosteAñadidoTrxPorDistanciaalqHTxA1PixT; invhosttandemalqx1B1PixT = invhosttandemalqx1B1PixT + CosteAñadidoTrxPorDistanciaalqHTxB1PixT; invhosttandemalqx1C1PixT = invhosttandemalqx1C1PixT + CosteAñadidoTrxPorDistanciaalqHTxC1PixT; invhosttandemalqx1LLPixT = invhosttandemalqx1LLPixT + CosteAñadidoTrxPorDistanciaalqHTxLLPixT; invhosttandemalqx1LPPixT = invhosttandemalqx1LPPixT + CosteAñadidoTrxPorDistanciaalqHTxLPPixT; invhosttandemalqx1ASPixT = invhosttandemalqx1ASPixT + CosteAñadidoTrxPorDistanciaalqHTxASPixT; invhosttandemalqx1BSPixT = invhosttandemalqx1BSPixT + CosteAñadidoTrxPorDistanciaalqHTxBSPixT; invhosttandemalqx1CSPixT = invhosttandemalqx1CSPixT + CosteAñadidoTrxPorDistanciaalqHTxCSPixT; invhosttandemalqx1ABC2PixT = invhosttandemalqx1ABC2PixT + CosteAñadidoTrxPorDistanciaalqHTxABC2PixT; invhosttandemalqx1ABCnopPixT = invhosttandemalqx1ABCnopPixT + CosteAñadidoTrxPorDistanciaalqHTxABCnopPixT; invhosttandemitxx1PixT = invhosttandemitxx1PixT + CosteAñadidoTrxPorDistanciaitxHTxPixT; invhosttandemadslx1PixT = invhosttandemadslx1PixT + CosteAñadidoTrxPorDistanciaadslHTxPixT; , 8ix, nx<F; H∗ Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias ∗L Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemx1PixT, invhosttandemLocx1PixT, invhosttandemLDNx1PixT, invhosttandemLDIx1PixT, invhosttandemalqx1A1PixT, invhosttandemalqx1B1PixT, invhosttandemalqx1C1PixT, invhosttandemalqx1LLPixT, invhosttandemalqx1LPPixT, invhosttandemalqx1ASPixT, invhosttandemalqx1BSPixT, invhosttandemalqx1CSPixT, invhosttandemalqx1ABC2PixT, invhosttandemalqx1ABCnopPixT, invhosttandemadslx1PixT, invhosttandemitxx1PixT, invhosttandemTOTALx1PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, 135 invhosttandemitxx1PixT, invhosttandemTOTALx1PixT<, 8ix, nx<D, TableDirections 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx1", "invhosttandemLocx1", "invhosttandemLDNx1", "invhosttandemLDIx1", "invhosttandemalqx1A1", "invhosttandemalqx1B1", "invhosttandemalqx1C1", "invhosttandemalqx1LL", "invhosttandemalqx1LP", "invhosttandemalqx1AS", "invhosttandemalqx1BS", "invhosttandemalqx1CS", "invhosttandemalqx1ABC2", "invhosttandemalqx1ABCnop", "invhosttandemadslx1", "invhosttandemitxx1", "invhosttandemTOTALx1"<<DD; Modelo_Integral_ACK.nb invhosttandemd1 = zerod; invhosttandemLocd1 = zerod; invhosttandemLDNd1 = zerod; invhosttandemLDId1 = zerod; invhosttandemalqd1A1 = zerod; invhosttandemalqd1B1 = zerod; invhosttandemalqd1C1 = zerod; invhosttandemalqd1LL = zerod; invhosttandemalqd1LP = zerod; invhosttandemalqd1AS = zerod; invhosttandemalqd1BS = zerod; invhosttandemalqd1CS = zerod; invhosttandemalqd1ABC2 = zerod; invhosttandemalqd1ABCnop = zerod; invhosttandemitxd1 = zerod; invhosttandemadsld1 = zerod; invhosttandemTOTALd1 = zerod; Do@ invhosttandemd1PdeptxPixTT = invhosttandemd1PdeptxPixTT + invhosttandemx1PixT; invhosttandemLocd1PdeptxPixTT = invhosttandemLocd1PdeptxPixTT + invhosttandemLocx1PixT; invhosttandemLDNd1PdeptxPixTT = invhosttandemLDNd1PdeptxPixTT + invhosttandemLDNx1PixT; invhosttandemLDId1PdeptxPixTT = invhosttandemLDId1PdeptxPixTT + invhosttandemLDIx1PixT; invhosttandemalqd1A1PdeptxPixTT = invhosttandemalqd1A1PdeptxPixTT + invhosttandemalqx1A1PixT; invhosttandemalqd1B1PdeptxPixTT = invhosttandemalqd1B1PdeptxPixTT + invhosttandemalqx1B1PixT; invhosttandemalqd1C1PdeptxPixTT = invhosttandemalqd1C1PdeptxPixTT + invhosttandemalqx1C1PixT; invhosttandemalqd1LLPdeptxPixTT = invhosttandemalqd1LLPdeptxPixTT + invhosttandemalqx1LLPixT; invhosttandemalqd1LPPdeptxPixTT = invhosttandemalqd1LPPdeptxPixTT + invhosttandemalqx1LPPixT; invhosttandemalqd1ASPdeptxPixTT = invhosttandemalqd1ASPdeptxPixTT + invhosttandemalqx1ASPixT; invhosttandemalqd1BSPdeptxPixTT = invhosttandemalqd1BSPdeptxPixTT + invhosttandemalqx1BSPixT; invhosttandemalqd1CSPdeptxPixTT = invhosttandemalqd1CSPdeptxPixTT + invhosttandemalqx1CSPixT; invhosttandemalqd1ABC2PdeptxPixTT = invhosttandemalqd1ABC2PdeptxPixTT + invhosttandemalqx1ABC2PixT; invhosttandemalqd1ABCnopPdeptxPixTT = invhosttandemalqd1ABCnopPdeptxPixTT + invhosttandemalqx1ABCnopPixT; invhosttandemitxd1PdeptxPixTT = invhosttandemitxd1PdeptxPixTT + invhosttandemitxx1PixT; invhosttandemadsld1PdeptxPixTT = invhosttandemadsld1PdeptxPixTT + invhosttandemadslx1PixT; invhosttandemTOTALd1PdeptxPixTT = invhosttandemTOTALd1PdeptxPixTT + invhosttandemTOTALx1PixT; , 8ix, nx<D; H∗ Acumula a nivel departamental las variables invhosttandemx1, invhosttandemLocx1, invhosttandemLDNx1, invhosttandemLDIx1, invhosttandemalqx1A1, invhosttandemalqx1B1, invhosttandemalqx1C1, invhosttandemalqx1LL, invhosttandemalqx1LP, invhosttandemalqx1AS, invhosttandemalqx1BS, invhosttandemalqx1CS, invhosttandemalqx1ABC2, invhosttandemalqx1ABCnop, invhosttandemitxx1, invhosttandemadslx1 y invhosttandemTOTALx1 imputable a cada uno de los servicios ∗L Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemd1PidT, invhosttandemLocd1PidT, invhosttandemLDNd1PidT, invhosttandemLDId1PidT, invhosttandemalqd1A1PidT, invhosttandemalqd1B1PidT, invhosttandemalqd1C1PidT, invhosttandemalqd1LLPidT, invhosttandemalqd1LPPidT, invhosttandemalqd1ASPidT, invhosttandemalqd1BSPidT, invhosttandemalqd1CSPidT, invhosttandemalqd1ABC2PidT, invhosttandemalqd1ABCnopPidT, invhosttandemadsld1PidT, invhosttandemitxd1PidT, invhosttandemTOTALd1PidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd1", "invhosttandemLocd1", "invhosttandemLDNd1", "invhosttandemLDId1", "invhosttandemalqd1A1", "invhosttandemalqd1B1", "invhosttandemalqd1C1", "invhosttandemalqd1LL", "invhosttandemalqd1LP", "invhosttandemalqd1AS", "invhosttandemalqd1BS", "invhosttandemalqd1CS", "invhosttandemalqd1ABC2", "invhosttandemalqd1ABCnop", "invhosttandemadsld1", "invhosttandemitxd1", "invhosttandemTOTALd1"<<DD; invhosttandemx2 = zerox; invhosttandemLocx2 = zerox; invhosttandemLDNx2 = zerox; invhosttandemLDIx2 = zerox; invhosttandemalqx2A1 = zerox; invhosttandemalqx2B1 = zerox; invhosttandemalqx2C1 = zerox; invhosttandemalqx2LL = zerox; invhosttandemalqx2LP = zerox; invhosttandemalqx2AS = zerox; invhosttandemalqx2BS = zerox; invhosttandemalqx2CS = zerox; invhosttandemalqx2ABC2 = zerox; invhosttandemalqx2ABCnop = zerox; invhosttandemitxx2 = zerox; invhosttandemadslx2 = zerox; invhosttandemTOTALx2 = zerox; DoBIfBfiberxPixT, invhosttandemx2PixT = fiberinvhosttandemx2PixT; P 136 T P T Modelo_Integral_ACK.nb IfBloadcompHTxPixT > 0, invhosttandemLocx2PixT = invhosttandemx2PixT loadcompHTLocxPixT ; loadcompHTxPixT invhosttandemLDNx2PixT = invhosttandemx2PixT invhosttandemLDIx2PixT = invhosttandemx2PixT loadcompHTLDNxPixT ; loadcompHTxPixT loadcompHTLDIxPixT ;F; loadcompHTxPixT H∗ Compila o resume el total de inversiones aplicable a los cables imputable a los servicios Local, LDN y LDI de Voz. Como dicha información sólo es aplicable para el uso de fibra, en todos los demás casos es cero ∗L invhosttandemalqx2A1PixT = fiberinvhosttandemalqx2A1PixT; invhosttandemalqx2B1PixT = fiberinvhosttandemalqx2B1PixT; invhosttandemalqx2C1PixT = fiberinvhosttandemalqx2C1PixT; invhosttandemalqx2LLPixT = fiberinvhosttandemalqx2LLPixT; invhosttandemalqx2LPPixT = fiberinvhosttandemalqx2LPPixT; invhosttandemalqx2ASPixT = fiberinvhosttandemalqx2ASPixT; invhosttandemalqx2BSPixT = fiberinvhosttandemalqx2BSPixT; invhosttandemalqx2CSPixT = fiberinvhosttandemalqx2CSPixT; invhosttandemalqx2ABC2PixT = fiberinvhosttandemalqx2ABC2PixT; invhosttandemalqx2ABCnopPixT = fiberinvhosttandemalqx2ABCnopPixT; invhosttandemitxx2PixT = fiberinvhosttandemitxx2PixT; invhosttandemadslx2PixT = fiberinvhosttandemadslx2PixT; invhosttandemTOTALx2PixT = fiberinvhosttandemTOTALx2PixT;F; , 8ix, nx<F; H∗ Compila o resume el total de inversiones aplicable a los cables imputable a cada servicio. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvhosttandemx2, fiberinvhosttandemalqx2A1, fiberinvhosttandemalqx2B1, fiberinvhosttandemalqx2C1, fiberinvhosttandemalqx2LL, fiberinvhosttandemalqx2LP, fiberinvhosttandemalqx2AS, fiberinvhosttandemalqx2BS, fiberinvhosttandemalqx2CS, fiberinvhosttandemalqx2ABC2, fiberinvhosttandemalqx2ABCnop, fiberinvhosttandemitxx2, fiberinvhosttandemadslx2 o fiberinvhosttandemTOTALx2 según sea el caso, en todos los demás casos es cero ∗L Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemx2PixT, invhosttandemLocx2PixT, invhosttandemLDNx2PixT, invhosttandemLDIx2PixT, invhosttandemalqx2A1PixT, invhosttandemalqx2B1PixT, invhosttandemalqx2C1PixT, invhosttandemalqx2LLPixT, invhosttandemalqx2LPPixT, invhosttandemalqx2ASPixT, invhosttandemalqx2BSPixT, invhosttandemalqx2CSPixT, invhosttandemalqx2ABC2PixT, invhosttandemalqx2ABCnopPixT, invhosttandemadslx2PixT, invhosttandemitxx2PixT, invhosttandemTOTALx2PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx2", "invhosttandemLocx2", "invhosttandemLDNx2", "invhosttandemLDIx2", "invhosttandemalqx2A1", "invhosttandemalqx2B1", "invhosttandemalqx2C1", "invhosttandemalqx2LL", "invhosttandemalqx2LP", "invhosttandemalqx2AS", "invhosttandemalqx2BS", "invhosttandemalqx2CS", "invhosttandemalqx2ABC2", "invhosttandemalqx2ABCnop", "invhosttandemadslx2", "invhosttandemitxx2", "invhosttandemTOTALx2"<<DD; invhosttandemd2 = zerod; invhosttandemLocd2 = zerod; invhosttandemLDNd2 = zerod; invhosttandemLDId2 = zerod; invhosttandemalqd2A1 = zerod; invhosttandemalqd2B1 = zerod; invhosttandemalqd2C1 = zerod; invhosttandemalqd2LL = zerod; invhosttandemalqd2LP = zerod; invhosttandemalqd2AS = zerod; invhosttandemalqd2BS = zerod; invhosttandemalqd2CS = zerod; invhosttandemalqd2ABC2 = zerod; invhosttandemalqd2ABCnop = zerod; invhosttandemitxd2 = zerod; invhosttandemadsld2 = zerod; invhosttandemTOTALd2 = zerod; Do@ invhosttandemd2PdeptxPixTT = invhosttandemd2PdeptxPixTT + invhosttandemx2PixT; invhosttandemLocd2PdeptxPixTT = invhosttandemLocd2PdeptxPixTT + invhosttandemLocx2PixT; invhosttandemLDNd2PdeptxPixTT = invhosttandemLDNd2PdeptxPixTT + invhosttandemLDNx2PixT; invhosttandemLDId2PdeptxPixTT = invhosttandemLDId2PdeptxPixTT + invhosttandemLDIx2PixT; invhosttandemalqd2A1PdeptxPixTT = invhosttandemalqd2A1PdeptxPixTT + invhosttandemalqx2A1PixT; invhosttandemalqd2B1PdeptxPixTT = invhosttandemalqd2B1PdeptxPixTT + invhosttandemalqx2B1PixT; invhosttandemalqd2C1PdeptxPixTT = invhosttandemalqd2C1PdeptxPixTT + invhosttandemalqx2C1PixT; invhosttandemalqd2LLPdeptxPixTT = invhosttandemalqd2LLPdeptxPixTT + invhosttandemalqx2LLPixT; invhosttandemalqd2LPPdeptxPixTT = invhosttandemalqd2LPPdeptxPixTT + invhosttandemalqx2LPPixT; invhosttandemalqd2ASPdeptxPixTT = invhosttandemalqd2ASPdeptxPixTT + invhosttandemalqx2ASPixT; invhosttandemalqd2BSPdeptxPixTT = invhosttandemalqd2BSPdeptxPixTT + invhosttandemalqx2BSPixT; invhosttandemalqd2CSPdeptxPixTT = invhosttandemalqd2CSPdeptxPixTT + invhosttandemalqx2CSPixT; invhosttandemalqd2ABC2PdeptxPixTT = invhosttandemalqd2ABC2PdeptxPixTT + invhosttandemalqx2ABC2PixT; invhosttandemalqd2ABCnopPdeptxPixTT = invhosttandemalqd2ABCnopPdeptxPixTT + invhosttandemalqx2ABCnopPixT; invhosttandemitxd2PdeptxPixTT = invhosttandemitxd2PdeptxPixTT + invhosttandemitxx2PixT; invhosttandemadsld2PdeptxPixTT = invhosttandemadsld2PdeptxPixTT + invhosttandemadslx2PixT; 137 invhosttandemadsld2PdeptxPixTT invhosttandemadsld2PdeptxPixTT invhosttandemadslx2PixT; invhosttandemTOTALd2PdeptxPixTT = invhosttandemTOTALd2PdeptxPixTT + invhosttandemTOTALx2PixT; , 8ix, nx<D; H∗ Acumula a nivel departamental las variables invhosttandemx2, invhosttandemLocx2, invhosttandemLDNx2, invhosttandemLDIx2, invhosttandemalqx2A1, invhosttandemalqx2B1, invhosttandemalqx2C1, invhosttandemalqx2LL, invhosttandemalqx2LP, invhosttandemalqx2AS, invhosttandemalqx2BS, invhosttandemalqx2CS, invhosttandemalqx2ABC2, invhosttandemalqx2ABCnop, invhosttandemitxx2, invhosttandemadslx2 y invhosttandemTOTALx2 imputable a cada uno de los servicios ∗L Modelo_Integral_ACK.nb Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemd2PidT, invhosttandemLocd2PidT, invhosttandemLDNd2PidT, invhosttandemLDId2PidT, invhosttandemalqd2A1PidT, invhosttandemalqd2B1PidT, invhosttandemalqd2C1PidT, invhosttandemalqd2LLPidT, invhosttandemalqd2LPPidT, invhosttandemalqd2ASPidT, invhosttandemalqd2BSPidT, invhosttandemalqd2CSPidT, invhosttandemalqd2ABC2PidT, invhosttandemalqd2ABCnopPidT, invhosttandemadsld2PidT, invhosttandemitxd2PidT, invhosttandemTOTALd2PidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd2", "invhosttandemLocd2", "invhosttandemLDNd2", "invhosttandemLDId2", "invhosttandemalqd2A1", "invhosttandemalqd2B1", "invhosttandemalqd2C1", "invhosttandemalqd2LL", "invhosttandemalqd2LP", "invhosttandemalqd2AS", "invhosttandemalqd2BS", "invhosttandemalqd2CS", "invhosttandemalqd2ABC2", "invhosttandemalqd2ABCnop", "invhosttandemadsld2", "invhosttandemitxd2", "invhosttandemTOTALd2"<<DD; invhosttandemx3 = zerox; invhosttandemLocx3 = zerox; invhosttandemLDNx3 = zerox; invhosttandemLDIx3 = zerox; invhosttandemalqx3A1 = zerox; invhosttandemalqx3B1 = zerox; invhosttandemalqx3C1 = zerox; invhosttandemalqx3LL = zerox; invhosttandemalqx3LP = zerox; invhosttandemalqx3AS = zerox; invhosttandemalqx3BS = zerox; invhosttandemalqx3CS = zerox; invhosttandemalqx3ABC2 = zerox; invhosttandemalqx3ABCnop = zerox; invhosttandemitxx3 = zerox; invhosttandemadslx3 = zerox; invhosttandemTOTALx3 = zerox; DoBIfBfiberxPixT, invhosttandemx3PixT = fiberinvhosttandemx3PixT; IfBloadcompHTxPixT > 0, invhosttandemLocx3PixT = invhosttandemx3PixT invhosttandemLDNx3PixT = invhosttandemx3PixT invhosttandemLDIx3PixT = invhosttandemx3PixT loadcompHTLocxPixT ; loadcompHTxPixT loadcompHTLDNxPixT ; loadcompHTxPixT loadcompHTLDIxPixT ;F; loadcompHTxPixT H∗ Compila o resume el total de inversiones aplicable a obras civiles imputable a los servicios Local, LDN y LDI de Voz. Como dicha información sólo es aplicable para el uso de fibra, en todos los demás casos es cero ∗L invhosttandemalqx3A1PixT = fiberinvhosttandemalqx3A1PixT; invhosttandemalqx3B1PixT = fiberinvhosttandemalqx3B1PixT; invhosttandemalqx3C1PixT = fiberinvhosttandemalqx3C1PixT; invhosttandemalqx3LLPixT = fiberinvhosttandemalqx3LLPixT; invhosttandemalqx3LPPixT = fiberinvhosttandemalqx3LPPixT; invhosttandemalqx3ASPixT = fiberinvhosttandemalqx3ASPixT; invhosttandemalqx3BSPixT = fiberinvhosttandemalqx3BSPixT; invhosttandemalqx3CSPixT = fiberinvhosttandemalqx3CSPixT; invhosttandemalqx3ABC2PixT = fiberinvhosttandemalqx3ABC2PixT; invhosttandemalqx3ABCnopPixT = fiberinvhosttandemalqx3ABCnopPixT; invhosttandemitxx3PixT = fiberinvhosttandemitxx3PixT; invhosttandemadslx3PixT = fiberinvhosttandemadslx3PixT; invhosttandemTOTALx3PixT = fiberinvhosttandemTOTALx3PixT;F; , 8ix, nx<F; H∗ Compila o resume el total de inversiones aplicable a obras civiles imputable a cada servicio. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvhosttandemx3, fiberinvhosttandemalqx3A1, fiberinvhosttandemalqx3B1, fiberinvhosttandemalqx3C1, fiberinvhosttandemalqx3LL, fiberinvhosttandemalqx3LP, fiberinvhosttandemalqx3AS, fiberinvhosttandemalqx3BS, fiberinvhosttandemalqx3CS, fiberinvhosttandemalqx3ABC2, fiberinvhosttandemalqx3ABCnop, fiberinvhosttandemitxx3, fiberinvhosttandemadslx3, fiberinvhosttandemTOTALx3, según sea el caso, en todos los demás casos es cero ∗L Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemx3PixT, invhosttandemLocx3PixT, invhosttandemLDNx3PixT, invhosttandemLDIx3PixT, invhosttandemalqx3A1PixT, invhosttandemalqx3B1PixT, invhosttandemalqx3C1PixT, invhosttandemalqx3LLPixT, invhosttandemalqx3LPPixT, invhosttandemalqx3ASPixT, invhosttandemalqx3BSPixT, invhosttandemalqx3CSPixT, invhosttandemalqx3ABC2PixT, invhosttandemalqx3ABCnopPixT, invhosttandemadslx3PixT, invhosttandemitxx3PixT, invhosttandemTOTALx3PixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx3", 138 TableSpacing 80, 1<, TableHeadings 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx3", "invhosttandemLocx3", "invhosttandemLDNx3", "invhosttandemLDIx3", "invhosttandemalqx3A1", "invhosttandemalqx3B1", "invhosttandemalqx3C1", "invhosttandemalqx3LL", "invhosttandemalqx3LP", "invhosttandemalqx3AS", "invhosttandemalqx3BS", "invhosttandemalqx3CS", "invhosttandemalqx3ABC2", "invhosttandemalqx3ABCnop", "invhosttandemadslx3", "invhosttandemitxx3", "invhosttandemTOTALx3"<<DD; Modelo_Integral_ACK.nb invhosttandemd3 = zerod; invhosttandemLocd3 = zerod; invhosttandemLDNd3 = zerod; invhosttandemLDId3 = zerod; invhosttandemalqd3A1 = zerod; invhosttandemalqd3B1 = zerod; invhosttandemalqd3C1 = zerod; invhosttandemalqd3LL = zerod; invhosttandemalqd3LP = zerod; invhosttandemalqd3AS = zerod; invhosttandemalqd3BS = zerod; invhosttandemalqd3CS = zerod; invhosttandemalqd3ABC2 = zerod; invhosttandemalqd3ABCnop = zerod; invhosttandemitxd3 = zerod; invhosttandemadsld3 = zerod; invhosttandemTOTALd3 = zerod; Do@ invhosttandemd3PdeptxPixTT = invhosttandemd3PdeptxPixTT + invhosttandemx3PixT; invhosttandemLocd3PdeptxPixTT = invhosttandemLocd3PdeptxPixTT + invhosttandemLocx3PixT; invhosttandemLDNd3PdeptxPixTT = invhosttandemLDNd3PdeptxPixTT + invhosttandemLDNx3PixT; invhosttandemLDId3PdeptxPixTT = invhosttandemLDId3PdeptxPixTT + invhosttandemLDIx3PixT; invhosttandemalqd3A1PdeptxPixTT = invhosttandemalqd3A1PdeptxPixTT + invhosttandemalqx3A1PixT; invhosttandemalqd3B1PdeptxPixTT = invhosttandemalqd3B1PdeptxPixTT + invhosttandemalqx3B1PixT; invhosttandemalqd3C1PdeptxPixTT = invhosttandemalqd3C1PdeptxPixTT + invhosttandemalqx3C1PixT; invhosttandemalqd3LLPdeptxPixTT = invhosttandemalqd3LLPdeptxPixTT + invhosttandemalqx3LLPixT; invhosttandemalqd3LPPdeptxPixTT = invhosttandemalqd3LPPdeptxPixTT + invhosttandemalqx3LPPixT; invhosttandemalqd3ASPdeptxPixTT = invhosttandemalqd3ASPdeptxPixTT + invhosttandemalqx3ASPixT; invhosttandemalqd3BSPdeptxPixTT = invhosttandemalqd3BSPdeptxPixTT + invhosttandemalqx3BSPixT; invhosttandemalqd3CSPdeptxPixTT = invhosttandemalqd3CSPdeptxPixTT + invhosttandemalqx3CSPixT; invhosttandemalqd3ABC2PdeptxPixTT = invhosttandemalqd3ABC2PdeptxPixTT + invhosttandemalqx3ABC2PixT; invhosttandemalqd3ABCnopPdeptxPixTT = invhosttandemalqd3ABCnopPdeptxPixTT + invhosttandemalqx3ABCnopPixT; invhosttandemitxd3PdeptxPixTT = invhosttandemitxd3PdeptxPixTT + invhosttandemitxx3PixT; invhosttandemadsld3PdeptxPixTT = invhosttandemadsld3PdeptxPixTT + invhosttandemadslx3PixT; invhosttandemTOTALd3PdeptxPixTT = invhosttandemTOTALd3PdeptxPixTT + invhosttandemTOTALx3PixT; , 8ix, nx<D; H∗ Acumula a nivel departamental las variables invhosttandemx3, invhosttandemLocx3, invhosttandemLDNx3, invhosttandemLDIx3, invhosttandemalqx3A1, invhosttandemalqx3B1, invhosttandemalqx3C1, invhosttandemalqx3LL, invhosttandemalqx3LP, invhosttandemalqx3AS, invhosttandemalqx3BS, invhosttandemalqx3CS, invhosttandemalqx3ABC2, invhosttandemalqx3ABCnop, invhosttandemitxx3, invhosttandemadslx3 y invhosttandemTOTALx3 imputable a cada uno de los servicios ∗L Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemd3PidT, invhosttandemLocd3PidT, invhosttandemLDNd3PidT, invhosttandemLDId3PidT, invhosttandemalqd3A1PidT, invhosttandemalqd3B1PidT, invhosttandemalqd3C1PidT, invhosttandemalqd3LLPidT, invhosttandemalqd3LPPidT, invhosttandemalqd3ASPidT, invhosttandemalqd3BSPidT, invhosttandemalqd3CSPidT, invhosttandemalqd3ABC2PidT, invhosttandemalqd3ABCnopPidT, invhosttandemadsld3PidT, invhosttandemitxd3PidT, invhosttandemTOTALd3PidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd3", "invhosttandemLocd3", "invhosttandemLDNd3", "invhosttandemLDId3", "invhosttandemalqd3A1", "invhosttandemalqd3B1", "invhosttandemalqd3C1", "invhosttandemalqd3LL", "invhosttandemalqd3LP", "invhosttandemalqd3AS", "invhosttandemalqd3BS", "invhosttandemalqd3CS", "invhosttandemalqd3ABC2", "invhosttandemalqd3ABCnop", "invhosttandemadsld3", "invhosttandemitxd3", "invhosttandemTOTALd3"<<DD; invhosttandemx = invhosttandemx1 + invhosttandemx2 + invhosttandemx3; invhosttandemLocx = invhosttandemLocx1 + invhosttandemLocx2 + invhosttandemLocx3; invhosttandemLDNx = invhosttandemLDNx1 + invhosttandemLDNx2 + invhosttandemLDNx3; invhosttandemLDIx = invhosttandemLDIx1 + invhosttandemLDIx2 + invhosttandemLDIx3; invhosttandemalqxA1 = invhosttandemalqx1A1 + invhosttandemalqx2A1 + invhosttandemalqx3A1; invhosttandemalqxB1 = invhosttandemalqx1B1 + invhosttandemalqx2B1 + invhosttandemalqx3B1; invhosttandemalqxC1 = invhosttandemalqx1C1 + invhosttandemalqx2C1 + invhosttandemalqx3C1; invhosttandemalqxLL = invhosttandemalqx1LL + invhosttandemalqx2LL + invhosttandemalqx3LL; invhosttandemalqxLP = invhosttandemalqx1LP + invhosttandemalqx2LP + invhosttandemalqx3LP; invhosttandemalqxAS = invhosttandemalqx1AS + invhosttandemalqx2AS + invhosttandemalqx3AS; invhosttandemalqxBS = invhosttandemalqx1BS + invhosttandemalqx2BS + invhosttandemalqx3BS; invhosttandemalqxCS = invhosttandemalqx1CS + invhosttandemalqx2CS + invhosttandemalqx3CS; invhosttandemalqxABC2 = invhosttandemalqx1ABC2 + invhosttandemalqx2ABC2 + invhosttandemalqx3ABC2; invhosttandemalqxABCnop = invhosttandemalqx1ABCnop + invhosttandemalqx2ABCnop + invhosttandemalqx3ABCnop; invhosttandemitxx = invhosttandemitxx1 + invhosttandemitxx2 + invhosttandemitxx3; invhosttandemadslx = invhosttandemadslx1 + invhosttandemadslx2 + invhosttandemadslx3; invhosttandemTOTALx = invhosttandemTOTALx1 + invhosttandemTOTALx2 + invhosttandemTOTALx3; H∗ Total de inversiones en Tx a nivel HT imputable a cada servicio ∗L Print@TableForm@Table@8ix, idxPixT, yPix, 13T, invhosttandemxPixT, invhosttandemLocxPixT, invhosttandemLDNxPixT, invhosttandemLDIxPixT, invhosttandemalqxA1PixT, invhosttandemalqxB1PixT, invhosttandemalqxC1PixT, 139 Modelo_Integral_ACK.nb invhosttandemLDIxPixT, invhosttandemalqxA1PixT, invhosttandemalqxB1PixT, invhosttandemalqxC1PixT, invhosttandemalqxLLPixT, invhosttandemalqxLPPixT, invhosttandemalqxASPixT, invhosttandemalqxBSPixT, invhosttandemalqxCSPixT, invhosttandemalqxABC2PixT, invhosttandemalqxABCnopPixT, invhosttandemadslxPixT, invhosttandemitxxPixT, invhosttandemTOTALxPixT<, 8ix, nx<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"ix", "idx", "Nombre Central", "invhosttandemx", "invhosttandemLocx", "invhosttandemLDNx", "invhosttandemLDIx", "invhosttandemalqxA1", "invhosttandemalqxB1", "invhosttandemalqxC1", "invhosttandemalqxLL", "invhosttandemalqxLP", "invhosttandemalqxAS", "invhosttandemalqxBS", "invhosttandemalqxCS", "invhosttandemalqxABC2", "invhosttandemalqxABCnop", "invhosttandemadslx", "invhosttandemitxx", "invhosttandemTOTALx"<<DD; invhosttandemd = zerod; invhosttandemLocd = zerod; invhosttandemLDNd = zerod; invhosttandemLDId = zerod; invhosttandemalqdA1 = zerod; invhosttandemalqdB1 = zerod; invhosttandemalqdC1 = zerod; invhosttandemalqdLL = zerod; invhosttandemalqdLP = zerod; invhosttandemalqdAS = zerod; invhosttandemalqdBS = zerod; invhosttandemalqdCS = zerod; invhosttandemalqdABC2 = zerod; invhosttandemalqdABCnop = zerod; invhosttandemitxd = zerod; invhosttandemadsld = zerod; invhosttandemTOTALd = zerod; Do@ invhosttandemdPdeptxPixTT = invhosttandemdPdeptxPixTT + invhosttandemxPixT; invhosttandemLocdPdeptxPixTT = invhosttandemLocdPdeptxPixTT + invhosttandemLocxPixT; invhosttandemLDNdPdeptxPixTT = invhosttandemLDNdPdeptxPixTT + invhosttandemLDNxPixT; invhosttandemLDIdPdeptxPixTT = invhosttandemLDIdPdeptxPixTT + invhosttandemLDIxPixT; invhosttandemalqdA1PdeptxPixTT = invhosttandemalqdA1PdeptxPixTT + invhosttandemalqxA1PixT; invhosttandemalqdB1PdeptxPixTT = invhosttandemalqdB1PdeptxPixTT + invhosttandemalqxB1PixT; invhosttandemalqdC1PdeptxPixTT = invhosttandemalqdC1PdeptxPixTT + invhosttandemalqxC1PixT; invhosttandemalqdLLPdeptxPixTT = invhosttandemalqdLLPdeptxPixTT + invhosttandemalqxLLPixT; invhosttandemalqdLPPdeptxPixTT = invhosttandemalqdLPPdeptxPixTT + invhosttandemalqxLPPixT; invhosttandemalqdASPdeptxPixTT = invhosttandemalqdASPdeptxPixTT + invhosttandemalqxASPixT; invhosttandemalqdBSPdeptxPixTT = invhosttandemalqdBSPdeptxPixTT + invhosttandemalqxBSPixT; invhosttandemalqdCSPdeptxPixTT = invhosttandemalqdCSPdeptxPixTT + invhosttandemalqxCSPixT; invhosttandemalqdABC2PdeptxPixTT = invhosttandemalqdABC2PdeptxPixTT + invhosttandemalqxABC2PixT; invhosttandemalqdABCnopPdeptxPixTT = invhosttandemalqdABCnopPdeptxPixTT + invhosttandemalqxABCnopPixT; invhosttandemitxdPdeptxPixTT = invhosttandemitxdPdeptxPixTT + invhosttandemitxxPixT; invhosttandemadsldPdeptxPixTT = invhosttandemadsldPdeptxPixTT + invhosttandemadslxPixT; invhosttandemTOTALdPdeptxPixTT = invhosttandemTOTALdPdeptxPixTT + invhosttandemTOTALxPixT; , 8ix, nx<D; H∗ Acumula a nivel departamental las variables invhosttandemx, invhosttandemLocx, invhosttandemLDNx, invhosttandemLDIx, invhosttandemalqxA1, invhosttandemalqxB1, invhosttandemalqxC1, invhosttandemalqxLL, invhosttandemalqxLP, invhosttandemalqxAS, invhosttandemalqxBS, invhosttandemalqxCS, invhosttandemalqxABC2, invhosttandemalqxABCnop, invhosttandemitxx, invhosttandemadslx y invhosttandemTOTALx imputable a cada uno de los servicios ∗L Print@TableForm@Table@8id, deptTXTdPidT, invhosttandemdPidT, invhosttandemLocdPidT, invhosttandemLDNdPidT, invhosttandemLDIdPidT, invhosttandemalqdA1PidT, invhosttandemalqdB1PidT, invhosttandemalqdC1PidT, invhosttandemalqdLLPidT, invhosttandemalqdLPPidT, invhosttandemalqdASPidT, invhosttandemalqdBSPidT, invhosttandemalqdCSPidT, invhosttandemalqdABC2PidT, invhosttandemalqdABCnopPidT, invhosttandemadsldPidT, invhosttandemitxdPidT, invhosttandemTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "invhosttandemd", "invhosttandemLocd", "invhosttandemLDNd", "invhosttandemLDId", "invhosttandemalqdA1", "invhosttandemalqdB1", "invhosttandemalqdC1", "invhosttandemalqdLL", "invhosttandemalqdLP", "invhosttandemalqdAS", "invhosttandemalqdBS", "invhosttandemalqdCS", "invhosttandemalqdABC2", "invhosttandemalqdABCnop", "invhosttandemadsld", "invhosttandemitxd", "invhosttandemTOTALd"<<DD; invhosttandem = Plus @@ invhosttandemd; invhosttandemLoc = Plus @@ invhosttandemLocd; invhosttandemLDN = Plus @@ invhosttandemLDNd; invhosttandemLDI = Plus @@ invhosttandemLDId; invhosttandemalqA1 = Plus @@ invhosttandemalqdA1; invhosttandemalqB1 = Plus @@ invhosttandemalqdB1; invhosttandemalqC1 = Plus @@ invhosttandemalqdC1; invhosttandemalqLL = Plus @@ invhosttandemalqdLL; invhosttandemalqLP = Plus @@ invhosttandemalqdLP; invhosttandemalqAS = Plus @@ invhosttandemalqdAS; invhosttandemalqBS = Plus @@ invhosttandemalqdBS; invhosttandemalqCS = Plus @@ invhosttandemalqdCS; invhosttandemalqABC2 = Plus @@ invhosttandemalqdABC2; invhosttandemalqABCnop = Plus @@ invhosttandemalqdABCnop; invhosttandemitx = Plus @@ invhosttandemitxd; invhosttandemadsl = Plus @@ invhosttandemadsld; invhosttandemTOTAL = Plus @@ invhosttandemTOTALd; 140 Modelo_Integral_ACK.nb invhosttandemTOTAL Plus invhosttandemTOTALd; H∗ Total de inversiones en Tx a nivel HT a nivel nacional imputable a cada uno de los servicios ∗L Print@TableForm@8invhosttandem, invhosttandemLoc, invhosttandemLDN, invhosttandemLDI, invhosttandemalqA1, invhosttandemalqB1, invhosttandemalqC1, invhosttandemalqLL, invhosttandemalqLP, invhosttandemalqAS, invhosttandemalqBS, invhosttandemalqCS, invhosttandemalqABC2, invhosttandemalqABCnop, invhosttandemadsl, invhosttandemitx, invhosttandemTOTAL<, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"invhosttandem", "invhosttandemLoc", "invhosttandemLDN", "invhosttandemLDI", "invhosttandemalqA1", "invhosttandemalqB1", "invhosttandemalqC1", "invhosttandemalqLL", "invhosttandemalqLP", "invhosttandemalqAS", "invhosttandemalqBS", "invhosttandemalqCS", "invhosttandemalqABC2", "invhosttandemalqABCnop", "invhosttandemadsl", "invhosttandemitx", "invhosttandemTOTAL"<<DD; PrintBStyleB "INVERSIÓN POR SERVICIO − HOST TANDEM", 16, Bold, White, Underlined, Background → BlueFF; Resinvhosttandemx = Table@0, 8jx, nx<, 8ix, 13<D; Do@ResinvhosttandemxPix, 1T = invhosttandemxPixT; ResinvhosttandemxPix, 2T = invhosttandemalqxA1PixT; ResinvhosttandemxPix, 3T = invhosttandemalqxB1PixT; ResinvhosttandemxPix, 4T = invhosttandemalqxC1PixT; ResinvhosttandemxPix, 5T = invhosttandemalqxLLPixT; ResinvhosttandemxPix, 6T = invhosttandemalqxLPPixT; ResinvhosttandemxPix, 7T = invhosttandemalqxASPixT; ResinvhosttandemxPix, 8T = invhosttandemalqxBSPixT; ResinvhosttandemxPix, 9T = invhosttandemalqxCSPixT; ResinvhosttandemxPix, 10T = invhosttandemalqxABC2PixT; ResinvhosttandemxPix, 11T = invhosttandemalqxABCnopPixT; ResinvhosttandemxPix, 12T = invhosttandemitxxPixT; ResinvhosttandemxPix, 13T = invhosttandemadslxPixT;, 8ix, nx<D; Print@TableForm@ResinvhosttandemxDD; PRINT["INVERSIÓN COMPILADA A NIVEL REMOTA-CABECERA"] Print["CosteAñadidoTrxPorDistanciaRHx"] CosteAñadidoTrxPorDistanciaRHx=zerox; Do[If[deptxPixT≠ LIMA fl host1xPixT0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaRHxPixT=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaRHxPixT=CosteAñadidoTrxPorDistanciaRHx[[ix]]* If[e1compRHTOTALxPixT≠0 fl host1xPixT≠1,(e1compRHx[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaRHx] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Voz. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxA1"] CosteAñadidoTrxPorDistanciaalqRHxA1=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxA1[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxA1] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Rango A. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxB1"] CosteAñadidoTrxPorDistanciaalqRHxB1=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxB1[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxB1] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Rango B. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxC1"] CosteAñadidoTrxPorDistanciaalqRHxC1=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxC1[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxC1] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a 141 Modelo_Integral_ACK.nb la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Rango C. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxLL"] CosteAñadidoTrxPorDistanciaalqRHxLL=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxLL[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxLL] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Local Lima. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxLP"] CosteAñadidoTrxPorDistanciaalqRHxLP=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxLP[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxLP] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Local Provincias. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxAS"] CosteAñadidoTrxPorDistanciaalqRHxAS=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxAS[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxAS] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Rango A Satelital. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxBS"] CosteAñadidoTrxPorDistanciaalqRHxBS=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxBS[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxBS] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Rango B Satelital. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxCS"] CosteAñadidoTrxPorDistanciaalqRHxCS=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxCS[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxCS] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos Rango C Satelital. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxABC2"] CosteAñadidoTrxPorDistanciaalqRHxABC2=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxABC2[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxABC2] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo 142 Modelo_Integral_ACK.nb por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Otros Circuitos Rango A, B y C. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaalqRHxABCnop"] CosteAñadidoTrxPorDistanciaalqRHxABCnop=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]]=CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compalqRHxABCnop[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaalqRHxABCnop] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos de No Operadores. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaitxRHx"] CosteAñadidoTrxPorDistanciaitxRHx=zerox; Do[If[deptx[[ix]]≠ LIMA && host1x[[ix]]0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaitxRHx[[ix]]=AñadidoTrxPorKm*distance[ix,idinvertx[[CentralRef]]]; CosteAñadidoTrxPorDistanciaitxRHx[[ix]]=CosteAñadidoTrxPorDistanciaitxRHx[[ix]]* If[e1compRHTOTALx[[ix]]!=0&&host1x[[ix]]!=1,(e1compitxRHx[[ix]]/e1compRHTOTALx[[ix]]),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaitxRHx] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de Circuitos de Interconexión. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaadslRHx"] CosteAñadidoTrxPorDistanciaadslRHx=zerox; Do[If[deptxPixT≠ LIMA fl host1xPixT0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaadslRHxPixT=AñadidoTrxPorKm*distance[ix,idinvertxPCentralRefT]; CosteAñadidoTrxPorDistanciaadslRHxPixT=CosteAñadidoTrxPorDistanciaadslRHxPixT* If[e1compRHTOTALxPixT≠0 fl host1xPixT≠1,(e1compadslRHxPixT/e1compRHTOTALxPixT),0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaadslRHx] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo del servicio de ADSL. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["CosteAñadidoTrxPorDistanciaRHTOTALx"] CosteAñadidoTrxPorDistanciaRHTOTALx=zerox; Do[If[deptxPixT≠ LIMA fl host1xPixT0fl transtechxPixT ≠ Radio, CosteAñadidoTrxPorDistanciaRHTOTALxPixT=AñadidoTrxPorKm*distance[ix,idinvertxPCentralRefT]; CosteAñadidoTrxPorDistanciaRHTOTALxPixT=CosteAñadidoTrxPorDistanciaRHTOTALxPixT*If[e1compRHTOTALxPixT≠0 fl host1xPixT≠1,1,0];]; ,{ix,nx}]; Print[CosteAñadidoTrxPorDistanciaRHTOTALx] (* El costo de traslado de los equipos de Tx a provincias: Si la central no esta en Lima y es cabecera equivale a la distancia de cada central hasta la central de referencia en Lima (Tandem de Lima) multiplicado por el costo por Km. En todas las Remotas entonces el valor es cero. El resultado se multiplica por el respectivo factor de imputación para estimar el costo de todos los servicios. Nótese que si el número de E1s es cero, entonces se multiplica por cero por lo que costo añadido debe ser cero. Ojo, en todas las cabeceras e1compRHTOTALx=0, entonces costo añadido será cero. Conclusión, a nivel RH todo es cero *) Print["invremotehostx1"] invremotehostx1=radioinvremotehostx; Do[If[fiberx[[ix]],invremotehostx1[[ix]]=fiberinvremotehostx1[[ix]]],{ix,nx}] Do[invremotehostx1[[ix]]=invremotehostx1[[ix]]+CosteAñadidoTrxPorDistanciaRHx[[ix]];,{ix,nx}]; Print[invremotehostx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Voz. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostx1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostLocx1"] invremotehostLocx1=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLocx1[[ix]]=invremotehostx1[[ix]]*loadcompRHLocx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}]; Print[invremotehostLocx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio Local de Voz. *) Print["invremotehostLDNx1"] invremotehostLDNx1=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLDNx1[[ix]]=invremotehostx1[[ix]]*loadcompRHLDNx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}]; Print[invremotehostLDNx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio LDN de Voz. *) Print["invremotehostLDIx1"] 143 Modelo_Integral_ACK.nb invremotehostLDIx1=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLDIx1[[ix]]=invremotehostx1[[ix]]*loadcompRHLDIx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}]; Print[invremotehostLDIx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio LDI de Voz. *) Print["invremotehostalqx1A1"] invremotehostalqx1A1=radioinvremotehostalqxA1; Do[If[fiberx[[ix]],invremotehostalqx1A1[[ix]]=fiberinvremotehostalqx1A1[[ix]]],{ix,nx}] Do[invremotehostalqx1A1[[ix]]=invremotehostalqx1A1[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxA1[[ix]];,{ix,nx}]; Print[invremotehostalqx1A1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Rango A. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxA1. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1A1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1B1"] invremotehostalqx1B1=radioinvremotehostalqxB1; Do[If[fiberx[[ix]],invremotehostalqx1B1[[ix]]=fiberinvremotehostalqx1B1[[ix]]],{ix,nx}] Do[invremotehostalqx1B1[[ix]]=invremotehostalqx1B1[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxB1[[ix]];,{ix,nx}]; Print[invremotehostalqx1B1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Rango B. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxB1. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1B1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1C1"] invremotehostalqx1C1=radioinvremotehostalqxC1; Do[If[fiberx[[ix]],invremotehostalqx1C1[[ix]]=fiberinvremotehostalqx1C1[[ix]]],{ix,nx}] Do[invremotehostalqx1C1[[ix]]=invremotehostalqx1C1[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxC1[[ix]];,{ix,nx}]; Print[invremotehostalqx1C1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Rango C. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxC1. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1C1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1LL"] invremotehostalqx1LL=radioinvremotehostalqxLL; Do[If[fiberx[[ix]],invremotehostalqx1LL[[ix]]=fiberinvremotehostalqx1LL[[ix]]],{ix,nx}] Do[invremotehostalqx1LL[[ix]]=invremotehostalqx1LL[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxLL[[ix]];,{ix,nx}]; Print[invremotehostalqx1LL] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Local Lima. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxLL. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1LL. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1LP"] invremotehostalqx1LP=radioinvremotehostalqxLP; Do[If[fiberx[[ix]],invremotehostalqx1LP[[ix]]=fiberinvremotehostalqx1LP[[ix]]],{ix,nx}] Do[invremotehostalqx1LP[[ix]]=invremotehostalqx1LP[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxLP[[ix]];,{ix,nx}]; Print[invremotehostalqx1LP] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Local Provincias. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxLP. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1LP. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1AS"] invremotehostalqx1AS=radioinvremotehostalqxAS; Do[If[fiberx[[ix]],invremotehostalqx1AS[[ix]]=fiberinvremotehostalqx1AS[[ix]]],{ix,nx}] Do[invremotehostalqx1AS[[ix]]=invremotehostalqx1AS[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxAS[[ix]];,{ix,nx}]; Print[invremotehostalqx1AS] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Rango A Satelital. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxAS. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1AS. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1BS"] invremotehostalqx1BS=radioinvremotehostalqxBS; Do[If[fiberx[[ix]],invremotehostalqx1BS[[ix]]=fiberinvremotehostalqx1BS[[ix]]],{ix,nx}] Do[invremotehostalqx1BS[[ix]]=invremotehostalqx1BS[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxBS[[ix]];,{ix,nx}]; Print[invremotehostalqx1BS] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Rango B Satelital. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxBS. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1BS. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1CS"] invremotehostalqx1CS=radioinvremotehostalqxCS; Do[If[fiberx[[ix]],invremotehostalqx1CS[[ix]]=fiberinvremotehostalqx1CS[[ix]]],{ix,nx}] Do[invremotehostalqx1CS[[ix]]=invremotehostalqx1CS[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxCS[[ix]];,{ix,nx}]; Print[invremotehostalqx1CS] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos Rango C Satelital. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxCS. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada 144 Modelo_Integral_ACK.nb una de las centrales del departamento será fiberinvremotehostalqx1CS. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1ABC2"] invremotehostalqx1ABC2=radioinvremotehostalqxABC2; Do[If[fiberx[[ix]],invremotehostalqx1ABC2[[ix]]=fiberinvremotehostalqx1ABC2[[ix]]],{ix,nx}] Do[invremotehostalqx1ABC2[[ix]]=invremotehostalqx1ABC2[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxABC2[[ix]];,{ix,nx}] ; Print[invremotehostalqx1ABC2] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Otros Circuitos Rango A, B y C. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxABC2. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1ABC2. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostalqx1ABCnop"] invremotehostalqx1ABCnop=radioinvremotehostalqxABCnop; Do[If[fiberx[[ix]],invremotehostalqx1ABCnop[[ix]]=fiberinvremotehostalqx1ABCnop[[ix]]],{ix,nx}] Do[invremotehostalqx1ABCnop[[ix]]=invremotehostalqx1ABCnop[[ix]]+CosteAñadidoTrxPorDistanciaalqRHxABCnop[[ix]];,{i x,nx}]; Print[invremotehostalqx1ABCnop] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos de No Operadores. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostalqxB1nop. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostalqx1B1nop. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostitxx1"] invremotehostitxx1=radioinvremotehostitxx; Do[If[fiberx[[ix]],invremotehostitxx1[[ix]]=fiberinvremotehostitxx1[[ix]]],{ix,nx}] Do[invremotehostitxx1[[ix]]=invremotehostitxx1[[ix]]+CosteAñadidoTrxPorDistanciaitxRHx[[ix]];,{ix,nx}]; Print[invremotehostitxx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de Circuitos de Interconexión. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostitxx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostitxx1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostadslx1"] invremotehostadslx1=radioinvremotehostadslx; Do[If[fiberx[[ix]],invremotehostadslx1[[ix]]=fiberinvremotehostadslx1[[ix]]],{ix,nx}] Do[invremotehostadslx1[[ix]]=invremotehostadslx1[[ix]]+CosteAñadidoTrxPorDistanciaadslRHx[[ix]];,{ix,nx}]; Print[invremotehostadslx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable al servicio de ADSL. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostadslx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostadslx1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostTOTALx1"] invremotehostTOTALx1=radioinvremotehostTOTALx; Do[If[fiberx[[ix]],invremotehostTOTALx1[[ix]]=fiberinvremotehostTOTALx1[[ix]]],{ix,nx}] Do[invremotehostTOTALx1[[ix]]=invremotehostTOTALx1[[ix]]+CosteAñadidoTrxPorDistanciaRHTOTALx[[ix]];,{ix,nx}]; Print[invremotehostTOTALx1] (* Compila o resume el total de inversiones a nivel de equipos a nivel RH imputable a todos los servicios. Utiliza la inversión en radio, el nivel de inversión válido para cada una de las centrales del departamento será radioinvremotehostTOTALx. Luego, si la Tandem es Fibra, el nivel de inversión válido para cada una de las centrales del departamento será fiberinvremotehostTOTALx1. Luego, identificado el nivel de inversión a tomar en cuenta en cada central, se añade el costo añadido el traslado de los equipos desde Lima a provincias *) Print["invremotehostd1"] invremotehostd1=zerod; Do[invremotehostd1[[deptx[[ix]]]]=invremotehostd1[[deptx[[ix]]]]+invremotehostx1[[ix]],{ix,nx}] Print[invremotehostd1] (* Acumula a nivel departamental la variable invremotehostx1 imputable al servicio de Voz *) Print["invremotehostLocd1"] invremotehostLocd1=zerod; Do[invremotehostLocd1[[deptx[[ix]]]]=invremotehostLocd1[[deptx[[ix]]]]+invremotehostLocx1[[ix]],{ix,nx}] Print[invremotehostLocd1] (* Acumula a nivel departamental la variable invremotehostLocx1 imputable al servicio Local de Voz *) Print["invremotehostLDNd1"] invremotehostLDNd1=zerod; Do[invremotehostLDNd1[[deptx[[ix]]]]=invremotehostLDNd1[[deptx[[ix]]]]+invremotehostLDNx1[[ix]],{ix,nx}] Print[invremotehostLDNd1] (* Acumula a nivel departamental la variable invremotehostLDNx1 imputable al servicio LDN de Voz *) Print["invremotehostLDId1"] invremotehostLDId1=zerod; Do[invremotehostLDId1[[deptx[[ix]]]]=invremotehostLDId1[[deptx[[ix]]]]+invremotehostLDIx1[[ix]],{ix,nx}] Print[invremotehostLDId1] (* Acumula a nivel departamental la variable invremotehostLDIx1 imputable al servicio LDI de Voz *) Print["invremotehostalqd1A1"] invremotehostalqd1A1=zerod; Do[invremotehostalqd1A1[[deptx[[ix]]]]=invremotehostalqd1A1[[deptx[[ix]]]]+invremotehostalqx1A1[[ix]],{ix,nx}] Print[invremotehostalqd1A1] (* Acumula a nivel departamental la variable invremotehostalqx1A1 imputable al servicio de Circuitos Rango A *) 145 Modelo_Integral_ACK.nb Print["invremotehostalqd1B1"] invremotehostalqd1B1=zerod; Do[invremotehostalqd1B1[[deptx[[ix]]]]=invremotehostalqd1B1[[deptx[[ix]]]]+invremotehostalqx1B1[[ix]],{ix,nx}] Print[invremotehostalqd1B1] (* Acumula a nivel departamental la variable invremotehostalqx1B1 imputable al servicio de Circuitos Rango B *) Print["invremotehostalqd1C1"] invremotehostalqd1C1=zerod; Do[invremotehostalqd1C1[[deptx[[ix]]]]=invremotehostalqd1C1[[deptx[[ix]]]]+invremotehostalqx1C1[[ix]],{ix,nx}] Print[invremotehostalqd1C1] (* Acumula a nivel departamental la variable invremotehostalqx1C1 imputable al servicio de Circuitos Rango C *) Print["invremotehostalqd1LL"] invremotehostalqd1LL=zerod; Do[invremotehostalqd1LL[[deptx[[ix]]]]=invremotehostalqd1LL[[deptx[[ix]]]]+invremotehostalqx1LL[[ix]],{ix,nx}] Print[invremotehostalqd1LL] (* Acumula a nivel departamental la variable invremotehostalqx1LL imputable al servicio de Circuitos Local Lima *) Print["invremotehostalqd1LP"] invremotehostalqd1LP=zerod; Do[invremotehostalqd1LP[[deptx[[ix]]]]=invremotehostalqd1LP[[deptx[[ix]]]]+invremotehostalqx1LP[[ix]],{ix,nx}] Print[invremotehostalqd1LP] (* Acumula a nivel departamental la variable invremotehostalqx1LP imputable al servicio de Circuitos Local Provincias *) Print["invremotehostalqd1AS"] invremotehostalqd1AS=zerod; Do[invremotehostalqd1AS[[deptx[[ix]]]]=invremotehostalqd1AS[[deptx[[ix]]]]+invremotehostalqx1AS[[ix]],{ix,nx}] Print[invremotehostalqd1AS] (* Acumula a nivel departamental la variable invremotehostalqx1AS imputable al servicio de Circuitos Rango A Satelital*) Print["invremotehostalqd1BS"] invremotehostalqd1BS=zerod; Do[invremotehostalqd1BS[[deptx[[ix]]]]=invremotehostalqd1BS[[deptx[[ix]]]]+invremotehostalqx1BS[[ix]],{ix,nx}] Print[invremotehostalqd1BS] (* Acumula a nivel departamental la variable invremotehostalqx1BS imputable al servicio de Circuitos Rango B Satelital*) Print["invremotehostalqd1CS"] invremotehostalqd1CS=zerod; Do[invremotehostalqd1CS[[deptx[[ix]]]]=invremotehostalqd1CS[[deptx[[ix]]]]+invremotehostalqx1CS[[ix]],{ix,nx}] Print[invremotehostalqd1CS] (* Acumula a nivel departamental la variable invremotehostalqx1CS imputable al servicio de Circuitos Rango C Satelital*) Print["invremotehostalqd1ABC2"] invremotehostalqd1ABC2=zerod; Do[invremotehostalqd1ABC2[[deptx[[ix]]]]=invremotehostalqd1ABC2[[deptx[[ix]]]]+invremotehostalqx1ABC2[[ix]],{ix,nx }] Print[invremotehostalqd1ABC2] (* Acumula a nivel departamental la variable invremotehostalqx1ABC2 imputable al servicio de Otros Circuitos Rango A, B y C *) Print["invremotehostalqd1ABCnop"] invremotehostalqd1ABCnop=zerod; Do[invremotehostalqd1ABCnop[[deptx[[ix]]]]=invremotehostalqd1ABCnop[[deptx[[ix]]]]+invremotehostalqx1ABCnop[[ix]], {ix,nx}] Print[invremotehostalqd1ABCnop] (* Acumula a nivel departamental la variable invremotehostalqx1ABCnop imputable al servicio de Circuitos de No Operadores*) Print["invremotehostitxd1"] invremotehostitxd1=zerod; Do[invremotehostitxd1[[deptx[[ix]]]]=invremotehostitxd1[[deptx[[ix]]]]+invremotehostitxx1[[ix]],{ix,nx}] Print[invremotehostitxd1] (* Acumula a nivel departamental la variable invremotehostitxx1 imputable al servicio de Circuitos de Interconexión *) Print["invremotehostadsld1"] invremotehostadsld1=zerod; Do[invremotehostadsld1[[deptx[[ix]]]]=invremotehostadsld1[[deptx[[ix]]]]+invremotehostadslx1[[ix]],{ix,nx}] Print[invremotehostadsld1] (* Acumula a nivel departamental la variable invremotehostadslx1 imputable al servicio de ADSL *) Print["invremotehostTOTALd1"] invremotehostTOTALd1=zerod; Do[invremotehostTOTALd1[[deptx[[ix]]]]=invremotehostTOTALd1[[deptx[[ix]]]]+invremotehostTOTALx1[[ix]],{ix,nx}] Print[invremotehostTOTALd1] (* Acumula a nivel departamental la variable invremotehostTOTALx1 imputable a todos los servicios *) Print["invremotehostx2"] invremotehostx2=zerox; Do[If[fiberx[[ix]],invremotehostx2[[ix]]=fiberinvremotehostx2[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostx2[[ix]]=0.55*invremotehostx2[[ix]]];,{ix,nx}]; Print[invremotehostx2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Voz. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostx2, en todos los demás casos es cero. El resultado se 146 Modelo_Integral_ACK.nb multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostLocx2"] invremotehostLocx2=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLocx2[[ix]]=invremotehostx2[[ix]]*loadcompRHLocx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}]; Print[invremotehostLocx2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio Local de Voz. *) Print["invremotehostLDNx2"] invremotehostLDNx2=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLDNx2[[ix]]=invremotehostx2[[ix]]*loadcompRHLDNx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}]; Print[invremotehostLDNx2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio LDN de Voz. *) Print["invremotehostLDIx2"] invremotehostLDIx2=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLDIx2[[ix]]=invremotehostx2[[ix]]*loadcompRHLDIx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}]; Print[invremotehostLDIx2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio LDI de Voz. *) Print["invremotehostalqx2A1"] invremotehostalqx2A1=zerox; Do[If[fiberx[[ix]],invremotehostalqx2A1[[ix]]=fiberinvremotehostalqx2A1[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2A1[[ix]]=0.55*invremotehostalqx2A1[[ix]]];,{ix,nx}]; Print[invremotehostalqx2A1] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango A. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2A1, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2B1"] invremotehostalqx2B1=zerox; Do[If[fiberxPixT,invremotehostalqx2B1PixT=fiberinvremotehostalqx2B1PixT],{ix,nx}] Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado, invremotehostalqx2B1PixT=0.55*invremotehostalqx2B1PixT];,{ix,nx}]; Print[invremotehostalqx2B1] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango B. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2B1, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2C1"] invremotehostalqx2C1=zerox; Do[If[fiberxPixT,invremotehostalqx2C1PixT=fiberinvremotehostalqx2C1PixT],{ix,nx}] Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado, invremotehostalqx2C1PixT=0.55*invremotehostalqx2C1PixT];,{ix,nx}]; Print[invremotehostalqx2C1] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango C. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2C1, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2LL"] invremotehostalqx2LL=zerox; Do[If[fiberx[[ix]],invremotehostalqx2LL[[ix]]=fiberinvremotehostalqx2LL[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2LL[[ix]]=0.55*invremotehostalqx2LL[[ix]]];,{ix,nx}]; Print[invremotehostalqx2LL] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Local Lima. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2LL, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2LP"] invremotehostalqx2LP=zerox; Do[If[fiberx[[ix]],invremotehostalqx2LP[[ix]]=fiberinvremotehostalqx2LP[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2LP[[ix]]=0.55*invremotehostalqx2LP[[ix]]];,{ix,nx}]; Print[invremotehostalqx2LP] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Local Lima. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2LL, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2AS"] invremotehostalqx2AS=zerox; Do[If[fiberx[[ix]],invremotehostalqx2AS[[ix]]=fiberinvremotehostalqx2AS[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2AS[[ix]]=0.55*invremotehostalqx2AS[[ix]]];,{ix,nx}]; Print[invremotehostalqx2AS] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango A 147 Modelo_Integral_ACK.nb Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2AS, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2BS"] invremotehostalqx2BS=zerox; Do[If[fiberx[[ix]],invremotehostalqx2BS[[ix]]=fiberinvremotehostalqx2BS[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2BS[[ix]]=0.55*invremotehostalqx2BS[[ix]]];,{ix,nx}]; Print[invremotehostalqx2BS] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango B Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2BS, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2CS"] invremotehostalqx2CS=zerox; Do[If[fiberx[[ix]],invremotehostalqx2CS[[ix]]=fiberinvremotehostalqx2CS[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2CS[[ix]]=0.55*invremotehostalqx2CS[[ix]]];,{ix,nx}]; Print[invremotehostalqx2CS] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos Rango C Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2CS, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2ABC2"] invremotehostalqx2ABC2=zerox; Do[If[fiberx[[ix]],invremotehostalqx2ABC2[[ix]]=fiberinvremotehostalqx2ABC2[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2ABC2[[ix]]=0.55*invremotehostalqx2ABC2[[ix]]];,{ix,nx}]; Print[invremotehostalqx2ABC2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Otros Circuitos Rango A, B y C. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2ABC2, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx2ABCnop"] invremotehostalqx2ABCnop=zerox; Do[If[fiberx[[ix]],invremotehostalqx2ABCnop[[ix]]=fiberinvremotehostalqx2ABCnop[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostalqx2ABCnop[[ix]]=0.55*invremotehostalqx2ABCnop[[ix]]];,{ix,nx}]; Print[invremotehostalqx2ABCnop] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos de No Operadores. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx2B1nop, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostitxx2"] invremotehostitxx2=zerox; Do[If[fiberx[[ix]],invremotehostitxx2[[ix]]=fiberinvremotehostitxx2[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]==Enterrado, invremotehostitxx2[[ix]]=0.55*invremotehostitxx2[[ix]]];,{ix,nx}]; Print[invremotehostitxx2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de Circuitos de Interconexión. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostitxx2, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostadslx2"] invremotehostadslx2=zerox; Do[If[fiberxPixT,invremotehostadslx2PixT=fiberinvremotehostadslx2PixT],{ix,nx}] Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado, invremotehostadslx2[[ix]]=0.55*invremotehostadslx2[[ix]]];,{ix,nx}]; Print[invremotehostadslx2] (* Compila o resume el total de inversiones aplicable a los cables imputable al servicio de ADSL. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostadslx2, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostTOTALx2"] invremotehostTOTALx2=zerox; Do[If[fiberxPixT,invremotehostTOTALx2PixT=fiberinvremotehostTOTALx2PixT],{ix,nx}] Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado, invremotehostTOTALx2PixT=0.55*invremotehostTOTALx2PixT];,{ix,nx}]; Print[invremotehostTOTALx2] (* Compila o resume el total de inversiones aplicable a los cables imputable a todos los servicios. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostTOTALx2, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostd2"] invremotehostd2=zerod; 148 Modelo_Integral_ACK.nb Do[invremotehostd2[[deptx[[ix]]]]=invremotehostd2[[deptx[[ix]]]]+invremotehostx2[[ix]],{ix,nx}] Print[invremotehostd2] (* Acumula a nivel departamental la variable invremotehostx2 imputable al servicio de Voz *) Print["invremotehostLocd2"] invremotehostLocd2=zerod; Do[invremotehostLocd2[[deptx[[ix]]]]=invremotehostLocd2[[deptx[[ix]]]]+invremotehostLocx2[[ix]],{ix,nx}] Print[invremotehostLocd2] (* Acumula a nivel departamental la variable invremotehostLocx2 imputable al servicio Local de Voz *) Print["invremotehostLDNd2"] invremotehostLDNd2=zerod; Do[invremotehostLDNd2[[deptx[[ix]]]]=invremotehostLDNd2[[deptx[[ix]]]]+invremotehostLDNx2[[ix]],{ix,nx}] Print[invremotehostLDNd2] (* Acumula a nivel departamental la variable invremotehostLDNx2 imputable al servicio LDN de Voz *) Print["invremotehostLDId2"] invremotehostLDId2=zerod; Do[invremotehostLDId2[[deptx[[ix]]]]=invremotehostLDId2[[deptx[[ix]]]]+invremotehostLDIx2[[ix]],{ix,nx}] Print[invremotehostLDId2] (* Acumula a nivel departamental la variable invremotehostLDIx2 imputable al servicio LDI de Voz *) Print["invremotehostalqd2A1"] invremotehostalqd2A1=zerod; Do[invremotehostalqd2A1[[deptx[[ix]]]]=invremotehostalqd2A1[[deptx[[ix]]]]+invremotehostalqx2A1[[ix]],{ix,nx}] Print[invremotehostalqd2A1] (* Acumula a nivel departamental la variable invremotehostalqx2A1 imputable al servicio de Circuitos Rango A *) Print["invremotehostalqd2B1"] invremotehostalqd2B1=zerod; Do[invremotehostalqd2B1[[deptx[[ix]]]]=invremotehostalqd2B1[[deptx[[ix]]]]+invremotehostalqx2B1[[ix]],{ix,nx}] Print[invremotehostalqd2B1] (* Acumula a nivel departamental la variable invremotehostalqx2B1 imputable al servicio de Circuitos Rango B *) Print["invremotehostalqd2C1"] invremotehostalqd2C1=zerod; Do[invremotehostalqd2C1[[deptx[[ix]]]]=invremotehostalqd2C1[[deptx[[ix]]]]+invremotehostalqx2C1[[ix]],{ix,nx}] Print[invremotehostalqd2C1] (* Acumula a nivel departamental la variable invremotehostalqx2C1 imputable al servicio de Circuitos Rango C *) Print["invremotehostalqd2LL"] invremotehostalqd2LL=zerod; Do[invremotehostalqd2LL[[deptx[[ix]]]]=invremotehostalqd2LL[[deptx[[ix]]]]+invremotehostalqx2LL[[ix]],{ix,nx}] Print[invremotehostalqd2LL] (* Acumula a nivel departamental la variable invremotehostalqx2LL imputable al servicio de Circuitos Local Lima *) Print["invremotehostalqd2LP"] invremotehostalqd2LP=zerod; Do[invremotehostalqd2LP[[deptx[[ix]]]]=invremotehostalqd2LP[[deptx[[ix]]]]+invremotehostalqx2LP[[ix]],{ix,nx}] Print[invremotehostalqd2LP] (* Acumula a nivel departamental la variable invremotehostalqx2LP imputable al servicio de Circuitos Local Provincias *) Print["invremotehostalqd2AS"] invremotehostalqd2AS=zerod; Do[invremotehostalqd2AS[[deptx[[ix]]]]=invremotehostalqd2AS[[deptx[[ix]]]]+invremotehostalqx2AS[[ix]],{ix,nx}] Print[invremotehostalqd2AS] (* Acumula a nivel departamental la variable invremotehostalqx2AS imputable al servicio de Circuitos Rango A Satelital*) Print["invremotehostalqd2BS"] invremotehostalqd2BS=zerod; Do[invremotehostalqd2BS[[deptx[[ix]]]]=invremotehostalqd2BS[[deptx[[ix]]]]+invremotehostalqx2BS[[ix]],{ix,nx}] Print[invremotehostalqd2BS] (* Acumula a nivel departamental la variable invremotehostalqx2BS imputable al servicio de Circuitos Rango B Satelital*) Print["invremotehostalqd2CS"] invremotehostalqd2CS=zerod; Do[invremotehostalqd2CS[[deptx[[ix]]]]=invremotehostalqd2CS[[deptx[[ix]]]]+invremotehostalqx2CS[[ix]],{ix,nx}] Print[invremotehostalqd2CS] (* Acumula a nivel departamental la variable invremotehostalqx2CS imputable al servicio de Circuitos Rango C Satelital*) Print["invremotehostalqd2ABC2"] invremotehostalqd2ABC2=zerod; Do[invremotehostalqd2ABC2[[deptx[[ix]]]]=invremotehostalqd2ABC2[[deptx[[ix]]]]+invremotehostalqx2ABC2[[ix]],{ix,nx }] Print[invremotehostalqd2ABC2] (* Acumula a nivel departamental la variable invremotehostalqx2ABC2 imputable al servicio de Otros Circuitos Rango A, B y C*) Print["invremotehostalqd2ABCnop"] invremotehostalqd2ABCnop=zerod; Do[invremotehostalqd2ABCnop[[deptx[[ix]]]]=invremotehostalqd2ABCnop[[deptx[[ix]]]]+invremotehostalqx2ABCnop[[ix]], {ix,nx}] Print[invremotehostalqd2ABCnop] (* Acumula a nivel departamental la variable invremotehostalqx2ABCnop imputable al servicio de Circuitos de No Operadores*) Print["invremotehostitxd2"] 149 Modelo_Integral_ACK.nb invremotehostitxd2=zerod; Do[invremotehostitxd2[[deptx[[ix]]]]=invremotehostitxd2[[deptx[[ix]]]]+invremotehostitxx2[[ix]],{ix,nx}] Print[invremotehostitxd2] (* Acumula a nivel departamental la variable invremotehostitxx2 imputable al servicio de Circuitos de Interconexión *) Print["invremotehostadsld2"] invremotehostadsld2=zerod; Do[invremotehostadsld2[[deptx[[ix]]]]=invremotehostadsld2[[deptx[[ix]]]]+invremotehostadslx2[[ix]],{ix,nx}] Print[invremotehostadsld2] (* Acumula a nivel departamental la variable invremotehostadslx2 imputable al servicio de ADSL *) Print["invremotehostTOTALd2"] invremotehostTOTALd2=zerod; Do[invremotehostTOTALd2[[deptx[[ix]]]]=invremotehostTOTALd2[[deptx[[ix]]]]+invremotehostTOTALx2[[ix]],{ix,nx}] Print[invremotehostTOTALd2] (* Acumula a nivel departamental la variable invremotehostTOTALx2 imputable a todos los servicios*) Print["invremotehostx3"] invremotehostx3=zerox; Do[If[fiberx[[ix]],invremotehostx3[[ix]]=fiberinvremotehostx3[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostx3[[ix]]=0.55*invremotehostx3[[ix]]];,{ix,nx}]; Print[invremotehostx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Voz. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostx3, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostLocx3"] invremotehostLocx3=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLocx3[[ix]]=invremotehostx3[[ix]]*loadcompRHLocx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}] Print[invremotehostLocx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio Local de Voz.*) Print["invremotehostLDNx3"] invremotehostLDNx3=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLDNx3[[ix]]=invremotehostx3[[ix]]*loadcompRHLDNx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}] Print[invremotehostLDNx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio LDN de Voz.*) Print["invremotehostLDIx3"] invremotehostLDIx3=zerox; Do[If[loadcompRHx[[ix]]>0,invremotehostLDIx3[[ix]]=invremotehostx3[[ix]]*loadcompRHLDIx[[ix]]/loadcompRHx[[ix]]],{ ix,nx}] Print[invremotehostLDIx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio LDI de Voz.*) Print["invremotehostalqx3A1"] invremotehostalqx3A1=zerox; Do[If[fiberx[[ix]],invremotehostalqx3A1[[ix]]=fiberinvremotehostalqx3A1[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3A1[[ix]]=0.55*invremotehostalqx3A1[[ix]]];,{ix,nx}]; Print[invremotehostalqx3A1] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango A. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3A1, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3B1"] invremotehostalqx3B1=zerox; Do[If[fiberx[[ix]],invremotehostalqx3B1[[ix]]=fiberinvremotehostalqx3B1[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3B1[[ix]]=0.55*invremotehostalqx3B1[[ix]]];,{ix,nx}]; Print[invremotehostalqx3B1] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango B. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3B1, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3C1"] invremotehostalqx3C1=zerox; Do[If[fiberx[[ix]],invremotehostalqx3C1[[ix]]=fiberinvremotehostalqx3C1[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3C1[[ix]]=0.55*invremotehostalqx3C1[[ix]]];,{ix,nx}]; Print[invremotehostalqx3C1] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango C. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3C1, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3LL"] invremotehostalqx3LL=zerox; Do[If[fiberx[[ix]],invremotehostalqx3LL[[ix]]=fiberinvremotehostalqx3LL[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, 150 Modelo_Integral_ACK.nb invremotehostalqx3LL[[ix]]=0.55*invremotehostalqx3LL[[ix]]];,{ix,nx}]; Print[invremotehostalqx3LL] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Local Lima. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3LL, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3LP"] invremotehostalqx3LP=zerox; Do[If[fiberx[[ix]],invremotehostalqx3LP[[ix]]=fiberinvremotehostalqx3LP[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3LP[[ix]]=0.55*invremotehostalqx3LP[[ix]]];,{ix,nx}]; Print[invremotehostalqx3LP] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Local Provincias. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3LP, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3AS"] invremotehostalqx3AS=zerox; Do[If[fiberx[[ix]],invremotehostalqx3AS[[ix]]=fiberinvremotehostalqx3AS[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3AS[[ix]]=0.55*invremotehostalqx3AS[[ix]]];,{ix,nx}]; Print[invremotehostalqx3AS] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango A Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3AS, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3BS"] invremotehostalqx3BS=zerox; Do[If[fiberx[[ix]],invremotehostalqx3BS[[ix]]=fiberinvremotehostalqx3BS[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3BS[[ix]]=0.55*invremotehostalqx3BS[[ix]]];,{ix,nx}]; Print[invremotehostalqx3BS] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango B Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3BS, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3CS"] invremotehostalqx3CS=zerox; Do[If[fiberx[[ix]],invremotehostalqx3CS[[ix]]=fiberinvremotehostalqx3CS[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3CS[[ix]]=0.55*invremotehostalqx3CS[[ix]]];,{ix,nx}]; Print[invremotehostalqx3CS] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos Rango C Satelital. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3CS, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3ABC2"] invremotehostalqx3ABC2=zerox; Do[If[fiberx[[ix]],invremotehostalqx3ABC2[[ix]]=fiberinvremotehostalqx3ABC2[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3ABC2[[ix]]=0.55*invremotehostalqx3ABC2[[ix]]];,{ix,nx}]; Print[invremotehostalqx3ABC2] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Otros Circuitos Rango A, B y C. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3ABC2, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostalqx3ABCnop"] invremotehostalqx3ABCnop=zerox; Do[If[fiberx[[ix]],invremotehostalqx3ABCnop[[ix]]=fiberinvremotehostalqx3ABCnop[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostalqx3ABCnop[[ix]]=0.55*invremotehostalqx3ABCnop[[ix]]];,{ix,nx}]; Print[invremotehostalqx3ABCnop] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos de No Operadores. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostalqx3ABCnop, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostitxx3"] invremotehostitxx3=zerox; Do[If[fiberx[[ix]],invremotehostitxx3[[ix]]=fiberinvremotehostitxx3[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostitxx3[[ix]]=0.55*invremotehostitxx3[[ix]]];,{ix,nx}]; Print[invremotehostitxx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de Circuitos de Interconexión. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostitxx3, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) 151 Modelo_Integral_ACK.nb Print["invremotehostadslx3"] invremotehostadslx3=zerox; Do[If[fiberx[[ix]],invremotehostadslx3[[ix]]=fiberinvremotehostadslx3[[ix]]],{ix,nx}] Do[If[deptx[[ix]]≠ LIMA && transtechx[[ix]]Enterrado, invremotehostadslx3[[ix]]=0.55*invremotehostadslx3[[ix]]];,{ix,nx}]; Print[invremotehostadslx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable al servicio de ADSL. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostadslx3, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostTOTALx3"] invremotehostTOTALx3=zerox; Do[If[fiberxPixT,invremotehostTOTALx3PixT=fiberinvremotehostTOTALx3PixT],{ix,nx}] Do[If[deptxPixT≠ LIMA fl transtechxPixTEnterrado, invremotehostTOTALx3PixT=0.55*invremotehostTOTALx3PixT];,{ix,nx}]; Print[invremotehostTOTALx3] (* Compila o resume el total de inversiones aplicable a obras civiles imputable a todos los servicios. Como dicha información sólo es aplicable para el uso de fibra, simplemente si la Tandem del departamento es fibra se considera el nivel de inversión fiberinvremotehostTOTALx3, en todos los demás casos es cero. El resultado se multiplica por el factor de compartición de fibra enterrada para los nodos fuera de Lima (En el modelo de la red fija se definió que el 45% se comparte) *) Print["invremotehostd3"] invremotehostd3=zerod; Do[invremotehostd3PdeptxPixTT=invremotehostd3PdeptxPixTT+invremotehostx3PixT,{ix,nx}] Print[invremotehostd3] (* Acumula a nivel departamental la variable invremotehostx3 imputable al servicio de Voz*) Print["invremotehostLocd3"] invremotehostLocd3=zerod; Do[invremotehostLocd3PdeptxPixTT=invremotehostLocd3PdeptxPixTT+invremotehostLocx3PixT,{ix,nx}] Print[invremotehostLocd3] (* Acumula a nivel departamental la variable invremotehostLocx3 imputable al servicio Local de Voz*) Print["invremotehostLDNd3"] invremotehostLDNd3=zerod; Do[invremotehostLDNd3PdeptxPixTT=invremotehostLDNd3PdeptxPixTT+invremotehostLDNx3PixT,{ix,nx}] Print[invremotehostLDNd3] (* Acumula a nivel departamental la variable invremotehostLDNx3 imputable al servicio LDN de Voz*) Print["invremotehostLDId3"] invremotehostLDId3=zerod; Do[invremotehostLDId3[[deptx[[ix]]]]=invremotehostLDId3[[deptx[[ix]]]]+invremotehostLDIx3[[ix]],{ix,nx}] Print[invremotehostLDId3] (* Acumula a nivel departamental la variable invremotehostLDIx3 imputable al servicio LDI de Voz*) Print["invremotehostalqd3A1"] invremotehostalqd3A1=zerod; Do[invremotehostalqd3A1[[deptx[[ix]]]]=invremotehostalqd3A1[[deptx[[ix]]]]+invremotehostalqx3A1[[ix]],{ix,nx}] Print[invremotehostalqd3A1] (* Acumula a nivel departamental la variable invremotehostalqx3A1 imputable al servicio de Circuitos Rango A *) Print["invremotehostalqd3B1"] invremotehostalqd3B1=zerod; Do[invremotehostalqd3B1[[deptx[[ix]]]]=invremotehostalqd3B1[[deptx[[ix]]]]+invremotehostalqx3B1[[ix]],{ix,nx}] Print[invremotehostalqd3B1] (* Acumula a nivel departamental la variable invremotehostalqx3B1 imputable al servicio de Circuitos Rango B *) Print["invremotehostalqd3C1"] invremotehostalqd3C1=zerod; Do[invremotehostalqd3C1[[deptx[[ix]]]]=invremotehostalqd3C1[[deptx[[ix]]]]+invremotehostalqx3C1[[ix]],{ix,nx}] Print[invremotehostalqd3C1] (* Acumula a nivel departamental la variable invremotehostalqx3C1 imputable al servicio de Circuitos Rango C *) Print["invremotehostalqd3LL"] invremotehostalqd3LL=zerod; Do[invremotehostalqd3LL[[deptx[[ix]]]]=invremotehostalqd3LL[[deptx[[ix]]]]+invremotehostalqx3LL[[ix]],{ix,nx}] Print[invremotehostalqd3LL] (* Acumula a nivel departamental la variable invremotehostalqx3LL imputable al servicio de Circuitos Local Lima *) Print["invremotehostalqd3LP"] invremotehostalqd3LP=zerod; Do[invremotehostalqd3LP[[deptx[[ix]]]]=invremotehostalqd3LP[[deptx[[ix]]]]+invremotehostalqx3LP[[ix]],{ix,nx}] Print[invremotehostalqd3LP] (* Acumula a nivel departamental la variable invremotehostalqx3LP imputable al servicio de Circuitos Local Provincias *) Print["invremotehostalqd3AS"] invremotehostalqd3AS=zerod; Do[invremotehostalqd3AS[[deptx[[ix]]]]=invremotehostalqd3AS[[deptx[[ix]]]]+invremotehostalqx3AS[[ix]],{ix,nx}] Print[invremotehostalqd3AS] (* Acumula a nivel departamental la variable invremotehostalqx3AS imputable al servicio de Circuitos Rango A Satelital*) Print["invremotehostalqd3BS"] invremotehostalqd3BS=zerod; Do[invremotehostalqd3BS[[deptx[[ix]]]]=invremotehostalqd3BS[[deptx[[ix]]]]+invremotehostalqx3BS[[ix]],{ix,nx}] Print[invremotehostalqd3BS] 152 Modelo_Integral_ACK.nb (* Acumula a nivel departamental la variable invremotehostalqx3BS imputable al servicio de Circuitos Rango B Satelital*) Print["invremotehostalqd3CS"] invremotehostalqd3CS=zerod; Do[invremotehostalqd3CS[[deptx[[ix]]]]=invremotehostalqd3CS[[deptx[[ix]]]]+invremotehostalqx3CS[[ix]],{ix,nx}] Print[invremotehostalqd3CS] (* Acumula a nivel departamental la variable invremotehostalqx3CS imputable al servicio de Circuitos Rango C Satelital*) Print["invremotehostalqd3ABC2"] invremotehostalqd3ABC2=zerod; Do[invremotehostalqd3ABC2[[deptx[[ix]]]]=invremotehostalqd3ABC2[[deptx[[ix]]]]+invremotehostalqx3ABC2[[ix]],{ix,nx }] Print[invremotehostalqd3ABC2] (* Acumula a nivel departamental la variable invremotehostalqx3ABC2 imputable al servicio de Otros Circuitos Rango A, B y C*) Print["invremotehostalqd3ABCnop"] invremotehostalqd3ABCnop=zerod; Do[invremotehostalqd3ABCnop[[deptx[[ix]]]]=invremotehostalqd3ABCnop[[deptx[[ix]]]]+invremotehostalqx3ABCnop[[ix]], {ix,nx}] Print[invremotehostalqd3ABCnop] (* Acumula a nivel departamental la variable invremotehostalqx3ABCnop imputable al servicio de Circuitos de No Operadores*) Print["invremotehostitxd3"] invremotehostitxd3=zerod; Do[invremotehostitxd3[[deptx[[ix]]]]=invremotehostitxd3[[deptx[[ix]]]]+invremotehostitxx3[[ix]],{ix,nx}] Print[invremotehostitxd3] (* Acumula a nivel departamental la variable invremotehostitxx3 imputable al servicio de Circuitos de Interconexión*) Print["invremotehostadsld3"] invremotehostadsld3=zerod; Do[invremotehostadsld3[[deptx[[ix]]]]=invremotehostadsld3[[deptx[[ix]]]]+invremotehostadslx3[[ix]],{ix,nx}] Print[invremotehostadsld3] (* Acumula a nivel departamental la variable invremotehostadslx3 imputable al servicio de ADSL*) Print["invremotehostTOTALd3"] invremotehostTOTALd3=zerod; Do[invremotehostTOTALd3[[deptx[[ix]]]]=invremotehostTOTALd3[[deptx[[ix]]]]+invremotehostTOTALx3[[ix]],{ix,nx}] Print[invremotehostTOTALd3] (* Acumula a nivel departamental la variable invremotehostTOTALx3 imputable a todos los servicios*) Print["invremotehostx"] invremotehostx=invremotehostx1+invremotehostx2+invremotehostx3; Print[invremotehostx] (* Total de inversiones en Tx a nivel RH imputable al servicio de Voz *) Print["invremotehostLocx"] invremotehostLocx=invremotehostLocx1+invremotehostLocx2+invremotehostLocx3; Print[invremotehostLocx] (* Total de inversiones en Tx a nivel RH imputable al servicio Local de Voz *) Print["invremotehostLDNx"] invremotehostLDNx=invremotehostLDNx1+invremotehostLDNx2+invremotehostLDNx3; Print[invremotehostLDNx] (* Total de inversiones en Tx a nivel RH imputable al servicio LDN de Voz *) Print["invremotehostLDIx"] invremotehostLDIx=invremotehostLDIx1+invremotehostLDIx2+invremotehostLDIx3; Print[invremotehostLDIx] (* Total de inversiones en Tx a nivel RH imputable al servicio LDI de Voz *) Print["invremotehostalqxA1"] invremotehostalqxA1=invremotehostalqx1A1+invremotehostalqx2A1+invremotehostalqx3A1; Print[invremotehostalqxA1] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango A *) Print["invremotehostalqxB1"] invremotehostalqxB1=invremotehostalqx1B1+invremotehostalqx2B1+invremotehostalqx3B1; Print[invremotehostalqxB1] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango B *) Print["invremotehostalqxC1"] invremotehostalqxC1=invremotehostalqx1C1+invremotehostalqx2C1+invremotehostalqx3C1; Print[invremotehostalqxC1] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango C *) Print["invremotehostalqxLL"] invremotehostalqxLL=invremotehostalqx1LL+invremotehostalqx2LL+invremotehostalqx3LL; Print[invremotehostalqxLL] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Local Lima *) Print["invremotehostalqxLP"] invremotehostalqxLP=invremotehostalqx1LP+invremotehostalqx2LP+invremotehostalqx3LP; Print[invremotehostalqxLP] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Local Provincias *) Print["invremotehostalqxAS"] 153 Modelo_Integral_ACK.nb invremotehostalqxAS=invremotehostalqx1AS+invremotehostalqx2AS+invremotehostalqx3AS; Print[invremotehostalqxAS] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango A Satelital*) Print["invremotehostalqxBS"] invremotehostalqxBS=invremotehostalqx1BS+invremotehostalqx2BS+invremotehostalqx3BS; Print[invremotehostalqxBS] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango B Satelital*) Print["invremotehostalqxCS"] invremotehostalqxCS=invremotehostalqx1CS+invremotehostalqx2CS+invremotehostalqx3CS; Print[invremotehostalqxCS] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos Rango C Satelital*) Print["invremotehostalqxABC2"] invremotehostalqxABC2=invremotehostalqx1ABC2+invremotehostalqx2ABC2+invremotehostalqx3ABC2; Print[invremotehostalqxABC2] (* Total de inversiones en Tx a nivel RH imputable al servicio de Otros Circuitos Rango A, B y C*) Print["invremotehostalqxABCnop"] invremotehostalqxABCnop=invremotehostalqx1ABCnop+invremotehostalqx2ABCnop+invremotehostalqx3ABCnop; Print[invremotehostalqxABCnop] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos de No Operadores*) Print["invremotehostitxx"] invremotehostitxx=invremotehostitxx1+invremotehostitxx2+invremotehostitxx3; Print[invremotehostitxx] (* Total de inversiones en Tx a nivel RH imputable al servicio de Circuitos de Interconexión *) Print["invremotehostdslx"] invremotehostadslx=invremotehostadslx1+invremotehostadslx2+invremotehostadslx3; Print[invremotehostadslx] (* Total de inversiones en Tx a nivel RH imputable al servicio de ADSL *) Print["invremotehostTOTALx"] invremotehostTOTALx=invremotehostTOTALx1+invremotehostTOTALx2+invremotehostTOTALx3; Print[invremotehostTOTALx] (* Total de inversiones en Tx a nivel RH imputable a todos los servicios *) Print["invremotehostd"] invremotehostd=zerod; Do[invremotehostd[[deptx[[ix]]]]=invremotehostd[[deptx[[ix]]]]+invremotehostx[[ix]],{ix,nx}] Print[invremotehostd] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Voz *) Print["invremotehostLocd"] invremotehostLocd=zerod; Do[invremotehostLocd[[deptx[[ix]]]]=invremotehostLocd[[deptx[[ix]]]]+invremotehostLocx[[ix]],{ix,nx}] Print[invremotehostLocd] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio Local de Voz *) Print["invremotehostLDNd"] invremotehostLDNd=zerod; Do[invremotehostLDNd[[deptx[[ix]]]]=invremotehostLDNd[[deptx[[ix]]]]+invremotehostLDNx[[ix]],{ix,nx}] Print[invremotehostLDNd] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio LDN de Voz *) Print["invremotehostLDId"] invremotehostLDId=zerod; Do[invremotehostLDId[[deptx[[ix]]]]=invremotehostLDId[[deptx[[ix]]]]+invremotehostLDIx[[ix]],{ix,nx}] Print[invremotehostLDId] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio LDI de Voz *) Print["invremotehostalqdA1"] invremotehostalqdA1=zerod; Do[invremotehostalqdA1[[deptx[[ix]]]]=invremotehostalqdA1[[deptx[[ix]]]]+invremotehostalqxA1[[ix]],{ix,nx}] Print[invremotehostalqdA1] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango A *) Print["invremotehostalqdB1"] invremotehostalqdB1=zerod; Do[invremotehostalqdB1[[deptx[[ix]]]]=invremotehostalqdB1[[deptx[[ix]]]]+invremotehostalqxB1[[ix]],{ix,nx}] Print[invremotehostalqdB1] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango B *) Print["invremotehostalqdC1"] invremotehostalqdC1=zerod; Do[invremotehostalqdC1[[deptx[[ix]]]]=invremotehostalqdC1[[deptx[[ix]]]]+invremotehostalqxC1[[ix]],{ix,nx}] Print[invremotehostalqdC1] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango C *) Print["invremotehostalqdLL"] invremotehostalqdLL=zerod; Do[invremotehostalqdLL[[deptx[[ix]]]]=invremotehostalqdLL[[deptx[[ix]]]]+invremotehostalqxLL[[ix]],{ix,nx}] Print[invremotehostalqdLL] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Local Lima *) Print["invremotehostalqdLP"] invremotehostalqdLP=zerod; Do[invremotehostalqdLP[[deptx[[ix]]]]=invremotehostalqdLP[[deptx[[ix]]]]+invremotehostalqxLP[[ix]],{ix,nx}] Print[invremotehostalqdLP] 154 Modelo_Integral_ACK.nb (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Local Provincias *) Print["invremotehostalqdAS"] invremotehostalqdAS=zerod; Do[invremotehostalqdAS[[deptx[[ix]]]]=invremotehostalqdAS[[deptx[[ix]]]]+invremotehostalqxAS[[ix]],{ix,nx}] Print[invremotehostalqdAS] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango A Satelital*) Print["invremotehostalqdBS"] invremotehostalqdBS=zerod; Do[invremotehostalqdBS[[deptx[[ix]]]]=invremotehostalqdBS[[deptx[[ix]]]]+invremotehostalqxBS[[ix]],{ix,nx}] Print[invremotehostalqdBS] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango B Satelital*) Print["invremotehostalqdCS"] invremotehostalqdCS=zerod; Do[invremotehostalqdCS[[deptx[[ix]]]]=invremotehostalqdCS[[deptx[[ix]]]]+invremotehostalqxCS[[ix]],{ix,nx}] Print[invremotehostalqdCS] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos Rango C Satelital*) Print["invremotehostalqdABC2"] invremotehostalqdABC2=zerod; Do[invremotehostalqdABC2[[deptx[[ix]]]]=invremotehostalqdABC2[[deptx[[ix]]]]+invremotehostalqxABC2[[ix]],{ix,nx}] Print[invremotehostalqdABC2] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Otros Circuitos Rango A, B y C*) Print["invremotehostalqdABCnop"] invremotehostalqdABCnop=zerod; Do[invremotehostalqdABCnop[[deptx[[ix]]]]=invremotehostalqdABCnop[[deptx[[ix]]]]+invremotehostalqxABCnop[[ix]],{ix ,nx}] Print[invremotehostalqdABCnop] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos de No Operadores*) Print["invremotehostitxd"] invremotehostitxd=zerod; Do[invremotehostitxd[[deptx[[ix]]]]=invremotehostitxd[[deptx[[ix]]]]+invremotehostitxx[[ix]],{ix,nx}] Print[invremotehostitxd] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de Circuitos de Interconexión *) Print["invremotehostadsld"] invremotehostadsld=zerod; Do[invremotehostadsld[[deptx[[ix]]]]=invremotehostadsld[[deptx[[ix]]]]+invremotehostadslx[[ix]],{ix,nx}] Print[invremotehostadsld] (* Total de inversiones en Tx a nivel RH por departamento imputable al servicio de ADSL *) Print["invremotehostTOTALd"] invremotehostTOTALd=zerod; Do[invremotehostTOTALdPdeptxPixTT=invremotehostTOTALdPdeptxPixTT+invremotehostTOTALxPixT,{ix,nx}] Print[invremotehostTOTALd] (* Total de inversiones en Tx a nivel RH por departamento imputable a todos los servicios *) Print["invremotehost"] invremotehost=Plus@@invremotehostd; Print[invremotehost] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Voz *) Print["invremotehostLoc"] invremotehostLoc=Plus@@invremotehostLocd; Print[invremotehostLoc] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio Local de Voz *) Print["invremotehostLDN"] invremotehostLDN=Plus@@invremotehostLDNd; Print[invremotehostLDN] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio LDN de Voz *) Print["invremotehostLDI"] invremotehostLDI=Plus@@invremotehostLDId; Print[invremotehostLDI] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio LDI de Voz *) Print["invremotehostaqlA1"] invremotehostalqA1=Plus@@invremotehostalqdA1; Print[invremotehostalqA1] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango A *) Print["invremotehostaqlB1"] invremotehostalqB1=Plus@@invremotehostalqdB1; Print[invremotehostalqB1] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango B *) Print["invremotehostaqlC1"] invremotehostalqC1=Plus@@invremotehostalqdC1; Print[invremotehostalqC1] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango C *) Print["invremotehostaqlLL"] invremotehostalqLL=Plus@@invremotehostalqdLL; Print[invremotehostalqLL] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Local Lima *) 155 Modelo_Integral_ACK.nb Print["invremotehostaqlLP"] invremotehostalqLP=Plus@@invremotehostalqdLP; Print[invremotehostalqLP] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Local Provincias *) Print["invremotehostaqlAS"] invremotehostalqAS=Plus@@invremotehostalqdAS; Print[invremotehostalqAS] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango A Satelital*) Print["invremotehostaqlBS"] invremotehostalqBS=Plus@@invremotehostalqdBS; Print[invremotehostalqBS] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango B Satelital *) Print["invremotehostaqlCS"] invremotehostalqCS=Plus@@invremotehostalqdCS; Print[invremotehostalqCS] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos Rango C Satelital*) Print["invremotehostaqlABC2"] invremotehostalqABC2=Plus@@invremotehostalqdABC2; Print[invremotehostalqABC2] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Otros Circuitos Rango A, B y C*) Print["invremotehostaqlABCnop"] invremotehostalqABCnop=Plus@@invremotehostalqdABCnop; Print[invremotehostalqABCnop] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos de No Operadores*) Print["invremotehostitx"] invremotehostitx=Plus@@invremotehostitxd; Print[invremotehostitx] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de Circuitos de Interconexión *) Print["invremotehostadsl"] invremotehostadsl=Plus@@invremotehostadsld; Print[invremotehostadsl] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable al servicio de ADSL *) Print["invremotehostTOTAL"] invremotehostTOTAL=Plus@@invremotehostTOTALd; Print[invremotehostTOTAL] (* Total de inversiones en Tx a nivel RH a nivel nacional imputable a todos los servicios *) (*********) PRINT["INVERSIÓN POR SERVICIO - REMOTE HOST"] Resinvremotehostx=Table[0,{jx,nx},{ix,13}]; Do[ResinvremotehostxPix,1T = invremotehostxPixT; ResinvremotehostxPix,2T = invremotehostalqxA1PixT; ResinvremotehostxPix,3T = invremotehostalqxB1PixT; ResinvremotehostxPix,4T = invremotehostalqxC1PixT; ResinvremotehostxPix,5T = invremotehostalqxLLPixT; ResinvremotehostxPix,6T = invremotehostalqxLPPixT; ResinvremotehostxPix,7T = invremotehostalqxASPixT; ResinvremotehostxPix,8T = invremotehostalqxBSPixT; ResinvremotehostxPix,9T = invremotehostalqxCSPixT; ResinvremotehostxPix,10T = invremotehostalqxABC2PixT; ResinvremotehostxPix,11T = invremotehostalqxABCnopPixT; ResinvremotehostxPix,12T = invremotehostitxxPixT; ResinvremotehostxPix,13T = invremotehostadslxPixT;,{ix,nx}]; Print[Resinvremotehostx]; PrintBStyleB "RESUMEN DE INVERSIONES POR ELEMENTO Y DEPARTAENTO", Bold, 16, Underlined, White, Background → RGBColorB0, PrintBStyleB" 1 , 0FFF; 2 A NIVEL DE CONMUTACIÓN", Bold, 14, Underlined, White, Background → BlueFF; InvRemotad = remoteinvd; InvRemotaLocd = remoteinvLocd; InvRemotaLDNd = remoteinvLDNd; InvRemotaLDId = remoteinvLDId; Print@TableForm@ Table@8id, deptTXTdPidT, InvRemotadPidT, InvRemotaLocdPidT, InvRemotaLDNdPidT, InvRemotaLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "InvRemotad", "InvRemotaLocd", "InvRemotaLDNd", "InvRemotaLDId"<<DD; H∗ Inversion total en Centrales remotas locales por departamento ∗L InvHostd = hostsatinvd + hostnonsatinvd; InvHostLocd = hostsatinvLocd + hostnonsatinvLocd; InvHostLDNd = hostsatinvLDNd + hostnonsatinvLDNd; InvHostLDId = hostsatinvLDId + hostnonsatinvLDId; Print@ TableForm@Table@8id, deptTXTdPidT, InvHostdPidT, InvHostLocdPidT, InvHostLDNdPidT, InvHostLDIdPidT<, 8id, nd<D, 156 Modelo_Integral_ACK.nb TableForm@Table@8id, deptTXTdPidT, InvHostdPidT, InvHostLocdPidT, InvHostLDNdPidT, InvHostLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "InvHostd", "InvHostLocd", "InvHostLDNd", "InvHostLDId"<<DD; H∗ Inversion total en Centrales cabeceras locales por departamento ∗L InvTandemd = tandeminvd; InvTandemLocd = tandeminvLocd; InvTandemLDNd = tandeminvLDNd; InvTandemLDId = tandeminvLDId; Print@TableForm@ Table@8id, deptTXTdPidT, InvTandemdPidT, InvTandemLocdPidT, InvTandemLDNdPidT, InvTandemLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "InvTandemd", "InvTandemLocd", "InvTandemLDNd", "InvTandemLDId"<<DD; H∗ Inversion total en Centrales tándem locales por departamento ∗L InvSignald = signalfrac ∗ HInvRemotad + InvHostd + InvTandemdL; InvSignalLocd = signalfrac ∗ HInvRemotaLocd + InvHostLocd + InvTandemLocdL; InvSignalLDNd = signalfrac ∗ HInvRemotaLDNd + InvHostLDNd + InvTandemLDNdL; InvSignalLDId = signalfrac ∗ HInvRemotaLDId + InvHostLDId + InvTandemLDIdL; Print@TableForm@ Table@8id, deptTXTdPidT, InvSignaldPidT, InvSignalLocdPidT, InvSignalLDNdPidT, InvSignalLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "InvSignald", "InvSignalLocd", "InvSignalLDNd", "InvSignalLDId"<<DD; H∗ Inversion total en señalización de todas las centrales locales por departamento ∗L PrintBStyleB" A NIVEL DE TRANSMISIÓN", Bold, 14, Underlined, White, Background → BlueFF; InvRemotaHostd = invremotehostd; InvRemotaHostLocd = invremotehostLocd; InvRemotaHostLDNd = invremotehostLDNd; InvRemotaHostLDId = invremotehostLDId; Print@TableForm@Table@8id, deptTXTdPidT, InvRemotaHostdPidT, InvRemotaHostLocdPidT, InvRemotaHostLDNdPidT, InvRemotaHostLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "InvRemotaHostd", "InvRemotaHostLocd", "InvRemotaHostLDNd", "InvRemotaHostLDId"<<DD; H∗ Inversion total en Transmisión a nivel RH por departamento imputable al servicio de Voz ∗L Print@"InvRemotaHostd"D; InvRemotaHostalqdA1 = invremotehostalqdA1; InvRemotaHostalqdB1 = invremotehostalqdB1; InvRemotaHostalqdC1 = invremotehostalqdC1; InvRemotaHostalqdLL = invremotehostalqdLL; InvRemotaHostalqdLP = invremotehostalqdLP; InvRemotaHostalqdAS = invremotehostalqdAS; InvRemotaHostalqdBS = invremotehostalqdBS; InvRemotaHostalqdCS = invremotehostalqdCS; InvRemotaHostalqdABC2 = invremotehostalqdABC2; InvRemotaHostalqdABCnop = invremotehostalqdABCnop; InvRemotaHostitxd = invremotehostitxd; InvRemotaHostadsld = invremotehostadsld; InvRemotaHostTOTALd = invremotehostTOTALd; Print@TableForm@Table@8id, deptTXTdPidT, InvRemotaHostdPidT, InvRemotaHostalqdA1PidT, InvRemotaHostalqdB1PidT, InvRemotaHostalqdC1PidT, InvRemotaHostalqdLLPidT, InvRemotaHostalqdLPPidT, InvRemotaHostalqdASPidT, InvRemotaHostalqdBSPidT, InvRemotaHostalqdCSPidT, InvRemotaHostalqdABC2PidT, InvRemotaHostalqdABCnopPidT, InvRemotaHostitxdPidT, InvRemotaHostadsldPidT, InvRemotaHostTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD; H∗ Inversion total en Transmisión a nivel RH por departamento imputable al cada servicio ∗L InvHostTandemd = invhosttandemd; InvHostTandemLocd = invhosttandemLocd; InvHostTandemLDNd = invhosttandemLDNd; InvHostTandemLDId = invhosttandemLDId; Print@TableForm@Table@8id, deptTXTdPidT, InvHostTandemdPidT, InvHostTandemLocdPidT, InvHostTandemLDNdPidT, InvHostTandemLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "InvHostTandemd", "InvHostTandemLocd", "InvHostTandemLDNd", "InvHostTandemLDId"<<DD; H∗ Inversion total en Transmisión a nivel HT por departamento imputable al servicio de Voz ∗L Print@"InvHostTandemd"D; InvHostTandemalqdA1 = invhosttandemalqdA1; InvHostTandemalqdB1 = invhosttandemalqdB1; InvHostTandemalqdC1 = invhosttandemalqdC1; InvHostTandemalqdLL = invhosttandemalqdLL; InvHostTandemalqdLP = invhosttandemalqdLP; InvHostTandemalqdAS = invhosttandemalqdAS; InvHostTandemalqdBS = invhosttandemalqdBS; InvHostTandemalqdCS = invhosttandemalqdCS; InvHostTandemalqdABC2 = invhosttandemalqdABC2; InvHostTandemalqdABCnop = invhosttandemalqdABCnop; 157 InvHostTandemalqdABCnop invhosttandemalqdABCnop; InvHostTandemitxd = invhosttandemitxd; InvHostTandemadsld = invhosttandemadsld; InvHostTandemTOTALd = invhosttandemTOTALd; Print@TableForm@Table@8id, deptTXTdPidT, InvHostTandemdPidT, InvHostTandemalqdA1PidT, InvHostTandemalqdB1PidT, InvHostTandemalqdC1PidT, InvHostTandemalqdLLPidT, InvHostTandemalqdLPPidT, InvHostTandemalqdA1PidT, InvHostTandemalqdB1PidT, InvHostTandemalqdC1PidT, InvHostTandemalqdABC2PidT, InvHostTandemalqdABCnopPidT, InvHostTandemitxdPidT, InvHostTandemadsldPidT, InvHostTandemTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD; H∗ Inversion total en Transmisión a nivel HT por departamento imputable a cada servicio ∗L Modelo_Integral_ACK.nb CALCULO DE ANUALIZACION PrintBStyleB" FACTORES DE ANUALIZACIÓN", Bold, 14, Underlined, White, Background → BlueFF; OyMCx = networkopfrac + switchmaintfrac; OyMTx = networkopfrac + transmaintfrac; OyMSupp = networkopfrac + supportmaintfrac; 1 VuCx = RoundB switchdeprfrac VuTx1 = RoundB VuTx2 = RoundB VuTx3 = RoundB 1 transdeprfrac F; F; 1 fibertransdeprfrac 1 petransdeprfrac VuSupp = RoundB F; F; 1 supportdeprfrac F; F; edifsupportdeprfrac retcap ; FactorSupp = OyMSupp + 1 − H1 + retcapL−VuSupp retcap FactorEdif = OyMSupp + ; 1 − H1 + retcapL−VuEdif VuEdif = RoundB 1 FactorCx = HOyMCx + overheadfracL + retcap 1 − H1 + retcapL−VuCx FactorTx1 = HOyMTx + overheadfracL + FactorTx2 = HOyMTx + overheadfracL + FactorTx3 = HOyMTx + overheadfracL + + supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif; retcap 1 − H1 + retcapL−VuTx1 retcap 1 − H1 + retcapL−VuTx2 retcap 1 − H1 + retcapL−VuTx3 + supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif; + supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif; + supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif; FactorOyMTx = HOyMTx + overheadfracL + supportinvfrac FactorSupp + edifsupportinvfrac FactorEdif; Print@"Factores Anuales"D; Print@TableForm@8FactorSupp, FactorEdif, FactorCx, FactorTx1, FactorTx2, FactorTx3, FactorOyMTx<, TableDirections → 8Row, Column<, TableHeadings → 88"Soporte", "Edificios", "Cx", "Tx1", "Tx2", "Tx3", "OyMTx"<, Automatic<DD; PrintBStyleB "ESTIMACIÓN DE LOS NIVELES DE GASTO POR ELEMENTO", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 PrintBStyleB" A NIVEL CONMUTACIÓN", Bold, 14, Underlined, White, Background → BlueFF; Print@"Costo Total de Cx Remota por Dpto"D; CTCxRemotad = InvRemotad ∗ FactorCx; CTCxRemotaLocd = InvRemotaLocd ∗ FactorCx; CTCxRemotaLDNd = InvRemotaLDNd ∗ FactorCx; CTCxRemotaLDId = InvRemotaLDId ∗ FactorCx; Print@ TableForm@Table@8id, deptTXTdPidT, CTCxRemotadPidT, CTCxRemotaLocdPidT, CTCxRemotaLDNdPidT, CTCxRemotaLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxRemotad", "CTCxRemotaLocd", "CTCxRemotaLDNd", "CTCxRemotaLDId"<<DD; H∗ Se estima el nivel de gasto de las centrales remotas a nivel departamental ∗L Print@"Costo Total de Cx Host por Dpto"D; CTCxHostd = InvHostd ∗ FactorCx; CTCxHostLocd = InvHostLocd ∗ FactorCx; CTCxHostLDNd = InvHostLDNd ∗ FactorCx; CTCxHostLDId = InvHostLDId ∗ FactorCx; Print@TableForm@Table@8id, deptTXTdPidT, CTCxHostdPidT, CTCxHostLocdPidT, CTCxHostLDNdPidT, CTCxHostLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxHostd", "CTCxHostLocd", "CTCxHostLDNd", "CTCxHostLDId"<<DD; H∗ Se estima el nivel de gasto de las centrales cabeceras a nivel departamental ∗L 158 H Se estima el nivel de gasto de las centrales cabeceras a nivel departamental L Modelo_Integral_ACK.nb Print@"Costo Total de Cx Tandem por Dpto"D; CTCxTandemd = InvTandemd ∗ FactorCx; CTCxTandemLocd = InvTandemLocd ∗ FactorCx; CTCxTandemLDNd = InvTandemLDNd ∗ FactorCx; CTCxTandemLDId = InvTandemLDId ∗ FactorCx; Print@ TableForm@Table@8id, deptTXTdPidT, CTCxTandemdPidT, CTCxTandemLocdPidT, CTCxTandemLDNdPidT, CTCxTandemLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxTandemd", "CTCxTandemLocd", "CTCxTandemLDNd", "CTCxTandemLDId"<<DD; H∗ Se estima el nivel de gasto de las centrales Tandem a nivel departamental ∗L Print@"CTCxTandemitxd: Costo Total de Cx para Circuitos de Interconexión en Tandems por Dpto"D; CTCxTandemitxd = zerod ∗ FactorCx; Print@TableForm@Table@8id, deptTXTdPidT, CTCxTandemitxdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxTandemitxd"<<DD; H∗ Se estima el nivel de gasto de Circuitos de Interconexión en las centrales Tandem a nivel departamental ∗L Print@"Costo Total de Cx por Dpto"D; CTCxd = CTCxRemotad + CTCxHostd + CTCxTandemd; CTCxLocd = CTCxRemotaLocd + CTCxHostLocd + CTCxTandemLocd; CTCxLDNd = CTCxRemotaLDNd + CTCxHostLDNd + CTCxTandemLDNd; CTCxLDId = CTCxRemotaLDId + CTCxHostLDId + CTCxTandemLDId; Print@TableForm@Table@8id, deptTXTdPidT, CTCxdPidT, CTCxLocdPidT, CTCxLDNdPidT, CTCxLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTCxd", "CTCxLocd", "CTCxLDNd", "CTCxLDId"<<DD; H∗ Gasto Total en centrales de conmutación a nivel departamental ∗L Print@"Costo Total de Señalización por Dpto"D; CTSxd = InvSignald ∗ FactorCx; CTSxLocd = InvSignalLocd ∗ FactorCx; CTSxLDNd = InvSignalLDNd ∗ FactorCx; CTSxLDId = InvSignalLDId ∗ FactorCx; Print@TableForm@Table@8id, deptTXTdPidT, CTSxdPidT, CTSxLocdPidT, CTSxLDNdPidT, CTSxLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTSxd", "CTSxLocd", "CTSxLDNd", "CTSxLDId"<<DD; H∗ Gasto Total en Señalización por departamento ∗L PrintBStyleB" A NIVEL TRANSMISIÓN", Bold, 14, Underlined, White, Background → BlueFF; Print@"CTTxRemotaHostd: Costo Total de Tx RemotaHost por Dpto imputable al servicio de Voz"D; CTTxRemotaHostd = invremotehostd1 ∗ FactorTx1 + invremotehostd2 ∗ FactorTx2 + invremotehostd3 ∗ FactorTx3; CTTxRemotaHostLocd = invremotehostLocd1 ∗ FactorTx1 + invremotehostLocd2 ∗ FactorTx2 + invremotehostLocd3 ∗ FactorTx3; CTTxRemotaHostLDNd = invremotehostLDNd1 ∗ FactorTx1 + invremotehostLDNd2 ∗ FactorTx2 + invremotehostLDNd3 ∗ FactorTx3; CTTxRemotaHostLDId = invremotehostLDId1 ∗ FactorTx1 + invremotehostLDId2 ∗ FactorTx2 + invremotehostLDId3 ∗ FactorTx3; Print@TableForm@Table@8id, deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostLocdPidT, CTTxRemotaHostLDNdPidT, CTTxRemotaHostLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTTxRemotaHostd", "CTTxRemotaHostLocd", "CTTxRemotaHostLDNd", "CTTxRemotaHostLDId"<<DD; H∗ Gasto Total en Transmisión a nivel RH por departamento imputable al servicio de Voz ∗L Print@"Costo Total de Tx RemotaHost por Dpto"D; CTTxRemotaHostalqdA1 = invremotehostalqd1A1 ∗ FactorTx1 + invremotehostalqd2A1 ∗ FactorTx2 + invremotehostalqd3A1 ∗ FactorTx3; CTTxRemotaHostalqdB1 = invremotehostalqd1B1 ∗ FactorTx1 + invremotehostalqd2B1 ∗ FactorTx2 + invremotehostalqd3B1 ∗ FactorTx3; CTTxRemotaHostalqdC1 = invremotehostalqd1C1 ∗ FactorTx1 + invremotehostalqd2C1 ∗ FactorTx2 + invremotehostalqd3C1 ∗ FactorTx3; CTTxRemotaHostalqdLL = invremotehostalqd1LL ∗ FactorTx1 + invremotehostalqd2LL ∗ FactorTx2 + invremotehostalqd3LL ∗ FactorTx3; CTTxRemotaHostalqdLP = invremotehostalqd1LP ∗ FactorTx1 + invremotehostalqd2LP ∗ FactorTx2 + invremotehostalqd3LP ∗ FactorTx3; CTTxRemotaHostalqdAS = invremotehostalqd1AS ∗ FactorTx1 + invremotehostalqd2AS ∗ FactorTx2 + invremotehostalqd3AS ∗ FactorTx3; CTTxRemotaHostalqdBS = invremotehostalqd1BS ∗ FactorTx1 + invremotehostalqd2BS ∗ FactorTx2 + invremotehostalqd3BS ∗ FactorTx3; CTTxRemotaHostalqdCS = invremotehostalqd1CS ∗ FactorTx1 + invremotehostalqd2CS ∗ FactorTx2 + invremotehostalqd3CS ∗ FactorTx3; CTTxRemotaHostalqdABC2 = invremotehostalqd1ABC2 ∗ FactorTx1 + invremotehostalqd2ABC2 ∗ FactorTx2 + invremotehostalqd3ABC2 ∗ FactorTx3; CTTxRemotaHostalqdABCnop = invremotehostalqd1ABCnop ∗ FactorTx1 + invremotehostalqd2ABCnop ∗ FactorTx2 + invremotehostalqd3ABCnop ∗ FactorTx3; CTTxRemotaHostitxd = invremotehostitxd1 ∗ FactorTx1 + invremotehostitxd2 ∗ FactorTx2 + invremotehostitxd3 ∗ FactorTx3; CTTxRemotaHostadsld = invremotehostadsld1 ∗ FactorTx1 + invremotehostadsld2 ∗ FactorTx2 + invremotehostadsld3 ∗ FactorTx3; CTTxRemotaHostTOTALd = invremotehostTOTALd1 ∗ FactorTx1 + invremotehostTOTALd2 ∗ FactorTx2 + invremotehostTOTALd3 ∗ FactorTx3; Print@TableForm@Table@8id, deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostalqdA1PidT, CTTxRemotaHostalqdB1PidT, 159 Modelo_Integral_ACK.nb Print@TableForm@Table@8id, deptTXTdPidT, CTTxRemotaHostdPidT, CTTxRemotaHostalqdA1PidT, CTTxRemotaHostalqdB1PidT, CTTxRemotaHostalqdC1PidT, CTTxRemotaHostalqdLLPidT, CTTxRemotaHostalqdLPPidT, CTTxRemotaHostalqdASPidT, CTTxRemotaHostalqdBSPidT, CTTxRemotaHostalqdCSPidT, CTTxRemotaHostalqdABC2PidT, CTTxRemotaHostalqdABCnopPidT, CTTxRemotaHostitxdPidT, CTTxRemotaHostadsldPidT, CTTxRemotaHostTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD; H∗ Gasto Total en Transmisión a nivel RH por departamento imputable a todos los servicios ∗L Print@"CTTxHostTandemd: Costo Total de Tx HostTandem por Dpto imputable al servicio de Voz"D; CTTxHostTandemd = invhosttandemd1 ∗ FactorTx1 + invhosttandemd2 ∗ FactorTx2 + invhosttandemd3 ∗ FactorTx3 + HFactorTx1 ∗ satinvd + ExtrasatcostdL + HFactorTx1 ∗ satlimainvd + ExtrasatcostdL + interdinvpermin ∗ satmind4; CTTxHostTandemLocd = invhosttandemLocd1 ∗ FactorTx1 + invhosttandemLocd2 ∗ FactorTx2 + invhosttandemLocd3 ∗ FactorTx3 + HFactorTx1 ∗ satinvLocd + ExtrasatcostLocdL + HFactorTx1 ∗ satlimainvLocd + ExtrasatcostLocdL; CTTxHostTandemLDNd = invhosttandemLDNd1 ∗ FactorTx1 + invhosttandemLDNd2 ∗ FactorTx2 + invhosttandemLDNd3 ∗ FactorTx3 + HFactorTx1 ∗ satinvLDNd + ExtrasatcostLDNdL + HFactorTx1 ∗ satlimainvLDNd + ExtrasatcostLDNdL; CTTxHostTandemLDId = invhosttandemLDId1 ∗ FactorTx1 + invhosttandemLDId2 ∗ FactorTx2 + invhosttandemLDId3 ∗ FactorTx3 + HFactorTx1 ∗ satinvLDId + ExtrasatcostLDIdL + HFactorTx1 ∗ satlimainvLDId + ExtrasatcostLDIdL; Print@TableForm@Table@8id, deptTXTdPidT, CTTxHostTandemdPidT, CTTxHostTandemLocdPidT, CTTxHostTandemLDNdPidT, CTTxHostTandemLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTTxHostTandemd", "CTTxHostTandemLocd", "CTTxHostTandemLDNd", "CTTxHostTandemLDId"<<DD; H∗ Gasto Total en Transmisión a nivel HT por departamento imputable al servicio de Voz. Se incluye el gasto asociado a los equipos de los nodos que emplean Tx satelital y el asociado al gasto por los equipo que existen en Lima. Se añade además el gasto por el alquiler del ancho de banda satelital ∗L Print@"Costo Total de Tx HostTandem por Dpto"D; CTTxHostTandemalqdA1 = invhosttandemalqd1A1 ∗ FactorTx1 + invhosttandemalqd2A1 ∗ FactorTx2 + invhosttandemalqd3A1 ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdA1 + ExtrasatcostalqdA1L + HFactorTx1 ∗ satlimainvalqdA1 + ExtrasatcostalqdA1L; CTTxHostTandemalqdB1 = invhosttandemalqd1B1 ∗ FactorTx1 + invhosttandemalqd2B1 ∗ FactorTx2 + invhosttandemalqd3B1 ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdB1 + ExtrasatcostalqdB1L + HFactorTx1 ∗ satlimainvalqdB1 + ExtrasatcostalqdB1L; CTTxHostTandemalqdC1 = invhosttandemalqd1C1 ∗ FactorTx1 + invhosttandemalqd2C1 ∗ FactorTx2 + invhosttandemalqd3C1 ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdC1 + ExtrasatcostalqdC1L + HFactorTx1 ∗ satlimainvalqdC1 + ExtrasatcostalqdC1L; CTTxHostTandemalqdLL = invhosttandemalqd1LL ∗ FactorTx1 + invhosttandemalqd2LL ∗ FactorTx2 + invhosttandemalqd3LL ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdLL + ExtrasatcostalqdLLL + HFactorTx1 ∗ satlimainvalqdLL + ExtrasatcostalqdLLL; CTTxHostTandemalqdLP = invhosttandemalqd1LP ∗ FactorTx1 + invhosttandemalqd2LP ∗ FactorTx2 + invhosttandemalqd3LP ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdLP + ExtrasatcostalqdLPL + HFactorTx1 ∗ satlimainvalqdLP + ExtrasatcostalqdLPL; CTTxHostTandemalqdAS = invhosttandemalqd1AS ∗ FactorTx1 + invhosttandemalqd2AS ∗ FactorTx2 + invhosttandemalqd3AS ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdAS + ExtrasatcostalqdASL + HFactorTx1 ∗ satlimainvalqdAS + ExtrasatcostalqdASL; CTTxHostTandemalqdBS = invhosttandemalqd1BS ∗ FactorTx1 + invhosttandemalqd2BS ∗ FactorTx2 + invhosttandemalqd3BS ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdBS + ExtrasatcostalqdBSL + HFactorTx1 ∗ satlimainvalqdBS + ExtrasatcostalqdBSL; CTTxHostTandemalqdCS = invhosttandemalqd1CS ∗ FactorTx1 + invhosttandemalqd2CS ∗ FactorTx2 + invhosttandemalqd3CS ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdCS + ExtrasatcostalqdCSL + HFactorTx1 ∗ satlimainvalqdCS + ExtrasatcostalqdCSL; CTTxHostTandemalqdABC2 = invhosttandemalqd1ABC2 ∗ FactorTx1 + invhosttandemalqd2ABC2 ∗ FactorTx2 + invhosttandemalqd3ABC2 ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdABC2 + ExtrasatcostalqdABC2L + HFactorTx1 ∗ satlimainvalqdABC2 + ExtrasatcostalqdABC2L; CTTxHostTandemalqdABCnop = invhosttandemalqd1ABCnop ∗ FactorTx1 + invhosttandemalqd2ABCnop ∗ FactorTx2 + invhosttandemalqd3ABCnop ∗ FactorTx3 + HFactorTx1 ∗ satinvalqdABCnop + ExtrasatcostalqdABCnopL + HFactorTx1 ∗ satlimainvalqdABCnop + ExtrasatcostalqdABCnopL; CTTxHostTandemitxd = invhosttandemitxd1 ∗ FactorTx1 + invhosttandemitxd2 ∗ FactorTx2 + invhosttandemitxd3 ∗ FactorTx3 + HFactorTx1 ∗ satinvitxd + ExtrasatcostitxdL + HFactorTx1 ∗ satlimainvitxd + ExtrasatcostitxdL; CTTxHostTandemadsld = invhosttandemadsld1 ∗ FactorTx1 + invhosttandemadsld2 ∗ FactorTx2 + invhosttandemadsld3 ∗ FactorTx3 + HFactorTx1 ∗ satinvadsld + ExtrasatcostadsldL + HFactorTx1 ∗ satlimainvadsld + ExtrasatcostadsldL; CTTxHostTandemTOTALd = invhosttandemTOTALd1 ∗ FactorTx1 + invhosttandemTOTALd2 ∗ FactorTx2 + invhosttandemTOTALd3 ∗ FactorTx3 + HFactorTx1 ∗ satinvTOTALd + ExtrasatcostTOTALdL + HFactorTx1 ∗ satlimainvTOTALd + ExtrasatcostTOTALdL; Print@TableForm@Table@8id, deptTXTdPidT, CTTxHostTandemdPidT, CTTxHostTandemalqdA1PidT, CTTxHostTandemalqdB1PidT, CTTxHostTandemalqdC1PidT, CTTxHostTandemalqdLLPidT, CTTxHostTandemalqdLPPidT, CTTxHostTandemalqdASPidT, CTTxHostTandemalqdBSPidT, CTTxHostTandemalqdCSPidT, CTTxHostTandemalqdABC2PidT, CTTxHostTandemalqdABCnopPidT, CTTxHostTandemitxdPidT, CTTxHostTandemadsldPidT, CTTxHostTandemTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD; H∗ Gasto Total en Transmisión a nivel HT por departamento imputable a todos los servicios. Se incluye el gasto asociado a los equipos de los nodos que emplean Tx satelital y el asociado al gasto por los equipo que existen en Lima. Se añade además el gasto por el alquiler del ancho de banda satelital ∗L Print@"CTTxd: Costo Total de Tx por Dpto imputable al servicio de Voz"D; CTTxd = CTTxRemotaHostd + CTTxHostTandemd; CTTxLocd = CTTxRemotaHostLocd + CTTxHostTandemLocd; CTTxLDNd = CTTxRemotaHostLDNd + CTTxHostTandemLDNd; CTTxLDId = CTTxRemotaHostLDId + CTTxHostTandemLDId; Print@TableForm@Table@8id, deptTXTdPidT, CTTxdPidT, CTTxLocdPidT, CTTxLDNdPidT, CTTxLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTTxd", "CTTxLocd", "CTTxLDNd", "CTTxLDId"<<DD; H∗ Gasto Total en Transmisión por departamento imputable al servicio de Voz ∗L Print@"Costo Total de Tx por Dpto"D; CTTxalqdA1 = CTTxRemotaHostalqdA1 + CTTxHostTandemalqdA1; CTTxalqdB1 = CTTxRemotaHostalqdB1 + CTTxHostTandemalqdB1; 160 Modelo_Integral_ACK.nb CTTxalqdB1 CTTxRemotaHostalqdB1 CTTxHostTandemalqdB1; CTTxalqdC1 = CTTxRemotaHostalqdC1 + CTTxHostTandemalqdC1; CTTxalqdLL = CTTxRemotaHostalqdLL + CTTxHostTandemalqdLL; CTTxalqdLP = CTTxRemotaHostalqdLP + CTTxHostTandemalqdLP; CTTxalqdAS = CTTxRemotaHostalqdAS + CTTxHostTandemalqdAS; CTTxalqdBS = CTTxRemotaHostalqdBS + CTTxHostTandemalqdBS; CTTxalqdCS = CTTxRemotaHostalqdCS + CTTxHostTandemalqdCS; CTTxalqdABC2 = CTTxRemotaHostalqdABC2 + CTTxHostTandemalqdABC2; CTTxalqdABCnop = CTTxRemotaHostalqdABCnop + CTTxHostTandemalqdABCnop; CTTxitxd = CTTxRemotaHostitxd + CTTxHostTandemitxd; CTTxadsld = CTTxRemotaHostadsld + CTTxHostTandemadsld; CTTxTOTALd = CTTxRemotaHostTOTALd + CTTxHostTandemTOTALd; Print@ TableForm@Table@8id, deptTXTdPidT, CTTxdPidT, CTTxalqdA1PidT, CTTxalqdB1PidT, CTTxalqdC1PidT, CTTxalqdLLPidT, CTTxalqdLPPidT, CTTxalqdASPidT, CTTxalqdBSPidT, CTTxalqdCSPidT, CTTxalqdABC2PidT, CTTxalqdABCnopPidT, CTTxitxdPidT, CTTxadsldPidT, CTTxTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD; H∗ Gasto Total en Transmisión por departamento imputable a todos los servicios ∗L Print@"CTTx: Gasto Total en Transmisión a nivel nacional imputable al servicio de Voz "D; CTTx = Plus @@ CTTxd; CTTxLoc = Plus @@ CTTxLocd; CTTxLDN = Plus @@ CTTxLDNd; CTTxLDI = Plus @@ CTTxLDId; Print@TableForm@8CTTx, CTTxLoc, CTTxLDN, CTTxLDI<, TableDirections → 8Row, Column<, TableHeadings → 88"CTTx", "CTTxLoc", "CTTxLDN", "CTTxLDI"<, None<DD; H∗ Gasto Total en Transmisión a nivel nacional imputable al servicio de Voz ∗L PrintBStyleB "PARA HALLAR GASTOS ÚNICOS ADSL", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"Incógnitas"D; X1; X2; H∗La mitad del ingreso a Intradepartamental ∗L X1 ; InvUsu = 3 X2 ; InvATM = 3 Print@"FactorTx"D; FactorTx = 8FactorTx1, FactorTx2, FactorTx3<; Print@ TableForm@FactorTx, TableDirections → 8Row, Column<, TableHeadings → 88"FactorTx1", "FactorTx2", "FactorTx3"<<DD; Print@"InvIntraDepADSLd"D; InvIntraDepADSLd = 8invremotehostadsld1 + invhosttandemadsld1 + satinvadsld + satlimainvadsld, invhosttandemadsld2 + invremotehostadsld2, invremotehostadsld3 + invhosttandemadsld3<; Print@TableForm@Table@8id, deptTXTdPidT, InvIntraDepADSLdP1, idT, InvIntraDepADSLdP2, idT, InvIntraDepADSLdP3, idT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "InvIntraDepADSL1d", "InvIntraDepADSL2d", "InvIntraDepADSL3d"<<DD; Print@"InvUsuPropd"D; InvUsuPropd = Table@0, 8if, 3<, 8id, nd<D; DoBInvUsuPropdPif, idT = InvUsu ∗ InvIntraDepADSLdPif, idT Plus @@ Plus @@ InvIntraDepADSLd , 8if, 3<, 8id, nd<F; Print@TableForm@Table@8id, deptTXTdPidT, InvUsuPropdP1, idT, InvUsuPropdP2, idT, InvUsuPropdP3, idT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "InvUsuProp1d", "InvUsuProp2d", "InvUsuProp3d"<<DD; Print@"InvATMPropd"D; InvATMPropd = Table@0, 8if, 3<, 8id, nd<D; InvIntraDepADSLdPif, idT , 8if, 3<, 8id, nd<F; DoBInvATMPropdPif, idT = InvATM ∗ Plus @@ Plus @@ InvIntraDepADSLd Print@TableForm@Table@8id, deptTXTdPidT, InvATMPropdP1, idT, InvATMPropdP2, idT, InvATMPropdP3, idT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "InvATMProp1d", "InvATMProp2d", "InvATMProp3d"<<DD; Print@"InvIntraDepADSLd"D; InvIntraDepADSLd = InvIntraDepADSLd − InvUsuPropd − InvATMPropd; Print@TableForm@ Table@8id, deptTXTdPidT, InvIntraDepADSLdP1, idT, InvIntraDepADSLdP2, idT, InvIntraDepADSLdP3, idT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "InvIntraDepADSL1d", "InvIntraDepADSL2d", "InvIntraDepADSL3d"<<DD; Print@"CosteExtraSatADSL"D; CosteExtraSatADSL = 2 ∗ Plus @@ Extrasatcostadsld; Print@TableForm@CosteExtraSatADSLDD; 161 Modelo_Integral_ACK.nb Print@TableForm@CosteExtraSatADSLDD; Print@"CTTxadsld"D; CTTxadsld = FullSimplify@InvIntraDepADSLdP1T ∗ FactorTxP1T + InvIntraDepADSLdP2T ∗ FactorTxP2T + InvIntraDepADSLdP3T ∗ FactorTxP3T + 2 ∗ ExtrasatcostadsldD; Print@TableForm@Table@8id, deptTXTdPidT, CTTxadsldPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Central", "CTTxadsld"<<DD; PrintBStyleB "GASTOS FINALES A NIVEL NACIONAL", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"Gasto Total en Transmisión a nivel nacional"D; CTTxalqA1 = Plus @@ CTTxalqdA1; CTTxalqB1 = Plus @@ CTTxalqdB1; CTTxalqC1 = Plus @@ CTTxalqdC1; CTTxalqABC2 = Plus @@ CTTxalqdABC2; CTTxalqABCnop = Plus @@ CTTxalqdABCnop; CTTxitx = Plus @@ CTTxitxd; CTTxadsl = Plus @@ CTTxadsld; CTTxTOTAL = Plus @@ CTTxTOTALd; Print@TableForm@8CTTx, CTTxalqA1, CTTxalqB1, CTTxalqC1, CTTxalqLL, CTTxalqLP, CTTxalqAS, CTTxalqBS, CTTxalqCS, CTTxalqABC2, CTTxalqABCnop, CTTxitx, CTTxadsl, CTTxTOTAL<, TableDirections → 8Row, Column<, TableHeadings → 88"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<, None<DD; H∗ Gasto Total en Transmisión a nivel nacional imputable a todos los servicios ∗L PrintAStyleA" A NIVEL TOTAL", Bold, 14, Underlined, White, Background → BlueEE; Print@"CTd: Costo Total Anual de los Elementos de red por Dpto"D; CTd = CTCxRemotad + CTCxHostd + CTCxTandemd + CTSxd + CTTxRemotaHostd + CTTxHostTandemd; CTLocd = CTCxRemotaLocd + CTCxHostLocd + CTCxTandemLocd + CTSxLocd + CTTxRemotaHostLocd + CTTxHostTandemLocd; CTLDNd = CTCxRemotaLDNd + CTCxHostLDNd + CTCxTandemLDNd + CTSxLDNd + CTTxRemotaHostLDNd + CTTxHostTandemLDNd; CTLDId = CTCxRemotaLDId + CTCxHostLDId + CTCxTandemLDId + CTSxLDId + CTTxRemotaHostLDId + CTTxHostTandemLDId; Print@TableForm@Table@8id, deptTXTdPidT, CTdPidT, CTTxLocdPidT, CTLDNdPidT, CTLDIdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CTd", "CTLocd", "CTLDNd", "CTLDId"<<DD; H∗ Gasto Total por departamento imputable al servicio de Voz. Incluye todos los elementos de red: centrales remotas, centrales cabeceras, centrales tandem, transmisión RH, transmisión HT y señalización ∗L Print@"Costo Total Anual de los Elementos de red por Dpto"D; CTalqdA1 = CTTxRemotaHostalqdA1 + CTTxHostTandemalqdA1; CTalqdB1 = CTTxRemotaHostalqdB1 + CTTxHostTandemalqdB1; CTalqdC1 = CTTxRemotaHostalqdC1 + CTTxHostTandemalqdC1; CTalqdLL = CTTxRemotaHostalqdLL + CTTxHostTandemalqdLL; CTalqdLP = CTTxRemotaHostalqdLP + CTTxHostTandemalqdLP; CTalqdAS = CTTxRemotaHostalqdAS + CTTxHostTandemalqdAS; CTalqdBS = CTTxRemotaHostalqdBS + CTTxHostTandemalqdBS; CTalqdCS = CTTxRemotaHostalqdCS + CTTxHostTandemalqdCS; CTalqdABC2 = CTTxRemotaHostalqdABC2 + CTTxHostTandemalqdABC2; CTalqdABCnop = CTTxRemotaHostalqdABCnop + CTTxHostTandemalqdABCnop; CTitxd = H∗CTCxTandemitxd+∗LCTTxRemotaHostitxd + CTTxHostTandemitxd; CTadsld = CTTxRemotaHostadsld + CTTxHostTandemadsld; CTTOTALd = CTCxRemotad + CTCxHostd + CTCxTandemd + CTSxd + CTCxTandemitxd + CTTxRemotaHostTOTALd + CTTxHostTandemTOTALd; Print@TableForm@Table@8id, deptTXTdPidT, CTdPidT, CTalqdA1PidT, CTalqdB1PidT, CTalqdC1PidT, CTalqdLLPidT, CTalqdLPPidT, CTalqdASPidT, CTalqdBSPidT, CTalqdCSPidT, CTalqdABC2PidT, CTalqdABCnopPidT, CTitxdPidT, CTadsldPidT, CTTOTALdPidT<, 8id, nd<D, TableDirections → 8Column, Row<, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<<DD; H∗ Gasto Total por departamento imputable a todos los servicios. Incluye todos los elementos de red: centrales remotas, centrales cabeceras, centrales tandem, transmisión RH, transmisión HT y señalización ∗L Print@"CT: Costo Total a nivel nacional de Voz"D; CT = Plus @@ CTd; CTLoc = Plus @@ CTLocd; CTLDN = Plus @@ CTLDNd; CTLDI = Plus @@ CTLDId; Print@TableForm@8CT, CTTxLoc, CTLDN, CTLDI<, TableDirections → 8Row, Column<, TableHeadings → 88"CT", "CTLoc", "CTLDN", "CTLDI"<, None<DD; H∗ Gasto Total a nivel nacional imputable al servicio de Voz. Incluye todos los elementos de red: centrales remotas, centrales cabeceras, centrales tandem, transmisión RH, transmisión HT y señalización ∗L Print@"Costo Total a nivel nacional"D; CTalqA1 = Plus @@ CTalqdA1; CTalqB1 = Plus @@ CTalqdB1; CTalqC1 = Plus @@ CTalqdC1; CTalqLL = Plus @@ CTalqdLL; CTalqLP = Plus @@ CTalqdLP; 162 Modelo_Integral_ACK.nb CTalqLP Plus CTalqdLP; CTalqAS = Plus @@ CTalqdAS; CTalqBS = Plus @@ CTalqdBS; CTalqCS = Plus @@ CTalqdCS; CTalqABC2 = Plus @@ CTalqdABC2; CTalqABCnop = Plus @@ CTalqdABCnop; CTitx = Plus @@ CTitxd; CTadsl = Plus @@ CTadsld; CTTOTAL = Plus @@ CTTOTALd; Print@TableForm@8CT, CTalqA1, CTalqB1, CTalqC1, CTalqLL, CTalqLP, CTalqAS, CTalqBS, CTalqCS, CTalqABC2, CTalqABCnop, CTitx, CTadsl, CTTOTAL<, TableDirections → 8Row, Column<, TableHeadings → 88"Voz", "Alq A", "Alq B", "Alq C", "Loc Lima", "Loc Prov", "Alq A Sat", "Alq B Sat", "Alq C Sat", "Alq ABC Otros", "Alq No Op", "Itx", "ADSL", "TOTAL"<, None<DD; H∗ Gasto Total a nivel nacional imputable a todos los servicios. Incluye todos los elementos de red: centrales remotas, centrales cabeceras, centrales tandem, transmisión RH, transmisión HT y señalización ∗L RESULTADOS Resultado final para Terminación de Llamada Osiptel PrintBStyleB "RESULTADO FINAL PARA TERMINACIÓN DE LLAMADA OSIPTEL", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 Print@"Ponderación por Dpto."D; Print@"Código hecho por OSIPTEL"D; TrafTotd = zerod; Do@TrafTotdPdeptxPixTT = TrafTotdPdeptxPixTT + HlocoutxPixT + interprovoutxPixT + ldxPixT + recldxPixT + intlinxPixT + intloutxPixTL, 8ix, nx<D; Print@"TrafTotd"D; Print@TableForm@Table@8id, deptTXTdPidT, TrafTotdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "TrafTotd"<<DD; H∗ Tráfico Total ∗L Print@"CMed: Costo Unitario por Departamento"D; CMed = zerod; DoBCMedPidT = CTdPidT TrafTotdPidT , 8id, nd<F; Print@TableForm@Table@8id, deptTXTdPidT, CMedPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "CMed"<<DD; Print@"TrafTotNac"D; TrafTotNac = Plus @@ TrafTotd; Print@TrafTotNacD; H∗ Se coloca la información ya que sólo se había considerado 11 meses ∗L Print@"Ponderación Nacional de Tráfico"D; PondNacd = zerod; TrafTotdPidT , 8id, nd<F; DoBPondNacdPidT = TrafTotNac Print@TableForm@Table@8id, deptTXTdPidT, PondNacdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Nombre Departamento", "PondNacd"<<DD; Print@"Ponderación Nacional de Tráfico"D; TrafTotropNac = 0; Do@TrafTotropNac = TrafTotropNac + If@id LIMA, 0, 1D ∗ TrafTotdPidT, 8id, nd<D PondropNacd = zerod; TrafTotdPidT ∗ If@id LIMA, 0, 1D , 8id, nd<F; DoBPondropNacdPidT = TrafTotropNac Print@"Costo de Interconexión Promedio Ponderado a nivel Nacional − Resultado de OSIPTEL"D; CMeMinNacT = CMed . PondNacd; Print@CMeMinNacTD; 163 Modelo_Integral_ACK.nb Resultado final para Terminación de Llamada Osiptel (por Capacidad) PrintBStyleB "CALCULO DEL CARGO FIJO PERIODICO HPOR CAPACIDADL", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 H∗Función Tráfico en función de cantidad de Troncales y probabilidad de bloqueo∗L Print@"Definición de Función Traf"D; Off@FindRoot::lstolD; Off@FindRoot::jsingD; Traf@n_, p_D := ModuleB8Expr, Sol<, If@n > $MaxRootDegree, $MaxRootDegree = n, $MaxRootDegree = 1000D; n Expr = ExpandAllB‚ j=0 λ1j j! F; Sol = ReplaceAllBλ1, FindRootBExpr − λ1n 1 n! p , 8λ1, n + If@n ≥ 1, Log@nD, 0D<FF; N@SolDF; H∗E0s para tramos Remote−Host y Host−Tandem ∗L E0sremotehostd = Table@ Plus @@ Table@trunkxPixT, 8ix, Select@Range@nxD, deptxPT id Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8id, nd<D; E0shosttandemd = TableBIfBid MADREDEDIOS, CalcTrunkB HswitchendHCLDNpPPTOMALDONADOPT + locoutHCpPPTOMALDONADOPT + switchendHCLDIpPPTOMALDONADOPTL, 0.01F, 0F − 60 If@id LIMA, HPlus @@ Table@trunkxPhostpPipTT − Plus @@ Table@trunkxPixT, 8ix, Select@Range@nxD, provxPT ip Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8ip, Select@Range@npD, deptxPhostpPTT LIMA Ï host1xPhostpPTT 1 Ï Hsat1xPhostpPTT 0 Í tandem1xPhostpPTT 1L Ï tandem1xPhostpPTT 0 &D<D − trunkxPidinvertxPCentralRefTT ∗ 2L ê 2, 0D + Plus @@ Table@trunkxPhostpPipTT − Plus @@ Table@trunkxPixT, 8ix, Select@Range@nxD, provxPT ip Ï Hremote1xPT 1 Í sat1xPT 1L &D<D, 8ip, Select@Range@npD, deptxPhostpPTT id Ï host1xPhostpPTT 1 Ï 1 Hsat1xPhostpPTT 0 Í tandem1xPhostpPTT 1L Ï tandem1xPhostpPTT 0 &D<D, 8id, nd<F; H∗Peso tramos Remote−Host y Host−Tandem∗L E0sremotehostd ; Wremotehostd = E0sremotehostd + E0shosttandemd E0shosttandemd ; Whosttandemd = E0sremotehostd + E0shosttandemd Print@TableForm@Table@8id, deptTXTdPidT, E0sremotehostdPidT, E0shosttandemdPidT, E0sremotehostdPidT + E0shosttandemdPidT, WremotehostdPidT, WhosttandemdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "E0s R−C", "E0s C−T", "Total E0s", "w1", "w2"<<DD; PrintAStyleA"Tramo Remota Cabecera", Bold, 14, Underlined, White, Background → BlueEE; H∗Número de Remotas por Departamento∗L Remotasd = Table@Plus @@ Table@remote1xPixT + sat1xPixT, 8ix, Select@Range@nxD, deptxPT id &D<D, 8id, nd<D; H∗Circuitos por Tramo Remota Cabecera∗L E0sremotehostdPidT FF, 8id, nd<F; trunkremotehostd = TableBIfBRemotasdPidT 0, 0, CeilingB RemotasdPidT H∗Erlangs Cursados por Tramo Remota Cabecera∗L erlangremotehostd = Table@Traf@trunkremotehostdPidT, probD ∗ H1 − probL, 8id, nd<D; H∗Minuntos Cursados por Circuito en Tramo Remota Cabecera∗L mintrunkremotehostd = TableB60 IfBtrunkremotehostdPidT 0, 0, erlangremotehostdPidT trunkremotehostdPidT F, 8id, nd<F; Print@TableForm@ Table@8id, deptTXTdPidT, RemotasdPidT, trunkremotehostdPidT, erlangremotehostdPidT, mintrunkremotehostdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Remotas", "Circ Remota Cabecera", "Erlang Remota Cabecera", "Min Remota Cabecera por Circuito"<<DD; PrintAStyleA"Tramo Cabecera Tandem", Bold, 14, Underlined, White, Background → BlueEE; H∗Número de Cabeceras por Departamento∗L Cabecerasd = Table@Plus @@ Table@host1xPixT − sat1xPixT, 8ix, Select@Range@nxD, deptxPT id &D<D, 8id, nd<D; H∗Circuitos por Tramo Cabecera Tandem∗L E0shosttandemdPidT trunkhosttandemd = TableBIfBCabecerasdPidT 0, 0, CeilingB FF, 8id, nd<F; CabecerasdPidT H∗Erlangs Cursados por Tramo Cabecera Tandem∗L erlanghosttandemd = Table@Traf@trunkhosttandemdPidT, probD ∗ H1 − probL, 8id, nd<D; H∗Minuntos Cursados por Circuito en Tramo Cabecera Tandem∗L erlanghosttandemdPidT mintrunkhosttandemd = TableB60 IfBtrunkhosttandemdPidT 0, 0, F, 8id, nd<F; trunkhosttandemdPidT Print@TableForm@ Table@8id, deptTXTdPidT, CabecerasdPidT, trunkhosttandemdPidT, erlanghosttandemdPidT, mintrunkhosttandemdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Cabeceras", "Circ Cabecera Tandem", "Erlang Cabecera Tandem", "Min Cabecera Tandem por Circuito"<<DD; PrintAStyleA"Totales", Bold, 14, Underlined, White, Background → BlueEE; 164 A A"Totales" EE Modelo_Integral_ACK.nb H∗Minuntos Cursados Total utilizando pesos∗L mintrunkd = mintrunkremotehostd ∗ Wremotehostd + mintrunkhosttandemd ∗ Whosttandemd; Print@TableForm@Table@8id, deptTXTdPidT, mintrunkdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Min Totales por Circuito"<<DD; H∗Tráfico de Hora Cargada por Departamento∗L TrafTotHCd = Table@Plus @@ Table@locoutHCxPixT + interprovoutHCxPixT + ldHCxPixT + recldHCxPixT + intlinHCxPixT + intloutHCxPixT, 8ix, Select@Range@nxD, deptxPT id &D<D, 8id, nd<D; Print@TableForm@Table@8id, deptTXTdPidT, TrafTotHCdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Tráfico Total"<<DD; H∗Circuitos y E1s Equivalentes∗L TrafTotHCd F; CirqEquivd = CeilingB mintrunkd CeilingB CirqEquivd 30 F F; fiberfill Print@TableForm@Table@8id, deptTXTdPidT, CirqEquivdPidT, E1sEquivdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Circuitos Equivalentes", "E1s Equivalentes"<<DD; H∗Ponderación Nacional de Tráfico en función a E1s∗L E1sEquivd = CeilingB PondNacE1Equivd = CTE1mesd = CTd E1sEquivd Plus @@ E1sEquivd ; 1 ; E1sEquivd 12 Print@TableForm@Table@8id, deptTXTdPidT, PondNacE1EquivdPidT, CTE1mesdPidT<, 8id, nd<D, TableSpacing → 80, 1<, TableHeadings → 8None, 8"id", "Departamento", "Ponderador de E1s Equiv", "Costo por E1 Mensual"<<DD; Print@"Costo de Interconexión Promedio Ponderado a nivel Nacional por Capacidad − Resultado de OSIPTEL"D; CMeE1NacT = CTE1mesd.PondNacE1Equivd; Print@CMeE1NacTD; Resultado final para Terminación de Llamada Osiptel, Con Factor de Corrección PrintBStyleB "CALCULO DEL FACTOR DE CORRECCIÓN", Bold, 16, Underlined, White, Background → RGBColorB0, 1 , 0FFF; 2 H∗Se define kmax, como K∗L kmax = K; H∗Función de Distribución de la demanda en función del tiempo, o periodo total T de distribución dd@0D = K, dd@TD = 0∗L K dd@t_D := K − t; T H∗Función que determina para una capacidad contratada k, el cruce de la capacidad contratada con la función de demanda, también es función Inversa de dd@tD, τ@KD=0,τ@0D=T∗L T k; τ@k_D := T − K H∗Cantidad de minutos pagados en exceso, en función de la capacidad contratada k∗L q@k_D := ‡ τ@kD 0 Hdd@tD − kL t; H∗Lo que se paga en función de la capacidad contratada k∗L Cix@k_D := ak ∗ k + aq ∗ q@kD; H∗El qmax será la cantidad de minutos a pagar, cuando k=0, o sea todo se paga por tiempo∗L qmax = q@0D; H∗Los cargos están dados por∗L F ; ak = kmax F aq = ; qmax H∗Donde F es el pago total si todo estuviera en sólo uno de los modos∗L H∗Se optimiza el pago Cix, se deriva respecto de la capacidad contratada k y se iguala a cero el resultado será el k óptimo: kop ; para dicho kop, existe un qop dado por qop=q@kopD∗L kop = Replace@k, Solve@∂k Cix@kD 0, kDP1TD; qop = q@kopD; H∗El Factor de corrección estará dado por la relación entre el pago total F y el pago deducido como óptimo∗L Print@"Factor de Corrección"D; F ; λ = kop ak + qop aq Print@λD; H∗Cargos Corregidos∗L Print@"Costo de Interconexión Promedio Ponderado a nivel Nacional por Tiempo y por Capacidad − Resultados de OSIPTEL Corregidos"D; CMeMinNacTCorr = CMeMinNacT ∗ λ; CMeE1NacTCorr = Ceiling@CMeE1NacT ∗ λD; Print@CMeMinNacTCorrD; Print@CMeE1NacTCorrD; This document was created with Win2PDF available at http://www.win2pdf.com. The unregistered version of Win2PDF is for evaluation or non-commercial use only. This page will not be added after purchasing Win2PDF.
© Copyright 2024 ExpyDoc