summaryrefslogtreecommitdiff
path: root/377/CH10/EX10.6/10_6.sce
blob: ff85f560e7257af4ab6ad63e9f2d9637fbda45c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
W=2*10^-6;
Dp=1.25*10^-3;
Tp=10^-6;
Lp=sqrt(Dp*Tp);
a=(W^2)/(2*(Lp^2));  //to prove a<<1
printf('\n The value of (W^2)/(2*(Lp^2)) is %f which is <<1',a);
W=2*10^-6;
We=1*10^-6;
c=1/0.0010;
d=1/0.000010;
disp("γ=1/(1+((σn*W)/(σp*We)))");
b=1/(1+((c*W)/(d*We)));  //say γ=b
printf('\n The value of γ is %f',b);