summaryrefslogtreecommitdiff
path: root/273/CH12
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /273/CH12
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '273/CH12')
-rwxr-xr-x273/CH12/EX12.1/ex12_1.sce13
-rwxr-xr-x273/CH12/EX12.2/ex12_2.sce14
-rwxr-xr-x273/CH12/EX12.3/ex12_3.sce15
3 files changed, 42 insertions, 0 deletions
diff --git a/273/CH12/EX12.1/ex12_1.sce b/273/CH12/EX12.1/ex12_1.sce
new file mode 100755
index 000000000..23034172e
--- /dev/null
+++ b/273/CH12/EX12.1/ex12_1.sce
@@ -0,0 +1,13 @@
+clc;clear;
+//Example 12.1
+//calculation of natural frequency,magnetostriction
+
+//given values
+
+l=40*10^-3;//length of pure iron rod
+d=7.25*10^3;//density of iron in kg/m^3
+Y=115*10^9;//Young's modulus in N/m^2
+
+//calculation
+f=(1*sqrt(Y/d))/(2*l);
+disp(f*10^-3,'the natural frequency(in kHz) is');
diff --git a/273/CH12/EX12.2/ex12_2.sce b/273/CH12/EX12.2/ex12_2.sce
new file mode 100755
index 000000000..6329869b8
--- /dev/null
+++ b/273/CH12/EX12.2/ex12_2.sce
@@ -0,0 +1,14 @@
+clc;clear;
+//Example 12.2
+//calculation of natural frequency
+
+//given values
+
+t=5.5*10^-3;//thickness in m
+d=2.65*10^3;//density in kg/m^3
+Y=8*10^10;//Young's modulus in N/m^2
+
+
+//calculation
+f=(sqrt(Y/d))/(2*t);//frequency in hertz
+disp(f*10^-3,'the natural frequency(in kHz) is');
diff --git a/273/CH12/EX12.3/ex12_3.sce b/273/CH12/EX12.3/ex12_3.sce
new file mode 100755
index 000000000..b4f96c7ef
--- /dev/null
+++ b/273/CH12/EX12.3/ex12_3.sce
@@ -0,0 +1,15 @@
+clc;clear;
+//Example 12.3
+//calculation of depth and wavelength
+
+//given values
+
+f=.07*10^6;//frequency in Hz
+t=.65;//time taken for pulse to return
+v=1700;//velocity of sound in sea water in m/s
+
+//calculation
+d=v*t/2;//
+disp(d,'the depth of sea(in m) is');
+l=v/f;//wavelenght of pulse in m
+disp(l*10^2,'wavelength of pulse (in cm)is'); \ No newline at end of file