stari = function(N_0,r){ p_r = 22 lambda = log(2)/(p_r) #test pro stari 300 let t_N = 300 n = 10000 #pocet deleni <0,tN> #dodelat # # # # # # #dodelat #test pro stari 20 let t_N = 20 n = 10000 #dodelat # # # # # # #dodelat #vykresleni N=rev(N) plot(tt,N, type="l", log="y", ylim=c(1e7, max(1e12,max(N))), xlab="cas", ylab="koncentrace atomu", lwd=2, col="#0000FF") lines(tt,rep(5e11,n+1), lty=2, lwd=2, col="#FF0000") if(t!=0){ return(t) } else{ cat("Nejsme schopni rozhodnout, zda je obraz stary 300 nebo 20 let.") } } t = stari_reseni(1.42e8,420480)