Tenha uma nova experiência ao navegar no Fórum pelo computador de forma integrada ao portal principal. Acesse o seguinte link: https://www.autolisp.com.br/board/. Entretanto para dispositivos móveis recomendamos acessar este outro link: https://www.autolisp.com.br/forum/

Decimalizar um angulo

Dúvidas sobre VB para AutoCAD...

Moderador: Moderadores

Responder
Avatar do usuário
murilo
Novato
Novato
Mensagens: 2
Registrado em: Ter 23 Ago 2005 12:00:00 am

Decimalizar um angulo

Mensagem por murilo » Ter 27 Jun 2006 8:35:36 am

Bom dia

Como faco para decimalizar um angulo

125º28'45''

qual seria a formula para usar no exell

desde ja
obrigado

Avatar do usuário
hugopaulo
Master
Master
Mensagens: 1873
Registrado em: Dom 29 Fev 2004 12:00:00 am

Mensagem por hugopaulo » Ter 27 Jun 2006 10:07:58 am

Murilo

Bom embora o assunto gire mais em torno de AutoCAD e AutoLisp, a fórmula geral para se decimalizar ângulos é a seguinte:

125º28'45'' --> 125 + (28/60) + (45/3600) = 125,4791

Some os ângulos com os minutos divididos por 60 e com os segundos divididos por 3600 (60 X 60).

1 grau = 60 minutos
1 minuto = 60 segundos
1 segundo = 1/60 minuto --> 1/3600 grau.

[]'s
hugopaulo
AutoLISP Não É LISP ==> VISUAL LISP não é Linguagem

Avatar do usuário
Alemao
Novato
Novato
Mensagens: 3
Registrado em: Qui 15 Jun 2006 12:00:00 am

Decimalizar

Mensagem por Alemao » Ter 27 Jun 2006 10:12:24 am

Matematicamente existe um método simples,

1º vc pega os 45" e divide por 60 que vai ser igual à 0.75

2º vc pega os 28' e soma com 0.75 = 28.75

3º pegue os 28.75 e divida por 60 = 0.479166666

PRONTO agora e só somar com 128

RESULTADO = 128.4791

Avatar do usuário
hugopaulo
Master
Master
Mensagens: 1873
Registrado em: Dom 29 Fev 2004 12:00:00 am

Mensagem por hugopaulo » Ter 27 Jun 2006 1:14:41 pm

Alemão

A resposta já estava dada. O processo geral e matemático é o que passei.

Dividir 2X por 60 é dividir por 3600.

A regra matemática manda primeiro fazer as operações de multiplicação e/ou divisão e depois as de soma e/ou subtração.

Na sua forma vc colocou 2 somas. Não é boa prática. Além do mais o ângulo é de 125º e não de 128º.

Sintetize suas fórmulas da parte mais central para as extremidades. Sempre.

"Sursum corda"
hugopaulo
AutoLISP Não É LISP ==> VISUAL LISP não é Linguagem

Avatar do usuário
Alemao
Novato
Novato
Mensagens: 3
Registrado em: Qui 15 Jun 2006 12:00:00 am

Mensagem por Alemao » Qua 28 Jun 2006 7:21:39 am

[quote="hugopaulo"]Alemão

A resposta já estava dada. O processo geral e matemático é o que passei.

Dividir 2X por 60 é dividir por 3600.

A regra matemática manda primeiro fazer as operações de multiplicação e/ou divisão e depois as de soma e/ou subtração.

Na sua forma vc colocou 2 somas. Não é boa prática. Além do mais o ângulo é de 125º e não de 128º.

Sintetize suas fórmulas da parte mais central para as extremidades. Sempre.

"Sursum corda"[/quote]


Primeiramente meu caro amigo barbudo,
o fato de ser 125 ou 128 nao afetaria o resultado decimal, foi apenas um equivoco de minha parte.

Mas isso nao foi o q me chateou, e sim o fato de eu enviar a resposta apenas pelo fato de poder ajudar o Murilo, e nem tinha reparado q o Senhor ja havia respondido, ce depois da resposta que tive fiquei a pensar se este e um site que busca um proposito comum ou que gire apenas em torno dos mais VELHOS de casa !!!

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qua 28 Jun 2006 11:14:34 am

Oops.

Alemão, você é bem-vindo!

[],

Rogério

Avatar do usuário
hugopaulo
Master
Master
Mensagens: 1873
Registrado em: Dom 29 Fev 2004 12:00:00 am

Mensagem por hugopaulo » Qua 28 Jun 2006 1:55:54 pm

Oops de novo !!!

Realmente esqueci as regras de boa educação. Seria melhor no Quem é Quem mas vai aqui mesmo.

Alemão, seja bem-vindo! ( Desculpe a "bronca").

[]'s
hugopaulo
AutoLISP Não É LISP ==> VISUAL LISP não é Linguagem

Avatar do usuário
Alemao
Novato
Novato
Mensagens: 3
Registrado em: Qui 15 Jun 2006 12:00:00 am

Mensagem por Alemao » Qui 29 Jun 2006 8:13:06 am

Obrigado Rogério e Hugopaulo pela recepção de boas vindas,

tambem peço desculpas pelas minhas falas!

Mas o mais interressnate e q nos aqui arrumando a maior discussão ( estúpida por sinal),
e o Murilo mesmo nem deu as graças por aqui!!

Avatar do usuário
hugopaulo
Master
Master
Mensagens: 1873
Registrado em: Dom 29 Fev 2004 12:00:00 am

Mensagem por hugopaulo » Qui 29 Jun 2006 12:47:00 pm

Alemão

Faça sua apresentação no Quem é Quem. Lá dizemos quem somos e ao que viemos.

No mais procure dar uma lida sobre as pessoas que mais se envolveram com vc até agora.

Eu pedi desculpas da "bronca" pois não tinha percebido que vc era novato.

Tb não estou tendo uma "discussão estúpida". Apenas citei uma regra correta da Matemática e não para desmerecê-lo. A resposta já estava respondida. Então para que falar sobre a mesma coisa ?

Ah! Não esqueça que sou "chato" porquê sou "velho" e sou Professor e não "estúpido".

Então mais uma vez seja bem-vindo, desculpe- sobre o novo "chiamento" mas estamos aqui para ajudar a todos no que for possível.

Um abraço!
hugopaulo
AutoLISP Não É LISP ==> VISUAL LISP não é Linguagem

Avatar do usuário
ferdinanlira
Concreto
Concreto
Mensagens: 50
Registrado em: Sex 03 Dez 2004 11:00:00 pm
Localização: Parnamirim/RN

Mensagem por ferdinanlira » Sáb 01 Jul 2006 7:52:28 pm

Eu criei uma função há algum tempo usei o VBA

Está primeira transforma um número sexagezimal em decimal.

Function dms(Ângulo) As Double
dms = (Int(Ângulo + 0.0000000000001) + ((((Int(((Ângulo + 0.0000000000001) - Int((Ângulo + 0.0000000000001))) * 100)) * 60) + ((((Ângulo + 0.0000000000001) - Int((Ângulo + 0.0000000000001))) * 100) - Int(((Ângulo + 0.0000000000001) - Int((Ângulo + 0.0000000000001))) * 100)) * 100) / 3600))
End Function

OBS.: O fato de somar (0.0000000000001) ao ângulo foi porque tava dando um erro no cálculo.

Esta outra transforma um número decimal em sexagezimal.

Function sex(Ângulo) As Double
sex = (Int(Ângulo) + ((Int(((((Ângulo - Int(Ângulo)) * 3600))) / 60)) / 100) + (((((((Ângulo - Int(Ângulo)) * 3600) / 60) - Int(((Ângulo - Int(Ângulo)) * 3600) / 60))) * 60) / 10000))
End Function

Espero que seja isso que vc estaja procurando

Ferdinan Lira.

Responder