set fileContentList { {} { Indice de produtividade científica do INPE

[[ proc ComputeAnchorTag {searchExpression searchResult} { upvar localSite localSite upvar currentRep currentRep upvar language language if [[string equal 0 $searchResult]] { return $searchResult } else { regsub -all { } $searchExpression {+} searchExpression2 return "$searchResult" } } proc CreateDataSet {yearList unitList attribute} { set i 0 set data {} foreach year $yearList { set line $year foreach unit $unitList { global $attribute$unit lappend line [[lindex [[set $attribute$unit]] $i]] } lappend data $line incr i } return [[join $data \n]] } ]]

Fonte: Base de Dados da Biblioteca Digital da Memória Científica do INPE.

Atualize esta tabela (última atualização: [[clock format [[clock seconds]] -format "%d/%m/%Y às %H:%M"]]). [[ set x {} foreach year $yearList { lappend x " " } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach year $yearList { set searchExpression "y $year and dissemination websci and secondaryty p* and ([[lindex $CEA $i]])" set searchResult [[DisplayNumberOfEntries2 $searchExpression]] lappend NPSCICEA $searchResult lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach year $yearList { set searchExpression "y $year and dissemination websci and secondaryty p* and ([[lindex $CPTEC $i]])" set searchResult [[DisplayNumberOfEntries2 $searchExpression]] lappend NPSCICPTEC $searchResult lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach year $yearList { set searchExpression "y $year and dissemination websci and secondaryty p* and ([[lindex $CST $i]])" set searchResult [[DisplayNumberOfEntries2 $searchExpression]] lappend NPSCICST $searchResult lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach year $yearList { set searchExpression "y $year and dissemination websci and secondaryty p* and ([[lindex $CTE $i]])" set searchResult [[DisplayNumberOfEntries2 $searchExpression]] lappend NPSCICTE $searchResult lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach year $yearList { set searchExpression "y $year and dissemination websci and secondaryty p* and ([[lindex $OBT $i]])" set searchResult [[DisplayNumberOfEntries2 $searchExpression]] lappend NPSCIOBT $searchResult lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} foreach NPq $NPqCEA { lappend x " " } set x [[join $x \n]] ]] [[ set x {} foreach NPq $NPqCPTEC { lappend x " " } set x [[join $x \n]] ]] [[ set x {} foreach NPq $NPqCST { lappend x " " } set x [[join $x \n]] ]] [[ set x {} foreach NPq $NPqCTE { lappend x " " } set x [[join $x \n]] ]] [[ set x {} foreach NPq $NPqOBT { lappend x " " } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach NPSCI $NPSCICEA { set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCEA $i]].]]]] lappend IPCCEA $IPC lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach NPSCI $NPSCICPTEC { set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCPTEC $i]].]]]] lappend IPCCPTEC $IPC lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach NPSCI $NPSCICST { if {[[lindex $NPqCST $i]] == 0} { set IPC 0.0 } else { set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCST $i]].]]]] } lappend IPCCST $IPC lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach NPSCI $NPSCICTE { set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCTE $i]].]]]] lappend IPCCTE $IPC lappend x " " incr i } set x [[join $x \n]] ]] [[ set x {} set i 0 foreach NPSCI $NPSCIOBT { set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqOBT $i]].]]]] lappend IPCOBT $IPC lappend x " " incr i } set x [[join $x \n]] ]]
Índice / Indicador $year
NPSCI - CEA [[ComputeAnchorTag $searchExpression $searchResult]]
NPSCI - CPTEC [[ComputeAnchorTag $searchExpression $searchResult]]
NPSCI - CST [[ComputeAnchorTag $searchExpression $searchResult]]
NPSCI - CTE [[ComputeAnchorTag $searchExpression $searchResult]]
NPSCI - OBT [[ComputeAnchorTag $searchExpression $searchResult]]
NPq - CEA $NPq
NPq - CPTEC $NPq
NPq - CST $NPq
NPq - CTE $NPq
NPq - OBT $NPq
IPC - CEA $IPC
IPC - CPTEC $IPC
IPC - CST $IPC
IPC - CTE $IPC
IPC - OBT $IPC

Tabela gerada automaticamente pelo URLibService.

} {IPC.dat} {[[ CreateDataSet $yearList $unitList IPC ]]} {IPC.gle} { size 10.5 3.85 set font ss set join round set cap round set lwidth .01 begin graph scale .7 .8 title "\\'Indice de Produtividade Cient\\'ifica" hei .2 data "IPC.dat" d1 line color blue lwidth 0.03 d2 line color orange lwidth 0.03 d3 line color magenta lwidth 0.03 d4 line color green lwidth 0.03 d5 line color red lwidth 0.03 xaxis dticks 1. hei .18 grid yaxis nticks 5 hei .18 min 0 max 3 grid xticks lwidth .005 yticks lwidth .005 end graph begin key position tr offset -0.05 0 nobox text "IPC - CEA" line color blue lwidth 0.03 hei .14 dist .2 text "IPC - CPTEC" line color orange lwidth 0.03 hei .14 dist .2 text "IPC - CST" line color magenta lwidth 0.03 hei .14 dist .2 text "IPC - CTE" line color green lwidth 0.03 hei .14 dist .2 text "IPC - OBT" line color red lwidth 0.03 hei .14 dist .2 end key } {NPSCI.dat} {[[ CreateDataSet $yearList $unitList NPSCI ]]} {NPSCI.gle} { size 10.5 3.85 set font ss set join round set cap round set lwidth .01 begin graph scale .7 .8 title "Artigos indexados no SCI" hei .2 data "NPSCI.dat" d1 line color blue lwidth 0.03 d2 line color orange lwidth 0.03 d3 line color magenta lwidth 0.03 d4 line color green lwidth 0.03 d5 line color red lwidth 0.03 xaxis dticks 1. hei .18 grid yaxis nticks 5 hei .18 min 0 max 130 grid xticks lwidth .005 yticks lwidth .005 end graph begin key position tr offset -0.05 0 nobox text "NPSCI - CEA" line color blue lwidth 0.03 hei .14 dist .2 text "NPSCI - CPTEC" line color orange lwidth 0.03 hei .14 dist .2 text "NPSCI - CST" line color magenta lwidth 0.03 hei .14 dist .2 text "NPSCI - CTE" line color green lwidth 0.03 hei .14 dist .2 text "NPSCI - OBT" line color red lwidth 0.03 hei .14 dist .2 end key } {NPq.dat} {[[ CreateDataSet $yearList $unitList NPq ]]} {NPq.gle} { size 10.5 3.85 set font ss set join round set cap round set lwidth .01 begin graph scale .7 .8 title "N\\'umero de Pesquisadores" hei .2 data "NPq.dat" d1 line color blue lwidth 0.03 d2 line color orange lwidth 0.03 d3 line color magenta lwidth 0.03 d4 line color green lwidth 0.03 d5 line color red lwidth 0.03 xaxis dticks 1. hei .18 grid yaxis nticks 5 hei .18 min 0 max 60 grid xticks lwidth .005 yticks lwidth .005 end graph begin key position tr offset -0.05 0 nobox text "NPq - CEA" line color blue lwidth 0.03 hei .14 dist .2 text "NPq - CPTEC" line color orange lwidth 0.03 hei .14 dist .2 text "NPq - CST" line color magenta lwidth 0.03 hei .14 dist .2 text "NPq - CTE" line color green lwidth 0.03 hei .14 dist .2 text "NPq - OBT" line color red lwidth 0.03 hei .14 dist .2 end key } }