function plot_price_tree(sample_path,pt, t)
SSS = sample_path.P(1,size(sample_path.P,2)-10:size(sample_path.P,2))

S1_Price_horizon = [SSS pt.S1_Price_horizon];
S2_Price_horizon = [SSS pt.S2_Price_horizon];
S3_Price_horizon = [SSS pt.S3_Price_horizon];
S4_Price_horizon = [SSS pt.S4_Price_horizon];
S5_Price_horizon = [SSS pt.S5_Price_horizon];
S6_Price_horizon = [SSS pt.S6_Price_horizon];
S7_Price_horizon = [SSS pt.S7_Price_horizon];
S8_Price_horizon = [SSS pt.S8_Price_horizon];
S9_Price_horizon = [SSS pt.S9_Price_horizon];
t = -10:20

figure()

plot(t,S1_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S1_Price_horizon(i),'o')
end
hold on
plot(t,S2_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S2_Price_horizon(i),'o')
    end
hold on
plot(t,S3_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S3_Price_horizon(i),'o')
    end
hold on
plot(t,S4_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S4_Price_horizon(i),'o')
    end
hold on
plot(t,S5_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S5_Price_horizon(i),'o')
    end
hold on
plot(t,S6_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S6_Price_horizon(i),'o')
    end
hold on
plot(t,S7_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S7_Price_horizon(i),'o')
    end
hold on
plot(t,S8_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S8_Price_horizon(i),'o')
    end
hold on
plot(t,S9_Price_horizon)
for i = 12 : size(S1_Price_horizon,2)
    hold on
    plot(t(i),S9_Price_horizon(i),'o')
end
axis([-10 20 0 2000])
xlabel('Time period, $t$','FontSize',30)
%legend('$Q_{S1,Price}$','$Q_{S2,Price}$','$Q_{S3,Price}$','$Q_{S4,Price}$','$Q_{S5,Price}$','$Q_{S6,Price}$','$Q_{S7,Price}$','$Q_{S8,Price}$','$Q_{S9,Price}$');
ylabel('Price, $P_t$ [NOK/MWh]','FontSize',30)
set(gca,'FontSize',30)
end

