1 files changed, 23 insertions, 0 deletions
diff --git a/854/CH8/EX8.2/Example8_2.sce b/854/CH8/EX8.2/Example8_2.sce
new file mode 100755
index 000000000..4dd4d362d
--- /dev/null
+++ b/854/CH8/EX8.2/Example8_2.sce
@@ -0,0 +1,23 @@
+//clear//
+//Caption: Program to find the curlH of a square path of side 'd'
+//Example8.2
+//page 230
+clc;
+ax = sym('ax');
+az = sym('az');
+ay = sym('ay');
+z = sym('z');
+y  = sym('y');
+d = sym('d');
+H = 0.2*z^2*ax;
+Hx = float(H/ax);
+HdL = float(0.4*z*d^2);
+//curlH evaluated from the definition of curl
+curlH = (HdL/(d^2))*ay;
+//curlH evaluated from the determinant
+del_cross_H = -ay*(-diff(Hx,z))+az*(-diff(Hx,y));
+disp(curlH,'curlH = ')
+disp(del_cross_H,'del_cross_H = ')
+//Result
+//curlH =  0.4*ay*z   
+//del_cross_H = 0.4*ay*z