summaryrefslogtreecommitdiff
path: root/1325/CH6/EX6.1/6_1.sce
blob: c2179abc290c6f888e74a399f6499c15c6ed89fc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//to find the maximum efficiency
clc
//given
theta=60//degrees
u1=0.15//between surfaces A annd B
u2=0.10//for the guides
phi=atand(u1)
phi1=atand(u2)
alpha=(theta+phi+phi1)/2//from 6.22, maximum efficiency is obtained at alpha
//from 6.23, maximum efficiency is given by nmax=(cos(theta+phi+phi1)+1)/(cos(theta-phi-phi1)+1)
nmax=(cos((theta+phi+phi1)*%pi/180)+1)/(cos((theta-phi-phi1)*%pi/180)+1)
printf("Maximum efficiency = %.4f and it is obtained when alpha = %.2f degrees",nmax,alpha)