USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Arco Coseno
luferazan
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/07/2006 15:42 hs            
Olá pessoal,
 
sei que está publicado na parte de dicas de operações matemáticas, mas mesmo assim, está dando erro.
 
Preciso calcular um Arco Coseno de um número, mas as dicas que estão disponíveis não estou conseguindo fazer funcionar.
 
Será que existe um caminho mais fácil?
 
Por exemplo:
para calcular o coseno de um número é só digitar cos(x)
para calcular o seno de um número é só digitar sin(x)
 
Alguém saberia como poderia proceder?
 
Desde já,
Muito Obrigado.

Engº Luiz Fernando
MSN:
luferazan@hotmail.com
SKYPE: luferazan

   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/07/2006 16:53 hs            
mas qual é o erro colega?
 
msgbox sin(1.25) 'resultado = 0,9489...
TÓPICO EDITADO
 
Jose.Niz
CURITIBA
PR - BRASIL
ENUNCIADA !
Postada em 21/07/2006 20:53 hs         
Você está passando o valor de X nas funções trigonométricas em radianos?
   
Sandro
não registrado
ENUNCIADA !
Postada em 21/07/2006 23:05 hs   
Olá,
 
Exatamente o que o amigo Jose falou. Se você estiver pensando em termos de graus, está errado. Todas as funções trigonométricas do VB e suas derivada trabalham com Radianos. Para converter, basta multiplicar o angulo em graus por pi e dividir por 180:
 
Const PI = 3.141592653589
 
Radianos = Graus * (PI/180)
 
Se tentar enviar o ângulo em graus, com certeza dará errado.
 
um abraço,
Sandro.
 
 
   
Sérgio A Boggio
não registrado
ENUNCIADA !
Postada em 27/12/2008 12:29 hs   
Resolução para a falta de arco-seno e arco-coseno em Qbasic utilizando ATN que é o arco-tangente existente no Qbasic

Seja X o ângulo em radianos que você deseja determinar do qual você conhece N

COS ( X ) = N

Lembrando da propriedade

SIN ( X ) ^ 2  +  COS ( X ) ^ 2  = 1

Teremos:

X = ATN ( SQR ( 1 – N ^ 2 ) / N ) para  X em radianos

X = 180 * ATN ( SQR ( 1 – N ^ 2 ) / N ) / 3.141592  para  X em graus

   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 28/12/2008 11:01 hs            
Não sei se é por coincidencia, ou tenha algo haver, mas em oputro forum surgio a mesma duvida e foi exclarecida da seguinte maneira.

Primeiro o angulo retornado pelo VB não é em graus e sim em radianos então qual é a formula correta.

seria esta

Angulo = PI * (Valor_do_angulo)/180

então pode tentar o seguinte

Dim angulo As Double
Const Pi = 3.14159265358979
angulo = Pi * (1.25) / 180 ' supondo que o angulo é de 1.25, retornará o valor em graus
MsgBox angulo

para saber o COSSENO

Cos(angulo)


   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página