3 files changed, 38 insertions, 0 deletions
diff --git a/833/CH7/EX7.12/Ex7_12.sce b/833/CH7/EX7.12/Ex7_12.sce
new file mode 100755
index 000000000..cfd2cb63e
--- /dev/null
+++ b/833/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,15 @@
+//Caption: Determineper pole (a)Number of cross magnetising ampereturns,and (b)Demagnetising ampereturns 
+//Exa:7.12
+clc;
+clear;
+close;
+I=100//Current(in A)
+c=500//Armature conductors
+p=6//Poles 
+t=10//Angle of lead(in degree)
+a=2//Wave wound
+e=(10*p)/2
+F_d=(c*I*2*e)/(2*a*p*180)
+disp(F_d,'(a)Number of cross magnetising ampereturns=')
+F_c=(c*I)*(1-((2*e)/180))/(2*a*p)
+disp(F_c,'(b)Demagnetising ampereturns=')
+\ No newline at end of file
diff --git a/833/CH7/EX7.12/Ex7_12.txt b/833/CH7/EX7.12/Ex7_12.txt
new file mode 100755
index 000000000..cfd2cb63e
--- /dev/null
+++ b/833/CH7/EX7.12/Ex7_12.txt
@@ -0,0 +1,15 @@
+//Caption: Determineper pole (a)Number of cross magnetising ampereturns,and (b)Demagnetising ampereturns 
+//Exa:7.12
+clc;
+clear;
+close;
+I=100//Current(in A)
+c=500//Armature conductors
+p=6//Poles 
+t=10//Angle of lead(in degree)
+a=2//Wave wound
+e=(10*p)/2
+F_d=(c*I*2*e)/(2*a*p*180)
+disp(F_d,'(a)Number of cross magnetising ampereturns=')
+F_c=(c*I)*(1-((2*e)/180))/(2*a*p)
+disp(F_c,'(b)Demagnetising ampereturns=')
+\ No newline at end of file
diff --git a/833/CH7/EX7.12/Result7_12.txt b/833/CH7/EX7.12/Result7_12.txt
new file mode 100755
index 000000000..d373d279c
--- /dev/null
+++ b/833/CH7/EX7.12/Result7_12.txt
@@ -0,0 +1,8 @@
+ (a)Number of cross magnetising ampereturns=   
+ 
+    694.44444  
+ 
+ (b)Demagnetising ampereturns=   
+ 
+    1388.8889  
+ 
+\ No newline at end of file