Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости

Категория реферата: Рефераты по математике
Теги реферата: реферат мыло, кредит реферат
Добавил(а) на сайт: Nedel'skij.

(((m^.p^.x-p^.x)*(m^.y-p^.y)m^.kl+1 then begin k:=m^.r; if k^.kl>k^.kr then k:=k^.l; if k^.u^.r=k then k^.u^.r:=k^.r else k^.u^.l:=k^.r; if k^.u^.r=k then k^.u^.kr:=k^.kr else k^.u^.kl:=k^.kr; if k^.rnil then k^.r^.u:=k^.u; r:=m^.r; kr:=m^.kr; m^.r:=k^.l; m^.kr:=k^.kl; if k^.lnil then k^.l^.u:=m; k^.r:=r; k^.kr:=kr; r^.u:=k; k^.l:=m; m^.u:=k; if unil then begin if u^.l=m then u^.l:=k else u^.r:=k; end else t:=k; k^.u:=u; balance(m,t,false); end; if f then balance(u,t,true); end;

procedure ins(m,d:prec); begin if m^.rnil then m^.r^.u:=d; d^.r:=m^.r; d^.l:=nil; d^.u:=m; m^.r:=d; balance(d,t,true);

end; procedure cutl(l:prec;var dl,dr:prec); var r,c:prec; begin r:=l; dl:=nil; if r^.lnil then begin dl:=r^.l; dl^.u:=nil; r^.l:=nil; r^.kl:=0; end; while rnil do begin c:=r^.u; if cnil then begin if c^.r=r then begin if c^.unil then begin if c^.u^.l=c then begin c^.u^.l:=r; r^.u:=c^.u; end else begin c^.u^.r:=r; r^.u:=c^.u; end; end else begin dr:=r; r^.u:=nil; end; c^.r:=dl; if dlnil then dl^.u:=c; dl:=c; dl^.u:=nil; continue; end; end; r:=r^.u; end; balance(l,dr,true); end; procedure cutr(r:prec;var dl,dr:prec); var l,c:prec; begin l:=r; dr:=nil; if l^.rnil then begin dr:=l^.r; dr^.u:=nil; l^.r:=nil; end; while lnil do begin c:=l^.u; if cnil then begin if c^.l=l then begin if c^.unil then begin if c^.u^.l=c then begin c^.u^.l:=l; l^.u:=c^.u; end else begin c^.u^.r:=l; l^.u:=c^.u; end; end else begin dl:=l; l^.u:=nil; end; c^.l:=dr; if drnil then dr^.u:=c; dr:=c; dr^.u:=nil; continue; end; end; l:=l^.u; end; balance(r,dl,true); end; procedure add(p:prec); var l,r,d:prec; begin getleft(t,n,l); if lnil then begin getright(t,n,r); if (n=r) or ((n^.x-r^.x)*(l^.y-r^.y)timew; str((now-time)/kkk*24*60*60:0:6,strr);

TimeL.Caption:=strr+'s';

PaintBox1.Refresh; end; procedure TForm1.Button1Click(Sender: TObject); begin while snnil do begin tt:=sn^.n; dispose(sn); sn:=tt; end; while cnnil do begin tt:=cn^.n; dispose(cn); cn:=tt; end; halt; end; procedure TForm1.Button3Click(Sender: TObject); var i:integer; t:pr; begin randomize(); while cnnil do begin t:=cn^.n; dispose(cn); cn:=t; end; while snnil do begin t:=sn^.n; dispose(sn); sn:=t; end; mx:=0; my:=0; new(t); t^.n:=cn; cn:=t; t^.x:=0; t^.y:=10; if mx

Поделитесь этой записью или добавьте в закладки