Otto recipienti graduati uguali tra loro, sotto raffigurati, in grado di contenere ciascuno 35 cl, collegabili mediante un tubicino, contengono del liquido colorato.  Se apro il collegamento tra i recipienti, in quali di essi il liquido sale, in quali scende?  Perché?

Se apro i collegamenti tra i recipienti il totale del liquido si ripartisce tradi essi in parti uguali.  Devo quindi trovare innanzi tutto quanto è la somma dei contenuti dei vari recipienti.  Approssimo le misure ai centilitri. Ecco, all'incirca il contenuto dei vari cilindri:
  30, 14, 20, 12, 33, 28, 19, 17,   e la loro somma:  173.
Se collego i contenitori, il liquido si ripartisce in parti uguali tra essi; una piccolissima parte rimane nel tubicino.  In ciascuno dei contenitori alla fine vi saranno circa  173/8 = 21.625 cl (questo valore è la media dei contenuti dei vari recipienti).  Arrotondo questa misura a 21.6 cl, o a  22 cl (non ha senso prendere cinque cifre, dato che le misure sono approssimate).  Il liquido sale nei recipienti 2, 3, 4, 7, 8 e scende negli altri, come si vede anche nella figura seguente.

Volendo si può tracciare il grafico anche con questo semplice script, introducendo  1*30, 2*14, 3*20, 4*12, 5*33, 6*28, 7*19, 8*17  (aggiungendo 9*22 se si vuole individuare dove tracciare la retta che indica il valor medio):

Il alternativa si poteva usare, in modo simile, mettendo direttamente 30, 14, …, 21.625 questo'altro script  
# Per gli insegnanti, come è stato fatto il grafico con R:	
source("http://macosa.dima.unige.it/r.R")
BF=5; HF=2
Planeww(0,7.5,0,38)
coldash="blue"; gridH(seq(0,35,5))
for(i in 0:7) rect(i,0,i+1/2,35,col="grey95")
for(i in 0:7) rect(i+0.1,35,i+1/2-0.1,35+2,col="grey95")
rect(0,1.5, 7.5,3,col="grey95")
rect(0,0,0.5,30,col="cyan")
rect(1,0,1.5,14,col="cyan")
rect(2,0,2.5,20,col="cyan")
rect(3,0,3.5,12,col="cyan")
rect(4,0,4.5,33,col="cyan")
rect(5,0,5.5,28,col="cyan")
rect(6,0,6.5,19,col="cyan")
rect(7,0,7.5,17,col="cyan")
for(i in 1:8) UnderX(i,i-1+1/4)
for (i in 0:3) UnderY(i*10,i*10)
dati = c(30,14,20,12,33,28,19,17)
s = sum(dati); s; m = mean(dati); m
# 173   21.625
coldash="brown"; gridH(m)