[[
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"]]).
Índice / Indicador |
[[
set x {}
foreach year $yearList {
lappend x "
$year |
"
}
set x [[join $x \n]]
]]
NPSCI - CEA |
[[
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 "
[[ComputeAnchorTag $searchExpression $searchResult]] |
"
incr i
}
set x [[join $x \n]]
]]
NPSCI - CPTEC |
[[
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 "
[[ComputeAnchorTag $searchExpression $searchResult]] |
"
incr i
}
set x [[join $x \n]]
]]
NPSCI - CST |
[[
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 "
[[ComputeAnchorTag $searchExpression $searchResult]] |
"
incr i
}
set x [[join $x \n]]
]]
NPSCI - CTE |
[[
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 "
[[ComputeAnchorTag $searchExpression $searchResult]] |
"
incr i
}
set x [[join $x \n]]
]]
NPSCI - OBT |
[[
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 "
[[ComputeAnchorTag $searchExpression $searchResult]] |
"
incr i
}
set x [[join $x \n]]
]]
NPq - CEA |
[[
set x {}
foreach NPq $NPqCEA {
lappend x "
$NPq |
"
}
set x [[join $x \n]]
]]
NPq - CPTEC |
[[
set x {}
foreach NPq $NPqCPTEC {
lappend x "
$NPq |
"
}
set x [[join $x \n]]
]]
NPq - CST |
[[
set x {}
foreach NPq $NPqCST {
lappend x "
$NPq |
"
}
set x [[join $x \n]]
]]
NPq - CTE |
[[
set x {}
foreach NPq $NPqCTE {
lappend x "
$NPq |
"
}
set x [[join $x \n]]
]]
NPq - OBT |
[[
set x {}
foreach NPq $NPqOBT {
lappend x "
$NPq |
"
}
set x [[join $x \n]]
]]
IPC - CEA |
[[
set x {}
set i 0
foreach NPSCI $NPSCICEA {
set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCEA $i]].]]]]
lappend IPCCEA $IPC
lappend x "
$IPC |
"
incr i
}
set x [[join $x \n]]
]]
IPC - CPTEC |
[[
set x {}
set i 0
foreach NPSCI $NPSCICPTEC {
set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCPTEC $i]].]]]]
lappend IPCCPTEC $IPC
lappend x "
$IPC |
"
incr i
}
set x [[join $x \n]]
]]
IPC - CST |
[[
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 "
$IPC |
"
incr i
}
set x [[join $x \n]]
]]
IPC - CTE |
[[
set x {}
set i 0
foreach NPSCI $NPSCICTE {
set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqCTE $i]].]]]]
lappend IPCCTE $IPC
lappend x "
$IPC |
"
incr i
}
set x [[join $x \n]]
]]
IPC - OBT |
[[
set x {}
set i 0
foreach NPSCI $NPSCIOBT {
set IPC [[format %.2f [[expr $NPSCI / [[lindex $NPqOBT $i]].]]]]
lappend IPCOBT $IPC
lappend x "
$IPC |
"
incr i
}
set x [[join $x \n]]
]]
|
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
}
}