Upload New File

AnimVerre.sce

+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)")