Лабораторная_работа_№_3_Спектральный_и_статистический_анализ

Лабораторная работа 3
СПЕКТРАЛЬНЫЙ
И СТАТИСТИЧЕСКИЙ АНАЛИЗ ДАННЫХ

Область анимации
Для FRAME от 0 до 128

Примерное значение определяется с помощью трассировки
(для каждого wav-файла оно разное)
Вход в режим трассировки
нажатие правой клавиши мыши в области графика
wav-файл выбирается из списка, доступного на текущем компьютере, например, в папке C:\Windows\Media

Область анимации
Для FRAME от 0 до 256

Мнимая единица 1i
Компоненты MathCAD-BASIC

Sub Slider_1Event_Start()
Rem TODO: Add your code here
End Sub
Sub Slider_1Event_Exec(Inputs,Outputs)
T = Inputs(0).value
Slider_1.MaxRange = T
pwmWidth = Slider_1.Position
If (pwmWidth <= 0) Then
pwmWidth= 0
ElseIf (pwmWidth >= T) Then
pwmWidth= T
End If
Worksheet.SetValue "pwmWidth", pwmWidth
End Sub
Sub Slider_1Event_Stop()
Rem TODO: Add your code here
End Sub
Sub Slider_1_ValueChanged()
Slider_1.Recalculate()
End Sub
Скрипт
для ползунка
(Slider)
Изменённое
свойство ползунка

Sub TextBox_1Event_Start()
Rem TODO: Add your code here
End Sub
Sub TextBox_1Event_Exec(Inputs,Outputs)
TextBox_1.Text = "Ширина импульса равна " & Inputs(0).value
End Sub
Sub TextBox_1Event_Stop()
Rem TODO: Add your code here
End Sub
Скрипт для
поля редактирования
(TextBox)
Изменённое
свойство поля редактирования

Добавление
иных скриптовых компонентов,
в частности, скроллинга
Компоненты JavaScript

Добавление
иных скриптовых компонентов,
в частности, скроллинга

Компоненты JavaScript

function ScrollBarEvent::Start()
{
// TODO: Add code here
ScrollBar.Min = 1;
ScrollBar.Max = 128;
}
function ScrollBarEvent::Exec(Inputs,Outputs)
{
// TODO: Add code here
Worksheet.SetValue("pdmPeriod", ScrollBar.Value);
}
function ScrollBarEvent::Stop()
{
// TODO: Add code here
}
JS-скрипт
для скроллинга
(ScrollBar)

function LabelEvent::Start()
{
// TODO: Add code here
Label.TextAlign = 2;
}
function LabelEvent::Exec(Inputs,Outputs)
{
// TODO: Add code here
// Label.Caption = Worksheet.GetValue("pdmPeriod");
Label.Caption = Inputs(0).value;
}
function LabelEvent::Stop()
{
// TODO: Add code here
}
JS-скрипт
для метки
(Label)

Компоненты MathCAD-BASIC

Rem Initialize List Box
ListBox_1.ResetContent()
x = Worksheet.GetValue("N")
If ListBox_1.Count = 0 Then
For i = 1 To 8
ListBox_1.AddString(i)
Next
End If
Rem Initialize Selection If desired
ListBox_1.CurSel = 0
Sub ListBox_1Event_Start()
End Sub
Скрипт (начало)
для списка
(ListBox)

Sub ListBox_1Event_Exec(Inputs,Outputs)
End Sub
Sub ListBox_1Event_Stop()
Rem TODO: Add your code here
End Sub
Sub ListBox_1_SelChanged()
Worksheet.SetValue "ppmFreq", ListBox_1.CurSel + 1
Worksheet.SetValue "ppmPhase_0", x/4/(ListBox_1.CurSel + 1)
End Sub
Sub ListBox_1_DblClick()
End Sub
Скрипт (конец)
для списка
(ListBox)

Sub Slider_2Event_Start()
Rem TODO: Add your code here
End Sub
Sub Slider_2Event_Exec(Inputs,Outputs)
ppmFreq = Inputs(0).value
N = Inputs(1).value
Slider_2.MinRange = 0
Slider_2.MaxRange = N / ppmFreq
Worksheet.SetValue "ppmControlPhase", Slider_2.Position
End Sub
Sub Slider_2Event_Stop()
Rem TODO: Add your code here
End Sub
Sub Slider_2_ValueChanged()
Slider_2.Recalculate()
End Sub
Скрипт для ползунка (Slider)
Изменённое
свойство поля редактирования

Sub TextBox_2Event_Start()
Rem TODO: Add your code here
End Sub
Sub TextBox_2Event_Exec(Inputs,Outputs)
TextBox_2.Text = "Фаза управления равна " & Inputs(0).value
End Sub
Sub TextBox_2Event_Stop()
Rem TODO: Add your code here
End Sub
Скрипт для текстового поля (TextBox)
Изменённое
свойство поля редактирования