mirror of
https://gitlab.com/klmp200/LO27.git
synced 2024-12-22 22:01:08 +00:00
commented algos
This commit is contained in:
Naej
parent
02a2640ac8
commit
d408036d04
39
report.md
39
report.md
@ -60,6 +60,7 @@ END
|
||||
```
|
||||
|
||||
*setCellValue* is a simple function based on *createMatrixElem* and *deleteMatrixElement* :
|
||||
|
||||
```C
|
||||
setCellValue(matrix:Matrix, ColPos:integer, RowPos:integer,value:bool):bool
|
||||
BEGIN
|
||||
@ -84,7 +85,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
tmp: *cellElement<- NULL
|
||||
|
||||
if (colCount(matrix) <= ColPos OR rowCount(matrix) <= RowPos )
|
||||
createMatrixElem <- ERROR
|
||||
createMatrixElem <- ERROR /* out of bounds */
|
||||
endif
|
||||
|
||||
elem <- CreateCellElem()
|
||||
@ -94,7 +95,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
if (Row != NULL AND data(Row) != NULL)
|
||||
|
||||
if (colIndex(data(Row)) = ColPos)
|
||||
error ++
|
||||
error ++ /* the element already exists */
|
||||
else
|
||||
if (colIndex(data(Row)) > ColPos)
|
||||
nextCol(elem) <- data(Row)
|
||||
@ -102,7 +103,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
endif
|
||||
else
|
||||
tmp <- data(Row)
|
||||
|
||||
/* searching the previous element */
|
||||
while ( nextCol(tmp) != NULL AND nextCol(colIndex(tmp)) < ColPos) do
|
||||
tmp <- nextCol(tmp)
|
||||
endwhile
|
||||
@ -111,11 +112,12 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
nextCol(elem) <- nextCol(tmp)
|
||||
nextCol(tmp) <- elem
|
||||
else
|
||||
error ++
|
||||
error ++ /* the element already exists */
|
||||
endif
|
||||
endif
|
||||
|
||||
else
|
||||
/* if the list is empty */
|
||||
push(rows(matrix),elem)
|
||||
pos(tail(rows(matrix))) <- RowPos
|
||||
endif
|
||||
@ -124,7 +126,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
if (Col != NULL AND data(Col) != NULL)
|
||||
|
||||
if (rowIndex(data(Col)) = RowPos)
|
||||
error ++
|
||||
error ++ /* the element already exists */
|
||||
else
|
||||
if (rowIndex(data(Col)) > RowPos)
|
||||
nextRow(elem) <- data(Col)
|
||||
@ -132,6 +134,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
endif
|
||||
else
|
||||
tmp <- data(Col)
|
||||
/* searching the previous element */
|
||||
while (nextRow(tmp) != NULL AND rowIndex(nextRow(tmp)) < RowPos) do
|
||||
tmp <- nextRow(tmp)
|
||||
endwhile
|
||||
@ -140,17 +143,19 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
|
||||
nexRow(elem) <- nextRow(tmp)
|
||||
newRow(tmp) <- elem
|
||||
else
|
||||
error ++
|
||||
error ++ /* the element already exists */
|
||||
endif
|
||||
endif
|
||||
|
||||
else
|
||||
/* if the list is empty */
|
||||
push(cols(matrix),elem)
|
||||
pos(tail(cols(matrix))) <- ColPos
|
||||
endif
|
||||
|
||||
|
||||
if (error != 0)
|
||||
/* if the element already exists, free it */
|
||||
FreeCellElement(elem)
|
||||
createMatrixElem <- true
|
||||
else
|
||||
@ -169,63 +174,76 @@ BEGIN
|
||||
|
||||
elem <- findMatrixElem(matrix,ColPos,RowPos)
|
||||
if (elem = NULL)
|
||||
/* if the element does not exists */
|
||||
deleteMatrixElem <- 0
|
||||
endif
|
||||
|
||||
Row <- getElementPos(rows(matrix),RowPos)
|
||||
if (Row = NULL)
|
||||
/* this shouldn't happend */
|
||||
deleteMatrixElem <- -1
|
||||
endif
|
||||
|
||||
if (data(Row) = NULL)
|
||||
/* this shouldn't happend too */
|
||||
removeElementPos(rows(matrix),RowPos)
|
||||
deleteMatrixElem <- -1
|
||||
endif
|
||||
|
||||
if (colIndex(data(Row)) = ColPos)
|
||||
/* the element is the first element */
|
||||
data(Row) <- nextCol(elem)
|
||||
else
|
||||
tmp <- data(Row)
|
||||
|
||||
/* finding prefious element */
|
||||
while (nextCol(tmp) != NULL AND nextCol(tmp) != elem) do
|
||||
tmp <- nextCol(tmp)
|
||||
endwhile
|
||||
|
||||
if (nextCol(tmp) != NULL)
|
||||
/* linking correctly the previous element */
|
||||
nextCol(tmp) <- nextCol(elem)
|
||||
endif
|
||||
|
||||
endif
|
||||
|
||||
if (data(Row) = NULL)
|
||||
/* if the row is empty now we delete it to save memory */
|
||||
removeElementPos(rows(matrix),RowPos)
|
||||
endif
|
||||
|
||||
|
||||
Col <- getElementPos(cols(matrix),ColPos)
|
||||
if (Col = NULL)
|
||||
/* this shouldn't happend */
|
||||
deleteMatrixElem <- -2
|
||||
endif
|
||||
|
||||
if (data(Col) = NULL)
|
||||
/* this shouldn't happend too */
|
||||
removeElementPos(cols(matrix),ColPos)
|
||||
deleteMatrixElem <- -1
|
||||
endif
|
||||
|
||||
if (rowIndex(data(Col)) = RowPos)
|
||||
/* the element is the first element */
|
||||
data(Col) <- nextRow(elem)
|
||||
else
|
||||
tmp <- data(Col)
|
||||
/* finding prefious element */
|
||||
while (nextRow(tmp) != NULL AND nextRow(tmp) != elem) do
|
||||
tmp <- nextRow(tmp)
|
||||
endwhile
|
||||
|
||||
if (nextRow(tmp) != NULL)
|
||||
/* linking correctly the previous element */
|
||||
nextRow(tmp) <- nextRow(elem)
|
||||
endif
|
||||
|
||||
endif
|
||||
|
||||
if (data(Col) = NULL)
|
||||
/* if the col is empty now we delete it to save memory */
|
||||
removeElementPos(cols(matrix),ColPos)
|
||||
endif
|
||||
|
||||
@ -277,7 +295,7 @@ Here are the algorithm of the function *applyRules* and all the one related to i
|
||||
```C
|
||||
applyRules ( matrix:Matrix, Rules:integer, N:integer):Matrix
|
||||
BEGIN
|
||||
RulesMatrix :integer[9]
|
||||
RulesMatrix :integer[9] /* the size is the number of fundamental rules */
|
||||
i:integer <- 0
|
||||
power:integer <- 2
|
||||
sum:integer <- 0
|
||||
@ -290,6 +308,7 @@ BEGIN
|
||||
applyRules <- matrix
|
||||
endif
|
||||
|
||||
/* decompotition of the rule in basic rules */
|
||||
while(power <= 512) do
|
||||
|
||||
RulesMatrix[i] <- Rules%power - sum
|
||||
@ -303,6 +322,8 @@ BEGIN
|
||||
|
||||
endwhile
|
||||
|
||||
/* application of the rule */
|
||||
|
||||
tempMatrix1 <- matrixFromRules(matrix, i, RulesMatrix)
|
||||
|
||||
for j from 0 to N do
|
||||
@ -315,8 +336,6 @@ BEGIN
|
||||
applyRules <- tempMatrix1
|
||||
|
||||
END
|
||||
|
||||
|
||||
```
|
||||
|
||||
# Conclusion
|
||||
Loading…
Reference in New Issue
Block a user