1 files changed, 12 insertions, 0 deletions
diff --git a/42/CH3/EX3.9/sadiku_3_9.sce b/42/CH3/EX3.9/sadiku_3_9.sce
new file mode 100755
index 000000000..371f825f7
--- /dev/null
+++ b/42/CH3/EX3.9/sadiku_3_9.sce
@@ -0,0 +1,12 @@
+clear;
+clc;
+ab=integrate('2*sin(P)','P',%pi/3,%pi/6);
+bc=(3^.5 /2)*integrate('p','p',2,5);
+Cd=integrate('5*sin(P)','P',%pi/6,%pi/3);
+da=.5*integrate('p','p',5,2);
+C1=ab+bc+Cd+da;
+disp(C1, 'C1=');
+C2=integrate('sin(Q)','Q',%pi/6,%pi/3)*integrate('(1+p)','p',2,5);
+disp(C2,'C2=');
+disp('Since C1=C2 hence stroke theorem is proved');
+