In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Funciones Trigonometricas

Foro de Xailer profesional en español
Responder
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Saludos:
Podrí­a alguien pasarme las funciones trigonométricas como Seno, Coseno,
Tangente, Arco coseno, Arco seno, Cotangente, etc, o donde conseguirlas
para xHarbour, ya que anteriormente estaban definidas en mi lenguaje
anterior y aquí­ las he encontrado en xHarbour.com pero no las he
localizado en xHarbour.org, seguro que no he sabido buscar, pero en fin
en la rutina que tengo al poner esto me da error de variables externas.
ArcoCoseno := ACOS((Sin(nExad_x1 * Pi /180) * ;
Sin(nExad_x * Pi /180))+ ;
(Cos(nExad_x1 * Pi /180) * ;
Cos(nExad_x * Pi /180))* ;
Cos(nExad_y1 * Pi /180 - ;
nExad_y * Pi /180))
*
nDistancia := Round((ArcoCoseno * 60 * 1.852 * 1000 * 180 / Pi),0)
José Ramón Castro.
José Ramón Castro.
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

Funciones Trigonometricas

Mensaje por Rolando »

Son viejitas pero funcionan.
Saludos
"José Ramón Castro Polinio" <jrcpoli@terra.es> escribió en el mensaje
news:[email=4502b570@news.xailer.com...]4502b570@news.xailer.com...[/email]
> Saludos:
>
> Podría alguien pasarme las funciones trigonométricas como Seno, Coseno,
> Tangente, Arco coseno, Arco seno, Cotangente, etc, o donde conseguirlas
> para xHarbour, ya que anteriormente estaban definidas en mi lenguaje
> anterior y aquí las he encontrado en xHarbour.com pero no las he
> localizado en xHarbour.org, seguro que no he sabido buscar, pero en fin
> en la rutina que tengo al poner esto me da error de variables externas.
>
> ArcoCoseno := ACOS((Sin(nExad_x1 * Pi /180) * ;
> Sin(nExad_x * Pi /180))+ ;
> (Cos(nExad_x1 * Pi /180) * ;
> Cos(nExad_x * Pi /180))* ;
> Cos(nExad_y1 * Pi /180 - ;
> nExad_y * Pi /180))
> *
> nDistancia := Round((ArcoCoseno * 60 * 1.852 * 1000 * 180 / Pi),0)
>
> José Ramón Castro.


Attached files TRIGON.PRG (6.3 KB)Â
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Saludos:
Gracias.
Rolando Sarrailh escribió:
> Son viejitas pero funcionan.
> Saludos
>
> "José Ramón Castro Polinio" <jrcpoli@terra.es> escribió en el mensaje
> news:[email=4502b570@news.xailer.com...]4502b570@news.xailer.com...[/email]
>> Saludos:
>>
>> Podrí­a alguien pasarme las funciones trigonométricas como Seno, Coseno,
>> Tangente, Arco coseno, Arco seno, Cotangente, etc, o donde conseguirlas
>> para xHarbour, ya que anteriormente estaban definidas en mi lenguaje
>> anterior y aquí­ las he encontrado en xHarbour.com pero no las he
>> localizado en xHarbour.org, seguro que no he sabido buscar, pero en fin
>> en la rutina que tengo al poner esto me da error de variables externas.
>>
>> ArcoCoseno := ACOS((Sin(nExad_x1 * Pi /180) * ;
>> Sin(nExad_x * Pi /180))+ ;
>> (Cos(nExad_x1 * Pi /180) * ;
>> Cos(nExad_x * Pi /180))* ;
>> Cos(nExad_y1 * Pi /180 - ;
>> nExad_y * Pi /180))
>> *
>> nDistancia := Round((ArcoCoseno * 60 * 1.852 * 1000 * 180 / Pi),0)
>>
>> José Ramón Castro.
>
>
José Ramón Castro.
jlalin
Mensajes: 926
Registrado: Sab Dic 25, 2010 11:10 pm

Funciones Trigonometricas

Mensaje por jlalin »

José Ramón,
añade a tu proyecto la librerí­a CT.lib que está en harbourlib y listo.
Saludos,
José Lalí­n
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Saludos:
¿Es que no existen estas funciones en xHarbour? y sino existen pedirí­a
al equipo de Xailer si cree interesante implementarlas, en Visual
Objects existen como parte del lenguaje de programación, podí­an ser
incluidas en el apartado de Funciones, Podrí­an ser Funciones
Trigonométricas, al igual que están otras.
Por ejemplo en Visual Objects:
Sin() Function
Purpose
Calculate the sine of a number.
Syntax
Sin(<nNum>) ---> fValue
Arguments
<nNum> An angle in radians.
Returns
The sine of the specified angle.
Examples
This example uses Sin() to calculate the sine of 2.6:
? Sin(2.6) // 0.60
This example finds the sine of a 60 degree angle. The first step is to
convert 60 degrees to radians. This is done by dividing the angle by 180/PI:
? Sin(60/(180/PI)) // 0.87
Prototype
Sin(n AS USUAL) AS FLOAT PASCAL
Library
System Library
See Also
Cos(), Cot(), Tan()
Perdón es una sugerencia.
José Ramón Castro Polinio.
José Ramón Castro Polinio escribió:
> Saludos:
>
> Podrí­a alguien pasarme las funciones trigonométricas como Seno, Coseno,
> Tangente, Arco coseno, Arco seno, Cotangente, etc, o donde conseguirlas
> para xHarbour, ya que anteriormente estaban definidas en mi lenguaje
> anterior y aquí­ las he encontrado en xHarbour.com pero no las he
> localizado en xHarbour.org, seguro que no he sabido buscar, pero en fin
> en la rutina que tengo al poner esto me da error de variables externas.
>
> ArcoCoseno := ACOS((Sin(nExad_x1 * Pi /180) * ;
> Sin(nExad_x * Pi /180))+ ;
> (Cos(nExad_x1 * Pi /180) * ;
> Cos(nExad_x * Pi /180))* ;
> Cos(nExad_y1 * Pi /180 - ;
> nExad_y * Pi /180))
> *
> nDistancia := Round((ArcoCoseno * 60 * 1.852 * 1000 * 180 / Pi),0)
>
> José Ramón Castro.
José Ramón Castro.
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Saludos:
Algo le falta después de incluir la librerí­a ya que me da este error.
Compilando Funciones.prg...
Enlazando Concurso.exe...
Error: Unresolved external '_hb_stack' referenced from
C:XAILERSAMPLESCONCURSOCT.LIB|ctstr
0 Warnings, 1 Errors
Gracias.
José Ramón Castro.
José Lalí­n escribió:
>
> José Ramón,
>
> añade a tu proyecto la librerí­a CT.lib que está en harbourlib y listo.
>
> Saludos,
> José Lalí­n
José Ramón Castro.
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Funciones Trigonometricas

Mensaje por jfgimenez »

José Ramón,
> Algo le falta después de incluir la librería ya que me da este error.
>
> Compilando Funciones.prg...
> Enlazando Concurso.exe...
> Error: Unresolved external '_hb_stack' referenced from
> C:XAILERSAMPLESCONCURSOCT.LIB|ctstr
> 0 Warnings, 1 Errors
Quizás estás enlazando una librería de otra versión de xHarbour. Utiliza la
que hay en el directorio xharbourlib, y asegúrate de que tiene la misma
fecha que las otras librerías, p.ej. vm.lib
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Funciones Trigonometricas

Mensaje por jfgimenez »

José Ramón,
> ¿Es que no existen estas funciones en xHarbour? y sino existen pediría al
> equipo de Xailer si cree interesante implementarlas, en Visual Objects
> existen como parte del lenguaje de programación, podían ser incluidas en
> el apartado de Funciones, Podrían ser Funciones Trigonométricas, al igual
> que están otras.
Están en la librería ct.lib. En todo caso, como por debajo se utiliza un
compilador de C que sí tiene esas funciones, es muy muy sencillo hacer los
'warppers' correspondientes. P.ej.:
XA_FUNC( SIN )
{
hb_retnd( sin( hb_parnd( 1 ) ) );
}
XA_FUNC( COS )
{
hb_retnd( cos( hb_parnd( 1 ) ) );
}
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Entendido José F.Gimenez la que vale es la que esta en la versión que se
carga con la distribución de Xailer, esa efectivamente enlaza sin
errores, pero como puedo saber las funciones que contiene, supongo que
estará en algún sitio el contendido de la LIB.
José Ramón Castro.
Jose F. Gimenez escribió:
> José Ramón,
>
>> Algo le falta después de incluir la librerí­a ya que me da este error.
>>
>> Compilando Funciones.prg...
>> Enlazando Concurso.exe...
>> Error: Unresolved external '_hb_stack' referenced from
>> C:XAILERSAMPLESCONCURSOCT.LIB|ctstr
>> 0 Warnings, 1 Errors
>
> Quizás estás enlazando una librerí­a de otra versión de xHarbour. Utiliza la
> que hay en el directorio xharbourlib, y asegúrate de que tiene la misma
> fecha que las otras librerí­as, p.ej. vm.lib
>
José Ramón Castro.
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Esto queda entendido que puedo hacerlas yo, Gracias.
José Ramón Castro.
Jose F. Gimenez escribió:
> José Ramón,
>
>> ¿Es que no existen estas funciones en xHarbour? y sino existen pedirí­a al
>> equipo de Xailer si cree interesante implementarlas, en Visual Objects
>> existen como parte del lenguaje de programación, podí­an ser incluidas en
>> el apartado de Funciones, Podrí­an ser Funciones Trigonométricas, al igual
>> que están otras.
>
> Están en la librerí­a ct.lib. En todo caso, como por debajo se utiliza un
> compilador de C que sí­ tiene esas funciones, es muy muy sencillo hacer los
> 'warppers' correspondientes. P.ej.:
>
> XA_FUNC( SIN )
> {
> hb_retnd( sin( hb_parnd( 1 ) ) );
> }
>
> XA_FUNC( COS )
> {
> hb_retnd( cos( hb_parnd( 1 ) ) );
> }
>
José Ramón Castro.
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

Funciones Trigonometricas

Mensaje por jrcpoli »

Saludos:
El contenido de la librerí­a está en este fichero que adjunto, me refiero
a las verdaderos nombres de las funciones a utilizar, por ejemplo en la
librerí­a está una función _HB_FUN_ACOS, es correcto que a la función se
le llame por lo que va a continuación de FUN_ como es el caso de las
funciones a las que hacemos referencia, en este caso ACOS()
José Ramón Castro.
José Ramón Castro Polinio escribió:
> Entendido José F.Gimenez la que vale es la que esta en la versión que se
> carga con la distribución de Xailer, esa efectivamente enlaza sin
> errores, pero como puedo saber las funciones que contiene, supongo que
> estará en algún sitio el contendido de la LIB.
>
> José Ramón Castro.
>
> Jose F. Gimenez escribió:
>> José Ramón,
>>
>>> Algo le falta después de incluir la librerí­a ya que me da este error.
>>>
>>> Compilando Funciones.prg...
>>> Enlazando Concurso.exe...
>>> Error: Unresolved external '_hb_stack' referenced from
>>> C:XAILERSAMPLESCONCURSOCT.LIB|ctstr
>>> 0 Warnings, 1 Errors
>>
>> Quizás estás enlazando una librerí­a de otra versión de xHarbour.
>> Utiliza la que hay en el directorio xharbourlib, y asegúrate de que
>> tiene la misma fecha que las otras librerí­as, p.ej. vm.lib
>>
--
José Ramón Castro.
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Funciones Trigonometricas

Mensaje por jfgimenez »

José Ramón,
> El contenido de la librería está en este fichero que adjunto, me refiero
> a las verdaderos nombres de las funciones a utilizar, por ejemplo en la
> librería está una función _HB_FUN_ACOS, es correcto que a la función se
> le llame por lo que va a continuación de FUN_ como es el caso de las
> funciones a las que hacemos referencia, en este caso ACOS()
Sí, exactamente. Todas las funciones disponibles para prg tienen como
prefijo _HB_FUN_, y el nombre completo está siempre en mayúsculas. Esto es
así por cuestiones puramente técnicas de como está implementado el
compilador.
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder