//Example 12//doppler shift and velocity
clc;
clear;
close;
h1=6010;//Å
h2=6000;//Å
ds=h1-h2;//Å
disp(ds,"doppler shift is ,(Å)=")
c=3*10^8;//m/s
v=((ds/h2)*c);//m/s
disp(v,"speed is ,(m/s)=")