diff options
Diffstat (limited to '42/CH13/EX13.10/sadiku_13_10.sce')
| -rwxr-xr-x | 42/CH13/EX13.10/sadiku_13_10.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/42/CH13/EX13.10/sadiku_13_10.sce b/42/CH13/EX13.10/sadiku_13_10.sce new file mode 100755 index 000000000..6ab8bf7a9 --- /dev/null +++ b/42/CH13/EX13.10/sadiku_13_10.sce @@ -0,0 +1,12 @@ +clear;
+clc;
+c=3*(10)^8, f=3*(10)^9,Aet=9,r1=1.852*(10)^5,r2=4*r1,r3=5.556*10^5,Pr=200*(10)^3,a=20;
+l=c/f;
+Gdt=4*%pi*Aet/(l*l);
+P1=Gdt*Pr/(4*%pi*r1*r1);
+P2=Gdt*Pr/(4*%pi*r2*r2);
+disp(P1*1000,'Signal power density at 100nmile in mWatt');
+disp(P2*1000,'Signal power density at 400nmile in mWatt');
+Pr=Aet*a*Gdt*Pr/(4*%pi*r3*r3)^2;
+disp(Pr*10^12,'Power of reflected signal in picoWatt');
+
|