Il signor K il 2 marzo 2010 da uno sportello Bancomat della propria banca fa stampare l'elenco delle ultime operazioni effettuate. Ottiene il foglietto sotto riprodotto parzialmente. Completalo utilizzando il grafico dell'andamento del saldo.
c.c. 8798/80 010110 SALDO 2 400 data operazione importo  120110 versamento 800 230110 bonifico - 3 600 280110 stipendio ...00 020210 prelievo ...00 090210 assegno ...00 140210 pagobancomat - 300 180210 pagobancomat - 500 250210 versamento ...00 280210 bonifico ...00 280210 stipendio 2 100 020310 SALDO 2 300

Per rispondere si possono leggere direttamente le variazioni verticali sul grafico oppure si possono prima leggere le ordinate dei punti del grafico (ossia i successivi saldi) e poi calcolare le variazioni da un saldo al successivo:

c.c. 8798/80 010110 SALDO 2 400 data operazione importo saldo  120110 versamento 800 3 200 (3200-2400 → 800) 230110 bonifico - 3 600 - 400 (-400-3200 → -3600) 280110 stipendio 2 100 1 700 ... 020210 prelievo - 400 1 300 090210 assegno - 600 700 140210 pagobancomat - 300 400 180210 pagobancomat - 500 - 100 250210 versamento 900 800 280210 bonifico - 600 280210 stipendio 2 100 2 300 020310 SALDO 2 300

Per verifica possiamo calcolare il totale delle operazioni "avere" e delle operazioni "dare" e vedere se corrispondono alla differenza tra saldo iniziale e saldo finale:
avere: 800+2100+900+2100 = 2900+3000 = 5900
dare: -(3600+400+600+300+500+600) = -(4000+900+1100) = -(4000+2000) = -6000
variazione complessiva: 5900-6000 = -100
saldo finale - saldo iniziale = 2300-2400 = -100: OK

Come fare il grafico con R:

source("http://macosa.dima.unige.it/r.R")
G = c(1,12,23,28,31+2,31+9,31+14,31+18,31+25,31+28,31+28+2)
S = c(24,8,-36,21,-4,-6,-3,-5,9,-6+21,0)*100
for(i in 2:11) S[i]=S[i]+S[i-1]
BF=4; HF=3
Piano(0,61, -5*100,35*100)
i=1:11; spezza(G[i], S[i], "blue")
i=1:11;  PUNTO(G[i], S[i], "blue")
   

Il grafico può essere realizzato anche con lo script online "disegnare(4)" presente QUI  con i comandi (seguiti dalla battitura di ";" o uno spazio bianco):

,&10&e &65&1,&10&a &45&2, &25&a&7&b "1"aa"5" &13&a"3"aa"0" &13&a"4"aa"5" &13&a"6"aa"0"
,&20&ba "1"aa"0"aa"0"aa"0",&30&ba "2"aa"0"aa"0"aa"0",&40&ba "3"aa"0"aa"0"aa"0",&5&ba"-"aa"5"aa"0"aa"0"
,&73&a&13&b "d"aa"a"aa"t"a"a",&13&a&46&b"s"aa"a"aa"l"a"d"aa"o",&10&b&7&a"0"
,&11&a&34&b@ v&11&a&8&bw@ v&11&a&36&dw@ v&5&a&21&bw@ v&5&a&4&dw@ v&7&a&6&dw@ v&5&adddw@ v&4&a&5&dw@
v&7&a&8&bw@ vaaa&15&bw@ 11@

Col software online WolframAlpha:
plot { (1,24),(12,32),(23,-4),(28,17),(33,13),(40,7),(45,4),(49,-1),(56,8),(59,23),(61,23) }