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
Vector
test
Call option formula for Geometric Laplace distributed stock
31-08-2020-Exemplo AjusteNaoL
Sampling Distribution for the Wald-Wolfowitz 2-Sample Runs Test
Análise de variância ANOVA para experimento em DIC - Exemplo 01
Quartile Formula
%95 confidence interval
19-08-2020-GaussSeidelSistema-menos-calc
26-08-2020AjusteCurvaLinearizab