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
Bootstrap Method
此次次
Sierpinski curve
juntar dos filas de data frame h
test array compiler R
Functions for partial factorials, factorials, binomial coeffs., & rows of Pascale's Triangle.
16-09-2020ExVitorb
19-08-2020-JacobiSistema
Assignment2 Q1
Paired t-test [ Zinc Concentration]