¿Cómo editar el programa de cálculo de coordenadas directas e inversas de Casio FX-5800P?

Subrutina aritmética directa (ZS) (no en ejecución)

1÷P→C: (P-R)÷(2HPR) →D: 180÷π→E←┚

0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: 1-L→F: 1-K→M: U+W(Acos(G+QEKW(C+KWD))+Bcos ( G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X: V+W(Asin(G+QEKW(C+ KWD) )+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y: G+QEW(C+WD )+ 90→F： ((Y-V))cos(T)-(X-U)sen(T)→W： 0→Z←┚

Lbl 0←┚

prog＂ZS ＂：T+ QEW(C+WD)→L：（J-Y）cosL-（I-X）sinL→Z：Si Abs(Z)<0.001: Entonces Ir a1：De lo contrario W+Z→W：IfEnd :Ir a 0←┚

Lbl 1: 0→Z: Prog"ZS": (J-Y)÷sinF→Z

ZX-WN (ejecuta el programa principal, que es adecuado para rampas y calcula la curva asimétrica completa curva de toda la sección Demasiado problemático)

"CZX"?S (coordenada X de la estación del instrumento):"CZY"?W (coordenada Y de la estación del instrumento)

LbI 0: ¿"K"?K: Si K≤126,9 (lo mismo que arriba para el punto final de la primera curva única): Entonces vaya a A: de lo contrario, si K≤176,9 y K>126,9: Entonces vaya a B: de lo contrario, si K≤259,562 y K＞176.9: Luego vaya a C:De lo contrario, si K≤309.562 y K＞259.562: Luego vaya a D: IfEnd:IfEnd:IfEnd:IfEnd←┚

LbI A:92094.336 (coordenada X del punto inicial)→ U:8287.962 (coordenada Y del punto inicial)→V:0 Número de estación inicial→O:145°11'54" (ángulo de azimut)→G:126.9 (longitud de la curva)→H:10^(45) (radio del punto inicial )→P:10^(45) (radio del punto final)→ R:+1 (la ruta es izquierda y derecha, negativa a la izquierda y positiva a la derecha, la línea recta pierde 0)→Q:Prog "WN": Ir a W

LbI B:91990.134→U:8360.388→V:126.9→O: 145°11'54"→G:50→H:10^(45) →P:150 →R:+ 1→Q:Prog "WN": Ir a W

LbI C:91947.609→U :8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P: 150 →R:+1→Q:Prog "WN":Ir a W

LbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H :150 →P: 10^(45) →R:+1→Q:Prog "WN":Goto W

LbI W:＂PJ1＂?T←┚(Este elemento es solo el izquierdo y el pilotes del lado derecho y luego los desplazamientos izquierdo y derecho. Si ingresa 0, no hay desplazamiento izquierdo o derecho. Puede generar directamente el ángulo y la distancia del azimut. Es adecuado para replantear estribos de puentes, vigas rematadas y alcantarillas. paredes, etc., en la dirección de avance de la ruta, adelante -, atrás +)

Si T=0: Entonces Z[3]→

Z: Z[4]→M: Ir a P: Else Ir a V: IfEnd←┚

LbI V:＂JJ1＂ O←┚ (¿El ángulo entre los pilotes izquierdo y derecho se resta de 180°? Ángulo de ruta)

"X1=": Z[3]+Tcos（F+N+ O）→U◢

"Y1=＂":Z[4]+Tsin（ F+N+ O)→V◢

U→Z: V→M: GotoP←┚

LbI P:Pol(Z-S,M-W): Si J≤0：Entonces J +360°→J: IfEnd←┚

"JL=":I◢(distancia desde la estación del instrumento al punto de medición)

"FWJ=":J DMS◢(estación del instrumento Azimut al punto de medición)

Ir a 0

Observaciones:

1. Se estipula que la dirección de avance de la línea central de la carretera (es decir, la dirección en la que aumenta el kilometraje) se utiliza para distinguir la izquierda y la derecha cuando el elemento de línea se desvía hacia la izquierda, Q = -1; la línea se desvía hacia la derecha, Q=1: cuando el elemento línea es una línea recta, Q= 0.

2． Cuando el elemento de línea es una línea recta, el radio de curvatura de su punto inicial y final es infinito, que se reemplaza por 10 elevado a 45.

3. Cuando el elemento de línea es una curva circular, no importa a qué elemento de línea estén conectados su punto inicial y su punto final, su radio de curvatura es igual a