1 2 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