#! /usr/bin/gawk -f
# Last edited on 2012-09-02 02:04:35 by stolfi
BEGIN{
  split(" 4526  4594  4779  5219  5308  5214  5197  5247  5491  5630  5779", mDR); /* Matr DR */
  split("  731   698   743   739   873   791   795   748   871   826   818", fDR); /* Formados DR */
  split(" 4661  4546  4563  5078  4941  4883  4797  4929  5280  5276  5322", mMS); /* Matr MS */
  split(" 1159  1194  1297  1200  1187  1150  1140  1141  1221  1245  1354", fMS); /* Formados MS */
  split("12476 13690 15001 16313 17275 17275 16984 16422 16777 17083 17650", mGR); /* Matr GR */
  split(" 1461  1598  1864  2089  2608  2688  2750  2662  2276  2269  2284", fGR); /* Formados GR */
  split("  556   613   658   756   829   913  1022  1231  1263  1474  1637", vIN); /* Custeio gov. */

  printf " %4s | %9s || %5s %5s %5s | %6s | %11s || %5s %5s %5s | %6s | %11s\n",\
         "Ano", "Verba", \
         "matGR", "matMS", "matDR", "matTOT", "C/A/A", \
         "forGR", "forMS", "forDR", "forTOT", "C/F";
  printf "------+-----------++-------------------+--------+-------------++-------------------+--------+-------------\n";
  fmt1 = " %4d | %5d MR$ || %5d %5d %5d | %6d | %8d R$ || %5d %5d %5d | %6d | %8d R$\n";
  fmt2 = " %4d %5d  %5d %5d %5d %6d %8d  %5d %5d %5d %6d %8d\n";
  for (i = 1; i <= 11; i++) {
    mTT = mGR[i] + mMS[i] + mDR[i];
    fTT = fGR[i] + fMS[i] + fDR[i];
    vAM = 1000000*vIN[i]/mTT;
    vAF = 1000000*vIN[i]/fTT;
    printf fmt1,\
           2000+i, vIN[i], \
           mGR[i], mMS[i], mDR[i], mTT, vAM, \
           fGR[i], fMS[i], fDR[i], fTT, vAF;
    printf fmt2,\
           2000+i, vIN[i], \
           mGR[i], mMS[i], mDR[i], mTT, vAM, \
           fGR[i], fMS[i], fDR[i], fTT, vAF > "custo-aluno-unicamp.tbl";
  }
}