From 6c29a955bd1f790d9b7968487ae365c0cf8bf156 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Mon, 21 Dec 2015 22:03:47 -0200
Subject: [PATCH] =?UTF-8?q?Adiciona=20arquivo=20com=20a=20fun=C3=A7=C3=A3o?=
=?UTF-8?q?=20pitagoras().?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
aux/pitagoras.R | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
create mode 100644 aux/pitagoras.R
diff --git a/aux/pitagoras.R b/aux/pitagoras.R
new file mode 100644
index 0000000..053104a
--- /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)
+}
--
GitLab