Added new codeHEADmaster

22 files changed, 209 insertions, 0 deletions

diff --git a/3886/CH7/EX7.1/7_1.sce b/3886/CH7/EX7.1/7_1.sce
new file mode 100644
index 000000000..2c43d0f11
--- /dev/null
+++ b/3886/CH7/EX7.1/7_1.sce
@@ -0,0 +1,14 @@
+//Diameter of wheels

+//refer fig.7.2

+d1=240  //mm

+N1=250  //rpm

+N2=100  //rpm

+d2=N1*d1/N2  //mm

+ans1=d1+d2  //mm

+d3=840/3  //mm

+d4=840-d3  //mm

+d5=(840)/(1+(5/3))  //mm

+d6=840-d5  //mm

+printf("\nd2=%.2f mm\nd3=%.2f mm\nd4=%.2f mm\nd5=%.2f mm\nd6=%.2f mm",d2,d3,d4,d5,d6)

+

+

diff --git a/3886/CH7/EX7.1/7_1.txt b/3886/CH7/EX7.1/7_1.txt
new file mode 100644
index 000000000..93bd62bd2
--- /dev/null
+++ b/3886/CH7/EX7.1/7_1.txt
@@ -0,0 +1,8 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.1.sce', -1)

+

+d2=600.00 mm

+d3=280.00 mm

+d4=560.00 mm

+d5=315.00 mm

+d6=525.00 mm
\ No newline at end of file
diff --git a/3886/CH7/EX7.10/7_10.sce b/3886/CH7/EX7.10/7_10.sce
new file mode 100644
index 000000000..b6b55df36
--- /dev/null
+++ b/3886/CH7/EX7.10/7_10.sce
@@ -0,0 +1,13 @@
+//speed of pinion

+P=480  //N

+Pw=1800  //W

+v=Pw/P  //m/sec

+//module

+m=8

+d=25*m  //mm

+r=d/2000  //m

+omega=v/r  //rad/sec

+N=(60*omega)/(2*%pi)  //rpm

+//rest is theory

+printf("Speed of the pinion N=%.1f rpm",N)

+

diff --git a/3886/CH7/EX7.10/7_10.txt b/3886/CH7/EX7.10/7_10.txt
new file mode 100644
index 000000000..c28bbd54b
--- /dev/null
+++ b/3886/CH7/EX7.10/7_10.txt
@@ -0,0 +1,3 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.10.sce', -1)

+Speed of the pinion N=358.1 rpm
\ No newline at end of file
diff --git a/3886/CH7/EX7.11/7_11.sce b/3886/CH7/EX7.11/7_11.sce
new file mode 100644
index 000000000..728a0fa51
--- /dev/null
+++ b/3886/CH7/EX7.11/7_11.sce
@@ -0,0 +1,9 @@
+//speed of driven shaft

+//a-If the intermediate gears are on different shaft

+TA=25

+TD=100

+NA=160  //rpm

+aND=TA*NA/TD  //rpm

+//b-If the intermediate gears are on the same shaft

+bND=(75*25*160)/(50*100)  //rpm

+printf("\ncase a\nND=%.2f rpm\ncase b\nND=%.2f rpm",aND,bND)

diff --git a/3886/CH7/EX7.11/7_11.txt b/3886/CH7/EX7.11/7_11.txt
new file mode 100644
index 000000000..2a156a29e
--- /dev/null
+++ b/3886/CH7/EX7.11/7_11.txt
@@ -0,0 +1,7 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.11.sce', -1)

+

+case a

+ND=40.00 rpm

+case b

+ND=60.00 rpm
\ No newline at end of file
diff --git a/3886/CH7/EX7.2/7_2.sce b/3886/CH7/EX7.2/7_2.sce
new file mode 100644
index 000000000..3e1b1969a
--- /dev/null
+++ b/3886/CH7/EX7.2/7_2.sce
@@ -0,0 +1,11 @@
+//speed of follower

+d1=600  //mm

+d2=400  //mm

+N1=160  //rpm

+N2=2  //rpm

+//if there is no slip

+aN2=(600*160)/(400)  //rpm

+//when there is 2.5% slip

+p=2.5/100

+bN2=(N1*d1*(100-p))/(d2*100)  //rpm

+printf("\nWhen there is no slip \nN2=%0.2f rpm\nWhen there is 2.5 percent slip \nN2=%0.2f rpm",aN2,bN2)

diff --git a/3886/CH7/EX7.2/7_2.txt b/3886/CH7/EX7.2/7_2.txt
new file mode 100644
index 000000000..511e932fc
--- /dev/null
+++ b/3886/CH7/EX7.2/7_2.txt
@@ -0,0 +1,7 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.2.sce', -1)

+

+When there is no slip 

+N2=240.00 rpm

+When there is 2.5 percent slip 

+N2=239.94 rpm
\ No newline at end of file
diff --git a/3886/CH7/EX7.3/7_3.sce b/3886/CH7/EX7.3/7_3.sce
new file mode 100644
index 000000000..5f9706855
--- /dev/null
+++ b/3886/CH7/EX7.3/7_3.sce
@@ -0,0 +1,11 @@
+//Length of belt

+N2=80

+N1=200

+d1=240

+d2=d1*N1/N2  //mm

+r1=120  //mm

+r2=300  //mm

+l=2500  //mm

+//length of crossbelt

+L=%pi*(r1+r2)+2*l+((r1+r2)^2)/l  //mm

+printf("The length of crossbelt L=%.2f mm",L)

diff --git a/3886/CH7/EX7.3/7_3.txt b/3886/CH7/EX7.3/7_3.txt
new file mode 100644
index 000000000..a629b93a3
--- /dev/null
+++ b/3886/CH7/EX7.3/7_3.txt
@@ -0,0 +1,3 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.3.sce', -1)

+The length of crossbelt L=6390.03 mm
\ No newline at end of file
diff --git a/3886/CH7/EX7.4/7_4.sce b/3886/CH7/EX7.4/7_4.sce
new file mode 100644
index 000000000..d8bd73ed6
--- /dev/null
+++ b/3886/CH7/EX7.4/7_4.sce
@@ -0,0 +1,17 @@
+//range of weight

+//refer fig. 7.5

+//angle of contact

+theta=1.25*2*%pi

+//case 1-Let impending motion of the weight be downward

+//T1=600  //N

+//T2=W

+//from law of rope friction

+//T2=T1*%e^mu*theta

+aW=600*(%e^(0.3*2.5*%pi))  //N

+//case-2 impending motion of W be upward

+//T1=W

+//T2=600 N

+//from law of rope friction

+bW=600/(%e^(0.75*%pi))  //N

+printf("The range of weight that can be supported is from %.2f N to %.2f N",aW,bW)

+

diff --git a/3886/CH7/EX7.4/7_4.txt b/3886/CH7/EX7.4/7_4.txt
new file mode 100644
index 000000000..3e58193f3
--- /dev/null
+++ b/3886/CH7/EX7.4/7_4.txt
@@ -0,0 +1,3 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.4.sce', -1)

+The range of weight that can be supported is from 6330.43 N to 56.87 N
\ No newline at end of file
diff --git a/3886/CH7/EX7.5/7_5.sce b/3886/CH7/EX7.5/7_5.sce
new file mode 100644
index 000000000..da5c740eb
--- /dev/null
+++ b/3886/CH7/EX7.5/7_5.sce
@@ -0,0 +1,15 @@
+//Maximum power that can be transmitted

+alpha=asin((500-300)/2*2500)  //radians

+//angle of contact

+theta=%pi-2*alpha  //radians

+f1=4

+b=100

+t=3

+//T2 may be allowed upto

+T2=f1*b*t  //N

+mu=0.3

+T1=1200/2.505  //N

+r=500/2

+omega=(2*%pi*100)/60

+P=(T2-T1)*r*omega/1000000  //kW

+printf("The maximum power that can be transmitted=%.3f kW",P)

diff --git a/3886/CH7/EX7.5/7_5.txt b/3886/CH7/EX7.5/7_5.txt
new file mode 100644
index 000000000..57e60aa08
--- /dev/null
+++ b/3886/CH7/EX7.5/7_5.txt
@@ -0,0 +1,3 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.5.sce', -1)

+The maximum power that can be transmitted=1.887 kW
\ No newline at end of file
diff --git a/3886/CH7/EX7.6/7_6.sce b/3886/CH7/EX7.6/7_6.sce
new file mode 100644
index 000000000..ac9ffc1ca
--- /dev/null
+++ b/3886/CH7/EX7.6/7_6.sce
@@ -0,0 +1,11 @@
+//Force P required

+//refer fig. 7.6

+mu=0.3

+theta=(250*%pi)/180  //radians

+r=250  //mm

+T1=(300*10^3)/(250*(%e^mu*theta-1))  //N

+T2=(%e^mu*theta)*T1  //N

+//Considering equilibrium of lever arm

+P=(1644.06*50)/(300)  //N

+printf("The required value is P=%.2f N",P)

+

diff --git a/3886/CH7/EX7.6/7_6.txt b/3886/CH7/EX7.6/7_6.txt
new file mode 100644
index 000000000..0426b52d9
--- /dev/null
+++ b/3886/CH7/EX7.6/7_6.txt
@@ -0,0 +1,3 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.6.sce', -1)

+The required value is P=274.01 N
\ No newline at end of file
diff --git a/3886/CH7/EX7.7/7_7.sce b/3886/CH7/EX7.7/7_7.sce
new file mode 100644
index 000000000..80f5174e4
--- /dev/null
+++ b/3886/CH7/EX7.7/7_7.sce
@@ -0,0 +1,28 @@
+//maximum power that can be transmitted

+mu=0.3

+alpha=asin(((480/2)-(320/2))/2500)  //radians

+theta=%pi-2*alpha

+//neglecting centrifugal tension

+f=3

+b=150

+t=8

+//maximum force permitted is

+T2=f*b*t  //N

+T1=T2/%e^mu*theta

+r=480/2

+omega=(2*%pi*800)/60

+aP=((3600-1429.82)*480*2*800*%pi)/(2*60*(10^6))  //kW

+//If centrifugal tension is considered

+v=r*omega/1000  //m/sec

+m=1.32

+Tc=m*v^2  //N

+//maximum force that can be permitted on the belt

+//T=T2+Tc=f*b*t

+bT2=3600-533.62  //N

+bT1=3066.38/2.5178  //N

+//maximum torque that can be transferred

+bP=(bT2-bT1)*v/1000  //kW

+printf("\nneglecting centrifugal tension P=%0.3f kW\nConsidering centrifugal tension P=%0.3f kW",aP,bP) 

+ 

+

+

diff --git a/3886/CH7/EX7.7/7_7.txt b/3886/CH7/EX7.7/7_7.txt
new file mode 100644
index 000000000..e9d926892
--- /dev/null
+++ b/3886/CH7/EX7.7/7_7.txt
@@ -0,0 +1,5 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.7.sce', -1)

+

+neglecting centrifugal tension P=43.634 kW

+Considering centrifugal tension P=37.166 kW
\ No newline at end of file
diff --git a/3886/CH7/EX7.8/7_8.sce b/3886/CH7/EX7.8/7_8.sce
new file mode 100644
index 000000000..c5c42e147
--- /dev/null
+++ b/3886/CH7/EX7.8/7_8.sce
@@ -0,0 +1,13 @@
+//Maximum power transmitted

+m=0.9

+v=20

+Tc=m*v^2  //N

+f=1.5

+d=36

+T=(f*%pi*d^2)/(4)  //N

+T2=T-Tc  //N

+mu=0.3

+theta=220*%pi/180  //radians

+T1=T2/(%e^mu*theta*(1/sind(30)))  //N

+P=(T2-T1)*v/1000  //kW

+printf("maximum power P=%.3f kW ",P)

diff --git a/3886/CH7/EX7.8/7_8.txt b/3886/CH7/EX7.8/7_8.txt
new file mode 100644
index 000000000..26feb9aac
--- /dev/null
+++ b/3886/CH7/EX7.8/7_8.txt
@@ -0,0 +1,3 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.8.sce', -1)

+maximum power P=21.085 kW 
\ No newline at end of file
diff --git a/3886/CH7/EX7.9/7_9.sce b/3886/CH7/EX7.9/7_9.sce
new file mode 100644
index 000000000..8eb7c11b5
--- /dev/null
+++ b/3886/CH7/EX7.9/7_9.sce
@@ -0,0 +1,16 @@
+//parallel shafts connected with spur gearing

+l=540  //mm

+//d2=1080/4  //mm

+//d1=3*d2

+//for a module of 8

+//T1=810/8 but number of teeth is whole no.

+T1=102

+//T2=270/8 but number of teeth is whole no.

+T2=34

+//pitch circle diameter are

+d1=102*8  //mm

+d2=34*8  //mm

+//The exact distance between the shafts

+l=(d1+d2)/2  //mm

+printf("\nT1=%.0d \nT2=%.0d \nl=%.0d mm",T1,T2,l)

+

diff --git a/3886/CH7/EX7.9/7_9.txt b/3886/CH7/EX7.9/7_9.txt
new file mode 100644
index 000000000..a72f4435a
--- /dev/null
+++ b/3886/CH7/EX7.9/7_9.txt
@@ -0,0 +1,6 @@
+ 

+--> exec('E:\My program EM\7. Transmission of power\7.9.sce', -1)

+

+T1=102 

+T2=34 

+l=544 mm
\ No newline at end of file