summaryrefslogtreecommitdiff
path: root/1325/CH10/EX10.5/10_5.sce
blob: d427f860902f54a0f4c2bfd5788c0d7f0eb91157 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//To find the addendum required
clc
//given
t=25
phi=20*%pi/180
//let pitch be 1 
R=t/(2*%pi)//R=t*p/(2*%pi)
Larc=1.6//1.6*p
//AB=Larc*cos(phi)
AB=Larc*cos(phi)
Ra=(4.47+13.97)^(1/2)//by simplifying AB+2{(Ra^2-R^2*cos(phi)^2)-R*sin(phi)} and using p =1
Addendum=Ra-R
//writing p in place of p=1
printf("\nAddendum required = %.2fp",Addendum)