Caption = "f, кГц ",> LeftAxis-> Title-> Caption =" B (f), В * мкс ",> BottomAxis-> Title-> Caption =" f, кГц ";
(); A, B, x;
for (int i = 0; i <(tdiv/4); i + +)
}
}
// ---------------------------------------- -----------------------------------
// Розрахунок амплітудного і фазового спектров__fastcall TForm1 :: btnSpectrumCPClick (TObject * Sender)
ChartAC-> LeftAxis-> Title-> Caption = "C (f), В * мкс",> BottomAxis-> Title-> Caption = "f, кГц ",> LeftAxis-> Title-> Caption =" p (f), град ",> BottomAxis-> Title-> Caption =" f, кГц ";
InitBuf (); A, B, C, P, x; (int i = 0; i <(tdiv/4); i + +)
}
}
4. Опис програми розрахунку енергії за спектрами E (f)
Розрахунок спектру енергії виробляється цією ж програмою Spektr.exe. Лістинг частини програми для розрахунку енергетичного спектру:
Розрахунок енергетичного спектру
void __ fastcall TForm1 :: btnEnergiticSpectrumClick (TObject * Sender)
double EMax = Integ (Sign2, TMin, TMax); buf [5000]; (buf, "%. f мВт * с * Ом 0", (float) (EMax * 1000. ));> Caption = buf;
InitBuf (); A, B, x, E, Eo, Es;
double dw = Buf [1]. w;
for (int i = 0; i
= 0.9)) Measure2 = i; ((Eo <0.98) && (E> = 0.98)) Measure3 = i;> Series [ 0] -> AddXY (x, (E + Eo)/2.);
}
}
Результати розрахунку енергетичного спектру наведені в додатку Б.
5. Опис програми синтезу сигналу з його спектру
Розрахунок синтезу сигналу з його спектру проводиться цією ж програмою Spektr.exe. Результати розрахунку наведені в додатку Б.
Лістинг частини програми синтезу сигналу з його спектру:
Синтез сигналу
void __ fastcall TForm1 :: btnSynthesisClick (TObject * Sender)
{((Measure1 == 0) | | (Measure2 == 0) | | (Measure3 == 0))
{> MessageBoxA ("До початку синтезу сигналу слід розрахувати його енергетичний спектр.", "Увага!", MB_OK | MB_ICONWARNING);;
}
btnSignalClick (Sender);
int N; (SynthesisCondition-> ItemIndex)
{0: {N = Measure1; break;}
case 1: {N = Measure2; break;}
case 2: {N = Measure3; break;}
}
double df = Buf [1] .w/pi; s; ds; w; dT = (TMax-TMin)/tdiv; T = TMi...