1 files changed, 20 insertions, 0 deletions
diff --git a/1752/CH2/EX2.16/exa_2_16.sce b/1752/CH2/EX2.16/exa_2_16.sce
new file mode 100755
index 000000000..58b9d5a82
--- /dev/null
+++ b/1752/CH2/EX2.16/exa_2_16.sce
@@ -0,0 +1,20 @@
+//Exa 2.16
+clc;
+clear;
+close;
+//given data
+d1=10*10^-3;// in mm
+r1=d1/2;
+K=0.2;// in W/mK
+T_max=177;// in degree C
+T_infinite=27;// in degree C
+ho=10;// in W/m^2K
+R=10; // in W/m
+rc=K/ho;// in m
+x=rc-r1;// in m
+q_by_L= (T_max-T_infinite)/(log(rc/r1)/(2*%pi*K)+1/(2*%pi*ho*rc));
+// Also q_by_L = I^2*R
+I= sqrt(q_by_L/R);// in amp
+disp(I,"The maximum possible current in amphere")
+
+// Note: Answer in the book is wrong
+\ No newline at end of file