Programa r

Disponível somente no TrabalhosFeitos
  • Páginas : 7 (1646 palavras )
  • Download(s) : 0
  • Publicado : 3 de março de 2013
Ler documento completo
Amostra do texto
Geomatemática II
Modelagem Com o Programa R


Exercicio 1

Gráfico Profundidade x Inclinação:

> dados<-read.table("C:\\Users\\hp.hp-PC\\Desktop//tabela1.txt",header=TRUE)
> dados.novos<-edit(dados)
> read.table("C:\\Users\\hp.hp-PC\\Desktop//tabela1.txt",header=T)
Profundidade Inclinação
1 8519 3,18
2 8613 393
3 87054,39
4 8804 5,28
5 8898 7,62
6 8993 13,87
7 9090 20,71
8 9144 26,68
9 9181 32,29
10 9278 38,60
11 9386 45,09
12 9418 46,48
13 9512 48,65
14 9606 52.64
15 9698 55,93
16 9795 59,21
17 9817 69,55
189848 74,72
19 9911 79,39
20 10023 85,66
21 10099 88,18
22 10162 90,43
23 10244 92,37
> mm<-read.table("C:\\Users\\hp.hp-PC\\Desktop//tabela1.txt",header=T)
> mm
Profundidade Inclinação
1 8519 3,18
2 8613 393
3 8705 4,39
4 8804 5,28
58898 7,62
6 8993 13,87
7 9090 20,71
8 9144 26,68
9 9181 32,29
10 9278 38,60
11 9386 45,09
12 9418 46,48
13 9512 48,65
14 9606 52.64
15 9698 55,93
16 9795 59,21
17 9817 69,55
18 9848 74,72
199911 79,39
20 10023 85,66
21 10099 88,18
22 10162 90,43
23 10244 92,37
> attach(mm)
> plot(mm)

Gráfico Profundidade x Direção:
> dados<-read.table("C:\\Users\\hp.hp-PC\\Desktop//tabela2.txt",header=TRUE)
> dados.novos<-edit(dados)
> read.table("C:\\Users\\hp.hp-PC\\Desktop//tabela2.txt",header=T)
profundidadeDireção
1 8519 172.44
2 8613 151.38
3 8705 142.36
4 8804 138.98
5 8898 141.37
7 9090 140.65
8 9144 138.22
9 9181 131.56
10 9278 125.22
11 9386 118.15
12 9418 117.21
13 9512 116.63
14 9606 114.99
15 9698 118.59
169795 120.11
17 9817 119.54
18 9848 115.75
19 9911 115.93
20 10023 115.36
21 10099 114.95
22 10162 114.82
23 10244 115.00
> mm<-read.table("C:\\Users\\hp.hp-PC\\Desktop//tabela2.txt",header=T)
> mm
profundidade Direção
1 8519 172.44
2 8613 151.38
3 8705 142.36
48804 138.98
5 8898 138.15
6 8993 141.37
7 9090 140.65
8 9144 138.22
9 9181 131.56
10 9278 125.22
11 9386 118.15
12 9418 117.21
13 9512 116.63
14 9606 114.99
15 9698 118.59
16 9795 120.11
17 9817 119.54
18 9848 115.75
19 9911 115.93
2010023 115.36
21 10099 114.95
22 10162 114.82
23 10244 115.00
> attach(mm)
> plot(mm)

Exercicio 2
Poligono (a) :
> x<-c(0.000,624.734,874.150,571.579,110.688)
> y<-c(0.000,48.078,275.063,509.256,285.327)
> x
[1] 0.000 624.734 874.150 571.579 110.688
> y
[1] 0.000 48.078 275.063 509.256 285.327
> plot(x,y)

> polygon(x,y)Poligono (b):

> x<-c(0.000,33.632,33.206,-46.859)
> y<-c(0.000,42.721,92.777,65.348)
> x
[1] 0.000 33.632 33.206 -46.859
> y
[1] 0.000 42.721 92.777 65.348
> plot(x,y)

> polygon(x,y)

Exercicio 3

> x<-seq(-1.5,1.5,length=100)
> x
[1] -1.50000000 -1.46969697 -1.43939394 -1.40909091 -1.37878788 -1.34848485
[7] -1.31818182 -1.28787879...
tracking img