marcorealacci/so-un-bot
1
0
Fork 0
mirror of https://github.com/appinfosapienza/so-un-bot.git synced 2025-05-06 17:59:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added 07-21 exam

Browse source
This commit is contained in:
Deco71 2022-11-16 18:08:57 +01:00
parent 1a3767b4a9
commit 81bfdb2c34
180 changed files with 0 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Ingegneria del Software/0721_8/correct.txt Normal file
View file

@ -0,0 +1,35 @@
<pre>
model System
parameter Integer F1 = 1;
parameter Integer F2 = 2;
parameter Integer F3 = 3;
parameter Integer End = 4;
parameter Real p = 0.3;
parameter Real A[4, 4] =
[
p, 1-p, 0, 0;
p, 0, 1-p, 0;
p, 0, 0, 1-p;
0, 0, 0, 1
];
Integer x; Real r1024;
Integer state1024[Modelica.Math.Random.Generators.Xorshift1024star.nState];
algorithm
when initial() then
state1024 := Modelica.Math.Random.Generators.Xorshift1024star.initialState(614657, 30020);
x := F1;
r1024 := 0;
elsewhen sample(0,1) then
(r1024,state1024) := Modelica.Math.Random.Generators.Xorshift1024star.random(pre(state1024));
if (r1024 <= A[x, F1]) then
x := F1;
elseif (r1024 <= A[x, F1] + A[x, F2]) then
x := F2;
elseif (r1024 <= A[x, F1] + A[x, F2] + A[x, F3]) then
x := F3;
else
x := End;
end if;
end when;
end System;
</pre>

4
Ingegneria del Software/0721_8/quest.txt Normal file
View file

@ -0,0 +1,4 @@
img=https://i.imgur.com/rw4Tvcj.png
Si consideri la seguente Markov Chain:
Quale dei seguenti modelli Modelica fornisce un modello ragionevole per la Markov Chain di cui sopra?

35
Ingegneria del Software/0721_8/wrong1.txt Normal file
View file

@ -0,0 +1,35 @@
<pre>
model System
parameter Integer F1 = 1;
parameter Integer F2 = 2;
parameter Integer F3 = 3;
parameter Integer End = 4;
parameter Real p = 0.3;
parameter Real A[4, 4] =
[
p, 0 , 1-p, 0;
p, 1-p, 0, 0;
p, 0, 0, 1-p;
0, 0, 0, 1
];
Integer x; Real r1024;
Integer state1024[Modelica.Math.Random.Generators.Xorshift1024star.nState];
algorithm
when initial() then
state1024 := Modelica.Math.Random.Generators.Xorshift1024star.initialState(614657, 30020);
x := F1;
r1024 := 0;
elsewhen sample(0,1) then
(r1024,state1024) := Modelica.Math.Random.Generators.Xorshift1024star.random(pre(state1024));
if (r1024 <= A[x, F1]) then
x := F1;
elseif (r1024 <= A[x, F1] + A[x, F2]) then
x := F2;
elseif (r1024 <= A[x, F1] + A[x, F2] + A[x, F3]) then
x := F3;
else
x := End;
end if;
end when;
end System;
</pre>

35
Ingegneria del Software/0721_8/wrong2.txt Normal file
View file

@ -0,0 +1,35 @@
<pre>
model System
parameter Integer F1 = 1;
parameter Integer F2 = 2;
parameter Integer F3 = 3;
parameter Integer End = 4;
parameter Real p = 0.3;
parameter Real A[4, 4] =
[
p, 0, 1-p, 0;
0, p, 1-p, 0;
p, 0, 0, 1-p;
0, 0, 0, 1
];
Integer x; Real r1024;
Integer state1024[Modelica.Math.Random.Generators.Xorshift1024star.nState];
algorithm
when initial() then
state1024 := Modelica.Math.Random.Generators.Xorshift1024star.initialState(614657, 30020);
x := F1;
r1024 := 0;
elsewhen sample(0,1) then
(r1024,state1024) := Modelica.Math.Random.Generators.Xorshift1024star.random(pre(state1024));
if (r1024 <= A[x, F1]) then
x := F1;
elseif (r1024 <= A[x, F1] + A[x, F2]) then
x := F2;
elseif (r1024 <= A[x, F1] + A[x, F2] + A[x, F3]) then
x := F3;
else
x := End;
end if;
end when;
end System;
</pre>