MATLAB: Seemless sine array signals generation
- Информация о материале
- Автор: Super User
- Родительская категория: Заметки
- Категория: Программирование
- Просмотров: 1489
script
Fdisc = 16000;
fgen = Fdisc/24;
Q_graphs = 6;
ArrayLengthDevide = 40;
ArrayLength = 1024;
Offset = 255/2;
Amplithude = 255/2;
Phase = 0;
fileID = fopen('output.c','w');
i = 0;
for a = 1:Q_graphs
for i = 1:ArrayLength
y(a,i)= ceil(Amplithude*sin(fgen*Phase*2*pi/(Fdisc)) + Offset);
Phase = Phase + 1;
end
end
for a = 1:Q_graphs
fprintf(fileID, 'uint8_t buf%d[%d]={',a,ArrayLength);
for i=1:ArrayLength-1
fprintf(fileID, '%d,',y(a,i));
if rem(i,ArrayLengthDevide) == 0
fprintf(fileID, '\n');
end
end
fprintf(fileID, '%d',y(a,i+1));
fprintf(fileID, '};\n');
end
figure
for a = 1:Q_graphs
ax1 = subplot(Q_graphs,1,a);
plot(ax1,y(a,1:ArrayLength));
grid on;
end
IAR 8.40 Прямая ссылка
- Информация о материале
- Автор: Super User
- Категория: Новости
- Просмотров: 2291
IAR обновился до 8.40.
VBA copy cells with images, delete images
- Информация о материале
- Автор: Super User
- Родительская категория: Заметки
- Категория: Программирование
- Просмотров: 1434
Sub Add_pictures()
Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name)
Set InputWorksheet = CurrentWorkbook.Sheets("BASE")
Set OutputWorksheet = CurrentWorkbook.Sheets("meBOM - OTH&HH")
Dim sh As Shape
Dim i As Integer
InputWorksheet.Select
Set rng = InputWorksheet.Range(Cells(3, 1), Cells(172, 1))
For Each cell In rng
'Delete
'For Each sh In OutputWorksheet.Shapes
' If sh.TopLeftCell.Address = OutputWorksheet.Cells(cell.Row, 23).Address Then sh.Delete
'Next
For i = 1 To 172
If (cell.Value = OutputWorksheet.Cells(i, 1).Value) Then
InputWorksheet.Cells(cell.Row, 18).Copy Destination:=OutputWorksheet.Cells(i, 23)
End If
Next i
Next cell
End Sub
Excel: копируем значения на другой лист VBA
- Информация о материале
- Автор: Super User
- Родительская категория: Заметки
- Категория: Программирование
- Просмотров: 1645
Sub Update()
Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name)
Set InputWorksheet = CurrentWorkbook.Sheets("meBOM - OTH&HH")
Set OutputWorksheet = CurrentWorkbook.Sheets("1035159-VS")
Dim rng As Range, cell As Range
Dim N As Long
N = 1
Set rng = Range(Cells(3, 7), Cells(168, 7))
For Each cell In rng
If (cell.Value = "Yes") Then
N = N + 1
Range(Cells(N, 1), Cells(N, 6)).Copy
OutputWorksheet.Select
Range(Cells(N, 1), Cells(N, 6)).Select
OutputWorksheet.Paste
InputWorksheet.Select
End If
Next cell
End Sub
GPS треккер сегодня дешевле
- Информация о материале
- Автор: Super User
- Категория: Новости
- Просмотров: 1825
Не забываем, про закон РФ, в который внесли изменения, если вы будете не законно за кем-то вести слежку, будете отвечать по всем пунктам! А если для личных целей или с согласия, то всё законно!
Страница 98 из 199