% function accepts 3 doubles
% a700(to, t_end, x0)
%
% a700 simulates the cooling of a fluid
%exp.: [a1,a2]=a700(0,10,100)
% a1 = 0 1 2 3 4 5 6 7 8 9 10
% a2 = 100.000 60.000 40.000 30.000 25.000 22.500 21.250 20.625 20.312 20.156 20.078