diff --git a/aux/pitagoras.R b/aux/pitagoras.R
new file mode 100644
index 0000000000000000000000000000000000000000..053104ad9198b9f6b705e962ca8cfd576ba0caec
--- /dev/null
+++ b/aux/pitagoras.R
@@ -0,0 +1,26 @@
+##----------------------------------------------------------------------
+#' @title Hipotenusa de Triângulo Retângulo
+#' @name pitagoras
+#'
+#' @description Dados os catetos de um triângulo retângulo, essa função
+#'     obtém a hipótenusa.
+#'
+#' @param a,b Vetores numéricos com valores dos catetos do triângulo.
+#'
+#' @details Essa função é baseada no teorema de Pitágoras
+#'     \url{https://pt.wikipedia.org/wiki/Teorema_de_Pitágoras}.
+#'
+#' @return Um vetor com a hipotenusa calculada.
+#'
+#' @author Walmes Zeviani
+#'
+#' @examples
+#'
+#' ## Triangulo pitagórico.
+#' pitagoras(a = 3, b = 4)
+#'
+#' @export
+pitagoras <- function(a, b){
+    h <- sqrt(a^2 + b^2)
+    return(h)
+}