Cost Analysis of Bike Shares in Durham (MATLAB)

durham-dockless.m

%% Cost Analysis of Bike Shares in Durham
rpm = 1:105; % rides per month
L1 = rpm;
L2 = 14 * ceil(rpm/100);
S1 = 5 * ceil(rpm/6);
S2 = 29 + 0*rpm;

figure(1), clf

subplot(2,1,1)
plot(rpm(1:31), L1(1:31), '-r', rpm(1:31), S1(1:31), '-b')
hold on, plot(rpm, L2, '-.r', rpm, S2, '-.b')
xlabel('Rides per month')
ylabel('$')
title('Total Spent')

subplot(2,1,2)
plot(rpm, L1./rpm, '-r', rpm, L2./rpm, '-.r', ...
     rpm, S1./rpm, '-b', rpm, S2./rpm, '-.b')
legend('LimeBikes $1 per ride', 'LimeBikes 100 rides for $14', ...
       'Spin 6 rides for $5', 'Spin unlimited $29/mo')
xlabel('Rides per month')
ylabel('$ per ride')
title('Price per Ride')
axis([0 120 0 2])