summaryrefslogtreecommitdiff
path: root/2219/CH10/EX10.17/Ex10_17.sce
blob: 875e33ea5ea1b1c1e7ce33bd242138b3666dc219 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Chapter 10 example 17
//------------------------------------------------------------------------------
clc;
clear;
//Given data
v       = 250;      // velocity in m/s
lamda   = 10.6*10^-6 // operating wavelength
theta   = 60;        // angle of depression

// Calculations
Vr      = v*cos(theta*%pi/180);     // radial velocity
fd      = (2*Vr)/lamda;             // doppler shift

// Output
mprintf('Doppler Shift = %3.2f Mhz',fd*10^-6);
//------------------------------------------------------------------------------