149/CH4/EX4.43/ques43.sce


1
2
3
4
5
6
7
8
9
10
11

//ques43
syms a t
x=a*(t+sin(t));
y=a*(1-cos(t));
s2=diff(y,t,2)/diff(x,t,2);
s1=diff(y,t,1)/diff(x,t,1);

r=(1+s1^2)^(3/2)/s2;
disp('The radius of curvature is : ');
disp(r);