gsm.sce

this code gives out put as whether a particular car is family car or not depending on the input vari

function []=famcar();

printf('Give the data file name: ');   // To get the input data file
cardatafile=scanf('%s');
printf('\nThe given file name is %s\n',cardatafile);
[fd]=mopen(cardatafile,'r');
n=mfscanf(fd,'%d\n');
printf('Data size:  %d\n', n);
 
 fp=mopen(cardatafile,'r');  // To open input file
      n=mfscanf(fp,"%f");
   xmin=mfscanf(fp,"%f");
   xmax=mfscanf(fp,"%f");
   ymin=mfscanf(fp,"%f");
   ymax=mfscanf(fp,"%f");
   
 glx=xmin; slx=xmax;          // To set Variables 
 gly=ymin; sly=ymax;
 gux=xmax; sux=xmin;
 guy=ymax; suy=ymin;
 
  for i=1:n,
      x(i)=mfscanf(fp,"%f");
      y(i)=mfscanf(fp,"%f");
      r(i)=mfscanf(fp,"%f");
    end
  mclose(fp);

  
     // searching for S rectangle coordinates
    
      for i=1:n,if r(i)==1 & slx >x(i) then slx=x(i),end,end
      for i=1:n,if r(i)==1 & sux<x(i) then sux=x(i),end,end
      for i=1:n,if r(i)==1 & sly>y(i) then sly=y(i),end,end
      for i=1:n,if r(i)==1 & suy<y(i) then suy=y(i),end,end
  
      printf(" s-left %f \n s-right  %f \n s-top %f \n s-down %f",slx,sux,sly,suy);
    
   // searching for G rectangle

   
     for i=1:n,
      
      if r(i)==0  & glx < x(i) & x(i) < slx & y(i)<suy & y(i)>sly  then 
      glx=x(i),printf(" in the loop glx %f\n",glx);
      end
      
      if r(i)==0 & gux > x(i) & x(i) > sux & y(i)<suy & y(i)>sly then 
      gux=x(i),printf(" in the loop gux %f\n",gux);
      end
      if r(i)==0 & gly < y(i) & y(i) < sly & x(i)<sux & x(i)>slx then 
      gly=y(i),printf(" in the loop gly %f\n",gly);
      end
      if r(i)==0 & guy > y(i) & y(i) > suy & x(i)<sux & x(i)>slx then 
      guy=y(i),printf(" in the loop guy %f\n",guy);
      end
       
      end
       
     printf(" After loop %f%f%f%f\n",glx,gux,gly,guy);     
      
      for i=1:n,
       if r(i)==0 then
         if y(i)< sly & x(i)>sux & x(i)<gux & y(i)>gly then 

         if (y(i)-gly)<(gux-x(i)) then
         gly=y(i)
         else
         gux=x(i)
         end
         
         end 
         
         if x(i)> sux & y(i)>suy & y(i)<guy & x(i)<gux then 
         if(guy-y(i))<(gux-x(i)) then
         guy=y(i)
         else
         gux=x(i)
         end 
         end
         
         if x(i)< slx & y(i)>suy & y(i)<guy & x(i)>glx then 
          if (x(i)-glx)<(guy-y(i)) then
          glx=x(i)
          else
          guy=y(i)
          end
         end 
         
         if y(i)< sly & x(i)<slx & y(i)>gly & x(i)>glx then 
          if(x(i)-glx)<(y(i)-gly) then
          glx=x(i)
          else
          gly=y(i)
         end 
         
         end
         end
         
       end  // End for loop
       
       



 printf(" \n G-left %f \n G-right  %f \n G-top %f \n G-down %f",glx,gux,gly,guy);
      
     

  //  Plot + ve and - ve trainig examples points
   xset('color',4);

   for i=1:n,
      if r(i)==1 then 
       plot(x(i),y(i),'+'),
      else
       plot(x(i),y(i),'o'),   
      end,
   end;

   //Calculate Hypothisis rectangle coordinates
   
   hlx=(slx+glx)/2;
   hly=(sly+gly)/2;
   hux=(sux+gux)/2;
   huy=(suy+guy)/2;
   
   
    printf(" \n H-left %f \n H-right  %f \n H-top %f \n H-down %f",hlx,hux,hly,huy);
    
   xtitle('Supervised Learning ',' Price of Car in Rs ','Engine Power in Hp')
   
   // To Draw S Rectangle
   
   xset('color',3);
   xrect(slx,suy,(sux-slx),(suy-sly))
   xstring((slx+sux)/2,suy,'S-Rectangle')
   xstring(20.5,35,'o ---- NEG.Examples')
   xstring(20.5,33,'*  ---- POS.Examples')

   // To Draw G Rectangle
   
   
   xset('color',2);
   xrect(glx,guy,(gux-glx),(guy-gly))
   xstring((glx+gux)/2,guy,'G-Rectangle')
   
   // TO draw Hypothisis Rectangle
   
   
   xset('color',6);
   xrect(hlx,huy,(hux-hlx),(huy-hly))
   xstring((hlx+hux)/2,huy,'Hypothesis')
   
 endfunction;