From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1979/CH3/EX3.6/Ex3_6.sce | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100755 1979/CH3/EX3.6/Ex3_6.sce (limited to '1979/CH3/EX3.6/Ex3_6.sce') diff --git a/1979/CH3/EX3.6/Ex3_6.sce b/1979/CH3/EX3.6/Ex3_6.sce new file mode 100755 index 000000000..eaaaad3b6 --- /dev/null +++ b/1979/CH3/EX3.6/Ex3_6.sce @@ -0,0 +1,25 @@ +//chapter-3 page 50 example 3.6 +//============================================================================== +clc; +clear; + +Zl=100;//Pure Load resistance of a dipole antenna in ohms +Z0=600;//Characteristic Impedance of a wire feeder in ohms +f=100*10^6;//Frequency in Hz +c=3*10^8;//Velocity of Light in m/sec + +//CALCULATIONS +w=c/f;//Wave Length in met +l=((w/(2*(%pi)))*atan(sqrt(Zl/Z0)));//The position of the Stub in met +x=atand(sqrt((Zl*Z0))/(Zl-Z0)); +y=180+x;//In Degrees +l1=((w/(2*(%pi)))*y);//Length of Short Circuited Stub in met +l0=l1*((%pi)/180); + +//OUTPUTS +mprintf('\nThe Point of Attachment is l=%1.3f met \nLength of SC Stub is l1=%1.2f met',l,l0); + +//=========================END OF PROGRAM============================================================== + + + -- cgit