Детерминированный и вероятностный подходы к оценке живучести сетей. Анализ моделей гибели и вероятности связности сетей. Табличное представление результатов вычислений и построение графических зависимостей в программе, написанной на языке Object Pascal.
Аннотация к работе
Глава 1. Оценка гибели сетей связи 1.1 Показатели гибели сети 1.2 Гибель звездообразной сети. Разрыв дуг 1.3 Гибель звезды при атаке на узлы 1.4 Гибель линейной сети. После разрыва одной и более дуг, гибели одного или нескольких узлов (0kord[i].x-10) and (xkord[i].y-10) and (y0 then begin p:=0; Image1.Canvas.MoveTo(prev.x,prev.y); Image1.Canvas.LineTo(kord[i].x,kord[i].y); end; prev:=kord[i]; end; end; //перерисовка всех точек for i:=0 to nversh-1 do begin Image1.Canvas.Pen.Width:=14; Image1.Canvas.EllipseC(versh[i].x,versh[i].y,3,3); Image1.Canvas.Font.Color:=clWhite; Image1.Canvas.Pen.Mode := pmMask; Image1.Canvas.Brush.Color:=clBlack; Image1.Canvas.TextOut(versh[i].x-3,versh[i].y-6,InttoStr(i)); end; end; procedure TForm1.Button3Click(Sender: TObject); //очистка var i,j:integer; begin jpg.Canvas.Clear; prev.x:=0; Form1.FormShow(Sender); for i:=0 to 200 do begin // перебор for j:=0 to 200 do begin smez[i,j]:=-1; end; end; for i:=0 to 40 do begin versh[i].x:=0 ; versh[i].y:=0 ; dug[i]:=; end; nversh:=0; pred:=0; ndug:=0; nz:=0; nraz:=0; end; Программный код формирования уравнения связности и нахождение численных значений procedure TForm1.Button6Click(Sender: TObject); var i,ig,j,n,g,g2,h,tek,pred,kk,p:integer; html: TIpHtml; ms:TMemoryStream; MyString:AnsiString; pr:real; koef: array[0..40] of integer; koef2: array[0..40] of integer; s,str,ps,vr:string; new:boolean; res: Word; begin nraz:=2; prev.x:=0; n:=0; h:=1; kk:=0; for i:=0 to 40 do begin koef[i]:=0; koef2[i]:=0; end; for i:=0 to nversh-1 do begin // заполнение массива дуг for j:=i 1 to nversh-1 do begin if smez[i,j]=1 then begin dug[h]:=formatm(i) formatm(j); h:=h 1; end; end; end; n:=h-1; Label2.Caption:=r= inttoStr(n); Label3.Caption:=n= inttoStr(nversh); str:=; kk:=0; res:=1; if n>17 then begin // ограничение res := MessageDlg(Данная процедура может занять более FloattoStr(power(2,(n-17))) минут. Продолжить?, mtInformation, [mbOk, mbCancel], 0); end; if res