ResourceFunction["WolframModelPlot"]​​ResourceFunction["WolframModel"][{{1,2,1},{1,3,4}}​​{{4,5,4},{5,4,3},{1,2,5}},{{0,0,0},{0,0,0}},​​2000,"FinalState"],

Out[]=