2d és 3d díszes fenyő ünnepekre

t = seq(0, 100, by = 0.7)^0.8
x = t * c(sin(t))
y = t * c(cos(t))
z = -2 * c(t)
par(bg=’black’,col.axis=”black”)
plot(x,z,col=’darkgreen’,pch=16,
ylim=c(-80,30),xlim=c(-60,60))
points(y,z,col=’orangered’,pch=16)
text(0,20,”Sărbători fericite!\n Boldog Ünnepeket!”,col=”gold”,cex=2)
install.packages(‘scatterplot3d’)
library(scatterplot3d)
par(bg=’black’)
s3d=scatterplot3d(x,y,z,scale.y=0.35,angle=25,
color=”darkgreen”,mar=c(5,5,7,5)+0.1,
axis=TRUE,pch=16,cex.symbols=1.5,box=FALSE,
xlim=c(-60,60), ylim=c(-60,60), zlim=c(-100,30),
col.grid=”lightgreen”,col.axis = “lightgreen”,
col.main=”gold”,cex.main=2,font.main=3,
main=”Sărbători fericite! \n Boldog Ünnepeket!”)
x = t * c(sin(t + pi))
y = t * c(cos(t + pi))
z = -2 * c(t)
s3d$points3d(x,y,z,col=”orangered”,pch=16,cex=1.5)

Vélemény, hozzászólás?

Adatok megadása vagy bejelentkezés valamelyik ikonnal:

WordPress.com Logo

Hozzászólhat a WordPress.com felhasználói fiók használatával. Kilépés /  Módosítás )

Twitter kép

Hozzászólhat a Twitter felhasználói fiók használatával. Kilépés /  Módosítás )

Facebook kép

Hozzászólhat a Facebook felhasználói fiók használatával. Kilépés /  Módosítás )

Kapcsolódás: %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.