Страница: 7/9
Quie P. G., Mills E. L., McPhail L. C., Johnston R. B. Phagocytic Defects Springer Semin. Immunopathol 1978, v. 1, 323-337.
Repo H. Defects in fagocytic functions. Annals of Clinical
Research. 1987, v.19, 263-279.
Senda N., Tamura H., Shibata N. The mechanism of the movement of leucocytes. Exp. Cell Res., 1975, v.91, N2, 393-407.
Snyderman R., Goetzl E. J. Molecular and cellular mechnisms of leukocyte chemotaxis. Scince 1981, v.213, 830-837.
Springer T. A. Adhesion receptors of the immune system. Nature, 1990, v 346, 425-434.
Stossel T.P. On the crawling of animal cells. Science 1993, v.260, 1086-1094.
Адо А.Д. Патофизиология фагоцитов. 1961.
Васильев Ю.М., Гельфанд И.М. Движение и морфогенетические реакции тканевых клеток в культуре. В сб. Движ.нем.кл.1977г.
Галкин А.А. и соавт. 1994
Красовская И.Е. Сократительные белки немышечных клеток . I. Актино- и миозиноподобные белки. в сб. Движение немышечных клеток и их компонентов. 1977г.
Маянский А.Н., Маянский Д.Н. 1989г.
Нерсесова Л.С. Движение немышечных клеток и их компонентов., Ленинград, «Наука» 1977г.
Туманов Е.А. и соавт. Бюлл. Эксп. Биол. Мед. 1990, N6, 594-597.
Приложение
Текст программы математического моделирования случайного блуждания популяции нейтровилов
program neutro;
uses dos, crt, graph;
const
uparrow = #72;
leftarrow = #75;
rightarrow = #77;
downarrow = #80;
type
gr_descriptor = record
x_0,y_0 : word;
X_len,y_len : word;
X_scale, Y_scale : real;
end;
prob_mov = record
max_step : real;
cell_name : string;
step, manual : array[0..10] of real;
cent, cummulate : array[0..10] of word;
end;
scr_mod = (name_edit, arg_edit, fun_edit, diag_edit);
cell_typ = (slow, mean, fast);
par_typ = (g_shift, l_shift, angle);
scr_adr=record
x : integer;
y : integer;
end;
cell_descriptor = record
speed : cell_typ;
x, y, angle : array[1..100] of real;
end;
var
cell : array[1..30] of cell_descriptor;
step_distri : array[g_shift..angle] of prob_mov;
max_shift : array[1..30] of real;
start_x, start_y, counter : integer;
graph_scale : gr_descriptor;
key : char;
N_line, N_pix_inline : integer;
graph_X, graph_Y : array[slow..fast] of integer;
marker_place : array[arg_edit..diag_edit, 1..11] of scr_adr;
name_place, cell_place : scr_adr;
step_len, step_ang, current_x, current_y, current_a : real;
choose_cell : cell_typ;
sign : integer;
procedure draw_axis;
var
i, j : word;
bintext : string;
begin
with graph_scale do
begin
x_0:=round(N_pix_inline/40);
y_0:=round(N_line/40);
X_len:=round(N_pix_InLine-2*x_0);
Y_len:=round(N_line-2*y_0);
setlinestyle(0,0,1);
rectangle(x_0,Y_0,x_0+X_len,Y_0+Y_len);
end;
end;
procedure opengraph;
var
grdriver, grmode : integer;
begin
detectgraph(grdriver,grmode);
initgraph(grdriver,grmode,'');
N_line:=getmaxY;
N_pix_inline:=getmaxX;
start_x:=n_pix_inline div 2;
start_y:=n_line div 2;
SetBkColor(Black);
SetColor(LightRed);
cleardevice;
draw_axis;
end;
procedure readscreen(fname : string; Tcl,Tbg : word);
var
x, y, j, txt_b, txt_c : word;
i : array [arg_edit..diag_edit] of word;
a : char;
d : text;
begin
assign(d,fname);
reset(d);
txt_b:=Black;
TextBackground(txt_b);
clrscr;
y:=0;
i[arg_edit]:=0; i[fun_edit]:=0; i[diag_edit]:=0;
repeat
y:=y+1; x:=0;
repeat
x:=x+1;
read(d,a);
case a of
'.' : begin
if txt_b=Black then txt_b:=Tbg else txt_b:=Black;
txt_c:=Tcl;
textbackground(txt_b);
textcolor(txt_c);
WRITE(' ');
end;
'*' : begin
name_place.x:=x;
name_place.y:=y;
write(' ');
end;
'$' : begin
cell_place.x:=x;
cell_place.y:=y;
write(' ');
end;
'#' : begin
write(' ');
i[arg_edit]:=i[arg_edit]+1;
marker_place[arg_edit,i[arg_edit]].x:=x;
marker_place[arg_edit,i[arg_edit]].y:=y;
end;
'~' : begin
write(' ');
i[fun_edit]:=i[fun_edit]+1;
marker_place[fun_edit,i[fun_edit]].x:=x;
marker_place[fun_edit,i[fun_edit]].y:=y;
end;
'!' : begin
write(' ');
i[diag_edit]:=i[diag_edit]+1;
marker_place[diag_edit,i[diag_edit]].x:=x;
marker_place[diag_edit,i[diag_edit]].y:=y;
end;
else
write(a);
end;
until eoln(d);
readln(d); writeln;
until eof(d);
close(d);
end;
procedure readreal(var value : real; a : char; len : word; ad : scr_adr);
var LI : array[1..10] of char;
x,y,old : integer;
st : string;
begin
write(' ':len);
gotoXY(ad.x,ad.y);
LI[1]:=a; write(a); y:=2;
if a<>#13 then
repeat
a:=readkey;
if a=',' then a:='.';
if ((a='O') or (a='o')) then a:='0';
if ((a>='0') and (a<='9')) or (a='.')
then begin LI[y]:=a; write(a); y:=y+1 end;
if a=#8 then
begin y:=y-1;
gotoXY(ad.x+y-1,ad.y);
write(' ');
gotoXY(ad.x+y-1,ad.y);
end;
until a=#13;
st:=LI[1];
for x:=2 to y-1 do st:=concat(st,LI[x]);
val(st,value,old);
end;
Реферат опубликован: 23/05/2005 (31475 прочтено)