Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
$regfile = "m32def.dat" 'specifico il micro
$crystal = 16000000 'cristallo usato
$baud = 19200 'baud rate se serve
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer0 = Timer , Prescale = 64
Dim Sine_table(32) As Byte
Dim Index As Byte
Setup:
For Index = 0 To 31
Sine_table(index + 1) = Lookup(index , Sine_dat) ' leggo Sine_dat
Next Index
'------------------------------------------------------------
Do
Loop
End
Sine_dat:
Data 025 , 050 , 074 , 098 , 120 , 142 , 162 , 180 , 197 , 212 , 225 , 235 , 244 , 250 , 254 , 255
Data 254 , 250 , 244 , 235 , 225 , 212 , 197 , 180 , 162 , 142 , 120 , 098 , 074 , 050 , 025 , 000
per realizzare un inverter sinusoidale con trasformatore bifilare o con presa centrale bisogna pilotare alternativamente gli avvolgimenti del primario a bassa tensione con una modulazione pwm relativa al periodo di una semionda sinu 0-180°.
la sinusoide completa sarà il frutto dei 2 pwm.
Users browsing this forum: No registered users and 5 guests