Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Graficos
# Gráfico em 3 dimensões # Curva t=seq(0,2.5,by=0.05) u<-function(s){s*cos(s)} v<-function(s){(-s^2)*sin(s)/4} curve(u,-1,1) curve(v,-1,1) plot(u(t),v(t),'l',col="red") # Superfície c=1 x <- seq(-1.2,1.2, by=0.1) y <- seq(-1,1,by=0.1) mf<-function(s,r){z=s*exp(-s^2-r^2)# f(x,y); auxiliar para gráfico z } require(grDevices) # for trans3d z <- outer(x, y, mf) z[is.na(z)] <- 4 op <- par(bg = "white") persp(x, y, z, theta = 20, phi = 30, expand = 0.5)->res lines(trans3d(u(t),v(t),mf(u(t),v(t)), res), col = "red", lwd = 2) # Inclui curvas plot(t,mf(u(t),v(t)),'l')
run
|
edit
|
history
|
help
0
peso 16ago
Grad-sistema
ExDecaiEulerMin28-01-21
absolute.R
Ch. 5: Cookie Chip Sampling - Idealized
Sample R program of all basic functions
jcfatorial
Zac2
Data frame
Children in Canada