path: root/1301/CH16/EX16.18/ex16_18.sce

clc;
l=0.1;      //l=(v/c)
f=sqrt((1-l)/(1+l));     //ratio of frquencies f=(f/fs)
disp(f*100,"Percent shift = ");   //diplaying result