funcion seno con pic simulator ide

[WALTER ALEJANDRO]

hola, quisiera saber si alguien uso la funcion sin (seno) con PSI ya que repito el ejemplo del manual y el resultado no coincide con lo que deberia dar, invito a repetir estas pocas lineas de programa para saber donde estaa el error ,desde ya gracias

[dogflu66]

No encuentro el ejemplo.

[dogflu66]

Puede ser este ejemplo:

Código: Visual Basic

1. Define LCD_BITS = 8
2. Define LCD_DREG = PORTB
3. Define LCD_DBIT = 0
4. Define LCD_RSREG = PORTC
5. Define LCD_RSBIT = 1
6. Define LCD_EREG = PORTC
7. Define LCD_EBIT = 3
8. Define LCD_RWREG = PORTC
9. Define LCD_RWBIT = 2
10. Define LCD_COMMANDUS = 1000  'delay after LCDCMDOUT, default value is 5000
11. Define LCD_DATAUS = 50  'delay after LCDOUT, default value is 100
12. Define LCD_INITMS = 2  'delay used by LCDINIT, default value is 100
13. 'the last three Define directives set the values suitable for simulation; they should be omitted for a real device
14.  
15. Dim x1 As Single
16. Dim x2 As Single
17. Dim y1 As Single
18. Dim y2 As Single
19.  
20. Define SINGLE_DECIMAL_PLACES = 4
21. AllDigital  'configure all pins as digital I/O's
22. Lcdinit LcdCurBlink
23. 'WaitMs 1000
24.  
25. x1 = 2.2
26. x2 = 2.2
27.  
28. loop:
29. y1 = Sin(x1)
30. y2 = Cos(x2)
31. Lcdcmdout LcdClear
32. Lcdout "Sin(", #x1, ")=", #y1
33. Lcdcmdout LcdLine2Home
34. Lcdout "Cos(", #x2, ")=", #y2
35. WaitMs 10
36. x1 = x1 + 0.1
37. x2 = x2 + 0.1
38. Goto loop  'loop forever

He comprobado varios valores y parecen correctos en Radianes.