Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
03-08-2020-Integral-Numerica
# Integral Numerica f<-function(x){sin(x)+cos(x)} # g'(x)=f(x) descobrir quanto vale g(1), sabendo que g(0)=0 g<-function(x){-cos(x)+sin(x)+0} f(0) h=0.00001; a=0; b=1; n=(b-a)/h;n g1=0+h*f(0) # aproximadamente g(0+h) = g(0)+h*f(0)+Erro g1 g2=g1+h*f(0+h) # aproximadamente g(0+2h) = g(h)+h*f(0+h)+Erro g2 # Generico Ifn<-function(a,b,n){ # aproximação da integral de f de a até b h=(b-a)/n p=0 for ( i in 0:(n-1)){ p=p+h*f(0+i*h) } p } Ifn(a,b,n) # aproximadamente g(1) g(1)-g(0)
run
|
edit
|
history
|
help
0
Xprod
ExDecaiEulerMin28-01-21
26-08-2020AjusteCurva
Scatterplot using ggplot Sample
28-09-2020Int-poli-inter
5 # SUMMARY PART B
Controle-22-03-2021
Ex-02-02-21n
In Class Project2
此次次