Детерминированный и вероятностный подходы к оценке живучести сетей. Анализ моделей гибели и вероятности связности сетей. Табличное представление результатов вычислений и построение графических зависимостей в программе, написанной на языке Object Pascal.
При низкой оригинальности работы "Исследование связности ячеистых сетей и разработка алгоритмов имитационного моделирования", Вы можете повысить уникальность этой работы до 80-100%
Глава 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
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
