poza Polską, hanau
więcej zdjęć
R[n_] := (SeedRandom[n]; RandomReal[]) G[A_, s_, c_, T_, x_] := A*T*Exp[-(x - c)^2/s] ListAnimate[ Show[ Table[ Plot[ 100 - n + Sum[G[.05, 6, 100*R[n], S...
pozdrawiam :)
interesujace
podoba się mnie
R[n_] := (SeedRandom[n]; RandomReal[]) G[A_, s_, c_, T_, x_] := A*T*Exp[-(x - c)^2/s] ListAnimate[ Show[ Table[ Plot[ 100 - n + Sum[G[.05, 6, 100*R[n], S...
pozdrawiam :)
interesujace
podoba się mnie