1

2

3 123 CS1 Red pequeña de 9 nodos y 3 estaciones compresoras. PROYECTO DEL VERANO CIENTIFICO ASESOR: Dr. ROGER Z. RIOS-MERCADO. SISTEMA DE TUBERIAS DE REDES DE GAS EN ESTADO ESTABLE 4 7 5 8 CS2 CS3 6 9 10

4 GASODUCTO => 13AFF GASODUCTO => 1110F 4 7 5 8 CS 2 CS 3 3 CS 1 21 6 9 10 21 21 21 21 2 1 2 1 21 2 1 2 1 2 1 2 1 2 1 2 1 DATOS DEL ARCO GAS O DUCTO: 1230.085300000.00 NULL13AFF

5 COMPRE => 35AF 4 7 5 8 CS 2 CS 3 3 CS 1 21 6 9 10 DATOS DEL ARCO COMPRESOR: 23 SNARLINK 3 98FF 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 3 CS 1 2 COMPRE => 98FF 00 EMPTY 0 NULL

6 GASODUCTO => 13AFF GASODUCTO => 1110F 4 7 5 8 CS 2 CS 3 CS 1 3 21 6 9 10 DATOS DEL ARCO GAS O DUCTO: 1230.08530 3430.08530 14BF 13AFF 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 3 4 GASODUCTO => 14BF 0000.00 NULL

7 4 7 5 8 CS 2 CS 3 CS 1 3 21 6 9 10 COMPRE => 10F 00 EMPTY 0 NULL DATOS DEL ARCO COMPRESOR: COMPRE => 35AF 23 SNARLINK 3 98FF COMPRE => 98FF 45 SNARLINK 5 10F 45 CS 2 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5

8 Struct gasoductos { int nodo_i[4]; int nodod_f[4]; float longitud [5]; float d_interno[3]; float friccion[10]; struct gasoductos *sig_gos; } Struct compresor { int nodo_i[4]; int nodod_f[4]; char tipo[15]; int unidad[4]; struct compre *sig_compre; } typefed struct gasoductos god; god *punt; punt = (god*) malloc (sizeof(god)); Void crear_god (god *reg) { fscanf (arch, “%d %d %f %f %f”, reg->nodo_i, reg- >nodo_f, reg->longitud, reg->d_interno, reg->friccion); if (*reg->nodo_inicio==0) reg->sig_god=NULL; else { reg->sig_god=(god *) malloc (sizeof(god); crear_god(reg->sig_god); } typedef struct compresor compre; compre *punt2; punt2 = (compre*) malloc (sizeof(compre); Void crear_god (compre *reg) { fscanf (arch, “%d %d %s %d”, reg->nodo_i, reg- >nodo_f, reg->tipo, reg->unidad); if (*reg->nodo_i==0) reg->sig_compre=NULL; else { reg->sig_compre=(compre *) malloc (sizeof(compre); crear_compre(reg->sig_compre); }