Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
23-09-2020InterpolaçãoNewtonform
x=c(34,21,13,8,5,25,30);x y=c(1,2,6, 24,120,3,3 );y plot(x,y,col="red") n=length(x) # Diferenças divididas A=matrix(0,n,n); A[,1]=y for (j in 2:n){ for ( i in 1:(n-j+1)){ A[i,j]=(A[i,j-1]-A[i+1,j-1])/(x[i]-x[i+j-1]) } } A N<-function(i,s){ p=1 for (j in 1:i){p=p*(s-x[j])} p } poli<-function(s){ q=A[1,1] for (i in 2:n){q=q+A[1,i]*N(i-1,s)} q} curve(poli,min(x),max(x)) points(x,y,col="red")
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Análise de Variâncias DIC e teste de Tukey 1
Julia set variant
Garima
Simple Linear Regression
Outlier
Chi Square Tests - Goodness of Fit Test [Coffee drinkers]
Example: From 'The R Book' 2nd ed. ~ 2.3.2 Generating Factor Levels...
Peso hora
Grafico
11-09-2020AproxArco
Please log in to post a comment.