!d={0.78;0.74;0.71;0.67;0.61;0.54;0.46;0.43;0.39} ! in m dd=d*0+0.002 m0=50.09 !m={0;50;100;150;250;350;450;500;550} ! in g dm=m*0+0.01 m=(m0+m)/1000 dm=dm/1000 !T={0.4398;0.5782;0.6891;0.7833;0.9431;1.0827;1.2016;1.2582;1.3112} ! in s d={.76;.6195;.475;.3285;.2560;.1830} m={50;150;250;350;400;450} T={.626965;.979452;1.23545;1.44669;1.537;1.62716} dT={0.0004;0.0003;0.0003;0.0001;0.0002;0.0004;0.0002;0.0003;0.0002} m=m/1000 clear defaults label\x `spring elongation, m' label\y `mass, kg' set pchar -9 graph d,m,dm,dd scalar\vary k,d0 k=.7 d0=0.8 fit m=-k*(d-d0) fit\update f set pchar 0 graph\noax d,f terminal clear defaults label\y `Period T, s' label\x `Mass m, kg' set pchar -9 graph m,T,dT,dm scalar k scalar\vary A A=2*Pi fit T=A*Sqrt(m/k) mm=[0:0.6:0.001] set pchar 0 gra\noax mm,A*Sqrt(mm/k)