%-----------------------------------
%    Coefficients for winkler.m
%-----------------------------------
%
%    Set: 
%    EIx, Kx, Qx
%
%    dEIx =  dEI/dx 
%
%    Note:  
%      Xg = x-coordinate of
%           current point.   
%-----------------------------------


%----------------------------------------
%   Prb is defined in INITIAL.m
%----------------------------------------
%   Prb  1    Cantilever Beam with k = 0
%   Prb  2    Foundation support only
%----------------------------------------

if Prb == 1
      EIx  =  1;
      Kx   =  0;
      dEIx =  0;
      Qx   =  0;

elseif Prb == 2
    if Xg <0
      EIx  =  1;
  else 
      EIx  =  1/20;
  end
      Kx   =  0;
      dEIx =  0;
      Qx   =  0;
     
end
