displayCoefCellList(model, cellList, numDisplayLists, pairwiseVec, outputTitle)

function displayCoefCellList(model, cellList, numDisplayLists, pairwiseVec, outputTitle)

disp(outputTitle)

if strcmp(model, 'linear')
  outputStr = 'Constant and linear coefficients of ';
  outputDiscrimStr = 'Separatory Hyperplane';
else
  outputStr = 'Constant, linear and quadratic coefficients of ';
  outputDiscrimStr = 'Separatory Hypersurface';
end

if ~isempty(findstr('Discrimination', outputTitle))
    outputStr = [outputStr, 'the ', strcat(outputDiscrimStr,' of groups')];
else
    outputStr = [outputStr, 'group'];
end

for i = 1:numDisplayLists
    if isempty(pairwiseVec)
        disp([outputStr,' ',num2str(i)])
    else
        disp([outputStr,' ',num2str(pairwiseVec(i,1)), ' and ', num2str(pairwiseVec(i,2))])
    end

    displayCoefList(cellList{i})
end