clc;
//Example 12.8
//Page No 527



//solution

c=3*10^8;
d=3000;
k=0.9;

disp("Rearranging Equation 12-48 ");

t=((2*d)/(k*c));

disp('s',t,"t = ")