summaryrefslogtreecommitdiff
path: root/3754/CH10/EX10.1/10_1.sce
blob: 80efb21efa8f8fc4cd01766effc4316ffd0ad35f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clear//

//Variables

R = 1000.0                          //Resistance (in ohm)
sig = 5.8 * 10**7                   //Conductivity in (Siemen per meter)
d = 10**-3                          //diameter (in meter)
E = 10 * 10**-3                     //Eletric field (in Volt per meter)

//Calculation

l = R *sig * %pi * d**2 /4      //length (in meter)
J = sig * E                         //Current density (in Ampere per metersquare)

//Result

printf("\n Length of wire is  %0.2f  km.\nCurrent desity is  %0.3f  A/(m*m).",l/1000,J)