<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    Prof. Paulo,<br>
    <br>
            Muito obrigado, mas desisti de rotacionar a área da base
    apesar de necessário, minhas áreas ou seja talhões são irregulares e
    a criação de um expand.grid() com posterior over() para criar uma
    máscara de pontos que estão contidos no interior da área não
    aproveitam muito bem a área disponível. Por ora, vou me rebaixar a
    ter que jogar o grid no autocad e rotacionar, mas futuramente
    pretendo achar uma solução para isto,<br>
    <br>
    Redobrados agradecimentos,<br>
    <br>
    Alexandre<br>
    <br>
     <br>
    <div class="moz-cite-prefix">Em 03/04/2013 16:15, Paulo Justiniano
      escreveu:<br>
    </div>
    <blockquote
      cite="mid:alpine.DEB.2.00.1304031709040.21973@pataxo.est.ufpr.br"
      type="cite">Alexandre
      <br>
      <br>
      Então o correto não é que voce nao consegue plotar, e sium não
      consegue sobrepor a um outro mapa.
      <br>
      <br>
      de fato a rotação vai criar novas coordenadas que nao tem a mesma
      projeção para ser superposta no mapa original
      <br>
      <br>
      No caso entao sugiro voce criar um grid retangular e depois
      deslocar as coordanadas X ou Y de acordo com algum angulo desejado
      <br>
      por uma simples operacao trigonometrica.
      <br>
      a grade pode depois ser "recortada" para retar apenas os pontos na
      área.
      <br>
      <br>
      note que gráficos como image() persp() contour() nao poderao ser
      feitos com esta grade.
      <br>
      Outra possibilidade é rotacionar a area de base
      <br>
      <br>
      Ao final disto talvez velha a pena pensar se voce de fato precisa
      fazer tal rotacao...
      <br>
      <br>
      <br>
      <br>
      On Tue, 2 Apr 2013, ASANTOS wrote:
      <br>
      <br>
      <blockquote type="cite">Obrigado Prof. Paulo,
        <br>
        <br>
                 Mas estar fora de escala é justamente meu problema,
        quando tento plotar estes pontos sobre um shapefile, quando uso
        o grid
        <br>
        regular (plot(d1[,1],d1[,2]) ) os pontos aparecem na minha
        imagem, porém quando uso o grid rotacionado
        (points(drt[,1],drt[,2],
        <br>
        col="red")), não aparece, pois não tenho coordenadas UTM
        negativas e um Mod() não resolve o problema,
        <br>
        <br>
        Obrigado,
        <br>
        <br>
        <br>
        Alexandre
        <br>
        <br>
        <br>
        Em 02/04/2013 06:58, Paulo Justiniano escreveu:
        <br>
              No seu ultimo comando voce adicionou pontos ao grafico
        anterior com points() entretanto os pontos estao fora da escala
        do
        <br>
              gráfico e nao aparecem
        <br>
        <br>
              nba umtima linha simplesmente troque points() por plot()
        <br>
        <br>
              On Tue, 2 Apr 2013, ASANTOS wrote:
        <br>
        <br>
                    Bom dia pessoal,
        <br>
        <br>
                             Estou cá de volta com o problema de
        rotacionar matrizes para rotacionar um grid criado com
        <br>
                    expand.grid(), o exemplo numérico que havia postado
        na lista esta OK, porém agora quando emprego coordenadas
        <br>
                    geográficas em UTM não estou conseguindo plotar,
        pois os valores no eixo x estão estranhos e o eixo y esta
        <br>
                    negativo, alguém saberia me dar alguma sugestão,
        segue CRM abaixo, obrigado
        <br>
        <br>
                    #
        <br>
                    p0<-c(524237,7978856)### Primeiro ponto
        (Coordenada geográfica conhecida em UTM)
        <br>
                    points(p0[1],p0[2], col="red")
        <br>
                    #
        <br>
                    #
        <br>
                    c0 <- seq(p0[1],p0[1]+400,by=100)### Criando o
        grid
        <br>
                    d0 <- seq(p0[2],p0[2]+500,by=100)
        <br>
                    d1 <- expand.grid(x=c0, y=d0)
        <br>
                    plot(d1[,1],d1[,2])
        <br>
                    #
        <br>
                    d2<-as.matrix(d1)
        <br>
                    ang<- 60 #### 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], col="red")
        <br>
                    #
        <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>
        <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>
        <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 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 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>
      </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>