1 files changed, 11 insertions, 0 deletions
diff --git a/149/CH4/EX4.43/ques43.sce b/149/CH4/EX4.43/ques43.sce
new file mode 100755
index 000000000..79ac06619
--- /dev/null
+++ b/149/CH4/EX4.43/ques43.sce
@@ -0,0 +1,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);
+