| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 
 | f = open("donnees.R","w")
f.write("## Dynamique de pop des dauphins communs \n")
f.write("tab1 = array(data = 0, dim = c(" + str(max_generation) +",30))\n")
for i in range(max_generation):
        f.write("tab1["+ str(i+1)+",] = c(")
        for j in range(30):
                if (j < 29):
                        f.write(str(tab_generation[i][j])+",")
                else:
                        f.write(str(tab_generation[i][j])+")\n")
f.write("pdf(file=\"dynamique_plot.pdf\")\n")
f.write("persp(x = c(1:"+str(max_generation)+"), y = c(1:30),tab1, theta=210, ticktype =\"detailed\", col = \"lightblue\", shade = 0.7, main =\"Dynamique de population\", xlab = \"Générations\", ylab = \"Âge\" )\n")
f.write("dev.off()\n")
f.close()
os.system("R CMD BATCH donnees.R") | 
Partager