summaryrefslogtreecommitdiff
path: root/698/CH7/EX7.9
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /698/CH7/EX7.9
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '698/CH7/EX7.9')
-rw-r--r--698/CH7/EX7.9/9_base_excitation.txt14
-rw-r--r--698/CH7/EX7.9/P9_base_excitation.sce38
2 files changed, 52 insertions, 0 deletions
diff --git a/698/CH7/EX7.9/9_base_excitation.txt b/698/CH7/EX7.9/9_base_excitation.txt
new file mode 100644
index 000000000..83dabe396
--- /dev/null
+++ b/698/CH7/EX7.9/9_base_excitation.txt
@@ -0,0 +1,14 @@
+This is a forced, steady state vibration situation.
+
+There are 2 supporting springs, hence net stiffness Ke=2k
+Damping coefficient Ce = 0.05 Cc = 0.05*2*sqrt(Ke*m)
+
+The expression for desired amplitude Y is
+
+ Y=Fo/sqrt((ke-m*w^2)^2+(Ce*w)^2)
+Y will be maximum at resonance, i.e., w=wn
+Thus the design condition is k=(1/2)m*w^2
+ k=21.73 kN/m
+
+At resonance, Y=Fo/c*w
+The peak solenoid force required is 2.17 N \ No newline at end of file
diff --git a/698/CH7/EX7.9/P9_base_excitation.sce b/698/CH7/EX7.9/P9_base_excitation.sce
new file mode 100644
index 000000000..31ca46f87
--- /dev/null
+++ b/698/CH7/EX7.9/P9_base_excitation.sce
@@ -0,0 +1,38 @@
+clc
+//Example 7.9
+//Base_excitation
+
+//------------------------------------------------------------------------------
+
+//Given data
+
+//Desired amplitude
+Y=0.5*(10^-3) //m
+//Desired frequency
+f=6 //Hz
+w=f*2*%pi //rad/s
+//mass of the table
+m=300/9.81 //kg
+
+
+res9=mopen(TMPDIR+'9_base_excitation.txt','wt')
+mfprintf(res9,'This is a forced, steady state vibration situation.\n\n')
+mfprintf(res9,'There are 2 supporting springs, hence net stiffness Ke=2k\n')
+mfprintf(res9,'Damping coefficient Ce = 0.05 Cc = 0.05*2*sqrt(Ke*m)')
+mfprintf(res9,'\n\nThe expression for desired amplitude Y is\n')
+mfprintf(res9,'\n\tY=Fo/sqrt((ke-m*w^2)^2+(Ce*w)^2)\n')
+mfprintf(res9,'Y will be maximum at resonance, i.e., w=wn\n')
+mfprintf(res9,'Thus the design condition is k=(1/2)m*w^2\n')
+
+k=0.5*m*(w^2)
+
+mfprintf(res9,'\tk=%0.2f kN/m\n',k* 10^-3)
+mfprintf(res9,'\nAt resonance, Y=Fo/c*w')
+
+Fo=(0.05*2*sqrt(2*k*m))*w*Y
+mfprintf(res9,'\nThe peak solenoid force required is %0.2f N',Fo)
+
+mclose(res9)
+editor(TMPDIR+'9_base_excitation.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------