Programa de curva circular Casio 5800

Calculadora CASIO fx-5800 programa de levantamiento de ingeniería y autopistas

1. Cálculo de coordenadas

"X0="?X:"Y0="? ＂I="?I:"J="?J

X+ICos(J)→U:Y+ISin(J)→V

"X=" :U (Coordenada X del punto a encontrar)

"Y=":V (Coordenada Y del punto a encontrar)

Explicación: X0 Y0: coordenadas del punto conocido I: dos Distancia J del punto: ángulo de azimut

2 Cálculo inverso de coordenadas

Lbl 0

＂X1=″?X:＂Y1=″?Y: ＂ X2="?U:"Y2="?V

Pol(U-X,V-Y):

J<0 J+360→J

" I =″:I

”J=":J DMS

GOTO 0

Explicación: X1Y1: las coordenadas del primer punto, X2Y2 las coordenadas de el segundo punto, I: distancia entre dos puntos, J: ángulo de azimut

3 Curva circular

"X0="?X: "Y0="?Y:"FWJ=. "?D :"QDHAO="?G: "ZDHAO="?C: "R="?R

Lbl 1

"DQHAO="?L

LC GOTO 2

"PY="?K

180(L-G)÷(πR) →E

2RSin (0.5E ) →F

ReC(Abs(F),D+0.5E)：Cls

"X=":X+I+KCos(D+E+90) ) →A

"Y=":Y+J+KSen(D+E+90) →B

D+E→o:o<0 36o→0o

"FWJ=":o DMS

Ir a 1

Lbl 2

"END"

Descripción : X0Y0: Coordenadas del punto inicial, FWJ: ángulo azimutal del punto inicial, QDHAO: kilometraje del punto inicial, ZDHAO kilometraje del punto final, R: radio, DQHAO: kilometraje del punto a encontrar, PY: desplazamiento

4. Curva vertical

"QZHAO ="?J: "H+B"=?B:"I1="?C:"I2="?D:"R="?R:" T="?T:

((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S

"T":S

J-T→X

J+T→Y

Lbl 0

"DQ="?L

Si LY:Entonces Ir a 1:Si Fin:Si Fin

"GC=":B+C(L-J) ÷ 10A(L-J+ T) ÷(2R) →H

Ir a 0

Lbl 1

"FIN"

Explicación: QZHAO: Punto medio de la canción Kilometraje, H+B: elevación del punto central de la curva, I1: primera pendiente, I2: segunda pendiente, R: radio, T: longitud tangente, DQ: kilometraje del punto a ser encontró.

5. Desplazamiento positivo

"X0="?A: "Y0="?B:"FWJ="?D:

Lbl 0

"LS =″ ?L: "PY="?C

ReC(L,D)

"X=":A+I+CCos(D+ 90) →X

"Y=":B+J+CSin(D+ 90) →Y

Ir a 0

Descripción: X0 Y0: coordenadas del punto conocido, LS: distancia de dos puntos, FWJ : ángulo de azimut

6. Fórmula universal

"X0="?A:"Y0="?B:"FWJ="?C:"1÷R- QD″? D:＂1÷R-ZD″?E:＂QDHAO″?F:

＂ZDHAO″?G

Lbl 1

＂ DQHAO=″ ?H:＂PY=″?o

Si HG:Entonces Ir a 2:Si End:IfEnd

( E-D)÷ Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C +135Q( 3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K

A+Q(Cos(C) +4(Cos(M) +Cos( N))+2Cos(K)+Cos(J))÷12→U:

B+Q(Sin(C)+4(Sin(M)+Sin(N)) +2Sin( K)+Sin(J))÷12→V

"X=":U+oCos(J+90) →X

"Y=":V +oSin( J+90) →Y

"FWJ=": J DMS

Ir a 1

Lbl 2

"END ″

Explicación: Kilometraje del punto final, DQHAO: kilometraje del punto a encontrar, XY: coordenadas del punto a encontrar

6. ="?J:"QDHAO="?G:"ZDHAO =″?K:”B—HB=”?B:”SX=”?Q:”I1=”?C:

” I2=”?D:”R=”?R:” T="?T

(D-C)÷100→W:W÷Abs(W)→A:"T":0.5RAbs( W) →S

"o- YIGAO="?o

J-T→X:J+T→Y

Lbl 1

"L—DQHAO="?L:"PY=" ?U:＂"XIELV="?V

Si L

"HL= ″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

“HO=″:o-H→Z

Ir a 1

Lbl 2

L

"HL=" :B+0.01 (L-J)C+0.01UV+Q →H

"H0=":o-H→H

Ir a 1

Laboratorio 3

L>K Ir a 4

"HL=":B+0.01 (L-J)D+0.01UV+Q →H

"HO=:o-H→Z

Ir a 1

Lbl 4: "FIN"

Nota: QZHAO: el kilometraje del punto central de la curva (curva vertical), QDHAO: el kilometraje del punto inicial, ZDHAO: el kilometraje final, B—HB la elevación del punto central de la curva, SX: arriba y abajo ( cuánto por debajo de la elevación de la carretera está el nivel estable del agua), I1: la primera pendiente, I2: segunda pendiente, R: radio, longitud de la tangente T, L-DQHAO: kilometraje del punto a encontrar, PY: desplazamiento (distancia desde el pilote medio a pilote lateral), XIELV: pendiente (pendiente de pendiente transversal, izquierda menos derecha positiva) o-YIGAO: Instrumento alto