summaryrefslogtreecommitdiff
path: root/2621/CH7/EX7.16/Ex7_16.sce
blob: a6fe85fe3b13f8cf855f6160f9612473ec22889d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
// Example 7.16
clc;
clear;
close;
// Given data
format('v',5);
R= 15*10^3;// in Ω
C= 0.01*10^-6;// in F
f= 2*10^3;// in Hz
PhaseShift= -2*atand(2*%pi*f*R*C);// in °
disp("The phase shift is : "+string(PhaseShift)+"° i.e. "+string(abs(PhaseShift))+"° (lagging)")