dd = []
ll = []
for lam=0.01:0.01:1
    R= lam*P + (1-lam)*Q;
    [b,pH] = is_kindep(P,m,n,k);
    dd(end+1) = pH;
    ll(end+1) = lam;
    plot(ll,dd)
    drawnow
end
    

%function kindepsketch0(m0,n0)
global m n
randomize
m = m0;
n = n0;

global pstr
pstr = mfilename
global lstr rstr

global maxr
maxr = 0;

while 1
  
  
  fprintf('%s: PARAMS: n=%d m=%d \n',pstr,n,m);
  %fprintf('RATIO_________________________ (%s)/(%s);  maxr =
  %%1.9f \n',lstr,rstr,maxr);
  fprintf('RATIO_________________________ maxr = %1.9f \n',maxr);

end


return