diff options
Diffstat (limited to '3764/CH10')
| -rw-r--r-- | 3764/CH10/EX10.01/Ex10_01.sce | 52 | ||||
| -rw-r--r-- | 3764/CH10/EX10.04/Ex10_04.sce | 34 | ||||
| -rw-r--r-- | 3764/CH10/EX10.1/Ex10_1.sce | 45 | ||||
| -rw-r--r-- | 3764/CH10/EX10.2/Ex10_2.sce | 32 | ||||
| -rw-r--r-- | 3764/CH10/EX10.3/Ex10_3.sce | 32 |
5 files changed, 195 insertions, 0 deletions
diff --git a/3764/CH10/EX10.01/Ex10_01.sce b/3764/CH10/EX10.01/Ex10_01.sce new file mode 100644 index 000000000..e268d5b61 --- /dev/null +++ b/3764/CH10/EX10.01/Ex10_01.sce @@ -0,0 +1,52 @@ +clc +// +// + +//Variable declaration +n=-1 +P1=15 // Force(kN) +P2=18 // Force(kN) +a=50 // Distance(mm) +b=60 // Distance(mm) +c=0.020 // Distance(m) +F=P1 // Force(kN) +V=P2 // Force(kN) +t=0.040 // Distance(m) +Iz=125.7*((10**-9)) // Moment of inertia(m**4) + +//Calculation +//Internal Forces in Given Section +T=P2*a // Torque(N.m) +My=P1*a // Moment(N.m) +Mz=P2*b // Moment(N.m) +// Case(a) Normal and Shearing Stresses at Point K +// Geometric Properties of the Section +A=(%pi)*(c**2) // Area of cross section(m**2) +Iy=(1/4.0)*(%pi)*(c**4) // Moment of inertia(m**4) +Jc=(1/2.0)*(%pi)*(c**4) // Moment of inertia(m**4) +Q=(A/2.0)*((4*c)/(3.0*(%pi))) +t=2*c // Distance(m) +// Normal Stresses +Sx=(n*(F/A))/(1000.0) + ((My*c)/(Iy))/(1000000.0) // Normal stress(MPa) +// Shearing Stresses +txyV=((V*Q)/(Iz*t))/(1000.0) // Shearing stress(MPa) +txytwist=((n*(T*c))/(Jc))/(1000000.0) // Shearing stress(MPa) +txy=(txyV + txytwist) // Shearing stress(MPa) +// Case(b) Principal Planes and Principal Stresses at Point K +CD=(1/2.0)*(107.4) // Stress(MPa) +OC=(1/2.0)*(107.4) // Stress(MPa) +DX=52.5 // Stress(MPa) +phyp=44.4/2.0 // Angle(degree) +R=sqrt(53.7**2 + 52.5**2) // Stress(MPa) +Smax=OC+R // Maximum principal stress(MPa) +Smin=OC-R // Minimum principal stress(MPa) +// Case(c) Maximum shearing stress at point k +tmax=75.1 // Shearing stress(MPa) + +// Result +printf("\n Case(a) Normal stress = %0.3f MPa' ,Sx) +printf("\n Case(a) Shearing stress = %0.3f MPa' ,txy) +printf("\n Case(b) Principal axis angle = %0.3f degree' ,phyp) +printf("\n Case(b) Maximum principal stress at point k = %0.3f MPa' ,Smax) +printf("\n Case(b) Minimum principal stress at point k = %0.3f MPa' ,Smin) +printf("\n Case(c) Maximum shearing stress at point k = %0.3f MPa' ,tmax) diff --git a/3764/CH10/EX10.04/Ex10_04.sce b/3764/CH10/EX10.04/Ex10_04.sce new file mode 100644 index 000000000..6f47fc68f --- /dev/null +++ b/3764/CH10/EX10.04/Ex10_04.sce @@ -0,0 +1,34 @@ +clc +// +// + +//Variable declaration +Sy=36 // Stress(ksi) +E=(29*((10**6))) // Modulus of elasticity(psi) +A=11.5 // Area(in**2) +FS=2 // Factor of safety + + +//Calculation +ratio=(4.71)*(E/(36*((10**3)))) // Value of the slenderness ratio + +//Case(a) Effective Length +Sr=(24*12)/(1.98) // Value of the slenderness ratio +Scr=((0.877)*((%pi)**2)*(29*((10**3))))/(145.5)**2 // Value of the slenderness ratio +Sall=(Scr/1.67) // Allowable stress(ksi) +Pall1=Sall*A // Pressure(kips) +//Case(b) Bracing at Midpoint C +//xz Plane +Elxz=(144)/(1.98) // Slenderness ratio +//yz Plane +Elyz=(288)/(4.27) // Slenderness ratio + +Se=(((%pi)**2)*(E))/(72.7)**2 // Stress(ksi) +Scr=(0.658)**(36/54.1)*(36) // Stress(ksi) + +Sall=(Scr)/(1.67) // Allowable load(ksi) +Pall2=Sall*A // Force(ksi) + +//Result +printf("\n Effective centric load P if the effective length of the column is 24 = %0.3f kips",Pall1) +printf("\n Effective centric load P if bracing is provided to prevent the movement of the midpoint C in the xz plane = %0.3f ksi",Pall2) diff --git a/3764/CH10/EX10.1/Ex10_1.sce b/3764/CH10/EX10.1/Ex10_1.sce new file mode 100644 index 000000000..e9d53bf2d --- /dev/null +++ b/3764/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,45 @@ +clc +// + +//Variable declaration +//Free Body. Entire Crankshaft +Vx=-30 // Force(kN) +P=50 // Force(kN) +Vz=-75 // Force(kN) +Mx=(50)*(0.130) - (75)*(0.2) // Moment(kN.m) +My=0 // Moment +Mz=30*0.1 // Moment(kN.m) +A=0.040*0.140 // Area(m**2) +Ix=(1/12.0)*(0.040)*((0.140**3)) // Moment of inertia(m**4) +Iz=(1/12.0)*((0.040**3))*(0.140) // Moment of inertia(m**4) +a=0.020 // Distance(m) +b=0.025 // Distance(m) +t=0.040 // Distance(m) +OC=33.0 // Stress(MPa) + +//Calculation +//Normal Stress at H +Sy=(((P/A) + ((Mz)*a)/Iz + ((Mx)*b)/Ix)/(1000.0)) // Normal stress at H(MPa) + + + +//Shearing Stress at H +Q=(0.040*0.045*0.0475) +tyz=((((-(Vz)*(Q))/(Ix*t))/1000.0)) // Shearing stress at H(MPa) + + + +//Principal Stresses, Principal Planes, and Maximum Shearing Stress at H. +phyp=27.96/2.0 +R=sqrt(33**2 + 17.52**2) +Smax=OC+R +Smin=OC-R + + +// Result +printf("\n Normal stress at H = %0.3f MPa' ,Sy) +printf("\n Shearing stress at H = %0.3f MPa' ,tyz) +printf("\n Principal axis angle = %0.3f degree' ,phyp) +printf("\n Maximum shearing stress at point k = %0.3f MPa' ,R) +printf("\n Maximum principal stress at point k = %0.3f MPa' ,Smax) +printf("\n Minimum principal stress at point k = %0.3f MPa' ,Smin) diff --git a/3764/CH10/EX10.2/Ex10_2.sce b/3764/CH10/EX10.2/Ex10_2.sce new file mode 100644 index 000000000..91149c258 --- /dev/null +++ b/3764/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,32 @@ +clc +// +// + +//Variable declaration +L=2 // Length(m) +E=13*((10**9)) // Modulus of elasticity(GPa) +Sall=12 // Stress(MPa) +FS=2.5 // Factor of safety(2.5) +Ld1=100 // Load force(kN) +Ld2=200 // Load force(kN) + + +//Calculation +//(a) For the 100-kN Load +Pcr=FS*Ld1*(1000.0) // Pressure(kN) +I=(Pcr*(L**2))/(((%pi)**2)*E) // Moment of inertia(m**4) +a1=((I*12)**(1/4.0)) // Side of square(mm) + +S=(100)/((0.1)**2) // Normal stress in column(MPa) + +//(b) For the 200-kN Load +Pcr=FS*(Ld2)*(1000.0) // Pressure(kN) +I=(Pcr*(L**2))/(((%pi)**2)*E) // Moment of inertia(m**4) +a=((I)*12)**(1/4.0) // Side of square(mm) +S=(200/(0.11695)**2) // Normal stress(MPa) +A=(200/12.0)*((10**-3)) // Area of cross section(m**2) +a2=(A)**(1/2.0)*(1000) // Side of square(mm) + +//Result +printf("\n Case(a): Size of cross section if the column is to safetly support 100 kN = %0.3f psi ",a1) +printf("\n Case(b): Size of cross section if the column is to safetly support 200 kN = %0.3f psi ",a2) diff --git a/3764/CH10/EX10.3/Ex10_3.sce b/3764/CH10/EX10.3/Ex10_3.sce new file mode 100644 index 000000000..b342b6604 --- /dev/null +++ b/3764/CH10/EX10.3/Ex10_3.sce @@ -0,0 +1,32 @@ +clc +// +// + +//Variable declaration +E=(29*((10**6))) // Modulus of elasticity(psi) +FS=2 // Factor of safety +A=3.54 // Area of cross section(in**2) +I=8.00 // Moment of inertia(in**4) +r=1.50 // Radius(in) +c=2.00 // Distance(in) +Lab=8 + +//Calculation +// Effective Length +Le=2*(Lab) // Effective length(in) +// Critical Load +Pcr=((((%pi)**2)*E*(8.0))/(192.0)**2)/(1000.0) // Critical load(kips) + +//Case(a) Allowable Load and Stress +Pall=Pcr/FS // Allowable load(kips) +S=Pall/A // Allowable Stress(ksi) + +//Case(b) Eccentric Load +ym=(0.75)*(2.252-1) // Distance(in) +Sm=(31.1/3.54)*(1+(0.667)*(2.252)) // Distance(in) + +//Result +printf("\n Case(a): Allowable load = %0.3f kips",Pall) +printf("\n Case(a): Allowable stress = %0.3f ksi ",S) +printf("\n Case(b): The horizontal deflection of the top of the column = %0.3f in ",ym) +printf("\n Case(b): Maximum normal stress in the column = %0.3f ksi ",Sm) |