diff options
Diffstat (limited to '2381/CH17/EX17.5/ex_5.sce')
| -rwxr-xr-x | 2381/CH17/EX17.5/ex_5.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/2381/CH17/EX17.5/ex_5.sce b/2381/CH17/EX17.5/ex_5.sce new file mode 100755 index 000000000..bdd197987 --- /dev/null +++ b/2381/CH17/EX17.5/ex_5.sce @@ -0,0 +1,13 @@ +//Example 5 // Degree of polarization +clc; +clear; +close; +//given data : +thetai=45;// in degree +n=1.5;/// index +thetar=asind(sind(thetai)/n); +Rl=sind(thetai-thetar)^2/sind(thetai+thetar)^2; +Rp=tand(thetai-thetar)^2/tand(thetai+thetar)^2; +D=((Rl-Rp)/(Rl+Rp))*100; +disp(D,"Degree of polarization,D(%) = ") +// answer is wrong in the textbook |