diff options
Diffstat (limited to '3250/CH6')
34 files changed, 341 insertions, 0 deletions
diff --git a/3250/CH6/EX6.1/Ex6_1.sce b/3250/CH6/EX6.1/Ex6_1.sce new file mode 100755 index 000000000..1a6e726b9 --- /dev/null +++ b/3250/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,19 @@ +clc +// Given that +a = 5 // Side of the square hole in mm +t = 4 // Thickness of tungsten plate in mm +d = 0.01 // Diameter of abraisive grains in mm +F = 3.5 // Force for feeding in N +A =25e-3 // Amplitude of tool oscillation in mm +f = 25e3 // Frequency in Hz +Hw = 6900 // Fracture hardness of WC in N/mm^2 +// Sample Problem 1 on page no. 332 +printf("\n # PROBLEM 6.1 # \n") +Z = (1/2)*(4*s^2)/(%pi*d^2) +lambda = 5 +d1 = (d^2) +h_w = (sqrt((8*F*A)/(%pi*Z*d1*Hw*(1+lambda)))) +Q = (2/3)*((d1*h_w)^(3/2))*Z*f*%pi +t = (a^2)*t/(Q*60) +printf("\n The approximate time required = %f min",t) +// Answer in the book is given as 13.66 min diff --git a/3250/CH6/EX6.1/Ex6_1.txt b/3250/CH6/EX6.1/Ex6_1.txt new file mode 100755 index 000000000..b62fd3a6a --- /dev/null +++ b/3250/CH6/EX6.1/Ex6_1.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.1 #
+
+ The approximate time required = 14.262125 min
\ No newline at end of file diff --git a/3250/CH6/EX6.10/Ex6_10.sce b/3250/CH6/EX6.10/Ex6_10.sce new file mode 100755 index 000000000..7bef113d3 --- /dev/null +++ b/3250/CH6/EX6.10/Ex6_10.sce @@ -0,0 +1,15 @@ +clc +// Given that +R = 50 // Resistance in relaxation circuit in ohm +C = 10 // Capacitance in relaxation circuit in micro F +V = 200 // Supply voltage in Volt +V_ = 150 // Minimum required voltage for discharge in Volt +// Sample Problem 10 on page no. 382 +printf("\n # PROBLEM 6.10 # \n") +E = (1/2)*C*(10^-6)*(V_^2) +tc = R*C*(10^-6)*log(V/(V-V_)) +W = (E/tc)*(10^-3) +Q = 27.4*(W^(1.54)) +Hrms = 1.11*(Q^0.384) +printf("\n Surface roughness = %f micro meter",Hrms) +// Answer in the book is given as 5.16 micro meter diff --git a/3250/CH6/EX6.10/Ex6_10.txt b/3250/CH6/EX6.10/Ex6_10.txt new file mode 100755 index 000000000..2eecca065 --- /dev/null +++ b/3250/CH6/EX6.10/Ex6_10.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.10 #
+
+ Surface roughness = 1.350325 micro meter
\ No newline at end of file diff --git a/3250/CH6/EX6.11/Ex6_11.sce b/3250/CH6/EX6.11/Ex6_11.sce new file mode 100755 index 000000000..15b8ec5b0 --- /dev/null +++ b/3250/CH6/EX6.11/Ex6_11.sce @@ -0,0 +1,10 @@ +clc +// Given that +w = 150 // Width of slot in micro meter +t = 1 // Thickness of tungsten sheet in mm +P = 5 // Power of electron beam in KW +// Sample Problem 11 on page no. 391 +printf("\n # PROBLEM 6.11 # \n") +C = 12 // Specific power consumption for tugsten in W/(mm^3/min) from the table 6.7 given in the book +v = (P*(1000)/C)*(1000/(w*t))*(1/600) +printf("\n Speed of cutting = %f cm/sec",v) diff --git a/3250/CH6/EX6.11/Ex6_11.txt b/3250/CH6/EX6.11/Ex6_11.txt new file mode 100755 index 000000000..0ff9c85cb --- /dev/null +++ b/3250/CH6/EX6.11/Ex6_11.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.11 #
+
+ Speed of cutting = 4.629630 cm/sec
\ No newline at end of file diff --git a/3250/CH6/EX6.12/Ex6_12.sce b/3250/CH6/EX6.12/Ex6_12.sce new file mode 100755 index 000000000..a0c7dc606 --- /dev/null +++ b/3250/CH6/EX6.12/Ex6_12.sce @@ -0,0 +1,8 @@ +clc +// Given that +V = 150e3 // Acceleration voltage in V +// Sample Problem 12 on page no. 392 +printf("\n # PROBLEM 6.12 # \n") +D = 76e-7 // Density of steel in kg/mm^3 +Delta = 2.6*(10^-17)*((V^2)/D) +printf("\n Electron range = %d micro meter",ceil(Delta*(10^3))) diff --git a/3250/CH6/EX6.12/Ex6_12.txt b/3250/CH6/EX6.12/Ex6_12.txt new file mode 100755 index 000000000..bce5a1db7 --- /dev/null +++ b/3250/CH6/EX6.12/Ex6_12.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.12 #
+
+ Electron range = 77 micro meter
\ No newline at end of file diff --git a/3250/CH6/EX6.13/Ex6_13.sce b/3250/CH6/EX6.13/Ex6_13.sce new file mode 100755 index 000000000..029ca371d --- /dev/null +++ b/3250/CH6/EX6.13/Ex6_13.sce @@ -0,0 +1,13 @@ +clc +// Given that +w = 0.015 // Width of slot in cm +t = 1 // Thickness of tungsten sheet in mm +P = 5e3 // Power of electron beam in W +// Sample Problem 13 on page no. 395 +printf("\n # PROBLEM 6.13 # \n") +rho_c = 2.71 // Value of volume specific heat for tugsten in J/cm^3 +k = 2.15 // Thermal conductivity of tungsten in W/cm-°C +T_m = 3400 // Melting temperture in °C +Z = t/10 // In cm +v = (0.1^2)*(P^2)/((T_m^2)*(Z^2)*(k*w*rho_c)) +printf("\n Speed of cutting = %f cm/sec",v) diff --git a/3250/CH6/EX6.13/Ex6_13.txt b/3250/CH6/EX6.13/Ex6_13.txt new file mode 100755 index 000000000..78cd2ff80 --- /dev/null +++ b/3250/CH6/EX6.13/Ex6_13.txt @@ -0,0 +1,4 @@ +
+ # PROBLEM 6.13 #
+
+ Speed of cutting = 24.744755 cm/sec
\ No newline at end of file diff --git a/3250/CH6/EX6.14/Ex6_14.sce b/3250/CH6/EX6.14/Ex6_14.sce new file mode 100755 index 000000000..f620fbb45 --- /dev/null +++ b/3250/CH6/EX6.14/Ex6_14.sce @@ -0,0 +1,13 @@ +clc +// Given that +I = 1e5 // Power intensity of laser beam in W/mm^2 +T_m = 3400 // Melting temperture of tungsten in °C +rho_c = 2.71 // Value of volume specific heat for tugsten in J/cm^3 +k = 2.15 // Thermal conductivity of tungsten in W/cm-°C +p_a = 10 // Percentage of beam absorbed +// Sample Problem 14 on page no. 399 +printf("\n # PROBLEM 6.14 # \n") +alpha = k/rho_c +H = (p_a/100)*(I)*(100) +tm = (%pi/alpha)*((T_m*k)/(2*H))^(2) +printf("\n Time required for the surface to reach the melting point = %f sec",tm) diff --git a/3250/CH6/EX6.14/Ex6_14.txt b/3250/CH6/EX6.14/Ex6_14.txt new file mode 100755 index 000000000..d36828dd3 --- /dev/null +++ b/3250/CH6/EX6.14/Ex6_14.txt @@ -0,0 +1,4 @@ +
+ # PROBLEM 6.14 #
+
+ Time required for the surface to reach the melting point = 0.000053 sec
\ No newline at end of file diff --git a/3250/CH6/EX6.15/Ex6_15.sce b/3250/CH6/EX6.15/Ex6_15.sce new file mode 100755 index 000000000..a8a3a82a5 --- /dev/null +++ b/3250/CH6/EX6.15/Ex6_15.sce @@ -0,0 +1,17 @@ +clc +// Given that +I = 1e5 // Power intensity of laser beam in W/mm^2 +d = 200 // Focused diameter of incident beam in micro meter +T_m = 3400 // Melting temperture of tungsten in °C +rho_c = 2.71 // Value of volume specific heat for tugsten in J/cm^3 +k = 2.15 // Thermal conductivity of tungsten in W/cm-°C +p_a = 10 // Percentage of beam absorbed +// Sample Problem 15 on page no. 400 +printf("\n # PROBLEM 6.15 # \n") +H = (p_a/100)*(I)*(100) +alpha = k/rho_c +zeta = 0.5 // Fr0m the standard table + // By solving the equation T_m = ((2*H)*(sqrt(alpha*tm))/k)*((1/sqrt(%pi))-ierfc(d/(4*sqrt(alpha*tm)))) +tm = 1/((200^2)*(zeta^2)*(alpha)) +printf("\n Time required for the centre of the circular spot to reach the melting point = %f sec",tm) +// Answer in the book is given as 0.00013 sec diff --git a/3250/CH6/EX6.15/Ex6_15.txt b/3250/CH6/EX6.15/Ex6_15.txt new file mode 100755 index 000000000..59a689d08 --- /dev/null +++ b/3250/CH6/EX6.15/Ex6_15.txt @@ -0,0 +1,4 @@ +
+ # PROBLEM 6.15 #
+
+ Time required for the centre of the circular spot to reach the melting point = 0.000126 sec
\ No newline at end of file diff --git a/3250/CH6/EX6.16/Ex6_16.sce b/3250/CH6/EX6.16/Ex6_16.sce new file mode 100755 index 000000000..c4b285d42 --- /dev/null +++ b/3250/CH6/EX6.16/Ex6_16.sce @@ -0,0 +1,11 @@ +clc +// Given that +d = 200 // Diameter of focussed laser beam in micro meter +T_m = 3400 // Melting temperture of tungsten in °C +k = 2.15 // Thermal conductivity of tungsten in W/cm-°C +p_a = 10 // Percentage of beam absorbed +// Sample Problem 16 on page no. 401 +printf("\n # PROBLEM 6.16 # \n") +H = 2*k*T_m/(d*10^-4) +I = H/(p_a/100) +printf("\n Minimum value of beam power intensity to achieve the melting = %e W/cm^2",I) diff --git a/3250/CH6/EX6.16/Ex6_16.txt b/3250/CH6/EX6.16/Ex6_16.txt new file mode 100755 index 000000000..a8ca910d6 --- /dev/null +++ b/3250/CH6/EX6.16/Ex6_16.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.16 #
+
+ Minimum value of beam power intensity to achieve the melting = 7.310000e+06 W/cm^2
\ No newline at end of file diff --git a/3250/CH6/EX6.17/Ex6_17.sce b/3250/CH6/EX6.17/Ex6_17.sce new file mode 100755 index 000000000..8d05b866f --- /dev/null +++ b/3250/CH6/EX6.17/Ex6_17.sce @@ -0,0 +1,15 @@ +clc +// Given that +I = 1e5 // Power intensity of laser beam in W/mm^2 +t = 0.5 // Thickness of tungsten sheet in mm +d = 200 // Drill diameter in micro meter +P = 3e4 // Energy required per unit volume to vapourize tungsten in J/cm^3 +p_e = 10 // Percentage efficiency +T_m = 3400 // Melting temperture of tungsten in °C +k = 2.15 // Thermal conductivity of tungsten in W/cm-°C +// Sample Problem 17 on page no. 403 +printf("\n # PROBLEM 6.17 # \n") +H = (p_e/100)*(I)*(100) +v = H/P +T = t*(0.1)/(v) +printf("\n The time required to drill a through hole = %f sec",T) diff --git a/3250/CH6/EX6.17/Ex6_17.txt b/3250/CH6/EX6.17/Ex6_17.txt new file mode 100755 index 000000000..0aaed52c3 --- /dev/null +++ b/3250/CH6/EX6.17/Ex6_17.txt @@ -0,0 +1,4 @@ +
+ # PROBLEM 6.17 #
+
+ The time required to drill a through hole = 0.001500 sec
\ No newline at end of file diff --git a/3250/CH6/EX6.2/Ex6_2.sce b/3250/CH6/EX6.2/Ex6_2.sce new file mode 100755 index 000000000..140cb91b4 --- /dev/null +++ b/3250/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,10 @@ +clc +// Given that +r = 1/3 // Ratio of hardness values of copper and steel +// Sample Problem 2 on page no. 335 +printf("\n # PROBLEM 6.2 # \n") +R_Q = (r)^(3/4) +R_t = 1/R_Q +P_R = (1-(1/R_t))*100 +printf("\n Percentage change in cutting time when tool is changed from coppper to steel = %d percent(reduction)",P_R) + diff --git a/3250/CH6/EX6.2/Ex6_2.txt b/3250/CH6/EX6.2/Ex6_2.txt new file mode 100755 index 000000000..31a63df76 --- /dev/null +++ b/3250/CH6/EX6.2/Ex6_2.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.2 #
+
+ Percentage change in cutting time when tool is changed from coppper to steel = 56 percent(reduction)
\ No newline at end of file diff --git a/3250/CH6/EX6.3/Ex6_3.sce b/3250/CH6/EX6.3/Ex6_3.sce new file mode 100755 index 000000000..7a2270c68 --- /dev/null +++ b/3250/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,11 @@ +clc +// Given that +m = 5 // Romoval rate in cm^3/min +A = 56 // Atomic gram weight in gm +Z = 2 // Valence at which dissolation takes place +D = 7.8 // Density of iron in gm/cm^3 +// Sample Problem 3 on page no. 345 +printf("\n # PROBLEM 6.3 # \n") +I = (m/60)*(D*Z*96500)/(A) +printf("\n Current required = %d amp",I) + diff --git a/3250/CH6/EX6.3/Ex6_3.txt b/3250/CH6/EX6.3/Ex6_3.txt new file mode 100755 index 000000000..1df49a317 --- /dev/null +++ b/3250/CH6/EX6.3/Ex6_3.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.3 #
+
+ Current required = 2240 amp
\ No newline at end of file diff --git a/3250/CH6/EX6.4/Ex6_4.sce b/3250/CH6/EX6.4/Ex6_4.sce new file mode 100755 index 000000000..697eea215 --- /dev/null +++ b/3250/CH6/EX6.4/Ex6_4.sce @@ -0,0 +1,40 @@ +clc +// Given that +I = 1000 // Current in amp +p1 = 72.5 // Percentage(by weight) of Ni in Nimonic 75 alloy +p2 = 19.5 // Percentage(by weight) of Cr in Nimonic 75 alloy +p3 = 5 // Percentage(by weight) of Fe in Nimonic 75 alloy +p4 = 0.4 // Percentage(by weight) of Ti in Nimonic 75 alloy +p5 = 1 // Percentage(by weight) of Si in Nimonic 75 alloy +p6 = 1 // Percentage(by weight) of Mn in Nimonic 75 alloy +p7 = 06 // Percentage(by weight) of Cu in Nimonic 75 alloy +// Sample Problem 4 on page no. 345 +printf("\n # PROBLEM 6.4 # \n") +// From the table 6.3 given in the book +D1 = 8.9 // Density of Ni in g/cm^3 +D2 = 7.19 // Density of Cr in g/cm^3 +D3 = 7.86 // Density of Fe in g/cm^3 +D4 = 4.51 // Density of Ti in g/cm^3 +D5 = 2.33 // Density of Si in g/cm^3 +D6 = 7.43 // Density of Mn in g/cm^3 +D7 = 8.96 // Density of Cu in g/cm^3 +A1 = 58.71 // Gram atomic weight of Ni in gm +A2 = 51.99 // Gram atomic weight of Cr in gm +A3 = 55.85 // Gram atomic weight of Fe in gm +A4 = 47.9 // Gram atomic weight of Ti in gm +A5 = 28.09 // Gram atomic weight of Si in gm +A6 = 54.94 // Gram atomic weight of Mn in gm +A7 = 63.57 // Gram atomic weight of Cu in gm +Z1 = 2 // Valence of dessolation for Ni +Z2 = 2 // Valence of dessolation for Cr +Z3 = 2 // Valence of dessolation for Fe +Z4 = 3 // Valence of dessolation for Ti +Z5 = 4 // Valence of dessolation for Si +Z6 = 2 // Valence of dessolation for Mn +Z7 = 1 // Valence of dessolation for Cu +// Above values are given in table 6.3 in the book +D = 100/((p1/D1)+(p2/D2)+(p3/D3)+(p4/D4)+(p5/D5)+(p6/D6)+(p7/D7)) +Q = ((0.1035*(10^-2))/D)*(1/((p1*Z1/A1)+(p2*Z2/A2)+(p3*Z3/A3)+(p4*Z4/A4)+(p5*Z5/A5)+(p6*Z6/A6)+(p7*Z7/A7))) +R = Q*I*60 +printf("\n Removal rate = %f cm^3/min",R) + diff --git a/3250/CH6/EX6.4/Ex6_4.txt b/3250/CH6/EX6.4/Ex6_4.txt new file mode 100755 index 000000000..820a17025 --- /dev/null +++ b/3250/CH6/EX6.4/Ex6_4.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.4 #
+
+ Removal rate = 2.152707 cm^3/min
\ No newline at end of file diff --git a/3250/CH6/EX6.5/Ex6_5.sce b/3250/CH6/EX6.5/Ex6_5.sce new file mode 100755 index 000000000..81cd16fe8 --- /dev/null +++ b/3250/CH6/EX6.5/Ex6_5.sce @@ -0,0 +1,16 @@ +clc +// Given that +V = 10 // DC supply voltage in Volt +k = 0.2 // Conductivity of electrolyte in ohm^-1-cm^-1 +f = 0.1 // Feed rate in m/min +Vo = 1.5 // Total overvoltage in Volt +F = 96500 // Faraday constant in coulombs per mole +// Sample Problem 5 on page no. 352 +printf("\n # PROBLEM 6.5 # \n") +A = 55.85 // Atomic gram weight of iron in gm +Z = 2 // Valency of dissolation of iron +rho = 7.86 // Density of iron in gm/cm^3 +Yc = k*A*(V-Vo)/(rho*Z*F*(f/60)) +printf("\n Equilibrium gap = %f cm",Yc) + +// Answer in the book is given as 0.04 cm diff --git a/3250/CH6/EX6.5/Ex6_5.txt b/3250/CH6/EX6.5/Ex6_5.txt new file mode 100755 index 000000000..5eb7ed8fc --- /dev/null +++ b/3250/CH6/EX6.5/Ex6_5.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.5 #
+
+ Equilibrium gap = 0.037553 cm
\ No newline at end of file diff --git a/3250/CH6/EX6.6/Ex6_6.sce b/3250/CH6/EX6.6/Ex6_6.sce new file mode 100755 index 000000000..f2d86b1f9 --- /dev/null +++ b/3250/CH6/EX6.6/Ex6_6.sce @@ -0,0 +1,17 @@ +clc +// Given that +S_I1 = 5 // Surface irregulation in micro meter +S_I2 = 8 // Surface irregulation in micro meter +V = 12 // DC supply voltage in Volt +k = 0.2 // Conductivity of electrolyte in ohm^-1-cm^-1 +Vo = 1.5 // Total overvoltage in Volt +F = 96500 // Faraday constant in coulombs per mole +// Sample Problem 6 on page no. 353 +printf("\n # PROBLEM 6.6 # \n") +Y_min = (S_I1+S_I2)*(10^(-4)) +A = 55.85 // Atomic gram weight of iron in gm +Z = 2 // Valency of dissolation of iron +D = 7.86 // Density of iron in gm/cm^3 +f_max = (k*A*(V-Vo)/(Z*D*F*Y_min))*60 +printf("\n Largest passible feed rate = %f mm/min",f_max*10) + diff --git a/3250/CH6/EX6.6/Ex6_6.txt b/3250/CH6/EX6.6/Ex6_6.txt new file mode 100755 index 000000000..31798e145 --- /dev/null +++ b/3250/CH6/EX6.6/Ex6_6.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.6 #
+
+ Largest passible feed rate = 35.683752 mm/min
\ No newline at end of file diff --git a/3250/CH6/EX6.7/Ex6_7.sce b/3250/CH6/EX6.7/Ex6_7.sce new file mode 100755 index 000000000..5f600821a --- /dev/null +++ b/3250/CH6/EX6.7/Ex6_7.sce @@ -0,0 +1,29 @@ +clc +// Given that +f = 0.2 // Feed rate in cm/min +l = 2.54 // Length of tool face in cm +w = 2.54 // Width of tool face in cm +T_b = 95 // Boiling temperature of electrolyte in °C +Nita = 0.876e-3 // Viscosity of electrolyte in kg/m-sec +D_e = 1.088 // Density of electrolyte in g/cm^3 +c = .997 // Specific heat of electrolyte +V = 10 // DC supply voltage in Volt +k = 0.2 // Conductivity of electrolyte in ohm^-1-cm^-1 +T = 35 // Ambient temperature in °C +Vo = 1.5 // Total overvoltage in Volt +F = 96500 // Faraday constant in coulombs per mole +// Sample Problem 7 on page no. 355 +printf("\n # PROBLEM 6.7 # \n") +A = 55.85 // Atomic gram weight of iron in gm +Z = 2 // Valency of dissolation of iron +D = 7.86 // Density of iron in gm/cm^3 +Ye = k*A*(V-Vo)*60/(D*Z*F*f) +J = k*(V-Vo)/(Ye) +D_T = T_b -T +v = (J^2)*(l)/(k*D_T*D_e*c) +Re = ((D_e*v*2*Ye)/Nita)*(0.1) +p = 0.3164*D_e*(v^2)*l/(4*Ye*(Re^0.25))*(10^-4) +A = l*w +F = p*A*(10^-1)*(1/2) +printf("\n Total force acting on the tool = %d N",F) +// Answer in the book is given as 79 N diff --git a/3250/CH6/EX6.7/Ex6_7.txt b/3250/CH6/EX6.7/Ex6_7.txt new file mode 100755 index 000000000..214bb5628 --- /dev/null +++ b/3250/CH6/EX6.7/Ex6_7.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.7 #
+
+ Total force acting on the tool = 103 N
\ No newline at end of file diff --git a/3250/CH6/EX6.8/Ex6_8.sce b/3250/CH6/EX6.8/Ex6_8.sce new file mode 100755 index 000000000..2e206f6d5 --- /dev/null +++ b/3250/CH6/EX6.8/Ex6_8.sce @@ -0,0 +1,19 @@ +clc +x = poly(0,"x") +// Given that +y = 10+0.3*x-0.05*x^2//Equation of geometry of workpiece surface +V = 15 // Applied potential in Volt +f = 0.75 // Feed velocity in cm/min +k = 0.2 // Conductivity of electrolyte in ohm^-1-cm^-1 +Vo = 0.67 // Total overvoltage in Volt +F = 96500 // Faraday constant in coulombs per mole +// Sample Problem 8 on page no. 361 +printf("\n # PROBLEM 6.8 # \n") +A = 63.57 // Atomic gram weight of copper in gm +Z = 1 // Valency of dissolation of copper +D = 8.96 // Density of copper in gm/cm^3 +lambda = k*A*(V-Vo)/(D*Z*F) +r = lambda/(f/(10*60)) +Y = 10 + 0.3*(x-(r*((0.3-0.1*x)/(1-0.1*r)))) - 0.05*(x-(r*((0.3-.1*x)/(1-0.1*r))))^2 - r +printf("\n The equation of required tool geometry is :-\n y =") +disp(Y) diff --git a/3250/CH6/EX6.8/Ex6_8.txt b/3250/CH6/EX6.8/Ex6_8.txt new file mode 100755 index 000000000..983c4a866 --- /dev/null +++ b/3250/CH6/EX6.8/Ex6_8.txt @@ -0,0 +1,8 @@ +
+ # PROBLEM 6.8 #
+
+ The equation of required tool geometry is :-
+ y =
+ 2
+ 9.8158651 + 0.3103759x - 0.0517293x
+
\ No newline at end of file diff --git a/3250/CH6/EX6.9/Ex6_9.sce b/3250/CH6/EX6.9/Ex6_9.sce new file mode 100755 index 000000000..dd148f607 --- /dev/null +++ b/3250/CH6/EX6.9/Ex6_9.sce @@ -0,0 +1,18 @@ +clc +// Given that +a = 10 // Side length of a square hole in mm +t = 5 // Thickness of low carbon steel plate in mm +R = 50 // Resistance in relaxation circuit in ohm +C = 10 // Capacitance in relaxation circuit in micro F +V = 200 // Supply voltage in Volt +V_ = 150 // Minimum required voltage for discharge in Volt +// Sample Problem 9 on page no. 378 +printf("\n # PROBLEM 6.9 # \n") +E = (1/2)*C*(10^-6)*(V_^2) +tc = R*C*(10^-6)*log(V/(V-V_)) +W = (E/tc)*(10^-3) +v = t*a^2 +Q = 27.4*(W^(1.54)) +T = v/Q +printf("\n The time required to complete the drilling operation = %d min",T) +// Answer in the book is given as 306 min diff --git a/3250/CH6/EX6.9/Ex6_9.txt b/3250/CH6/EX6.9/Ex6_9.txt new file mode 100755 index 000000000..78576f43d --- /dev/null +++ b/3250/CH6/EX6.9/Ex6_9.txt @@ -0,0 +1,3 @@ + # PROBLEM 6.9 #
+
+ The time required to complete the drilling operation = 300 min
\ No newline at end of file |