Come è stata ottenuta la figura precedente con R (copia tutto e incolla):
T1 <- c( 0.3,36.5, 0.8,40.1, 1.3,39.7, 1.8,40.1, 2.3,39.6, 2.8,40.1, 3.3,39.8, 3.8,40.1, 4.3,39.6, 4.8,40.2, 5.3,39.8, 5.8,38.2, 6.3,40.3, 6.8,37.8, 7.3,36.3, 7.8,36.4, 8.3,36.4, 8.8,36.5, 9.3,36.3 ) |
T2 <- c( 0.3,36.5, 0.8,40, 1.3,39.6, 1.8,40.2, 2.3,39, 2.8,39.8, 3.3,38.3, 3.8,38.5, 4.3,37.9, 4.8,39.9, 5.3,39.6, 5.8,40.3, 6.3,39.8, 6.8,37.3, 7.3,36.9, 7.8,37.2, 8.3,36.7, 8.8,37, 9.3,36.6) |
T3 <- c( 0.3,36.5, 0.8,40, 1.3,39.7, 1.8,40.5, 2.3,40, 2.8,40.9, 3.3,40.4, 3.8,40.8, 4.3,40.3, 4.8,41, 5.3,40.1, 5.8,40.6, 6.3,39.9, 6.8,38.3, 7.3,37.8, 7.8,38.2, 8.3,37.2, 8.8,37.4, 9.3,36.8) |
source("http://macosa.dima.unige.it/r.R") # (vedi) X1 <- xTab(T1); Y1 <- yTab(T1) X2 <- xTab(T2); Y2 <- yTab(T2) X3 <- xTab(T3); Y3 <- yTab(T3) HF=2.5; BF=4; Piano(0,10,36,41) spezzata(X1,Y1,"blue"); spezzata(X2,Y2,"red"); spezzata(X3,Y3,"brown") # o: Plane polyline |
I grafici seguenti possono essere realizzati con dei semplici script seguibile on line: vedi e vedi.