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

do 101 i=1,210

do 91 j=1,101

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

u12 = u12+1

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

u12= u12+0.5

else

u12= u12+0.0

endif

91 continue

101 continue

u13=0

do 102 i=1,210

do 92 j=1,98

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

u13 = u13+1

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

u13= u13+0.5

else

u13= u13+0.0

endif

92 continue

102 continue

u14=0

do 103 i=1,210

do 93 j=1,45

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

u14 = u14+1

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