11 files changed, 146 insertions, 0 deletions
diff --git a/1436/CH4/EX4.1/ex4_1.sce b/1436/CH4/EX4.1/ex4_1.sce
new file mode 100755
index 000000000..c7973f6af
--- /dev/null
+++ b/1436/CH4/EX4.1/ex4_1.sce
@@ -0,0 +1,12 @@
+// Example 4.1, page no-209
+clear
+clc
+
+//(a)
+k=50
+m=0.005
+wn=sqrt(k/m)
+printf("(a)\nNatural frequency(wn)= %d rad/s",wn)
+//(b)
+Cc=2*sqrt(m*k)
+printf("\n(b)\nCc=%d",Cc)
diff --git a/1436/CH4/EX4.10/ex4_10.sce b/1436/CH4/EX4.10/ex4_10.sce
new file mode 100755
index 000000000..c73c738a7
--- /dev/null
+++ b/1436/CH4/EX4.10/ex4_10.sce
@@ -0,0 +1,10 @@
+// Example 4.10, page no-212
+clear
+clc
+Ww=12-2
+dw=1000
+v=Ww/dw
+dx=(10-2)/v
+sg=dx/dw
+
+printf("Specific Gravity of X =%.1f",sg)
diff --git a/1436/CH4/EX4.11/ex4_11.sce b/1436/CH4/EX4.11/ex4_11.sce
new file mode 100755
index 000000000..e9b70c977
--- /dev/null
+++ b/1436/CH4/EX4.11/ex4_11.sce
@@ -0,0 +1,22 @@
+// Example 4.11, page no-213
+clear
+clc
+
+//(a)
+v_obj=2/1000
+wt=1.5
+dx=wt/v_obj
+sg=dx/1000
+printf("(a)\nSpecific Gravity = %.2f",sg)
+
+//(b)
+sgl=0.8
+dens=800
+W1=dens*v_obj-wt
+printf("\n(b)\nW1 = %.1f kg",W1)
+
+//(c)
+sg2=1.2
+dens2=1200
+W2=dens2*v_obj-wt
+printf("\n(c)\nW2 = %.1f kg",W2)
diff --git a/1436/CH4/EX4.2/ex4_2.sce b/1436/CH4/EX4.2/ex4_2.sce
new file mode 100755
index 000000000..59a479ca5
--- /dev/null
+++ b/1436/CH4/EX4.2/ex4_2.sce
@@ -0,0 +1,18 @@
+// Example 4.2, page no-209
+clear
+clc
+
+//(a)
+Cc=1.0
+C=0.7*Cc
+m=0.005
+k=50
+w=sqrt((k/m)-(C/(2*m))^2)
+printf("(a)\nw=%.1f rad/s",w)
+//(b)
+w1=250
+theta=C*w1/(k-m*w1^2)
+printf("\ntheta=%f",theta)
+fi=atan(-theta)
+fi=fi*180/%pi
+printf("\nfi = %d°",fi)
diff --git a/1436/CH4/EX4.3/ex4_3.sce b/1436/CH4/EX4.3/ex4_3.sce
new file mode 100755
index 000000000..0a586b0ca
--- /dev/null
+++ b/1436/CH4/EX4.3/ex4_3.sce
@@ -0,0 +1,9 @@
+// Example 4.3, page no-210
+clear
+clc
+m=0.005
+c=0.7
+y=-log(0.01)
+//printf("y=%.2f",y)
+t=y*2*m/c
+printf("t=%.4f Secs",t)
diff --git a/1436/CH4/EX4.4/ex4_4.sce b/1436/CH4/EX4.4/ex4_4.sce
new file mode 100755
index 000000000..6e1e0f148
--- /dev/null
+++ b/1436/CH4/EX4.4/ex4_4.sce
@@ -0,0 +1,15 @@
+// Example 4.4, page no-210
+clear
+clc
+rg1=1200
+rg2=1200
+rg3=1200
+rg4=1200
+D1=rg1*5/100
+D2=rg2*5/100
+D3=rg3*5/100
+D4=rg4*5/100
+E=12
+v=E*(((rg1+D1)/(rg1+D1+rg2-D2))-((rg4-D4)/(rg3+D3+rg4-D4)))
+v=v*1000
+printf("V0=%d mV",v)
diff --git a/1436/CH4/EX4.5/ex4_5.sce b/1436/CH4/EX4.5/ex4_5.sce
new file mode 100755
index 000000000..cf16195a9
--- /dev/null
+++ b/1436/CH4/EX4.5/ex4_5.sce
@@ -0,0 +1,8 @@
+// Example 4.5, page no-211
+clear
+clc
+g=0.06
+t=2.5*10^-3
+p=20*9.8*10^4
+E=g*t*p
+printf("E=%d V",E)
diff --git a/1436/CH4/EX4.6/ex4_6.sce b/1436/CH4/EX4.6/ex4_6.sce
new file mode 100755
index 000000000..e02948ceb
--- /dev/null
+++ b/1436/CH4/EX4.6/ex4_6.sce
@@ -0,0 +1,10 @@
+// Example 4.6, page no-211
+clear
+clc
+
+c0=25
+x0=0.5
+x1=0.05
+c1=c0*x0/(x0-x1)
+c2=c0*x0/(x0+x1)
+printf("C1=%.2f pF\nC2=%.2f pF",c1,c2)
diff --git a/1436/CH4/EX4.7/ex4_7.sce b/1436/CH4/EX4.7/ex4_7.sce
new file mode 100755
index 000000000..2c9d2d45c
--- /dev/null
+++ b/1436/CH4/EX4.7/ex4_7.sce
@@ -0,0 +1,20 @@
+// Example 4.7, page no-211
+clear
+clc
+
+//(a)
+sg_at_60=1.02
+API=(141.5/sg_at_60)-131.5
+printf("(a)\nDegrees API = %.2f°API",API)
+//(b)
+Be=145-145/sg_at_60
+printf("\n(b)\nDegrees Baume(heavy) = %.1f°Be",Be)
+//(c)
+Bk=(sg_at_60-1)*1000
+printf("\n(c)\nDegrees Barkometer = %d°Bk",Bk)
+//(d)
+Q=(sg_at_60-1)*1000
+printf("\n(c)\nDegrees Quevenne = %d°Q",Q)
+//(e)
+Tw=200*(sg_at_60-1.0)
+printf("\n(d)\nDegrees Twaddel = %d°Tw",Tw)
diff --git a/1436/CH4/EX4.8/ex4_8.sce b/1436/CH4/EX4.8/ex4_8.sce
new file mode 100755
index 000000000..1c044c0ae
--- /dev/null
+++ b/1436/CH4/EX4.8/ex4_8.sce
@@ -0,0 +1,10 @@
+// Example 4.8, page no-212
+clear
+clc
+T=0.5
+sg1=1.02
+sg2=0.98
+wt=1000*10^-6
+v=T/((sg1-sg2)*wt)
+v=ceil(v)
+printf("V=%d cm^3",v)
diff --git a/1436/CH4/EX4.9/ex4_9.sce b/1436/CH4/EX4.9/ex4_9.sce
new file mode 100755
index 000000000..efbb52154
--- /dev/null
+++ b/1436/CH4/EX4.9/ex4_9.sce
@@ -0,0 +1,12 @@
+// Example 4.9, page no-212
+clear
+clc
+sg1=0.85
+sg2=0.8
+span=150
+H=span/(sg1-sg2)
+printf("(a)\nH=%d mm = %dm",H,H/1000)
+span_min=1500
+span2=span_min*(sg1-sg2)
+span2=ceil(span2)
+printf("\n(b)\nD/P span = %d mm",span2)