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
L
"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 L
"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 H
( 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 ″ p>
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 p> 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