Area del Segmento Circular
La trigonometría estudia las relaciones que existen entre las longitudes de los lados y las amplitudes de los ángulos de los triángulos. Su fundador fue Hiparco de Nicea, nacido hacia el año 190 a.C. La geometría estudia el cálculo del área de figuras planas. En el Siglo V a.C., llamado "Siglo de Pericles", se descubrieron muchas propiedades geométricas al intentar resolver los "Problemas clásicos de la Geometría". De los tres problemas clásicos, uno de ellos fue la cuadratura del círculo o construcción de un cuadrado de área igual a la de un círculo dado. La cuadratura del círculo surgió al intentar calcular el área del círculo de radio conocido. Geométricamente el problema es equivalente a calcular el lado de un cuadrado de área igual a la de un círculo de radio dado.
En el siguiente artículo por Héctor Miguel Orozco Díaz:
El cálculo del área del segmento circular - Cuerda - Arco.
El cálculo del contenido de un deposito cilíndrico tumbado.
Representación gráfica.
Ejemplo del archivo y su descarga
Desarrollo
Hay que habilitar las macros para que el archivo de ejemplo funcione correctamente.
Conociendo la siguiente información:
- Largo del cilindo o tubo
- Diámetro del círculo
- La marca de lleno o marca que deja el contenido del líquido
El archivo de ejemplo calcula:
- Ra = radio (Diametro/2)
- h = alto segmento (El Diametro menos la marca de lleno)
- θ = angulo central (2*ACOS((Ra-h)/Ra))
- d = alto triangulo ((Ra*COS(θ/2)))
- > c = largo cuerda (2*Ra*SENO(θ/2))
- s = largo arco (PI()*Ra/2/90*GRADOS(2*ACOS(d/Ra)))
- A = area segmento (Ra^2/2*(θ-SENO(θ)))
- vV = volumen vacio (Area segmento multiplicado por el largo del cilindro)
- vL = volumen lleno (Restando el volumen total del volumen vacío)
Elementos para el Gráfico
Nombres que no estan referidos a rangos:
Código utilizado para ver las fórmulas de series
Function VerFormulaSerie(Serie As Byte) As String
Dim NombreLibro As String, NombreHoja As String
NombreLibro = ThisWorkbook.Name
NombreHoja = Application.Caller.Parent.Name
VerFormulaSerie = Application.Substitute( _
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Serie).FormulaLocal, _
"[" & NombreLibro & "]" & NombreHoja, NombreHoja)
End Function
Los Nombres definidos a nivel de Libro:
- Por último, No hagáis mal uso de los conocimientos que se os ofrecen
y sobre todo hay que Leer las notas y referencias adicionales del archivo de ejemplo.
