% Spara bilderna i jpeg format med
% print -djpeg filnamn.jpeg
% bmp: print -dbmp256 ob5.bmp
ObnT=1;
P=[ 16.666666666666664 33.33333333333333 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 ]';
L=[ 83.33333333333334 66.66666666666667 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.99999999999997 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 50.0 50.0 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.999999999999986 49.99999999999997 49.99999999999997 49.99999999999997 49.999999999999986 ]';
M=[ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 2.8421709430404007E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 0.0 0.0 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 1.4210854715202004E-14 2.8421709430404007E-14 2.8421709430404007E-14 2.8421709430404007E-14 1.4210854715202004E-14 ]';
F=[ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 ]';
s=1:40';
p=100*ones(1,length(s));
p2=p*perf(ObnT);
f2=p*fummel(ObnT,2); % Fummelchans utan att ta hänsyn till FV och
m2=100-f2;           % den teoretiska största chansen att lyckas
% Chansen att slå perfekt
figure(1);clf;grid on
l1=plot(s,P);
title(['Chansen att slå Perfekt, Ob' int2str(ObnT) 'T6' ])
ylabel('Chans till perfekt (%)');grid on;xlabel('Färdighetsvärde')
set(l1,'LineWidth',3);
axis([ 0 41 -1 101 ])
print -djpeg ob1P.jpeg
% Chansen att lyckas
figure(2);clf;grid on
l2=plot(s,L);
title(['Chansen att Lyckas, Ob' int2str(ObnT) 'T6'])
ylabel('Chans att Lyckas (%)');grid on;xlabel('Färdighetsvärde')
set(l2,'LineWidth',3);
axis([ 0 41 -1 101 ])
print -djpeg ob1L.jpeg
% Chansen att misslyckas
figure(3);clf;grid on
l3=plot(s,M);
title(['Chansen att Misslyckas, Ob' int2str(ObnT) 'T6' ])
ylabel('Chans att Misslyckas (%)');grid on;xlabel('Färdighetsvärde')
set(l3,'LineWidth',3);
axis([ 0 41 -1 100 ])
print -djpeg ob1M.jpeg
% Chansen att fumla
figure(4);clf;grid on
l4=plot(s,F);
title(['Chansen att Fumla, Ob' int2str(ObnT) 'T6' ])
ylabel('Chans att Fumla (%)');grid on;xlabel('Färdighetsvärde')
set(l4,'LineWidth',3);
axis([ 0 41 -1 101 ])
print -djpeg ob1F.jpeg