1 Introdução

Concepção de um modelo que respeite o organograma da universidade, com a distribuição sendo realizada primeiro ao nível dos centros e depois, dentro de cada centro, aos departamentos.

Como a maioria dos indicadores está computada para os cursos de graduação, e estes estão alojados em centros, este modelo permite que as variáveis sejam agregadas por centro.

Pontos importantes:

Alocação centro-departamento vigente. Para CCM, CIn e CCJ, todo o valor vai para o centro.
As variáveis consideradas na primeira etapa (rateio do valor entre os centros) são: Aluno equivalente na graduação, pós-graduação e residência, área construída, taxa de sucesso da graduação e indicadores de qualidade da graduação e pós agrupados por centro (média). Não foram atribuídos pesos a estas variáveis, mas é possível implementar. Após determinar o montante direcionado ao centro, ocorre a divisão (ver item 1) entre os recursos destinados ao centro e aos departamentos;
Variáveis consideradas na segunda etapa (distribuição aos departamentos): esforço docente (apenas docentes efetivos) na graduação, pós-graduação e residência, produção biliográfica por docente, índice de qualificação docente e quantidade de atividades de extensão.

Todas as variáveis são padronizadas e é computado um índice representando o percentual do valor alocado aos departamentos dentro do centro.

2 Alocação por Centro

O primeiro passo é realizar a alocação por centro. A divisão dos recursos é feita pela seguinte fórmula:

\[Alocacao_i = ORC \times IF_i\] em que:

$Alocacao_i$ é o valor alocado ao Centro $i$;
$ORC$ é o montante do orçamento a ser distribuído e
$IF_i$ é o Índice Final, correspondente ao percentual do Centro $i$ no rateio do orçamento. Este índice é calculado como:

\[IF_i = \frac{AE_I + Area_i + TSG_i + IAVALG_i + IAVAPG_i}{5}\]

em que:

$AE_i$ é o total de alunos equivalente do centro $i$, consistindo na soma de: $IAEG_i$, o número de alunos equivalente de graduação padronizado do centro $i$; $IAEPG_i$, o número de alunos de pós-graduação stricto sensu padronizado do centro $i$ e $AE_{RES}$, o número de alunos equivalente da residência;
$Area_i$ é a área construída padronizada do centro $i$;
$TSG_i$ é a Taxa Média de Sucesso na Graduação do centro $i$;
$IAVALG_i$ é a avaliação média da graduação padronizada do centro $i$;
$IAVAPG_i$ é a avaliação média da pós-graduação stricto sensu padronizada do centro $i$;

Nota 1: os centros CCEN, CE e CB ofertam disciplinas das áreas comuns de cursos pertencentes a outros centros, por isso, seu valor do aluno equivalente de graduação foi majorado em $50\%$ .

Nota 2: os centros que possuem Taxa de Sucesso na Graduação acima da média ganham bonificação de $20\%$, limitado a $100\%$.

2.1 Regra de Transição

Durante a transição do modelo vigente para o modelo 2, pode haver mudança abrupta na alocação de recursos, com grandes ganhos ou perdas em determinados departamentos.

Para suavizar este problema, computamos o Índice final como a média ponderada do Índice Final do modelo 2 e o percentual do total alocado ao centro no modelo vigente para o ano anterior (2024):

\[ IF\_transição_i = (1-\lambda) IF_i + \lambda Percentual\_Centros\_2024_i \\ \lambda \in [0,1] \] em que

$IF\_transição_i$ é o índice final do centro $i$, considerando a transição entre os modelos;
$IF_i$ é o Índice Final obtido pelo modelo 2;
$Percentual\_Centros\_2024_i$ é o percentual de recursos destinado ao centro e seus departamentos no ano anterior;
$\lambda$ é o coeficiente de transição, (quanto mais próximo de 1, maior o peso da alocação do ano anterior).

Nesta simulação, fixamos $\lambda = 0.5$ e $ORC = R\$ 4000000$.

Considerando a transição, temos:

\[Alocacao_i = ORC \times IF\_transição_i\]

Finalmente, temos a divisão de $Alocacao_i$ entre o Centro e seus Departamentos:

\[ Alocacao\_Centro_{i} = Alocacao_i \times Cota\_Centro_{i} \\ Alocacao\_Deptos_{i} = Alocacao_i \times Cota\_Deptos_{i} \] onde $Cota\_Centro_{i} + Cota\_Deptos_{i} = 1$.

# Proposta de modelo 2: Modaloc "organico" ou "top down"

library(readxl)
library(openxlsx)
library(dplyr)
library(magrittr)
library(DT)
library(formattable)

# configuracao atual: 
# COM TSG
# !!verificar nome do arquivo no output!!
valor_orcamento = 4000000
coeficiente_transicao = 0.5 # percentual do modelo vigente na mistura
bonus_AE_CCEN_CB_CE = 0.5  # bonus de 50 porcento no Aluno Equivalente de Grad para CCEN, CB e CE
bonus_TSG = 0.2  # bonus 20 porcento para quem tem TSG acima da media
cota_centro = 1/2 # divisao centro-depto 


# centros -----------------------------------------------------------------

source("./alocacao_centros.R")

alocacao_por_centro %>%
  select(
    Centro, 
    `Média AVAL Grad`,
    `Média AVAL Pós`,
    aval_grad_padronizada, 
    aval_pos_padronizada, 
    area_m2,
    area_m2_padronizada,
    `Média Taxa de Sucesso`,
    TSG_BONIFICADO,
    TSG_padronizado,
    AEG_CENTRO, 
    Alunos_POS, 
    AE_RES,
    AE_TOTAL,
    AE_TOTAL_padronizado,
    IF, 
    alocacao_total, 
    COTA_CENTRO, 
    COTA_DEPTOS, 
    alocacao_centro, 
    alocacao_deptos_total
  ) %>%
  datatable(
    style = "default",
    rownames = FALSE,
    options = list(
      pageLength = 25,
      scrollX = TRUE,
      columnDefs = list(list(className = 'dt-center', targets = "_all"))
    )
  ) %>%
  formatStyle('Centro', backgroundColor = 'lightyellow') %>%
  formatStyle(
    'alocacao_centro',
    background = styleColorBar(range(alocacao_por_centro$alocacao_centro), 'lightgreen'),
    backgroundSize = '98% 88%',
    backgroundRepeat = 'no-repeat',
    backgroundPosition = 'center'
  ) %>%
  formatStyle(
    'alocacao_total',
    background = styleColorBar(range(alocacao_por_centro$alocacao_total), 'lightgreen'),
    backgroundSize = '98% 88%',
    backgroundRepeat = 'no-repeat',
    backgroundPosition = 'center'
  ) %>%
  formatPercentage(
    c(
      "aval_grad_padronizada", "aval_pos_padronizada", 
      "AE_TOTAL_padronizado", "IF",
      "COTA_CENTRO", "COTA_DEPTOS"
    ),
    digits = 3
  ) %>%
  formatCurrency(
    columns = c("alocacao_total", "alocacao_centro", "alocacao_deptos_total"),
    currency = "R$",
    digits = 2
  ) %>% formatRound(
    columns = c(
      "Média AVAL Grad",
      "Média AVAL Pós",
      "area_m2",
      "area_m2_padronizada",
      "Média Taxa de Sucesso",
      "TSG_BONIFICADO",
      "TSG_padronizado",
      "AEG_CENTRO",
      "Alunos_POS",
      "AE_RES",
      "AE_TOTAL"
    ),
    digits = 3
)

3 Alocação por Departamento

Considerando o departamento $j$ dentro do centro $i$, temos

\[Alocacao_{ij} = IF_{ij} \times Alocacao\_Deptos_{i}\] em que:

$Alocacao_{ij}$ é o valor alocado ao departamento $j$ pertencente ao centro $i$;
$IF_{ij}$ é o Índice Final, correspondente ao percentual do departamento j no rateio do orçamento destinado aos departamentos do Centro $i$.

Neste caso, o Índice Final dos departamentos é calculado da seguinte maneira:

\[ IF_{ij} = \frac{IESF\_DOC_{ij} + IESF\_DOC\_POS_{ij} + IQCD_{ij}+ IPROD\_DOC_{ij} + IEXT_{ij}}{5} \] em que

$IESF\_DOC_{ij}$ éo Esforço Docente do departamento $j$ pertencente ao Centro $i$ padronizado*;
$IESF\_DOC\_POS_{ij}$ éo Esforço Docente na Pós-Graduação Stricto Sensu e residência** do departamento $j$ pertencente ao Centro $i$ padronizado;
$IQCD_{ij}$ é a média do Índice de Qualificação do Corpo Docente do Centro $i$ padronizado;
$IPROD\_DOC_{ij}$ é a produção bibliográfica por docente do departamento $j$, pertencente ao centro $i$, padronizado e
$IEXT_{ij}$*** é a quantidade de atividades de extensão do departamento $j$, pertencente ao centro $i$, padronizado.

* As padronizações são realizadas dentro do Centro.

** Residência ainda não inclusa nesta simulação, pois os dados não estão no SIGAA.

*** Dados não incluídos nesta simulação;

# departamentos -----------------------------------------------------------

source("./alocacao_deptos.R")


alocacao_deptos_final %>%
  arrange(desc(alocacao_depto)) %>%
  select(
     Centro,
     Departamento,
     ESFORCO_DOCENTE_DEPTO,
     ESFORCO_DOCENTE_DEPTO_PADRONIZADO,
     ESFORCO_DOCENTE_DEPTO_POS,             
     ESFORCO_DOCENTE_DEPTO_PADRONIZADO_POS,
     QDC,                                   
     IQCD_PADRONIZADO,                     
     producao,
     total_docentes,
     producao_por_docente,
     producao_por_docente_PADRONIZADO,
     IF_DEPTO_CENTRO,
     alocacao_deptos_total,
     alocacao_depto                       
  ) %>%
  rename(
    "Esforço Docentes Departamento Padronizado" = ESFORCO_DOCENTE_DEPTO_PADRONIZADO,
    "Esforço Docentes Departamento Pós" = ESFORCO_DOCENTE_DEPTO_PADRONIZADO_POS,
    "IQCD Padronizado" = IQCD_PADRONIZADO,
    "Produção por Docente Padronizado" = producao_por_docente_PADRONIZADO,
    "IF Departamento Centro" = IF_DEPTO_CENTRO,
    "Alocação Total Departamento" = alocacao_deptos_total,
    "Alocação Departamento" = alocacao_depto
  ) %>%
  datatable(
    rownames = FALSE,
    extensions = c("FixedColumns"),   # FixedHeader e Scroller removidos
    options = list(
      pageLength = 25,
      scrollX = TRUE,
      columnDefs = list(list(className = 'dt-center', targets = "_all")),
      fixedColumns = list(leftColumns = 2)
    )
  ) %>%
  formatStyle('Centro', backgroundColor = 'lightyellow') %>%
  formatStyle('Departamento', backgroundColor = 'lightyellow') %>%
  formatStyle(
    'Alocação Departamento',
    background = styleColorBar(range(alocacao_deptos_final$alocacao_depto), 'lightgreen'),
    backgroundSize = '98% 88%',
    backgroundRepeat = 'no-repeat',
    backgroundPosition = 'center'
  ) %>%
  formatPercentage(
    c(
      "Esforço Docentes Departamento Padronizado",
      "Esforço Docentes Departamento Pós",
      "IQCD Padronizado",
      "Produção por Docente Padronizado",
      "IF Departamento Centro"
    ),
    digits = 3
  ) %>%
  formatCurrency(
    columns = c("Alocação Total Departamento", "Alocação Departamento"),
    currency = "R$",
    digits = 2
  )

Modelo 2 - Orgânico - Modaloc

CIG - DEPLAG - UFPE

19 de novembro de 2025

1 Introdução

2 Alocação por Centro

2.1 Regra de Transição

3 Alocação por Departamento