summaryrefslogtreecommitdiff
path: root/3020/CH5/EX5.6/ex5_6.sce
blob: 0f79eac94bf0003a5849a3dc7c4db0c1f5e50774 (plain)
1
2
3
4
5
6
7
8
9
clc;
clear all;
f = 2.87e3; //Fundalmental frquency in Hz/m
r = 2660; // Density in Kg per cubic meters
Y = 4*f^2*r;//The Youngs modulus of he quartz cystal
disp('N/m^2',Y,'The Youngs modulus of he quartz cystal is ')
f1 = 1200e3; // Frequency of vibration in Hertz
t = (1/(2*f1))*sqrt(Y/r);//The thickness of the crystal
disp('m',t,'The thickness of the crystal is ')