%-----------------------------------
%    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
      EIx  =  1;
      Kx   =  1;
      dEIx =  0;
      Qx   = -1;
     
end
