Nel 2005 in Italia si sono importati dagli altri stati merci per un valore di 306 miliardi di € e se ne sono esportate per un valore pari a 296 miliardi di €. Nel 2010 si sono importate merci per 367 miliardi e se ne sono esportate per 337 miliardi. Nel 2015 le importazioni sono state di 370 miliardi e le esportazioni di 412 miliardi. Si chiama saldo commerciale la differenza tra il valore delle esportazioni e quello delle importazioni. Può essere positivo o negativo. Completa i seguenti riquadri (il primo è già stato completato come esempio).

Ecco la soluzione:

 
# Per l'insegnante, come sono state fatte le figure con script o con R (vedi):
#
source("http://macosa.dima.unige.it/r.R")
BF=7.5; HF=5          # posso cambiare quando voglio le dimensioni
boxW(-70,70, -70,70)  # questa è una scala comoda per gran parte dei diagrammi
BOX()                 # Uso BOX() per cedere la griglia; poi ripeto tutto senza BOX()
arrow(-20,55,-10,55,"black")
arrow(10,55,20,55,"black")
x=c(-10,10,10,-10); y=c(50,50,60,60); polyC(x,y,"yellow")
arrow(-70,55,-60,55,"black")
arrow(-40,55,-30,55,"black")
x=c(-60,-40,-40,-60); y=c(50,50,60,60); polyC(x,y,"yellow")
arrow(30,55,40,55,"black")
arrow(60,55,70,55,"black")
x=c(40,60,60,40); y=c(50,50,60,60); polyC(x,y,"yellow")
A=c(-50,55); ptext(A,"-10")
A=c(-50,65); ptext(A,"saldo")
A=c(-50,45); ptext(A,"2005")
A=c(-65,60); ptext(A,"306")
A=c(-65,50); ptext(A,"imp.")
A=c(-35,60); ptext(A,"296")
A=c(-35,50); ptext(A,"esp.")
A=c(0,65); ptext(A,"saldo")
A=c(0,45); ptext(A,"2010")
A=c(-15,60); ptext(A,"367")
A=c(-15,50); ptext(A,"imp.")
A=c(15,60); ptext(A,"337")
A=c(15,50); ptext(A,"esp.")
A=c(50,65); ptext(A,"saldo")
A=c(50,45); ptext(A,"2015")
A=c(65,60); ptext(A,"412")
A=c(65,50); ptext(A,"esp.")
A=c(35,60); ptext(A,"370")
A=c(35,50); ptext(A,"imp.")
#
# ridimensiono la finestra, poi rifaccio senza BOX (se non l'ho gia' fatto):
CLEAN(-100,100, -100,100)           # cancello tutto
arrow(-20,55,-10,55,"black")
# ...
A=c(50,55); ptext(A,"42")
A=c(0,55); ptext(A,"-30")