Skriptcode in Zeichnen:
ms=allmasses()--[U];
lim=0.5;
apply(ms,m,
near=select(ms,p,|p-m|<4);
avg=sum(near,m,m.v)/length(near);
m.v=m.v+.2*(avg);
if(|m.v|>lim,m.v=lim*m.v/|m.v|)
//Draw connections
apply(near,draw(#,m,color->(0,0,0),alpha->0.2));
);
Die Teilchen sind alles geladene Massen.
Created with Cinderella