% Spara bilderna i jpeg format med
% print -djpeg filnamn.jpeg
% bmp: print -dbmp256 ob5.bmp
ObnT=3;
P=[ 0.0 0.0 0.4629629629629629 1.8904320987654317 3.3586248285322364 4.86983334285932 6.426510252608004 6.642392241462951 6.832019829167399 6.991976382528672 7.118467149528922 7.207278697919999 7.253734034708685 7.291223193867394 7.3204178372180335 7.3422537250335225 7.357979214077333 7.369211064671501 7.3779985628243185 7.384753747944646 7.389883698886831 7.393771271010226 7.3967503703920485 7.399074669555185 7.400878481339286 7.402277133997994 7.4033652927979405 7.404216618340391 7.404885335124341 7.405410431811643 7.405823393327485 7.406149003245139 7.406406377965837 7.406610145789987 7.4067716263865835 7.406899789896591 7.407001675340872 7.407082784281352 7.407147426431125 7.407198998958271 ]';
L=[ 7.4074074074074066 7.4074074074074066 6.944444444444444 5.516975308641975 5.514831961591221 7.518712610501447 12.154463017472775 21.4845658780649 32.0664813207427 42.98246555757107 53.19603368278361 61.54292214162218 68.11013924211498 72.99068210994355 76.43475576193303 78.79462561975373 80.53664834596314 81.79179358578891 82.67939953475431 83.30696456582194 83.76162346359457 84.10385865978033 84.35997307720697 84.55169783284494 84.69625238590899 84.80638071848168 84.89093200362672 84.95588389751457 85.00593556775766 85.04468169527179 85.07480491734718 85.09829253127842 85.11664012728068 85.13100908217251 85.14229185562203 85.15117140048436 85.15817246312665 85.16370172546664 85.16807639136353 85.17154337450242 ]';
M=[ 85.18518518518519 85.18518518518519 85.18518518518519 85.18518518518519 83.72020747599451 80.21060567812326 74.03504068125625 64.52936728075325 53.840446328434645 42.91159141960445 32.80446701714767 24.70347069191022 18.531316031635225 14.14956889852068 11.281810025360917 9.540315909064695 8.419568831978477 7.752518345042765 7.395051830958761 7.2275276845284075 7.160286285909184 7.137778746996253 7.142946023958735 7.163244763019409 7.190087601782341 7.218279351547244 7.245202980142912 7.269858997824854 7.291765476161881 7.310806303544999 7.327102328821067 7.340900855733528 7.352495429308261 7.362178517476692 7.370226281888159 7.376889698771535 7.382390450070288 7.386920562601587 7.390644176061773 7.393700134299456 ]';
F=[ 7.4074074074074066 7.4074074074074066 7.4074074074074066 7.4074074074074066 7.406335733882032 7.400848368515979 7.383986048662976 7.343674599718912 7.261052521655249 7.113966640295814 6.881032150539805 6.546328468547606 6.104810691541108 5.568525797668374 4.963016375488019 4.322804746148043 3.685803607981047 3.086477004496822 2.547550071462612 2.080754001705007 1.6882065516094076 1.3645913222131945 1.100330528442236 0.8859827345804631 0.7127815309693762 0.5730627959730817 0.4604997234324287 0.37004048632019326 0.29741362095611 0.2391015693715639 0.19226936050427185 0.154657609742921 0.12445806544522683 0.1002022545608141 0.08071023610322144 0.06503911084752172 0.05243541146218572 0.042294927650418646 0.034132006143575706 0.027557492239858927 ]';
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);
hold on;plot(s,p2,'r--')
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 ob3P.jpeg
% Chansen att lyckas
figure(2);clf;grid on
l2=plot(s,L);
hold on;plot(s,m2,'r--')
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 ob3L.jpeg
% Chansen att misslyckas
figure(3);clf;grid on
l3=plot(s,M);
hold on;plot(s,f2,'r--')
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 ob3M.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 ob3F.jpeg