Publications by Jessica Kubrusly
Exercícios do Capítulo 6
Exercícios do Capítulo 6 fat_rec = function(n){ if((n<0)||(n%%1 != 0)){ stop("n tem que ser um natural") } if(n == 0) return(1) return(n*fat_rec(n-1)) } fat_rec(5) ## [1] 120 maior_rec = function(v){ n = length(v) if(n == 1) return(v[1]) w = v[2:n] max_w = maior_rec(w) if(v[1] > max_w){ return(v[1]) ...
146 sym R (3992 sym/44 pcs) 1 img
Exercícios do Capítulo 3
Exercícios do Capítulo 3 menor_2 = function(a,b){ if(a < b) return(a) else return(b) } menor_2(5,10) ## [1] 5 menor_3 = function(a,b,c){ if(a < b && a < c) return(a) else if(b < a && b < c) return(b) else return(c) } menor_3(100,20,3) ## [1] 3 c. menor_c = function(vet){ aux = vet[1] tamanho_vet = length(vet) for...
281 sym R (9470 sym/97 pcs)
Exercícios do Capítulo 1
Exercícios do Capítulo 1 x = 0 y = -1 z = 32 a_1 = x+y+z; a_1 ## [1] 31 a_2 = y*z; a_2 ## [1] -32 a_3 = z/y; a_3 ## [1] -32 b_1 = z^2 ; b_1 ## [1] 1024 # Ou também b_1 = z**2 ; b_1 ## [1] 1024 b_2 = z^3 ; b_2 ## [1] 32768 b_3 = z^x ; b_3 ## [1] 1 c_1 = sqrt(a_1) ; c_1 ## [1] 5.567764 c_2 = sqrt(x) ; c_2 ## [1] 0 c_3 = sqrt(b_2/a_1); c_...
370 sym R (6161 sym/170 pcs)
Exercícios do Capítulo 8
Exercícios do Capítulo 8 bolha = function(v){ n = length(v) for(j in 1:(n-1)){ for(i in 1:(n-j)){ if(v[i] > v[i+1]){ temp = v[i] v[i] = v[i+1] v[i+1] = temp } } } return(v) } vet = c(5,4,3,2,1) bolha(vet) ## [1] 1 2 3 4 5 bolha_rec = function(v){ n = length(v) if(n == 1)...
126 sym R (9481 sym/48 pcs) 7 img
Exercícios do Capítulo 12
Exercícios do Capítulo 12 f = function(x) {abs(x-3) - 2} plot(f,xlim = c(0,5), ylim = c(-3,5)); abline(h=0, v=c(0,5), lty = 2, col = "blue") b. #3 triangulos retângulos # 1*1/2 - 2*2/2 - 2*2/2 soma_rata...
133 sym R (3875 sym/40 pcs) 1 img