Hola te adjunto un ejemplo que calcula el Seno de 45 grados en radianes...
Espero que te sirva de ayuda.

C* -------------------------------------                       
C* CALCULO SENO DE UN ANGULO EN RADIANES                       
C* NOTA: Compilar con DFTACTGRP(*NO)                           
C* -------------------------------------                       
D �ANGULO         S              4F                            
D �SENO           S              4F                            
D MSG             S             52A                            
                                                               
C                   CALLB     'CEESSSIN'                       
C                   PARM      45            �ANGULO            
C                   PARM                    �SENO              
                                                               
C                   EVAL      MSG='SENO(' +                    
C                             %TRIM(%EDITFLT(�ANGULO)) + ')=' +
C                             %TRIM(%EDITFLT(�SENO))           
C     MSG           DSPLY                                      
C                   Eval      *INLR = *on

Saludos.

Departamento T�cnico
EKAMAT, S.A.


-----Mensaje original-----
De: LANJARONAS400 [mailto:[EMAIL PROTECTED]]
Enviado el: martes, 18 de febrero de 2003 18:17
Para: [EMAIL PROTECTED]
Asunto: Calculo del seno


Buenas tardes.
�Alguien sabe si existe el codigo de operaci�n Sin 
o algo para calcular el seno en RPG?



_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=AVE

_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE

Responder a