summaryrefslogtreecommitdiff
path: root/377/CH8/EX8.6/8_6.sce
blob: 556450698dcc2cd2eda026a8fdcf2af0956e440d (plain)
1
2
3
4
5
6
7
8
9
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);