Нейтрофилы

Страница: 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 (30736 прочтено)