rrrrrrrrrrrrrrrr

[ Pobierz całość w formacie PDF ]
##nwd(a,b),#najwiekszy wspolny dzielniknwd=function(a,b){xa=1xb=0ya=0yb=1while(a*b!=0){if(a>=b){a= a%%bxa=xa-xb*floor(a/b)ya=ya-yb*floor(a/b)}else{b=b%%axb=xb-xa*floor(b/a)yb=yb-ya*floor(b/a)}if(a>0){x=xay=ya}if(b>0){x=xby=yb}}print(paste("NWD = ",a*x+b*y))}nwd(36,15)# kolejne zajecia 17.11.2010# dalszy ciag wykresow# zbadaj opcje ltyhist(rnorm(500),prob=TRUE);curve(dnorm(x),add=T)# czegos brakuje!!!!!!!!!!# narysowac sin na przedziale i innym cos na przedzialecurve(sin(x),xlim=c(-2*pi,2*pi));curve(cos(x),col="red",add=T,xlim=c(-pi,pi))# funkcja polygonexample(polygon)x1=c(-2,1,3,8)y1=c(4,-2,5,1)plot(0,xlim=c(-3,10),ylim=c(-3,10))polygon(x1,y1)polygon(x1,y1,col="green")da#przykladxv=seq(-4,1.5,length=50)xvdv=dnorm(xv)curve(dnorm(x),xlim=c(-4,4))rev(xv)c(xv,rev(xv))polygon(c(xv,rev(xv)),c(rep(0,50),rev(dv)),col="red")#mozna zaznaczyc pstwo i zaznaczyc jakis obszar# rysunek 3dx=seq(-10,10,length=30)y=xf=function(x,y) {r=sqrt(x^2+y^2);10*sin(r)/r}z=outer(x,y,f)z[is.na(z)]par(mar=c(0,0.5,0,0),lwd=0.1)persp(x,y,z,theta=30,phi=30,expand=0.5,col="blue")par(mar=c(5.1,4.1,4.1,2.1), lwd=1)daneSoc# wykres paskowystripchart(cisnienie.skurczowe,method="stack")# funkcja z pakietu gplotshist2d(cisnienie.skurczowe,cisnienie.rozkurczowe,nbins=c(10,10))#nbins - liczba przedzialow# z pakietu graphicszm1=rbinom(200,5,0.5)zm2=rbinom(200,5,0.5)sp(zm1,zm2,reg.line=F,smooth=F,jitter=list(x=0.7,y=0.7))# jitter - dodawanie szumusunflower(zm1,zm2)sunflowerplot(zm1,zm2)#wykres rysuje ilosc punktow o tej samej wsp, im wiecej tym ladniejsze kwiatkibox(wiek)x=summary(wyksztalcenie)pie(x)procenty=format(100*x/sum(x))pie(x,lty=0,labes=paste(names(x),procenty,"$"),col=heat.colors(4),init.angle=180)barplot(table(plec,wyksztalcenie),horizontal=T)x=barplot(table(plec,wyksztalcenie),beside=T,col=c("red","yellow")legend("topright",c("kobieta","mezczyzna"),lwd=10,col=c("red","yellow"))pie(x) [ Pobierz całość w formacie PDF ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

lemansa.htw.pl