gsm1.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

   test=0;testux=0;testuy=0;testly=0;
     for i=1:n,
      
      if r(i)==0  & glx < x(i) & x(i) < slx & y(i)<suy & y(i)< sly & test==0 then 
      glx=x(i);test=1;
      end
      
      if r(i)==0 & gux > x(i) & x(i) > sux & y(i)<suy & y(i)<sly & testux==0 then 
      gux=x(i);testux=1;
      end
      
      if r(i)==0 & gly < y(i) & y(i) < sly & x(i)<sux & x(i)<slx & testly==0 then 
      gly=y(i);testly=1;
      end
      
      if r(i)==0 & guy > y(i) & y(i) > suy & x(i)<sux & x(i)<slx  & testuy==0 then 
      guy=y(i);testuy=1;
      end
   end
          
  
  

 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;