From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 854/CH7/EX7.3/Example7_3.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 854/CH7/EX7.3/Example7_3.sce

(limited to '854/CH7/EX7.3/Example7_3.sce')

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)   
-- 
cgit