HP PRIME - PROGRAMA PARA CALCULO DE DISTANCIA Y AZIMUT

July 10, 2017 | Author: Anonymous | Category: Documents
Share Embed


Short Description

HP PRIME - PROGRAMA PARA CALCULO DE DISTANCIA Y AZIMUT. Cargado por Adriano Damiane ... Descripción: UN CODIGO SENCILLO...

Description

EXPORT AZIMUTE2(E1,N1,E2,N2,COTA1,COTA2) BEGIN PRINT; MSGBOX(" ING GILMER DAMIAN CALLATA ING TOP. & AGRIM. UNA - PUNO");

LOCAL ΔN:=(N2-N1); LOCAL ΔE:=(E2-E1);

LOCAL D:=√((ΔE)^2+(ΔN)²);

LOCAL DN:=(COTA1-COTA2);

LOCAL Rprov2:=ABS(ATAN(ΔE/ΔN));

LOCAL RUMONE:=(Rprov2); LOCAL RUMOSE:=(Rprov2); LOCAL RUMOSW:=(Rprov2); LOCAL RUMONW:=(Rprov2);

PRINT(); PRINT("DISTANCIA (m)");

PRINT(D);

LOCAL R1:="NE"; LOCAL R2:="SE"; LOCAL R3:="SW"; LOCAL R4:="NW";

LOCAL RM1:=→HMS(RUMONE); LOCAL RM2:=→HMS(RUMOSE); LOCAL RM3:=→HMS(RUMOSW); LOCAL RM4:=→HMS(RUMONW);

PRINT("RUMBO DIRECTO"); IF ΔN>0 AND ΔE>0 THEN PRINT(RM1);PRINT(R1);END; IF ΔN0 THEN PRINT(RM2);PRINT(R2);END; IF ΔN0 THEN PRINT(RM1);PRINT(R3);END; IF ΔN0 THEN PRINT(RM2);PRINT(R4);END; IF ΔN0 THEN PRINT(AZ1);END; IF ΔN0 THEN PRINT(AZ2);END; IF ΔN0 THEN PRINT(CZ1);END; IF ΔN0 THEN PRINT(CZ2);END; IF ΔN
View more...

Comments

Copyright © 2017 DOCIT Inc.