Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.1
PROGRAMA DE TOPOGRAFIA PARA CALCULADORAS CASIO
REFERENCIA: fx-9750G PLUS
MANUAL DEL USUARIO
VERSION 3.1
2008 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 1 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.2
PROGRAMA DE TOPOGRAFIA PARA CALCULADORAS CASIO REFERENCIA: fx-9750G PLUS
MANUAL DEL USUARIO I.- PRESENTACIÓN Este Programa fue concebido para efectuar los trabajos de campo del topógrafo sin tener que dar muchos rodeos buscando el programa adecuado para una determinada labor en la calculadora que disponga. El concepto de programación utilizado se ajusta a los cálculos normales en los trabajos de campo y utiliza las formulas explicadas en la “TOPOGRAFIA” de Alvaro Torres N y Eduardo Villate B y en “TRAZADO Y LOCALIZACION DE CARRETERAS – TECNICAS Y ANALISIS” de Paulo Emilio Bravo. Es un enfoque personal del trabajo de campo y me ha sido muy útil como lo he desarrollado, en consecuencia espero que lo sea de la misma manera para Ud. señor topógrafo. Si encuentra observaciones o dificultades agradezco que me las haga llegar al correo
[email protected]
MUY IMPORTANTE: Al empezar a trabajar con la calculadora o al resetearla, verificar en: MENU: RUN (1): (SHIFT SET UP) la configuración del modo angular que debe estar en “Deg” pues de fábrica viene en modo “Rad”, y establecer la configuración del grafico en: MENU: STAT (2): GRPH: SET: StatGraph1: Graph Type= xyLine: xList= List5: yList= List6
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 2 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.3
II.- INDICE TEMA
ITEM
PAGINA
1. BORRAR MEMORIAS……………………………………. 1……………………………………… 3 2. ESTACION………………………………………………………..2…………………………………….. 4 3. LOCALIZAR PUNTOS RADIACION………………………………………. 4…………………………………….. 4 COORDENADAS……………………………….. 6…………………………………….. 5 INERSECCION…………………………….. 7…………………………………….. 5 4. LOCALIZAR UN EJE CALCULAR CURVA……………………………. 9…………………………………….. 6 ENTRAR DATOS………………………………..11…………………………………….11 DEFLECTAR…………………………………………12…………………………………… 11 SOLO COORDENADAS…………………….13……………………………………12 5. NIVELACION……………………………………………………14…………………………………….13 6. CURVAS VERTICALES…………………………………… 16…………………………………….14 7. INSTALAR TUBERIA........................................17.......................................15 8. CHAFLANES.........................................................18......................................16 9. AREAS................................................................... 19…………………………………… 18 10. CALCULO DE POLIGONAL…………………………….20………………………………… 18 11. BIBLIOGRAFIA………………………………………………………………………………………….19
III.- EXPLICACION DE LOS PROCESOS 1.
Para entrar en el programa se elige la opción “B” del “MENU” principal (MAIN MENU). Entonces aparece la lista de programas y subrutinas. Presionamos la tecla “EXE” e inmediatamente aparecen las siguientes opciones: BORRAR MEMORIAS=1 ESTACION=2 LOCALIZAR PUNTOS=3 LOCALIZAR UN EJE=4 NIVELACION=5 MAS OPCIONES=0? 2. La primera opción es muy útil cuando vamos a iniciar un trabajo, cuando no estamos seguros del contenido de las memorias o cuando en el proceso de cálculo obtenemos un resultado ilógico. Entonces elegimos (“1”). Nos preguntará si queremos conservar datos por si hemos efectuado algún calculo y queremos guardar esa información; si aceptamos (“1”) el proceso de borrado se interrumpe, a continuación procederemos así: MENU 4 SHIFT SET UP: File2 (elegimos un archivo diferente para nuestros próximos cálculos y se conservará la información que esté en el archivo anterior File1). Ahora entramos de nuevo a nuestro programa, borramos memorias y procederemos a trabajar con un archivo libre de información.
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 3 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.4 Si no queremos conservar información y hemos elegido “0” entonces se procederá a borrar todos los contenidos de las memorias y las listas de la calculadora. Presionamos la tecla “EXE” una vez más y de nuevo aparecen en pantalla las opciones antes anotadas. Si ninguna de las opciones es la que necesitamos utilizar, entonces elegimos “MAS OPOCIONES=0” y el programa presenta las aplicaciones restantes. 3. Ahora estamos preparados para empezar nuestro trabajo. Si se trata de las opciones “LOCALIZAR PUNTOS=3” o “LOCALIZAR UN EJE=4” es necesario introducir las coordenadas de armada del equipo de trabajo (Teodolito o Estación), entonces elegiremos la opción “ESTACION=2” y pedirá las coordenadas del punto de armada y regresa a las opciones primeras. NORTE ESTACION? 1000 ESTE ESTACION? 2000 COTA? 100 Si digitamos CERO la calculadora TRABAJARÁ SIN LA OPCIÓN DE COTAS y se salta a la opción de orientación del equipo. ALTURA DE PRISMA? 1.6 ALTURA DEL INSTR.? 1.55 Si trabajaremos con la cota de un BM diferente al punto de armada entonces ALTURA DEL INSTR.? 0 Entonces pedirá distancia vertical leída en el BM de referencia: DV? 0.05 (¡OJO! CON SU SIGNO) ALTURA INSTRUMENTAL= 101.550 CEROS ATRÁS? 1 ACIMUTH ATRÁS? 125º43’18” 4. Cuando elegimos la opción “LOCALIZAR PUNTOS=3” tenemos tres alternativas: RADIACION=1 COORDENADAS=2 INTERSECCIONES=3? 5. La opción “RADIACION=1” nos pregunta como trabajaremos: COTAS? 1 Si no es así le indicaremos ello digitando “0” (CERO). (PARA NEGAR UNA OPCIÓN DIGITAMOS “0” Y PARA ACEPTAR UNA OPCIÓN DIGITAMOS “1” EN CUALQUIER MOMENTO QUE EL PROGRAMA PIDA ELEGIR). Si aceptamos (“1”) nos pedirá los datos de entrada: DISTANCIA INCLINADA? 125.789 Si no estamos con CEROS ATRÁS nos pedirá el ACIMUT leído, si no: ANGULO HZ ? 65º19’53” ANGULO VERTICAL? 91º12’38” ALTURA DE PRISMA 1.60 OK? 0 Si hemos cambiado de Altura de Prisma rechazamos “0” y podemos introducir: NUEVA ALTURA DE PRISMA? 2.60 NORTE= 876.572 ESTE= 1975.889 COTA= 96.293 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 4 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.5 Y continúa pidiendo información. Si rechazamos el trabajar con COTAS (“0”) nos pedirá como datos de entrada la “DISTANCIA” leída y el “ACIMUTH” o “ANGULO” observados. NOTA: Si queremos SUSPENDER LA EJECUCION DEL PROGRAMA EN CUALQUIER MOMENTO presionamos la tecla AC/ON y el proceso se INTERRUMPIRÁ y si para continuar presionamos EXE el programa volverá al MENU INICIAL de la opción donde se hallaba procesando la calculadora. Si al preguntar “DISTANCIA” digitamos “0” se cancelará el proceso en que estamos y retornará a las opciones del Item 4 (anterior). 6. La opción “COORDENADAS=2” nos pregunta las coordenadas NORTE? 2509 ESTE? 3250 DISTANCIA= 1959.485 ANGULO= 273º54’55.56” CUERDA= 4105.798 Es la distancia desde el último punto localizado durante el proceso actual, lo cual necesariamente nos da a entender que SIEMPRE LA PRIMER CUERDA DE UN CALCULO QUE INICIEMOS SERÁ ERRÓNEA. CHAFLANAR? 1 Podemos rechazar (“0”) o aceptar (“1”) y entonces pedirá los datos generales: NUEVOS DATOS? 1 (solo para empezar o para cambiar datos) ASFALTO? 0.08 BASE? 0.23 SUBBASE? 0.25 MEDIA CALZADA? 3.65 BERMA? 1.80 BOMBEO? -2 (es el usual generalmente) COTA ROJA=? 96.05 SOBREANCHO? 0 (o lo que diga el diseño) PERALTE? 0 (si la abscisa del caso está en entretangencia y entonces el programa asume el bombeo especificado) TALUD? 2 (o el especificado sea para corte o terraplén) COTA TERRENO? 95.85 DISTANCIA AL EJE? 6.90 CHAFLAN A 6.881 AL EJE -0.019 (si la distancia es mayor a la teórica, si es menor indicará “FUERA DEL EJE”) OK? 1 (en este caso es aceptable, si la diferencia en la distancia del chaflán es inaceptable a su criterio digite “0”, mueva el prisma a la distancia que le indico antes “6.881”, tome la cota del terreno y la distancia y pruebe de nuevo el cálculo) CORTE= -0.476 (indica el corte o el terraplén según sea el caso) NORTE? (Retorna a pedir datos del siguiente punto)
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 5 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.6
Si al preguntar “NORTE” digitamos “0” se cancelará el proceso en que estamos y retornará a las opciones del punto 4 (anterior).
7. La opción “INTERSECCION=3” nos pedirá las coordenadas de los dos puntos (A-B) desde donde hemos localizado un tercer punto (C) por intersección de visuales trabajando con acimut directo y el resultado serán las coordenadas del punto en cuestión. NORTE PUNTO A? 1500 ESTE PUNTO A? 1700 ACIMUT DESDE A? 63º17’28” NORTE PUNTO B? 1400 ESTE PUNTO B? 2100 ACIMUT DESDE B? 317º25’49” NORTE 1606.034 ESTE 1910.743 Luego nos graficará los tres puntos.
N
C
N
A B
Finalmente pregunta si está bien OK? 1 Si hay otro punto entonces digitamos CERO (“0”) para calcular. Cada vez pedirá toda la información de los puntos de armada. Si hemos terminado se cancelará el proceso y al presionar “EXE” de nuevo estamos en el comienzo de nuestro programa (Ítem 1). Si nos equivocamos en el ítem 4 digitamos “0” y regresamos al Menú principal. 8. La cuarta opción es “LOCALIZAR UN EJE=4”. Si ese es el trabajo a efectuar entonces tenemos tres opciones: CALCULAR CURVA=1 ENTRAR DATOS=2 DEFLECTAR=3 SOLO COORDENADAS=4? 9. Si hemos elegido “CALCULAR CURVA=1”, pregunta: Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 6 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.7 CALCULAR PI? 1 Si ya tenemos las coordenadas del PI, el Delta y el Acimut de entrada de la curva introducidos en la calculadora entonces rechazamos “0”. Si no, en esta opción podemos hacer cálculos en el campo cuando estamos haciendo localización directa de una vía, así: 10. A partir de nuestra estación ubicamos cuatro puntos sobre las tangentes que vamos a intersecar para calcular el PI y le hacemos lecturas de ACIMUT y DISTANCIA o le calculamos las COORDENADAS de cada punto, que es la información que pide el programa. ENTRAR COORDENADAS=1 ACIMUT- DISTANCIA=2? 1 NORTE A? 1587.56 ESTE A? 2003.25 NORTE B? 1723.48 ESTE B? 2017.91 NORTE C? 2009.12 ESTE C? 2501.58 NORTE D? 1799.08 ESTE D? 2721.57 PI
C
B
D F E
A PI
Al terminar de introducir la información requerida (datos de campo) presenta los siguientes resultados: DELTA= 127º31’06.77” DISTANCIA B a PI= 681.58 ACIMUT DE ENTRADA= 6º09’21.55” DISTANCIA PI a C= 567.669 ACIMUT DE SALIDA= 133º40’28.31” Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 7 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.8 NORTE PI= 2401.130 ESTE PI= 2091.000 Luego nos graficará los puntos que hemos digitado y el PI. La localización del PI DISTANCIA= 1404.082 ANGULO HZ= 237º59’39.56” Si trabajamos con Acimut, nos dará el ACIMUT. Y finalmente debemos indicarle si el sentido de la curva DERECHA=1 ZQUIERDA= -1? 1 CALCULAR ELEMENTOS A continuación procede a calcular los elementos de la posible curva a trazar allí. Podemos hacer un “tanteo” y para ello podemos elegir probar con: POR TANGENTE=1 POR EXTERNA=2 POR RADIO=3? 1 Recomiendo empezar con TANGENTE y utilizar primero la distancia mas corta entre “B a PI” y “C a PI”. Si nuestra limitante es el RADIO entonces deberíamos probar con ese dato. Entonces, al introducir este primer dato obtenemos una opción en el terreno para probar, así: TANGENTE=? 200 EXTERNA= 124.39 Una externa posible que al localizarla veremos si nos pasa por el sitio que deseamos en la vía existente o en el terreno. RADIO= 98.589 El radio para esa posible curva. UBICAR LA EXTERNA: distancia y acimut para ver la ubicación en el terreno. NORTE= 2284.304 ESTE= 2133.717 DISTANCIA= 1291.247 ANGULO HZ= 240º13’20.36” OK? 1 Si la EXTERNA ubicada quedó en el sitio apropiado aceptamos (“1”) o si no podemos seguir probando (“0”) por ejemplo aumentando o disminuyendo la externa anterior o si es el caso ajustando el radio a las especificaciones de la vía. Una vez aceptado esta parte del proceso TOMAMOS NOTA DEL VALOR DE LA EXTERNA DEFINIDA y procedemos a calcular los demás elementos de la curva en cuestión. Debemos elegir si es: ESPIRAL- CIRCULAR-ESPIRAL=1 ESPIRAL- ESPIRAL=2 CIRCULAR=3? 1 Una vez definido el tipo de curva pide otros datos complementarios: Si la curva es espiralizada debemos definirle: ESPIRAL INICIAL? 100 (PUEDE VALER CERO) ESPIRAL FINAL? 50 (PUEDE VALER CERO)
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 8 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.9 RADIO? 100 CUERDA? 10 Para la localización, la CUERDA generalmente es de 10 m, pero puede usar cualquier cuerda. Entonces procede a entregarnos los elementos teóricos de la curva según el tipo escogido. ESPIRAL DE ENTRADA DELTA DE LA ESPIRAL= 28º38’52.4” X= 97.529 Y= 16.371 P= 4.130 K= 49.586 TL= 67.561 TC= 34.148 TE= 256.93 EE= 132.023 CLE= 98.893 DISLOQUE= 9.34 ESPIRAL DE SALIDA DELTA DE LA ESPIRAL= 14º19’26.2” X= 49.688 Y= 4.148 P= 1.039 K= 24.948 TL= 33.443 TC= 16.767 TE= 233.815 CLE= 49.861 DISLOQUE= 2.351 CURVA CIRCULAR DELTA CIRCULAR 84º32’48.16”º LC= 147.562 G= 5º43’46.48” T= 90.908 E= 35.145 REVISAR DATOS? 0 Si la curva calculada cumple con los requisitos y nos sirve para los efectos prácticos, entonces aceptamos (“1”) y podemos recorrer en pantalla todos los datos y tomar nota de los mismos, o podemos rechazar (“0”) y continuar. OK? 1 Si la EXTERNA DE LA ESPIRAL DE ENTRADA (EE=) se aproxima a la EXTERNA que hemos calculado y localizado inicialmente, aceptamos (“1”) si no rechazamos (“0”) y retorna a preguntarnos que tipo de curva queremos calcular, cambiamos el dato necesario, cualquiera que deseemos (LE o R) o el tipo de curva hasta lograr la EXTERNA mas cercana a la calculada. UBICAR EL TE NORTE= 2145.681 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 9 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.10 ESTE= 2063.448 DISTANCIA= 1147.437 ANGULO HZ= 237º26’53.25” UBICAR EL ET NORTE= 2239.666 ESTE= 2260.112 DISTANCIA= 1266.661 ANGULO HZ= 246º07’42.53” Nos pide las COORDENADAS y la ABSCISA del PT (o ET) ANTERIOR y la ABSCISA del PC (o TE) SIGUIENTE para enlazar la nueva curva con el abscisado general del proyecto y establecer el rango de trabajo en el proceso de calculo del abscisado. NORTE PT ANTERIOR? 1723.48 ESTE PT ANTERIOR? 2017.91 ENTRETANGENCIA= 424.65 ABSCISA PT ANTERIOR? 25817.358 ABSCISA TE= 26242.008 ABSCISA EC= 26342.008 ABSCISA CE= 26489.570 ABSCISA ET= 26539.570 APSCISA PC QUE SIGUE? 26925.477 Si no conocemos el dato del PC (o TE) SIGUIENTE podemos indicarle un dato cualquiera adelante y nos calculará UNA TANGENTE desde el del PT (o ET) de nuestra curva hasta donde le hayamos indicado PC (o TE) SIGUIENTE). Ahí termina este proceso. CALCULAR CARTERA? 1 CARTERA DE CAMPO=1 (ACIMUT y DISTANCIA) COORDENADAS=2? 2 (NORTE y ESTE de cada abscisa) Debemos elegir entre que abscisas queremos el cálculo ABSCISA INICIAL? 26240 ABSCISA FINAL? 26540 DISTANCIA AL EJE? 0 ABSCISAS CADA CUANTO? 20 El abscisado cada 5m, 10m, 20m, etc. y a cualquier distancia del eje, positiva a la derecha o negativo a la izquierda. POR FAVOR ESPERE ESTOY CALCULANDO Procede a efectuar el cálculo, lo que toma unos segundos. GRAFICAR Cuando lo haya completado (si el proceso aceptado fue “COORDENADAS” entonces nos graficará) LEER DATOS “ABSCISA – NORTE – ESTE” si estamos trabajando con acimut directo. “ABSCISA – DISTANCIA – ACIMUT - ANGULO” si estamos con ceros atrás. Podemos visualizar el abscisado y los datos calculados de los puntos. Si por algún motivo necesitamos suspender nuestra actividad y apagamos la calculadora, los valores calculados se conservan en la memoria y podemos acceder a ellos desde el MAIN MENU, en la opción “4” “LIST” y buscamos en las listas 4-5-6 o 3-4-5-6. Este es el tipo de información que Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 10 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.11 querríamos conservar si vamos a borrar memorias, entonces la calculadora nos advierte que cambiemos de archivo. OK? 1 Regresa a la opción de cálculo anterior. CALCULAR CURVA=1 ENTRAR DATOS=2 DEFLECTAR=3 SOLO COORDENADAS? 3 Entonces nos pedirá si queremos ”CALCULAR CARTERA” y se repite el proceso de la manera ya explicada. Si elegimos el cálculo de cada abscisa independientemente, entonces pide: ABSCISA? 26260 DISTANCIA AL EJE=? 0 DISTANCIA= 1165.399 ANGULO HZ= 237º29’56.31” CUERDA= 1233.869 NORTE= 2163.559 ESTE= 2065.473 CHAFLANAR? 1 Podemos rechazar (“0”) o aceptar (“1”) y entonces pedirá los datos generales: NUEVOS DATOS? 1 (solo para empezar o para cambiar datos) ASFALTO? 0.08 BASE? 0.23 SUBBASE? 0.25 MEDIA CALZADA? 3.65 BERMA? 1.80 BOMBEO? -2 (es el usual generalmente) COTA ROJA=? 96.05 SOBREANCHO? 0 (o lo que diga el diseño) PERALTE? 0 (si la abscisa del caso está en entretangencia y entonces el programa asume el bombeo especificado) TALUD? 2 (o el especificado sea para corte o terraplén) COTA TERRENO? 95.85 DISTANCIA AL EJE? 6.90 CHAFLAN A 6.881 AL EJE -0.019 (si la distancia es mayor a la teórica, si es menor indicará “FUERA DEL EJE”) OK? 1 (en este caso es aceptable, si la diferencia en la distancia del chaflán es inaceptable a su criterio digite “0”, mueva el prisma a la distancia que le indico antes “6.881”, tome la cota del terreno y la distancia y pruebe de nuevo el cálculo) CORTE= -0.476 (indica el corte o el terraplén según sea el caso) ABSCISA? (Continúa abscisando)
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 11 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.12 Las abscisas a localizar van desde el PT (o ET) anterior, pasando por la curva calculada y después del PT (o ET) localizará una tangente hasta donde le hayamos indicado el limite como PC (o TE) siguiente). Podemos localizar nuestra curva por el eje introduciendo CERO (“0”) a la “DISTANCIA AL EJE” o por cualquier lado de la misma así: por la DERECHA distancias positivas (p.ej: 5) o por la IZQUIERDA distancias negativas (p.ej: -5). 11. Si retornamos al Ítem 8 y elegimos “ENTRAR DATOS=2”, entonces nos pedirá los siguientes datos: Coordenadas NORTE y ESTE del PI El DELTA (o Angulo de deflexión) El RADIO de curvatura El ACIMUT DE ENTRADA de la curva (Acimut PC a PI) La ABCISA DEL PT (o ET) ANTERIOR La ABSCISA DEL PC (o TE) La ABSCISA DEL PC (o TE) SIGUIENTE Y el sentido (DERECHA=1 o IZQUIERDA= -1) Inmediatamente procede a calcular los elementos necesarios para la localización según el tipo de curva y después procede a calcular la ubicación a partir de la ABSCISA y DISTANCIA AL EJE indicados como en el caso anterior. Podemos localizar una TANGENTE a partir de las coordenadas del PI introducidas, con la orientación dada por el ACIMUT DE ENTRADA indicado y habiendo introducido CERO (“0”) en el DELTA y RADIO; de igual manera nos pedirá ABSCISA y DISTANCIA AL EJE y continuará el calculo de la manera ya explicada. 12. Si retornamos al Ítem 8 y elegimos “DEFLECTAR=3”, entonces nos pedirá si queremos ”CALCULAR CARTERA” y se repite el proceso de la manera ya explicada para la LOCALIZACIÓN A PARTIR DE LOS DATOS QUE YA ESTÁN INTRODUCIDOS. Esta opción es útil cuando estamos trabajando y debemos suspender el trabajo por algún motivo y posteriormente lo reanudamos. 13. Si retornamos al Ítem 8 y elegimos “SOLO COORDENADAS=4” cuando solo contamos con el listado de las coordenadas del eje sin los elementos y necesitamos a la vez colocar referencias al eje a las distancias que sean practicas en el terreno, entonces pregunta: CURVA? 1 Si son coordenadas de una curva afirmamos y entonces pregunta: DERECHA=1 : IZQUIERDA=-1? 1 NORTE ATRAS? 942.265 ESTE ATRAS? 1000 Para localizar en una curva las referencias necesitamos siempre tener las coordenadas de la ABSCISA ATRAS (puede ser las del PC para empezar), las de la ABSCISA A LOCALIZAR y las de la ABSCISA SIGUIENTE para calcular la bisectriz. Si por alguna razón hemos interrumpido el trabajo y necesitamos reanudarlo o para empezar en cualquier punto de la curva debemos introducir como coordenadas de inicio las de la abscisa inmediatamente anterior a la que vamos a localizar. NORTE ABSCISA? 952.248 (Abscisa a localizar) ESTE ABSCISA? 1000.5 NORTE SIGUIENTE? 962.132 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 12 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.13 ESTE SIGUIENTE? 1001.993 DISTANCIA AL EJE? 0 (Localizar el eje) DISTANCIA= 1000.648 ACIMUT= 267º15’53” CUERDA= 1381.223 OTRA ABSCISA? 0 (Para localizar referencias) DISTANCIA AL EJE? 10 (10 m a la derecha) NORTE= 951.250 ESTE= 1010.450 DISTANCIA= 990.750 ACIMUT= 267º10’46.58” CUERDA= 10.000 OTRA ABSCISA? 0 (Para localizar referencias) DISTANCIA AL EJE? -10 (10 m a la izquierda) NORTE= 953.246 ESTE= 990.550 DISTANCIA= 1010.532 ACIMUT= 267º20’53.42” CUERDA= 20.000 OTRA ABSCISA? 1 (Para localizar la siguiente) NORTE SIGUIENTE? 971.817 ESTE SIGUIENTE? 1004.466 Pide la abscisa adelante, y la que era SIGUIENTE en al anterior caso se torna en la que vamos a localizar ahora. Y se repite el proceso. Ahora bien, si al inicio, cuando nos pregunta: CURVA? 0 Si rechazamos porque es una tangente, entonces solo pide las coordenadas de la abscisa a localizar y las de la abscisa siguiente para efectos de calcular la normal al eje para las referencias y se repite el proceso anterior. Cuando se termina la curva y queremos cambiar o una tangente o viceversa, al preguntar: OTRA ABSCISA? π Digitamos “π” y el programa retorna al comienzo. Es MUY IMPORTANTE tener en cuenta que EN CUALQUIER CASO, SI EN EL INTERMEDIO HEMOS UTILIZADO OTRA OPCIÓN DEL PROGRAMA PROBABLEMENTE HABREMOS ALTERADO ALGÚN VALOR NECESARIO PARA EL CÁLCULO EN ALGUNA MEMORIA Y LO MÁS PRUDENTE SERÁ BORRAR MEMORIAS E INTRODUCIR LOS DATOS DE LA CURVA NUEVAMENTE. 14. Regresamos al MAIN MENU y elegimos la opción “NIVELACIÓN=5”. Nos pedirá lo siguiente: NIVEL=1 ESTACION=2? 1 BM? 100 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 13 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.14 V? 1.87 Si estamos trabajando con estación pedirá el “DV?” que se debe digitar con su signo. ALTURA INSTRUMENTAL= 101.870 Luego nos presenta las opciones: CALCULAR NIVELES=1 CALCULAR SECCIONES=2 TACOS DE CEREO=3? 1 Si elegimos la opción “CALCULAR NIVELES=1” entonces nos pedirá “VI=”, si digitamos una LECTURA DE MIRA obtendremos por resultado una COTA y si por el contrario digitamos una COTA obtendremos una LECTURADE MIRA. Siempre que trabajemos con la opción ESTACION entonces pedirá “DV?” y se debe digitar con su signo. Si hemos suspendido el programa y lo reanudamos, al pedir BM podemos digitar cero (“0”) y continuar si no hemos movido el aparato. Si elegimos la opción “CALCULAR SECCIONES=2” entonces nos pedirá: NUMERO DE PUNTOS? 5 DISTANCIA? -10 VI? 2 COTA= 99.870 Los datos de campo para cada punto, la distancia con signo menos (-) si es a la izquierda o positivo () a la derecha, de la sección transversal tomada. Al finalizar de introducir el número de datos de la sección indicada preguntará: GRAFICAR? 1 Si lo queremos hacer, nos mostrará la sección transversal tomada. Al final presionamos EXE y pide los datos de una nueva sección. Si hemos elegido la opción “TACOS DE CEREO=3”, debemos introducir los siguientes datos: TACOS A QUE NIVEL? 0 Será, respecto de la cota de diseño, cómo queremos dejar el taco si por debajo (-0.10), un poco alto (0.02) o por ceros (0). COTA ROJA? 99.85 Si digitamos cero (0) entonces asume que hemos cambiado y nos pedirá CAMBIO=? LECTURA= 2.020 VI? 1.976 Si digitamos cero (0) entonces nos pedirá COTA ROJA? COTA= 99.894 Nos indicará lo que debemos hacer, si subir (positivo) o bajar (negativo) el taco. BAJA -0.044 OK? : Si quedó en su sitio aceptamos (“1”) y volverá a pedir COTA ROJA?. Si repetimos lectura rechazamos (“0”) en tal caso vuelve a pedir VI? y repite el proceso. Podemos suspender el programa y salir presionando AC/ON en cualquier momento de la ejecución. 15. Si regresamos al MAIN MENU y ninguna de las opciones es la que nos interesa, entonces introducimos CERO (“0”), y en pantalla aparecen otras opciones así: CURVAS VERTICALES=1 INSTALAR TUBERIA=2 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 14 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.15 CHAFLANES=3 AREAS=4 CALCULO DE POLIGONAL=5 SALIR=0? 16. Si elegimos “CURVAS VERTICALES=1” nos pedirá lo siguiente: CALCULAR CARTERA? 1 ABSCISA PTV ATRÁS? 100 ABSCISA PCV? 200 COTA PCV? 100 CONOCE PENDIENTES? 0 Si no conocemos las pendientes, entonces las calcula. ABSCISA PIV? 350 COTA PIV? 120 ABSCISA PTV? 450 COTA PTV? 105 ABSCISA PCV SIGUE? 550 CURVA ASIMETRICA TANGENTE INICIAL= 150.000 PENDIENTE INICIAL= 13.333 TANGENTE FINAL= 100 PENDIENTE FINAL= -15.000 ABSCISA INICIAL? 200 ABSCISA FINAL? 450 ABSCISAR CADA CUANTO? 20 POR FAVOR ESPERE ESTOY CALCULANDO GRAFICAR LEER DATOS “ABSCISA – COTA” OK? 1 Si hemos terminado el calculo salimos (“1”), si necesitamos calcular algo mas negamos (“0”) Podemos calcular una curva abscisa por abscisa, entonces: CALCULAR CARTERA? 0 Digitamos cero (“0”) para NO CALCULAR CARTERA . Nos pide la información inicial total normal y luego pide: ABSCISA? 600 COTA= 46.275 Empieza el cálculo de los valores de cota en el rango indicado. Si introducimos un valor de ABSCISA MENOR del PTV ATRÁS o MAYOR del PCV SIGUIENTE preguntará NUEVO PI? 0 Si aceptamos (“1”) pedirá nuevos datos para calcular otra curva. Si rechazamos (“0”) entonces pedirá otra ABSCISA para calcular su valor. Podemos suspender el programa y salir presionando AC/ON en cualquier momento de la ejecución. 17. Si estamos en el Ítem 13 y elegimos “INSTALAR TUBERIA=2” nos pedirá lo siguiente: BM? 100
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 15 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.16 Si estamos reanudando un trabajo suspendido sin cambiar de altura instrumental introducimos CERO (“0”) para continuar. V? 1.8 ALTURA INSTRUMENTAL= 101.800 NUEVO TRAMO? 1 Si ya hemos introducido datos de trabajo y hemos suspendido, al reanudar podemos negar (“0”). Si aceptamos (“1”) entonces pedirá: CLAVE INICIAL? 99 PENDIENTE? -2 En valores reales con su signo, p.ej: 2 o 0.5 o –3.8 DIAMETRO INTERNO? 0.9 En metros, p.ej: para tubería de 12” será 0.30 ESPESOR? 0.1 De las paredes del tubo en metros, p.ej: para tubería de 12” será 0.035 CAMA? 0.1 El espesor del material a colocar debajo del tubo, p.ej: para tubería de 12” será 0.10 MEJORAMIENTO? 0 El espesor del material colocado para mejorar el piso. Si no se hace será igual a cero. Entonces pregunta otras opciones así: CALCULAR CARTERA=1 INSTALAR TUBERÍA=2 CONTROL DE EXCAVACIÓN=3? Si elegimos la opción “CALCULAR CARTERA=1” procede así: ABSCISA? 10 VI? 1.30 La lectura hecha sobre el terreno natural. COTA= 100.500 La cota del terreno natural. CLAVE= 98.800 COTA LOMO= 98.900 LECTURA= 2.900 COTA CAMA= 97.800 LECTURA= 4.000 COTA FONDO= 97.700 LECTURA= 4.100 CORTE= 2.800 La diferencia de altura entre el terreno natural y el fondo de excavación. Finalmente retorna a pedir ABSCISA y repite el proceso. Si elegimos “INSTALAR TUBERIA=2” nos pedirá: ABSCISA? 25 COTA LOMO= 98.600 LECTURA= 3.200 Finalmente retorna a pedir ABSCISA y repite el proceso. Si elegimos “CONTROL EXCAVACION=3” nos pedirá: ABSCISA? 43.50 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 16 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.17 COTA FONDO= 97.03 LECTURA= 4.770 Finalmente retorna a pedir ABSCISA y repite el proceso. Podemos suspender el programa y salir presionando AC/ON en cualquier momento de la ejecución. 18. Si estamos en el Ítem 13 y elegimos “CHAFLANES=3” nos pedirá lo siguiente: NIVEL=1: ESTACION=2? 1 BM? 100 Si estamos reanudando un trabajo suspendido sin cambiar de altura instrumental introducimos CERO (“0”) para continuar. V? 1.173 ALTURA INSTRUMENTAL= 101.673 Si hemos elegido ESTACION (“2”) debemos establecer el modo de trabajo DV=1 (Cuando solo tomamos DH y DV y es igual que con nivel) COTAS=2 (Datos XYZ) RADIACION=3? (Como tomando secciones transversales “AB,AC,AD”) NUEVOS DATOS? 1 Si no hay cambios entonces rechazamos (“0”). ASFALTO? 0.075 BASE? 0.28 SUBBASE? 0.1 MEDIA CALZADA? 3.65 BERMA? 1.8 BOMBEO? -2 (¡OJO! ¡CON SU SIGNO!) COTA ROJA? 99.85 SOBREANCHO? 0 El estipulado en las curvas según el diseñador, en las tangentes será (“0”). PERALTE? -3
El peralte del lado que vamos a chaflanar con su signo: si es en tangente, introducimos CERO (“0”) y el programa trabajará con el BOMBEO que hemos establecido antes. TALUD? 1 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 17 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.18 En valores reales, p. ej: 0.25 (al cuarto), 0.333 (al tercio), 0.5 (al medio), 0.75 (a los tres cuartos), 1, 2, etc. Si estamos chaflanando con el Nivel entonces pedirá: LECTURA? 1.2 La lectura hecha con la mira en el terreno natural. DISTANCIA AL EJE? 6.5 La distancia a la que hemos colocado la mira. Si es con la Estación y como “COTAS”, nos pedirá: COTA TERRENO? (La cota del piso donde está el prisma (valor de Z)) DISTANCIA AL EJE? (la distancia a la que hemos colocado el prisma) Si es con la Estación y como “RADIACION” nos pedirá: COTA TERRENO? (La cota del piso EN EL EJE, sitio del PASO 1) DH? DV? (Son los datos leídos donde está el prisma, PASO 2) CHAFLAN A 6.583 La distancia teórica de la ubicación del CHAFLAN a comparar con la distancia medida en el terreno. HACIA FUERA DEL EJE 0.083 OK? 1 Si no coinciden la distancia teórica con la real rechazamos (“0”) y se repite el proceso. Si coinciden la distancia teórica con la real entonces aceptamos (“1”). CORTE= -0.753 O TERRAPLEN= y obtendremos el corte o relleno según el caso o sea el CHAFLAN. OTRA ABSCISA? 0 Si aceptamos (“1”) pide de nuevo la información de la abscisa. Si rechazamos (“0”) entonces podemos continuar con la cota roja de la abscisa que hemos introducido para colocar el chaflán del otro lado en una tangente. En curvas, para colocar el chaflán del otro lado cambiamos el peralte y en cortes cambiamos el talud si aceptamos cuando pide: CAMBIAR DATOS? 1 SOBREANCHO? 0 PERALTE? 3 TALUD? 2 LECTURA? 2 DISTANCIA AL EJE? 6.7 CHAFLAN A= 6.624 HACIA EL EJE -0.076 OK? 1 TERRAPLEN= 0.397 Finalmente retorna a pedir OTRA ABSCISA? y repite el proceso. Podemos suspender el programa y salir presionando AC/ON en cualquier momento de la ejecución. 19. Si estamos en el Ítem 13 y elegimos “AREAS=4” nos pedirá lo siguiente: CUANTOS PUNTOS? 4 COORDENADAS=1 SECCIONES=2? 1 NORTE? 100 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 18 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.19 ESTE? 100 Y continúa hasta que introducimos de nuevo los datos del primer punto Si introducimos la información de la manera correcta, siguiendo el orden de los puntos del lindero o de la sección transversal a calcular, al introducir finalmente los datos iniciales mostrará: AREA= 10000.000 REVISAR DATOS? 1 Luego podremos verificar los datos introducidos y el grafico correspondiente. GRAFICAR Al presionar EXE retorna al comienzo del cálculo de areas. 20. Si estamos en el Ítem 13 y elegimos “CALCULAR POLIGONAL=5” nos pedirá lo siguiente: CUANTAS ARMADAS? 4 ABIERTA=1 CERRADA=2? 2 NORTE INICIAL? 100 ESTE INICIAL? 200 AL PUNTO NUMERO 2 ANGULO? 90 DISTANCIA? 100 Al terminar de digitar los datos de campo, podemos revisar y corregir lo que se haya digitado erróneamente. Luego, continúa con el proceso normal de cálculo de coordenadas y de ajuste en el caso de poligonal cerrada. Finalmente, grafica las coordenadas del calculo efectuado.
IV.- EJERCICIOS Id.Trabajo : Nomb.Trabajo : Descripción : Fecha listado:
1 EJEMPLO DE TODAS LAS CURVAS EJERCICIOS DE PRÁCTICA 24 MAY 2006 10:30PM
Informe de Curvas ----------------Curva 1 Tipo curva: TransiciónCircularTransición Tipo transición Clotoide Radio 140.000 Long. Tang.(entrada) 53.122 Long. Transic.(entrada) 50.000 Long. arco 5.271 Long. Tang.(Salida) 53.122 Long. Transic.(Salida) 50.000 Desviación (Delta) 22º37'12" izqd. Velocidad de diseño 41 KMH Acimuth de entrada 56º18'36" Coordenadas Norte Este Vértice alineaciones (PI) 1500.000 1300.000 TE K0596.169 1470.533 1255.800 Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 19 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.20 CE EC ET K0701.440 Centro C. Circ. Delta de la Espiral X Y P K TL TC TE EE CLE Delta de la Circular LC G P
1500.651 1504.377 1544.200 1601.491
1295.623 1299.349 1329.467 1198.509
10º13’53” 49.841 2.969 0.743 24.973 33.389 16.717 53.122 3.530 49.929 2º09’26” 5.271 4º05’33” 0.743
Curva 2 Tipo curva: Sólo de Transición Tipo transición Clotoide Radio 0.0 Long. Tang. 82.131 Long. Transición 80.000 Desviación (Delta) 37º52'30" dcha. Vel.de diseño 54 KPH Acimuth de entrada 33º41'24" Coordenadas Norte Este Vértice alineaciones (PI) 1800.000 1500.000 TE K0926.742 1731.663 1454.442 EE K1006.742 1792.652 1505.612 ET K1086.742 1825.972 1577.916 Delta de la Espiral X Y P K TL TC TE EE CLE
18º56’15” 79.130 8.745 2.195 39.855 53.642 26.947 82.131 9.246 79.612
Curva 3 Tipo curva: Solamente Circular Radio Long. Tang. Lon. Arco Desviación 52º07'30" dcha. Acimuth de entrada 71º33'54" Coordenadas Norte Vértice alineaciones (PI) 1900.000 PC K1271.930 1884.534
100.000 48.908 90.975 Este 1800.000 1753.601
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 20 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.21 PT K1362.905 Centro C. Circ. LC G T E
1872.871 1789.665
1840.694 1785.224
90.975 5º43’46” 48.908 11.319
Informe de Coordenadas ---------------------Eje número 1 P. K. 400.000 410.000 420.000 430.000 440.000 450.000 460.000 470.000 480.000 490.000 500.000 510.000 520.000 530.000 540.000 550.000 560.000 570.000 580.000 590.000 596.169 600.000 610.000 620.000 630.000 640.000 646.169 650.000 651.440 660.000 670.000 680.000 690.000 700.000 701.440
Acimut 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º18'36" 56º15'00" 55º31'37" 53º59'08" 51º37'33" 48º26'51" 46º04'43" 44º30'38" 43º55'17" 40º43'05" 37º44'07" 35º34'16" 34º13'32" 33º41'55" 33º41'24"
Norte 1361.718 1367.265 1372.812 1378.359 1383.906 1389.453 1395.000 1400.547 1406.094 1411.641 1417.188 1422.735 1428.282 1433.829 1439.376 1444.923 1450.470 1456.017 1461.564 1467.111 1470.533 1472.659 1478.258 1484.018 1490.053 1496.467 1500.651 1503.346 1504.377 1510.711 1518.464 1526.493 1534.702 1543.002 1544.200
Este 1092.577 1100.898 1109.218 1117.539 1125.859 1134.180 1142.500 1150.821 1159.141 1167.462 1175.782 1184.103 1192.423 1200.744 1209.064 1217.385 1225.705 1234.026 1242.346 1250.667 1255.800 1258.987 1267.273 1275.446 1283.419 1291.090 1295.623 1298.345 1299.349 1305.107 1311.421 1317.380 1323.092 1328.668 1329.467
710.000 720.000 730.000
33º41'24" 33º41'24" 33º41'24"
1551.323 1559.643 1567.964
1334.215 1339.762 1345.309
Referencia
TE
EC CE
ET
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 21 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.22 740.000 750.000 760.000 770.000 780.000 790.000 800.000 810.000 820.000 830.000 840.000 850.000 860.000 870.000 880.000 890.000 900.000 910.000 920.000 926.742 930.000 940.000 950.000 960.000 970.000 980.000 990.000 1000.000 1006.742 1010.000 1020.000 1030.000 1040.000 1050.000 1060.000 1070.000 1080.000 1086.742
33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º41'24" 33º43'17" 34º12'37" 35º17'27" 36º57'47" 39º13'38" 42º04'59" 45º31'51" 49º34'13" 52º37'39" 54º08'20" 58º23'04" 62º02'18" 65º06'01" 67º34'14" 69º26'57" 70º44'09" 71º25'50" 71º33'54"
1576.284 1584.605 1592.925 1601.246 1609.566 1617.887 1626.207 1634.528 1642.848 1651.169 1659.489 1667.810 1676.130 1684.451 1692.771 1701.092 1709.412 1717.733 1726.053 1731.663 1734.374 1742.672 1750.893 1758.975 1766.850 1774.441 1781.663 1788.417 1792.652 1794.595 1800.141 1805.101 1809.544 1813.549 1817.205 1820.601 1823.835 1825.972
1350.856 1356.403 1361.950 1367.497 1373.044 1378.591 1384.138 1389.685 1395.232 1400.779 1406.326 1411.873 1417.420 1422.967 1428.514 1434.061 1439.608 1445.155 1450.702 1454.442 1456.250 1461.830 1467.523 1473.411 1479.574 1486.081 1492.996 1500.368 1505.612 1508.228 1516.546 1525.228 1534.185 1543.347 1552.655 1562.060 1571.522 1577.916
1090.000 1100.000 1110.000 1120.000 1130.000 1140.000 1150.000 1160.000 1170.000 1180.000 1190.000 1200.000 1210.000 1220.000 1230.000 1240.000 1250.000
71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54" 71º33'54"
1827.003 1830.165 1833.327 1836.489 1839.652 1842.814 1845.976 1849.138 1852.301 1855.463 1858.625 1861.788 1864.950 1868.112 1871.274 1874.437 1877.599
1581.008 1590.494 1599.981 1609.468 1618.955 1628.442 1637.929 1647.415 1656.902 1666.389 1675.876 1685.363 1694.850 1704.336 1713.823 1723.310 1732.797
TE
EE
ET
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 22 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.23 1260.000 1270.000 1271.930 1280.000 1290.000 1300.000 1310.000 1320.000 1330.000 1340.000 1350.000 1360.000 1362.905 1370.000 1380.000 1390.000 1400.000 1410.000 1420.000 1430.000 1440.000 1450.000 1460.000 1470.000 1480.000 1490.000 1500.000 1510.000 1520.000 1530.000 1540.000
P. K. 400.000 410.000 420.000 430.000 440.000 450.000 460.000 470.000 480.000 490.000 500.000 510.000 520.000 530.000 540.000 550.000 560.000 570.000 580.000 590.000 596.169 600.000 610.000
71º33'54" 71º33'54" 71º33'54" 76º11'20" 81º55'06" 87º38'53" 93º22'39" 99º06'26" 104º50'12" 110º33'59" 116º17'45" 122º01'32" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24" 123º41'24"
Izqd.eje 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
Norte 1370.039 1375.586 1381.133 1386.680 1392.227 1397.774 1403.321 1408.868 1414.415 1419.962 1425.509 1431.056 1436.603 1442.150 1447.697 1453.244 1458.791 1464.338 1469.885 1475.432 1478.854 1480.974 1486.501
1880.761 1883.924 1884.534 1886.774 1888.672 1889.581 1889.492 1888.405 1886.331 1883.292 1879.317 1874.447 1872.871 1868.935 1863.388 1857.841 1852.294 1846.747 1841.200 1835.653 1830.106 1824.559 1819.012 1813.465 1807.918 1802.371 1796.824 1791.277 1785.730 1780.183 1774.636
Este 1087.030 1095.351 1103.671 1111.992 1120.312 1128.633 1136.953 1145.274 1153.594 1161.915 1170.235 1178.556 1186.876 1195.197 1203.517 1211.838 1220.158 1228.479 1236.799 1245.120 1250.253 1253.431 1261.613
1742.284 1751.771 1753.601 1761.352 1771.166 1781.120 1791.116 1801.052 1810.831 1820.353 1829.525 1838.254 1840.694 1846.597 1854.918 1863.238 1871.559 1879.879 1888.200 1896.520 1904.841 1913.161 1921.482 1929.802 1938.123 1946.443 1954.764 1963.084 1971.405 1979.725 1988.046
Dcha.eje 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
PC
PT
Norte 1353.398 1358.945 1364.492 1370.039 1375.586 1381.133 1386.680 1392.227 1397.774 1403.321 1408.868 1414.415 1419.962 1425.509 1431.056 1436.603 1442.150 1447.697 1453.244 1458.791 1462.213 1464.345 1470.014
Este 1098.124 1106.445 1114.765 1123.086 1131.406 1139.727 1148.047 1156.368 1164.688 1173.009 1181.329 1189.650 1197.970 1206.291 1214.611 1222.932 1231.252 1239.573 1247.893 1256.214 1261.347 1264.542 1272.933
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 23 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.24 620.000 630.000 640.000 646.169 650.000 651.440 660.000 670.000 680.000 690.000 700.000 701.440
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1492.107 1497.893 1503.950 1507.853 1510.356 1511.314 1517.234 1524.584 1532.311 1540.326 1548.551 1549.747
1269.567 1277.211 1284.457 1288.686 1291.214 1292.147 1297.527 1303.512 1309.246 1314.823 1320.349 1321.146
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1475.930 1482.214 1488.983 1493.448 1496.335 1497.441 1504.188 1512.344 1520.676 1529.077 1537.454 1538.653
1281.326 1289.627 1297.723 1302.559 1305.477 1306.552 1312.686 1319.329 1325.514 1331.360 1336.988 1337.787
710.000 720.000 730.000 740.000 750.000 760.000 770.000 780.000 790.000 800.000 810.000 820.000 830.000 840.000 850.000 860.000 870.000 880.000 890.000 900.000 910.000 920.000 926.742 930.000 940.000 950.000 960.000 970.000 980.000 990.000 1000.000 1006.742 1010.000 1020.000 1030.000 1040.000 1050.000 1060.000 1070.000 1080.000 1086.742
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1556.870 1565.190 1573.511 1581.831 1590.152 1598.472 1606.793 1615.113 1623.434 1631.754 1640.075 1648.395 1656.716 1665.036 1673.357 1681.677 1689.998 1698.318 1706.639 1714.959 1723.280 1731.600 1737.210 1739.925 1748.294 1756.671 1764.988 1773.174 1781.143 1788.799 1796.029 1800.599 1802.700 1808.657 1813.933 1818.614 1822.793 1826.568 1830.042 1833.315 1835.459
1325.895 1331.442 1336.989 1342.536 1348.083 1353.630 1359.177 1364.724 1370.271 1375.818 1381.365 1386.912 1392.459 1398.006 1403.553 1409.100 1414.647 1420.194 1425.741 1431.288 1436.835 1442.382 1446.121 1447.932 1453.560 1459.360 1465.421 1471.827 1478.660 1485.991 1493.883 1499.542 1502.369 1511.304 1520.539 1529.975 1539.532 1549.144 1558.760 1568.338 1574.754
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1545.776 1554.096 1562.417 1570.737 1579.058 1587.378 1595.699 1604.019 1612.340 1620.660 1628.981 1637.301 1645.622 1653.942 1662.263 1670.583 1678.904 1687.224 1695.545 1703.865 1712.186 1720.506 1726.116 1728.822 1737.050 1745.116 1752.962 1760.526 1767.739 1774.527 1780.805 1784.705 1786.491 1791.625 1796.268 1800.473 1804.306 1807.841 1811.161 1814.356 1816.485
1342.536 1348.083 1353.630 1359.177 1364.724 1370.271 1375.818 1381.365 1386.912 1392.459 1398.006 1403.553 1409.100 1414.647 1420.194 1425.741 1431.288 1436.835 1442.382 1447.929 1453.476 1459.023 1462.762 1464.567 1470.099 1475.685 1481.401 1487.320 1493.503 1500.002 1506.853 1511.682 1514.086 1521.788 1529.917 1538.395 1547.162 1556.165 1565.359 1574.707 1581.079
1090.000 1100.000 1110.000 1120.000 1130.000 1140.000 1150.000
10.000 10.000 10.000 10.000 10.000 10.000 10.000
1836.489 1839.652 1842.814 1845.976 1849.138 1852.301 1855.463
1577.845 1587.332 1596.819 1606.306 1615.793 1625.279 1634.766
10.000 10.000 10.000 10.000 10.000 10.000 10.000
1817.516 1820.678 1823.840 1827.003 1830.165 1833.327 1836.489
1584.170 1593.657 1603.143 1612.630 1622.117 1631.604 1641.091
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 24 de 26
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.25 1160.000 1170.000 1180.000 1190.000 1200.000 1210.000 1220.000 1230.000 1240.000 1250.000 1260.000 1270.000 1271.930 1280.000 1290.000 1300.000 1310.000 1320.000 1330.000 1340.000 1350.000 1360.000 1362.905
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1858.625 1861.788 1864.950 1868.112 1871.274 1874.437 1877.599 1880.761 1883.924 1887.086 1890.248 1893.410 1894.021 1896.485 1898.573 1899.573 1899.474 1898.279 1895.998 1892.655 1888.282 1882.925 1881.191
1644.253 1653.740 1663.227 1672.714 1682.200 1691.687 1701.174 1710.661 1720.148 1729.635 1739.121 1748.608 1750.439 1758.965 1769.760 1780.710 1791.705 1802.635 1813.391 1823.866 1833.955 1843.557 1846.241
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1839.652 1842.814 1845.976 1849.138 1852.301 1855.463 1858.625 1861.788 1864.950 1868.112 1871.274 1874.437 1875.047 1877.063 1878.772 1879.590 1879.509 1878.531 1876.665 1873.929 1870.352 1865.969 1864.550
1650.578 1660.064 1669.551 1679.038 1688.525 1698.012 1707.499 1716.985 1726.472 1735.959 1745.446 1754.933 1756.764 1763.739 1772.572 1781.531 1790.527 1799.470 1808.270 1816.840 1825.095 1832.951 1835.147
1370.000 1380.000 1390.000 1400.000 1410.000 1420.000 1430.000 1440.000 1450.000 1460.000 1470.000 1480.000 1490.000 1500.000 1510.000 1520.000 1530.000 1540.000
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1877.256 1871.709 1866.162 1860.615 1855.068 1849.521 1843.974 1838.427 1832.880 1827.333 1821.786 1816.239 1810.692 1805.145 1799.598 1794.051 1788.504 1782.957
1852.144 1860.465 1868.785 1877.106 1885.426 1893.747 1902.067 1910.388 1918.708 1927.029 1935.349 1943.670 1951.990 1960.311 1968.631 1976.952 1985.272 1993.593
10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000 10.000
1860.615 1855.068 1849.521 1843.974 1838.427 1832.880 1827.333 1821.786 1816.239 1810.692 1805.145 1799.598 1794.051 1788.504 1782.957 1777.410 1771.863 1766.316
1841.050 1849.371 1857.691 1866.012 1874.332 1882.653 1890.973 1899.294 1907.614 1915.935 1924.255 1932.576 1940.896 1949.217 1957.537 1965.858 1974.178 1982.499
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail:
[email protected]
Página 25 de 26
CODIGO
Filename:"MENU" ClrTextŸ Locate 2,2,"Topografo Usuario":Locate 6,4,"Software de":(eliminar este Ÿ) Locate 6,5,"Topografia":Locate 6,6,"Version 3.1":Locate 9,7,"2009"ÿ ClrTextŸ Lbl 0:ClrTextŸ "Borrar Memorias=1Ÿ Estacion=2Ÿ Localizar Puntos=3Ÿ Localizar un Eje=4Ÿ Nivelacion=5Ÿ Mas Opciones=0"?„IŸ I=0◊Goto 1Ÿ I=1◊Goto 9Ÿ I=3◊Prog "21"Ÿ I=4◊Prog "2"Ÿ I=5◊Prog "30"Ÿ I>5◊Goto 0Ÿ I=1◊Goto 0Ÿ ClrTextŸ "Norte Estacion="?„E:"Este Estacion="?„FŸ "Cota="?„List 2[52]Ÿ List 2[52]=0◊0„List 2[57]Ÿ List 2[52]=0◊Goto 8Ÿ "Altura de Prisma="?„List 2[54]Ÿ "Altura del Instr.="?„List 2[55]Ÿ List 2[52]+List 2[55]„List 2[57]Ÿ List 2[55]=0◊"DV="?„List 2[56]Ÿ List 2[55]=0◊List 2[52]+List 2[54]-List 2[56]„List 2[57]Ÿ "Altura Instrumental=":List 2[57]ÿ Lbl 8:"Ceros Atras"?„List 2[13]Ÿ List 2[13]=0◊Goto 0Ÿ "Acimut Atras="?„List 2[14]Ÿ ClrText:Goto 0Ÿ Lbl 1:ClrTextŸ "Curvas Verticales=1Ÿ Instalar Tuberia=2Ÿ Chaflanes=3Ÿ Areas=4Ÿ Calcular Poligonal=5Ÿ Salir=0"?„IŸ I=1◊Prog "28"Ÿ I=2◊Prog "31"Ÿ I=3◊Prog "32"Ÿ I=4◊Prog "27"Ÿ I=5◊Prog "35"Ÿ ClrText:I=0◊StopŸ Lbl 9:ClrTextŸ "Desea Conservar Informacion"?„IŸ
I»0◊"Cambie de archivo asi: MENU 4 SHIFT SET UP FILE"ÿ I»0◊StopŸ 0„A~Z:0„™:0„‰Ÿ ClrText:ClrListŸ ClrGraphŸ 80„Dim List 2Ÿ Goto 0
Filename:2 Lbl 9:ClrTextŸ "Calcular Curva=1Ÿ Entrar Datos=2Ÿ DEFLECTAR=3Ÿ Solo Coordenadas=4"?„IŸ I=0◊StopŸ I=4◊Prog "38"Ÿ I=3◊Goto 2Ÿ I=2◊Goto 3Ÿ I=1◊Prog "25"Ÿ Goto 2Ÿ Lbl 3:Prog "24"Ÿ Lbl 2:L=0◊0„HŸ Lbl 6:0„AŸ {0}„List 4Ÿ {0}„List 5Ÿ {0}„List 6:Ê„AŸ ClrText:"Calcular Cartera"?„IŸ I»0◊Prog "12"Ÿ I=0◊Goto 4Ÿ Lbl 4:ClrTextŸ "Abscisa="?„XŸ "Distancia al Eje="?„Y:X=0◊º∫4„XŸ Y=0◊º∫4„YŸ X
List 2[3]◊Goto 5Ÿ T=0◊Goto 0Ÿ Prog "15"Ÿ X…D◊Prog "7"Ÿ X D+List 2[16]+List 2[17]+O◊Prog "7"Ÿ X=0◊Goto 1Ÿ X-D„U:0„M~NŸ À(™L)=0◊Prog "5"Ÿ U>L+O◊Prog "16"Ÿ U>L+O◊Prog "4"Ÿ X=0◊Goto 1Ÿ U…L◊Prog "15"Ÿ Prog "10"Ÿ U…L◊Prog "3"Ÿ X=0◊Goto 1Ÿ L¡(À(™L))„JŸ Prog "8"Ÿ I„M:J„N:Prog "5"Ÿ Lbl 1:Prog "6"Ÿ Goto 4Ÿ Lbl 0:Prog "11"Ÿ Goto 4Ÿ Lbl 5:"Nuevo PI"?„IŸ
I=0◊Goto 4Ÿ I»0◊Goto 3
Filename:3 M-T„I:ZN„JŸ Prog "20"Ÿ List 2[1]+J„JŸ Prog "19"Ÿ 0„XŸ
Filename:4 D+List 2[16]+List 2[17]+O-X„UŸ Prog "10"Ÿ T-I„IŸ Prog "20"Ÿ List 2[1]+Z(‰+J)„JŸ Prog "19"Ÿ 0„X
Filename:5 S(U-L)„JŸ 2™sin J„IŸ J„W:I„VŸ Prog "9"Ÿ 3H+W+ZJ„JŸ Prog "19"Ÿ M+I„M:N+J„NŸ Prog "3"
Filename:6 B+I„V:C+J„WŸ V-E„I:W-F„JŸ Prog "20"Ÿ ClrTextŸ "Distancia=":Iÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ I„X:V-List 2[60]„I:W-List 2[61]„JŸ Prog "20"Ÿ "Cuerda=":Iÿ "Norte Abscisa=":V+º∫4„List 2[60]ÿ "Este Abscisa=":W-º∫4„List 2[61]ÿ "Chaflanar"?„IŸ I»0◊Prog "18"
Filename:7 Prog "15"Ÿ T+D-X„UŸ List 2[1]+180—„VŸ X…D◊Goto 0Ÿ Prog "16"Ÿ T+X-D-List 2[16]-List 2[17]-O„UŸ List 2[1]+Z‰„VŸ Lbl 0:U„I:Y„JŸ Prog "20"Ÿ X…D◊∫J„J:V+J„JŸ Prog "19"Ÿ 0„X
Filename:8 (À(™L))(J-J^5¡40+J^9¡3456-J^13¡599040)„IŸ (À(™L))(J^3¡6-J^7¡336+J^11¡42240-J^15¡967680)„J
Filename:9 Y=0◊Goto 0Ÿ 90—-J„VŸ ZY<0◊90—+J„VŸ À(Ií+Yí-2IAbs Ycos V)„IŸ sinŒ (Ysin V¡I)„JŸ Goto 1Ÿ Lbl 0:0„JŸ Lbl 1Ÿ
Filename:10 U¡(À(™L))„JŸ Prog "8"Ÿ Prog "20"Ÿ I„V:J„W:2J„JŸ Prog "9"Ÿ W+ZJ„JŸ Prog "19"Ÿ I„M:J„N
Filename:11 X
Filename:12 Lbl 8:ClrTextŸ "Cartera de campo=1Ÿ Coordenadas=2"?„List 2[4]:ClrTextŸ Lbl 5:"Abvscisa Inicial="?„List 2[5]Ÿ List 2[5]=0◊List 2[2]„List 2[5]Ÿ "Abscisa Final="?„List 2[10]Ÿ List 2[10]=0◊List 2[3]„List 2[10]Ÿ List 2[5]List 2[3]◊Goto 6Ÿ List 2[10]List 2[3]◊Goto 6:Goto 3Ÿ Lbl 6:ClrTextŸ "Fuera de rango"ÿ Goto 5Ÿ Lbl 3:"Distancia al eje="?„List 2[6]Ÿ "Abscisa cada cuanto"?„List 2[7]Ÿ Int ((List 2[10]-List 2[5])¡List 2[7]+2„List 2[8]Ÿ List 2[8]„A:Isz AŸ 0„List 2[9]Ÿ A„Dim List 3Ÿ A„Dim List 4Ÿ A„Dim List 5Ÿ A„Dim List 6Ÿ List 2[4]=1◊Goto 9Ÿ C„List 5[1]Ÿ C„List 5[A]Ÿ B„List 6[1]Ÿ B„List 6[A]Ÿ Lbl 9:Dsz AŸ Lbl 4:ClrText:Locate 3,3,"Por favor espere":Locate 3,5,"estoy calculando"Ÿ A=1◊Goto 7Ÿ List 2[9]„IŸ List 2[5]+IList 2[7]„X:List 2[6]„YŸ Isz I:I„List 2[9]Ÿ X„List 4[A]Ÿ X=0◊º∫4„XŸ XList 2[3]◊Goto 5Ÿ T=0◊Goto 0Ÿ Prog "15"Ÿ X…D◊Prog "7"Ÿ X D+List 2[16]+List 2[17]+O◊Prog "7"Ÿ X=0◊Goto 1Ÿ X-D„U:0„M~NŸ À(™L)=0◊Prog "5"Ÿ U>L+O◊Prog "16"Ÿ U>L+O◊Prog "4"Ÿ X=0◊Goto 1Ÿ
Prog "10"Ÿ U…L◊Prog "3"Ÿ X=0◊Goto 1Ÿ L¡(À(™L))„JŸ Prog "8"Ÿ I„M:J„N:Prog "5"Ÿ Lbl 1:Prog "13"Ÿ Goto 4Ÿ Lbl 0:Prog "14"Ÿ Goto 4Ÿ Lbl 7:List 2[4]=1◊Goto 2:ClrTextŸ "GRAFICAR"ÿ DrawStatÿ Lbl 2:ClrTextŸ "LEER DATOS"ÿ List 2[4]»2◊List 2[13]„List 2[4]Ÿ List 2[4]=0◊"ABSCISA-Dist-Acimut"ÿ List 2[4]=0◊List„Mat(4,6,5)ÿ List 2[4]=1◊"Abscisa-DIST-ACIMUTH-ANGULO"ÿ List 2[4]=1◊List„Mat(4,6,5,3)ÿ List 2[4]=2◊"Abscisa-Norte-Este"ÿ List 2[4]=2◊List„Mat(4,6,5)ÿ ClrTextŸ "OK"?„IŸ I=0◊Goto 8Ÿ I»0◊Prog "2"
Filename:13 B+I„V:C+J„WŸ V-E„I:W-F„JŸ Prog "20"Ÿ List 2[4]=2◊Goto 2Ÿ I„List 6[A]Ÿ J„List 5[A]Ÿ List 2[15]„List 3[A]Ÿ Goto 1Ÿ Lbl 2:V„List 6[A]Ÿ W„List 5[A]Ÿ Lbl 1:Dsz A
Filename:14 X
Filename:15 List 2[16]„LŸ List 2[37]„TŸ List 2[20]¡3„HŸ List 2[22]„WŸ List 2[51]„OŸ
Filename:16 List 2[17]„LŸ List 2[38]„TŸ List 2[51]„O
Filename:17 ClrTextŸ List 2[13]=0◊"Acimut="?„JŸ List 2[13]»0◊"Angulo Hz="?„JŸ List 2[13]»0◊List 2[14]+J„JŸ "Distancia="?„IŸ Prog "19"Ÿ E+I„I:F+J„J
Filename:18 ClrTextŸ "Nunevos Datos"?„List 2[74]Ÿ List 2[74]=0◊Goto 2Ÿ ClrTextŸ "Asfalto="?„List 2[62]Ÿ "Base="?„List 2[63]Ÿ "Subbase="?„List 2[64]Ÿ "Media Calzada="?„List 2[65]Ÿ "Berma="?„List 2[66]Ÿ "Bombeo="?„List 2[67]Ÿ Lbl 2:ClrTextŸ "Cota Roja="?„List 2[68]Ÿ Lbl 7:ClrTextŸ "Sobreancho="?„List 2[69]Ÿ "Peralte="?„I:I=0◊List 2[67]„IŸ "Talud="?„JŸ List 2[65]+List 2[66]+List 2[69]+List 2[63]+List 2[64]„XŸ List 2[68]-List 2[62]-List 2[63]-List 2[64]+XI¡100„YŸ Lbl 3:ClrTextŸ "Cota Terreno="?„List 2[73]Ÿ "Distancia al Eje="?„List 2[72]Ÿ Lbl 6:ClrTextŸ "Chaflan a":X+J(Abs (List 2[73]-Y))„List 2[71]ÿ List 2[71]List 2[72]◊"fuera del eje":List 2[71]-List 2[72]ÿ "OK"?„I:I=0◊Goto 3Ÿ List 2[73]Y◊"Corte=":Y-List 2[73]ÿ
Filename:19 Rec(I,J)„List 1Ÿ List 1[1]„IŸ List 1[2]„J
Filename:20 Pol(I,J)„List 1Ÿ List 1[1]„IŸ List 1[2]„JŸ J<0◊360—+J„JŸ List 2[13]=0◊Goto 1Ÿ J-List 2[14]„List 2[15]Ÿ List 2[15]<0◊360—+List 2[15]„List 2[15]Ÿ List 2[15]>360—◊List 2[15]-360—„List 2[15]:Lbl 1
Filename:21 Lbl 0:ClrTextŸ "Radiacion=1Ÿ Coordenadas=2Ÿ Intersecciones=3Ÿ Ubicacion=4"?„IŸ I=0◊Goto 9Ÿ I=1◊Goto 1Ÿ I=2◊Goto 2Ÿ I=3◊Prog "33"Ÿ I=4◊Prog "34"Ÿ I»0◊ReturnŸ Lbl 1:ClrTextŸ List 2[52]=0◊0„XŸ List 2[52]»0◊"Cotas"?„XŸ X=0◊90—„YŸ Lbl 8:ClrTextŸ X»0◊"Distancia Incl="?„IŸ X=0◊"Distancia="?„IŸ I=0◊Goto 0Ÿ List 2[13]=0◊"Acimut="?„JŸ List 2[13]»0◊"Angulo Hz="?„JŸ List 2[13]»0◊List 2[14]+J„JŸ X=0◊Goto 7Ÿ "Angulo Vertical="?„Y:"Altura del Prisma=":List 2[54]ÿ "OK"?„Z:Z=0◊"Nueva Alt. Prisma"?„List 2[54]Ÿ Lbl 7:Icos Y„XŸ Isin Y„IŸ Prog "19"Ÿ I+E„M:J+F„NŸ ClrText:"Norte=":Mÿ "Este=":Nÿ Y»90◊"Cota=":Y»90◊List 2[57]+X-List 2[54]ÿ Goto 8Ÿ Lbl 2:ClrTextŸ "Norte="?„MŸ M=0◊Goto 0Ÿ "Este="?„NŸ M-E„I:N-F„JŸ Prog "20":ClrTextŸ "DISTANCIA=":I„Xÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ "CUERDA=":M-List 2[60]„I:N-List 2[61]„J:Prog "20":Iÿ M+º∫4„List 2[60]:N-º∫4„List 2[61]Ÿ ClrTextŸ "Chaflanar"?„IŸ I»0◊Prog "18"Ÿ Goto 2Ÿ
Lbl 9:1„I:Return
Filename:22 ClrTextŸ {0}„List 3Ÿ {0}„List 4Ÿ "Esp-Circulo-Esp=1Ÿ Espiral-Espiral=2Ÿ Circular=3"?„RŸ ClrTextŸ R=3◊0„LŸ R=3◊"Radio="?„™Ÿ R=3◊Goto 9Ÿ R=2◊"Long. Espiral"?„L:R=1◊"Espiral Inicial="?„L:L„List 2[16]Ÿ L„List 2[17]Ÿ R=1◊"Espiral Final="?„List 2[17]Ÿ 0„™:R=1◊"Radio="?„™Ÿ List 2[16]»List 2[17]◊Prog "23"Ÿ R=4◊Goto 5Ÿ ™=0◊Goto 0Ÿ Lbl 9:"Cuerda="?„NŸ R=2◊Goto 0Ÿ R=3◊Goto 3Ÿ Lbl 8Ÿ .5L¡™„I:180—I¡Ê„JŸ Goto 1Ÿ Lbl 0Ÿ ‰¡2„J:ÊJ¡180—„IŸ .5L¡I„™Ÿ Lbl 1:L(1-Ií¡10+I^4¡216-I^6¡9360+I^8¡685440)„XŸ L(I¡3-I^3¡42+I^5¡1320-I^7¡75600)„YŸ Y-™(1-cos J)„PŸ X-™sin J„KŸ (™+P)tan (‰¡2)+K„TŸ (™+P)¡cos (‰¡2)-™„VŸ À(Xí+Yí)„UŸ Y¡sin J„HŸ X-Y¡tan J„QŸ P¡cos (‰¡2)„MŸ ClrTextŸ "Calculos Espiral"ÿ "‰E=":Jÿ J„List 2[20]Ÿ J„List 2[21]Ÿ R=2◊"Radio=":R=2◊™ÿ "X=":Xÿ "Y=":Yÿ "P=":Pÿ "K=":Kÿ "TL=":Qÿ "TC=":Hÿ
"TE=":Tÿ T„List 2[37]Ÿ T„List 2[38]Ÿ "EE=":Vÿ "CLE=":Uÿ "Disloque=":Mÿ {L,J,X,Y,P,K,Q,H,T,V,U,M}„List 3Ÿ J¡3„H:‰-2J„WŸ R=2◊0„List 2[51]Ÿ R=2◊0„List 2[22]Ÿ R=2◊Goto 2Ÿ Ê™W¡Ê“„O:NW¡O„GŸ G¡2N„S:R=2◊Goto 2Ÿ ClrTextŸ "Calculos Circular"ÿ "‰C=":Wÿ W„List 2[22]Ÿ "LC=":Oÿ O„List 2[51]Ÿ "G=":Gÿ "T=":™tan (W¡2)„Mÿ "E=":Mtan (W¡4)„Nÿ {™,W,O,N,G,M,N}„List 4Ÿ N„J:Goto 4Ÿ Lbl 2:N„J:0„S:0„OŸ Goto 4Ÿ Lbl 3:ClrTextŸ "Calculos Circular"ÿ "LC=":Ê™‰¡Ê“„Oÿ O„List 2[51]Ÿ "G=":(N‰¡O)„Gÿ "T=":™tan (‰¡2)„Tÿ T„List 2[37]Ÿ T„List 2[38]Ÿ "E=":Ttan (‰¡4)„Vÿ {™,‰,O,N,G,T,V}„List 4:G¡2N„SŸ Lbl 4:"Revisar Datos"?„I:I=0◊Goto 5Ÿ R<3◊"Espiral"ÿ R<3◊List 3ÿ R=3◊"Circular"ÿ R=3◊List 4ÿ Lbl 5
Filename:23 ClrTextŸ List 2[16]=0◊º∫4„List 2[16]Ÿ List 2[17]=0◊º∫4„List 2[17]Ÿ "CUERDA="?„NŸ List 2[16]¡2™„List 2[18]Ÿ List 2[17]¡2™„List 2[19]Ÿ 180—List 2[18]¡Ê„List 2[20]Ÿ 180—List 2[19]¡Ê„List 2[21]Ÿ ‰-List 2[20]-List 2[21]„List 2[22]Ÿ List 2[16](1-List 2[18]í¡10+List 2[18]^4¡216-List 2[18]^6¡9360+List 2[18]^8¡685440 List 2[17](1-List 2[19]í¡10+List 2[19]^4¡216-List 2[19]^6¡9360+List 2[19]^8¡685440 List 2[16](List 2[18]¡3-List 2[18]^3¡42+List 2[18]^5¡1320-List 2[18]^7¡75600+List List 2[17](List 2[19]¡3-List 2[19]^3¡42+List 2[19]^5¡1320-List 2[19]^7¡75600+List List 2[25]-™(1-cos List 2[20])„List 2[27]Ÿ List 2[26]-™(1-cos List 2[21])„List 2[28]Ÿ List 2[23]-™(sin List 2[20])„List 2[29]Ÿ List 2[24]-™(sin List 2[21])„List 2[30]Ÿ ™+List 2[27]„List 2[31]Ÿ ™+List 2[28]„List 2[32]Ÿ tanŒ ((List 2[32]¡List 2[31]-cos ‰)¡sin ‰„List 2[33]Ÿ ‰-List 2[33]„List 2[34]Ÿ List 2[33]-List 2[20]„List 2[35]Ÿ List 2[34]-List 2[21]„List 2[36]Ÿ List 2[29]+(™+List 2[27])tan List 2[33]„List 2[37]Ÿ List 2[30]+(™+List 2[28])tan List 2[34]„List 2[38]Ÿ List 2[23]-List 2[25]¡tan List 2[20]„List 2[39]Ÿ List 2[24]-List 2[26]¡tan List 2[21]„List 2[40]Ÿ List 2[25]¡sin List 2[20]„List 2[41]Ÿ List 2[26]¡sin List 2[21]„List 2[42]Ÿ (™+List 2[27])¡cos List 2[33]-™„List 2[43]Ÿ À(List 2[23]í+List 2[25]í)„List 2[44]Ÿ À(List 2[24]í+List 2[26]í)„List 2[45]Ÿ List 2[27]¡cos (‰¡2)„List 2[46]Ÿ List 2[28]¡cos (‰¡2)„List 2[47]Ÿ ™tan (List 2[22]¡2)„List 2[48]Ÿ List 2[48]tan (List 2[22]¡4)„List 2[49]Ÿ Ê™List 2[22]¡Ê“„List 2[51]Ÿ NList 2[22]¡List 2[51]„List 2[50]Ÿ ClrText:List 2[16]=º∫4◊Goto 1Ÿ "Espiral de Entrada"ÿ "‰ Espiral=":List 2[20]„Jÿ "X=":List 2[23]„Xÿ "Y=":List 2[25]„Yÿ "P=":List 2[27]„Pÿ "K=":List 2[29]„Kÿ "TL=":List 2[39]„Qÿ "TC=":List 2[41]„Hÿ "TE=":List 2[37]„Tÿ
"EE=":List 2[43]„Vÿ "CLE=":List 2[44]„Uÿ "Disloque=":List 2[46]„Mÿ List 2[16]„LŸ {L,J,X,Y,P,K,Q,H,T,V,U,M}„List 3Ÿ ClrText:List 2[17]=º∫4◊Goto 2Ÿ Lbl 1:"Espiral de Salida"ÿ "‰ Espiral=":List 2[21]„Jÿ "X=":List 2[24]„Xÿ "Y=":List 2[26]„Yÿ "P=":List 2[28]„Pÿ "K=":List 2[30]„Kÿ "TL=":List 2[40]„Qÿ "TC=":List 2[42]„Hÿ "TE=":List 2[38]„Tÿ "CLE=":List 2[45]„Uÿ "Disloque=":List 2[47]„Mÿ List 2[17]„LŸ {L,J,X,Y,P,K,Q,H,T,U,M}„List 4Ÿ ClrText:Lbl 2:"Curva Circular"ÿ "‰ Circular=":List 2[22]„Wÿ "LC=":List 2[51]„Oÿ "G=":List 2[50]„Gÿ "T=":List 2[48]„Mÿ "E=":List 2[49]„Vÿ {™,W,O,N,G,M,V}„List 5Ÿ List 2[20]¡3„HŸ List 2[22]„WŸ List 2[51]„OŸ List 2[16]„LŸ List 2[50]¡2N„SŸ "Revisar Datos"?„IŸ I=0◊Goto 0Ÿ "Espiral Inicial"ÿ List 3ÿ "Espiral Final"ÿ List 4ÿ "Circular"ÿ List 5ÿ Lbl 0:4„R
Filename:24 ClrTextŸ "Norte PI="?„BŸ "Este PI="?„CŸ "Delta="?„‰Ÿ "Radio="?„™Ÿ "Acimut Entrada="?„List 2[1]Ÿ "Abscisa PT Atras="?„List 2[2]Ÿ "Abscisa PC o TE="?„DŸ "Abscisa PC Sigue="?„List 2[3]Ÿ "Derecha=1Ÿ Izquierda=∫1"?„ZŸ ‰„T:T=0◊Goto 0Ÿ Lbl 1:Prog "22"Ÿ "OK"?„I:I=0◊Goto 1Ÿ Lbl 0
Filename:25 ClrTextŸ "Calcular PI"?„IŸ I=0◊Prog "26"Ÿ I=0◊Goto 9:ClrTextŸ "Entrar Coordenadas=1Ÿ Acimut-Distancia=2"?„IŸ I»1◊Goto 1Ÿ "Norte A"?„AŸ "Este A"?„BŸ "Norte B"?„CŸ "Este B"?„DŸ "Norte C"?„UŸ "Este C"?„VŸ "Norte D"?„KŸ "Este D"?„LŸ Goto 0Ÿ Lbl 1Ÿ Prog "17"Ÿ "Norte A=":I„Aÿ "Este A=":J„Bÿ Prog "17"Ÿ "Norte B=":I„Cÿ "Este B=":J„Dÿ Prog "17"Ÿ "Norte C=":I„Uÿ "Este C=":J„Vÿ Prog "17"Ÿ "Norte D=":I„Kÿ "Este D=":J„Lÿ Lbl 0Ÿ {A,C,0,U,K}„List 6Ÿ {B,D,0,V,L}„List 5Ÿ C-A„I:D-B„JŸ Prog "20"Ÿ I„B:J„List 2[1]Ÿ U-C„I:V-D„JŸ Prog "20"Ÿ I„G:J„HŸ K-U„I:L-V„JŸ Prog "20"Ÿ I„M:J„NŸ Abs (H-List 2[1])„KŸ K>180—◊360—-K„KŸ Abs (N-H)„LŸ L>180—◊360—-L„LŸ K+L„‰:180—-‰„XŸ ClrTextŸ "Delta=":‰>DMSÿ
"Distancia B„PI=":Gsin L¡sin X„Sÿ "Acimut de Entrada=":List 2[1]>DMSÿ "Distancia C„PI=":Gsin K¡sin X„Tÿ "Acimut de Salida=":N>DMSÿ S„I:List 2[1]„JŸ Prog "19"Ÿ "Norte PI=":C+I„Bÿ "Este PI=":D+J„Cÿ B„List 6[3]Ÿ C„List 5[3]Ÿ DrawStatÿ "Localizar PI"ÿ B-E„I:C-F„JŸ Prog "20"Ÿ "Distancia=":Iÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ "Derecha=1Ÿ Izquierda=∫1"?„ZŸ Prog "26"Ÿ Lbl 9
Filename:26 ClrTextŸ "Calcular Elementos"ÿ Lbl 0Ÿ "Por Tangente=1Ÿ Por Externa=2Ÿ Por Radio=3"?„IŸ ClrTextŸ I=0◊Goto 5Ÿ I>3◊Goto 0Ÿ I=2◊Goto 1Ÿ I=3◊Goto 9Ÿ "Tangente="?„TŸ "Externa=":Ttan (‰¡4)„Xÿ Goto 3Ÿ Lbl 1:"Externa="?„XŸ "Tangente=":X¡tan (‰¡4)„Tÿ Lbl 3:"Radio=":T¡tan (‰¡2)„™ÿ Goto 8Ÿ Lbl 9:"Radio="?„™Ÿ "Tangente=":™tan (‰¡2)„Tÿ "Externa":Ttan (‰¡4)„Xÿ Lbl 8:X„IŸ List 2[1]+Z(.5(180—-‰)+‰)„JŸ Prog "19"Ÿ ClrTextŸ "Ubicar la Externa"ÿ "Norte=":B+I„Iÿ "Este=":C+J„Jÿ I-E„I:J-F„JŸ Prog "20"Ÿ "Distancia=":Iÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ "OK"?„I:I=0◊Goto 0Ÿ Lbl 5:Prog "22"Ÿ "OK"?„I:I=0◊Goto 5Ÿ ClrTextŸ List 2[16]=0◊"Ubicar el PC"ÿ List 2[16]»0◊"Ubicar el TE"ÿ List 2[1]+180—„J:List 2[37]„IŸ Prog "19"Ÿ "Norte=":B+I„Uÿ "Este=":C+J„Vÿ U-E„I:V-F„JŸ Prog "20"Ÿ "Distancia=":Iÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ
ClrTextŸ List 2[17]=0◊"Ubicar el PT"ÿ List 2[17]»0◊"Ubicar el ET"ÿ List 2[1]+Z‰„J:List 2[38]„IŸ Prog "19"Ÿ "Norte=":B+I„Iÿ "Este=":C+J„Jÿ I-E„I:J-F„JŸ Prog "20"Ÿ "Distancia=":Iÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ ClrTextŸ "N PT Anterior"?„IŸ "E PT Anterior="?„JŸ U-I„I:V-J„JŸ Prog "20"Ÿ ClrTextŸ "Entretangencia=":Iÿ "Abscisa PT Anterior"?„List 2[2]Ÿ List 2[16]=0◊"Abscisa PC="Ÿ List 2[16]»0◊"Abscisa TE":List 2[2]+I„Dÿ O=0◊"Abscisa ECE=":O=0◊D+List 2[16]ÿ O=0◊Goto 7Ÿ List 2[16]»0◊"Abscisa EC="Ÿ List 2[16]»0◊D+List 2[16]„Iÿ List 2[17]»0◊"Abscisa CE="Ÿ List 2[17]»0◊I+O„Iÿ Lbl 7:List 2[17]=0◊"Abscisa PT="Ÿ List 2[17]»0◊"Abscisa ET="Ÿ D+List 2[16]+O+List 2[17]„Jÿ "Abscisa PC Sigue"?„List 2[3]Ÿ 0„I
Filename:27 Lbl 0:ClrTextŸ ClrGraphŸ {0}„List 5Ÿ {0}„List 6Ÿ "Cuantos Puntos"?„IŸ Isz IŸ I„Dim List 5Ÿ I„Dim List 6Ÿ 0„W~YŸ "Coordenadas=1Ÿ Secciones=2"?„ZŸ Z=1◊Goto 1Ÿ Z=2◊Goto 2Ÿ Lbl 1:ClrTextŸ "Norte="?„MŸ "Este="?„NŸ M„U:N„VŸ M„List 6[1]Ÿ N„List 5[1]Ÿ Goto 3Ÿ Lbl 2:ClrTextŸ "Cota="?„MŸ "Distancia="?„NŸ M„U:N„VŸ M„List 6[1]Ÿ N„List 5[1]Ÿ Goto 4Ÿ Lbl 3:Isz X:ClrTextŸ "Norte="?„PŸ "Este="?„QŸ Goto 6Ÿ Lbl 4:Isz X:ClrTextŸ "Cota="?„PŸ "Distancia="?„QŸ Goto 6Ÿ Lbl 5:Z=1◊Goto 3Ÿ Z=2◊Goto 4Ÿ Lbl 6:Isz YŸ P„List 6[Y+1]Ÿ Q„List 5[Y+1]Ÿ W+(QU-PV)¡2„WŸ P„U:Q„VŸ X<3◊Goto 5Ÿ U»M◊Goto 5Ÿ V»N◊Goto 5Ÿ ClrTextŸ "Ares=":Wÿ "REVISAR DATOS"?„IŸ
I=0◊Goto 7Ÿ List„Mat(6,5)ÿ Lbl 7:"Graficar"ÿ DrawStatÿ Goto 0
Filename:28 Lbl 7:ClrTextŸ 0„A~Z:0„™:0„‰Ÿ "Calcular Cartera"?„IŸ ClrTextŸ "Abscisa PTV Atras="?„GŸ "Abscisa PCV="?„MŸ "Cota PCV="?„PŸ "Conoce Pendientes"?„‰Ÿ ‰»0◊"Pndiente Inicial="?„UŸ "Abscisa PIV="?„JŸ ‰=0◊"Cota PIV="?„™Ÿ ‰=0◊º2(™-P)¡(J-M)„UŸ "Abscisa PTV="?„NŸ "Cota PTV="?„QŸ ‰»0◊"Pndiente Final="?„VŸ ‰=0◊º2(Q-™)¡(N-J)„VŸ U¡º2„U:V¡º2„VŸ "Abscisa PCV Sigue="?„HŸ J-M„A:N-J„BŸ N-M„L:(U-V)L¡8„KŸ A»B◊"Curvca Asimetrica"ÿ A»B◊"Tangente Inicial=":A»B◊Aÿ ‰=0◊"Pendiente Inicial=":‰=0◊º2Uÿ A»B◊"Tangente Final=":A»B◊Bÿ ‰=0◊"Pendiente Final=":‰=0◊º2Vÿ (U-V)AB¡2L„KŸ I=0◊Prog "29"Ÿ Lbl 7:ClrTextŸ "Abscisa Inicial="?„R:R„OŸ "Abscisa Final="?„SŸ "Abscisar cada cuanto"?„DŸ Int ((S-R)¡D)„WŸ Isz W:W„Dim List 6Ÿ W„Dim List 5:Dsz EŸ Lbl 0:ClrTextŸ Locate 3,3,"Por favor espere"Ÿ Locate 3,5,"estoy calculando"Ÿ Isz Z:Isz EŸ R+DE„OŸ O„List 5[Z]Ÿ OH◊Goto 9Ÿ O…M◊Goto 1Ÿ O N◊Goto 2Ÿ O-M„XŸ A»B◊Goto 5Ÿ X>L¡2◊Goto 4Ÿ Goto 3Ÿ
Lbl 1:P+(O-M)U„YŸ Goto 8Ÿ Lbl 2:Q+(O-N)V„YŸ Goto 8Ÿ Lbl 3:P+XU-4K(X¡L)í„Y:Goto 8Ÿ Lbl 4:L-X„XŸ Q-XV-4K(X¡L)í„YŸ Goto 8Ÿ Lbl 5Ÿ X>A◊Goto 6Ÿ P+XU-K(X¡A)í„YŸ Goto 8Ÿ Lbl 6:L-X„XŸ Q-XV-K(X¡B)í„YŸ Lbl 8:Y„List 6[Z]Ÿ Z»W◊Goto 0Ÿ Lbl 9:ClrTextŸ "Graficar"ÿ DrawStatÿ "Leer Datos"ÿ "Abscisa-Cota"ÿ List„Mat(5,6)ÿ "OK"?„I:I=0◊Goto 7Ÿ Return
Filename:29 Lbl 0:ClrTextŸ "Abscisa="?„OŸ OH◊Goto 9Ÿ O…M◊Goto 1Ÿ O N◊Goto 2Ÿ O-M„XŸ A»B◊Goto 5Ÿ X>L¡2◊Goto 4Ÿ Goto 3Ÿ Lbl 1:P+(O-M)U„YŸ Goto 8Ÿ Lbl 2:Q+(O-N)V„YŸ Goto 8Ÿ Lbl 3:P+XU-4K(X¡L)í„Y:Goto 8Ÿ Lbl 4:L-X„XŸ Q-XV-4K(X¡L)í„YŸ Goto 8Ÿ Lbl 5Ÿ X>A◊Goto 6Ÿ P+XU-K(X¡A)í„YŸ Goto 8Ÿ Lbl 6:L-X„XŸ Q-XV-K(X¡B)í„YŸ Lbl 8:"COTA=":Yÿ Goto 0Ÿ Lbl 9:ClrTextŸ "Nuevo PIV"?„IŸ I=0◊Goto 0Ÿ I»0◊Prog "28"
Filename:30 ClrText:"Nivel=1Ÿ Estacion=2"?„JŸ Lbl 9:ClrTextŸ "BM="?„IŸ I=0◊Goto 0:I„AŸ J=1◊"V+"?„BŸ J=2◊"DV="?„BŸ "Altura Instrumental=":J=1◊A+B„Cÿ J=2◊A-B„Cÿ Lbl 0:ClrTextŸ "Calcular Niveles=1Ÿ Calcular Secciones=2Ÿ Tacos de Cereo=3"?„IŸ I=1◊Goto 1Ÿ I=2◊Goto 2Ÿ I=3◊Goto 3Ÿ Lbl 1:ClrTextŸ J=1◊"VI="?„LŸ J=2◊"DV="?„LŸ L=0◊Goto 8Ÿ "Cota=":J=1◊C-L„Dÿ J=2◊C+L„Dÿ Goto 1Ÿ Lbl 2:ClrTextŸ ClrGraphŸ "Numero de Puntos"?„X:X=0◊Goto 0Ÿ X„Dim List 5Ÿ X„Dim List 6Ÿ Lbl 6:ClrTextŸ "Distancia"?„YŸ J=1◊"VI"?„LŸ J=2◊"DV="?„LŸ L=0◊Goto 9Ÿ "Cota=":J=1◊C-L„Dÿ J=2◊C+L„Dÿ Y„List 5[X]Ÿ D„List 6[X]Ÿ X=0◊Goto 7Ÿ Dsz X:Goto 6Ÿ Lbl 7:"Graficar"?„IŸ I=0◊Goto 2Ÿ DrawStatÿ Goto 2Ÿ Lbl 3:"Tacos a que nivel"?„KŸ Lbl 4:ClrTextŸ "Cota Roja"?„DŸ D=0◊Goto 8Ÿ "Lectura="Ÿ
J=1◊C-D-K„Lÿ J=2◊D+K-C„Lÿ Lbl 5:ClrTextŸ J=1◊"VI"?„TŸ J=2◊"DV="?„TŸ T=0◊Goto 4Ÿ "COTA=":J=1◊C-T„Dÿ J=2◊C+T„Dÿ J=1◊T-L„I:J=2◊L-T„IŸ I<0◊"Baja"Ÿ I=0◊"Ceros"Ÿ I>0◊"Sube":Iÿ "OK"?„I:I=0◊Goto 5Ÿ Goto 4Ÿ Lbl 8:"Cambio"?„IŸ I»0◊Goto 9Ÿ Stop
Filename:31 ClrTextŸ "BM"?„J:J=0◊Goto 0Ÿ J„A:"V+"?„BŸ "Altura Instrumental=":A+B„Cÿ Lbl 0:ClrTextŸ "Nuevo Tramo"?„JŸ J=0◊Goto 9Ÿ "Clave Inicial="?„HŸ "Pendiente="?„DŸ "Diametro Interno="?„E:"Espesor="?„FŸ "Cama="?„GŸ "Mejoramiento="?„SŸ Lbl 9:ClrTextŸ "Calcular Cartera=1Ÿ Instalar Tuberia=2Ÿ Control Excavacion.=3"?„JŸ Lbl 8:ClrTextŸ "Abscisa="?„IŸ J»1◊Goto 4Ÿ "VI"?„KŸ "Cota=":C-K„Lÿ Lbl 4:ID¡100„M:H+M„O:O+F„NŸ N-E-2F„Q:Q-G-S„TŸ J=1◊Goto 1Ÿ J=2◊Goto 2Ÿ J=3◊Goto 3Ÿ Lbl 2:"Cota Lomo=":Nÿ "Lectura=":C-Nÿ Goto 8Ÿ Lbl 3:"Cota Fondo=":Tÿ "Lectura=":C-Tÿ Goto 8Ÿ Lbl 1:"Clave=":Oÿ "Cota Lomo=":Nÿ "Lectura=":C-Nÿ "Cota Cama=":Qÿ "Lectura=":C-Qÿ "Cota Fondo=":Tÿ "Lectura=":C-Tÿ "Corte":L-Tÿ Goto 8
Filename:32 ClrText:0„R:0„X~YŸ "Nivel=1:Estacion=2"?„X:X=1◊Goto 0Ÿ "DV=1Ÿ Cotas=2Ÿ Radiacion=3"?„YŸ Y=1◊"Cota BM"?„ZŸ Z=0◊Goto 5Ÿ Y=1◊"DV="?„BŸ Y=1◊"Altura Instrumental"Ÿ Y=1◊Z-B„Cÿ X=2◊Goto 1:0„™:0„‰Ÿ Lbl 0:"BM"?„Z:Z=0◊Goto 1:Z„A:"V+"?„BŸ "Altura Instrumental=":A+B„Cÿ Lbl 1:ClrTextŸ "Nuevos Datos"?„ZŸ Z=0◊Goto 2Ÿ 0„E~W:ClrTextŸ "Asfalto="?„MŸ "Base="?„NŸ "Subbase="?„OŸ "Media Calzada="?„EŸ "Berma="?„FŸ "Bombeo="?„KŸ Lbl 2:ClrTextŸ "Cota Roja="?„ZŸ Z=0◊Stop:Z„G:1„WŸ Lbl 7:ClrTextŸ "Sobreancho="?„HŸ "Peralte="?„IŸ I=0◊K„I:"Talud="?„JŸ E+F+H+N+O„Q:G-M-N-O+QI¡100„PŸ Lbl 3:ClrTextŸ W=0◊Goto 9Ÿ X=1◊Goto 4Ÿ Y»3◊Goto 5Ÿ "Cota Terreno="?„VŸ Lbl 9:"DH="?„RŸ "DV="?„SŸ V+S„T:0„W:Goto 6Ÿ Lbl 4:"Lectura="?„TŸ "Distancia al eje="?„RŸ C-T„T:Goto 6Ÿ Lbl 5:ClrTextŸ Y=1◊"DV="?„SŸ Y=1◊C+S„TŸ Y=2◊"Cota Terreno="?„TŸ "Distancia al eje="?„RŸ Lbl 6:ClrTextŸ
Q+JAbs (T-P)„UŸ "Chaflan a=":Uÿ UR◊"Hacia fuera del el Eje":U-Rÿ "OK"?„Z:Z=0◊Goto 3Ÿ TP◊"Corte=":P-Tÿ Lbl 8:ClrTextŸ "Otra Abscisa"?„Z:Z»0◊Goto 2Ÿ "Cambiar Datos"?„Z:Z»0◊Goto 7:Goto 3
Filename:33 Lbl 0:ClrTextŸ "Norte Punto A="?„AŸ "Este Punto A="?„BŸ "Acimut desde A="?„CŸ ClrTextŸ "Norte Punto B="?„DŸ "Este Punto B="?„EŸ "Acimut desde B="?„FŸ D-A„I:E-B„JŸ Prog "20"Ÿ I„U:J„V:Usin (V-C)¡sin (C-F)„I:F„JŸ Prog "19"Ÿ D+I„M:E+J„N:Usin (V-F)¡sin (C-F)„I:C„JŸ Prog "19"Ÿ A+I„P:B+J„Q:ClrTextŸ "Norte=":.5(M+P)„Xÿ "Este=":.5(N+Q)„Yÿ {A,X,D}„List 6Ÿ {B,Y,E}„List 5Ÿ DrawStatÿ X„E:Y„FŸ "OK"?„I:I=0◊Goto 0Ÿ ClrText:Return
Filename:34 ClrTextŸ 3„Dim List 5Ÿ 3„Dim List 6Ÿ "Coordenadas=1Ÿ Abscisado=2"?„ZŸ Z=1◊"Norte P#1"?„AŸ Z=2◊"Abscisa P#1"?„AŸ Z=1◊"Este P#1"?„BŸ Z=2◊"Ordenada P#1"?„BŸ "Angulo P#1"?„‰Ÿ "Distancia P#1"?„C:ClrTextŸ Z=1◊"Norte P#2"?„DŸ Z=2◊"Abscisa P#2"?„BŸ Z=1◊"Este P#2"?„EŸ Z=2◊"Ordenada P#2"?„BŸ "Angulo P#2"?„FŸ "Distancia P#2"?„G:ClrTextŸ A„List 6[3]Ÿ B„List 5[3]Ÿ D„List 6[1]Ÿ E„List 5[1]Ÿ Abs (F-‰)„F:F>180—◊360-F„FŸ A-D„I:B-E„JŸ Prog "20":I„K:J„LŸ sinŒ (Csin F¡K)„MŸ sinŒ (Gsin F¡K)„NŸ "Error Angular":(180—-F-M-N)>DMSÿ L-M„J:J 360—◊J-360—„J:G„I:Prog "19"Ÿ I+D„D:J+E„EŸ L+Ê“+N„J:J 2Ê“◊J-2Ê“„J:C„I:Prog "19"Ÿ I+A„A:J+B„BŸ ClrTextŸ .5(A+D)„A:Z=1◊"Norte Armada=":Z=2◊"Abscisa Armada=":.5(A+D)„Aÿ Z=1◊"Este Armada=":Z=2◊"Distancia al Eje=":.5(B+E)„Bÿ ClrTextŸ "Acimut P#1=":L+N„‰:‰>2Ê“◊‰-2Ê“„‰:‰>DMSÿ "Acimut P#2":L-M+Ê“„™:™>2Ê“◊™-2Ê“„™:™>DMSÿ A„List 6[2]Ÿ B„List 5[2]Ÿ DrawStatÿ ClrGraph:ClrText:StopŸ
Filename:35 Lbl 0:0„A~Z:ClrTextŸ ClrGraph:ClrListŸ "Cerrada Acimut =1Ÿ Cerrada Angulos=2Ÿ ABIERTA=3"?„BŸ B=1◊Prog "40"Ÿ B=2◊Prog "39"Ÿ "Cuantas Armadas"?„AŸ ClrTextŸ B=3◊Goto 1:Isz AŸ Lbl 1:A„Dim List 2Ÿ A„Dim List 3Ÿ A„Dim List 4Ÿ A„Dim List 5Ÿ A„Dim List 6Ÿ 1„List 2[1]:1„CŸ ClrText:C=1◊Goto 2Ÿ "Acimut Inicial="?„G:Goto 3Ÿ Lbl 2:0„GŸ Lbl 3:"Norte Inicial="?„List 6[1]Ÿ "Este Inicial="?„List 5[1]Ÿ Isz HŸ Prog "36"Ÿ ClrText:1„HŸ Lbl 4:Locate 2,4,"Calculo Acimut-Distancia"Ÿ Isz HŸ List 3[H]„IŸ List 4[H]„JŸ Pol(I,J)„List 1Ÿ List 1[1]„IŸ List 1[2]<0◊360—+List 1[2]„List 1[2]Ÿ List 1[2]„JŸ I„List 3[H]Ÿ J„List 4[H]Ÿ ClrText:H
Filename:36 ClrTextŸ A„K:0„ZŸ Lbl 0:Isz H:ClrTextŸ H„I:K=1◊K„IŸ "Al Punto Numero":Iÿ H„List 2[H]Ÿ "Acimut="?„List 3[H]Ÿ "Distancia="?„List 4[H]:A»H◊Goto 0Ÿ "Verificar Datos"ÿ List„Mat(2,3,4)ÿ "OK"?„J:1„HŸ J=0◊"Modoficar Datos"ÿ J»0◊Goto 8Ÿ Lbl 7:"Punto Numero="?„HŸ "Acimut="?„List 3[H]Ÿ "Distancia="?„List 4[H]:"OK"?„IŸ I=0◊Goto 7Ÿ I»0◊1„HŸ Lbl 8:ClrText:Locate 2,4,"Calculo Coordenadas"Ÿ Isz HŸ List 3[H]„JŸ C=1◊Goto 2Ÿ E+J„E:G+J„GŸ G 360—◊G-360—„GŸ G„J:J<180—◊Goto 2Ÿ J+360—„G:Goto 9Ÿ Lbl 2:J+180„GŸ Lbl 9:List 4[H]„IŸ F+I„F:Prog "19"Ÿ List 1[1] 0◊List 1[1]+P„PŸ List 1[1]<0◊List 1[1]+Q„QŸ List 1[2] 0◊List 1[2]+R„RŸ List 1[2]<0◊List 1[2]+S„SŸ List 1[1]„List 3[H]Ÿ List 1[2]„List 4[H]Ÿ List 6[H-1]+List 3[H]„List 6[H]Ÿ List 5[H-1]+List 4[H]„List 5[H]Ÿ A=H◊Goto 4:Goto 8Ÿ Lbl 4:B=2◊Goto 6Ÿ Z=0◊ReturnŸ Lbl 6:Prog "37":Return
Filename:37 ClrTextŸ "Datos para Ajuste"ÿ C=1◊Goto 1Ÿ "Suma angular":E>DMSÿ "Suma Teorica"Ÿ "Error Angular"Ÿ Lbl 1:"Suma Longitudes":Fÿ ClrTextŸ "Suma +N":Pÿ "Suma -S":Qÿ "Suma +E":Rÿ "Suma -W":Sÿ ClrTextŸ "Diferencia N-S":P+Q„Vÿ "Diferencia E-W":R+S„Wÿ "Suma N-S":P+Abs Q„Xÿ "Suma E-W":R+Abs S„Yÿ ClrTextŸ "Precision 1:":Int F¡À(Ví+Wí)„Lÿ ClrTextŸ "Factor Correc. N-S":V¡X„T:º3Tÿ "Factor Correc. E-W":W¡Y„U:º3Uÿ 1„H:0„K:ClrTextŸ "Correccion de Coordenads"ÿ Lbl 0:ClrTextŸ Locate 6,4,"Calculando"Ÿ Isz H:Dsz K:H„IŸ List 3[H]„IŸ I>0◊I-IT„IŸ I<0◊I+IT„IŸ I„List 3[H]Ÿ List 3[H]+List 6[H-1]„List 6[H]Ÿ List 4[H]„JŸ J>0◊J-UJ„JŸ J<0◊J+UJ„JŸ J„List 4[H]Ÿ List 4[H]+List 5[H-1]„List 5[H]Ÿ H=A◊Return:Goto 0Ÿ
Filename:38 Lbl 0:ClrTextŸ "Curva"?„XŸ X=0◊Goto 2Ÿ Lbl 1:"Derecha=1Ÿ Izquierda=∫1"?„ZŸ ClrTextŸ "Norte Atras="?„BŸ "Este Atras="?„CŸ Lbl 2:ClrTextŸ "Norte Abscisa="?„MŸ "Este Abscisa="?„NŸ Lbl 3:ClrTextŸ "Norte Siguiente="?„PŸ "Este siguiente="?„QŸ X=0◊Goto 4Ÿ Pol(M-B,N-C)„List 1Ÿ List 1[2]<0◊360—+List 1[2]„List 1[2]:List 1[2]„GŸ Pol(P-B,Q-C)„List 1Ÿ List 1[2]<0◊360—+List 1[2]„List 1[2]:List 1[2]„HŸ Lbl 4:Pol(P-M,Q-N)„List 1Ÿ List 1[2]<0◊360—+List 1[2]„List 1[2]:List 1[2]„LŸ L+90—„T:X=0◊Goto 5Ÿ Abs (H-G)„K:L+Z(90—-K)„T:Z<0◊T+180—„TŸ Lbl 5:ClrTextŸ "Distancia al Eje="?„YŸ Rec(Y,T)„List 1Ÿ M+List 1[1]„VŸ N+List 1[2]„WŸ Y=0◊Goto 6Ÿ "Norte=":Vÿ "Este=":Wÿ Lbl 6:ClrTextŸ V-E„I:W-F„JŸ Prog "20"Ÿ "Distancia=":Iÿ List 2[13]=0◊"Acimut=":List 2[13]=0◊J>DMSÿ List 2[13]»0◊"Angulo Hz=":List 2[13]»0◊List 2[15]>DMSÿ "Cuerda=":V-List 2[60]„I:W-List 2[61]„J:Prog "20":Iÿ V+º∫4„List 2[60]:W-º∫4„List 2[61]Ÿ ClrTextŸ "Otra Abscisa"?„I:I=Ê◊Goto 0:I=0◊Goto 5Ÿ M„B:N„C:P„M:Q„NŸ Goto 3
Filename:39 ClrText:0„A~ZŸ "Norte="?„AŸ "Este="?„BŸ "Acimut Inicial="?„D:D„List 14[1]Ÿ Lbl 4:"Cuantas Armadas"?„WŸ W„Z:W+1„Dim List 10Ÿ W+1„Dim List 11Ÿ W„Dim List 12Ÿ W„Dim List 13Ÿ W„Dim List 14Ÿ W„Dim List 15Ÿ W„Dim List 16Ÿ A„List 10[1]:B„List 11[1]:Isz O:1„TŸ Lbl 1:ClrText:Isz L:Isz O:O+1>W◊0„OŸ "Al Punto":O+1„Tÿ "Distancia="?„G:G+N„N:G„List 12[L+1]Ÿ "Angulo="?„H:H+M„M:H„List 13[L+1]Ÿ D<180◊Goto 2:D>180◊D-180„D:Goto 3Ÿ Lbl 2:D+180„DŸ Lbl 3:D+H„H:H>360◊H-360„H:H„List 14[L+1]Ÿ H„D:K=1◊"Acimut=":K=1◊D>DMSÿ Lbl 5:Rec(G,D)„List 1Ÿ O+1=1◊W+1„T:List 1[1]„List 15[T]:List 1[2]„List 16[T]Ÿ List 1[1]„I:List 1[2]„JŸ I>0◊I+P„PŸ I<0◊I+Q„QŸ J>0◊J+R„RŸ J<0◊J+S„SŸ Dsz Z:Z»0◊Goto 1Ÿ "Suma Angular=":M>DMSÿ "Angulos Internos=1Ÿ Angulos Externos=2"?„V:V=1◊180(W-2)„XŸ V=2◊180(W+2)„XŸ "Error Angular=":X-M„Y:Y>DMSÿ "Correccion angular=":Y=0◊"OK"ÿ Y»0◊Y¡M„Y:Y»0◊Y>DMSÿ Lbl 6:"Suma Distancias=":Nÿ "Suma Norte=":Pÿ "Suma Sur=":Qÿ "Suma Este=":Rÿ "Suma Oeste=":Sÿ "Diferencia N+S=":P+Q„Uÿ "Diferencia E+W=":R+S„Vÿ "Suma N+S=":P-Q„™ÿ "Suma E+W=":R-S„‰ÿ "CORRECCION NS=":U=0◊"OK"ÿ U»0◊U¡™(º∫3)„Xÿ "Correccion EW=":V=0◊"OK"ÿ
V»0◊V¡‰(º∫3)„Yÿ "Precision 1:":À(Uí+Ví)=0◊"OK":À(Uí+Ví)»0◊N¡À(Uí+Ví)ÿ ClrTextŸ "Coordenadas Corregidas"ÿ 0„LŸ Lbl 7:Locate 6,4,"Corrigiendo"Ÿ Isz L:List 15[L]>0◊List 15[L]-XList 15[L](º-3)„List 15[L]Ÿ List 15[L]<0◊List 15[L]+XList 15[L](º-3)„List 15[L]Ÿ List 16[L]>0◊List 16[L]-YList 16[L](º-3)„List 16[L]Ÿ List 16[L]<0◊List 16[L]+YList 16[L](º-3)„List 16[L]Ÿ L-1=W◊Goto 8:Goto 7Ÿ Lbl 8:Locate 6,4,"Calculando"Ÿ Isz K:List 10[K]+List 15[K+1]„List 10[K+1]Ÿ List 11[K]+List 16[K+1]„List 11[K+1]Ÿ K=W◊Goto 9:Goto 8Ÿ Lbl 9:ClrText:"Norte-Este"ÿ List„Mat(10,11)ÿ List 10„List 5:List 11„List 6Ÿ DrawStatÿ "Listo mijo, OK?"ÿ ClrText
Filename:40 ClrText:0„A~ZŸ "Norte="?„AŸ "Este="?„BŸ Lbl 4:"Cuantas Armadas"?„WŸ W„Z:W+1„Dim List 10Ÿ W+1„Dim List 11Ÿ W„Dim List 12Ÿ W„Dim List 13Ÿ W„Dim List 14Ÿ W„Dim List 15Ÿ W„Dim List 16Ÿ A„List 10[1]:B„List 11[1]:Isz O:1„TŸ Lbl 1:ClrText:Isz L:Isz O:O>W◊1„OŸ "Al punto":K=0◊Oÿ "Distancia="?„G:G+N„N:G„List 12[L+1]Ÿ "Acimut="?„D:D„List 14[L+1]Ÿ Lbl 5:Rec(G,D)„List 1Ÿ Isz T:List 1[1]„List 15[T]:List 1[2]„List 16[T]Ÿ List 1[1]„I:List 1[2]„JŸ I>0◊I+P„PŸ I<0◊I+Q„QŸ J>0◊J+R„RŸ J<0◊J+S„SŸ Dsz Z:Z»0◊Goto 1Ÿ Lbl 6:"Suma Distancias=":Nÿ "Suma Norte=":Pÿ "Suma Sur=":Qÿ "Suma Este=":Rÿ "Suma Oeste=":Sÿ "Diferencia N+S=":P+Q„Uÿ "Diferencia E+W=":R+S„Vÿ "Suma N+S=":P-Q„™ÿ "Suma E+W=":R-S„‰ÿ "Correccion NS=":U=0◊"OK"ÿ U»0◊U¡™(º∫3)„Xÿ "Correccion EW=":V=0◊"OK"ÿ V»0◊V¡‰(º∫3)„Yÿ "Precision 1:":À(Uí+Ví)=0◊"OK":À(Uí+Ví)»0◊N¡À(Uí+Ví)ÿ ClrTextŸ "Coordenadas Corregidas"ÿ 0„LŸ Lbl 7:Locate 6,4,"Corrigiendo"Ÿ Isz L:List 15[L]>0◊List 15[L]-XList 15[L](º-3)„List 15[L]Ÿ List 15[L]<0◊List 15[L]+XList 15[L](º-3)„List 15[L]Ÿ List 16[L]>0◊List 16[L]-YList 16[L](º-3)„List 16[L]Ÿ List 16[L]<0◊List 16[L]+YList 16[L](º-3)„List 16[L]Ÿ L-1=W◊Goto 8:Goto 7Ÿ Lbl 8:Locate 6,4,"Calculando"Ÿ
Isz K:List 10[K]+List 15[K+1]„List 10[K+1]Ÿ List 11[K]+List 16[K+1]„List 11[K+1]Ÿ K=W◊Goto 9:Goto 8Ÿ Lbl 9:ClrText:"Nortre-Este"ÿ List„Mat(10,11)ÿ List 10„List 5:List 11„List 6Ÿ DrawStatÿ "Listo mijo, OK?"ÿ ClrText
Programa de Topografía para Calculadora Casio fx-9750G PLUS (V2) Usuario: USUARIO Página.26
V.- BIBLIOGRAFIA 1. “TOPOGRAFIA”: Alvaro Torres N y Eduardo Villate B. Editorial Norma. Bogotá. 1983 2. “TRAZADO Y LOCALIZACION DE CARRETERAS – TECNICAS Y ANALISIS”: Paulo Emilio Bravo. Tercera edición. Bogotá. 1976. 3. “TRATADO DE TOPOGRAFIA”: Raymond E. Davis, Francis S. Foote y Joe W. Kelly. Versión española de José María Montero, Dr Ingeniero Geógrafo. Editorial Aguilar, España. 1971 4. “CFX-9850GB PLUS CFX-9950GB PLUS Guía del usuario”. CASIO COMPUTER CO., LTDA. Japón. 2000 5. “CFX-9850GB PLUS CFX-9950GB PLUS Biblioteca de software”. CASIO COMPUTER CO., LTDA. Japón. 2000 6. “FX-9750G PLUS Guía del usuario”. CASIO COMPUTER CO., LTDA. Japón. 2005
Teléfonos: 1-4715766 / 312-4788222 / 317-7447004 - e-mail: [email protected]
Página 26 de 26