1 files changed, 23 insertions, 0 deletions
diff --git a/854/CH7/EX7.3/Example7_3.sce b/854/CH7/EX7.3/Example7_3.sce
new file mode 100755
index 000000000..32b9bb618
--- /dev/null
+++ b/854/CH7/EX7.3/Example7_3.sce
@@ -0,0 +1,23 @@
+//clear//
+//Caption: Program to Determine the electric field of a two infinite radial planes with an interior angle alpha
+//Example 7.3
+//page 180
+clc;
+phi = sym('phi');
+A = sym('A');
+B = sym('B');
+Vo = sym('Vo');
+alpha = sym('alpha');
+aphi = sym('aphi');
+r = sym('r');
+V = integ(A,phi)+B;
+disp(V,'V =');
+V = limit(V,B,0);
+V = limit(V,A,Vo/alpha);
+disp(V,'Potential V after applying boundary conditions =')
+E = -(1/r)*diff(V,phi)*aphi;
+disp(E,'E =')
+//Result
+// V =  B+phi*A   
+// Potential V after applying boundary conditions =  phi*Vo/alpha   
+// E =    -aphi*Vo/(alpha*r)