втоматизоване структурно-логічне моделювання і імовірнісний аналіз складних систем.// Теорія та інформаційна технологія моделювання безпеки складних систем: Зб. ст./За редакцією І. А. Рябініна, Препринт 104. - СПб.: ІПМАШРАН, 1994, С. 17-42.
Можаєв А.С., Алексєєв А.О. Громов В.Н. Автоматизоване логіко-імовірнісний моделювання технічних систем. Керівництво користувача ПК АСМ, версія 5.0.- СПб.: ВІГУ, 1999.
11 <# «justify"> Додаток
«Unit1.pas»
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Grids;=array of double;=array of array of double;=class (TForm): TButton;: TComboBox;: TButton;: TButton;: TChart;: TButton;: TEdit;: TComboBox;: TButton; FormCreate (Sender: TObject); Button1Click (Sender: TObject); ComboBox1Change (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); ComboBox2Change (Sender: TObject); Button4Click (Sender: TObject); FormActivate (Sender: TObject); Button5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, C, ms: TMatrix;, ww, w1, w2: TVector;, k1, k2: TVector;, C1: TMatrix;, n: byte;: array [1 .. 10] of TVector; Unit2, Unit3;
{$ R *. dfm} clearmas (var vx: tvector; l, k: integer); i: integer; i:=l to k do [i]:=0;; chclr; j: integer; (ww, n, n * 5-1); (w, n, n * 5-1); (w1, n, n * 5-1); (w2, n, n * 5-1 ); j:=1 to 10 do (h [j], n, n * 5-1); j:=1 to 7 do.ch.Series [j - 1]. Clear;
{}; multV (SVect: TVector; var Dvect: TVector; SMatr: TMatrix; Ub: Integer);, j: integer; I:=0 to Ub - 1 do [I]:= 0; I:=0 to Ub - 1 doj:=0 to Ub - 1 do [I]:=(Dvect [I] + Smatr [i, j] * SVect [j]);; asimpt (w: tvector; var w0: tvector; M: tmatrix; var q, s: double; k: integer);=10000;, J: integer;: double; i:=1 to round (300 * k / n) do:=0; j:=0 to k - 1 do:=s0 + w [j]; j:=0 to k - 1 do [j]:=w [j] / s0 * ct; (w, w0, m, k) ;:=0; j:=0 to k - 1 do:=s + w0 [j]; [j]:=w0 [j];;:=s / ct;;:=s / ct;; progn ( w: tvector; w0: tvector; M: tmatrix; l: byte; n1: integer);, J: integer;: double; i:=1 to l do (w, w0, m, n1); j:=0 to (n1) - 1 do [j]:=w0 [j]; [i + 3, j]:=w0 [j];;;; readfl;, j, k, rw, cl: word;, sd: string;.red.Lines.LoadFromFile(«W_all_»+inttostr(form1.ComboBox1.ItemIndex+1)+«.txt»);:=formdat.red.Lines[0];:= formdat.red.Lines.Count;:=«»;:=1; i:=1 to length (s) - 1 do s [i]=# 9 then:=k +1; :=K; i:=0 to rw - 1 do:=formdat.red.Lines [i];:=0;:=«»; j:=1 to length (s) - 1 do s [j ]=# 9 then [i, k]:=strtofloat (sd);:=«»;:=k +1; :=Sd + s [j]; [i, k]:=strtofloat (sd);;; TForm1.FormCreate (Sender: TObject);, j: word;: string;:=75;:=1; (w , n * 5); (w1, n * 5); (w2, n * 5); (ww, n * 5); (A, N, N); (C, N, N); (MS, N , N); (k0, n * 5); (k1, n * 5); (k2, n * 5); (A1, N * 5, N * 5); (C1, N * 5, N * 5 ); i:=1 to 10 do (H [i], N * 5);; TForm1.Button1Click (Sender: TObject);. showmodal;; TForm1.ComboBox1Change (Sender: TObject);;;; TForm1.Button2Click ( Sender: TObject);, J, l: integer;, ss: double;; I:=0 to N - 1 doJ:=0 to N - 1 do [I, J]:=0; I:=0 to N- 2 do [i + 1, i]:=sqr (sqr (1 - ms [r, i + 1] / 1000)) * (1 - ms [r, i + 1] / 1000); [n - 1 , n - 1]:=sqr (sqr (1 - ms [r, n] / 200)) * (1 - ms [r, n] / 200); I:=0 to n - 1 do [0, i ]:=5 * ms [r + 6, i + 1] / 2000...
