0001 if ~exist ('scale', 'var')
0002   scale = 12
0003 else
0004   scale
0005 end
0006 
0007 if exist ('np')
0008   scale = scale*p;
0009 end
0010 
0011 [E, V] = gendata2 (scale, []);
0012 
0013 G = kernel1pm (E);
0014 
0015 t0 = clock;
0016 label = kernel4g (G);
0017 t0 = etime (clock, t0);
0018 
0019 validate4 (G, label, V, 1);
0020 
0021 fprintf ('Kernel4 time        : %.2f seconds\n', t0);