1 files changed, 10 insertions, 0 deletions
diff --git a/1697/CH1/EX1.20/Exa1_20.sce b/1697/CH1/EX1.20/Exa1_20.sce
new file mode 100755
index 000000000..5e53522a2
--- /dev/null
+++ b/1697/CH1/EX1.20/Exa1_20.sce
@@ -0,0 +1,10 @@
+//Exa 1.20
+clc;
+clear;
+close;
+//given data :
+disp("Hfi = (Im*dlsin(theta)/(4*%pi))*[cos(omega*t1)/r-omega*sin(omega*t1)/(c*r)]");
+disp("200(Im*dlsin(theta)/(4*%pi))*(sin(omega*t1)/r^2)=(Im*dlsin(theta)/(4*%pi))*(-omega*sin(omega*t1)/(c*r))");
+disp("200*cos(omega*t1)/r^2 = -omega*sin(omega*t1)/(c*r)");
+disp("r=200*lambda/(2*%pi);//in Meter")
+disp("r = "+string(200/(2*%pi))+"lambda");
+\ No newline at end of file