Solicitud: Programa de medición de carreteras para computadora Casio 4850```````
Este programa es una modificación basada en el trabajo de dos maestros, yshf y hanniu1973. Las modificaciones incluyen principalmente los siguientes puntos:
1 Modificar los símbolos variables para el propósito de It. se puede integrar mejor con el sitio de construcción real;
2. Divida el programa principal original en dos, que se puede llamar de manera más flexible
3. cálculo y replanteo
4. Simplifica todo el proceso de medición y replanteo.
Adjunto (haga clic para descargar):
Programa fx-4850 de cálculo directo e inverso de coordenadas GAUSSLE
Programa fuente
1. programa maestro de cálculo GSZS
I"X0":S"Y0":O"K0":G"F0":H"KN":P"R0":R"RN":Q"Q( -Z Y )":
D=(P-R)÷(2(H-O)PR):
KL"L(-Z Y)": M"ANG(YJJ)"= 90: (Nota: si a M no se le asigna un valor aquí, se puede calcular el punto de intersección oblicua)
J=Abs(K-O):Prog"SUB1":
"FWJ =":F= F-M: "X=": Y:
I"X0":S"Y0":O"K0":G"F0":H"KN":P"R0" :R"RN":Q"Q(-Z Y )":
D=(P-R)÷(2(H-O)PR):
J=Abs((Y-S) cos(G-90)-(X-I)sin( G-90)):
L=0: M”M(YJJ)”=90:
Lbl 0: Prog "SUB1":
L =(Z[3]-Y)cos(G-90 QJ(1÷P JD)×180÷π)-(Z[2]-X)sen(G -90 QJ(1÷P JD) ×180÷ π):
AbsLlt; 1E-6=gt; ≠gt; J=J L: Ir a 0Δ←┘
Lbl 1: L=0: Prog "SUB1": L=(Z[3]-Y)÷sinF:
”K=”:K=O J:Pausa0:”L=":L= L◢3. Subrutina aritmética positiva (SUB1)
Defm 4:
A=0.1184634425: B=0.2393143352: Z[4]=0.2844444444: C=0.0469100770: E=0.2307653449: Z[1]=0.5:
X=I J(Acos(G QCJ(1÷P CJD)×180÷π) Bcos(G QEJ(1÷P EJD)×180÷π) Z[ 4]cos(G QZ[1]J( 1÷P Z[1]JD)×180÷π) Bcos(G Q(1-E)J(1÷P (1-E)JD)×180÷π) Acos (G Q (1-C)J(1÷ P (1-C)JD) ×180÷π)):
Y=S J(Asen(G QCJ(1÷P CJD)×180÷ π) Bsin(G QEJ(1÷P EJD )×180÷π) Z[4]sin(G QZ[1]J(1÷P Z[1]JD)×180÷π) Bsin(G Q(1-E )J(1÷P (1-E) JD)×180÷π) Asín(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)):
F=G QJ(1÷P JD ) ×180÷π M:X=X LcosF:Y=Y LsinF4 Base de datos de elementos de curva: DAT-M
K≥O=gt; *:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘
K≥O=gt; I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘
<p>K≥O=gt; K K≥O=gt; K K≥O=gt; K≤H=gt I=**:S=**:O=; **: G=**: H=**: P=**: R=**: Q=**⊿⊿←┘ ……………………… K≥O=gt; K≤H=gt; I=**:S=**:O=**:G=**:H=**:P=**:R= ** : Q=**⊿⊿←┘ (Nota: si hay varios elementos de curva, continúe agregándolos a la base de datos DAT-M) 5. Programa de combinación de línea M (cálculo positivo de coordenadas) MG - ZB Prog”DAT-M”:Prog”GSZS” 6. Programa combinado de línea M (cálculo de coordenadas-replanteo) MG-FY Prog”MG-ZB”: Prog” LTKZD”: Prog”FY” 7. Programa de combinación de línea M (cálculo inverso de coordenadas) M-GSFB Prog”DAT-M”: Prog”GSFS” Descripción: 1. Funciones y principios del programa 1. Descripción de la función: Este programa consta de dos programas principales: el programa principal de cálculo directo (GSZS) y el programa principal de cálculo inverso (GSFS). y dos subprogramas El proceso se compone de un subprograma de operador positivo (SUB1) y una base de datos de elementos de línea (DAT-M), que puede basarse en los elementos de elementos de línea (coordenadas del punto de partida, kilometraje del punto de partida, tangente del punto de partida). azimut, kilometraje del punto final, radio de curvatura del punto inicial, radio de curvatura del punto final) y distancia o coordenadas del borde del kilometraje, realice cálculos directos e inversos de las coordenadas del pilote del borde en cualquier kilometraje dentro del segmento de la curva. Este programa se puede ejecutar en la calculadora CASIO fx-4800P y en la calculadora CASIO fx-4850P. Gracias a la adición de la base de datos (DAT-M), se puede lograr una integración completa de los cálculos de coordenadas directas e inversas. El programa combinado 5 puede realizar la penetración positiva de la línea M, el programa combinado 7 puede realizar la penetración inversa de la línea M y el programa combinado 6 puede realizar la integración del cálculo de coordenadas y el replanteo. 2. Principio de cálculo: Utilice la fórmula general de 5 puntos de Gauss-Legendre para calcular las coordenadas de los pilotes laterales en la línea y calcular los datos de replanteo. Utilice la línea tangente desde el punto a encontrar hasta el punto inicial del elemento de línea para hacer una línea vertical y vuelva a calcular el kilometraje y el margen según el principio de iteraciones sucesivas. 2. Instrucciones de uso 1. Reglamento (1) La izquierda y la derecha se distinguen por la dirección de avance de la línea central de la carretera (es decir, la dirección en la que se ejecuta el kilometraje). aumenta); cuando el elemento de línea se desvía hacia la izquierda, Q = -1; cuando el elemento de línea se desvía hacia la derecha, Q = 1; cuando el elemento de línea es una línea recta, Q = 0; (2) Cuando el punto deseado se ubica en la línea media, L=0; cuando está en el lado izquierdo de la línea media, L toma un valor negativo cuando está en el lado derecho de la línea media; línea media, L toma un valor positivo. (3) 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 por 45. (4) Cuando el elemento lineal es una curva circular, no importa a qué elemento lineal estén conectados su punto inicial y su punto final, su radio de curvatura es igual al radio del arco. (5) Cuando el elemento de línea es una curva de transición completa, cuando el punto de partida está conectado a la línea recta, el radio de curvatura es infinito, que se reemplaza por el 45 de 10; conectado a una curva circular, el radio de curvatura es igual al radio de la curva circular. Cuando el punto de parada está conectado a una línea recta, el radio de curvatura es infinito, que se reemplaza por el 45 de 10; cuando está conectado a una curva circular, el radio de curvatura es igual al radio de la curva circular. (6) Cuando el elemento de línea es una curva de transición incompleta, cuando el punto de partida está conectado a una línea recta, el radio de curvatura es igual al valor especificado en el diseño; conectado a una curva circular, el radio de curvatura es igual al radio de la curva circular. Cuando el punto de parada está conectado a una línea recta, el radio de curvatura es igual al valor especificado en el diseño; cuando está conectado a una curva circular, el radio de curvatura es igual al radio de la curva circular. (7) La base de datos de elementos de elementos curvos (DAT-M) se puede dividir en varios segmentos de elementos de línea según diferentes tipos de líneas e ingresarlos en DAT-M, es decir, se puede dividir en líneas rectas. segmentos, curvas de transición, curvas circulares, etc. (8) Durante el cálculo directo, solo puede ingresar el kilometraje, la distancia lateral y el ángulo de intersección recto para lograr el cálculo de la línea completa. Sin embargo, durante el cálculo inverso, solo puede leer la base de datos DAT-M primero. ingresando el valor del kilometraje K, la calculadora asignará automáticamente los metadatos en línea del kilometraje K al programa principal de cálculo retroactivo GSFS para el cálculo de prueba. El kilometraje calculado de prueba y el margen deben ingresarse al programa de cálculo principal GSZS para calcular las coordenadas. Si las coordenadas coinciden, el cálculo retroactivo es correcto. 2. Instrucciones de entrada y visualización (1) Parte de entrada: X0? Coordenada X del punto inicial del elemento lineal Y0? Coordenada Y del punto inicial del elemento lineal K0? Kilometraje del punto inicial del elemento de línea F0? Elemento de línea punto inicial tangente azimut KN? Kilometraje terminal del elemento de línea R0? Radio de curvatura del punto inicial del elemento de línea RN? Radio de curvatura del punto muerto del elemento lineal ¿P? Marca de desviación izquierda y derecha del elemento de línea (desviación izquierda Q=-1, desviación derecha Q=1, segmento de línea recta Q=0) ¿K? El kilometraje del punto que se busca durante el cálculo positivo L? En cálculo positivo, la distancia entre el punto requerido y la línea central (valor negativo a la izquierda, valor positivo a la derecha y cero en la línea central) ¿ANG? Al calcular los pilotes laterales, el ángulo de intersección derecho entre la línea que conecta los pilotes laterales izquierdo y derecho y la línea central de la línea X? ¿Cuál es la coordenada X del punto que se encontrará durante el cálculo retrospectivo Y? Coordenada Y del punto obtenido durante el cálculo posterior M? Esquina derecha oblicua O y H en K≥O=gt en la base de datos de características del elemento de línea; Son el kilometraje del punto inicial y el kilometraje del punto final del elemento de línea respectivamente A, B, Z[4] son los coeficientes de interpolación en la fórmula de cuadratura de Gauss-Legendre C , E, Z[ 1] es el nodo de cuadratura en la fórmula de cuadratura de Gauss-Legendre (2) Parte de visualización: X=××× Al calcular, el punto calculado es calculado La coordenada X de Encuentra el kilometraje del punto L=××× Al calcular hacia atrás, se calcula el margen calculado del punto 3. Ejemplo de cálculo Una determinada rampa. se compone de cinco elementos de línea (consta de líneas rectas, curvas de transición completas, curvas circulares, curvas de transición no completas, líneas rectas) y los elementos de cada elemento de línea (kilometraje del punto de partida S0, coordenadas del punto de partida X0 Y0, punto de partida punto tangente azimut F0, longitud del elemento de línea LS, radio de curvatura del punto inicial R0, radio de curvatura del punto final RN, marcas de desviación izquierda y derecha del elemento de línea Q) son los siguientes: S0 769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75 -1 806.748 19766.566 28594.574 120 25 54.07 112.779 221.75 221.75 -1 919.527 19736.072 28701.893 91 17 0,63 80,285 221,75 9579,228 -1 999,812 19744,038 28781,659 80 40 50.00 100.000 1E45 1E45 0 (Nota: en este ejemplo, el elemento de línea Ls es la longitud del elemento de línea que se debe ingresar antes de modificar el programa. Después de modificar el programa, el elemento de línea el kilometraje del punto final KN se cambia a entrada) Programa de replanteo FY U"XJ":V"YJ":W"XH":Z"YH":XY:I=W-U:J=Z-V:Pol (I,J):Jlt;0=gt; J=J 360Δ “HSJL=”:I◢ O”HF”=J:X=0=gt; U=U LCos(J P”μ”): V=V LSin(J P”μ”): ”X=”: U: Pausa0:”Y=”: V: ≠gt; I=X-U: J=Y-V : Pol(I, J): Jlt; 0=gt; Jlt; 0=gt; J=J 360: Δ "ANG=": J→DMS ("ANG=" y "QSJL=" pueden aparecer al mismo tiempo sin perder la declaración Pause0) "QSJL=": Base de datos del punto de control del puente ILingtie LTKZD A=21: B=22: C=23: D=24: E=25: F=26: G =27: H=28: I=29 ←┘ T "ZJDH": ←┘ T=11=gt U=****: V=** **⊿←┘ T=12=gt;U=****:V=****⊿←┘ T=13=gt;U=* ***:V=**** ⊿←┘ T=15=gt; U=****: V=****⊿←┘ T = 4 =gt; U=*** *: V=****⊿←┘ T= A=gt; T= B =gt; U=****: V=****⊿←┘ T= C=gt; =****⊿←┘ p> ………………………………………… (Nota: Si hay varios puntos de control, continúe agregarlos a la base de datos LTKZD) N “HSDH” :←┘ N=11=gt W=****: Z=****⊿←┘; N=12=gt; W=*** *: Z=****⊿←┘ N=13=gt; =****⊿←┘ N=15 =gt; W=****: Z=****⊿←┘ N= 4 =gt; W=****: Z=****⊿←┘ p> N= A=gt; W=****: Z=****⊿←┘ N= B=gt; W=****: Z=* ***⊿←┘ N= C=gt; ⊿←┘ …………………… ……… (Nota: si hay varios puntos de control, continúe agregándose a la base de datos LTKZD) Programa combinado LTFY Prog ”LTKZD”: Prog ”FY” Descripción: 1. Funciones y principios del programa 1. El programa FY tiene dos funciones Cuando la entrada de la coordenada X del punto de vista actual es cero, el programa ejecuta la función de punto de giro, es decir, primero usa la estación total para medir la distancia L entre cualquier punto de giro y el punto de espejo. el ángulo P "μ" entre la línea que conecta el punto de espejo y el punto de giro y la línea que conecta el punto de espejo y el punto de referencia, e ingréselo en la calculadora para calcular las coordenadas de salida de cualquier punto de rotación; otra función es el replanteo de coordenadas; , es decir, introduzca el Las coordenadas X e Y de los puntos de muestra se utilizan para calcular la distancia al punto de espejo "QSJL=" y el ángulo de replanteo del cero de la estación total "ANG=" (ángulo de acimut de vista frontal - ángulo de acimut de vista trasera). La función LTKZD de la base de datos de puntos de control del puente Lingtie coopera con el programa FY para lograr que solo se puedan ingresar los números de los puntos de espejo y de los puntos de referencia durante el replanteo de coordenadas, reduciendo así la gran cantidad de datos. aporte. 2. Principio de cálculo: Utilice los conocimientos básicos de cálculo de coordenadas y ángulo de azimut y la tecla de función de conversión de coordenadas polares POL 2. 1. Regulaciones Cuando la entrada de la coordenada X del punto de vista actual es cero, el programa ejecuta la función de pivote 2. ( 1) Parte de entrada: XJ? Coordenada X del punto espejo ¿YJ? Coordenada Y del punto espejo XH? Coordenada X del punto de referencia ¿YH? Coordenada Y del punto de referencia X? Coordenada X del punto de replanteo ¿Y? ¿Coordenada Y del punto de replanteo L? ¿Cuál es la distancia medida entre el punto de inflexión y el punto del espejo? P”μ”? El ángulo medido entre la línea que conecta el punto de espejo y el punto de giro y la línea que conecta el punto de espejo y el punto de referencia T? Establecer el número de espejo ZJDH N? Número de punto de referencia HSDH 11, 12, 13, 15, 4, A, B, C, D, E, F, G, H e I son los números de punto de control del puente Lingtie respectivamente, y el entrada de cálculo Presione los números o letras anteriores para ingresar a la calculadora (2) Parte de visualización HSJL=**** Distancia de referencia (distancia entre el punto de espejo y el punto de referencia) ANG= **** Dial de ángulo de replanteo de cero de estación total QSJL=**** Distancia de visión delantera (distancia entre el punto de espejo y el punto de replanteo) p> QSJL=**** p> X= **** Coordenada X del punto de giro Y= **** Coordenada Y del punto de giro 3. Otros instrucciones 1. Si necesita compilar otro programa de punto de control de línea, solo necesita crear otro subprograma de base de datos LTKZD. Al crear uno nuevo, solo necesita cambiar los datos de visualización en rojo arriba. 2. En el programa, 11~15 y A~I son números de puntos de control. Al comienzo del programa, primero asigne valores a A y B: A=21:B=22. etc. El propósito es cumplir con los requisitos de ejecución del programa. Al ingresar el número de punto, puede ingresar directamente las letras A, B, C, etc.