diff options
Diffstat (limited to '3831/CH19/EX19.1/Ex19_1.sce')
| -rw-r--r-- | 3831/CH19/EX19.1/Ex19_1.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3831/CH19/EX19.1/Ex19_1.sce b/3831/CH19/EX19.1/Ex19_1.sce new file mode 100644 index 000000000..b73f02a26 --- /dev/null +++ b/3831/CH19/EX19.1/Ex19_1.sce @@ -0,0 +1,14 @@ +// Example 19_1
+clc;funcprot(0);
+// Given data
+T=20.0+273.16;// K
+d=0.0100;// m
+alpha_cu=3.50*10^-6;// V/K
+rho_e=5.00*10^-9;// ohm m
+dphibydx=1.00;// Voltage gradient in V/m
+
+// Solution
+A=(%pi/4)*d^2;// m^2
+I=(A/rho_e)*dphibydx;// A
+Q_P=alpha_cu*T*I;// W
+printf('\nThe Peltier heat flow,Q_P=%2.1f W',Q_P);
|