diff options
Diffstat (limited to '3754/CH10/EX10.1/10_1.sce')
-rw-r--r-- | 3754/CH10/EX10.1/10_1.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/3754/CH10/EX10.1/10_1.sce b/3754/CH10/EX10.1/10_1.sce new file mode 100644 index 000000000..80efb21ef --- /dev/null +++ b/3754/CH10/EX10.1/10_1.sce @@ -0,0 +1,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)
|