1 files changed, 14 insertions, 0 deletions
diff --git a/149/CH4/EX4.39/ques39.sce b/149/CH4/EX4.39/ques39.sce
new file mode 100755
index 000000000..2b549d92b
--- /dev/null
+++ b/149/CH4/EX4.39/ques39.sce
@@ -0,0 +1,14 @@
+//ques39
+clc
+disp('Angle of intersection');
+disp('point of intersection of r=sint+cost and r=2sint is t=pi/4 ');
+disp('tanu=dQ/dr*r');
+syms Q ;
+
+r1=2*sin(Q);
+r2=sin(Q)+cos(Q);
+u=atan(r1*diff(r2,Q,1));
+Q=%pi/4;
+u=eval(u);
+disp('The angle at point of intersection in radians is : ');
+disp(u);