Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Condição de alinhamento entre três pontos
# bs # Condição de alinhamento de três pontos. align <- function(x1,y1,x2,y2,x3,y3){ p1 <- c(x1,y1,1) p2 <- c(x2,y2,1) p3 <- c(x3,y3,1) M <- rbind(p1,p2,p3) if(det(M) == 0){ cat("Pontos alinhados") }else{ cat("Pontos não alinhados") } plot(1, type='n', xlim=c(min(x1,x2,x3) - 2, max(x1,x2,x3) + 2), ylim=c(min(y1,y2,y3) - 2, max(y1,y2,y3) + 2)) points(x1,y1,col='red', pch = 19) points(x2,y2,col='red', pch = 19) points(x3,y3,col='red', pch = 19) } align(1,1,2,2,3,3) cat('\n ') align(1,2,2,6,3,-1) cat('\n ') align(19,2,7,-3,4,6) cat('\n ')
run
|
edit
|
history
|
help
0
Comparison between Normal and Laplace models for option pricing
Ejercicios R
Even.r
Monroe Week 9 Homework
19-08-2020-SeidelSistema
14-09-2020QRajustelinear
Compute & Plot (approx.) Solar Declination Function f(d)
Multiple Regression and Binomial Regression Sample
Sine approximation
Polynomial Regression with Interaction Terms