Курсовая работа: Анализ зависимости между уровня комплемента в крови больных системной красной волчанкой и степен

do 106 i=1,101

do 96 j=1,45

if (a2(i)<a4(j)) then

u24 = u24+1

elseif (a2(i).eq.a4(j)) then

u24= u24+0.5

else

u24= u24+0.0

endif

96 continue

106 continue

u25=0

do 107 i=1,101

do 97 j=1,25

if (a2(i)<a5(j)) then

u25 = u25+1

elseif (a2(i).eq.a5(j)) then

u25= u25+0.5

else

u25= u25+0.0

endif

97 continue

107 continue

u34=0

do 108 i=1,98

do 98 j=1,45

if (a3(i)<a4(j)) then

u34 = u34+1

elseif (a3(i).eq.a4(j)) then