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 »

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 »

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 »

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 »

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 »

[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 »

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 »

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 »

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 »

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 »

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