1 files changed, 14 insertions, 0 deletions
diff --git a/1964/CH12/EX12.21/ex12_21.sce b/1964/CH12/EX12.21/ex12_21.sce
new file mode 100755
index 000000000..b46f29ab8
--- /dev/null
+++ b/1964/CH12/EX12.21/ex12_21.sce
@@ -0,0 +1,14 @@
+//Chapter-12, Example 12.21, Page 368
+//=============================================================================
+clc
+clear
+//INPUT DATA
+I=20;//current in A
+B=1.2//magnetic flux density in Wb/m^2
+Vh=60;//hall voltage in V
+w=0.5;//thickness of strip in mm
+q=1.6*10^-19;//charge in coulombs
+//CALCULATIONS
+n=(B*I)/(Vh*q*w*10^-3);//electron concentration in m^-3
+mprintf("electron density is %g m^3 ",n)
+//=================================END OF PROGRAM=======================================================================================================