summaryrefslogtreecommitdiff
path: root/3638/CH18/EX18.3/Ex18_3.sce
blob: be96f1e77cb8c1db328fdc52a5302e0e2e8c6c1f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
//Example 18.3
//OS=Windows XP sp3
//Scilab version 5.5.2
clc;
clear;
//given
L=100;//Length of sensing element in m
DeltaP=2e-5;//Threshold of hearing in Pa
S=3.4e-4;//Sensitivity of element in rad/Pa/m

DeltaPhi=S*DeltaP*L;//Corresponding change in phase in rad
mprintf("\n DeltaPhi=%.1e rad",DeltaPhi);