Hp

EXPORT AZIMUTE2(E1,N1,E2,N2,COTA1,COTA2) BEGIN PRINT; MSGBOX("ING MAX JHON NC UANCV 2017"); LOCAL ?N:=(N2-N1); LOCAL ?E:=(E2-E1); LOCAL D:=v((?E)^2+(?N)^2); LOCAL DN:=(COTA1-COTA2); LOCAL Rprov2:=ABS(ATAN(?E/?N)); LOCAL LOCAL LOCAL LOCAL

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

PRINT(); PRINT("DISTANCIA(m)"); PRINT(D); LOCAL LOCAL LOCAL LOCAL

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

LOCAL LOCAL LOCAL LOCAL

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

PRINT("RUMBO DIRECTO"); IF ?N>0 AND ?E>0 THEN PRINT(RM1);PRINT(R1);END; IF ?N<0 AND ?E>0 THEN PRINT(RM2);PRINT(R2);END; IF ?N<0 AND ?E<0 THEN PRINT(RM3);PRINT(R3);END; IF ?N>0 AND ?E<0 THEN PRINT(RM4);PRINT(R4);END;

PRINT("RUMBO INDIRECTO"); IF ?N>0 AND ?E>0 THEN PRINT(RM1);PRINT(R3);END; IF ?N<0 AND ?E>0 THEN PRINT(RM2);PRINT(R4);END; IF ?N<0 AND ?E<0 THEN PRINT(RM3);PRINT(R1);END;

IF ?N>0 AND ?E<0 THEN PRINT(RM4);PRINT(R2);END; LOCAL Rprov1:=ABS(ATAN(?E/?N)); LOCAL LOCAL LOCAL LOCAL

AZprov1:=(Rprov1); AZprov2:=(180-Rprov1); AZprov3:=(180+Rprov1); AZprov4:=(360-Rprov1);

LOCAL LOCAL LOCAL LOCAL

AZ1:=?HMS(AZprov1); AZ2:=?HMS(AZprov2); AZ3:=?HMS(AZprov3); AZ4:=?HMS(AZprov4);

LOCAL LOCAL LOCAL LOCAL

CAZ1:=(AZprov1+180); CAZ2:=(AZprov2+180); CAZ3:=(AZprov3-180); CAZ4:=(AZprov4-180);

LOCAL LOCAL LOCAL LOCAL

CZ1:=?HMS(CAZ1); CZ2:=?HMS(CAZ2); CZ3:=?HMS(CAZ3); CZ4:=?HMS(CAZ4);

PRINT("AZIMUT DIRECTO"); IF IF IF IF

?N>0 ?N<0 ?N<0 ?N>0

AND AND AND AND

?E>0 ?E>0 ?E<0 ?E<0

THEN THEN THEN THEN

PRINT(AZ1);END; PRINT(AZ2);END; PRINT(AZ3);END; PRINT(AZ4);END;

PRINT("AZIMUT INDIRECTO"); IF IF IF IF

?N>0 ?N<0 ?N<0 ?N>0

AND AND AND AND

?E>0 ?E>0 ?E<0 ?E<0

THEN THEN THEN THEN

PRINT(CZ1);END; PRINT(CZ2);END; PRINT(CZ3);END; PRINT(CZ4);END;

PRINT("DIFERENCIA DE NIVEL (m)"); PRINT(DN)

END;