summaryrefslogtreecommitdiff
path: root/2504/CH13/EX13.3/13_3.sce
blob: be3ea718437df626ef167aadd7245dbaf2a5f87a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
//initialisation of variables
clear
bip= 135 //degrees
bop= 150 //degrees
bot= 140 //degrees
bos= 137 //degrees
r= 1.8
r1= 1.8
r2= 0.7
r3= 0.95
//CALCULATIONS
R= (1+(cotd(bip)/cotd(bos)))*r^2-r1*(cotd(bop)/cotd(bos))
R1= r2*r3^2*(1+(cotd(bip)/cotd(bos)))-(cotd(bot)/cotd(bos))
R2= (R1-R)/(R-1)
//RESULTS
printf ('R1 = %.2f',R) 
printf ('\n R2 = %.2f',R1) 
printf ('\n Torque ratio = %.2f',R2)