Publications by Jessica Kubrusly
Atividade Prática 11 - 2020.1
Exercícios Para os exercícios a seguir considere \(f'(x_0) =\) coeficiente angular da reta tangente à \(f\) no ponto \(x_0\). Vamos agora implementar o método visto em sala de aula. Para isso considere a função \(f(x) = \frac{1}{x^2+1}\). Qual o domínio da função \(f\)? Implemente uma função que recebe como entrada \(x_0 \in Dom(f)\...
4460 sym R (184 sym/1 pcs)
Atividade Prática 12 - 2020.1
Exercícios Primeiro vamos aplicar o método em uma função que sabemos fazer as contas na mão, usando apenas áreas de figuras geométricas. Seja \(f(x) = |x-3| - 2\). Na mão, sem usar o computador, faça um esboço do gráfico de \(f\) e hachure a área entre a curva de \(f\) e o eixo horizontal, limitada no intervalo [0,5]. Ainda na mão,...
5052 sym
Programação Estatística - Integração Numérica
Parte III: Uma Introdução ao Cálculo Numérico Integração Numérica Nesse capítulo veremos um método iterativo que, a partir de uma função conhecida \(f\) e de valores \(a,b \in \mathcal{D}(f)\), encontra um valor aproximado para a área entre a curva de \(f\) e o eixo horizontal limitada no intervalo \([a,b]\), representada por cinza n...
7570 sym R (844 sym/2 pcs) 3 img
Exercícios do Capítulo 11
Exercícios do Capítulo 11 f = function(x){ if(!is.numeric(x)) stop("X não é um valor real") return(1/(x^2 + 1)) } # x^2 + 1 =/= 0 # Isso é verdade para qualquer x Real DerivadaNumerica = function(x0,f,delta = 0.001){ h = 1 d1 = (f(x0+h) - f(x0-h))/(2*h) while (TRUE) { h = h/2 d2 = (f(x0+h) - f(x0-h))/(2*h) ...
172 sym R (4932 sym/50 pcs) 8 img
Exercícios do Capítulo 10
Exercícios do Capítulo 10 RaizBissecao = function(a,b,f,e){ if(f(a)*f(b) >= 0) stop("Não existe raiz no intervalo a,b") while(TRUE){ m = (a+b)/2 if(f(m) == 0 | abs(b-m) < e) return(m) if(f(a)*f(m) < 0){ b = m }else{ a = m } } } RaizBissecao(0,3,f=function(x){x-1},0.000001) ## [1] 0.9999998...
203 sym R (7006 sym/82 pcs) 12 img
Exercícios do Capítulo 5
Exercícios do Capítulo 5 multiplica_vet = function(v,a){ if(!is.numeric(v)) stop("Vetor v precisa ser numérico!") if(!is.numeric(a)) stop("Escalar a precisa ser numérica!") if(length(a)!=1) stop("Escalar a deve ser um valor único!") n = length(v) w = c() for(i in 1:n){ w[i] = v[i]*a } return(w) } multiplica_v...
197 sym R (8561 sym/71 pcs)
Exercícios do Capítulo 9
Exercícios do Capítulo 9 #e^1 n = 4 1 + 1 + 1/factorial(2) + 1/factorial(3) + 1/factorial(4) ## [1] 2.708333 #e^3 n = 4 1 + 3 + 3^2/factorial(2) + 3^3/factorial(3) + 3^4/factorial(4) ## [1] 16.375 pol_exp = function(x,n){ if((n<0)||(n%%1 != 0)) stop("n tem que ser um natural") if(!is.numeric(x)) stop("x tem que ser real") soma = 1 ...
96 sym R (4998 sym/31 pcs) 2 img
Exercícios do Capítulo 7
Exercícios do Capítulo 7 valor = 500 juros = 0.075 for(i in 1:3){ valor = valor*(1+juros) print(paste0("Em ",i," ano(s) teremos ",valor)) } ## [1] "Em 1 ano(s) teremos 537.5" ## [1] "Em 2 ano(s) teremos 577.8125" ## [1] "Em 3 ano(s) teremos 621.1484375" # f(n) = f(n-1)*(1+juros) # 1. Caso n não seja natural, retorne erro. # 2. S...
174 sym R (4641 sym/49 pcs)
Exercícios do Capítulo 4
Exercícios do Capítulo 4 maximo = function(v){ if(!is.numeric(v)) stop("Vetor v precisa ser numérico!") max = v[1] n = length(v) for(i in 2:n){ if(v[i] > max) { max = v[i] } } return(max) } maximo(c(1,2,4,3,12,1,2,12,4,56,1,2,3)) ## [1] 56 # 1. Defina n como o tamanho do vetor v; # 2. Faça pos_max = 1;...
216 sym R (6148 sym/66 pcs)
Exercícios do Capítulo 2
Exercícios do Capítulo 2 a = 12 ; b = 11 ;c = 10 if(a + b > c && a + c > b && c + b > a){ if(a == b && b == c) { print("O triângulo é equilátero") } else if(a == b && b != c || a == c && c != b|| b == c && b != a){ print("O triângulo é isósceles") } else{ print("O triângulo é escaleno") } } else{ p...
230 sym R (20628 sym/80 pcs)