# Calculate interaction values at various distances
r_seq <- seq(0.01, 1, by = 0.01)
interaction <- f_Vicsek_variation(r_seq)
plot(r_seq, interaction, type = "l",
xlab = "Distance", ylab = "Interaction Strength",
main = "Vicsek Variation Interaction Function")
Run the code above in your browser using DataLab