Calcular distância de valores em Degraus, acho que primeiro tem que transformar em UTM, quanto ao perímetro, se este não for uma circunferência; utilizando o RAIO não funcionaria. Stainle
Ronaldo Marcelo Pena <[EMAIL PROTECTED]> escreveu: Davi, Obrigado pela sua resposta. Ainda não consegui. Mas recebi algumas dicas e em http://w3.impa.br/~baier/Melkman/gcmelkma.html tem alguma coisa muito próxima do que eu preciso. Na verdade o objetivo é saber se um ponto (lat,Lon) está dentro de um poligono ou está fora. O que acontece na pratica é que o cliente pode definir que o veiculo dele só pode trafegar na cidade de São Paulo. Portanto ele cria um poligono delimitando essa área. Quando o veículo sair desse poligono, meu sistema avisa o operador que isso ocorreu. De qualquer forma obrigado pela ajuda! Ronaldo Pena. --- Em delphi-br@yahoogrupos.com.br, "Davi" <[EMAIL PROTECTED]> escreveu > > Caro Ronaldo, > > Já conseguiu resolver seu problema quanto à cerca eletrônica? > > O que na realidade você precisa fazer é calcular a distancia entre dois > pontos e medir se a distancia total ultrapassa o valor pré- definido da > ancora! > > Utilize a fórmula básica da Geometria Plana para isso: > D= (X²-X¹)+(Y²-Y¹) > > Quem em delphi daria: > > var > pos,dist: real; > lat1,long1,lat2,long2: string; > begin > pos:= Sqrt( > Sqr( StrToFloat(lat2.Text) - StrToFloat(lat1.Text) ) > + > Sqr( StrToFloat(long2.Text) - StrToFloat(long1.Text) ) > ); > dist:= pos*100; > end; > > ou seja, se a distancia entre o veiculo (lat1 e long1) for maior que o raio > da ancora (lat2 e long2) ele gera uma chave de deteção para o software. > Defina um raio para a ancora e teste este recurso que tenho certeza que vai > funcionar... > > Boa Sorte! > > > Atenciosamente, > +==============+==============+ > Davi de Sousa Calixto > Suporte Técnico Informática > [EMAIL PROTECTED] > (62) 249-9000 / 9046 > SAC 0800-646-3020 > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em > nome de Ronaldo Marcelo Pena > Enviada em: terça-feira, 21 de março de 2006 18:07 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] GPS - Cerca Eletronica > > TEnho um sistema desenvolvido para uma empresa de rastreamento de > veículos. Estou precisando desenvolver para eles uma cerca eletronica, > que nada mais é do que pontos que definem um poligono e preciso saber > ser determinado ponto esta dentro ou fora do poligono. Alguém tem > alguma idéia ou site que eu possa pesquisar? > > Obrigado > > Ronaldo Pena. > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE var lrec_target="_blank";var lrec_URL=new Array(); lrec_URL[1]="http://br.ard.yahoo.com/SIG=12fu49fer/M=396553.7942726.8983424.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1143124724/A=3378475/R=0/id=flashurl/SIG=154eokgva/*http://lt.dell.com/lt/lt.aspx?CID=11648&LID=321747&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";; var lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.swf?clickTAG=javascript:LRECopenWindow(1)"; var lrec_altURL="http://br.ard.yahoo.com/SIG=12fu49fer/M=396553.7942726.8983424.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1143124724/A=3378475/R=1/id=altimg/SIG=154eokgva/*http://lt.dell.com/lt/lt.aspx?CID=11648&LID=321747&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";; var lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.gif";; var lrec_width=300;var lrec_height=250; --------------------------------- Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. --------------------------------- Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
![http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.gif"](http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.gif"){kind=link}