Documento Asociado 1
Contents
1. t n od de ol 1 2 Subrutinas de selecci n APOYO FOR Son aquellas que nos sirven para llamar o seleccionar alguna subrutina de ejecuci n de acuerdo con alg n c digo determinado o bien nos definen algunas carater sticas del dibujo a realizar en funci n de los c digos que hayamos asignado a la capa Se encuentran exclusivamente en el bloque APOYO FOR si bien todas las subrutinas de este bloque no son solamente de selecci n Estas subrutinas son ESTRA Selecciona el espaciado vertical en cent metros del tipo de estratificaci n a dibujar en funci n del c digo correspondiente LAPIZ Define el n mero de pluma a utilizar en funci n de la litolog a SELCAL Selecciona el calificativo a dibujar seg n el c digo correspon diente SELEST Selecciona la estructura a dibujar en funci n del c digo cor respondiente SELLON Determina la anchura en cent metros reales del dibujo de la capa en funci n de la litolog a y de la granulometr a 1 3 Subrutinas mixtas Son aquellas que presentan caracter sticas comunes a las de ejecuci n y de selecci n En su mayor a se hallan englobadas en el bloque APOYO FOR y comprenden las siguientes subrutinas APOCON Selecciona y combina el contacto de la base de la capa anterior y el superior de la capa en consideraci n2. M M M Ee eom c EE A ne ea ee N o 45 y ug 50 51 52 53 5 55 ee ESTAATIFICACIONES Y LAMINACIONES Est convoluta Est cruzada pequena secala Est cruzada mediana secala Est cruzade gran eecala Est nodulosa Est ondulada Eset euroo pequent Est euroo mediana eecala Eat euroo gran escala Harring bone cruzada Lam flteer Len lenticular Lan ondulada Lam paralela PES Lam igaoidal Laninse rotae ESTRUCTURAS GAGANICAS Y Est organicaa Indiferencladas QO Algal met V Bloturbeaion Gs Cetromatoll toe ap o Oalitoe e Pallete T Perforaciones Pieadae AA Piotee en superficie 18 19 20 21 22 23 e 25 26 21 28 29 30 31 32 33 34 35 36 37 38 39 ya ya uu ESTRUCTURAS DIVERSRS Oo Est Ent O Cantos soorazados divarena indifarenciadas eubaereae indiferenciadas eee Cantos blandos 777 S Escape de fluidos Estilolitos Eotruoturas de carga O Crletas de desecaclon Gotas de lluvia Y Paleosuelo A Poroeldad feneotral AA Superficie caratificacion CONCRECIONES HINERRLES O mineral inditerenolada Crletales
3. F Selecci n del tipo de leyenda Tras la introducci n del nombre del fichero de datos habremos de es coger el tipo de leyenda de nuestra columna o sondeo Por tal motivo aparecer n los siguientes r tulos en pantalla LEYENDA A REPRESENTAR Toda la leyenda completa Solo los simbolos que aparecen en la columna Sin leyenda Elige una opcion y pulsa RETURN A partir de aqu y tras unos minutos de c lculo el trazador gr fico em pezar a dibujar nuestra columna o sondeo 2 2 Obtenci n del dibujo con otro equipo Si el equipo disponible es compatible con el anterior es necesario que el usuario cree los ejecutables adecuados a partir de los PROGRAMAS FUENTE del ITGE el compilador de FORTRAN y las librer as gr ficas PLOT88 o similar Para ello modificar el programa COLUMNA FOR como se indica en el apartado 2 1 punto 2 del MANUAL DE PROGRAMACION Para obtener el programa CODIGOS se tienen que lincar los siguientes m dulos objeto con las librer as de fortran y gr ficas adecuadas CODIGOS BASES APOYO ESTR1 ESTR2 CALIF LITOL CONTA Para obtener el programa COLUMNA se tienen que lincar los siguientes m dulos objeto con las librer as de fortran y gr ficas adecuadas COLUMNA ENTRADAS BASES APOYO ESTR1 ESTR2 CALIF LITOL LEYEN CONTA Una vez obtenidos los ejecutables adecuados seguir las instrucciones del apartado anterior para obtener el dibujo Referirse a los
4. a rt nem l CQ n M CE Campo n 7 Tipo de contacto en la base num rico opcional por omisi n Nitido 1 2 espacios Admite los siguientes tipos de contacto C digo Contacto 1 2 6 7 N tido Transicional Difuso Ondulado a escala Ripples de corriente Laguna estratigr fica Erosivo a gran escala Campos n 8 y 9 Granulometr a en techo y base respectivamente num rico opcional por omisi n 3 2 espacios cada uno Este campo s lo tiene significado en el caso de Areniscas Con glomerados y Calizas Las granulometr as aceptadas son las siguientes Areniscas C digo Granulometria 1 Limo 2 Muy fina 3 Fina 4 Media 5 Gruesa 6 Muy gruesa Instituto Tecnol gico GOLUMNA GeoMinero de Espa a 12 MANUAL DE USUARIO Conglomerados C digo Granulometria 1 Muy fina 2 Fina 3 Media 4 Gruesa 5 Muy gruesa Calizas C digo Granulometria Textura 1 Mudstone 2 Wackestone 3 Packstone 4 Grainstone 5 Floatstone Rudstone 6 Boundstone Bafflestone Bindstone Framestone En el caso de las calizas s lo es necesario el c digo de la textura del techo La textura de la base no tiene sentido alguno Campo n 10 Direcci n de corriente num rico opcional 4 espacios Se introduce un n mero de tres cifras indicando la direcci n y el sentido de l
5. 5 w 5 us 5 OPHIOAnDAFA 6URRDHS V w 2 c r O mo CO e c Fig l Columna Fig 2 Sondeo gt 22 gt 3 OININSU eueds gt m Qo gt 22 t eulbed i LITOLOGIA AER w MENE P Vrbs oo firenlect Margis Caltse Dolaala Teeo Carton Tramo cublerte 4 Grantte CALIFICATIVO Arollloso Liaoso Arenoso Caloereo Doloaltioo Biooltstica Intreclestico Oolftico Palletotdel Beattleetone Bindstone Friaeetone Flostelone Rudetona CONTACTOS TECHO TUrensicional Ol turo Onduledo pequena secale Ripplee de corriente Laguna setratlgrarica ee ndul do a gran Ondulado 8 mediana ancela BRSE 1 Trinelcional Ultueo Ondulsdo 8 pequena eecalt R ipplse de corciente Laguna eeicutigreasica Eroelvo a gran escala ESTRATIFICACI N fina Hadia Cruesa Hoy gruses Dr 5 30 IVANVA YNANIOO 3 oJeutwoen 0 0U981 oimusu eueds 5 0215 O o
6. ce Litas AENA ee Reese EDI UE RING 7 4 rape AAA A EA E es Sod NI ER ssp apes mi mw mis mimi A um mim mim ES m Su ER ERE Bs AD e E GEB EE RD RET BLUE I U U H a H HHH di ctm pct cs rp des sss E BI Ei RS ad AU HH qni 636 1 S ES ES EP Pee Sa Ns i 31 31900 asta ie ee 00 1 efe L tt asya oe _ onsi EI HH 773 E HH HL 4 EEE E E vdvo opp he te prse eese BER sis sssi STA El ES IESS pa BE IS RE Lr ESPESOR IDENTIFICACION DE MUESTRAS N2 DE HOJA
7. Y Instituto Tecnol gico GeoMinero de Espa a COLUMNA PROGRAMA PARA DIBUJO DE COLUMNAS SEDIMENTOLOGICAS EXPEDIENTE ORGANICA N PROGRAMA CONCEPTO N S te MINISTERIO DE INDUSTRIA Y ENERGIA OTOY6 Indice MANUAL DE USUARIO 1 INTRODUCCION 2 1 Creaci n del fichero de datos 6 1 1 Creaci n mediante el programa EDICOL 6 1 2 Creaci n mediante el uso de un editor 6 1 2 1 Registros de identificaci n de la columna 7 1 2 2 Registros de identificaci n de Capas 8 2 Dibujo de columnas 15 2 1 Ejemplo para un IBM AT un trazador gr fico HP7586B 15 2 2 Obtenci n del dibujo con otro EQUIPO 18 MANUAL DEL PROGRAMADOR 19 1 Descripci n de las 21 1 1 Subrutinas de ejecuci n 21 1 1 1 BASES FOR 21 likes CALIFIGAFOR 2 3 8 22 p u k ua CX 22 1 1 3 CONTA FOR 23 1 1 4 1 a hun ESO 23 1 1 5 ESTR2 FOR 24 1 1 6 LEYENFOR 24 7 2 5 4 2 dr Oo AR 24 1 2 Subrutinas de selecci n APOYO FOR 25 1 3 Subrutinas mixtas
8. fichero datos El primer paso es codificaci n bien directamente el campo bien el gabinete de las caracter sticas sedimentol gicas de la serie estratigr fica A fin de facilitar esta labor se ha creado un estadillo que se adjunta en el Anexo 1 y que se recomienda usar ya que permite la codificaci n ordenada y r pida de la serie estratigr fica La informaci n recogida en el estadillo ha de ser introducida de forma secuencial en un fichero de datos que ser le do por el programa COLUMNA La creaci n de dicho fichero puede realizarse bien mediante el uso del programa EDICOL en elaboraci n o bien mediante cualquier editor con el que est familiarizado el usuario 1 1 Creaci n mediante el programa EDICOL En preparaci n 1 2 Creaci n mediante el uso de un editor En caso de que el usuario escoja la opci n de editar el fichero de datos con el editor a su elecci n ste ha de tener en consideraci n que el programa COLUMNA se basa en la lectura secuencial de cada una de las l neas del fichero de datos Las primeras 16 l neas 12 registros iden tifican la columna En los restantes registros se hallar n codificadas las caracter sticas de las capas correspondiendo cada registro a una capa En el Anexo 2 se adjunta un ejemplo del fichero de datos mediante el cual se han creado las Figuras 1 y 2 A continuaci n se indica el significado de cada uno de estos registros Instituto Tecnol g
9. a window If WINDOW is called must be called immediately after the PLOTS subroutine is called or after 8 call to PLOT with a value of 999 ic new drawing The default window size for cach device is provided in Table I Calling Sequence CALL WINDOW amin ymin xmax ymaa Parameieis Parameter Type Value Description real minimum X value ymin real minimum Y axis value real maximum X axig value yaax real maximum Y axis value The cectangle formed by the pairs ymin ymin x max ymax and xmin ymax the drawing window ss shown in Figure 3 Note the relationsbip between WINDOW aed FACTOR depending which routine is called first i v The order in which WINDOW and FACTOR erc calicd will give different results If FACTOR is called first and WINDOW is calicd second the window uscd will bc scaled by the value in thc FACTOR cali The entire drawing will be shown i e the new factor size will not cause additional clipping If WINDOW called first and FACTOR is called second the window used wil reflect the factos size at thc time the WINDOW call was made The drawing be enlarged or seduced based on the factor size but will be clipped if it cannot fit in the wibdow Z 099 413901 012 51 Window Examples This example show i drawing with E window will be in the next vut windowing The das
10. estes ta ap Hoduloe de allex Pirita ESTRUCTURRS DE CORRIENTE I Est corriente inditerenciada v Bounce asrk xr Canales Interestratisicadoe Cantos iabricados lt Flute caet Parting lineation Ripple de corriente Ripple de cresta plana Ripplee de olanje 56 91 58 59 60 61 62 63 6l 65 66 67 68 63 10 72 13 74 75 76 11 78 79 80 81 82 83 Bu 85 86 87 88 89 90 91 92 93 9u 95 96 97 98 un menu RESTOS ORGRNICOS D oo DT 1 I ur gt lt 40 6 Fosilaa indiferenolados indiferen Hicrofsuna indlteren Hicraflora indiferen Hicrof amp una planoton Inditeren Hiccofauna bantonica indiferen Roctoe toeilee rotoe flsetoe vagutalus enteros Reetoe vegetales rotos Restos vertebr amp doe entaroe Restos vertobrsdos rotoe Algae Rlveolinae Amoni taa Belemnites Braqulopodoe Briozooa Carofitae r Conodontoe Coralee P Crinoides Equinidos Eupioulae da seponjas filamantos Gaetaropodas Globigerinse Cloborotslise Globotruncante Graptolltes Lacazinse Lemelibranguios Miljolidos Orbitoidos Orbitolinae Oetracodus Revtoe de pocas Radiolarlioa Radiolae oquinidos Rodotlcose Audiethe 1 Creaci n
11. undefined No color change tcd y ondefincd No cotos change Example f Produce 2 drawings One on the IBM Color Graphics Adapter and onc on the 11 7475 Output the first drawing before starting processing on the second c Program Structure c C 429484448460 454665446696554604 9509604544545864546458665h6 4664560646555586b6b bhhtt tt t 4tonte c Initialize the IBM Graphics Adapter c example of Drawing Preview a CALL PLOTS 0 99 99 ist drawing PLOT88 calls here CALL PLOT 0 0 0 0 999 65688556446565b4 44464606565549554565666b 4b t t tb ttdtdhh thkt t t thtttt thas Init alize the 7475 One possible hard copy graphics device 5594664544684 EEE EZ EZ SIE Oo000000 CALL PLOTS 0 9600 30 2nd drawing PLOTS6 calls here CALL PLOT 0 0 0 0 999 o06500000 a STOP END Note Multiple PLOTS O ioport modet PLOT 0 0 0 0 999 sequences are allowed in the same eaccution This permits multiple drawings to be produced when only a limited amount of disk space is available the meta files 1t also allows several devices 10 be supported in the same execution of s program For example it is possible to preview plot followed by output to a h
12. BASES FOR CALIF FOR ESTR1 FOR ESTR2 FOR 1 LEYEN FOR LITOL FOR A continuaci n se describir someramente la funci n de las subrutinas englobadas en cada m dulo Hemos de indicar que el significado de sus Li respectivos argumentos se halla en forma de comentarios al principio de cada una de ellas Asimismo su l gica es bastante sencilla y podr des E cifrarse f cilmente 1 1 1 BASES FOR Son todas aquellas subrutinas que nos dibujan exclusivamente una trama vertical u horizontal Estas son THIN Dibuja una trama horizontal a intervalos OLUMNA Instituto Tecnol gico P gina C 21 MANUAL DEL PROGRAMADOR GeoMinero de Espa a TRAHOR Dibuja una trama horizontal continua TRAVER Dibuja una trama vertical discontinua 1 1 2 CALIFICA FOR Comprende aquellas subrutinas que nos dibujan alg n tipo de calificativo Estas son ARENOS Dibuja el calificativo arenoso ARGIL Dibuja el calificativo arcilloso BAFFLE Dibuja una trama tipo Bafflestone BIND Dibuja una trama tipo Bindstone BIOCLA Dibuja el calificativo biocl stico CALCAR Dibuja el calificativo calc reo DOLOM Dibuja el calificativo dolom tico FLOATS Dibuja una trama tipo Floatstone FRAME Dibuja una trama tipo Framestone INTRAC Dibuja el calificativo intracl stico LIMOSO Dibuja el calificativo limoso MARGOS Dibuja el calificativo margoso OOLIT Dibuja el califi
13. COORDENADAS AUTOR 2 tee uan et 0000 SIN NOMBRE SIN SITUAR SIN AUTOR SIN DENOM LOCAL 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 2 12 1000 O 7 1 2 1000 3 2 1000 3 6 3 1 200 3 21 100 5 1 2000 3 50 4 9 50 3 60 3 3 4 7000 2 3 1 2500 1 3 22 1000 0 1 gt Wwe 1 135 11 63 93 10 15 15 5432 40 15 52 5433 70 7 8 3 47 52 47 12 11 LENTEJONES DE ARCILLA GRIS F LENTEJONES DE OPHIOMORFA BUR 3 3 1 PLOTS Subroutine The PLOTS subroutine initislizes the PLOTSE software must be called before any other PLOTSE subroutines are called PLOTS defines the device specific default parameters based on the device type Table 1 and sets cach non device specific parameter to its value shown in Table 2 1106 Sequence CALL PLOTS 0 ioport model Parameters Parameter Type Value Description ___________________ 0 Ignored Included for corpatibility ioport integer Hardware interface types printer ports O PRN is equivalent to LPT1 1 LFT1 2 LPT2 3 LPT disk file 10 Disk File output See Section 5 10 Deferred plotting mode console See Attached Table 93 HGC Hercules Graphic Card 94 95 96 97 EGA IBM Enhanced Graphics Adapter 99 CGN IBM Color Graphics Adapter serial ports device baud parity fdata stop rate bits bite 300
14. Epson 10 1500 Printer single density Epson LQ 1500 Printer double density Epson 12 1500 double speed dual density Epson 10 1500 Printer quad density Houston Instrument DMP 51 MP 52 MP DMP 56A Enter SP1200 or Ioline LP 3700 Plotter 0 001 step size Paper sizes to O Houston Instrument 51 DMP 52 MP DMP 56 or Enter SP1200 or Ioline LP 3700 Plotter 0 005 step size Houston Instrument DMP 56 Enter SP1200 or Ioline LP 3700 Plotter 0 001 step size E size paper Models 60 to 65 are used by the UP LaserJet HP LaserJet Plus HP LaserJet 500 Plus and the HP LaserJet Ser es II HP LaserJet Printer using size paper 8 5 x 11 216 mm x 280mm Drawing resolution 75 dots per inch HP LaserJet Printer using B5 size paper 7 2 x 10 1 182mm x 257mm Draving resolution 75 dots per inch HP LaserJet Printer using A sire paper 8 5 x 11 216 mm 28028 Drawing resolution 150 dots per inch HP LaserJet Printer using B5 size paper 7 2 x 10 1 182mm x 257mn Drawing resolution 150 dots per inch 41 22 wa model integer Output Device identification continued Recommendation 64 HP LaserJet Printer using A siz P 8 5 x 11 216 mm x 28088 m raving resolution 300 dots per inch HP LaserJet Printer using B5 size The recommended ioport and model fos euch device is 8s follows a s Se X gt gt
15. LITOL FOR Comprende las subrutinas que dibujan la trama de alguna litolog a Estas son ARENIS Dibuja la trama de una arenisca ARGILA Dibuja la trama de una arcilla CALIZA Dibuja la trama de una caliza CARBON Dibuja la trama de carb n COVER Dibuja la trama de un tramo cubierto DOLOMI Dibuja la trama de una dolom a GRANIT Dibuja la trama de un granito LIMOS Dibuja la trama de limos MARGA Dibuja la trama de una marga YESOS Dibuja la trama de yesos La l gica de estas subrutinas es como sigue 1 Llamada a la subrutina de selecci n ESTRA a fin de determinar el espaciado vertical en cent metros del tipo de estratificaci n 2 Ejecuci n del dibujo de la trama correspondiente bien llamando guna subrutina del bloque BASES FOR o bien creando su propio algorit mo de dibujo Estos han sido los m dulos que pueden considerarse de ejecuci n Asimismo debe considerarse como una subrutina de ejecuci n la sub rutina CABEZAL que se halla en el bloque APOYO FOR Esta subrutina nos dibuja la car tula que nos identifica cada serie siguiendo las normas del Plan MAGNA Seguidamente pasaremos a describir aquellas subrutinas exclusivamente de selecci n EILEEN c Instituto Tecnol gico P gina COLUMNA GeoMinero de Espana 24 MANUAL DEL PROGRAMADOR
16. Sirve tanto para ejecutar el dibujo de alguno de los contactos no incluidos en las subrutinas anteriores como para selec cionar el tipo de contacto a dibujar 1 1 4 ESTR1 FOR Comprende todas aquellas subrutinas que dibujan el s mbolo de Estructuras de corriente COR1 9 Estructuras diversas DIV1 13 Estructuras de tipos de estratificaciones laminaciones EST1 17 Estructuras concreciones minerales 1 5 Estructuras org nicas ORG1 11 El dibujo que realiza cada una de ellas puede observarse ejecutando el programa CODIGOS EL orden en que aparece en el dibujo resultante es el correspondiente al n mero de subrutina dentro de su grupo cor respondiente As la estructura org nica dibujada con la subrutina ORG1 Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 23 MANUAL DEL PROGRAMADOR ee aparecera en primer lugar dentro dibujo del grupo de estructuras org nicas por el programa CODIGOS 1 1 5 ESTR2 FOR Este m dulo engloba todas aquellas subrutinas que dibujan alg n tipo de organismo f sil Son las subrutinas denominadas FOS1 44 Su l gica de identificaci n es la misma que en el m dulo ESTR1 FOR 1 1 6 LEYEN FOR En este m dulo se encuentra exclusivamente la subrutina LEYENDA que se utiliza para el dibujo de la leyenda Esta subrutina tiene almacenada mediante los correspondientes DATA los nombres de cada estructura calificativo litolog a y contacto 1 1 7
17. ee ignored 2 amp 9 T 52 oO N Minimum Character Helghi C c 7 M The IDM charscier set as specified by the font INMPLX is drawn based on a multiple 2 S of an dot high by 5 dot wide pattern Some characters are larger than B dots high as shown USER NG 90 HGT 14 in Section 4 1 All centered symbol as shown in Figure 18 are based on a multiple of 5 dot high by 5 dot wide pattern Table lists the minimum height at which a character _ CC 19H DL 9 CL gt can be drawn without loss form SOR amp Recommended ext height gt gt f A figure can be made suitable both projection and printing by making the height A of the text sl cast 1 40th of the smaller dimension of the drawing window Teble I lists N the minimum character height that should be used to provide readability of the text based on the default window dimensions JDt 1H913H 70 SYMBOL 4 SYMBOL o h A _ 27 12 X lt 15 Figure 19 X Symbol Orientation and QA Centered Symbols SYMBOL QU 5 exc BGE 63 62 413901 0172 413901 012 m we T Cu u da een a rA 3 7 WINDOW Subroutine The WINDOW subroutine defines the window in which the drawing will be made See Section 2 for an example
18. 1000 00100 200 00500 500 00200 75 01333 75 01333 150 00667 150 00667 300 00333 300 00333 96 01042 192 00521 96 01042 192 00521 192 00521 96 01042 192 00521 192 00521 1016 00098 508 00197 75 01333 63 0 0158 26 03850 26 03650 64 01571 45 02200 33 03030 preferred model number 163 0 default windowe 11 0 11 0 11 0 11 0 11 0 11 0 21 0 11 0 11 0 11 07 11 0 11 0 11 0 11 0 10 7 16 37 11 0 11 0 11 0 11 0 32 7 8 00 8 00 8 00 8 00 8 00 8 00 13 60 13 60 13 60 13 60 13 60 13 60 13 60 13 60 7 50 10 81 13 60 13 60 13 60 13 60 21 50 36 00 36 00 8 00 6 70 8 00 6 70 8 00 6 70 6 65 6 65 6 00 8 00 8 00 13 20 13 20 13 20 23 15 64 0 34 60 8 5 5 75 8 25 5 50 9 9 7 7 9 9 7 7 8 25 5 5 9 9 7 7 8 25 6 00 64 0 10 1 9 2 10 1 9 2 10 1 9 2 11 0 11 0 11 0 11 0 31 0 11 0 11 0 11 0 32 2 recommended absolute text min text 223 223 223 223 223 223 223 223 223 223 223 223 223 223 200 200 223 223 223 200 200 200 1407 140 140 140 140 140 140 140 140 140 140 140 140 140 290 200 140 1407 250 250 250 250 250 All
19. 2225 9 70 HP QuietJet 22284 0 12 HP QuietJet Plus 2227 0 75 HP LaserJet Printers 9600 9650 0 60 61 Tektronix 4025 4800 4850 90 Hercules Graphics Card 93 93 IBM 96 or 97 96 or 97 IBH Color Graphics 99 99 Adapter Refer to Section 5 10 informution on connecting these devices to your computer 41906012 415901 011 SA a Dot Matrix Priater Usage by model FX 80 Epson FX 80 e Epson Epson Epson Epson Epson Epson Epson Epson JX 80 FX 85 FX 185 FX 286 MX 80 RX 80 t RX 100 MX 100 FX 100 FX 100 IBM Graph Ptr IBM ProPrinter Centronics GLP Okidata 92 Ukidata 9 Okidata 182 Okidata 192 Okidata 193 e 9 8 oes 2 LEO The printer can Console usage by model The on display board memory required shown int The Enhanced graphics eee gt model 9 thie model number 026 2 6 not opcrate properly with 64K installed for models 96 or 97 Display number Hercules Monochrome 2 CGN Color Graphics 2 CGN Composite 2 Monochrome 64K Color Graphics 16 64K Color Graphics 16 64K Color Graphics 2 128K Monochrome 4 ECA 64K Enhanced Graph ce 2 64K Enhanced Graphics 16 EGA 64k Enhanced Graphics 16 128K Enhanced Graphics 16
20. 25 2 Estructura del programa COLUMNA 26 2 1 Resoluci n interactiva e inicializaci n del trazador gr fico 26 2 2 Dibujo de la Car tula 27 2 3 Dibujo de las capas 27 2 4 Acabado del dibujo 28 3 Modificaci n de los programas ejecutables 29 ANEXO 1 Estadillo para codificacin de datos 30 ANEXO 2 Ejemplo de fichero de datos 32 ANEXO 3 Subrutinas gr ficas utilizadas MANUAL DE USUARIO 9 A a INTRODUCCION El programa COLUMNA es un programa que permite mediante la lec tura secuencial de un fichero de datos el dibujo de columnas estratigr ficas y Sondeos como los que se presentan en las Figuras 1 y 2 respectivamente En el dibujo se tiene especial consideraci n de una serie de aspectos con claro inter s en el an lisis de una secuencia sedimen tol gica y que se detallan a continuaci n 1 Indicaci n de n mero de capa 2 Tipo de litolog a Figura 3 3 Calificativos litol gicos tales como calc reo dolom tico etc 4 Tipo de estratificaci n de muy fina a muy gruesa 5 Espesor de la capa 6 Tipo de contactos en eltecho y la base 7 Granulometria del techo y de la base 8 Paleocorrientes 9 Estructuras sedimentarias restos org nicos Figura 4 10 Identificaci n de la posici n de muestras en la columna 11 Comentarios adiciona
21. 44 t resolution 720 by 348 640 640 320 640 640 640 640 320 640 640 by by 200 200 200 200 200 350 200 200 200 350 93 99 99 93 95 99 96 99 94 95 97 adapter model 93 99 99 94 95 99 96 99 94 95 97 413901 011 iy Table 1 OUTPUT DEVICE CHARACTERISTICS dots inch model X 9 0 72 01389 1 72 01389 2 72 01389 72 01389 4 72 01269 5 72 01389 6 22 01389 10 72 01389 11 22 01389 12 72 01389 1 72 01369 14 72 01389 15 72 01289 16 22 01289 4 dots inch 60 01667 129 00830 120 00830 240 00400 80 01250 72 01389 90 01111 60 01667 120 00830 120 00830 240 00400 80 01250 22 013897 90 01111 20 1016 00098 1016 00098 30 1016 00098 1016 00098 40 60 01667 41 60 01667 42 60 01667 43 60 01667 51 1000 00100 52 200 00500 56 500 00200 60 75 01333 61 75 01233 62 150 00667 63 150 00667 64 300 00333 65 300 00333 70 96 01042 71 96 01042 72 96 01042 73 96 01042 74 192 00521 75 96 01042 76 96 01042 77 192 00521 80 1016 00098 85 508 00197 90 75 01333 93 67 0 01149 94 32 03094 95 65 01547 96 76 01229 97 65 01547 99 71 01299 60 01667 120 00830 120 00830 240 00400
22. COM1 300 H 8 1 301 300 7 1 302 300 E 1 1200 COMI 1200 H B 1 1201 COM1 1200 7 1 1202 COM1 1200 7 1 2400 COMI 2400 N 1 2401 COMI 2400 7 1 2402 COMI 2400 E 7 1 4800 COMI 4800 N 8 1 4601 COM1 4800 7 1 4802 COMI 4800 7 1 9600 COMI 9600 H 3 1 9601 COMI 9600 7 1 9602 9600 7 1 parity None Even Odd 40 433201 011 model integer vis U Nm Y po O A Y 12 13 14 15 16 30 40 41 42 43 1 2 56 60 61 62 63 COM2 Add 50 to value for COMI For example output to a device attached to COM2 with data tranemitted at 9600 baud 8 data bita no parity would use an ioport Value of 9600 50 9650 Output Device identification Epeon 80 Epson FX 80 Epson FX 80 density Epson FX 90 Epson FX 80 single density double density double speed dual Printer Printer Printer printer printer quad density CRT Graphics I Epson FX 80 Printer plotter graphics Epson FX 80 Printer CRT Graphics II Epson FX 100 Printer single density Epson FX 100 Printer double density Epson FX 100 double speed dual density Epson FX 100 Printer quad density Epson FX 100 Printer CRT Graphics I Epson FX 100 Printer plotter graphics Epson FX 100 Printer CRT Graphics II HP 7470A Graphics Plotter HP 7475 Graphics Plotter or Enter Computer SP 600 Plotter
23. P gina COLUMNA GeoMinero de Espa a 9 MANUAL DE USUARIO Jp s u N ss Campo n 4 Tipo de estratificaci n num rico opcional por omisi n Media 2 2 espacios Admite los siguientes tipos de estratificaci n C digo Estratificaci n 1 Fina 2 Media 3 Gruesa 4 Muy gruesa Campo n 5 Espesor de la capa num rico obligatorio 6 espacios Ha de indicase el espesor de la capa en mil metros Admite capas inferiores a 99 999 metros de espesor Si se sit a un n mero negativo el programa deja la correspondiente longitud ya escalada en blanco Esta opci n puede ser til si se desea dibujar manualmente y con posterioridad alguna capa en concreto Campo n 6 Tipo de contacto en el techo num rico opcional por omisi n Nitido 1 2 espacios Admite los siguientes tipos de contacto C digo Contacto 1 N tido 2 Transicional 3 Difuso 4 Ondulado a escala 5 Ripples corriente 6 Laguna estratigr fica 7 Ondulado a gran escala 8 Ondulado a mediana escala T gt a s Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 11 MANUAL DE USUARIO P n Le
24. el programa principal Consta de varios pasos 1 Resoluci n de forma interactiva de aquellas preguntas generales que aparecen en pantalla al ejecutar el programa COLUMNA siguiendo las instrucciones presentadas en el Manual del Usuario y que se refieren a forma de representaci n escala y tipo de leyenda 2 Inicializaci n del trazador gr fico mediante la instrucci n CALL PLOTS 0 9600 85 de la librer a Plot88 Esta instrucci n inicializa un trazador gr fico HP7586B o compatible Si se quisiera utilizar cualquier otro tipo de perif rico tendr an que cambiarse los argumentos de esta sub rutina y de la subrutina Window de acuerdo con lo expuesto en la documentaci n de la librer a gr fica adjunta en el Anexo 3 As mismo las instrucciones que calculan la escala m nima del dibujo deber an modificarse convenientemente Como detalle importante para evitar problemas en la ejecuci n todas las preguntas del paso anterior deben efectuarse previamente a la inicializaci n del trazador gr fico 3 Seguidamente se transifiere el control del programa a la subrutina COLUMN cual realizar todo el proceso de dibujo de la columna estratigr fica o sondeo Instituto Tecnol gico P gina COLUMNA GeoMinero de Espana 26 MANUAL DEL PROGRAMADOR a emen Ak 2 2 Dibujo de la car tula Mediante la llamada de la subrutina COLUMN a la subrutina CABEZAL el programa C
25. it s m new position to which the pen vill be moved are relative to the existing origin r EIE OR Fee ee state during move current location redefined as movement occurs n Er move draw to using the last state up or down move draw to x y using the last etate and redefine a new origin 0 0 at draw solid line to draw a solid line to x y Redefine a origin t move to No line drawn move to No line drawn Redefine a origin at x y perform offset and scaling on x y Draw a line to computed location See Section 2 5 perform offset and scaling on x y Draw line to computed location Redofino origin at computed location See Section 3 5 perform offset and scaling on x y Move to computed location Sce Section 3 5 perform offset and scaling on x y Move to computed location Redefine origin at computed location Section 3 5 terminate this drawing Terminato PLOT library usage terminate this drawing Move to next page of printer Uegin next drawing 39 I a n E Examples i U 1 e PLOT Example eJ PLOT Example 2 T Move 10 2 0 1 0 with the UP to 2 0 1 0 with pen UP CALL PLOT 20 1 0 3 i CALL PLOT 2 0 1 0 3 2308 th
26. modele have default window x min 0 0 ymin 00 printer dot or plotter step size shown in 413901 011 131 111 3117 111 111 111 311 121 1127 1117 111 111 111 060 060 317 1177 1177 117 070 100 070 1067 1067 100 100 070 070 073 073 073 073 073 073 073 0721 060 060 1067 190 216 210 1807 216 2424 35 46 Table 2 INITIAL DRAWING VALUES Drawing Scale fact factor size 1 0 Line Width inp V 1 dot wide or pen stroke Symbol Aspect ratio 101pc 10 Symbol character path ismdir 0 horizontal text Offset 0 0 xfact 1 0 yof 0 9 10 Current X Y position 00 yloc 0 0 Dashcd Line Specification xline 4 72 0 0556 line xspace 4 72 0 0556 gap Axis Annotation onnhgt 16 727 0 2222 fihgt 16 72 022227 exphgs lt 8 727 0 1111 icing 727 01111 ndeca 2 Color 0 color index Fill Pattern Indes nfill solid fill Font Number ift IDIMPLX font Line Characteristics ilntyp solid line hgich 1389 height of a centered symbol on the linc anich 00 angie of rotation of centered symbol Contouring lt 0 two dimensional contouring Meth Color Indexaes Ichus undefined No color change undefined color change
27. paper 7 2 x 10 1 182m Epson FX 80 9 5 Y 5 on resolution 300 re Epson FX 80 0 5 s We ida 2225A Printer low densit Epson JX 80 o 5 23 WP 2225 Printer hlgh denity Epson FX 85 0 i 73 HP QuletJet t Printer single density EX 206 15 74 HP QuietJet 21265 counte density MX 80 0 1 75 HP nter quad den eM nhe 76 HP QuletJet Plus 2 15 7 227A Epson FX 100 0 i 77 ie density Vrincer Epson MX 100 0 11 Pius 22274 Printer u 80 HP 75808 HP 75858 IBM G hi int 1 75868 B raphics Printer R H 75954 Drafting Plotter or Enter IBM ProPrinter 1 Kr INI ng size A M4 to D A1 paper Centronics GLP 0 C A2 t to 7570 Plotter using coi i HP 7550A Graphics Okidata 182 1 aphics Plotter us ere ing size Okidata 192 0 x Y US A4 pie e plotter using size HI DMP Sl 9600 9650 51 85 75858 HP 75868 HP 7 52 9600 9650 51 HP 7596A D 595A or pur Plotter using size MU ep un 39 33 4025 Enter SP1000 9600 9650 ercules graphics Enter SP1200 9600 9650 51 94 card HGC mou T C E BIN D rt 99 IBM elor crephica adapter ERES E HP 7550A 9600 9650 80 HP 7570A 9600 9650 80 HP 75808 9600 9650 80 HP 75858 9600 9650 80 85 HP 75868 9600 9650 80 85 HP 7595N 9600 9650 90 85 HP 7596A 9600 9650 80 85 HP ThinkJet
28. respecto al muro de la capa Campo n 20 Comentarios alfanum rico opcional 40 espacios Permite introducir comentarios sobre alguna caracter stica adicional de la capa tal como queramos que aparezca en el dibujo t RN RR Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 14 MANUAL DE USUARIO E AA AAA 711 8 8 un lasa gr ars Turn wa II ee af Dar ws SE 38 2 Dibujo de columnas 2 1 Ejemplo para un IBM AT y un trazador gr fico 7586 El programa COLUMNA se suministra en diskette En l el usuario en contrar los siguientes ficheros 1 COLUMNA EXE es el ejecutable del programa COLUMNA para un AT con coprocesador matem tico y un trazador gr fico 75868 con papel DIN A1 2 CODIGOS EXE es el ejecutable del programa CODIGOS para un IBM AT con coprocesador matem tico y un trazador gr fico HP7586B con papel DIN Sirve para obtener en trazador gr fico una relaci n de sim bolos y sus respectivos c digos Para su ejecuci n y tras realizar los pasos A y B referentes la ejecuci n del programa COLUMNA que se presen tar n seguidamente tecl ese s
29. 1 ndec 5 89 999 DEGREES 57296 0 89 999 DEGREES 57296 ndec 89 999 DEGREES 5 5 LP 417 9 00 single precision teal number to its decimal string using SYMBOL The number is form Nad uw 3 10 SYMBOL Subroutine The SYMNOL subroutine is used to draw charac Characters con be drawn at any height and angic ratio Section 3 11 is applicd to cach character to condense or capand The previously defined character path Section 3 45 10 cach character 10 position it to the eight hclow the previous character centered symbol used by the LINE LGLIN and ZPOST subroutines to mark the location of data points er strings and special centered symbols The previously defined width height 21ptc fing Sequence CALL SYMBOL x y height cleat angle aw metert ig nc gt 0 and text path is to the right x y marks the lower left hand corner of the ist character be drawn x y real nc gt 0 and text path Is vertical marks the vert cal center line of the first character to be drawn and y marks the baseline of the character 4f nc lt 0 x y marks the center of the special symbol to be drawn continue this text string att r the last character of the last text string Do HOT use these values unless a string hae previously been drawn x 999 0 and or 999 0 height of each character i
30. COLUMN Es la subrutina principal que como se ver realiza el control del programa Selecciona la llamada a las subrutinas de selecci n y a veces directamente a las de ejecuci n o bien realiza algunos algoritmos sencillos de dibujo NATURA Esta subrutina mediante el uso de la subrutina anterior APOCON dibuja el contorno de la capa y selecciona la litolog a a dibujar de acuerdo con los c digos correspondientes SELCON Es la subrutina mixta que no se halla en el m dulo APOYO FOR Ya fue presentada con anterioridad en el m dulo CONTA FOR 1 1 3 Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 25 MANUAL DEL PROGRAMADOR A eo T x a ES 2 Estructura del programa COLUMNA El programa COLUMNA ha sido estructurado de modo que a medida que se vayan leyendo los distintos registros correspondientes a cada una de las capas se vaya realizando su dibujo Las principales etapas son como siguen Resoluci n interactiva e inicializaci n del trazador gr fico Dibujo de la car tula Dibujo de las capas Acabado del dibujo 2 1 Resoluci n interactiva e inicializaci n del trazador gr fico Esta etapa queda totalmente comprendida en el m dulo de compilaci n COLUMNA FOR en el que se halla
31. OLUMNA lee las primeras 16 l neas del fichero de datos y dibuja la car tula Recu rdese de lo expuesto en el Manual del Usuario que esas 16 l neas corresponden a los registros de identificaci n de la columna A continuaci n se devuelve de nuevo el control del programa a la subrutina COLUMN que comienza el dibujo de la columna estratigr fica o sondeo propiamente dicho 2 3 Dibujo de las capas En primer lugar se dibujan los encabezamientos de los campos segun sean para un sondeo o una columna A continuaci n empieza el proceso iterativo de leer los campos codificados correspondientes a cada una de las capas y su posterior dibujo El proceso detallado del dibujo de cada una de estas capas es como sigue 1 Guarda en memoria los valores de litolog a granulometr a y contacto de la base de la capa anterior La necesidad de esta operaci n se ver con posterioridad en el paso 5 2 Lectura de los campos del siguiente registro Si se localiza el final del fichero hasta el paso 14 3 Transformaci n del espesor de la capa a cent metros de dibujo acorde con la escala elegida interactivamente por el usuario 4 Asignaci n de valores por omisi n para aquellos campos opcionales dejados en blanco por el usuario 5 Llamada a la subrutina NATURA que se encarga de dibujar nicamente el contorno superior de la capa y la trama correspondiente la litolog a de la capa en consideraci n La raz n de que nicamente dib
32. a Asimismo pueden ser obligatorios u opcionales Cada campo obligatorio debe rellenarse con un valor acorde con las caracter sticas de la capa y en funci n de un c digo i que se describir a continuaci n Los campos opcionales pueden dejarse i en blanco No obstante en algunos de estos campos opcionales el programa asigna un valor por omisi n a fin de poder realizar el dibujo E contenido uno estos campos significado c digo i num rico correspondiente a cada una de las caracteristicas sedimen tol gicas es como sigue l Campo n 1 N mero de capa a Na mic buda e et num rico opcional 4 espacios Ha de indicarse el n mero de capa asignado en el campo que identifica la capa Dicho n mero ha de ser entero e inferior o igual a 3 cifras Su dibujo es omitido para capas inferiores a 3 mil metros reales de dibujo Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 8 MANUAL DE USUARIO toe tinis ere ee uj Campo n 2 Tipo de litolog a num rico obligatorio 3 espacios Ha de indicarse un n mero correspondiente a alguna de las siguientes litolog as admitidas por el programa C digo Litolog a 1 Arcilla 2 Limo 3 Arenisca 4 Conglomerado 5 6 Caliza 7 Dolom a 8 Yeso 9 Carb n 10 Tramo cubierto 11 Granito AAA Instituto Tecnol gico
33. a paleocorriente medida en grados hacia el Este tomando como origen el sentido Norte Campo n 11 12 13 14 y 15 Estructuras diversas num rico opcional 3 espacios cada uno Permiten introducir diversos indicadores de estructuras En cada uno de estos campos se introduce un n mero que var a entre 1 y 99 A cada n mero le corresponde el dibujo de una estructura conforme a lo que se puede observar ejecutando el programa CODIGOS EL de las DIO A A RN ERR Rx Instituto Tecnol gico P gina COLUMNA GeoMinero de 13 MANUAL DE USUARIO estructuras en el dibujo es independiente de la escala eso a fin de evitar una superposici n de estructuras para capas de espesor muy reducido el programa s lo dibuja aquellas estructuras para las capas cuyo espesor en el dibujo es superior a 2 5 mil metros Campos n 16 y 18 N mero de muestra num rico opcional 5 espacios cada uno Cada uno de estos campos reserva 4 posiciones para el numero cor respondiente a la muestra extra da de la capa Si la capa es inferior a 3 mil metros reales de dibujo la posici n de la muestra es omitida Si se sigue la normtiva Magna del estos campos se reservan para los ltimos caracteres de identificaci n de muestras y son del tipo NNNN Campos n 17 y 19 Distancia de la muestra al muro de la capa num rico opcional 5 espacios cada uno Se introducir la distancia en cent metros del punto de toma de muestra
34. ard copy device as shown in above Note When a drawing is output 10 console device the user must press Return to resume processing to display the neat drawing 413901 011 47 a m acp s Se Z s Example 2 Produce 2 drawings Program Structure Initlalize PLOTB Package CALL PLOTS 0 ioport model ist drawing PLOT88 calls here Output the 1st drawing CALL PLOT 0 0 0 0 999 nd drawing PLOTS6 calls here Output the 2nd drawing end the run CALL PLOT 0 0 0 0 999 600000500 STOP 48 3 2 PLOT Subroutine Calling Sequence CALL PLOT x ipen Parameters e x real ipen integer 2 3 3 12 212 13 bw 7922 11301009 413901 009 The PLOT subroutine moves the from the current position Io new position either by drawing a straight line to the new position down by moving to the new position with the pen up The new position may be redefined as a new origin All PLOT88 subroutines that produce graphical output eventually call PLOT The width and color of the lines are based ow previous values set by NEWPEN and COLOR If NEWI EN or COLOR are not called the default value given in Table 2 15 used A i 7 n aaa tg
35. cativo ool tico PELLET Dibuja el calificativo pelletoidal RUD Dibuja una trama Rudstone La l gica de cualquiera de las subrutinas de este m dulo es la siguiente 1 Llamada a la subrutina COLOR del Plot88 para seleccionar la pluma con la cual queremos que aparezca el calificativo a dibujar 2 Llamada a la subrutina de selecci n SELLON que nos define la anchura en centimetros reales de nuestro dibujo Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 22 MANUAL DEL PROGRAMADOR 3 Llamada a la subrutina de selecci n ESTRA que nos devuelve el espaciado vertical en cent metros reales de dibujo de la estratificaci n de la capa 4 Ejecuci n del dibujo de la trama correspondiente Para esta etapa se recurre bien a otras subrutinas de ejecuci n que nos dibujan tramas horizontales y verticales BASES FOR bien a subrutinas que dibujan algun tipo de estructura ESTR1 FOR ESTR2 FOR o bien se sigue alg n otro algoritmo sencillo de dibujo 1 1 3 CONTA FOR En este m dulo se encuentran todas aquellas subrutinas destinadas al dibujo de alg n tipo de contacto Estas son CONERO Dibuja un contacto a tramos EROSIV Dibuja un contacto erosivo en la base ONDSUP Dibuja un contacto ondulado a gran escala en el techo ONDULA Dibuja un contacto ondulado RIPPLE Dibuja un contacto quebrado SELCON No es propiamente una subrutina de ejecuci n sino que habr a que considerarla mixta
36. e pen DOWN Draw tinc to 5 1 2 5 with the pen DOWN and 5 1 2 5 2 re establish the origin gt CALL PLOT 5 1 2 5 2 Draw u line to 4 8 relative to the new origin with the DOWN CALL PLOT 0 4 0 8 2 T A I N x x eJ a 2 P O t 1 1 t uy E 411901 009 413001 009 ds j i 3 21 NUMBER Subroutine The NUMBER subroutine is used to convert 3 quivafent as character string and to draw the in FORTRAN F type format Calling Sequence CALL NUMDER Ux v height Jen agile ndec Parameters Parameter Type Valve Description x y real coordinate of the lower left corner of the first character of che numper x and or is 999 0 e number is continued from the last annotation see SYMBOL height i 4 q real height ot each character of the number fpn p rea floating point number to he drawn angl gle teal angle at which the number is drawn eile is im degrees measured Counterclockwise from the positive X integer 0 numbe of dig ts to the righ decimal point to an ae ee draw integer part of the numbe decimal point The number is died el draw Integer part ot Sei a ot the number vithout lt 1 rounded and then divided decl 1 we 10 The resulting rounded Examples TAN 89 999 DEGREES 57295 7897
37. encillamente la palabra CODIGOS 3 MUESTRA DAT es el fichero de datos mediante el cu l se crearon los dibujos de las Figuras 1 y 2 4 SIMBOLO DAT es un fichero utilizado por el programa COLUMNA en su ejecuci n Contiene los nombres del significado de s mbolos de la leyenda A fin de proceder con la ejecuci n del programa COLUMNA habr n de cumplirse los siguientes pasos A gt e A Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 15 MANUAL DE USUARIO A Conexi n f sica del equipo Con ctese el ordenador y el trazador gr fico B Preparaci n del trazador gr fico Sit ense las plumas en el trazador gr fico con la siguiente distribuci n Pluma Color 1 Indiferente A libre elecci n del usuario 2 Negro 0 3 3 Azul 0 3 4 Verde 0 3 5 Rojo 0 3 6 Negro 0 7 C Llamada del programa COLUMNA Introd zcase el diskette con el programa COLUMNA en la unidad y tecl ese COLUMNA A continuaci n y tras la aparici n en pantalla del r tulo PROGRAMA PARA DIBUJAR COLUMNAS Y SONDEOS aparecer n una serie de mensajes por pantalla El primero de ellos ser FORMATO DE REPRESENTACION Sondeo Sedimentologico Elige una opcion y pulsa RETURN i A A A A A M instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 16 MANUAL DE USUARIO La ejecuci n del programa quedar interrumpida hasta la introducci n de uno de los n meros indicad
38. hed linc indicates where the This example uses the same PLOTSB calls gs in the defined oy L Previous drawing with a window ymin 3 0 5 5 ymax 60 lt O O w 58 413901 012 3 8 NE The N 1 drawn u icgmenti Calling CAL Parame Parame inp Exampl e J amp w 41390
39. ico P gina COLUMNA GeoMinero de Espa a 6 MANUAL DE USUARIO 1 2 1 Registros identificaci n columna estos registros asignada una l nea fichero to el ultimo que tiene reservadas 5 l neas Registro n 1 N mero de hoja Se introduce el n mero de hoja a escala 1 50 000 Debe ser un n mero entero de un m ximo de 4 cifras Para las hojas MAGNA se utilizar la numeraci n de la cartograf a a escala 1 50 000 y corresponder con los 4 primeros caracteres del c digo de identificaci n de muestras Registro n 2 Nombre de la hoja Se introduce el nombre de la hoja a escala 1 50 000 Puede ser de hasta 40 caracteres ASCII Registro n 3 Provincia Se introduce el nombre de la provincia correspondiente en menos de 40 caracteres ASCII Registro n 4 Autor es Hay reservados 40 caracteres ASCII para el nombre de los autores de la serie Registro n 5 Nombre local Nombre que recibe la serie en menos de 40 caracteres ASCII Registro n 6 Identificaci n de muestras Se seguir la normativa Magna del ITGE Puede contener 4 caracteres del tipo EERR EE son las siglas de la empresa asignadas por el ITGE RR es el c digo del recolector aceptado por el ITGE Registro n 7 N mero de serie Se introduce el n mero de la serie Registro n 8 Fecha Se introduce la fecha en menos de 40 caracteres ASCII Registro n 9 Coordenadas X X Se introducen separadas po
40. les La documentaci n del programa se presenta dividida en dos manuales El primero se refiere al Manual del Usuario l se encontrar n las strucciones necesarias para la creaci n del fichero de datos el dibujo mediante trazador gr fico de una columna estratigr fica o La sona interesada nicamente la utilizaci n programa podr referirse exclusivamente a este manual El segundo manual Manual de Programaci n presenta informaci n referente la l gica del algoritmo seguida por el programa COLUMNA y que puede ser de inter s a aquellas personas que deseen introducir al guna modificaci n en el programa Instituto Tecnol gico P gina COLUMNA GeoMinero de 2 MANUAL DE USUARIO er DES 252 E S T j r s A Craaiosetri6 Estructuras Observiciones structurgg me w fo L 84 Kuesire Hreniecto ongloeaceoos ae ae ar t amp as corrientes corrientes L Im LENFEJUNES DE CARBON JONES O LHMEON OS 5 2 E s y 9 ARCILLA GALS FATABLE eo m o 6 LENTE JONES DE CARBON 3 0 HRCILLR CALS so LENTE JONES DE CARES z lt ua rnionont BURROWS n
41. manuales de FORTRAN y de las librer as gr ficas para con el procedimiento de compilaci n y lincado Instituto Tecnol gico P gina GeoMinero de Espana 18 MANUAL OE USUARIO MANUAL DEL PROGRAMADOR El programa COLUMNA ha sido codificado en lenguaje FORTRAN jun tamente con la sentencia IF THEN ELSE y unas pocas subrutinas de la librer a gr fica PLOT88 Color Number Plot Plots Symbol y Window El programa consta de una serie de subrutinas y de un programa principal que controla la llamada a las distintas subrutinas Dado que la casi totalidad de las instrucciones que componen el programa COLUMNA se hallan agrupadas en las subrutinas se presentar a continuaci n una somera descripci n de stas y posteriormente se introducir la l gica y estructura seguida por el programa en conjunto Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 20 MANUAL DEL PROGRAMADOR 1 Descripci n de las subrutinas Las subrutinas empleadas en el programa COLUMNA dependiendo de su tunci n pueden clasificarse en tres tipos Ejecuci n Selecci n Mixtas 1 1 Subrutinas de ejecuci n Son aquellas subrutinas que bien directamente bien mediante la llamada de otras subrutinas de ejecuci n realizan exclusivamente el dibujo bien de alguna estructura bien de la trama de alg n tipo de litolog a o calificativo Estas subrutinas han sido agrupadas dentro de los siguientes m dulos de compilaci n
42. n inches Use the height and angle of the last SYMBOL call ght real IA character text to be drawn array text angle n degrees about the X axis at which the text s drawn See Figure 19 for an example of text drawn at various angles angle real number of characters in ctext to bo drawn 1C integer one character to be drawn 41 901 012 el 1 a special centered symbol ctext 1 ls drawn The pen is UP while SYMIIUOI Example moving to x y f y The text is drawn at various hcights and angles with a character path to the right lt 1 a special centered symbol ctext 1 Note that on dot matrix printers the characters drawn at angles of O degrees 90 degrecs is drawn The DOWN whlle 180 degrees and 270 degrees will elways be of better quality than drawn at any moving to other angle Sce Appendia Note Most characters of the JAM PC character set can be drawn as shown in Section 4 1 and in Section 3 14 1n addition the futlowing special control characters can be inserted the character string to perform the following motions 2 BACKSPACE hex 11 BS backup 1 character This allows one character to be dravn on top T of another gt mm lt CARRIAGE RETURN hex QO CP next character to be drawn below the first character of the start of the last line C S NULL hex 00 HUL no action This character is
43. os Si queremos una representaci n en forma de columna estratigr fica habremos de introducir 2 Si queremos una representaci n en forma de sondeo habremos de intro ducir Si nuestra preferencia ha sido esta ultima opci n representaci n en forma de sondeo aparecer en pantalla el siguiente r tulo Indica el ancho del sondeo en cm 2 8 Habremos de introducir la anchura en cent metros reales de dibujo que queramos asignar al sondeo S lo se aceptar n valores entre 2 y 8 cent metros D Selecci n escala dibujo El siguiente r tulo que nos aparecer por pantalla ser Indica la longitud de la columna o sondeo en mt Habremos de introducir una longitud aproximada de la longitud real en el campo de nuestra serie Debe ser un valor superior a 10 metros e inferior a 5000 Seguidamente el programa calcular la escala m nima de la serie a partir de las dimensiones del papel y nos mostrar en pantalla los siguientes r tulos Indica la escala minimo 1 valor calculado por el programa Ej Escala 1 100 introducir 100 y RETURN E Selecci n del fichero de datos a representar A continuaci n se nos pedir el nombre y la extensi n del fichero en donde tenemos codificada nuestra columna o sondeo Por tal motivo aparecer n en pantalla los siguientes r tulos Nombre y extensi n del fichero Ej MUESTRA DAT Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 17 MANUAL DE USUARIO
44. r una coma los valores de las coordenadas en X del principio y fin de la serie Instituto Tecnol gico P gina COLUMNA GeoMinero de 7 MANUAL DE USUARIO Registro n 10 Coordenadas Y Se introducen separadas por una los valores de las coordenadas en Y del principio y fin de la serie Registro n 11 Coordenadas Z Z Se introducen separadas por una coma los valores de las coordenadas en Z del principio y fin de la serie Registro n 12 Situaci n En un m ximo de 5 l neas de 90 caracteres cada una se describir la localizaci n y acceso de la serie En caso de que dicha descripci n ocupe menos de esas 5 l neas habr de completarse con l neas en blanco 1 2 2 Registros de identificaci n de capas m Li rT Tras la introducci n de los registros de identificaci n de la columna se editan de modo secuencial de techo a muro los registros correspondien E tes a cada una de las capas con sus caracter sticas sedimentol gicas ocupando un campo dentro de cada registro siendo cada registro una l nea del fichero La longitud de cada uno de los campos es de un i ter m s del que se presenta en el estadillo del Anexo 1 Y para las per sonas versadas en programaci n FORTRAN podemos decir que siguen el formato 14 213 12 16 412 14 513 2 15 15 A40 Estos campos pueden ser num ricos o alfanum ricos Los campos T num ricos han de estar ajustados a la derech
45. ritura de la leyenda mediante la subrutina LEYENDA y seg n la opci n que hayamos escogido interactivamente al principio del programa Hemos de indicar que si el usuario localiza dentro del m dulo de com pilaci n del programa principal COLUMNA FOR mediante la lectura de los comentarios el grupo de instrucciones correspondientes a la selecci n del fichero de estructuras observar la presencia de estas dos instruc ciones puestas como comentarios C WRITE 7 Nombre del fichero de s mbolos utilizados C READ 1 NAM La inclusi n de dichas instrucciones como parte activa del programa pueden permitir al usuario escoger una simbolog a distinta a la contenida en el fichero SIMBOLO DAT De todos modos para evitar la proliferaci n de simbolog as muy diferentes se aconseja la no utilizaci n de esta opci n Si as se quisiera el usuario deber crear previamente a la ejecuci n del programa COLUMNA un fichero de datos similar al SIM BOLO DAT en el que se indique el n mero de simbolo y su nuevo sig nificado 3 Finalmente el programa COLUMNA realiza la desinicializaci n vol cado del dibujo en el trazador gr fico NND _ Instituto Tecnol gico P gina COLUMNA GeoMinero de 28 MANUAL DEL PROGRAMADOR 3 Modificaci n de los programas ejecutables El programa COLUMNA ha sido codificado en lenguaje FORTRAN IV jun tamente con la sentencia IF THEN ELSE y unas pocas subr
46. uje el con torno superior es que de este modo puede combinar convenientemente el contacto superior de la capa en consideraci n y el contacto inferior de la capa previa De ah la necesidad del paso 1 de guardar en memoria al gunos valores de la capa previa 6 Selecci n y dibujo si lo hubiese del calificativo correspondiente 7 Dibujo si hubiese de las paleocorrientes 8 Dibujo de las estructuras Almacenamiento en memoria de las estruc turas dibujadas 9 Dibujo del texto de la capa Instituto Tecnol gico P gina COLUMNA GeoMinero de Espa a 27 MANUAL DEL PROGRAMADOR 10 Dibujo n mero muestra 11 Dibujo n mero capa 12 Relocalizaci n origen dibujo del total cent metros del tramo dibujado Esto es necesario porque todas las subrutinas presuponen que el origen se halla situado en el extremo superior izquier do de la capa en consideraci n 13 Vuelve al paso 1 y comienza de nuevo el ciclo 14 Dibuja el contacto inferior de la ltima capa y empieza la etapa final del acabado del dibujo 2 4 Acabado del dibujo Corresponde a aquellas instrucciones destinadas a dar los ltimos reto ques al dibujo Esto se realiza mediante los siguientes pasos 1 La subrutina COLUMN procede al dibujo de las l neas de separaci n entre los distintos campos 2 A continuaci n y mediante el control del programa principal COLUM se realiza la esc
47. utinas de la librer a gr fica PLOT88 Color Number Plot Plots Symbol y Window cuya documentaci n se adjunta en el Anexo 3 Es necesario que el programador cree los ejecutables adecuados a partir de los PROGRAMAS FUENTE del ITGE modificados el compilador de FORTRAN IV y las librer as gr ficas PLOT88 o similar Para obtener el programa CODIGOS se tienen que lincar los siguientes m dulos objeto con las librer as de fortran y gr ficas adecuadas CODIGOS BASES APOYO ESTR1 ESTR2 CALIF LITOL CONTA Para obtener el programa COLUMNA se tienen que lincar los siguientes m dulos objeto con las librer as de fortran y gr ficas adecuadas COLUMNA ENTRADAS BASES APOYO ESTR1 ESTR2 CALIF LITOL LEYEN CONTA Referirse a los manuales de FORTRAN y de las librer as gr ficas para con ocer el procedimiento de compilaci n y lincado A Instituto Tecnol gico P gina COLUMNA QeoMinero de Espa a 29 MANUAL DEL PROGRAMADOR 1 PROVINCIA COMENTARIOS 40 caracteres x i i 1 i i i NOMBRE LOCAL SERIE N SITUACION m ximo 450 caracteres MUESTRA MUESTRA BEREBERAEAESEREEEABHBEERRZEREENEB o
Download Pdf Manuals
Related Search