summaryrefslogtreecommitdiff
path: root/1271/CH18/EX18.16/example18_16.sce
blob: cb246d9ab8fd1a71fab317ea408f1b9d103618ec (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc 
// Given that
H = 5e3 // coercivity in A/m
l = 0.10 // length of solenoid in m
n = 50 // no. of turns 
// Sample Problem 16 on page no. 18.27
printf("\n # PROBLEM 16 # \n")
printf("Standard formula used \n ")
printf(" H=N*i \n")
N = n / l
i = H / N
printf("\n Current in solenoid should be %d A.",i)