thegoodfellas/blogset-br huggingface dataset:
1986/1987. Eu tinha por volta de meus 10, 11 anos e toda vez que chegava da escola nessa epoca o ritual era sempre o mesmo: largar a mochila em cima da cadeira, ligar a TV no programa do Bozo e esperar a voz do narrador apresentando a musica-tema do episodio seguida da seguinte abertura: "Planeta: terra. Cidade: Toquio. Como em todas as metropoles deste planeta, Toquio se acha hoje em desvantagem em sua luta contra o maior inimigo do homem: a poluicao. E apesar dos esforcos das autoridades de todo o mundo, pode chegar um dia em que a terra, o ar e a aguas venham a ser tornar letais para toda e qualquer forma de vida. Quem podera intervir? Spectremannn!". Comecava ali mais um capitulo da serie que marcou a minha infancia. E as saudades que esse tempo me trazem, ah! sao ludicas. Spectreman, criacao de Tomio Sagisu, estava a anos luz de tudo o que vemos hoje em dia em termos de producoes envolvendo efeitos especiais. A historia do cientista simio Dr. Gori que, acompanhado de seu fiel escudeiro Karas, criava a partir de detritos provenientes da poluicao japonesa as mais bizarras criaturas, ate o aparecimento do heroi dos raios espectrais (dai o nome do personagem), sempre a postos para executar as ordens dos dominantes, era das mais primarias. Cenarios entao? isopor em sua quase totalidade, maquetes que pareciam produzidas por estudantes do ensino fundamental, fora as criaturas nefandas, que misturavam espuma, camurca, couro e outros materiais baratos. Porem, a capacidade de atrair espectadores que o seriado gerou na segunda metade da decada de 80, com as reprises exibidas na antiga TVS, hoje SBT (originalmente a producao fora exibida na Rede Record nos anos 70, sem obter o mesmo sucesso) era gigantesca. Quantas e quantas vezes o assunto da conversa na escola ou na rua nao era sobre o episodio do dia anterior. E inegavel a influencia da producao cinematografica hollywoodiana O Planeta dos Macacos, de Franklin J. Schaffner na serie, bem como e impossivel nao destacar a dublagem, que tinha seus toques de comicidade propositais (afinal de contas, tratava-se da mesma equipe dos Estudios Maga, responsavel por dublar os programas Chaves e Chapolin, alem do desenho animado Snoopy, tambem parte da grade da emissora paulista na epoca). Para infelicidade dos fas que curtiram esse periodo, Spectreman durou modicos 63 episodios, que na verdade seriam pouco mais de 30, ja que cada episodio era sempre dividido em duas partes. Uma pena para aqueles que, como eu, ainda moleque, viam naquele tipo de producao o maximo em termos de audiovisual e criatividade. Se ate hoje sou fa de filmes trash, devo isso ao heroi japones e sua turma.Gostem ou nao os criticos mais exaltados, a grande verdade e que esse super-heroi niponico conquistou uma legiao e tanto de fas e foi - nao resta a menor duvida - o pontape para que muitas emissoras nacionais (cabe aqui um destaque para a Rede Manchete no final dos anos 80 e inicio dos 90) enveredassem pelo genero Tokusatsu como fenomeno de audiencia. Outras
franquias como Ultraman, Jaspion, Changeman, Jiban, Jiraya, ate o mais recente Power Rangers, acabaram meio que se tornando desdobramentos dessa mentalidade televisiva que viu nessas producoes baratas, mas que foram se aprimorando ao longo dos anos, um forte potencial de mercado com publico certo. Se hoje fala-se muito - e as vezes desnecessariamente - em 3D, Imax, CGI, Rotoscopia e outras tecnologias de captacao de imagem relacionadas ao mercado audiovisual, confesso que dificilmente uma outra tecnica ou modulo de exibicao conseguira me impactar tanto quanto a originalidade desses produtores japoneses. A industria de cinema deveria reaprender a pensar a setima arte e seus metodos de producao dessa forma!Abertura da serie: http://www.youtube.com/watch?v=gDlKW99OoXE
A noticia - feliz, e bom que se enalteca! - de que bandas de rock que embalaram a trilha sonora da minha adolescencia nos anos 1980 voltariam a estudio para gravar albuns ineditos caiu como uma luva para preencher a minha necessidade de retomar contato com os roqueiros tupiniquins. Nunca foi tao chato ouvir rock n' roll nacional, numa epoca em que imperam bandas de gosto duvidoso como Restart e NXzero. O meu deslumbramento foi tamanho com a nota divulgada no Jornal O Globo que impossivel seria nao relembrar do fatidico ano de 1986 e da revolucao proporcionada aos fas do genero pelo grupo RPM. Que me perdoem os que nao eram nascidos na epoca, mas quem nao curtiu a adrenalina apresentada ao pais por Paulo Ricardo, Luiz Schiavon, Fernando Deluqui e Paulo P.A Pagni, simplesmente precisa se inteirar mais sobre o verbete rock. Radio Pirata ao vivo, segundo album da banda, gravado ao vivo no Complexo do Anhembi, em Sao Paulo, e com direcao do cantor Ney Matogrosso, e - gostem ou nao os criticos, que adoram dividir opinioes - o divisor de aguas dessa metamorfose em que o ritmo se transformou. Seja pela celebridade que seu vocalista viria a se tornar apos o lancamento do album (e, com isso, muitos na epoca chegaram a cogitar que Paulo Ricardo nao fosse realmente um artista, mas um mero sex symbol que seria tragado, com o tempo, pela fama), seja pelas letras fortes, acidas, divertidas, a cara de uma geracao que procurava os seus valores em um pais que parecia confuso, perdido a primeira vista, Radio Pirata foi uma alienacao (mais: um revitalizacao) para um rock brasileiro que ja bombava, com nomes como Barao Vermelho, Paralamas do Sucesso, Legiao Urbana, entre outros. Nenhum outro disco vendeu tanto quanto ele no periodo (e falo de mais de 2,5 milhoes de copias vendidas em territorio nacional).Como destacar minhas preferencias num trabalho tao bem realizado e de repertorio tao apaixonante quanto esse? Apesar de se tratarem de apenas nove faixas, o brilhantismo com que o show foi realizado e digno de nota e, dificilmente, os apreciadores do estilo ficarao desapontados com o resultado final. Indo da belissima instrumental Naja a internacional London, London, classico de Caetano Veloso dos tempos de exilio na capital inglesa, e passando pelos hits - imprescindiveis em qualquer turne do grupo - Olhar 43, Alvorada Voraz e A Cruz e a Espada, o album reune, em poucas palavras, o melhor desse periodo musical de quem esse blogueiro que vos fala guarda tantas boas recordacoes.Aos acordes finais do show gravado (que ouco novamente pela centesima vez) e passadas mais de duas decadas da revolucao proposta, a impressao que fica e a de que o rock regrediu - e muito. Onde foram parar aqueles herois da resistencia que com uma simples guitarra e arranjos de facil execucao um dia tentaram mudar o mundo? Onde foi parar a Geracao Coca-Cola que o Renato Russo tao bem cantou? Hoje, ao contrario, o que se ve e uma comercializacao desenfreada da musica (seja online ou nas raras
lojas que ainda sobrevivem bravamente), onde criacao artistica e significado deram lugar a cifras astronomicas e artistas de segunda com patrimonios milionarios. E este pobre coitado, escritor da internet e do Jukebox, sonha - pois sonhar ainda e gratuito - que, com o retorno desses titas do genero ao cenario musical de onde nunca deveriam ter se ausentado, novos ventos tragam ritmos agradaveis e ideais antigos a baila. Nossos ouvidos (acredito falar por muita gente) agradecem!Clipe oficial do show: http://www.youtube.com/watch?v=0bsXihPJgYo London, London ao vivo: http://www.youtube.com/watch?v=RKFLbxPNFxc
Eu sempre tive receio desses estabelecimentos que vendem fast food. Acho essa cultura da "comida rapida" um verdadeiro veneno para o organismo de qualquer ser humano. E quando esbarro em materias jornalisticas que denunciam as praticas degradantes desse mercado de alimentacao (ja acho alimentacao, nesses espacos, um termo um tanto exagerado), ai entao minha desconfianca atinge a estratosfera. Em Toxina, romance do escritor e medico Robin Cook vi essa realidade torpe ser multiplicada a decima potencia, fazendo com que eu refletisse ainda mais sobre a real importancia ou necessidade, como voces preferirem chamar, desse tipo de opcao no cardapio da populacao. Na trama, um medico e sua filha vao a uma dessas redes de lanchonetes famosas dos EUA e pedem um especial da casa. A carne, malpassada, a primeira vista nao chama a atencao nem perturba nenhum dos dois, que devoram o lanche com gosto. O problema comecaria momentos depois quando a menina passa mal e, levada a clinica mais proxima, descobre-se que ela desenvolveu em seu organismo uma bacteria E. Coli de alto nivel de mortalidade, fazendo com que o pai entre numa roleta russa diaria para encontrar uma cura para a filha. O que se ve a partir de entao e uma verdadeira enciclopedia de excessos, praticas ilegais (de compra de gado doente a falta de higiene nos matadouros dos fornecedores de carne da rede de lanchonetes), abusos de autoridade (ha uma horda de empresarios inescrupulosos que fara de tudo para impedir o medico e pai e manter viva a sua posicao de lider no mercado) e, principalmente, a conivencia do proprio hospital onde trabalha, que nao quer se ver envolvido na polemica, ameacando-o inclusive de demissao.Toxina e, para os fas de literatura medica, o que o filme Nacao Fast Food, de Richard Linklater, e para os amantes do cinema: um verdadeiro tapa na cara dos consumidores e produtores desse tipo de comida. Atraves de denuncias muito bem embasadas - certamente provenientes da pesquisa pessoal de Cook na area - num discurso literario envolvente, o autor consegue (como fez brilhantemente em varios momentos de sua carreira como ficcionista, a destacar obras como Virus e Coma) deixar seu alerta as autoridades competentes e ao publico, que precisa ficar mais atento com o que come hoje em dia.Prova viva e irrefutavel disso sao os indices astronomicos envolvendo casos de obesidade ao redor do mundo desde a criacao e consequente popularizacao desse tipo de estabelecimento (e cuja tendencia e piorar, se assim o permitirmos). Enquanto procurava um tema para o proximo post do Jukebox, fui agraciado pelo blogueiro Matheus Ferraz, do blog Frauleins sem Uniforme (http://frauleinsuniforme.blogspot.com/) com o belissimo selo acima, o Dardos de Qualidade. Uma honraria que me deixou tao feliz - o que prova por a + b que aquilo que eu escrevo aqui possui credibilidade - que decidi fazer da ocasiao um post proprio. Conforme as regras da premiacao, devo indicar quatro blogs amigos (dentre a infinidade dos que visito) para tambem receber o selo. Tarefa das mais dificeis, tendo em vista a quantidade de blogs que eu visto semanalmente,
ate como fontes de referencia (muitos nao sabem, mas ja sai de varias visitas a outros blogs com ideias brilhantes, verdadeiros achados historicos, que viraram grandes temas aqui no Jukebox).Apos exaustiva escolha - e impossivel realiza-la sem ser injusto com alguem - elejo, entre mais de 150 blogs visitados, os citados abaixo:1) Cine Capsulas, de Gustavo H. Razera http://mulhollandcinelog.wordpress.com/2) Cinefila por Natureza, da Kamila:http://cinefilapornatureza.wordpress.com/3) Cultura Intratecal:http://intratecal.wordpress.com/4) Dementia 13, de Ronald Perrone:http://demmentia13.blogspot.com/Todos os autores listados acima serao devidamente notificados de sua premiacao conforme o regulamento do premio. Sem mais a declarar, deixo aqui registrado o meu mais entusiasmado agradecimento. E longa vida a esse blog!
Ele simplesmente parou o mundo sem proferir, na tela, uma unica palavra. Charles Spencer Chaplin, o menino prodigio de Londres, fruto de um lar em frangalhos (os pais se divorciaram quando ele tinha apenas tres anos de idade, motivado ora pelas crises emocionais da mae ora pelo alcoolismo desenfreado do pai), viu sua vida mudar aos cinco anos, quando subiu ao palco pela primeira vez para cantar Jack Jones. Com a internacao da mae no asilo Cane Hill, o garoto e mandado - pela amante do pai - para a Archbishop Temples Boys School. Apos seu internato por la veio a admiracao pelo music hall onde, junto com o irmao, iniciou uma carreira lendaria no show business. Sua primeira turne se da na trupe de Fred Karno na decada de 1910 onde, entre seus intergrantes, constava o comediante Stan Laurel, da futura dupla comica O Gordo e o Magro. Foi da atuacao nesse companhia que surgiu o convite de Mack Sennett para que ele ingressasse na Keystone Film Company (onde estreia no cinema com Making a living). Na Keystone, Chaplin criou o que se tornaria um dos maiores personagens da historia do cinema mundial: o vagabundo Carlitos, um andarilho pobretao das ruas que, no entanto, possui todos os requintes e elegancias de um membro da elite inglesa. Abriam-se ali as portas para um pioneiro do que as artes cinematograficas se tornariam. Falar de sua filmografia seria assunto para muitas teses de doutorado ou livros comerciais, tendo em vista que Chaplin retratou, em suas peliculas, o melhor e o pior da Inglaterra e, em justa medida, do continente europeu. Entre suas inumeras producoes bem sucedidas - Luzes da Ribalta, O Circo, Tempos Modernos, Luzes da Cidade, O Garoto, Em busca do ouro perdido, Monsieur Verdux, O Grande ditador, fora os curtametragens antologicos do inicio da carreira - percebe-se a preocupacao do ator, produtor, diretor, roteirista e compositor (sim, pois muitas das cancoes que se ouvem em seus filmes sao de sua propria autoria!) de denunciar as mazelas e arbitrariedades dos poderosos, o que acabou levando a um interesse ferrenho do artista em montar sua propria produtora e manter, com isso, o controle criativo de seus trabalhos. Algo que seria alcancado com a criacao da United Artists, junto com Douglas Fairbanks e outros atores da epoca).Em 1992 o diretor Richard Attenborough dirigiu Chaplin, uma cinebiografia interessantissima sobre o mestre do cinema mudo, tendo como protagonista o genial Robert Downey Jr. numa recriacao de epoca exuberante. Uma pelicula que eu recomendo em genero, numero e grau para aqueles que desejam entender um pouco da mente irascivel e fascinante do eterno Carlitos. Outra fonte de informacoes excelente e a autobiografia do proprio Chaplin, Minha Vida, trazendo relatos fortes de sua carreira e de sua vida pessoal, dentre eles a derrota nos tribunais por um caso de paternidade nao-confirmada, em que o ator nao pode usar o exame de DNA como prova para se defender. Chaplin foi pop, reacionario, brilhante, brigao, contestador, gostava de ter a ultima palavra em tudo que trabalhava (sua discussao com Marlon Brando
nos sets do filme A Condessa de Hong Kong ja se tornaram parte da mistica contraditoria que envolve a sua genialidade) e, muito por conta disso, construiu muitas inimizades dentro da industria cinematografica. Porem, por mais que seus detratores queiram negar, o que seria do cinema como obra de arte nao fosse o toque magistral e a inquietude desse dinamo da camera e da arte de atuar? Gostem ou nao, cinema sempre sera classificado em antes e depois de Charlie Chaplin. Trailer do filme Chaplin, de Richard Attenborough: http://www.youtube.com/watch?v=xBh_5F3aXTICena de O Circo:http://www.youtube.com/watch?v=08nZ2vsZHL8Cena de Tempos Modernos:http://www.youtube.com/watch?v=XFXg7nEa7vQFrases, textos, pensamentos e poemas que traduzem a mente de Chaplin:http://pensador.uol.com.br/autor/Charlie_Chaplin/
SPSS que constroem internamente comandos a serem executados e interessantes, para localizacao de erros, por exemplo, avaliar como esses comandos estao sendo construidos e enviados ao interpretados. Para isso podemos ativar a opcao MPRINT do comando SET, como mostrado abaixo.SET MPRINT=ON.Com a opcao acima ativa a cada execucao da macro sera impresso, na janela de output os comandos que a macro executar. Para desativar essa opcao basta rodar o codigo abaixo:SET MPRINT=OFF.Abracos,Lucas Rodrigues
a tabela exemplo de clientes.DATA LIST /cod_cliente 1-2(F) nome_cliente 4-10(A) lat_cliente 12-21 long_cliente 23-32.BEGIN DATA05 Augusto -45,860356 -22,56869807 Lucas -45,387821 -22,70924712 Mariana -45,844268 -22,30049613 Douglas -45,653701 -22,55436117 Luiza -45,947584 -22,89679825 Solange -45,858844 -22,95706233 Jose -45,378294 -22,84640845 Michel -45,284786 -22,07169952 Luis -45,421867 -22,73814356 Miguel -45,275170 -22,962908END DATA.DATASET NAME TAB_CLI.DATASET ACTIVATE TAB_CLI.FORMATS lat_cliente(F8.6) long_cliente(F8.6).* Criamos a tabela exemplo de lojas.DATA LIST /cod_loja 1-2(F) nome_loja 4-15(A) lat_loja 17-26 long_loja 28-37.BEGIN DATA10 LOJA AMARELA -45,899434 -22,26735525 LOJA AZUL -45,774589 -22,77857974 LOJA VERDE -45,389912 -22,04603376 LOJA ROXA -45,763099 -22,66148235 LOJA LARANJA -45,947189 -22,261653END DATA.DATASET NAME TAB_LOJA.DATASET ACTIVATE TAB_LOJA.FORMATS lat_loja(F8.6) long_loja(F8.6).* Fazemos o produto cartesiano entre os codigos das tabelas utilizando o STATS CARTPROD.* O comando gera uma tabela com o produto cartesiano entre os codigos de lojas e codigos de clientes.* Aproveitamos e inserimos para cada conjunto de variaveis todas as variaveis que queremos utilizar.* Note que tambem nomeamos o novo arquivo (utilizando o comando DATASET NAME).DATASET ACTIVATE TAB_LOJA.STATS CARTPROD VAR1=cod_loja nome_loja lat_loja long_loja INPUT2=TAB_CLI VAR2=cod_cliente nome_cliente lat_cliente long_cliente /SAVE OUTFILE="F:\OUT\TAB_TEMP".DATASET NAME TAB_RESULTADO.Abracos,Lucas Rodrigues
forma automatizada, a textos e propriedades de TAGs HTML.Naturalmente para acessar com sucesso uma pagina precisamos conhecer sua estrutura HTML. Como diversas paginas sao criadas automaticamente ou possuem uma grande quantidade de scripts (como a do Google, por exemplo), podemos utilizar as ferramentas de inspecao dos navegadores para aprender mais sobre a pagina. A figura abaixo mostra o modo de inspecao do Mozzila Firefox analisando o campo de busca do Google. Podemos ver que esse campo tem a propriedade name igual q e e essa informacao que utilizaremos em nosso codigo VBA para interagir com esse elemento.Segue abaixo o codigo.Public Sub ExemploBuscaGoogle()On Error Resume Next Dim i As Long Dim IE As Object Dim objElement As Object Dim objCollection As Object ' Cria instancia do IE Set IE = CreateObject("InternetExplorer.Application") ' Define o endereco a ser carregado IE.navigate ("www.google.com.br") ' Define se a janela do IE sera ou nao exibida IE.Visible = True ' Espera carregar. A espera aqui esta definida para 1 segundo, ' mas pode ser ajustada dependendo da necessidade. Do While IE.Busy Application.Wait DateAdd("s", 1, Now) Loop ' Busca campos tipo input, uma vez que queremos acessar o campo de busca. ' Sabemos que o campo e tipo input porque analisamos o codigo HTML da pagina do Google. ' O metodo getElementByTagName retorna todas as TAGs HTML da pagina carregada com o nome desejado. Set objCollection = IE.document.getElementsByTagName("input") ' Varre os inputs do HTML procurando pelos elementos desejados ' Queremos encontrar o elemento input com name = "q" ' Uso o while aqui mas poderia usar o 'for each' i = 0 While i < objCollection.Length ' "q" e o nome do campo de busca, como visto no codigo HTML If objCollection(i).Name = "q" Then ' Preenche o campo de busca com o que queremos objCollection(i).Value = "dicasspss.blogspot.com" End If i = i + 1 Wend ' Apos preenchermos o campo de pesquisa mandamos um 'enter' para o sistema. ' No metodo SendKeys o 'enter' e representado pelo simbolo ~ Application.SendKeys ("~") ' Esperamos novamente o IE carregar a pagina. ' Note que o codigo aqui realiza uma espera de 1 segundo ' mesmo sem verificar se o IE esta ocupado. ' Isso e uma boa estrategia pois diversos sites passam por ' mais de uma janela apos submeter informacoes ' a um formulario. Entao a espera tenta garantir que a janela ' final esteja carregada. Application.Wait DateAdd("s", 1, Now) Do While IE.Busy Application.Wait DateAdd("s", 1, Now) Loop ' Agora temos que buscar o primeiro link do primeiro resultado. ' Novamente temos que analisar o HTML, agora da pagina de resultados. ' Buscamos as tags 'li' onde class = 'g' da pagina, pois e onde estao os resultados. ' Novamente, sabemos pela analise do HTML. Set objCollection2 = IE.document.getElementsByTagName("li") ' Dentre as tags 'li' buscamos a primeira com classe 'g' For Each elemento In objCollection2 ' "q" e o nome do campo de busca, como visto no codigo HTML If elemento.classname = "g" Then ' Mostra a msgbox com o texto do primeiro resultado MsgBox elemento.innertext Exit For End
If Next ' Fecha a instancia do IE IE.QuitEnd SubBotoes de formulario (objetos tipo input) podem ser acessador utilizando o metodo Click. O botao de pesquisa do Google nao responde a esse metodo, entao a estrategia foi enviar para o sistema um 'enter'.Abracos,Lucas Rodrigues
com distancia ate 1km das lojas basta calcular a distancia entre as coordenadas geograficas (esta postagem explica como fazer isso no SPSS) e realizar o filtro. As coordenadas nos arquivos exemplos foram geradas aleatoriamente entao nao sei se sobraram clientes nestas condicoes, mas a ideia e essa.Abracos,Lucas Rodrigues
A seguir esta uma macro para calcular a distancia geodesica (em quilometros) entre dois pontos no globo dadas suas posicoes geograficas (latitude e longitude). Assumimos aqui que a terra e esferica com raio 6.371 km (raio medio).A macro recebe cinco parametros: LAT1G e LONG1G sao, respectivamente, a latitude e longitude (em graus) do primeiro ponto. LAT2G e LONG2G sao a latitude e longitude (tambem em graus) do segundo ponto e o parametro SAIDA define o nome da variavel a ser criada com a informacao da distancia entre os pontos.DEFINE !CALCULA_DISTANCIA(LAT1G = !TOKENS(1)/LONG1G = !TOKENS(1)/LAT2G = !TOKENS(1)/LONG2G = !TOKENS(1)/SAIDA=!TOKENS(1)) * Define constantes (pi e raio da terra - esferica). COMPUTE #PI = 3.1415926535898. COMPUTE #RAIO = 6371. * Converte coordenadas para radianos. COMPUTE #LAT1 = !LAT1G * #PI / 180. COMPUTE #LAT2 = !LAT2G * #PI / 180. COMPUTE #LONG1 = !LONG1G * #PI / 180. COMPUTE #LONG2 = !LONG2G * #PI / 180. * Calcula diferenca entre as coordenadas. COMPUTE #DLAT = #LAT2 - #LAT1. COMPUTE #DLONG = #LONG2 - #LONG1. * Calcula funcao de Haversine. COMPUTE #A = SIN(#DLAT/2)**2 + COS(#LAT1)*COS(#LAT2)*(SIN(#DLONG/2)**2). COMPUTE #X = SQRT(1 - #A). COMPUTE #Y = SQRT(#A). DO IF #X > 0. COMPUTE #B = ARTAN(#Y / #X). ELSE IF #Y >= 0 AND #X < 0. COMPUTE #B = ARTAN(#Y / #X) + #PI. ELSE IF #Y < 0 AND #X < 0. COMPUTE #B = ARTAN(#Y / #X) - #PI. ELSE IF #Y > 0 AND #X = 0. COMPUTE #B = #PI / 2. ELSE IF #Y < 0 AND #X = 0. COMPUTE #B = -(#PI / 2). ELSE. COMPUTE #B = $sysmis. END IF. COMPUTE !SAIDA = 2 * #RAIO * #B. FORMATS !SAIDA(F6.4).!ENDDEFINE.A macro nao le o banco de dados, logo para que a variavel de saida seja criada e necessario executar explicitamente um comando EXECUTE ou outro comando que faca a leitura dos dados.Como exemplo, suponha que temos uma base de dados com latitude e longitude nas variaveis LAT e LONG, respectivamente, queremos calcular a distancia de cada um dos casos ao ponto localizado nas coordenadas (latitude, longitude) = (-23.591471,-46.688852). A execucao do codigo a seguir calcula a distancia na variavel DISTANCIA. Note que criamos duas variaveis temporarias com as coordenadas do ponto ao qual queremos calcular a distancia.COMPUTE #LATtemp = -23.591471.COMPUTE #LONGtemp = -46.688852.!CALCULA_DISTANCIA LAT1G=LAT LONG1G=LONG LAT2G=#LATtemp LONG2G=#LONGtemp SAIDA=DISTANCIA.EXECUTE.Para quem deseja mais informacoes sobre o calculo da distancia recomendo a leitura deste artigo. Segue, de brinde, a mesma funcao para SQLServer (versao 2008).CREATE FUNCTION CALCULA_DISTANCIA( @LAT1G FLOAT, @LONG1G FLOAT, @LAT2G FLOAT, @LONG2G FLOAT)RETURNS FLOATASBEGIN -- Converte angulos em radianos DECLARE @LAT1 FLOAT; DECLARE @LONG1 FLOAT; DECLARE @LAT2 FLOAT; DECLARE @LONG2 FLOAT; SET @LAT1 = @LAT1G * PI() / 180.0; SET @LAT2 = @LAT2G * PI() / 180.0; SET @LONG1 = @LONG1G * PI() / 180.0; SET @LONG2 = @LONG2G * PI() / 180.0; -- Define raio da terra DECLARE @RAIO_TERRA FLOAT; SET @RAIO_TERRA = 6371.0; -- em km -- Calcula variacao da latitude e longitude entre os pontos DECLARE @DLAT FLOAT; DECLARE @DLONG FLOAT; SET @DLAT = @LAT2 -
@LAT1; SET @DLONG = @LONG2 - @LONG1; -- Aplica funcao de Haversine DECLARE @A FLOAT; SET @A =SQUARE(SIN(@DLAT/2.0))+COS(@LAT1)*COS(@LAT2)*SQUARE(SIN(@DLONG/2.0)); -- Calcula a distancia entre os pontos DECLARE @DIST FLOAT; SET @DIST = 2.0 * @RAIO_TERRA * ATN2(SQRT(@A), SQRT(1.0 - @A)); RETURN @DIST;ENDAbracos,Lucas Rodrigues