summaryrefslogtreecommitdiff
path: root/1962/CH1/EX1.8/example1_8.sce
blob: 06655f620d29d7f4f11e246bfd7747187b6b768f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//example 1.8
//page 24
clc; funcprot(0);
//initialisation of variable
R1=0.05;//radius 1
R2=0.05+0.00002;//radius 2
L=0.2;
N=30/60;//omega
t=R2-R1;
pi=3.14;
mu=0.44;//viscosity
//part1
U=pi*N*0.1;
T=R1^2*2*pi*U/t*mu*L;//torque
disp(T,"torque applied (Nm)=");
//part2
T=R1*2*pi*mu*L*U/log(R2/R1);
disp(T,"torque applied (Nm)=");
clear