Holas, alguien sabe como es que puedo sacar la figura de un circulo??
Gracias
La siguiente función dibuja la circunferencia de centro y radio dados.
circunferencia<-function(centro=c(0,0),radio=1){
if(radio<=0) stop("El radio de una circunferencia es estrictamente positivo")
if(length(centro)!=2) stop("El centro de una circunferencia en el plano debe ser un vector de dimensión 2")
xmin<-centro[1]-radio
xmax<-centro[1]+radio
ymin<-centro[2]-radio
ymax<-centro[2]+radio
x1<-seq(xmin,xmax,0.01)
x2<-seq(xmax,xmin,-0.01)
xx<-c(x1,x2)
y1<-centro[2]+sqrt(radio^2-(x1-centro[1])^2)
y2<-centro[2]-sqrt(radio^2-(x2-centro[1])^2)
yy<-c(y1,y2)
plot(xx,yy,type="l")
}
Ejemplos:
1) circunferencia(centro=c(1,-2),radio=3)
2) circunferencia() #Dibuja por defecto la circunferencia unidad centrada en el (0,0).
Un saludo, Antonio.
circunferencia<-function(centro=c(0,0),radio=1){
if(radio<=0) stop("El radio de una circunferencia es estrictamente positivo")
if(length(centro)!=2) stop("El centro de una circunferencia en el plano debe ser un vector de dimensión 2")
xmin<-centro[1]-radio
xmax<-centro[1]+radio
ymin<-centro[2]-radio
ymax<-centro[2]+radio
x1<-seq(xmin,xmax,0.01)
x2<-seq(xmax,xmin,-0.01)
xx<-c(x1,x2)
y1<-centro[2]+sqrt(radio^2-(x1-centro[1])^2)
y2<-centro[2]-sqrt(radio^2-(x2-centro[1])^2)
yy<-c(y1,y2)
plot(xx,yy,type="l")
}
Ejemplos:
1) circunferencia(centro=c(1,-2),radio=3)
2) circunferencia() #Dibuja por defecto la circunferencia unidad centrada en el (0,0).
Un saludo, Antonio.
Muchas GraciAS ;-)
yo probaría con la herramienta illustrator . Illustrator permite vectorizar las imágenes de forma sencilla y rápida .
Yo uso tanto para Illustrator como para Photoshop la Tableta gráfica con pantalla XP-Pen Artist 12 Pro .