就職内定率についての数学的試論【7-4】

　　　　　　'各求職者の採用数を示す列にカウント
　　　　　　c_ct = 0
　　　　　　For j = 1 To m
　　　　　　　　If mtrx(j, i) = 1 Then
　　　　　　　　　　c_ct = c_ct + 1
　　　　　　　　　　For ii = 1 To b
　　　　　　　　　　　　If c_ct = b_set(ii) Then
　　　　　　　　　　　　　　get_ck(j) = get_ck(j) + 1

　　　　　　　　　　　　　　'選ばれた応募者を、行列上に「2」としてチェック
　　　　　　　　　　　　　　mtrx(j, i) = 2
　　　　　　　　　　　　End If
　　　　　　　　　　Next
　　　　　　　　End If
　　　　　　Next
　　　　End If
　　Next

　　'最終的に、採用ゼロとなった人数を数え、
　　zero_ct = 0
　　For i = 1 To m
　　　　If get_ck(i) = 0 Then zero_ct = zero_ct + 1
　　Next

　　'その累計を求める
　　zero_sum = zero_sum + zero_ct
　　Next


［【7-5】へ続く］