diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1325/CH10/EX10.6/10_6.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '1325/CH10/EX10.6/10_6.sce')
| -rw-r--r-- | 1325/CH10/EX10.6/10_6.sce | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/1325/CH10/EX10.6/10_6.sce b/1325/CH10/EX10.6/10_6.sce new file mode 100644 index 000000000..3d93319c1 --- /dev/null +++ b/1325/CH10/EX10.6/10_6.sce @@ -0,0 +1,29 @@ +//to find thelength of path of contact and the length of arc of contact
+clc
+//let module be 1
+m=1
+t1=28
+t2=45
+r=t1*m/2
+R=t2*m/2
+ra=r+m
+Ra=R+m
+phi1=14.5*%pi/180
+//10.8 => AB =(ra^2-r^2*cos(phi)^2)^(1/2)+(Ra^2-R^2*cos(phi)^2)^(1/2)-(r+R)*sin(phi)
+//AB=A+B-C
+A=m*(ra^2-r^2*cos(phi1)^2)^(1/2)
+B=m*(Ra^2-R^2*cos(phi1)^2)^(1/2)
+C=m*(r+R)*sin(phi1)
+AB=A+B-C
+p=%pi*m
+ABp=AB/%pi
+arc1=ABp/cos(phi1)//length of arc of contact
+phi2=20*%pi/180
+//10.8 => AB =(ra^2-r^2*cos(phi)^2)^(1/2)+(Ra^2-R^2*cos(phi)^2)^(1/2)-(r+R)*sin(phi)
+a=m*(ra^2-r^2*cos(phi2)^2)^(1/2)
+b=m*(Ra^2-R^2*cos(phi2)^2)^(1/2)
+c=m*(r+R)*sin(phi2)
+ab=a+b-c
+abp=ab/%pi
+arc2=abp/cos(phi2)//length of arc of contact
+printf("\nLength of path of contact\nWhen phi = 14.5 degrees = %.3fm\nWhen phi = 20 degrees = %.2fm\nLength of arc of contact\nWhen phi = 14.5 degrees = %.2fp\nWhen phi = 20 degrees = %.3fp\n",AB,ab,arc1,arc2)
|