Autor Tema: funcion seno con pic simulator ide  (Leído 257 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado WALTER ALEJANDRO

  • PIC12
  • **
  • Mensajes: 51
funcion seno con pic simulator ide
« en: 17 de Enero de 2019, 07:38:51 »
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

Desconectado dogflu66

  • Moderador Local
  • DsPIC30
  • *****
  • Mensajes: 3336
    • PICKEY ELECTRÓNICA
Re:funcion seno con pic simulator ide
« Respuesta #1 en: 26 de Enero de 2019, 19:54:33 »
No encuentro el ejemplo.
Saludos desde Granada, España.

Desconectado dogflu66

  • Moderador Local
  • DsPIC30
  • *****
  • Mensajes: 3336
    • PICKEY ELECTRÓNICA
Re:funcion seno con pic simulator ide
« Respuesta #2 en: 26 de Enero de 2019, 20:23:43 »
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
  39.  

He comprobado varios valores y parecen correctos en Radianes.
Saludos desde Granada, España.