Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Área sob curvas de funções: Integração numérica utilizando a regra do trapézio.
at = function(f,a,b,n){ dx = (b-a)/n # Divisão dos 'n' subintervalos int = seq(a,b,dx) # Cria uma sequência dos intervalos subdivididos areas = c() for( i in 1:n){ B <- f(int[i]) ; bm <- f(int[i+1]) areas[i] = (B+bm)*dx/2 } # Parte gráfica plot(f,a,b, col = "purple",lwd = 1.5, tcl = 0.2,bty = 'l',panel.first = grid(16,16),ylab = "f(x)") abline(h=0,v=0) polygon( x = c(a,seq(a,b,l=50),b), y = c(0,f(seq(a,b,l=50)),0), col = "darkorange",border = F,density=30) segments(a,0,a,f(a),col = "purple", lty = 2) segments(b,0,b,f(b),col = "purple", lty = 2) return(sum(areas)) }
run
|
edit
|
history
|
help
0
Example R Code
Gab1A
AjusteNaoLinear-alpha-c
5 # SUMMARY PART B
Ch. 4 Boxplot Skewed Left
10=08-2020Newton
Gab1A(resumido)
Numbers game from British game show Countdown
Pendulum Experiment
Tidyverse: Estructuras