Topografia
Significa descrição de um lugar, originária do grego topus indicando lugar e graphein, descrever. Tem por finalidade determinar o contorno, as dimensões e a posição relativa de uma porção limitada da superfície terrestre, sem levar em conta a esfericidade da Terra. O objetivo é a representação dessa porção por meio de uma figura semelhante.
Para satisfazer o conforto exigido pelo homem, tem este, às vezes, necessidade de transformar o meio natural em que vive. Assim é que para sua locomoção entre os centros civilizados, devem construir estradas de ferro e rodagem, pontes, túneis e campos de pouso para aviões; a canalização de cursos d’água para obras de saneamento, aproveitamento das fontes de energia elétrica e das terras para agricultura, são mais alguns dentre muitos problemas que conduzem ao estudo, divisão e transformação de certas porções da superfície da Terra.
Quaisquer das ciências que se utilizam da topografia como Engenharia, quer Civil, Agronômica ou Florestal, Arquitetura ou Agrimensura, necessitam informações do terreno sobre o qual serão desenvolvidos os projetos e posteriormente implantados os cultivos ou as obras. 
Noção de Escala
Escala é a relação constante existente entre a distância medida no terreno e sua representação no papel. Pode ser escrita em forma de fração ordinária ou de proporção, sendo esta ultima a preferida. Seja, por exemplo, a escala de 1: 100 que também pode ser escrita: 
e que se lê: um para cem.
e que se lê: um para cem.
Exemplo: Deve-se assinalar no papel uma linha reta, cujo comprimento no terreno é de 48,00m. Qual é o comprimento no desenho, se a escala escolhida é de 1: 50?
Solução:
Distância e Rumo entre dois pontos
Dadas as coordenadas de dois pontos conhecidos 
= 500,000;
= 500,000; 
= 500,000 e 
= 830,123 e 
= 756,124 (Teorema de Pitágoras)
A distância é calculada assim:
d = 
d = 417,829m
O rumo é calculado assim: 
e
e
Sendo os sinais das diferenças 
sendo os Quadrante.
sendo os Quadrante.
RumoAB=
A distância pode ser calculada das seguintes formulas
ou ainda
Os Azimutes são ângulos que variam de zero a 360º a partir do norte ou do Sul e crescem para a direita ou para esquerda. É mais cômodo conta-los a partir do Norte no sentido horário. Assim se usa em Topografia.
Tem se assim o cálculo em função da sigla:
para “NE” => Azimute = Rumo; “SE”=> Azimute = 180º - Rumo; “SW” => Azimute = 180º + Rumo; “NW” => Azimute = 360º - Rumo;
Exemplo:
-Determine o Azimute do RumoAB = 
.
.
R: Sabendo que para sigla “NE” o Azimute = Rumo, portanto o
AzimteAB = 
-Determine o Rumo do Azimute = 196º30’40’’.
R: Para o “SW” => Azimute = 180º + Rumo “O Rumo varia de 0º a 90º”, portanto o Azimute se encontra na sigla “SW” portanto o Rumo = Azimute -180º
Rumo = 16º30’40’’ SW
Cálculo do Rumo e Azimute (Vídeo)
Códigos no VB
Sub Main()
Dim X1 As Double, Y1 As Double, X2 As Double, Y2 As Double
Dim DH As Double, Azimute As Double, Rumo As String
'Passando Informando Coordenadas
X1 = 500: Y1 = 500
X2 = 830.123: Y2 = 756.124
'Chamando a função distância
DH = Dist2pto(X1, Y1, X2, Y2)
Call MsgBox ("Distância 1-2: " & DH, vbInformation)
'Chamando a função azimute
Rumo = RumoAzimute2pto(X1, Y1, X2, Y2, Azimute)
call MsgBox ("Rumo 1-2: " & Rumo & vbNewLine & "Azimute 1-2: " & Azimute, vbInformation)
End Sub
Function Dist2pto(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double) As Double
Dim dx As Double, dy As Double
'Delta X e Y
dx = X2 - X1
dy = Y2 - Y1
'Cálculo da distância
Dist2pto = Sqr(((dx ^ 2) + (dy ^ 2)))
End Function
Function RumoAzimute2pto(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, Azimute2Pto As Double) As String
Dim DiX As Double, DiY As Double
Dim vSigla As String, R As Double
'Delta X e Y
DiX = X2 - X1: DiY = Y2 - Y1
'Calculo do Rumo
If DiY <> 0 Then
R = DiX / DiY
R = Atn(R)
R = R * 180 / 3.141592654
If R < 0 Then R = R * -1
End If
'Calculo do Azimute e Sigla
If DiX > 0 And DiY > 0 Then 'NE
Az = R: vSigla = "NE"
ElseIf DiX > 0 And DiY < 0 Then 'SE
Az = 180 - R: vSigla = "SE"
ElseIf DiX < 0 And DiY < 0 Then 'SW
Az = R + 180: vSigla = "SW"
ElseIf DiX < 0 And DiY > 0 Then 'NW
Az = 360 - R: vSigla = "NW"
ElseIf DiX = 0 And DiY > 0 Then 'N
Az = 0: vSigla = "N"
ElseIf DiX = 0 And DiY < 0 Then 'S
Az = 180: vSigla = "S"
ElseIf DiX > 0 And DiY = 0 Then 'E
Az = 90:: vSigla = "E"
ElseIf DiX < 0 And DiY = 0 Then 'W
Az = 270:: vSigla = "W"
End If
'Retorna os valores em decimal
RumoAzimute2pto = R & vSigla
Azimute2Pto = Az
End Function
Nenhum comentário:
Postar um comentário