1 files changed, 10 insertions, 0 deletions

diff --git a/3845/CH23/EX23.7/Ex23_7.sce b/3845/CH23/EX23.7/Ex23_7.sce
new file mode 100644
index 000000000..aa3174d19
--- /dev/null
+++ b/3845/CH23/EX23.7/Ex23_7.sce
@@ -0,0 +1,10 @@
+//Example 23.7

+l=10*10^-2;//Length (m)

+mu_0=4*%pi*10^-7;//Permeability of free space (T.m/A)

+r=4/2*10^-2;//Radius of solenoid (m)

+A=%pi*r^2;//Cross-sectional area (m^2)

+N=200;//Number of coils

+L=mu_0*N^2*A/l;//Self-inductance (H)

+printf('Self-inductance of the solenoid = %0.3f mH',L*1000)

+//Openstax - College Physics

+//Download for free at http://cnx.org/content/col11406/latest