SØK2011

close all
clear all

x = [0 10];
d = [9 2];
s = [0 9];
dd = [7.5 0.5];
x0 = 45/8;
x1 = 75/16;
y0 = 81/16;
y1 = 135/32;

figure(1)
plot(x,s,'LineWidth',2)
hold on
plot(x,d,'LineWidth',2)
plot(x,dd,'k--','LineWidth',2)
legend('Tilbud', 'Etterspørsel','Etterspørsel etter avgift')
plot([x0 x0],[0 y0],'k--')
plot([0 x0],[y0 y0],'k--')
plot([x1 x1],[0 y1],'k--')
plot([0 x1],[y1 y1],'k--')
set(gca,'xtick',[])
set(gca,'ytick',[])
xlim([0 10])
ylim([0 10])