diff --git a/AnimVerre.sce b/AnimVerre.sce
new file mode 100644
index 0000000000000000000000000000000000000000..f7d300612e44be93f658bb028a88b198e66f9661
--- /dev/null
+++ b/AnimVerre.sce
@@ -0,0 +1,10 @@
+tab= read("polystyrene",100,101)
+for i=1:100
+    clf
+    a=string(double(i*16/100))
+    plot2d(tab(i,:),rect=[0,280,101,450])
+    xtitle("Température à "+a+" sec, barre de polystyrenee","x","T(K)")
+    sleep(100)
+end
+plot2d(tab(100,:),rect=[0,280,101,450])
+xtitle("Température à "+string(16)+" sec, barre de polystyrene","x","T(K)")