summaryrefslogtreecommitdiff
path: root/2615
diff options
context:
space:
mode:
Diffstat (limited to '2615')
-rwxr-xr-x2615/CH1/EX1.1/1_1.sce8
-rwxr-xr-x2615/CH1/EX2.1/2_1.sce11
-rwxr-xr-x2615/CH1/EX2.2/3_2.sce8
-rwxr-xr-x2615/CH10/EX43.1/43.sce12
-rwxr-xr-x2615/CH10/EX44.2/44.sce9
-rwxr-xr-x2615/CH10/EX45.3/45.sce9
-rwxr-xr-x2615/CH10/EX46.4/46.sce16
-rwxr-xr-x2615/CH10/EX47.5/47.sce14
-rwxr-xr-x2615/CH11/EX48.1/48.sce11
-rwxr-xr-x2615/CH11/EX49.1/49.sce11
-rwxr-xr-x2615/CH12/EX50.1/50.sce11
-rwxr-xr-x2615/CH12/EX51.2/51.sce11
-rwxr-xr-x2615/CH12/EX52.3/52.sce14
-rwxr-xr-x2615/CH12/EX53.4/53.sce10
-rwxr-xr-x2615/CH13/EX56.1/56.sce8
-rwxr-xr-x2615/CH13/EX57.2/57.sce10
-rwxr-xr-x2615/CH13/EX58.3/58.sce9
-rwxr-xr-x2615/CH13/EX59.4/59.sce9
-rwxr-xr-x2615/CH13/EX60.5/60.sce13
-rwxr-xr-x2615/CH13/EX61.6/61.sce12
-rwxr-xr-x2615/CH13/EX62.7/62.sce9
-rwxr-xr-x2615/CH13/EX63.8/63.sce13
-rwxr-xr-x2615/CH14/EX66.1/66.sce11
-rwxr-xr-x2615/CH14/EX67.2/67.sce8
-rwxr-xr-x2615/CH14/EX68.3/68.sce12
-rwxr-xr-x2615/CH15/EX69.1/69.sce10
-rwxr-xr-x2615/CH15/EX70.2/70.sce9
-rwxr-xr-x2615/CH15/EX71.3/71.sce9
-rwxr-xr-x2615/CH15/EX72.4/72.sce9
-rwxr-xr-x2615/CH15/EX73.6/73.sce10
-rwxr-xr-x2615/CH15/EX74.5/74.sce12
-rwxr-xr-x2615/CH16/EX75.1/75.sce9
-rwxr-xr-x2615/CH16/EX76.2/76.sce9
-rwxr-xr-x2615/CH16/EX77.3/77.sce12
-rwxr-xr-x2615/CH16/EX78.4/78.sce14
-rwxr-xr-x2615/CH16/EX79.5/79.sce21
-rwxr-xr-x2615/CH16/EX80.6/80.sce14
-rwxr-xr-x2615/CH16/EX81.7/81.sce11
-rwxr-xr-x2615/CH16/EX82.8/82.sce21
-rwxr-xr-x2615/CH16/EX85.9/85.sce13
-rwxr-xr-x2615/CH16/EX86.10/86.sce8
-rwxr-xr-x2615/CH16/EX87.11/87.sce10
-rwxr-xr-x2615/CH17/EX92.1/92.sce9
-rwxr-xr-x2615/CH18/EX93.1/93.sce12
-rwxr-xr-x2615/CH18/EX94.2/94.sce20
-rwxr-xr-x2615/CH18/EX95.3/95.sce8
-rwxr-xr-x2615/CH18/EX96.4/96.sce10
-rwxr-xr-x2615/CH18/EX97.5/97.sce10
-rwxr-xr-x2615/CH18/EX98.6/98.sce16
-rwxr-xr-x2615/CH18/EX99.7/99.sce15
-rwxr-xr-x2615/CH2/EX10.7/10_7.sce18
-rwxr-xr-x2615/CH2/EX5.3/5_3.sce9
-rwxr-xr-x2615/CH2/EX6.4/6_4.sce10
-rwxr-xr-x2615/CH2/EX7.5/7_5.sce9
-rwxr-xr-x2615/CH2/EX9.6/9_6.sce17
-rwxr-xr-x2615/CH22/EX101.1/101.sce12
-rwxr-xr-x2615/CH22/EX102.2/102.sce10
-rwxr-xr-x2615/CH22/EX103.3/103.sce12
-rwxr-xr-x2615/CH23/EX107.1/107.sce8
-rwxr-xr-x2615/CH23/EX108.2/108.sce13
-rwxr-xr-x2615/CH23/EX109.3/109.sce9
-rwxr-xr-x2615/CH23/EX110.4/110.sce12
-rwxr-xr-x2615/CH23/EX111.5/111.sce11
-rwxr-xr-x2615/CH24/EX112.1/112.sce16
-rwxr-xr-x2615/CH24/EX113.2/113.sce11
-rwxr-xr-x2615/CH24/EX114.3/114.sce9
-rwxr-xr-x2615/CH3/EX12.1/12_1.sce10
-rwxr-xr-x2615/CH3/EX13.2/13_2.sce8
-rwxr-xr-x2615/CH3/EX14.1/14_3.sce8
-rwxr-xr-x2615/CH3/EX15.4/15_4.sce11
-rwxr-xr-x2615/CH3/EX16.5/16_5.sce21
-rwxr-xr-x2615/CH4/EX17.1/17_1.sce12
-rwxr-xr-x2615/CH4/EX18.2/18_2.sce8
-rwxr-xr-x2615/CH4/EX19.3/19_3.sce9
-rwxr-xr-x2615/CH5/EX21.1/21_1.sce8
-rwxr-xr-x2615/CH5/EX22.2/22_2.sce8
-rwxr-xr-x2615/CH5/EX23.3/23_3.sce9
-rwxr-xr-x2615/CH5/EX24.4/24_4.sce8
-rwxr-xr-x2615/CH5/EX25.5/25_5.sce10
-rwxr-xr-x2615/CH5/EX26.6/26_6.sce9
-rwxr-xr-x2615/CH6/EX28.1/28_1.sce12
-rwxr-xr-x2615/CH6/EX29.2/29_2.sce8
-rwxr-xr-x2615/CH7/EX30.1/30_1.sce10
-rwxr-xr-x2615/CH7/EX31.2/31.sce12
-rwxr-xr-x2615/CH7/EX32.3/32.sce20
-rwxr-xr-x2615/CH7/EX33.4/33.sce9
-rwxr-xr-x2615/CH7/EX34.5/34.sce9
-rwxr-xr-x2615/CH7/EX35.6/35.sce10
-rwxr-xr-x2615/CH7/EX36.7/36.sce12
-rwxr-xr-x2615/CH7/EX37.8/37.sce9
-rwxr-xr-x2615/CH8/EX38.1/38.sce11
-rwxr-xr-x2615/CH8/EX39.2/39.sce10
-rwxr-xr-x2615/CH8/EX40.3/40.sce9
-rwxr-xr-x2615/CH9/EX42.1/42.sce17
94 files changed, 1053 insertions, 0 deletions
diff --git a/2615/CH1/EX1.1/1_1.sce b/2615/CH1/EX1.1/1_1.sce
new file mode 100755
index 000000000..8790081be
--- /dev/null
+++ b/2615/CH1/EX1.1/1_1.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+d=1000//m
+h=60//min
+//CALCULATIONS
+V=d/h*(2/3)//m/min
+//RESULTS
+printf('The unit of velocity =% f m/min',V)
diff --git a/2615/CH1/EX2.1/2_1.sce b/2615/CH1/EX2.1/2_1.sce
new file mode 100755
index 000000000..88bb91193
--- /dev/null
+++ b/2615/CH1/EX2.1/2_1.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+p1=400//kg
+p2=-200//kg
+p3=-350//kg
+p4=100//kg
+p5=-175//kg
+//CALCULATIONS
+F=p1+p2+p3+p4+p5//kg
+//RESULTS
+printf('The resultant of the following five collinear force=% f kg',F)
diff --git a/2615/CH1/EX2.2/3_2.sce b/2615/CH1/EX2.2/3_2.sce
new file mode 100755
index 000000000..369e801dd
--- /dev/null
+++ b/2615/CH1/EX2.2/3_2.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+w=82//kg
+p=45//kg
+//CALCULATIONS
+F=w-p//kg
+//RESULTS
+printf('The force is he exerting on rope =% f kg',F)
diff --git a/2615/CH10/EX43.1/43.sce b/2615/CH10/EX43.1/43.sce
new file mode 100755
index 000000000..484788745
--- /dev/null
+++ b/2615/CH10/EX43.1/43.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+d=125//mm
+D=2000//mm
+n=240//rpm
+t=60*1000//mm/sec
+//CALCULATIONS
+V=%pi*D*n/t//m/sec
+V1=V*(d/D)//m/sec
+an=2*(V)^2/2//m/sec^2
+//RESULTS
+printf('the paripheral velocity=% f m/sec^2',an)
diff --git a/2615/CH10/EX44.2/44.sce b/2615/CH10/EX44.2/44.sce
new file mode 100755
index 000000000..ecd64d739
--- /dev/null
+++ b/2615/CH10/EX44.2/44.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+v=50//m/mim
+D=14//mm
+a=1000//mm
+//CALCULATIONS
+N=(a*v)/(%pi*D)//rpm
+//RESULTS
+printf('The cuttin speed for drilling is equal to the peripheral velocity=% f rpm',N)
diff --git a/2615/CH10/EX45.3/45.sce b/2615/CH10/EX45.3/45.sce
new file mode 100755
index 000000000..4f23c71a4
--- /dev/null
+++ b/2615/CH10/EX45.3/45.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+v=22//m/sec
+n=1500//rpm
+a=1000//m/sec
+//CALCULATIONS
+D=(60*a*v)/(%pi*n)//mm
+//RESULTS
+printf('The diameter must a sheave=f mm',D)
diff --git a/2615/CH10/EX46.4/46.sce b/2615/CH10/EX46.4/46.sce
new file mode 100755
index 000000000..5bd348b5c
--- /dev/null
+++ b/2615/CH10/EX46.4/46.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+D=2000//mm
+a=12.5//mm
+t=5//seconds
+t1=360//degree
+q=9000//degree
+v=1000//m
+//CALCULATIONS
+Fhi=t1*a//Degree
+epl=q/(t)^2//degree/sec^2
+U=t1*t//deg/sec
+V=U/t1//rev/sec
+V1=(%pi*D*t)/v//m/sec
+//RESULTS
+printf('the velocity corresponds peripheral velocity at that moment=% f m/sec',V1)
diff --git a/2615/CH10/EX47.5/47.sce b/2615/CH10/EX47.5/47.sce
new file mode 100755
index 000000000..8d6241dc0
--- /dev/null
+++ b/2615/CH10/EX47.5/47.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+n=400//rpm
+U=6*n//deg/sec
+t=150//deg/sec
+d=360//degree
+a=1.2//mm
+//CALCULATIONS
+Epl=U/t//deg/sec^2
+Fhi=Epl*(t)^2/2//degree
+V=Fhi/d//rev
+T=(%pi*a*Epl)/d//m/sec^2
+//RESULTS
+printf('the number of revolution its executed after power=% f rev',T)
diff --git a/2615/CH11/EX48.1/48.sce b/2615/CH11/EX48.1/48.sce
new file mode 100755
index 000000000..e7f2bc8bf
--- /dev/null
+++ b/2615/CH11/EX48.1/48.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+v=10//m/sec
+f=20//kg
+g=9.81//m/sec
+q=12//m/sec
+//CALCULATIONS
+M=f/q//kg*m^-1 sec^2
+G=M*g//kg
+//RESULTS
+printf('the acceleration due to gravity is =% f kg',G)
diff --git a/2615/CH11/EX49.1/49.sce b/2615/CH11/EX49.1/49.sce
new file mode 100755
index 000000000..5f5e51e56
--- /dev/null
+++ b/2615/CH11/EX49.1/49.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+q=29.43//kg
+v=10//m/sec
+p=2//kg
+g=9.81//m/sec
+//CALCULATIONS
+a=q/g//kg*m^-1 sec^2
+V=v-a*(p/a)//m/sec
+//RESULTS
+printf('The velocity of the body three secounds after =% f m/sec',V)
diff --git a/2615/CH12/EX50.1/50.sce b/2615/CH12/EX50.1/50.sce
new file mode 100755
index 000000000..a041d9449
--- /dev/null
+++ b/2615/CH12/EX50.1/50.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+alf=30//degree
+v=500//m/sec
+g=9.8//sec
+a=60//degre
+//CALCULATIONS
+T=2*v*sind(alf)/g//sec
+L=((v^2)/(g))*sind(a)//km
+//RESULTS
+printf('the time of flight is=% f km',L)
diff --git a/2615/CH12/EX51.2/51.sce b/2615/CH12/EX51.2/51.sce
new file mode 100755
index 000000000..9a1768bb8
--- /dev/null
+++ b/2615/CH12/EX51.2/51.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+g=300//kg
+a=2//m/sec^2
+b=9.81//m/sec
+//CALCULATIONS
+Q=g*a/b//kg
+R=g-Q//kg
+R1=g+Q//kg
+//RESULTS
+printf('the pull of the cable where it is fastened to cage=% f kg',R1)
diff --git a/2615/CH12/EX52.3/52.sce b/2615/CH12/EX52.3/52.sce
new file mode 100755
index 000000000..c7144e27c
--- /dev/null
+++ b/2615/CH12/EX52.3/52.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+d=60//mm
+a=1000//mm
+v=425//m/min
+g=1.6//kg
+g1=0.0015//mm
+h=0.00112//mm
+//CALCULATIONS
+n=(a*v)/(%pi*d)//rpm
+N=h*g*g1*(n)^2//kg
+C=N/g//times
+//RESULTS
+printf('the time of weight of the workpice the will harm the centre=% f times',C)
diff --git a/2615/CH12/EX53.4/53.sce b/2615/CH12/EX53.4/53.sce
new file mode 100755
index 000000000..16d742677
--- /dev/null
+++ b/2615/CH12/EX53.4/53.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+v=60//m/sec
+v1=16.6//m/sec
+r=300//m
+g=9.8//m/sec
+//CALCULATIONS
+R=(v1^4)/((g^2)*(r^2))//km/hr
+//RESULTS
+printf('the ignored thus greatly simplifying the equation=% f km/hr',R)
diff --git a/2615/CH13/EX56.1/56.sce b/2615/CH13/EX56.1/56.sce
new file mode 100755
index 000000000..61380574a
--- /dev/null
+++ b/2615/CH13/EX56.1/56.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+w=28740000//kg-m
+s=6000//m
+//CALCULATIONS
+P=w/s//kg
+//RESULTS
+printf('the average tractive force=% f kg',P)
diff --git a/2615/CH13/EX57.2/57.sce b/2615/CH13/EX57.2/57.sce
new file mode 100755
index 000000000..5e580d525
--- /dev/null
+++ b/2615/CH13/EX57.2/57.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+p1=150//kg
+p2=80//kg
+d=800//mm
+fhi=360//degree
+//CALCULATIONS\
+W=2*%pi*(p1-p2)*0.4//kg-m
+//RESULTS
+printf('the mount of work done by times force=% f kg-m',W)
diff --git a/2615/CH13/EX58.3/58.sce b/2615/CH13/EX58.3/58.sce
new file mode 100755
index 000000000..02dbb7c3f
--- /dev/null
+++ b/2615/CH13/EX58.3/58.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+v=24//m/min
+p=800//kg
+t=60*75//m/min
+//CALCULATIONS
+N=(p*v)/t//hp
+//RESULTS
+printf('the power expended on one cutting stroke=% f hp',N)
diff --git a/2615/CH13/EX59.4/59.sce b/2615/CH13/EX59.4/59.sce
new file mode 100755
index 000000000..e42da7985
--- /dev/null
+++ b/2615/CH13/EX59.4/59.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+w=176//kg-m
+q=1/3//sec
+a=75//min
+//CALCULATIONS
+N=w/(q*a)//hp
+//RESULTS
+printf('the power developed in the process=% f hp',N)
diff --git a/2615/CH13/EX60.5/60.sce b/2615/CH13/EX60.5/60.sce
new file mode 100755
index 000000000..17b9096e4
--- /dev/null
+++ b/2615/CH13/EX60.5/60.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+n=240//rpm
+d=600*0.001//mm
+M=6//m
+a=180//min
+h=75//m
+//CALCULATIONS
+U=M*n//deg/sec
+Mt=(a*h*M)/(%pi*U)//kg-m
+P=(2*Mt)/d//kg
+//RESULTS
+printf('the turning moment trough=% f kg',P)
diff --git a/2615/CH13/EX61.6/61.sce b/2615/CH13/EX61.6/61.sce
new file mode 100755
index 000000000..0d279ecc7
--- /dev/null
+++ b/2615/CH13/EX61.6/61.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+d=80//mm
+p=400//kg
+n=477//kg
+h=1000//mm
+t=60//sec
+//CALCULATIONS
+V=(%pi*d*n)/(h*t)//m/sec
+N=p*V/75//hp
+//RESULTS
+printf('the peripheral velocity of the workpicece=% f m/sec',N)
diff --git a/2615/CH13/EX62.7/62.sce b/2615/CH13/EX62.7/62.sce
new file mode 100755
index 000000000..d3e98aa51
--- /dev/null
+++ b/2615/CH13/EX62.7/62.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+m=38.2//kg
+d=450//rpm
+n=24//hp
+//CALCULATIONS
+P=2*m//kg
+//RESULTS
+printf('the peripheral force=% f kg',P)
diff --git a/2615/CH13/EX63.8/63.sce b/2615/CH13/EX63.8/63.sce
new file mode 100755
index 000000000..3698051ef
--- /dev/null
+++ b/2615/CH13/EX63.8/63.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+v=90/60//m/sec
+d=80//mm
+p=600//kg
+w=90//m/min
+R=0.12//kg
+//CALCULATIONS
+N=(p*v)/(75)//hp
+M=p*0.04//kg-m
+Q=M/R//kg
+//RESULTS
+printf('the cutting speed power=% f kg',Q)
diff --git a/2615/CH14/EX66.1/66.sce b/2615/CH14/EX66.1/66.sce
new file mode 100755
index 000000000..9565a7960
--- /dev/null
+++ b/2615/CH14/EX66.1/66.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+v1=4//m/sec
+h=1.8//m
+v2=1//m/sec
+Q=6//m^3
+q=1000//m/min
+//CALCULATIONS
+N=((q*Q)/(75))*(h+((v1^2)-(v2^2))/(2*9.81))//hp
+//RESULTS
+printf('the potential energy is equal the water=% f hp',N)
diff --git a/2615/CH14/EX67.2/67.sce b/2615/CH14/EX67.2/67.sce
new file mode 100755
index 000000000..90a622c14
--- /dev/null
+++ b/2615/CH14/EX67.2/67.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+a=0.51//mm
+f=0.1//m-kg
+//CALCULATIONS
+N=a/(a+b)//mm
+//RESULTS
+printf('the numberator and denominator of the right side=% f mm',N)
diff --git a/2615/CH14/EX68.3/68.sce b/2615/CH14/EX68.3/68.sce
new file mode 100755
index 000000000..9c022fd58
--- /dev/null
+++ b/2615/CH14/EX68.3/68.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+w=0.95//kg=m
+h=3206*10//kg-m
+G=2250//kg
+k=0.4//mm
+r=45000//mm
+//CALCULATIONS
+n=(1/((G/r)+1))*(1-(k^2))//kg-m
+Wn=h*n//kg-m
+//RESULTS
+printf('the efficincy of the hammer through=% f kg-m',Wn)
diff --git a/2615/CH15/EX69.1/69.sce b/2615/CH15/EX69.1/69.sce
new file mode 100755
index 000000000..495cb9a10
--- /dev/null
+++ b/2615/CH15/EX69.1/69.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+g=400//kg
+h=0.15//mm
+a=0.1//mm
+b=0.995//mm
+//CALCULATIONS
+P=g*(a+h*b)//kg
+//RESULTS
+printf('the force required to do this work if the coefficent=% f kg',P)
diff --git a/2615/CH15/EX70.2/70.sce b/2615/CH15/EX70.2/70.sce
new file mode 100755
index 000000000..9c7466a96
--- /dev/null
+++ b/2615/CH15/EX70.2/70.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+k=25//mm
+l=200//mm
+p=50//kg
+//CALCULATIONS
+N=p*sqrt((k)^2+(l)^2)/k//kg
+//RESULTS
+printf('the magnitudes force=% f kg',N)
diff --git a/2615/CH15/EX71.3/71.sce b/2615/CH15/EX71.3/71.sce
new file mode 100755
index 000000000..e0fc513b0
--- /dev/null
+++ b/2615/CH15/EX71.3/71.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+q=120//kg
+b=300//mm
+a=40//m
+//CALCULATIONS
+P=q*a/b//kg
+//RESULTS
+printf('the magnitude of force=% f kg',P)
diff --git a/2615/CH15/EX72.4/72.sce b/2615/CH15/EX72.4/72.sce
new file mode 100755
index 000000000..13c8095bc
--- /dev/null
+++ b/2615/CH15/EX72.4/72.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+a=251//mm
+b=1000//mm
+l=500//mm
+//CALCULATIONS
+D=a-(l/2)//mm
+//RESULTS
+printf('the lever just studies =% f mm',D)
diff --git a/2615/CH15/EX73.6/73.sce b/2615/CH15/EX73.6/73.sce
new file mode 100755
index 000000000..57716461a
--- /dev/null
+++ b/2615/CH15/EX73.6/73.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+d=200//mm
+p=8//in
+n=0.8//in
+s=100//m
+//CALCULATIONS
+R=(d*n)/p*p//mm
+//RESULTS
+printf('the numerical value is =% f mm',R)
diff --git a/2615/CH15/EX74.5/74.sce b/2615/CH15/EX74.5/74.sce
new file mode 100755
index 000000000..ddcb7f9c2
--- /dev/null
+++ b/2615/CH15/EX74.5/74.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+p=16//kg
+n=0.6//mm
+q=200//kg
+R=175//mm
+r=150//mm
+a=25//mm
+//CALCULATIONS
+A=(q*a)/(2*p*n)//mm
+//RESULTS
+printf('the length of the crank a=% f mm',A)
diff --git a/2615/CH16/EX75.1/75.sce b/2615/CH16/EX75.1/75.sce
new file mode 100755
index 000000000..8de162d8d
--- /dev/null
+++ b/2615/CH16/EX75.1/75.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+d=180//mm
+h=1000//rpm
+n=320//rpm
+//CALCULATIONS
+D=d*(h/n)//mm
+//RESULTS
+printf('the diameter of the follower sheave=% f mm',D)
diff --git a/2615/CH16/EX76.2/76.sce b/2615/CH16/EX76.2/76.sce
new file mode 100755
index 000000000..5b32afed8
--- /dev/null
+++ b/2615/CH16/EX76.2/76.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+n=400//rpm
+d=560//mm
+w=300//mm
+//CALCULATIONS
+N=n*(d/w)//rpm
+//RESULTS
+printf('the sheave on the motor attain=% f rpm',N)
diff --git a/2615/CH16/EX77.3/77.sce b/2615/CH16/EX77.3/77.sce
new file mode 100755
index 000000000..b32bcc8e5
--- /dev/null
+++ b/2615/CH16/EX77.3/77.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+n=1500//rpm
+d1=180//mm
+d2=540//mm
+d3=160//mm
+d4=400//mm
+//CALCULATIONS
+M=(d1/d2)*(d3/d4)//mm
+N=n*M//rpm
+//RESULTS
+printf('the total speed ratio=% f rpm',N)
diff --git a/2615/CH16/EX78.4/78.sce b/2615/CH16/EX78.4/78.sce
new file mode 100755
index 000000000..52697ea0d
--- /dev/null
+++ b/2615/CH16/EX78.4/78.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+N=7.4//kw
+n=N*1.36//hp
+n1=1500//rpm
+q=716.2//mm
+m1=2/15//kg-m
+d=400//rpm
+m=35812//kg-m
+//CALCULATIONS
+Mt=q*(n/n1)//kg-m
+P=2*m/d//kg
+//RESULTS
+printf('the effictive pull=% f kg',P)
diff --git a/2615/CH16/EX79.5/79.sce b/2615/CH16/EX79.5/79.sce
new file mode 100755
index 000000000..5ca978071
--- /dev/null
+++ b/2615/CH16/EX79.5/79.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+n=200//rpm
+N=1.5//hp
+d=400//mm
+f=0.15//mm
+n2=1000//rpm
+m1=71620//mm
+p=1074.3//kg-cm
+d1=40//kg
+q=8/2//kg
+//CALCULATIONS
+D=d*(n/n2)//mm
+M1=m1*(N/n)//kg-cm
+P=p/d1//kg
+Q=P/f//kg
+M2=P*q//kg-cm
+M3=M1/5//kg-cm
+M=m1*(N/n2)//kg-cm
+//RESULTS
+printf('the diameter an the torque=% f kg-cm',M)
diff --git a/2615/CH16/EX80.6/80.sce b/2615/CH16/EX80.6/80.sce
new file mode 100755
index 000000000..6ea1f37f8
--- /dev/null
+++ b/2615/CH16/EX80.6/80.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+z1=20//mm
+z2=50//mm
+z3=30//mm
+z4=60//mm
+z5=25//mm
+z6=100//mm
+h=1500//rpm
+//CALCULATIONS
+N=h*((z1*z3)/(z2*z4))//rpm
+N4=h*((z1*z3*z5)/(z2*z4*z6))//rpm)
+//RESULTS
+printf('the train of gears =% f rpm',N4)
diff --git a/2615/CH16/EX81.7/81.sce b/2615/CH16/EX81.7/81.sce
new file mode 100755
index 000000000..99505960c
--- /dev/null
+++ b/2615/CH16/EX81.7/81.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+n1=750//rpm
+z1=14//m
+z2=70//m
+z3=15//m
+z4=45//m
+//CALCULATIONS
+N=n1*((z1*z3)/(z2*z4))//rpm
+//RESULTS
+printf('the driving gear on shaft=% f rpm',N)
diff --git a/2615/CH16/EX82.8/82.sce b/2615/CH16/EX82.8/82.sce
new file mode 100755
index 000000000..78d7ccaf7
--- /dev/null
+++ b/2615/CH16/EX82.8/82.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+z1=12//m
+z2=36//m
+z3=22//m
+z4=28//m
+z5=12//m
+z6=72//m
+q=18//mm
+z=25//m
+m=0.3//kg-cm
+n=0.9//m
+a=600//mm
+M=a*(0.2/2)//kg-m
+H=M*m*q*n//mm
+//CALCULATIONS
+V=(%pi*0.2*z)/(60*q)//m/sec
+V1=(2*%pi*m*z)/(60*1000)//hp
+N=(12.5*%pi*m*z)/(30*75)//hp
+//RESULTS
+printf('the kinematic scheme of a einch with hand crank=% f hp',N)
diff --git a/2615/CH16/EX85.9/85.sce b/2615/CH16/EX85.9/85.sce
new file mode 100755
index 000000000..60f86d7e5
--- /dev/null
+++ b/2615/CH16/EX85.9/85.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+z=60//mm
+l=15//mm
+h=5//mm
+h1=1.2*h//mm
+h2=0.5//mm
+//CALCULATIONS
+m=l/%pi//mm
+s=h2*%pi//mm
+D=h*(60+2)//mm
+//RESULTS
+printf('the tooth pitch value of the model=% f mm',D)
diff --git a/2615/CH16/EX86.10/86.sce b/2615/CH16/EX86.10/86.sce
new file mode 100755
index 000000000..1a68a434e
--- /dev/null
+++ b/2615/CH16/EX86.10/86.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+h=126//mm
+q=36//mm
+//CALCULATIONS
+M=h/q//mm
+//RESULTS
+printf('the module of a gear by making=% f mm',M)
diff --git a/2615/CH16/EX87.11/87.sce b/2615/CH16/EX87.11/87.sce
new file mode 100755
index 000000000..d594fe5d2
--- /dev/null
+++ b/2615/CH16/EX87.11/87.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+z=46//m
+t=4//mm
+h=2.2//mm
+//CALCULATIONS
+D=t*(z+2)//mm
+H=h*t//mm
+//RESULTS
+printf('the cutting depth of the milling machine=% f mm',H)
diff --git a/2615/CH17/EX92.1/92.sce b/2615/CH17/EX92.1/92.sce
new file mode 100755
index 000000000..7f7b9384c
--- /dev/null
+++ b/2615/CH17/EX92.1/92.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+z=40//mm
+q=28//m
+w=1*21/49//mm
+//CALCULATIONS
+P=z/q//mm
+//RESULTS
+printf('the workpicece handle the circle=% f mm',P)
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)
diff --git a/2615/CH2/EX10.7/10_7.sce b/2615/CH2/EX10.7/10_7.sce
new file mode 100755
index 000000000..513dd4630
--- /dev/null
+++ b/2615/CH2/EX10.7/10_7.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+p1=23//kg
+p2=27.5//kg
+p3=21.3//kg
+p4=30//kg
+p5=30//kg
+a1=26//degree
+a2=68//degree
+a3=15//degree
+a4=59//degree
+a5=31//degree
+//CALCULATIONS
+Rx=p1*cosd(a1)-p2*cosd(a2)-p3*cosd(a3)-p4*cosd(a4)+p5*cosd(a5)//kg
+Ry=-p1*sind(a1)-p2*sind(a2)-p3*sind(a3)+p4*sind(a4)+p5*sind(a5)//kg
+//RESULTS
+printf('the system is in equilibrium=% f kg',Rx)
+printf('the system is in equilibrium=% f kg',Ry)
diff --git a/2615/CH2/EX5.3/5_3.sce b/2615/CH2/EX5.3/5_3.sce
new file mode 100755
index 000000000..9d96587b7
--- /dev/null
+++ b/2615/CH2/EX5.3/5_3.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+py=55//kg
+pz=93//kg
+//CALCULATIONS
+R=sqrt((py)^2+(pz)^2)//kg
+Fhi=py/pz//kg
+//RESULTS
+printf('the magnitude and the direction of the resultant can be determined by the pythagoream theprem=% f kg',Fhi)
diff --git a/2615/CH2/EX6.4/6_4.sce b/2615/CH2/EX6.4/6_4.sce
new file mode 100755
index 000000000..f135b6c4d
--- /dev/null
+++ b/2615/CH2/EX6.4/6_4.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+p=1200//kg
+p1=800//min
+p2=600//min
+//CALCULATIONS
+w=p2/p1*p//kg
+F=sqrt((p2)^2+(p1)^2)/(p1)*p//kg
+//RESULTS
+printf('the force acting =% f kg',F)
diff --git a/2615/CH2/EX7.5/7_5.sce b/2615/CH2/EX7.5/7_5.sce
new file mode 100755
index 000000000..335b4059b
--- /dev/null
+++ b/2615/CH2/EX7.5/7_5.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+a=30//degree
+p=80//kg
+b=cosd(a)//degree
+//CALCULATIONS
+F=p*b//kg
+//RESULTS
+printf('the bar exert on the slide-block=% f kg',F)
diff --git a/2615/CH2/EX9.6/9_6.sce b/2615/CH2/EX9.6/9_6.sce
new file mode 100755
index 000000000..2963a6fbb
--- /dev/null
+++ b/2615/CH2/EX9.6/9_6.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+p1=20//kg
+p2=25//kg
+p3=30//kg
+p4=40//kg
+alf1=70//degree
+alf2=30//degree
+alf3=20//degree
+alf4=60//degree
+//CALCULATIONS
+Rx=-p1*cosd(alf1)+p2*cosd(alf2)+p3*cosd(alf3)-p4*cosd(alf4)//kg
+Ry=-p1*sind(alf1)-p2*sind(alf2)+p3*sind(alf3)+p4*sind(alf4)//kg
+R=sqrt((Rx)^2+(Ry)^2)//kg
+Tan=Ry/Rx//degree
+//RESULTS
+printf('The angle of horizontal axis=% f kg',Tan)
diff --git a/2615/CH22/EX101.1/101.sce b/2615/CH22/EX101.1/101.sce
new file mode 100755
index 000000000..d5aae9f3e
--- /dev/null
+++ b/2615/CH22/EX101.1/101.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+dl=0.0272//mm
+p=500//kg
+f=181.2//mm^2
+l=200//mm
+//CALCULATIONS
+sig=p/f//kg/mm^2
+epl=dl/l//kg/mm^2
+E=(p*l)/(f*dl)//kg/mm^2
+//RESULTS
+printf('the modulus of elasticity E=% f kg/mm^2',E)
diff --git a/2615/CH22/EX102.2/102.sce b/2615/CH22/EX102.2/102.sce
new file mode 100755
index 000000000..748bad11d
--- /dev/null
+++ b/2615/CH22/EX102.2/102.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+f=2//mm
+e=2000000//mm
+l=200//mm
+p=3000//mm
+//CALCULATIONS
+Del=(p*l)/(e*f)//cm
+//RESULTS
+printf('the absolute elongation of a steel bar =% f cm',Del)
diff --git a/2615/CH22/EX103.3/103.sce b/2615/CH22/EX103.3/103.sce
new file mode 100755
index 000000000..5513836bf
--- /dev/null
+++ b/2615/CH22/EX103.3/103.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+l=20//m
+e=0.00025//mm
+E=2000000//kg/cm^2
+f=19.6//cm^2
+//CALCULATIONS
+sig=E*e//kg/cm^2
+Del=sig*f//kg
+L=e*l//m
+//RESULTS
+printf('the pressure of bearings normal operations=% f m',L)
diff --git a/2615/CH23/EX107.1/107.sce b/2615/CH23/EX107.1/107.sce
new file mode 100755
index 000000000..4f53d4cda
--- /dev/null
+++ b/2615/CH23/EX107.1/107.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+d=1.5//mm
+s=900//kg/cm^2
+//CALCULATIONS
+P=2*%pi*(d)^2/4*s//kg
+//RESULTS
+printf('the maximum shear P=% f kg',P)
diff --git a/2615/CH23/EX108.2/108.sce b/2615/CH23/EX108.2/108.sce
new file mode 100755
index 000000000..815b87f80
--- /dev/null
+++ b/2615/CH23/EX108.2/108.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+m=29//kg-m
+d=45//mm
+b=14//mm
+l=70//mm
+F=9.8//mm^2
+M=2900//mm
+t=2.25//mm
+//CALCULATIONS
+T=M/(t*F)//kg/cm^2
+//RESULTS
+printf('the shear exerted on the prismatic key=% f kg/cm^2',T)
diff --git a/2615/CH23/EX109.3/109.sce b/2615/CH23/EX109.3/109.sce
new file mode 100755
index 000000000..82791aa36
--- /dev/null
+++ b/2615/CH23/EX109.3/109.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+p=2900//kg
+d=13//mm
+f=1.3//mm
+//CALCULATIONS
+T=p*2/(%pi*(f)^2)//kg/cm^2
+//RESULTS
+printf('the shearing stress in the shanks of the rivets=% f kg/cm^2',T)
diff --git a/2615/CH23/EX110.4/110.sce b/2615/CH23/EX110.4/110.sce
new file mode 100755
index 000000000..5b4a1eefd
--- /dev/null
+++ b/2615/CH23/EX110.4/110.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+d=10//mm
+b=60//kg/mm^2
+del=8//mm
+sig=11.0+0.56*60//kg/mm^2
+l=%pi*10//mm
+f=l*del//mm^2
+//CALCULATIONS
+P=f*sig//kg
+//RESULTS
+printf('the pressure P=% f kg',P)
diff --git a/2615/CH23/EX111.5/111.sce b/2615/CH23/EX111.5/111.sce
new file mode 100755
index 000000000..b728100fa
--- /dev/null
+++ b/2615/CH23/EX111.5/111.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+d=60//mm
+m=8600//kg-cm
+G=800000//kg-cm
+l=150//cm
+//CALCULATIONS
+T=16*m/(%pi*(6)^3)//kg/cm^2
+Fhi=(180/%pi)*((m*l*2)/(G*%pi*(3)^4))//degree
+//RESULTS
+printf('the maximum stress on a cross section of the shaft=% f degree',Fhi)
diff --git a/2615/CH24/EX112.1/112.sce b/2615/CH24/EX112.1/112.sce
new file mode 100755
index 000000000..1f58d43f9
--- /dev/null
+++ b/2615/CH24/EX112.1/112.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+clear
+n=200//rpm
+N1=18//hp
+N2=12//hp
+N3=6//hp
+R=400//kg/cm^2
+w=71620//cm
+q=0.2//cm
+//CALCULATIONS
+D1=((w/(0.2*R))*(N2/n))^(1/3)*10
+D2=((w/(0.2*R))*(N3/n))^(1/3)*10
+//RESULTS
+printf ('Diameter of Shaft = %.f mm',D1)
+printf ('\n Diameter of Shaft = %.f mm',D2)
diff --git a/2615/CH24/EX113.2/113.sce b/2615/CH24/EX113.2/113.sce
new file mode 100755
index 000000000..f513c05a1
--- /dev/null
+++ b/2615/CH24/EX113.2/113.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+p=1000//kg
+l=400//mm
+a=150//mm
+w=14*20^2//cm^2
+//CALCULATIONS
+R=p*(l-a)/l//kg
+Lam=6*R*a/w//kg/cm^2
+//RESULTS
+printf('The maximum stress at the critical section=% f kg/cm^2',Lam)
diff --git a/2615/CH24/EX114.3/114.sce b/2615/CH24/EX114.3/114.sce
new file mode 100755
index 000000000..3227810de
--- /dev/null
+++ b/2615/CH24/EX114.3/114.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+b=5400//kg
+h=6//kg
+p=3*4^2//kg
+//CALCULATIONS
+M=b*h/p//kg/cm^2
+//RESULTS
+printf('the maximum bending moment=% f kg/cm^2',M)
diff --git a/2615/CH3/EX12.1/12_1.sce b/2615/CH3/EX12.1/12_1.sce
new file mode 100755
index 000000000..ccf670bf1
--- /dev/null
+++ b/2615/CH3/EX12.1/12_1.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+g=1200//kg
+a=1500//min
+l=4500//min
+//CALCULATIONS
+P=g*a/l//kg
+P1=g-P//kg
+//RESULTS
+printf('the position of load=% f kg',P1)
diff --git a/2615/CH3/EX13.2/13_2.sce b/2615/CH3/EX13.2/13_2.sce
new file mode 100755
index 000000000..ffc31d913
--- /dev/null
+++ b/2615/CH3/EX13.2/13_2.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+p=900//kg
+l=60//min
+//CALCULATIONS
+M=p*l//kg
+//RESULTS
+printf('the moment of force =% f kg',M)
diff --git a/2615/CH3/EX14.1/14_3.sce b/2615/CH3/EX14.1/14_3.sce
new file mode 100755
index 000000000..4adb93b3e
--- /dev/null
+++ b/2615/CH3/EX14.1/14_3.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+d=80//min
+p=900//min
+//CALCULATIONS
+M=p*d/2//kg.cm
+//RESULTS
+printf('The moment of force P with respect point=% f kg cm',M)
diff --git a/2615/CH3/EX15.4/15_4.sce b/2615/CH3/EX15.4/15_4.sce
new file mode 100755
index 000000000..8ef4c9f82
--- /dev/null
+++ b/2615/CH3/EX15.4/15_4.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+p1=30//kg
+p2=53//kg
+p3=70//kg
+a1=80//degree
+a2=250//degree
+//CALCULATIONS
+R=p1+p3-p2//kg
+//RESULTS
+printf('the resultant parallel force=% f kg',R)
diff --git a/2615/CH3/EX16.5/16_5.sce b/2615/CH3/EX16.5/16_5.sce
new file mode 100755
index 000000000..9907dcfb1
--- /dev/null
+++ b/2615/CH3/EX16.5/16_5.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+p1=200//kg
+p2=300//kg
+p3=250//kg
+a1=1//m
+a2=1.5//m
+a3=2//m
+l=5//m
+w=20//kg
+L=5.5//m
+Rb=415//kg
+Ra=1325//kg
+//CALCULATIONS
+RA=p1+p2+p3//kg
+RB=RA-Rb//kg
+B=L*w//kg
+R=RB+(B/2)//kg
+S=Rb+(B/2)//kg
+//RESULTS
+printf('the beam lying is force=% f kg',S)
diff --git a/2615/CH4/EX17.1/17_1.sce b/2615/CH4/EX17.1/17_1.sce
new file mode 100755
index 000000000..9447d22fc
--- /dev/null
+++ b/2615/CH4/EX17.1/17_1.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+l=1000//mm
+L=l/2//mm
+y=2.6//g/cu
+y1=7.85//g/cu
+a=375//mm
+//CALCULATIONS
+D=y1/y//mm
+C=L/2+a//mm
+//RESULTS
+printf('the centre of gravity of the shaft=% f mm',C)
diff --git a/2615/CH4/EX18.2/18_2.sce b/2615/CH4/EX18.2/18_2.sce
new file mode 100755
index 000000000..61ee44247
--- /dev/null
+++ b/2615/CH4/EX18.2/18_2.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+v=(300-40)*30*5//cu mm
+v1=120*40*15//cu mm
+//CALCULATIONS
+C=v/v1//cu mm
+//RESULTS
+printf('The centre of gravity=% f cu mm',C)
diff --git a/2615/CH4/EX19.3/19_3.sce b/2615/CH4/EX19.3/19_3.sce
new file mode 100755
index 000000000..c2b76b2b9
--- /dev/null
+++ b/2615/CH4/EX19.3/19_3.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+g=5//kg
+a=200//mm
+l=340//mm
+//CALCULATIONS
+G=g*a/l//kg
+//RESULTS
+printf('the magnitude of the force =% f kg',G)
diff --git a/2615/CH5/EX21.1/21_1.sce b/2615/CH5/EX21.1/21_1.sce
new file mode 100755
index 000000000..08439249a
--- /dev/null
+++ b/2615/CH5/EX21.1/21_1.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+w=1200//kg
+f=0.3//kg
+//CALCULATIONS
+F=f*w//kg
+//RESULTS
+printf('the force will be necessary ti slide=% f kg',F)
diff --git a/2615/CH5/EX22.2/22_2.sce b/2615/CH5/EX22.2/22_2.sce
new file mode 100755
index 000000000..c9f4ff47b
--- /dev/null
+++ b/2615/CH5/EX22.2/22_2.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+p=2//kg
+g=20//kg
+//CALCULATIONS
+F=p/g//kg
+//RESULTS
+printf('the coefficent of friction=% f kg',F)
diff --git a/2615/CH5/EX23.3/23_3.sce b/2615/CH5/EX23.3/23_3.sce
new file mode 100755
index 000000000..548a02b0a
--- /dev/null
+++ b/2615/CH5/EX23.3/23_3.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+g=12//kg
+p=23//kg
+a=14//degree
+//CALCULATIONS
+F=(p*sind(a))/(p*cosd(a)+g)//kg
+//RESULTS
+printf('the coefficient of friction if the force=% f kg',F)
diff --git a/2615/CH5/EX24.4/24_4.sce b/2615/CH5/EX24.4/24_4.sce
new file mode 100755
index 000000000..9db9472fc
--- /dev/null
+++ b/2615/CH5/EX24.4/24_4.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+a=400//mm
+h=100//mm
+//CALCULATIONS
+F=h/a//mm
+//RESULTS
+printf('the coefficint of the friction=% f mm',F)
diff --git a/2615/CH5/EX25.5/25_5.sce b/2615/CH5/EX25.5/25_5.sce
new file mode 100755
index 000000000..5b6ba334d
--- /dev/null
+++ b/2615/CH5/EX25.5/25_5.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+w=1200//kg
+f=0.08//cm
+l=0.5//kg
+p=f*(w/75)//kg
+//CALCULATIONS
+P=w*l//kg
+//RESULTS
+printf('a wood drum together with its content=% f kg',P)
diff --git a/2615/CH5/EX26.6/26_6.sce b/2615/CH5/EX26.6/26_6.sce
new file mode 100755
index 000000000..cbb8d8e9a
--- /dev/null
+++ b/2615/CH5/EX26.6/26_6.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+k=0.006//mm
+Q=200000//kg
+d=15//mm
+//CALCULATIONS
+P=k*(2*Q/d)//kg
+//RESULTS
+printf('the acting along the length of the bridge=% f kg',P)
diff --git a/2615/CH6/EX28.1/28_1.sce b/2615/CH6/EX28.1/28_1.sce
new file mode 100755
index 000000000..5cbc1ba9b
--- /dev/null
+++ b/2615/CH6/EX28.1/28_1.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+s0=25//cm
+s1=28//cm
+s2=23//cm
+s3=10//cm
+s4=-11//cm
+s5=-40//cm
+//CALCULATIONS
+M=s1-s0+s1-s5//cm
+//RESULTS
+printf('the displacement are load=% f cm',M)
diff --git a/2615/CH6/EX29.2/29_2.sce b/2615/CH6/EX29.2/29_2.sce
new file mode 100755
index 000000000..63b5dc873
--- /dev/null
+++ b/2615/CH6/EX29.2/29_2.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+t=4.5//sec
+a=2//mm
+//CALCULATIONS
+X=a*(t)^2//cm
+//RESULTS
+printf('the perpendicular at point=% f cm',X)
diff --git a/2615/CH7/EX30.1/30_1.sce b/2615/CH7/EX30.1/30_1.sce
new file mode 100755
index 000000000..f0ade6f7b
--- /dev/null
+++ b/2615/CH7/EX30.1/30_1.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+s=1000//mm
+l=800//mm
+f=0.2//mm
+r=f*l//mm
+//CALCULATIONS
+T=s/r//min
+//RESULTS
+printf('the cutter to pass down the entire length of the shaft=% f min',T)
diff --git a/2615/CH7/EX31.2/31.sce b/2615/CH7/EX31.2/31.sce
new file mode 100755
index 000000000..ff00453f0
--- /dev/null
+++ b/2615/CH7/EX31.2/31.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+w=2800//mm
+v=21//m/min
+x=30//m/min
+q=2.8//mm
+//CALCULATIONS
+Tc=q/v*60//sec
+Ts=q/x*60//sec
+//RESULTS
+printf('the time required for thecutting stroke=% f sec',Tc)
+printf('The time required for the return stroke=% f sec',Ts)
diff --git a/2615/CH7/EX32.3/32.sce b/2615/CH7/EX32.3/32.sce
new file mode 100755
index 000000000..53aa78c63
--- /dev/null
+++ b/2615/CH7/EX32.3/32.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+m=400//mm
+v=1.25//sec
+s1=22//mm
+s2=71//mm
+s3=200//mm
+s4=134//mm
+q=8//equal
+//CALCULATIONS
+S=s2-s1//mm
+S1=s4-s2//mm
+S2=s3-s4//mm
+V=m/v//mm/sec
+V1=s1*q/v//mm/sec
+V2=S*q/v//mm/sec
+V3=S1*q/v//mm/sec
+V4=S2*q/v//mm/sec
+//RESULTS
+printf('the average velocity of the ram for the entire=% f mm/sec',V4)
diff --git a/2615/CH7/EX33.4/33.sce b/2615/CH7/EX33.4/33.sce
new file mode 100755
index 000000000..f3fb729c8
--- /dev/null
+++ b/2615/CH7/EX33.4/33.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+h=15//m/sec
+v=12.5//m/sec
+t=90//sec
+//CALCULATIONS
+A=(h-v)/t//m/sec^2
+//RESULTS
+printf('the acceleration=% f m/sec^2',A)
diff --git a/2615/CH7/EX34.5/34.sce b/2615/CH7/EX34.5/34.sce
new file mode 100755
index 000000000..f8ff8864d
--- /dev/null
+++ b/2615/CH7/EX34.5/34.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+a=0.139//m/sec^2
+h=12.5//m/sec
+t=120//m/sec
+//CALCULATIONS
+V=h+a*t//m/sec
+//RESULTS
+printf('The acceleration level trackage it was travelling at speed=% f m/sec',V)
diff --git a/2615/CH7/EX35.6/35.sce b/2615/CH7/EX35.6/35.sce
new file mode 100755
index 000000000..781ebd57f
--- /dev/null
+++ b/2615/CH7/EX35.6/35.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+a=1/9//m/sec^2
+t=180//sec
+h=20//m/sec
+q=9//m/sec
+//CALCULATIONS
+S=h*t-(((t)^2)/(q*2))//m
+//RESULTS
+printf('the distance the train travelled after braking=% f m',S)
diff --git a/2615/CH7/EX36.7/36.sce b/2615/CH7/EX36.7/36.sce
new file mode 100755
index 000000000..fd7d766df
--- /dev/null
+++ b/2615/CH7/EX36.7/36.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+v01=54//m/sec
+v0=15//m/sec
+t=120//sec
+s=900//m
+vt=0//m
+//CALCULATIONS
+a=((vt)^2-(v01)^2)/(2*s)//m/sec^2
+A=((vt)^2-(v0)^2)/(2*s)//m/sec^2
+//RESULTS
+printf('the train to stop after the brakes were applied=% f m/sec^2',A)
diff --git a/2615/CH7/EX37.8/37.sce b/2615/CH7/EX37.8/37.sce
new file mode 100755
index 000000000..29972da3e
--- /dev/null
+++ b/2615/CH7/EX37.8/37.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+v=9.81//m
+h=10//m
+//CALCULATIONS
+H=v*(h)^2/2//m
+Vt=v*h//m/sec
+//RESULTS
+printf('the velocity at the final moment=% f m/sec',Vt)
diff --git a/2615/CH8/EX38.1/38.sce b/2615/CH8/EX38.1/38.sce
new file mode 100755
index 000000000..1b5f86a77
--- /dev/null
+++ b/2615/CH8/EX38.1/38.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+v1=3//km/hr
+v2=12//km/hr
+t=1.5//hr
+t2=2.5//hr
+//CALCULATIONS
+V=(v1+v2)*t//km/hr
+V1=(v2-v1)*t2//km/hr
+//RESULTS
+printf('velocity of current and water=% f km/hr',V1)
diff --git a/2615/CH8/EX39.2/39.sce b/2615/CH8/EX39.2/39.sce
new file mode 100755
index 000000000..76d7793e1
--- /dev/null
+++ b/2615/CH8/EX39.2/39.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+d=80//mm
+d1=60//mm
+t=100//mm
+//CALCULATIONS
+D=(d-d1)/2//mm
+V=t/D//mm
+//RESULTS
+printf('the ratio between the velocity =% f mm',D)
diff --git a/2615/CH8/EX40.3/40.sce b/2615/CH8/EX40.3/40.sce
new file mode 100755
index 000000000..cd823329d
--- /dev/null
+++ b/2615/CH8/EX40.3/40.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+v=60//m/sec
+a=30//mm
+b=120//mm
+//CALCULATIONS
+V=v*(b/a)//mm/sec
+//RESULTS
+printf('the velocity of the follower it the groove=% f mm/sec',V)
diff --git a/2615/CH9/EX42.1/42.sce b/2615/CH9/EX42.1/42.sce
new file mode 100755
index 000000000..529f4266d
--- /dev/null
+++ b/2615/CH9/EX42.1/42.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+a=0.2//m/sec^2
+R=1//m
+t1=9//sec
+t=3//sec
+v=0.36//m/sec^2
+a1=0.04//m/sec
+a2=0.129//m/sec
+//CALCULATIONS
+V1=a*t//m/sec
+An=v/R//m/sec^2
+A=sqrt(a1+a2)//m/sec^2
+ta=An/a//m/sec^2
+S=a*t1/2//m
+//RESULTS
+printf('the velocity and acceleration of the particle=% f m',S)