AZIMUTE DISTÂNCIA 33S.doc

2
AZIMUTE DISTÂNCIA CALCULAR CURVA CIRCULAR 01 LBLA 01 LBLC 02 IMPUTZ ESTE 02 IMPUTE ESTECENTRO 03 IMPUT I NORTE 03 IMPUT N NORTE CENTRO 04 IMPUTX ESTE 04 IMPUTA AZIMUTE CENTRO ESTACA 05 IMPUTY NORTE 05 IMPUTL 06 RCL Z 06 IMPUTR RAIO 07 RCL -X 07 Y,X !," 0# RCL I 0# X < > Y 0$ RCL -Y 0$ RCL A 10 Y,X !," 10 %R 11 STO C 11 & 12 STOP ' R(S 12 X < > Y 13 X < > Y 13 !," Y,X 14 1#0 14 RCL &N 15 & 15 STO Y 16 %MS 16 STOP ' R(S 17 RTN 17 X < > Y 1# RCL & E 1$ STO X 20 RTN DISTANCIA PONTO A RETA ESTACA A)ASTAMENTO 01 LBLP 02 IMPUTE 03 IMPUTN 04 IMPUTA 05 IMPUTX 06 IMPUTY 07 RCL X 0# RCL -E 0$ RCL Y 10 RCL -N 11 Y,X !," 12 STO * 13 X < > Y 14 STO + 15 RCL A 16 %R 17 - MENOS 1# SIN 1$ X 20 STOP ' R(S 21 RCL * 22 RCL + 23 RCL A 24 %R 25 - MENOS 26 COS 27 X 2# RTN

Transcript of AZIMUTE DISTÂNCIA 33S.doc

AZIMUTE DISTNCIACALCULAR CURVA CIRCULAR

01LBL A01LBL C

02IMPUT ZESTE02IMPUT EESTE CENTRO

03IMPUT INORTE03IMPUT NNORTE CENTRO

04IMPUT XESTE04IMPUT AAZIMUTE

CENTRO ESTACA

05IMPUT YNORTE05IMPUT L

06RCL Z06IMPUT RRAIO

07RCL - X07Y,X ,r

08RCL I08X < > Y

09RCL - Y09RCL A

10Y,X ,r10 HR

11STO C11+

12STOP= R/S12X < > Y

13X < > Y13,r Y,X

1418014RCL +N

15+15STO Y

16HMS16STOP= R/S

17RTN17X < > Y

18RCL + E

19STO X

20RTN

DISTANCIA PONTO A RETA

ESTACA AFASTAMENTO

01LBL P

02IMPUT E

03IMPUT N

04IMPUT A

05IMPUT X

06IMPUT Y

07RCL X

08RCL - E

09RCL Y

10RCL - N

11Y,X ,r

12STO J

13X < > Y

14STO K

15RCL A

16 HR

17-MENOS

18SIN

19X

20STOP= R/S

21RCL J

22RCL K

23RCL A

24 HR

25-MENOS

26COS

27X

28RTN