function [ B ] = Make_additive_B_Matrix(x_train,dim,Spline)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

    Anzahl_splines=length(Spline);
    n_train=size(x_train,1);
    
    B=zeros(n_train,Anzahl_splines*dim);

    for k=1:Anzahl_splines

        for d=1:dim
            
            B(:,(k-1)*dim+d)=fnval(Spline{k},x_train(:,d));

        end

    end
    
end