A)
  1: a)Code:
	>> [data,labels]=loaderA_1_7(2000,'test');
	>> options.dims = [1:10];
	>> dist_mat = L2_distance(data,data,1);
	>> [Y, R, E] = Isomap_1_7_euclid(dist_mat, data,'k', 7,labels,options);
 
     b)Code:
	>> [data,labels]=loaderA_4_9(2000,'test');
	>> options.dims = [1:10];
	>> dist_mat = L2_distance(data,data,1);
	>> [Y, R, E] = Isomap_4_9_euclid(dist_mat, data,'k', 7,labels,options);

     c) Code:
	>> [data,labels]=loadDigits(2000,'test');
	>> options.dims = [1:10];
	>> dist_mat = L2_distance(data,data,1);
	>> [Y, R, E] = Isomap(dist_mat, data,'k', 7,labels,options);

     d)
	Can run any of the above
	For getting plot for all the digits with label:[Y, R, E] = Isomap_all(dist_mat,data,'k', 7,labels,options);

  2:  a)Code:
	>> [data,labels]=loaderA_1_7(2000,'test');
	>> options.dims = [1:10];
	>> dist_mat = tangent_d(data,data,1);
	>> [Y, R, E] = Isomap_1_7_tangent(dist_mat, data,'k', 7,labels,options);
 
     b)Code:
	>> [data,labels]=loaderA_4_9(2000,'test');
	>> options.dims = [1:10];
	>> dist_mat = tangent_d(data,data,1);
	>> [Y, R, E] = Isomap_4_9_tangent(dist_mat, data,'k', 7,labels,options);

     c) Code:
	>> [data,labels]=loadDigits(2000,'test');
	>> options.dims = [1:10];
	>> dist_mat = tangent_d(data,data,1);
	>> [Y, R, E] = Isomap_all(dist_mat, data,'k', 7,labels,options);

  3:  Figure is available as a link


B)
  1: Code:
	>> [ data, names ] = loadImageData('image','jpg');
	>> options.dims = [1:10];
	>> I2 = im2double(data);
	>> dist_mat = L2_distance(data,data,1);
	>> [Y, R, E] = Isomap(D,'k', 7,names,options);
  2: Code:
	>> [ data, names ] = loadImageData('box_random','jpg');
	>> options.dims = [1:10];
	>> I2 = im2double(data);
	>> dist_mat = L2_distance(data,data,1);
	>> [Y, R, E] = Isomap(D,'k', 7,names,options);
  4: Code:
	>> [ data, names ] = loadImageData('box_1','jpg');
	>> options.dims = [1:10];
	>> I2 = im2double(data);
	>> dist_mat = L2_distance(data,data,1);
	>> [Y, R, E] = Isomap(D,'k', 7,names,options);  || >> [Y, R, E] = Isomap(D,'k', 100,names,options);