<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Prof. Paulo, funcionou, segue solução abaixo para
arquivamento,<br>
<br>
#Exemplo 2<br>
<br>
x<-c(0,0,100,100,0)<br>
y<-c(0,100,100,0,0) <br>
plot(x,y, type="l", col="red")<br>
xy45<-cbind(x,y)<br>
xy45<-as.matrix(xy45)<br>
ang<- 45 #### Angulo a ser rotacionado<br>
Q<-rbind(c(cos(ang),sin(ang)),c(-sin(ang), cos(ang))) ## Matriz
de rotação<br>
xyrt<-xy45 %*% Q # Multiplicação de matrizes<br>
plot(xyrt[,1],xyrt[,2], type="l", col="red")<br>
#<br>
p0<-c(1,1)<br>
#<br>
#<br>
c0 <- seq(p0[1],p0[1]+100,by=10)<br>
d0 <- seq(p0[2],p0[2]+100,by=10)<br>
d1 <- expand.grid(x=c0, y=d0)<br>
#<br>
d2<-as.matrix(d1)<br>
ang<- 45 #### Angulo a ser rotacionado<br>
Q<-rbind(c(cos(ang),sin(ang)),c(-sin(ang), cos(ang))) ## Matriz
de rotação<br>
drt<-d2 %*% Q # Multiplicação de matrizes<br>
points(drt[,1],drt[,2])<br>
#<br>
<br>
<div class="moz-cite-prefix">Em 26/03/2013 09:58, Paulo Justiniano
escreveu:<br>
</div>
<blockquote
cite="mid:alpine.DEB.2.00.1303261057350.18101@pataxo.est.ufpr.br"
type="cite">expand.grid vai sempre gerar uma malçha retaugular
<br>
<br>
se voce que alterar considere multiplicar a matriz de coordenadas
gerada por uma matrix (2x2) de rotacao
<br>
<br>
<br>
On Mon, 25 Mar 2013, ASANTOS wrote:
<br>
<br>
<blockquote type="cite">Boa noite pessoal,
<br>
<br>
Gostaria de saber se existe uma maneira de controlar a
inclinação da distribuição dos pontos em expand.grid() em função
de um limite de área, como por exemplo no meu CRM abaixo, onde
no exemplo 1 esta tudo Ok, mas no exemplo 2 as coordenadas não
consideram a inclinação da área. Seria possível usar algum
argumento para controlar isto?
<br>
<br>
# Exemplo 1
<br>
x<-c(0,0,100,100,0)
<br>
y<-c(0,100,100,0,0)
<br>
plot(x,y, type="l", col="red")
<br>
#
<br>
p0<-c(10,10)
<br>
#
<br>
#
<br>
c0 <- seq(p0[1],p0[1]+95,by=20)
<br>
d0 <- seq(p0[2],p0[2]+95,by=20)
<br>
d1 <- expand.grid(x=c0, y=d0)
<br>
points(d1[,1],d1[,2])
<br>
#
<br>
#Exemplo 2
<br>
x<-c(0,0,50,50,0)
<br>
y<-c(0,100,150,50,0)
<br>
plot(x,y, type="l", col="red")
<br>
#
<br>
p0<-c(10,10)
<br>
#
<br>
#
<br>
c0 <- seq(p0[1],p0[1]+95,by=20)
<br>
d0 <- seq(p0[2],p0[2]+95,by=20)
<br>
d1 <- expand.grid(x=c0, y=d0)
<br>
points(d1[,1],d1[,2])
<br>
#
<br>
<br>
Obrigado,
<br>
<br>
-- <br>
======================================================================
<br>
Alexandre dos Santos
<br>
Proteção Florestal
<br>
Coordenador do curso Técnico em Florestas
<br>
Vice Coordenador do curso de Engenharia Florestal
<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de
Mato Grosso
<br>
Campus Cáceres
<br>
Caixa Postal 244
<br>
Avenida dos Ramires, s/n
<br>
Bairro: Distrito Industrial
<br>
Cáceres - MT CEP: 78.200-000
<br>
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<br>
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<br>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
<br>
======================================================================
<br>
<br>
_______________________________________________
<br>
R-br mailing list
<br>
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<br>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
<br>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e
forneça código mínimo reproduzível.
<br>
<br>
</blockquote>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
Coordenador do curso Técnico em Florestas
Vice Coordenador do curso de Engenharia Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
======================================================================
</pre>
</body>
</html>