% Spara bilderna i jpeg format med
% print -djpeg filnamn.jpeg
% bmp: print -dbmp256 ob5.bmp
ObnT=4;
P=[ 0.0 0.0 0.0 0.07716049382716049 0.39437585733882025 0.7206409083981101 1.0564650226930177 1.4023932248593913 1.4503670001604914 1.4925064640948131 1.5280523648417623 1.5561614241751511 1.5758973238176126 1.5862207319928767 1.5945516562503674 1.601039354772732 1.6058917742872845 1.6093863274081317 1.6118822942068356 1.6138350715741285 1.6153362238230902 1.616476212921354 1.6173401178376634 1.6180021399225124 1.618518650847654 1.618919497910788 1.6192303096127225 1.6194721226793778 1.6196613061332559 1.6198099098630219 1.6199265980157564 1.6200183672414987 1.6200907250009777 1.6201479193833543 1.6201932011220548 1.6202290856990758 1.6202575664790781 1.6202802076889185 1.6202982318979136 1.6203125968200855 ]';
L=[ 1.6203703703703702 1.6203703703703702 1.6203703703703702 1.5432098765432103 1.2259945130315504 1.3884125895442772 2.391465932953987 4.71053179292245 9.254686791676232 15.517588108815211 23.329846850590965 32.23732333695939 41.46245970556649 50.32578768480955 58.270034502979534 64.93666959211585 70.20059814712332 74.22421344738122 77.20803161170306 79.37002103963155 80.92276998520967 82.04543618291257 82.85232935700952 83.43395155791963 83.85835198308098 84.17344746381612 84.41050231265878 84.5891878837303 84.72455247597905 84.82777950541976 84.9069890647382 84.96803146351435 85.01520406989454 85.05178651424467 85.08025664759974 85.10248100055684 85.11987276705803 85.13351310153607 85.14423581107742 85.15268305244938 ]';
M=[ 85.18518518518519 85.18518518518519 85.18518518518519 85.18518518518519 85.18518518518519 84.69685928212164 83.36017147834849 80.70300828644724 76.13222125219517 69.87626549536499 62.126687140923224 53.36608930217088 44.40383991408979 35.94926547355608 28.570979793339017 22.630328932921135 18.236417461824132 15.192489904037192 13.249827372512826 12.137860893511007 11.595628944955276 11.405799989347813 11.429942701550095 11.568058316017249 11.753560886375585 11.94726405231878 12.130396118960329 12.296614309147854 12.443112955329589 12.569532648375205 12.67702443692793 12.767505145833788 12.843127830316481 12.905979157620783 12.957989011320743 13.000882243610942 13.036163211048686 13.065122196497382 13.088853109845845 13.108274442048701 ]';
F=[ 13.194444444444445 13.194444444444445 13.194444444444445 13.194444444444445 13.194444444444445 13.194087219935987 13.191897566004505 13.18406669577091 13.162724955968116 13.113639931724993 13.01541364364405 12.840425936694572 12.557803056526115 12.138726109641494 11.564434047431082 10.83196212019028 9.957092616765264 8.97391032117346 7.9302587215772755 6.87828299528331 5.866264846011963 4.932287614818265 4.100387823602725 3.379987986140614 2.7695684796957876 2.260368985954322 1.8398712587681758 1.4947256844424597 1.2126732625581058 0.9828779363420183 0.7960599003181196 0.6444450234103619 0.5215773747880033 0.42208640875119285 0.3415611399574682 0.2764076701331417 0.22370645541420422 0.18108449427762938 0.14661284717881432 0.11872990868183708 ]';
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 ob4P.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 ob4L.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 ob4M.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 ob4F.jpeg