Come è stato realizzato il simbolo ufficiale dell'euro?  La figura a destra ne illustra la costruzione.  Prova a tracciarlo usando R o altro software.  Per vederlo più grande clicca qui.

figura 1	figura 2

L'esercizio non è banale, ma è un'occasione per prendere un po' più di confidenza col software.  Qui sotto come può essere realizzata la figura sopra a sinistra con R e il modo, un po' più elaborato, in cui può essere costruita la figura sopra a destra (i colori sono stati aggiunti copiando la figura ottenuta in Paint - o software analogo - e usando il "secchiello" per riempire di un certo colore le due parti che la compongono).

# Per ottenere la figura 1 con R
source("http://macosa.dima.unige.it/r.R")
BF=5; HF=6
PLANE(-8,8, -8,8)
circl(0,0, 6, "grey"); circl(0,0, 5, "grey")
ARC(0,0, 5, 40,360-40, "blue")
C1=cos(40*degrees)*5; C2=sin(40*degrees)*5
line(0,0,C1,C2,"grey")
E1=C1; DAE=acos(C1/6)
segm(E1,-C2, E1,sin(-DAE)*6,"red")
R1 = function(x) -6+(C2+6)/C1*x
graph1(R1,0,8, "grey")
R2 = function(x) sqrt(6^2-x^2)
K=solution2(R1,R2, 0,5)
graph(R1,C1,R2(K), "red")
DAC=acos(R2(K)/6)
ARC(0,0, 6,DAC/degrees,360-DAE/pi*180,"brown")
x1=solution(R1,1+1/2, 0,5); x2=solution(R1,1/2, 0,5)
x3=solution(R1,-1/2, 0,5); x4=solution(R1,-1-1/2, 0,5)
V=x2+7.5
segm(-7.5,1/2,x2,1/2,"seagreen")
segm(x1-V,1+1/2,x1,1+1/2,"seagreen")
segm(x1-V,1+1/2,-7.5,1/2,"seagreen")
segm(x1,1+1/2,x2,1/2,"seagreen")
Z=x4+7.5
segm(x3-Z,-1/2,x3,-1/2,"seagreen")
segm(-7.5,-1-1/2,x4,-1-1/2,"seagreen")
segm(x3-Z,-1/2,-7.5,-1/2-1,"seagreen")
segm(x3,-1/2,x4,-1-1/2,"seagreen")
#
# Per ottenere la figura 2, in modo un po' più elaborato
# (occorre calcolare le intersezioni tra parti orizzontali e cerchio)
BOXW(-8,5, -6.5,6.5)
R0=function(x) sqrt(5^2-x^2); R0b=function(x) -sqrt(5^2-x^2)
ARC(0,0, 5, 40,acos(solution(R0,1+1/2,-5,-4)/5)*180/pi, "black")
R=function(x) sqrt(6^2-x^2); Rb=function(x) -sqrt(6^2-x^2)
ARC(0,0, 6, DAC/degrees,acos(solution(R,1+1/2,-6,-5)/6)*180/pi, "black")
ARC(0,0, 5, acos(solution(R0,1/2,-5,-4)/5)*180/pi,(2*pi-acos(solution(R0,1/2,-5,-4)/5))*180/pi,"black")
ARC(0,0, 6, acos(solution(R,1/2,-6,-5)/6)*180/pi,(2*pi-acos(solution(R,1/2,-6,-5)/6))*180/pi, "black")
ARC(0,0, 5, (2*pi-acos(solution(R0,1+1/2,-5,-4)/5))*180/pi,360-40, "black")
ARC(0,0, 6,(2*pi-acos(solution(R,1+1/2,-6,-5)/6))*180/pi,360-DAE/pi*180,"black")
segm(E1,-C2, E1,sin(-DAE)*6,"black")
graph(R1,C1,R2(K), "black")
segm(x1-V,1+1/2,-7.5,1/2,"black")
segm(x1,1+1/2,x2,1/2,"black")
segm(x3-Z,-1/2,-7.5,-1/2-1,"black")
segm(x3,-1/2,x4,-1-1/2,"black")
segm(-7.5,1/2,solution(R,1/2,-6,-5),1/2,"black")
segm(solution(R0,1/2,-5,-4),1/2,x2,1/2,"black")
segm(x1-V,1+1/2, solution(R,1+1/2,-6,-5),1+1/2,"black")
segm(solution(R0,1+1/2,-5,-4),1+1/2,x1,1+1/2,"black")
segm(-7.5,-1-1/2,solution(R,1+1/2,-6,-5),-1-1/2,"black")
segm(x1-V,-1/2, solution(R,1/2,-6,-5),-1/2,"black")
segm(solution(R0,1+1/2,-5,-4),-1-1/2,x4,-1-1/2,"black")
segm(solution(R0,1/2,-5,-4),-1/2, x3,-1/2,"black")