# Immagine realizzata con R (vedi la guida per spiegazioni) source("http://macosa.dima.unige.it/r.R") BF=5; HF=3.5 boxN(-70,70, -70,70) # Mi conviene lasciare questa scala: # la griglia visualizzata è centrata in O e ha maglie ampie 10 # Queste istruzioni non mettono griglia, che posso vedere con: BOX() # Poi la toglierò (vedi avanti) # Dimensiono col mouse la finestra come voglio, per tracciare le frecce # Scrivo le frasi in posizioni comode co = "red"; co1="blue"; co2="black" # scelgo i colori delle frecce type(-10,0,"ALLEVAMENTO") # o: scrivi(..) type(-15,40,"suini di pregio") type(-40,20,"mangimi") type(-55,-5,"disinfettanti") type(-45,-30,"fonti di energia") type(-15,-35,"servizi") type(5,-35,"lavoro") type(20,-20,"macchinari") type(38,0,"suini da macello") type(30,15,"biogas") type(20,34,"liquame") type(45,34,"rifiuti") arrow(-40,-5, -30,-5, co) # o: freccia(..) arrow(-30,-20, -25,-7, co) arrow(-32,-24, -25,-7, co) arrow(-15,-30, -15,-7, co) arrow(0,-30, 0,-7, co) arrow(15,-16, 8,-7, co) arrow(9,0, 18,0, co1) arrow(20,15, 9,5, co) arrow(-30,17, -26,5, co) arrow(-15,33, -15,5, co) arrow(-15,33, -15,6, co) arrow(-5,6, 10,29, co1) arrow(25,27, 25,20, co2) arrow(25,30, 25,20, co2) arrow(30,34, 37,34, co2) # OK, ho ottenuto l'immagine sopra riprodotta # I comandi mi conviene scriverli prima di copiarli in R in un programma di # scrittura, in modo da modificarli o riprodurli facilmente # Ora riproduco l'immagine senza box, nella stessa finestra BoxN(-70,70, -70,70) # con la "B" grande mantengo la finestra già dimensionata # Non scrivo più BOX() type(-10,0,"ALLEVAMENTO") ...