2381/CH12/EX12.12/ex_12.sce


1
2
3
4
5
6
7
8
9
10
11

//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)=")