Universidad Del Quindío PROGRAMACION EN BASIC PARA TOPOGRAFOS GONZALO J IMENEZ CLEVES APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES EN EXCEL Basic para Topógrafos PPRROOGGRRAAMMAACC IIÓÓNN EENN.
Universidad Del Quindío PROGRAMACION EN BASIC PARA TOPOGRAFOS GONZALO J IMENEZ C LEVES APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES EN EXCEL PRO G RA M A C IÓ N E EN B BA SIC PA RA TO PO G RA FO S APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES EN EXCEL Basic para Topógrafos PRO G RA M A C IÓ N E EN B BA SIC PA RA TO PO G RA FO S APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES EN EXCEL Gonzalo Jimenez Cleves Topógrafo Especialista en Computación para la Docencia Profesor Universidad del Quindio Basic para Topógrafos PRO G RA M A C IÓ N E EN B BA SIC PA RA TO PO G RA FO S APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES EN EXCEL Prohibida la reproducción total o parcial de esta obra Copyright © MMI Colombia Armenia 2001 Basic para Topógrafos A Juan Felipe Basic para Topógrafos TABLA DE CONTENIDO Generalidades Estructura secuencial Subprogramas 31 Estructura de Decisión Estructura de Ciclos Estructura de Datos Aplicaciones para la FX 880p Casio Aplicaciones en Excel Bibliografía 63 Basic para Topógrafos 45 73 85 95 115 139 Introducción Este libro ensa a programar en BASIC, orientado a los topógrafos, además se describe una serie de programas que efectúan una variedad de tareas comunes en la practica Aunque este libro esta orientado a la Casio FX 880P, sus programas pueden ser adaptados a otras calculadoras gran facilidad También incluye aplicaciones en Excel, para diferentes procesos altimétricos y planimétricos, se recomienda para estos tener conocimientos básicos del uso de la hoja electrónica Para la mejor comprensión de algunos programas se deben realizar lecturas complementarias de topografía Basic para Topógrafos J ustificación La calculadora le brinda la oportunidad al topógrafo de procesar la información en el sitio de trabajo, logrando esto resultados mas rápidos y económicos. La Universidad debe producir medios o programas que ayuden al egresado a mejorar su que hacer profesional. La tecnología simplificado los procesos de calculo mediante la utilización de calculadoras programables que cada vez son mas completas. La versatilidad cada vez mayor de los instrumentos de programación dan la oportunidad de mejorar los cálculos topográficos El topógrafo en la actualidad debe conocer al menos como programar en un instrumento común como lo es una calculadora Para procesos mas largos y de manejo de mayor información, la hoja electrónica Excel le ofrece esta posibilidad, además de la facilidad de la consecución en diferentes partes, ya que se convertido en un estándar de la industria. Basic para Topógrafos Objetivos Diseñar programas en BASIC Usar la hoja electrónica Excel para cálculos topográficos de gran volumen Disar algoritmos de aplicación en topografía Conocer los elementos principales de un sistema computacional Producir software para uso de los topógrafos Facilitar el proceso de cálculo in-situ Basic para Topógrafos GENERALIDADES 8.1.5 BALANCE DE VOLUMENES Siga los mismos pasos del método de Wilson (8.1.2) además de la modificación en paso no del método del promedio de alturas Ubico el cursor en la celda K5 y escribo Cota de Balance 10 Coloco el cursor en la celda M5 y escribo +H4+M4/(60*70) y presiono largo y el ancho de la cuadricula que estamos trabajando en el ejemplo , 60*70 m es el 11.Selecciono en menú principal Formato, Celdas, Número de pociones decimales, selecciono dos Podemos ver la cota de balance, esto permite que el volumen de corte sea igual al volumen de lleno Basic para Topógrafos 127 8.2 PLANIMETRIA A continuación se presenta la forma de calcular algunos de los trabajos mas dispendiosos de la planimetría como son los ajuste de poligonales 8.2.1.MÉTODO DE LA BRUJULA Los siguientes son los pasos para ajustar una poligonal cerrada por el método de la brújula Escribo los datos como aparecen en la siguiente grafica 2. Ubico el cursor en la celda E15 y marco una zona hasta la celda L20 selecciono en el menú Formato, selecciono Celda, escojo numero de posiciones decimales y escojo dos y presiono aceptar 128 Basic para Topógrafos 3. Ubico el cursor en la celda E15 y escribo: +D15*COS((B15+C15/60)*PI()/180) 4. Coloco el cursor en la celda F15y tecleo: +D15*SEN((B15+C15/60)*PI()/180 5. Ubico el cursor en la celda E15 marco una zona hasta F15 presiono el botón derecho del ratón y selecciono Copiar , marco una zona desde E16 hasta F20 y presiono el botón derecho del ratón y selecciono Pegar 6. Coloco el cursor en D8 y escribo P: 7. Ubico el cursor en D9 selecciono y marco desde D15 hasta D20 y presiono 8. Desplazo el cursor a E8 y escribo dPM, Luego en F8 y escribo dPP 9. Coloco el cursor en D9 selecciono el ratón Copiar marco una zona desde E9 hasta F9 y selecciono Pegar. 10. Marco una zona desde D9 hasta F9 , presiono el botón derecho del ratón escojo en el menú Formato de celdas selecciono Número escojo posiciones decimales y presiono aceptar 11. Ubico el cursor en la celda G15 y escribo -$E$9/$D$9*D15 12. Paro el cursor en H15 y escribo -$F$9/$D$9*D15 13. Marco una zona que vaya desde G15 a H15 , selecciono Copiar , marco una zona desde G16 hasta H20 y selecciono Pegar Basic para Topógrafos 129 14. Ubico el cursor en la celda I15 y tecleo +E15+G15 15. Coloco el cursor en J15 y escribo +F15+H15 16. Marco desde I15 hasta J15 y selecciono Copiar , marco una zona desde I16 hasta J20 y selecciono Pegar 17. Ubico el cursor en K14 y escribo 1000 (Origen coordenada norte) 18. Coloco el cursor en L14 y tecleo 1000 ( Origen coordenada este) 19. Ubico el cursor en K15 y escribo +K14+I15 20. Desplazo el cursor a L15 y tecleo +L14+J15 y presiono 21. Selecciono una zona que va desde K15 hasta L15, marco Copiar, marco una zona desde K16 hasta L20 y selecciono Pegar Nota: Si la poligonal es de mas lados simplemente se copia una zona comprendida desde la celda A20 hasta L20 la cantidad de estaciones que se desean adicionar 130 Basic para Topógrafos 8.2.2 MÉTODO DE CRANDALL ( MÍNIMOS CUADRADOS) A continuación aparece los pasos para calcular una poligonal cerrada por el método de Crandall, este es una emulación al método de mínimos cuadrados 1. Escribo los siguientes datos que nos presenta la grafica siguiente 2. Ubico el cursor en la celda E15 y marco una zona hasta la celda L20 selecciono en el menú Formato, selecciono Celda, escojo numero de posiciones decimales y escojo dos y presiono aceptar Ubico el cursor en la celda E15 y escribo: +D15*COS((B15+C15/60)*PI()/180) Coloco el cursor en la celda F15y tecleo: +D15*SENO((B15+C15/60)*PI()/180 5. Ubico el cursor en la celda E15 marco una zona hasta F15 presiono el botón derecho del ratón y selecciono Copiar , marco una zona desde E16 hasta F20 y presiono el botón derecho del ratón y selecciono Pegar 6. Coloco el cursor en D8 y escribo P: 7. Ubico el cursor en D9 selecciono y marco desde D15 hasta D20 y presiono 8. Desplazo el cursor a E8 y escribo dPM, Luego en F8 y escribo dPP Basic para Topógrafos 131 9. Coloco el cursor en D9 selecciono el ratón Copiar marco una zona desde E9 hasta F9 y selecciono Pegar. 10. Marco una zona desde D5 hasta M9 , presiono el botón derecho del ratón escojo en el menú Formato de celdas selecciono Número escojo posiciones decimales y presiono aceptar 11. Coloco el cursor en G15 y anoto +E15^2/D15/100 12. Ubico el cursor en H15 y escribo +F15/D15/100 13. Desplazo el cursor a I15 y tecleo +(E15+F15)/D15/100 14. Marco la zona que va desde G15 hasta I15, presiono el botón derecho del ratón y selecciono Copiar , marco una zona desde G16 hasta I20 y selecciono Pegar 15. Ubico el cursor en F9 presiono el botón derecho del ratón y selecciono Copiar , defino una zona desde G9 hasta I9 y escojo pegar 16. Coloco el cursor en D5 escribo A: 17. Ubico el cursor en D6 y escribo B: 18. Desplazo el cursor a E5 y tecleo +((F9*I9)-(E9*H9))/((G9*H9)-(I9^2) 132 Basic para Topógrafos 19. Coloco el cursor en E6 y tecleo +((E9*I9)-(F9*G9))/((G9*H9)-(I9^2)) 20. Posiciono el cursor en J15 y anoto +(G15*$E$5)+(I15*$E$6) 21. Coloco el cursor en K15 y escribo +(H15*$E$6)+(I15*$E$5) 22. Ubico el cursor en la celda N14 y tecleo 1000 (orígenes de las norte) 23. Coloco el cursor en O14 y escribo 1000 (origen de las este) 24. Desplazo el cursor hasta L15 y escribo la siguiente formula +E15+J15 25. Posiciono el cursor en M15 y tecleo +F15+K15 26. Coloco el cursor en N15 y escribo +N14+L15 27. Desplazo el cursor hasta O15 y anoto +O14+M15 28. Marco la zona que va desde J15 hasta O15, presiono el botón derecho del ratón y selecciono Copiar , marco una zona desde J16 hasta o20 y selecciono Pegar Nota: si la poligonal posee mas delatas, copie la zona desde A20 hasta O20 las veces que sea necesario, o , si la poligonal posee menos deltas del ejemplo planteado borre las estaciones sobrantes, marcando las filas que desde la columna A hasta la columna O Basic para Topógrafos 133 8.2.3 ÁREA POR COORDENADAS Se posee una lista de coordenadas de un predio del cual hay que obtener el área 1. Escriba los siguientes datos Nota: Se debe escribir el primer par de coordenadas al final de la lista, como parece en la grafica anterior 2. Desplazo el cursor hasta la celda C5 y escribo +(A4+A5)*(B4-B5) 3. Ubico el cursor en C5, presiono el botón derecho del ratón y selecciono Copiar , marco una zona desde C6 hasta C10 y selecciono Pegar. 4. Coloco el cursor en D12 y escribo m 2: 5. Ubico el cursor en E12 y escribo la siguiente formula +ABS(SUMA(C5:C10)/2), Aquí obtenemos el resultado del área en metros cuadrados m2 6. Desplazo el cursor hasta D14 y escribo Ha + m 2: 7. Coloco el cursor en E14 y escribo +TRUNCAR(E12/10000) 8. Llevo el cursor a F14 y escribo +TRUNCAR(E12/10000)-E4)*10000) 9. Muevo El cursor hasta la celda D16 y escribo Cd + v 2: 10. Ubico el cursor en E14 y escribo +TRUNCAR(E12/6400) 11. Desplazo el cursor hasta la celda F16 y escribo =TRUNCAR(((E12/6400)-E16)*10000), se expresa el área el resultado en tres unidades de medida 134 Basic para Topógrafos Basic para Topógrafos 135 C onc lusiones El lenguaje BASIC brinda todavía grandes posibilidades para desarrollar aplicaciones El profesional de la topografía puede realizar muchos cálculos un instrumento de poco valor como lo es una calculadora Excel le brinda la posibilidad en forma fácil de realizar una gran cantidad de cálculos La universidad debe crear grupos de desarrollo de software de aplicación especifica, como en el caso de la topografía A partir de este trabajo se puede implementar otros programas gran facilidad Basic para Topógrafos 137 138 Basic para Topógrafos BIBLIOGRAFIA Basic para Topógrafos 139 140 Basic para Topógrafos BIBLIOGRAFÍA ANDERSON JAMES M., MIKHAIL EDWARD M., Introducción a la Topografía McGraw Hill Mexico 1988 753 Págs BANNISTER, A AND RAYMOND S Surveying th Ed pitman publishing Ltd London 1977 632 Págs BOOCH, GRADY Análisis y diseño orientado a objetos aplicaciones ed Addison Wesley / Diaz de Santos 1996 693 Págs CASIO Computadora personal, scientific library 116 FX-850P/FX880P Manual del propietario Japón 430 Págs DAVIS, RAYMOND E., FOOTE, FRANCIS S., ANDERSON, JAMES H.,AND MIKHAIL, EDWARD M Surveying Theory and Practice 6th Ed McGraw-Hill Book Co New York 1981 992 Págs GÓMEZ G., GILBERTO JIMÉNEZ C GONZALO VILA O JOSE JOAQUIN Topografía Analítica Universidad del Quindío Armenia 2000 223 Págs JIMENEZ CLEVES GONZALO, VILA ORTEGA JOSÉ JOAQUÍN, HURTADO BEDOYA CARLOS ALBERTO, Introducción al diso de especificaciones en topografía Universidad del Quindío Armenia 1995 116 Págs JIMENEZ CLEVES GONZALO, Informática en Topografía Universidad del Quindío Armenia 1990 114 Págs JOYANES AGUILAR, LUIS RODRÍGUEZ BAENA, LUIS FERNÁNDEZ AZUELA, MATILDE Fundamentos de Programación Libro de problemas McGraw Hill España 1996 392 Págs JOYANES AGUILAR, LUIS MUÑOZ CLEMENTE ANTONIO Microsoft Visual Basic 6.0 McGrawHill Espa 1999 318 Págs MATTHEWS, MARTÍN S Excel para Windows 95 a su alcance McGraw Hill España 1996 509 Pags Basic para Topógrafos 141 MENDENHALL, WILLIAM Introducción a la Probabilidad y la Estadística Wadsworth Internacional / Iberoamérica Belmont (California) 1982 626 Págs MOUSSET, J La medida de distancias y la poligonacion Paraninfo Madrid 1976 93 Págs PAPPAS, CHRIS H MURRAY, H WILLIAM Visual C++ 6.0 Osborne McGraw-Hill España 1999 946 Págs RAYNER, WILLIAN H and Schmidt, Milton o Fundamentals of Surveying Van Nostrand Co New York 1969 533 Págs RICHARDUS P., assisted by Allman, J S Project Surveying North-Holland Publishing Co Amsterdam 1966 467 Págs SHEPHERD, F A Surveying Problems and Solutions Edward Arnold Ltd London 1968 654 Págs TOVAR H FERNANDO Algoritmos estructurados en seudocodigo Universidad del Quindío Armenia TRUTMANN, O El Teodolito y su empleo Wild Heerbrugg (Suiza) 1976 108 Págs WOLF, PAUL R., GHILANI CHARLES D Adjustment computations Statistics and Least Squares in Surveying and GIS John Wiley & Sons 1997 564 págs Internet Topographic Surveying http://uregina.ca/~sauchyn/geog411/topographic_surveying.html Land Surveying and Geomatics: On-Line Resources http://homepage.interaccess.com/~maynard/ Gonzalo Jimenez Cleves http://members-americas.tripod.com/gjc/index.html TOPOMUNDO - La revista de los profesionales de Topografía en INTERNET http://personal1.iddeo.es/dsantiso/tmundo.htm 142 Basic para Topógrafos ... S APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES EN EXCEL Basic para Topógrafos PRO G RA M A C IÓ N E EN B BA SIC PA RA TO PO G RA FO S APLICADO A LA FX 880P DE CASIO INCLUYE APLICACIONES... los de características artísticas para ser usados en diso Fig 1.16 Scanner 1.3 FX 880 P CASIO Fig 1.17 Fx 880p Casio CARACTERÍSTICAS Basic para Topógrafos 15 COMO ESCRIBIR UN PROGRAMA COMO EJECUTAR... Estructura de Ciclos Estructura de Datos Aplicaciones para la FX 880p Casio Aplicaciones en Excel Bibliografía 63 Basic para