clc;
close();
clear();
//page no 530
//prob no. 16.9
c=3*10^8;    //speed of light in m/s
Td=400*10^-6     //s
d=c*Td/2       //in m
mprintf(' d=%.0f Km ',d*10^-3);