Реферат Розрахунок на ЕОМ характеристик вихідних сигналів електричних ланцюгів

(Ui1);

; { of procedure DATA }

сигнал імпульс файл графік

{----------------------------------------- ----------------------------}

{ Опис процедури формування масиву вхідних відліків}

procedure UIN1 (n: integer;, a1, a2, tn, tk: real; uin, time: Arraytype); { список формальних параметрів }

var, del: real; { опис локальних змінних}

i: integer;: = tn;: = (tk-tn)/(n-1); i: = 1 to n do [i]: = a0 + a1 * t + a2 * t * t; [i]: = t;: = t + del;; { of procedure UIN1}

{ --------------------------------- ---------------------------------}

{Опис процедури формування масиву вихідних відліків}

procedure UOUT1 (n: integer; a, b, Ui1: real;: Arraytype; var uout: ArrayType);

var { опис локальних змінних}

i: integer;

begini: = 1 to n douin [i] <= Ui1 then uout [i]: = a * Ui1 + b; uin [i]> Ui1 then uout [i]: = a * uin [i] + b;;; { of procedure UOUT1}

{ --------------------- -------------------------------- }

{ Опис функції знаходження максимального значення вихідного

сигналу}

function maxi (n: integer; uout: ArrayType): real;: real; i: integer;

: = uout [1]; i: = 2 to n douout [i]> maxmax: = uout [i];: = max;; { of function maxi}

{----------------------------------------- ----------------------}

{ Опис функції знаходження тривалості імпульсу}

function dlit (n: integer; uout, time: ArrayType): real; t1, t2: real; i: integer; a: real;: = maxi (n, uout)/2;: = time [1]; t2: = time [n]; i: = 1 to n do ((uout [i-1]) <= a) and ((uout [i +1])> = a) t1: = time [i]; i: = 1 to n do ((uout [i-1])> = a) and ((uout [i +1]) <= a) t2: = time [i ];: = (t2-t1);

end; { of function dlit }