Programa para Topografía (Casio fx 9860G)
 Autor:Jorge Alirio Mendoza Rincón.

Locate 5,1,"Tres módulos para -TOPOGRAFIA-"
Locate 3,2,"Módulo 1: Azimut y Distancia"
Locate 3,3,"Módulo 2: Coord. Punto Visado"
Locate 3,4,"Módulo 3: Coord. 3er Punto (Método de Intersección)"

 Programas para Topografía (Casio fx 9860G)

¡¡¡ Autor:Jorge Alirio Mendoza Rincón. !!!

"PROG TOPO 9860" versión de prueba.

Lbl 0

ClrText

Locate 5,1,"TOPOGRAFIA"

Locate 3,2,"1: Azimut y Distancia"

Locate 3,3,"2: Coord. Punto Visado"

Locate 3,4,"3: Coord. 3er Punto"

Locate 3,6,"0: Salir"

?→O

If O=0:Stop

If O=1:Goto 1

If O=2:Goto 2

If O=3:Goto 3

Goto 0

'--- Opción 1: Azimut y Distancias ---

Lbl 1

ClrText

"X1"?→X1

"Y1"?→Y1

"Z1"?→Z1

"X2"?→X2

"Y2"?→Y2

"Z2"?→Z2

X2-X1→DX

Y2-Y1→DY

Z2-Z1→DZ

√(DX^2+DY^2)→DH

√(DX^2+DY^2+DZ^2)→DI

'Azimut robusto en grados decimales

If DX=0 And DY>0:90→A

If DX=0 And DY<0:270→A

If DX>0:ATan(DY/DX)→A

If DX<0:ATan(DY/DX)+180→A

If DX>0 And DY<0:ATan(DY/DX)+360→A

If DX=0 And DY=0:0→A

If A≥360:A-360→A

If A<0:A+360→A

Goto 0

ClrText

Locate 1,1,"Azimut:"

Locate 10,1,G

Locate 13,1,"°"

Locate 14,1,M

Locate 16,1,"'"

Locate 17,1,Fix1,S

Locate 20,1,"''"

Locate 1,2,"Dist Hor:" :Locate 10,2,Fix3,DH

Locate 1,3,"Dist Inc:" :Locate 10,3,Fix3,DI

Pause

Goto 0

'--- Opción 2: Coord. Punto Visado ---

Lbl 2

ClrText

"X Eq"?→XE

"Y Eq"?→YE

"Z Eq"?→ZE

"Azimut (°)"?→AZ

"Distancia"?→D

"Z Punto"?→ZP

ZP-ZE→DZ

√(D^2-DZ^2)→DH

XE+DH*Sin(AZ)→XV

YE+DH*Cos(AZ)→YV

ClrText

Locate 1,1,"X Visado:" :Locate 10,1,Fix3,XV

Locate 1,2,"Y Visado:" :Locate 10,2,Fix3,YV

Locate 1,3,"Distancia:" :Locate 10,3,Fix3,D

Pause

Goto 0

'--- Opción 3: Coord. 3er Punto ---

Lbl 3

ClrText

"X1"?→X1

"Y1"?→Y1

"X2"?→X2

"Y2"?→Y2

"Az1 (°)"?→A1

"Dist1"?→D1

"Az2 (°)"?→A2

"Dist2"?→D2

X1+D1*Sin(A1)→PX1

Y1+D1*Cos(A1)→PY1

X2+D2*Sin(A2)→PX2

Y2+D2*Cos(A2)→PY2

(PX1+PX2)/2→X3

(PY1+PY2)/2→Y3

ClrText

Locate 1,1,"X3:" :Locate 10,1,Fix3,X3

Locate 1,2,"Y3:" :Locate 10,2,Fix3,Y3

Pause

Goto 0

----------------------------

---------------------------------

cambios de variables

Entradas (corrige así)

"X1"?→A

"Y1"?→B

"Z1"?→C

"X2"?→D

"Y2"?→E

"Z2"?→F

Salidas de los Cálculos (ejemplo Opción 1)

Locate 1,1,"Az:"

Locate 7,1,M:Locate 10,1,"°"

Locate 11,1,N:Locate 13,1,"'"

Locate 14,1,Fix1,S:Locate 17,1,"''"

Locate 1,2,"DH:":Locate 7,2,Fix3,J

Locate 1,3,"DI:":Locate 7,3,Fix3,K

Jorge Alirio Mendoza Rincón

Calificación

★ ★ ★ ★ ★