function IMO2024
dat=[
2024	16/108
2023	14/112
2022	1-.9126
2021	0.0566
2020	0.1923
2019	0.1261
2018	0.2358
2017	0.2818
2016	0.1944
2015	0.3786
2014	0.1700
2013	0.1250
2012	0.3030
2011	0.2200
2010	0.5532
2009	0.4369
2008	0.2708
2007	0.5326
2006	0.2697
2005	0.3222
2004	0.1667
2003	0.2469
2002	0.2048
2001	0.1951
2000	0.1235
1999	0.3000
1998	0.3067
1997	0.2593
1996	0.1892
1995	0.1667
1994	0.3382
1993	0.2361
1992	0.3455
1991	0.4000
1990	0.4717
1989	0.5102
1988	0.2500
1987	nan
1986	0.3611
1985	0.4054
1984    nan
1983	0.4839
1982	0.5862
1981	0.5385
1980    nan
1979	0.7273
];

close all
figure
hold on
dat =dat(end:(-1):1,:);
dat(:,2)=1-dat(:,2);
dat(:,2)=100*dat(:,2);
bar(dat(:,1),dat(:,2),'FaceColor',[ 0.5843 0.8157 0.9882])
for i=2:(length(dat)-1)
    dat2(i-1,:)=mean(dat((i-1):(i+1),:),'omitnan');
end
plot(dat2(:,1),dat2(:,2),'linewidth',4,'color','r')
ytickformat('percentage')
yticks([0:10:100])
xticks([1980:2:2024])
xtickangle(90)
ay=gca;
grid on
ay.FontSize = 12;
%ylabel('My Label','FontSize',16)
%plot(dat(end:(-1):1,1),dat(end:(-1):1,2))