1 files changed, 26 insertions, 0 deletions
diff --git a/149/CH4/EX4.37/ques37.sce b/149/CH4/EX4.37/ques37.sce
new file mode 100755
index 000000000..fb932fa96
--- /dev/null
+++ b/149/CH4/EX4.37/ques37.sce
@@ -0,0 +1,26 @@
+//ques37
+syms a t
+x=a*(cos(t)+log(tan(t/2)));
+y=a*sin(t);
+s=diff(x,t,1)/diff(y,t,1);
+disp('length of tangent ');
+l=y*(1+s)^(0.5);
+disp(l);
+disp('checking for its dependency on t')
+
+f=1
+t=0;
+k=eval(l);
+for i=1:10
+  t=i;
+  if(eval(l)~=k)
+    f=0;
+  end
+end
+if(f==1)
+  disp("verified and equal to a");
+  disp('subtangent');
+  m=y/s;
+  disp(m);
+   
+    
+\ No newline at end of file