mirror of
https://github.com/Zenithsiz/ist-ddrs-lab2
synced 2026-02-03 22:23:55 +00:00
Filipe Rodrigues
483fb34788
Made all matrices have delimiters `[]`. Co-authored-by: Ricardo-Rodrigues <R1cardu7@users.noreply.github.com>
32 lines
708 B
R
32 lines
708 B
R
cur_state <- 1
|
|
prob_matrix <- matrix(
|
|
c(
|
|
c(0.6, 0.0, 0.4),
|
|
c(0.7, 0.2, 0.1),
|
|
c(0.0, 0.2, 0.8)
|
|
),
|
|
nrow = 3,
|
|
ncol = 3,
|
|
byrow = TRUE
|
|
)
|
|
|
|
|
|
rounds <- 100000
|
|
states <- list()
|
|
for (round_idx in 1:rounds) {
|
|
states[[length(states) + 1]] <- cur_state
|
|
probs <- cumsum(prob_matrix[cur_state, ])
|
|
|
|
prob <- runif(1, 0.0, 1.0)
|
|
next_state <- which(probs >= prob)
|
|
if (is.vector(next_state)) {
|
|
next_state <- next_state[1]
|
|
}
|
|
cur_state <- next_state
|
|
}
|
|
|
|
probs <- sapply(1:3, function(state) length(states[states == state]) / length(states))
|
|
probs <- sapply(probs, function(x) round(x, 4))
|
|
print(probs)
|
|
write.table(probs, "output/4-sim.csv", sep = "\t", col.names = FALSE, row.names = FALSE)
|