rrplot(cost,k,c)

function rrplot(cost,k,c)
%RRPLOT is a custom plot for rrdesign.m

names = {'Initial','Traditional','Reliability','Robust'};
r = size(k,2);
figure
subplot(2,2,1) % spring constant plot
bar(k,'group')
ylabel('k (N/m)')
set(gca,'XTickLabel',{'Front (kf)','Rear (kr)'})
subplot(2,2,2) % shock absorber plot
bar(c,'group')
ylabel('c (N/(m/s))')
set(gca,'XTickLabel',{'Front (cf)','Rear (cr)'})
legend(names{1:r},'Location','SouthEast')
subplot(2,1,2) % cost function plot
bar(cost,'group')
ylabel({'Normalized','Discomfort'})
set(gca,'XTickLabel',names)