1 files changed, 10 insertions, 0 deletions
diff --git a/377/CH8/EX8.6/8_6.sce b/377/CH8/EX8.6/8_6.sce
new file mode 100644
index 000000000..556450698
--- /dev/null
+++ b/377/CH8/EX8.6/8_6.sce
@@ -0,0 +1,10 @@
+disp("It=I0*exp(-α*l)");
+a=5*10^4;  //say α=a
+l=0.46*10^-4;
+I0=10^-2;
+It=I0*exp(-a*l);
+printf('\n The value of It is %f W',It);
+p1=10;
+p2=1;
+Pab=p1-p2;
+printf('\n The value of Pab is %f mW(or)*10^-3J/s',Pab);
+\ No newline at end of file