Speed of a Relativistic Particle

%% Speed of a Relativistic Particle
% Determines the average speed of the particles in terms of the speed of
% light

% Constants
c = 3.00*10^8

% Inputs and Variables
l = input('Particle Tracks\n');
Tau = input('Lifetime of the particle\n');

% Outputs and Equations
v = (1/sqrt(1+l^2/(c^2*Tau^2)))*l/Tau;
B = v/c;
pfrintf('The average speed is %.4f\n',B)