mirror of
https://github.com/cnlohr/lolra.git
synced 2026-06-17 00:09:31 +00:00
Update with PWM out at 27MHz
This commit is contained in:
cnlohr
@@ -89,7 +89,14 @@ SOFTWARE.
|
|||||||
Calculated to use the 19.75th harmonic @ 27.08571429MHz, but ideal found at 27.08643MHz
|
Calculated to use the 19.75th harmonic @ 27.08571429MHz, but ideal found at 27.08643MHz
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define PWM_PERIOD 34
|
#define Q 80
|
||||||
|
|
||||||
|
#define PWM_PERIOD (31-1) //For 27.0857MHz
|
||||||
|
#define QUADRATURE
|
||||||
|
|
||||||
|
//#define PWM_PERIOD (32-1)
|
||||||
|
//#define QUADRATURE
|
||||||
|
#define PWM_OUTPUT 3
|
||||||
|
|
||||||
#define ADC_BUFFSIZE 256
|
#define ADC_BUFFSIZE 256
|
||||||
volatile uint16_t adc_buffer[ADC_BUFFSIZE];
|
volatile uint16_t adc_buffer[ADC_BUFFSIZE];
|
||||||
@@ -169,11 +176,14 @@ static void SetupTimer1()
|
|||||||
TIM1->PSC = 0x0000; // Prescalar to 0x0000 (so, 48MHz base clock)
|
TIM1->PSC = 0x0000; // Prescalar to 0x0000 (so, 48MHz base clock)
|
||||||
TIM1->ATRLR = PWM_PERIOD;
|
TIM1->ATRLR = PWM_PERIOD;
|
||||||
|
|
||||||
// NOT USED
|
#ifdef PWM_OUTPUT
|
||||||
//TIM1->CCER = TIM_CC2E | TIM_CC2NP; // CH2 is control for FET.
|
GPIOC->CFGLR &= ~(0xf<<(4*4));
|
||||||
//TIM1->CHCTLR1 = TIM_OC2M_2 | TIM_OC2M_1;
|
GPIOC->CFGLR |= (GPIO_Speed_10MHz | GPIO_CNF_OUT_PP_AF)<<(4*4);
|
||||||
|
|
||||||
TIM1->CH2CVR = 0; // Actual duty cycle (Off to begin with)
|
TIM1->CCER = TIM_CC4E | TIM_CC4P;
|
||||||
|
TIM1->CHCTLR2 = TIM_OC4M_2 | TIM_OC4M_1;
|
||||||
|
TIM1->CH4CVR = 5; // Actual duty cycle (Off to begin with)
|
||||||
|
#endif
|
||||||
|
|
||||||
// Setup TRGO for ADC. This makes is to the ADC will trigger on timer
|
// Setup TRGO for ADC. This makes is to the ADC will trigger on timer
|
||||||
// reset, so we trigger at the same position every time relative to the
|
// reset, so we trigger at the same position every time relative to the
|
||||||
@@ -213,6 +223,7 @@ void InnerLoop()
|
|||||||
|
|
||||||
while( adc != adc_buffer_end )
|
while( adc != adc_buffer_end )
|
||||||
{
|
{
|
||||||
|
#ifdef QUADRATURE
|
||||||
int32_t t = adc[0];
|
int32_t t = adc[0];
|
||||||
i += t; q += t;
|
i += t; q += t;
|
||||||
t = adc[1];
|
t = adc[1];
|
||||||
@@ -223,16 +234,40 @@ void InnerLoop()
|
|||||||
i += t; q -= t;
|
i += t; q -= t;
|
||||||
adc += 4;
|
adc += 4;
|
||||||
frcnt += 4;
|
frcnt += 4;
|
||||||
|
#else
|
||||||
|
i = i + adc[0] - adc[1];
|
||||||
|
adc += 2;
|
||||||
|
frcnt += 2;
|
||||||
|
#endif
|
||||||
|
|
||||||
if( adc == adc_buffer_top ) adc = adc_buffer;
|
if( adc == adc_buffer_top ) adc = adc_buffer;
|
||||||
}
|
}
|
||||||
|
|
||||||
if( frcnt > 8000 )
|
if( frcnt > Q )
|
||||||
{
|
{
|
||||||
|
#ifdef QUADRATURE
|
||||||
|
int ti = i>>1;
|
||||||
|
int tq = q>>1;
|
||||||
|
int s = (ti*ti + tq*tq)>>8;
|
||||||
|
#else
|
||||||
|
int s = i>>2;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TIGHT_OUT
|
||||||
|
printf( "%d\n", i );
|
||||||
|
#elif defined( PWM_OUTPUT )
|
||||||
|
int tv = (s>>PWM_OUTPUT) + (PWM_PERIOD/2);
|
||||||
|
if( tv < 0 ) tv = 0;
|
||||||
|
if( tv >= PWM_PERIOD ) tv = PWM_PERIOD-1;
|
||||||
|
TIM1->CH4CVR = tv;
|
||||||
|
#else
|
||||||
int ti = i>>2;
|
int ti = i>>2;
|
||||||
int tq = q>>2;
|
int tq = q>>2;
|
||||||
int s = (ti*ti + tq*tq)>>8;
|
int s = (ti*ti + tq*tq)>>8;
|
||||||
//s = usqrt4(s);
|
//s = usqrt4(s);
|
||||||
|
|
||||||
printf( "%8d I:%7d Q:%7d [%d %d %d %d] / %d\n",s, i ,q, adc_buffer[0], adc_buffer[1], adc_buffer[2], adc_buffer[3], SysTick->CNT - tstart );
|
printf( "%8d I:%7d Q:%7d [%d %d %d %d] / %d\n",s, i ,q, adc_buffer[0], adc_buffer[1], adc_buffer[2], adc_buffer[3], SysTick->CNT - tstart );
|
||||||
|
#endif
|
||||||
//printf( "%d\n", s );
|
//printf( "%d\n", s );
|
||||||
frcnt = 0;
|
frcnt = 0;
|
||||||
i = 0;
|
i = 0;
|
||||||
|
|||||||
@@ -0,0 +1,92 @@
|
|||||||
|
<!DOCTYPE html>
|
||||||
|
<HTML>
|
||||||
|
<HEAD>
|
||||||
|
<SCRIPT>
|
||||||
|
|
||||||
|
|
||||||
|
function DrawSpan( colspan, freq, target, docolor )
|
||||||
|
{
|
||||||
|
var fdist = Math.abs( freq - target );
|
||||||
|
fdist = Math.pow( fdist, 0.5 ) * 500;
|
||||||
|
// if( fdist > 255 ) fdist = 255;
|
||||||
|
let ret = "<TD COLSPAN=" + colspan + ' ';
|
||||||
|
if( docolor ) ret += 'STYLE="background-color:rgb(' + fdist + ',' + (511-fdist) + ',0)";';
|
||||||
|
ret += '>' + freq.toFixed(6) + "</TD>";
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
function computeTable()
|
||||||
|
{
|
||||||
|
const max_harmonics = 28|0;
|
||||||
|
const min_harmonics = 1|0;
|
||||||
|
let xtal = Number(document.getElementById("crystalmhz").value );
|
||||||
|
let target = Number(document.getElementById("targetmhz").value );
|
||||||
|
let contents = "<TABLE BORDER=1>";
|
||||||
|
|
||||||
|
contents += '<TR><TH>d\\h</div></TH>';
|
||||||
|
for( let h = 0|min_harmonics; h <= max_harmonics; h++ )
|
||||||
|
{
|
||||||
|
contents += "<TH COLSPAN=2>" + h + "</TH>";
|
||||||
|
}
|
||||||
|
contents += "</TR>";
|
||||||
|
|
||||||
|
|
||||||
|
for( let n = 0|28; n <= 66; n++ )
|
||||||
|
{
|
||||||
|
for( let mode = 0; mode < 4; mode++ )
|
||||||
|
{
|
||||||
|
contents += "<TR>";
|
||||||
|
if( mode == 0 )
|
||||||
|
contents += "<TD ROWSPAN=4>" + n + "</TD>";
|
||||||
|
for( let h = 0|min_harmonics; h <= max_harmonics; h++ )
|
||||||
|
{
|
||||||
|
let freq = ( xtal / n );
|
||||||
|
if( mode == 0 )
|
||||||
|
contents += DrawSpan( 2, freq * h, target, false );
|
||||||
|
else if( mode == 1 )
|
||||||
|
contents += DrawSpan( 2, freq * (h-.25), target, true );
|
||||||
|
else if( mode == 2 )
|
||||||
|
contents += DrawSpan( 2, freq * (h+.25), target, true );
|
||||||
|
else if( mode == 3 )
|
||||||
|
contents += DrawSpan( 2, freq + (h+ 0.5), target, true );
|
||||||
|
|
||||||
|
}
|
||||||
|
contents += "</TD>";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
contents += "</TABLE>";
|
||||||
|
document.getElementById( "TABLE" ).innerHTML = contents;
|
||||||
|
}
|
||||||
|
|
||||||
|
</SCRIPT>
|
||||||
|
</HEAD>
|
||||||
|
<BODY>
|
||||||
|
|
||||||
|
<p>Tool for computing tuning to specific frequencies by use of direct ADC reading at specific timer-controlled rate to "tune" to specific frequencies either by quadrature or differential.</p>
|
||||||
|
<TABLE>
|
||||||
|
<TR><TD>Crystal MHz</TD><TD><INPUT ID=crystalmhz VALUE=48></TD></TR>
|
||||||
|
<TR><TD>Target MHz</TD><TD><INPUT ID=targetmhz VALUE=27.1></TD></TR>
|
||||||
|
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT ONCLICK="computeTable()"></TD></TR>
|
||||||
|
</TABLE>
|
||||||
|
|
||||||
|
<TABLE>
|
||||||
|
<TR><TD>Quadrature:</TD></TR>
|
||||||
|
<TR><TD>I = + + - -</TD></TR>
|
||||||
|
<TR><TD>Q = + - - +</TD></TR>
|
||||||
|
<TR><TD>Differntial:</TD></TR>
|
||||||
|
<TR><TD>V = + - + -</TD></TR>
|
||||||
|
<TR><TD>You choose the mode you operate in, either Quadrature or differential</TD></TR>
|
||||||
|
</TABLE>
|
||||||
|
|
||||||
|
<p> Table shows: </P>
|
||||||
|
<TABLE BORDER=1>
|
||||||
|
<TR><TD>Sample Frequency Harmonic</TD></TR>
|
||||||
|
<TR><TD>Lower Quadrature Frequency</TD></TR>
|
||||||
|
<TR><TD>Upper Quadrature Frequency</TD></TR>
|
||||||
|
<TR><TD>Differential Frequency</TD></TR>
|
||||||
|
</TABLE>
|
||||||
|
|
||||||
|
<DIV ID=TABLE></DIV>
|
||||||
|
|
||||||
|
</BODY>
|
||||||
|
</HTML>
|
||||||
Reference in New Issue
Block a user