%SCONJ_RAM
%
function sconj_Ram
dig=36; digits(dig)
for a=0:1/10:9/10  
  a
%  for t=2/10:2/10:5
% for t=5:5/10:15
%  for t=15:1:30
  for t=30:5:100
    t=vpa(t);
    for k=3:50
      s=exp(t)*sgam_upinc(dig,a,t);
      sj=vpa(0); aj=vpa(1);
      for j=1:k
         ex=vpa(a-j);
         sj=sj+aj*exp(ex*log(t));
         aj=ex*aj;
      end
      s=s-sj;
%    end
      if (-1)^k<0
        if s>=0
          disp('false')
        end
      else
        if s<=0
          disp('false')
        end
      end
    end
  end
end
