Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
EulerEx3
# Dada a equação # y'(t)=y(t)^3/3 # y(2)=7 y0=7 F<-function(s,u){u^3/3} # Estimar y(1) pelo método de Euler. a=2 b=1 n=100 h=(b-a)/n y=0*(0:n) y[1]=y0 # y(a) é o y_0 nas notas. for ( i in 1:n){ y[i+1]=y[i]+h*F(a+i*h,y[i]) # y(c+h)=y(c)+hy'(c)+Erro } t=seq(a,b,by=h) # Como conhecemos y=f(t), que é f<-function(s){k=4/3+1/49 1/(sqrt(k-2*s/3)) } curve(f,a,b,col="blue") points(t,y,col="red")
run
|
edit
|
history
|
help
0
Análise de Variâncias DIC e teste de Tukey 1
oooo
R_Prog
EulerEx2
ExDecaiEulerMin28-01-21
AjusteNaoLinear11-02-21
stats and fats survey histograms
Ggplot
sentiment analysis
TEST