initial commit / add all books

8 files changed, 74 insertions, 0 deletions

diff --git a/3250/CH5/EX5.1/Ex5_1.sce b/3250/CH5/EX5.1/Ex5_1.sce
new file mode 100755
index 000000000..fcfef018b
--- /dev/null
+++ b/3250/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,16 @@
+clc 
+// Given that
+A = 20 // Value of A in voltage length characteristic equation
+B = 40 // Value of B in voltage length characteristic equation
+v= 80 // Open circuit voltage in V
+I = 1000 // Short circuit current in amp
+// Sample Problem 1 on page no. 285
+printf("\n # PROBLEM 5.1 # \n")
+l=poly(0,"l")
+i = ((v-A)-(B* l))*(I/v)
+V = (A+B*l)// Given in the question
+P = V*i
+k = derivat(P)
+L=roots(k)
+Pmax=((v-A)-(B* L))*(I/v)*(A+B*L)
+printf("\n Maximum power of the arc = %d kVA",Pmax/1000)
diff --git a/3250/CH5/EX5.1/Ex5_1.txt b/3250/CH5/EX5.1/Ex5_1.txt
new file mode 100755
index 000000000..848d6e537
--- /dev/null
+++ b/3250/CH5/EX5.1/Ex5_1.txt
@@ -0,0 +1,3 @@
+ # PROBLEM 5.1 # 

+

+ Maximum power of the arc = 20 kVA 
\ No newline at end of file
diff --git a/3250/CH5/EX5.2/Ex5_2.sce b/3250/CH5/EX5.2/Ex5_2.sce
new file mode 100755
index 000000000..819ffb42e
--- /dev/null
+++ b/3250/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,12 @@
+clc 
+// Given that
+N  =25 // No. of bridges per cm^2
+r = 0.1 // Radius of bridge in mm
+rho = 2e-5 // Resistivity of the material in ohm-cm
+v= 5 // Applied voltage in V
+// Sample Problem 2 on page no. 288
+printf("\n # PROBLEM 5.2 # \n")
+Rc = 0.85*rho/(N*%pi*r*0.1)
+Q = (v^2)/Rc
+printf("\n Rate of heat generated per unit area = %e W/cm^2",Q)
+// Answer in the book is given as 1.136e5 W/cm^2
diff --git a/3250/CH5/EX5.2/Ex5_2.txt b/3250/CH5/EX5.2/Ex5_2.txt
new file mode 100755
index 000000000..52934c015
--- /dev/null
+++ b/3250/CH5/EX5.2/Ex5_2.txt
@@ -0,0 +1,4 @@
+

+ # PROBLEM 5.2 # 

+

+ Rate of heat generated per unit area = 1.154997e+06 W/cm^2 
\ No newline at end of file
diff --git a/3250/CH5/EX5.3/Ex5_3.sce b/3250/CH5/EX5.3/Ex5_3.sce
new file mode 100755
index 000000000..9a0c02119
--- /dev/null
+++ b/3250/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,19 @@
+clc 
+// Given that
+P = 2.5 // Power in kVA
+t = 3 // Thickness of steel plate in mm
+T = 85 // Percentage of total time when arc is on
+alpha = 1.2e-5 // Thermal diffusivity of steel in m^2/sec
+k = 43.6 // Thermal conductivity of steel in W/m-°C
+theta_ = 1530 // Melting point of steel in °C
+theta = 30 // Ambient temperature in °C
+gama = 60 // Angle in degree
+// Sample Problem  on page no. 292
+printf("\n # PROBLEM 5.3 # \n")
+C = T/100
+Q = C*P*10^3
+w = t/sind(gama)
+theta_m = theta_ - theta
+v_max = (4*alpha/(w*(10^-3)))*((Q/(8*k*theta_m*t*(10^-3)))-0.2)
+printf("\n Maximum passible welding speed = %f m/sec",v_max)
+// Answer in the book is given as 0.0146 m/sec
diff --git a/3250/CH5/EX5.3/Ex5_3.txt b/3250/CH5/EX5.3/Ex5_3.txt
new file mode 100755
index 000000000..e39d3a74a
--- /dev/null
+++ b/3250/CH5/EX5.3/Ex5_3.txt
@@ -0,0 +1,3 @@
+ # PROBLEM 5.3 # 

+

+ Maximum passible welding speed = 0.015988 m/sec 
\ No newline at end of file
diff --git a/3250/CH5/EX5.4/Ex5_4.sce b/3250/CH5/EX5.4/Ex5_4.sce
new file mode 100755
index 000000000..3a7c296fa
--- /dev/null
+++ b/3250/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,14 @@
+clc 
+// Given that
+t = 1.2 // Thickness of aluminium sheet in mm
+t_ = 0.25 // Adhesive thickness in mm
+l = 12 // Overlapped length in mm
+E = 703 // Modulus of elastisity in N/mm^2
+G = 11.9 // Shear modulus of adhesive in N/mm^2
+T_S = 0.6 // Ultimate shear stress in N/mm^2
+// Sample Problem 4 on page no. 303
+printf("\n # PROBLEM 5.4 # \n")
+K = (((l^2)*G)/(2*E*t*t_))^(1/2)
+T = T_S/K
+printf("\n The maximum shear stress the lap joint can withstand = %f N/mm^2",T)
+// Answer in the book is given as 0.274 N/mm^2
diff --git a/3250/CH5/EX5.4/Ex5_4.txt b/3250/CH5/EX5.4/Ex5_4.txt
new file mode 100755
index 000000000..3d9bd9d25
--- /dev/null
+++ b/3250/CH5/EX5.4/Ex5_4.txt
@@ -0,0 +1,3 @@
+ # PROBLEM 5.4 # 

+

+ The maximum shear stress the lap joint can withstand = 0.297680 N/mm^2 
\ No newline at end of file