source("http://macosa.dima.unige.it/r.R") # vedi qui (cerca "curva" e poi vai su "di Bezier") PLANE(-3,3,-3,3) x1 = c(-3,-1,1,3,3) y1 = c(0,-2,2,0,-2) bezier(x1,y1,3) bezier(x1,y1,0) PLANE(-4,4,-4,4) a = c(-3,2,2,-1) b = c(2,1,-3,4) bezier(a,b,2) bezier(a,b,0) PLANE(-3,3,-3,3) x2 = c(-1, -2,- 3,- 3,-2, -1, 0, 1, 2, 3, 3, 2, 1) y2 = c(-2,-1.5,-1, 1, 2, 2.5,2.6,2.5,2, 1,-1,-1.5,-2) bezier(x2,y2,0) x3 = c(0,1,2,3,2, 0, -2,-3,-2, 0, 2,3,2, 0, -2,-3,-2,-1,0) y3 = c(-4,-4,-2,-1,-1/2,0,1/2,1,2,4,2,1,1/2,0,-1/2,-1,-2,-4,-4) PLANE(-4,4,-4,4) bezier(x3,y3,0) xx = c(-1,-1,0,0,1,1) yy = c(0,1,1,-1,-1,0) PLANE(-1,1,-1,1) bezier(xx,yy,0); bezier(xx,-yy,0) xx = c( 0, -1, -3, -4, -4, -3, -1, 0, 1, 3, 4, 4, 3, 1, 0) yy = c(5.16,5.16,2.4,1.2,.012,.06,.24,21.6,.24,.06,.012,1.2,2.4,5.16,5.16) xxx = c( -2, -2, 0, 2, 2) yyy = c(3.1,-3.1,3.1,-3.1,3.1) xxxx = c(-0.5,-0.5,0,0.5,0.5) yyyy = c( 0, 3.5,0,3.5, 0) PLANE(-3,3, 0,6) bezier(xxx,yyy,1); bezier(xxxx,yyyy,"brown"); bezier(xx,yy,"red")