ANUJ TRIPATHI

Here is the M-file as posted. It contains non-MATLAB code:
%DESIGNING OF A LOG-PERIODIC ANTENNA FOR RECIEVING DD1,DD2 &DD-NEWS CHANNEL
%VHF CHANNELS--
% 2,3,4 -- 54,60,66,72MHz
% 5,6 -- 76,82,88MHz
% 7,8,9,10,11,12,13 -- 172,180,186,192,198,204,210,216 MHz
%UHF CHANNELS
% 14-83 -- 470-890MHz
%1CM=.390625INCH
clc
clear all
disp('DESIGNING OF A LOG-PERIODIC ANTENNA FOR RECIEVING DD1,DD2 &DD-NEWS CHANNEL');
disp(' ');
disp(' ');
float double a;
float double gtl;
float double fbw;
float double bar1;
float double bs1;
float double l1;
float double l2;
float double D1;
int n;
int i;
float double sigma1;
float double lmax;
float double s(100);
float double l(100);
float double d(100);
float double bs;
float double l1;
float double l2;
gtl=0.0;
x=input('Enter the value of lower frequency=');
y=input('Enter value of upper frequency=');
dmax=input('Enter value of largest element diameter(in inches)=');
disp(' ');
disp('Directivity 8dB');
fbw=2*(y-x)/(x+y);
fprintf('Fractional bandwidth =%f \n',fbw);
sigma=.157;
tau=.865;
a=atan((1-tau)/(4*sigma));
fprintf('Angle alpha =%f radian \n',a);
bar=1.1+7.7*(1-.865)^2*cot(a);
bar1=bar/(1000000);
fprintf('Active region bandwidth =%f MHz \n',bar1);
s=y/x;
bs=s*bar;
bs1=bs/1000000;
fprintf('Designed bandwidth =%f MHz \n',bs1);
c=3*10^8;
l1=c/x;
fprintf('Max. wavelength =%f meters\n',l1);
l2=l1*3.2805;
fprintf('Max wavelength =%f feets\n',l2);
L=(l1/4)*(1-(1/bs))*cot(a);
fprintf('TOTAL LENGTH =%f meters\n',L);
N=1+(log(bs)/log(1/tau));
n=round(N);
fprintf('No. of elements is=%f \n',n);
sigma1=sigma/sqrt(tau);
fprintf('Relative mean spacing =%f \n',sigma1);
lmax=l2/2;
fprintf('Max length =%f feet \n',lmax);
za=120*(log(s)-2.25);
fprintf('Average characteristic impedence =%f ohms \n',sigma1);
Rin=50;
V=za/Rin;
VAR=1.2;
zo=VAR*Rin;
s=3/4*cosh(zo/120);
fprintf('Center-to-center spacing of feeder line conducter =%f \n',s);
L(n)=lmax;
d(n)=dmax;
s(n)=s;
for i=n-1:-1:1
    s(i)=s(i+1)*tau;
     L(i)=L(i+1)*tau;
     d(i)=d(i+1)*tau;
     disp(' ');
fprintf('INDIVIDUAL LENGTHS of %d th element is %f meters \n',i,L(i));
fprintf('INDIVIDUAL spacing of %d th element is %f meters \n',i,s(i));
fprintf('INDIVIDUAL dimeter of %d th element is %f meters \n \n',i,d(i));
gtl=gtl+L(i);
end
fprintf('Gross total length req. for all elements is %f meters \n',gtl);
disp(' ');
disp(' ');
disp('THIS PROGRAM IS SUBMITTED BY- ');
  disp(' ANUJ KUMAR TRIPATHI');
  disp(' ELECTRONICS & COMMUNICATION ');
    disp(' THAPAR INSTITUTE OF ENGG. AND TECH. ');

I sent an email directly to the author requesting that they withdraw this submission.