7 files changed, 91 insertions, 0 deletions
diff --git a/2615/CH18/EX93.1/93.sce b/2615/CH18/EX93.1/93.sce
new file mode 100755
index 000000000..a2565d3f0
--- /dev/null
+++ b/2615/CH18/EX93.1/93.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+g=450//kg
+f=0.45//kg
+n=135//m
+d=350//mm
+h=60*1000//mm
+//CALCULATIONS
+Q=g/f//kg
+V=(%pi*d*n)/(h)//m/sec
+//RESULTS
+printf('the speed of of the load is raised=% f m/sec',V)
diff --git a/2615/CH18/EX94.2/94.sce b/2615/CH18/EX94.2/94.sce
new file mode 100755
index 000000000..a894d9727
--- /dev/null
+++ b/2615/CH18/EX94.2/94.sce
@@ -0,0 +1,20 @@
+ clc
+//initialisation of variables
+a=250//mm
+z1=5//m
+z2=20//m
+v=0.8//m/sec
+n=0.75//m
+p=35//kg
+m=14//m
+h=220//mm
+n1=30.5//rpm
+q=1/16//mm
+mz=14*5//mm
+//CALCULATIONS
+H=(%pi*m*z1*n1)/(16)//mm
+t=h/H//min
+M=(p*a)/(q)*0.75//kg-mm
+Q=(2*p*a*16*0.75)/(mz)//kg
+//RESULTS
+printf('The kinematic diagram of a rack-type jack=% f kg',Q)
diff --git a/2615/CH18/EX95.3/95.sce b/2615/CH18/EX95.3/95.sce
new file mode 100755
index 000000000..1add83568
--- /dev/null
+++ b/2615/CH18/EX95.3/95.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+s=81//mm
+p=2.5//mm
+//CALCULATIONS
+R=s/p//turns
+//RESULTS
+printf('the screw be turned to displace the slide block for distance=% f turns',R)
diff --git a/2615/CH18/EX96.4/96.sce b/2615/CH18/EX96.4/96.sce
new file mode 100755
index 000000000..3d7be72b9
--- /dev/null
+++ b/2615/CH18/EX96.4/96.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+t=45//degree
+s=3.5//mm
+a=4//mm
+q=360//mm
+//CALCULATIONS
+S=t/q*(a-s)//mm
+//RESULTS
+printf('the displaced and in direction=% f mm',S)
diff --git a/2615/CH18/EX97.5/97.sce b/2615/CH18/EX97.5/97.sce
new file mode 100755
index 000000000..409c2873a
--- /dev/null
+++ b/2615/CH18/EX97.5/97.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+s=8//mm
+n=0.4//m
+a=800//mm
+q=3000//mm
+//CALCULATIONS
+P=(q*s)/(2*%pi*a*n)//kg
+//RESULTS
+printf('the screw jack resresented=% f kg',P)
diff --git a/2615/CH18/EX98.6/98.sce b/2615/CH18/EX98.6/98.sce
new file mode 100755
index 000000000..9ec5b93c6
--- /dev/null
+++ b/2615/CH18/EX98.6/98.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+n=180//rpm
+a=420//mm
+h=a/8//mm
+w=60*n*12//sec
+b=5//mm
+p=20//m
+v=30//m
+r=50//mm/sec
+d=28.5//mm
+//CALCULATIONS
+D=b*p/v//mm
+D1=d*r//mm/sec
+//RESULTS
+printf('the legth of crank =% f mm/sec',D1)
diff --git a/2615/CH18/EX99.7/99.sce b/2615/CH18/EX99.7/99.sce
new file mode 100755
index 000000000..7e34d890f
--- /dev/null
+++ b/2615/CH18/EX99.7/99.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+h=400//mm
+v=540//mm
+l=900//mm
+q=60/40//sec
+a=0.857//sec
+//CALCULATIONS
+H=h*v/(2*l)//mm
+R=H/v//degree
+Tb=q-a//sec
+V=h/a*60/1000//m/min
+V1=h/Tb*60/1000//m/min
+//RESULTS
+printf('the average speed of workin =% f m/min',V1)