summaryrefslogtreecommitdiff
path: root/1754/CH8/EX8.m.5/ExaMisc8_5.sce
blob: 37f513a03cbc5ac71734d293ecb3307fa9e2c677 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Exa Misc 8.5
clc;
clear;
close;
//given data
format('v',6);
L=0.5;//in H
Cs=0.06;//in pF
Cp=1;//in pF
R=5;//in Kohm
fs=1/(2*%pi*sqrt(L*Cs*10^-12));//in Hz
Q=2*%pi*fs*L/(R*10^3);//Q-factor
disp(fs/10^3,"Seies resonance frequency(in KHz)")
disp(round(Q),"Q-factor f the crystal at fs is ");
fp=(1/(2*%pi))*sqrt((Cs*10^-12+Cp*10^-12)/(L*Cs*10^-12*Cp*10^-12));//in Hz
Q=2*%pi*fp*L/(R*10^3);//Q-factor
disp(fp/10^3,"Seies resonance frequency(in KHz)")
disp(round(Q),"Q-factor f the crystal at fs is ");