IDI_Master/projet_altarica
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

First commit

Browse source
This commit is contained in:
Yorick Barbanneau 2023-03-01 21:40:15 +01:00
commit b7a1213f91
29 changed files with 1312 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Alt/Ctrl.alt Normal file
View file

@ -0,0 +1,16 @@
node Ctrl
/* Controller observations
*/
flow rate : [0,2][3];
level : [0,nbSensors];
/* The 27 commands of the controller
* d for dec, i for inc and n for nop
*/
event ddd, ddi, ddn, did, dii, din, dnd, dni, dnn,
idd, idi, idn, iid, iii, iin, ind, ini, inn,
ndd, ndi, ndn, nid, nii, nin, nnd, nni, nnn;
trans true |- ddd, ddi, ddn, did, dii, din, dnd, dni, dnn,
idd, idi, idn, iid, iii, iin, ind, ini, inn,
ndd, ndi, ndn, nid, nii, nin, nnd, nni, nnn
-> ;
edon

49
Alt/CtrlVV.alt Normal file
View file

@ -0,0 +1,49 @@
node CtrlVV
/* Virtual valves to simulate real valves in order to discover failures
*/
sub V : ValveVirtual[3];
/* Controller observations
*/
flow rate : [0,2][3];
level : [0,nbSensors];
assert V[0].rateReal = rate[0];
V[1].rateReal = rate[1];
V[2].rateReal = rate[2];
/* The 27 commands of the controller
* d for dec, i for inc and n for nop
*/
event ddd, ddi, ddn, did, dii, din, dnd, dni, dnn,
idd, idi, idn, iid, iii, iin, ind, ini, inn,
ndd, ndi, ndn, nid, nii, nin, nnd, nni, nnn;
trans true |- ddd, ddi, ddn, did, dii, din, dnd, dni, dnn,
idd, idi, idn, iid, iii, iin, ind, ini, inn,
ndd, ndi, ndn, nid, nii, nin, nnd, nni, nnn
-> ;
sync <ddd, V[0].dec, V[1].dec, V[2].dec>;
<ddi, V[0].dec, V[1].dec, V[2].inc>;
<ddn, V[0].dec, V[1].dec>;
<did, V[0].dec, V[1].inc, V[2].dec>;
<dii, V[0].dec, V[1].inc, V[2].inc>;
<din, V[0].dec, V[1].inc>;
<dnd, V[0].dec, V[2].dec>;
<dni, V[0].dec, V[2].inc>;
<dnn, V[0].dec>;
<idd, V[0].inc, V[1].dec, V[2].dec>;
<idi, V[0].inc, V[1].dec, V[2].inc>;
<idn, V[0].inc, V[1].dec>;
<iid, V[0].inc, V[1].inc, V[2].dec>;
<iii, V[0].inc, V[1].inc, V[2].inc>;
<iin, V[0].inc, V[1].inc>;
<ind, V[0].inc, V[2].dec>;
<ini, V[0].inc, V[2].inc>;
<inn, V[0].inc>;
<ndd, V[1].dec, V[2].dec>;
<ndi, V[1].dec, V[2].inc>;
<ndn, V[1].dec>;
<nid, V[1].inc, V[2].dec>;
<nii, V[1].inc, V[2].inc>;
<nin, V[1].inc>;
<nnd, V[2].dec>;
<nni, V[2].inc>;
<nnn>;
edon

25
Alt/GNUmakefile Normal file
View file

@ -0,0 +1,25 @@
TARGET = tank.alt
SOURCE_ALT = Parameters.alt\
Valve.alt\
ValveVirtual.alt\
Tank.alt\
System.alt\
DIFF_ALT =
all: $(TARGET) $(DIFF_ALT)
clean:
rm -f *~
cleandir : clean
rm -f $(TARGET) $(DIFF_ALT) test.alt
$(TARGET) : $(SOURCE_ALT)
rm -f $(TARGET)
for d in $(SOURCE_ALT); do \
cat $$d >> $(TARGET);\
done
$(DIFF_ALT) : $(SOURCE_ALT)

9
Alt/Parameters.alt Normal file
View file

@ -0,0 +1,9 @@
/* nbSensors : the number of sensors
* nbSensors must be greater or equal to 4
*/
const nbSensors = 4;
/* nbFailures : the maximum number if failures (0, 1, 2 or 3)
* nbFailures is use to limit the reachables configurations
*/
const nbFailures = NbPannes;

47
Alt/System.alt Normal file
View file

@ -0,0 +1,47 @@
node SystemNbPannesFNomDuControleur
sub V : Valve[3];
T : Tank;
C : NomDuControleur;
assert T.input = (V[0].rate + V[1].rate);
T.output = V[2].rate;
/* les observations du controleurs */
C.rate[0] = V[0].rate;
C.rate[1] = V[1].rate;
C.rate[2] = V[2].rate;
C.level = T.level;
/* to limit the number of failures */
nbFailures >= (V[0].stucked + V[1].stucked + V[2].stucked);
state ctrl : bool;
init ctrl := true;
event env, cmd;
trans ctrl |- cmd -> ctrl := false;
~ctrl |- env -> ctrl := true;
sync <env, T.time>;
<C.ddd, cmd, V[0].dec, V[1].dec, V[2].dec>;
<C.ddi, cmd, V[0].dec, V[1].dec, V[2].inc>;
<C.ddn, cmd, V[0].dec, V[1].dec>;
<C.did, cmd, V[0].dec, V[1].inc, V[2].dec>;
<C.dii, cmd, V[0].dec, V[1].inc, V[2].inc>;
<C.din, cmd, V[0].dec, V[1].inc>;
<C.dnd, cmd, V[0].dec, V[2].dec>;
<C.dni, cmd, V[0].dec, V[2].inc>;
<C.dnn, cmd, V[0].dec>;
<C.idd, cmd, V[0].inc, V[1].dec, V[2].dec>;
<C.idi, cmd, V[0].inc, V[1].dec, V[2].inc>;
<C.idn, cmd, V[0].inc, V[1].dec>;
<C.iid, cmd, V[0].inc, V[1].inc, V[2].dec>;
<C.iii, cmd, V[0].inc, V[1].inc, V[2].inc>;
<C.iin, cmd, V[0].inc, V[1].inc>;
<C.ind, cmd, V[0].inc, V[2].dec>;
<C.ini, cmd, V[0].inc, V[2].inc>;
<C.inn, cmd, V[0].inc>;
<C.ndd, cmd, V[1].dec, V[2].dec>;
<C.ndi, cmd, V[1].dec, V[2].inc>;
<C.ndn, cmd, V[1].dec>;
<C.nid, cmd, V[1].inc, V[2].dec>;
<C.nii, cmd, V[1].inc, V[2].inc>;
<C.nin, cmd, V[1].inc>;
<C.nnd, cmd, V[2].dec>;
<C.nni, cmd, V[2].inc>;
<C.nnn, cmd>;
edon

16
Alt/Tank.alt Normal file
View file

@ -0,0 +1,16 @@
node Tank
state level : [0,nbSensors] : public;
init level := nbSensors/2;
flow input : [0,4];
output : [0,2];
event time;
trans input>output |- time -> level := level + 1;
input<output |- time -> level := level - 1;
input=output & input=0 |- time -> ;
input=output & input>0 |- time -> level := level - 1;
input=output & input>0 |- time -> ;
input=output & input>0 |- time -> level := level + 1;
/* To avoid deadlocks */
input>output & level=nbSensors |- time -> ;
input<output & level=0 |- time -> ;
edon

15
Alt/Valve.alt Normal file
View file

@ -0,0 +1,15 @@
node Valve
state rate : [0,2] : public;
stucked : [0,1] : public;
init rate := 0;
stucked := 0;
event dec, inc;
trans stucked=0 |- dec -> rate := rate - 1;
stucked=0 |- inc -> rate := rate + 1;
stucked=0 & rate=0 |- dec -> ;
stucked=0 & rate=2 |- inc -> ;
/* a problem may appear */
stucked=0 |- dec, inc -> stucked := 1;
/* After the failure, the valve is stuck */
stucked=1 |- dec, inc -> ;
edon

16
Alt/ValveVirtual.alt Normal file
View file

@ -0,0 +1,16 @@
/* A virtual valse is use by the controller :
* - to simulate a perfect valve
* - to stop the use of a valve when it is stuck
*/
node ValveVirtual
state rate : [0,2] : public;
/* information given via the controller
* rate different from rateReal means that this valve is stuck.
* so there is no need to use it any more
*/
flow rateReal : [0,2];
init rate := 0;
event dec, inc;
trans rate=rateReal |- dec -> rate := rate - 1;
rate=rateReal |- inc -> rate := rate + 1;
edon