CÁLCULO Y COMPENSACION DE COTAS DE UNA NIVELACION CERRADA
Enviado por DaVid VL • 20 de Mayo de 2017 • Apuntes • 2.699 Palabras (11 Páginas) • 2.852 Visitas
CÁLCULO Y COMPENSACION DE COTAS DE UNA NIVELACION CERRADA
El presente programa realizado en Visual Basic realiza como bien el título lo dice el cálculo y la compensación de errores de una nivelación topográfica cerrada pero antes de ver cómo funciona primero debemos conocer que es nivelación cerrada y para que nos servirá en la carrera de ingeniería civil.
- NIVELACIÓN
Es el proceso mediante el cual se determina la altitud de un punto respecto a un plano horizontal de referencia.
- CLASES DE NIVELACIÓN
- Nivelación directa ó Geométrica
El programa realizado es exclusivamente para un tipo de nivelación geométrica cerrada.
Este tipo de nivelación se realiza específicamente con un nivel de ingeniero y una mira calculando las lecturas Vista atrás y vitas adelante.
[pic 1]
- Nivelación indirecta
-nivelación trigonométrica
-nivelación barométrica
-nivelación satelital
Ahora ya sabiendo los conceptos básicos miremos como funciona nuestro programa
LA NIVELACION GEMOEMTRICA CERRADA
Es aquella en la que partimos de un punto conocido y terminamos en otro punto conocido que coincide con el de partida. Sólo se conoce la altitud de A. Normalmente este método se aplica para dar coordenada al punto D ó cualquiera de los otros puntos.
[pic 2]
NIVELACION CERRADA
[pic 3]
Para la mejor precisión de los resultados obtenidos es necesario compensar dicha cotas halladas para esto se sabe que el punto final y inicio de nuestra nivelación coinciden en cota por tanto.
Error de cierre altimétrico = E
Ec = ∑V.AT-∑V.AD = cota final – cota inicial
Precisión de la nivelación:
Como nuestra nivelación es de tipo ordinaria USADOS EN TRABAJOS DE CARRETERAS, FERROCARRILES, TRABAJOS COMUNES DE TPOGRAFIA, ECT. Las visuales pueden ser hasta 150 metros por tanto:
Emax = ±0.02√k donde K= distancia en kilómetros del itinerario
Por tanto diremos que la nivelación es conforme si el error no sobrepasa el error máximo:
Emax > E
De lo contrario no conforme.
La codificación en el VISUAL BASIC PARA EL HALLAR ESTO ES :
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
n = TextBox1.Text
u = 0
For x = 0 To n
u = a(x) + u
Next
v = 0
For x = 0 To n
v = b(x) + v
Next
herror = u - v
TextBox4.Text = herror
t = 0
For x = 0 To n
t = f(x) + t
Next
If herror > 0 Then
Emax = 0.02 * (t) ^ 0.5
If herror < Emax Then
TextBox5.Text = "La Nivelación es Conforme"
Else
TextBox5.Text = "La Nivelación No es Conforme"
End If
Else
Emax = -0.02 * (t) ^ 0.5
If herror > Emax Then
TextBox5.Text = "La Nivelación es Conforme"
Else
TextBox5.Text = "La Nivelación No es Conforme"
End If
End If
End Sub
Compensación de errores:
En nuestro caso que es un iterinario cerrado la compensación del error se realiza
repartiendo dicho error en todas las cotas de los puntos intermedios y será directamente proporcional ala distancia entre dicho punto y el inicial.
/dt[pic 4]
[pic 5]
[pic 6]
[pic 7]
Dt: distancia total
[pic 8]
Este proceso realizado en el VISUAL BASIC presenta la siguiente codificación:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox3.Items.Clear()
c(0) = TextBox2.Text
ListBox3.Items.Add(c(0))
a(0) = 0
b(0) = 0
t = 0
For x = 0 To n
t = f(x) + t
Next
z = 0
g(0) = 0
Do While z <= n
For x = 1 To n
g(x) = f(x) + z
z = g(x)
k = k + 1
Next
Loop
n = TextBox1.Text
...