% Spara bilderna i jpeg format med
% print -djpeg filnamn.jpeg
% bmp: print -dbmp256 ob5.bmp
ObnT=2;
P=[ 0.0 2.7777777777777777 8.487654320987653 14.36042524005487 20.405259297363205 26.631966936357937 27.49549489177773 28.254005242595525 28.893831456040616 29.399794524041607 29.75504071760592 29.94086206476067 30.0908187013955 30.207597274798065 30.294940826060017 30.357842782235263 30.40277018461192 30.437920177223205 30.46494091770451 30.485460721473256 30.501011009966827 30.51292740749411 30.52222460414667 30.52943985128307 30.535034461917903 30.539387097117686 30.542792399287492 30.545467266423287 30.547567653172496 30.549219499235864 30.55052193890649 30.551551437789275 30.552366509085875 30.553012431472254 30.553525085512295 30.55393262728942 30.55425706305133 30.554515631650432 30.554721921759004 30.554886693449408 ]';
L=[ 30.555555555555554 27.77777777777778 22.067901234567906 19.12722908093279 19.109486930345984 22.176927477603353 34.05647756965261 43.972474456291565 51.67067268983156 56.87550400273021 59.28808539684957 61.36180987552301 62.89871006105333 63.978918733005656 64.69937793250014 65.176376084779 65.54842939987692 65.82523089048206 66.0285330524259 66.17801334030165 66.29008099104605 66.37640541887367 66.44211545249203 66.4921838917978 66.53056841097278 66.56023922772407 66.58329361517782 66.60118654318286 66.61511357157389 66.62599491676511 66.63452487921266 66.64122491994885 66.64649402001824 66.65064695354523 66.65392723174159 66.65652283657028 66.6585795903085 66.66021157567486 66.66150848574446 66.66254055030078 ]';
M=[ 66.66666666666667 66.66666666666667 66.66666666666667 63.73671124828532 57.71843087943911 48.446930065496446 35.75043232985882 25.159779346139143 16.9512394627418 11.418119117099122 8.872001996952969 6.866308457568804 5.444652497849774 4.506083356452613 3.935369514832158 3.6013605845286594 3.355171614205783 3.182491983825237 3.0641819063310773 2.98356711215761 2.927276100679281 2.8862275921880722 2.856790383448968 2.8357107548551928 2.820505318196948 2.809401218151512 2.801224145178855 2.7952206492472027 2.7907986613581084 2.787524346856749 2.7850880828398985 2.783270788058015 2.7819139769842947 2.780898115491797 2.7801353489672422 2.7795613576929763 2.7791287777145057 2.77880232313888 2.778555523101221 2.778368656568758 ]';
F=[ 2.7777777777777777 2.7777777777777777 2.7777777777777777 2.7756344307270235 2.766822892851699 2.744175520542261 2.697595208710845 2.6137409549737667 2.4842563913860234 2.306582356129058 2.0848718885915414 1.8310196021475222 1.5658187397013978 1.3074006357436698 1.0703117266076874 0.86442054845708 0.6936288013053696 0.5543569484694971 0.4423441235385128 0.35295882606748363 0.2816318983078341 0.2244395814441361 0.17886955991232795 0.14266550206394119 0.1138918089123728 0.09097245700673766 0.07268984035582984 0.058125541146647475 0.04652011389551267 0.03726123714228159 0.02986509904095405 0.023952854203859113 0.019225493911595448 0.015442499490714917 0.01241233377887606 0.009983178447335442 0.008034568925664886 0.00647046953582358 0.0052140693953194196 0.004204099681062105 ]';
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 ob2P.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 ob2L.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 ob2M.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 ob2F.jpeg