Home

CELPASIM 2.0 Manual do Utilizador

1. Aplicar Cancelar DK Figura 3 4 Interface de defini o de n veis de procura 3 5 reas novas As reas novas s o definidas pelo utilizador antes de se iniciar a simula o podendo ser escolhida a rea para cada regi o e ano semelhan a do caso anterior poss vel manipular os valores das c lulas de uma forma semi autom tica bastando para isso escrever um valor comum na caixa correspondente e pressionar o bot o Aplicar Os mecanismos de edi o manual da tabela s o os mesmo descritos no ponto anterior As reas novas s o atribu das de acordo com a propor o de rea com eucalipto correspondente a cada concelho para a respectiva regi o Por exemplo supondo que a regi o R tem 3 concelhos apenas X Y e Z todos com a mesma rea A quantidade de eucalipto presente em cada um deles que diferente correspondendo no concelho X a 20 do total de eucalipto presente na Regi o R para Y 50 tendo Z cerca de 30 Supondo uma floresta o anual de 500 ha o concelho X receber mais 100 ha Y 250 hae Z 150 ha CELPASIM 2 0 Manual do Utilizador DRAFT CELPASIM V Par metros de Silvicultura x Novas reas NORTE LITOH INTERIOR CENTRO NOH CENTRO SUL SUL 100 Aplicar D comum Par metros N rvores planta o Figura 3 5 Introdu o de reas novas Neste interface poss vel ainda ter acesso a dois outros formul rios um relativo inicializa o
2. Dim st As Stand Dim res As Result For s 1 To NStands st Stands s res Resultados year Concelhos st concelho If st harvested True And st rot gt 4 And PROB ABANDONO gt 0 Then LP TELP LP HStands year area aband HStands year area_aband st area PROB ABANDONO res area aband res area aband st area PROB ABANDONO st area st area 1 PROB ABANDONO End If Resultados year Concelhos st concelho res Next End Sub Public Sub RunSimulation years As Long the very basic and simple routine that coordinates everything Dim y As Long i As Long s As Long st As Stand c As Long Dim res As Result atot As Single Open teste csv For Output As 410 Open SIM PATH amp sim_detalhe csv For Output As 113 Print 113 ano stand id concelho regiao iqe area rot idade narvs hd ab vol sc For y 1 To years 2 0 Manual do Utilizador DRAFT Call Grow Call BurnForest y Call QSort 1 NStands Call CalcStock y Call Harvest y Call Reconverte y Call Abandon y Call AddNewAreas y If HStands y area cort gt 0 Then HStands y idade med corte HStands y idade med corte f HStands y area cort End If For s 1 To NStands Write 4113 y Stands s id Stands s concelho Stands s region Stands s iqe Stands s area Stands s rot Stands s age CInt Stands s narvs Stands s hd Stands s ba Stands s vol sc Next Debug Print Y HStands y vol sc HStands y
3. Line Input 1 s get the header While Not EOF 1 Input 1 conc reg prop Regions reg NCONCELHOS Regions reg NCONCELHOS 1 ReDim Preserve Regions reg Concelhos Regions reg NCONCELHOS ReDim Preserve Regions reg prop area Regions reg NCONCELHOS Regions reg Concelhos Regions reg NCONCELHOS conc Regions reg prop area Regions reg NCONCELHOS prop If conc gt max_conc Then max conc conc Wend Close 1 actualizar a tabela dos concelhos NCONCELHOS max conc ReDim BurntConcelhos NCONCELHOS Call actualiza results For reg 1 To NREGIONS For c 1 To Regions reg NCONCELHOS conc Regions reg Concelhos c BurntConcelhos conc regiao reg Next Next End Sub CELPASIM Manual do Utilizador DRAFT 2 0 Public Sub read conc codes 1 os c digos de concelho aten o que a BD deve ligar aos CODs e n o aos IDs com est neste momento II Dim s As String Dim id As Long cod As Long nome As String reg glob As Long Open App Path amp concelhos csv For Input As 1 Line Input 1 s ReDim ConcCodes 1 While Not EOF 1 Input 1 id nome cod reg glob ReDim Preserve ConcCodes id ConcCodes id nome nome ConcCodes id cod cod ConcCodes id reg glob reg glob Wend NConcCodes id Close 1 End Sub Public Sub read rankings Dim reg As Long r As Long rank As Single Dim idade As Long dqm As Single s As String Open r regiao csv For Input As 1
4. Line Input 41 s For r 1 To NREGIONS Input 1 reg rank RankRegiao reg rank ext Close 41 Open r idade csv For Input As 41 Line Input 41 s While Not EOF 1 Input 1 idade rank RankIdade nclasses RankIdade nclasses 1 ReDim Preserve RankIdade maxclass RankIdade nclasses ReDim Preserve RankIdade valor RankIdade nclasses RankIdade maxclass RankIdade nclasses idade RankIdade valor RankIdade nclasses rank Wend Close 1 Open r_dqm csv For Input As 1 Line Input 1 s While Not EOF 1 Input 1 dqm rank RankDOM nclasses RankDQM nclasses 1 ReDim Preserve RankDQM maxclass RankDOM nclasses ReDim Preserve RankDQM valor RankDQM nclasses RankDOM maxclass RankDQM nclasses dam RankDOM valor RankDOM nclasses rank Wend Close 1 End Sub Public Sub actualiza results Dim y As Long For y 1 To NYEARS ReDim Resultados y Concelhos NCONCELHOS Next End Sub Public Sub write results Dim y As Long c As Long s As Long Dim res As Result st As Stand Open SIM PATH amp geral csv For Output As 1 Open SIM PATH amp concelhos csv For Output As 2 Open SIM PATH amp areas_cort csv For Output As 43 Open SIM PATH amp fogos csv For Output As 4 CELPASIM Manual do Utilizador DRAFT Open SIM PATH amp areas_novas csv For Output As 5 Print 41 Ano VolCort Stock ArTot ArReconv ArAband ArArd VolArd ArNova ArCort NCorts IdMed IdMedCort Print 2
5. age gt 0 Then HStands year area em pe HStands year area em pe Stands s area HStands year idade med HStands year idade med Stands s area Stands s age Resultados year Concelhos Stands s concelho area em pe Resultados year Concelhos Stands s concelho area em pe Stands s area Resultados year Concelhos Stands s concelho idade med Resultados year Concelhos Stands s concelho idade med Stands s area ka Stands s age End If Next e agora sim calcular a verdadeira idade m dia For c 1 To NCONCELHOS If Resultados year Concelhos c area em pe gt 0 Then Resultados year Concelhos c idade med Resultados year Concelhos c idade med Resultados year Concelhos c area em pe End If e a idade m dia de corte If Resultados year Concelhos c area cort gt 0 Then Resultados year Concelhos c idade med cort Resultados year Concelhos c idade med cort Resultados year Concelhos c area cort End If Next If HStands year area em pe gt 0 Then HStands year idade med HStands year idade med HStands year area em pe End If If HStands year area cort gt 0 Then k HStands year idade med corte HStands year idade med corte HStands year area cort End If End Sub Public Sub Abandon year As Long abandon happens when the rotation is larger than 4 and is performed by reducing the area of the stand Dim s As Long
6. lidos directamente por qualquer folha de c lculo como o Microsoft Excel contudo dado ao utilizador a possibilidade de analisar um resultado executivo com os principais resultados da simula o numa tabela apresentada depois do o programa executar uma simula o Figura 5 1 Os volumes aparecem em milhares 3 de m e as reas em ha E Resultados em Tabela E Vols 10 3 m3 reas ha 2005 50000 325534 2006 5000 0 30846 5 2007 5000 0 29573 8 2008 5000 0 28934 4 2009 5000 0 28955 5 2010 5000 0 297 76 3 2011 5000 0 31150 3 2012 5000 0 32962 2 2013 5000 0 34826 3 2014 5000 0 36828 2 2015 5000 0 38838 5 2016 5000 0 41060 9 2017 5000 0 43297 8 2018 5000 0 45543 7 2019 5000 0 47800 5 Figura 5 1 Resultados da simula o apresentados pelo programa CELPASIM Manual do Utilizador DRAFT 536384 30 594185 70 589155 30 583967 40 579670 40 576587 20 570330 80 566208 10 558301 80 558844 80 556300 30 556465 40 555853 80 553308 70 552215 80 1232 59 1754 40 1790 15 1583 23 1276 67 1909 71 1697 59 2285 16 594 41 1175 06 543 11 722 13 1177 43 836 77 624 20 29850 37 29585 01 29208 45 28824 18 28484 12 28210 00 27800 14 27435 87 26945 70 26817 71 26565 45 26448 75 26293 46 26040 75 25861 14 49255 08 54129 89 58737 09 65852 07 34788 00 54964 38 48323 53 47893 41 34136 72 39292 37 31796 67 32976 36 35893 86 31058 64 27793 48 82 92 104 124 65 117 117 127 150 18
7. 0 0122 r 1 0 248 fe rot gt 1 0 1348 fe r 1 0 0039 r 1 rot gt 1 calc voltot lin kve stage a T cst hd b 4 st ba c End If End Function Public Function calc volctsc lin st As Stand vol com toiga sem casca Dim a As Single b As Single c As Single fe As Single kvs As Single Dim rot As Long r As Long If st age known False Then a 0 3625 b 0 9885 c 0 9879 calc_volctsc_lin a st hd b st ba c Else a 0 0592 b 0 09349 c 1 0077 rot st rot r ConcCodes st concelho reg_glob fe 100 st iqe Sqr st narvs plant kvs 0 3724 0 0384 rot gt 1 0 0162 r 1 0 2119 fe rot gt 1 0 1497 fe r 1 01 00 32 irri qe rot gt 19 calc volctsc lin kvs st age a st hd b st ba c End If End Function Public Function calc volstcc lin hdom As Single ab As Single rot As Long vol sem toiga com casca Dim a As Single al As Single b As Single c As Single a 0 4602 al 0 0012 b 0 9796 c 0 975 calc_volstcc_lin a al rot hdom b ab c End Function Public Function calc volstsc lin st As Stand hdom As Single ab As Single rot As Long As Single vol sem toiga sem casca Dim a As Single al As Single b As Single c As Single rota As Long Dim fe As Single kvf As Single kv0 As Single kv As Single Dim r As Long If rot 1 Then rota 1 Else rota 0 If st age known False Th
8. 1 r 7 0 0159 rot 5 _ 0 0311 5 0408525 N 1 eo o S oh Gr DD c Goto 1 0 005 st iqe 10 rot gt 1 If st rot 1 Then calc narvs n st narvs plant Exp am st age Else calc narvs n st narvs plant NVARAS TOICA Exp am st age 3 End If End If End Function Public Function calc narvs nM5 lin narvs2 As Single ab2 As Single id2 As Single CELPASIM Manual do Utilizador DRAFT 2 0 calcula o n mero de rvores maiores que 5 cm Dim a As Single b As Single c As Single a 10 52037 b 0 85492 c 6 00689 calc narvs nM5 lin a b narvs2 c ab2 End Function Public Function calc narvs nM5 narvs2 As Single hdom2 As Single calcula o n mero de rvores maiores que 5 cm Dim a As Single b As Single c As Single a 1 5163 b 0 1075 c 1 6f calc narvs nM5 narvs2 1 Exp a b hdom2 c End Function Public Function calc hdom st As Stand abl As Single hdl As Single Dim a As Single k As Single n As Single r As Long O k tem de ser calculado antes Se for negativo corre o globulus patch de 9 6 05 k 3 0839 0 1142 abl 0 1202 hdl If st age known False And k 0 Then a 84 2463 n 0 4057 calc hdom a Exp k k Log hdl a 1 n 1 n Exit Function Else If st age 0 Then calc hdom 0 Exit Function End If a 61 1372 r ConcCodes st concelho reg glob Select Case r Case 1 2 f
9. 3 2 Estima o da altura dominante eese ET NHE E nennen 15 4 3 3 Estima o do vole aaaeei a a A eene nene enhn sene E innere tenens en nennen nens 15 5 APRESENTA O DE RESULTADOS eere tn notatae tnt atat at tasa tasa estt asas ass sasnea 16 3 1 RESULTADOS NO ECRA ee iier pH ae EH te Le ERR de ER HE APT HT 16 5 2 RESULTADOS EM HIG RETRO ete e E estada lesada bess e SEV ER TREE OR 17 5 2 1 Informa o geral geral csv sees esee eene eren een nene ae neret een tenete 17 5 2 2 Simula o ao nivel do concelho concelhos csv esee 16 5 2 3 Simula o ao nivel da rea de gest o sim detalhe csv see 19 5 2 4 Areas ardidas TOOS CIN oriona RERO ESI A RYE SERERE do 19 5 2 5 reas cortadas areas cort CW 20 5 2 6 reas novas areas Houda CW 20 Agrad cimentoss cse e Ce e EUR SNP RR A ARRA NR 20 AP NDICE C DIGO FONTE DO PROGRAMA CELPASIM 1 0 0 sssssssssssssssssssssessseessssesees 21 AT MODULO GLOBAIS BAS 45 sich ciana ida div reiner Re er sU REMIS CO Red eR a Re Ry iE gp 21 AO MODULO OTHERS BAS acne a e p MU tle ur Nga n Tea an RR Co UR 28 CELPASIM 2 0 Manual do Utilizador DRAFT A 3 M DULO DE ENTRADA E SA DA CELPASIM Manual do Utilizador DRAFT 2 0 1 Introdu o CELPASIM O programa CELPASIM foi um esfor o conjunto da CELPA e do Instituto Superior de Agronomia para produzir uma ferramenta que possibilitasse a simula o das
10. Ano Concelho ArCort ArAband ArReconv NCorts Stock VolCort IdMed IdMedCort Print 3 Ano ID Regiao Concelho Area IQE Idade VolCort Print 4 Ano Concelho ArArdida VolArdido Print 5 Ano Concelho ArNova For y 1 To NYEARS Write 1 y ANO_REFERENCIA HStands y vol sc HStands y stock HStands y area em pe HStands y area reconv HStands y area aband HStands y area ardida HStands y volume ardido HStands y area nova HStands y area cort HStands y st harv _ HStands y idade med HStands y idade med corte For c 1 To NCONCELHOS res Resultados y Concelhos c If Resultados v Concelhos c st harv gt 0 Then Write 2 y ANO REFERENCIA 1 ConcCodes c nome res area cort res area aband res area reconv res st harv res stock res vol cort res idade med res idade med cort End If If Resultados y Concelhos c area ardida 0 Then Write 4 y ANO REFERENCIA 1 ConcCodes c nome res area ardida res vol ardido End If If res area nova 0 Then Write 5 y ANO REFERENCIA 1 ConcCodes c nome res area nova End If Next For s To HStands y st harv st HStands y Stands s Write 13 y ANO REFERENCIA B 1 st id st region ConcCodes st concelho nome st area st iqe st age st vol sc st area Next Next Close 1 2 3 4 5 End Sub CELPASIM 2 0 Manual do Utilizador DRAFT
11. If st rot 1 Then kg0 5 5311 ng0 3 6354 Else kg0 0 2903 ng0 2 7642 End If Case 4 If st rot 1 Then kg0 6 1201 ng0 3 6091 Else kg0 0 8793 ng0 2 699 End If Case 5 If st rot 1 Then kg0 6 2433 ng0 3 5676 Else kg0 1 0025 ng0 2 6575 End If Case 6 If stifot Then kg0 4 756 ng0 3 6893 Else kg0 0 4848 ng0 2 8181 End If Case 7 LE strot Then kg0 7 7941 ng0 3 4571 Else kg0 2 5533 ng0 2 547 End If Case 8 If st rot 1 Then kg0 6 9326 ng0 3 5676 Else kg0 1 6918 ng0 2 6575 ltltltESte valor n o est l End If End Select If st rot 1 Then kgq 177 9 kgnp 0 5408 kgf 16 015 Else kgq 72 3 kgnp 0 0134 kgf 14 1898 End If ag 0 1586 CELPASIM Manual do Utilizador DRAFT 2 0 fe kg ig 100 st iqe Sqr st narvs plant ConcCodes st concelho reg glob kg0 kgq st iqe kgnp st narvs plant 1000 kgf fe ng0 3 4571 0 232 r2 1 0 0539 r 2 0 0996 r 3 OL T2105 E D 0 152 7 ng0 ng0 0 9101 0 0389 r 1 st rot gt 1 ngq 1 0288 0 2972 st rot gt 1 ngn 0 1024 0 8008 st rot gt 1 If st rot 1 Then ngn 0 1024 Else ngn 0 0216 ng ng0 ngq Log st iqe ngn st narvs plant 1000 calc abas ag st iqe st ige Exp kg 1 st age ng calc abas End If End Function Public Function simulate st As Stand Dim abl As Single hdl A
12. M dulo other bas Option Explicit stand codes Public Const OK 0 Public Const QUEIMADO Public Const ABANDONADO 2 Public Const MUITO JOVEM 3 Public NomeRegiao As String 1 Public Type ConcCode nome As String cod As Long reg glob As Long Regi o do Globulus End Type Public ConcCodes As ConcCode Public NConcCodes As Long CELPASIM Manual do Utilizador DRAFT 2 0 Public Type Ranking nclasses As Long maxclass As Single valor As Single End Type Public RankIdade As Ranking Public RankDOM As Ranking Public RankRegiao As Single Public Type Stand rank As Long cod As Long id As String name As String region As Long area As Single concelho As Long age As Single rot As Long iqe As Single age init As Single age known As Boolean dqm As Single ba init As Single hd init As Single narvs init As Single narvs plant As Single nm5 init As Single ba As Single hd As Single narvs As Single nm5 As Single vol sc As Single vol cc As Single harvested As Boolean End Type Public Type HStand st harv As Long vol cc As Single vol sc As Single Stock As Single area nova As Single area aband As Single area ardida As Single area reconv As Single area cort As Single area em pe As Single volume ardido As Single idade med As Single idade med corte As Single Stands As Stand End Type initialized only after a clearcut n trees larger than 5 cm Public Function RRegiao regiao As Long As Single RReg
13. area cort st area res vol cort res vol cort st vol sc st area res area cort res area cort st area la parte do c lculo da idade m dia de rvores cortadas res idade med cort res idade med cort st age st area HStands year idade med corte FHStands year idade med corte st age st area abandon happens when the rotation is larger than 4 and is performed by reducing the area of the stand If st rot gt 3 And PROB ABANDONO gt O Then 1 1 HStands year area aband HStands year area aband st area b PROB ABANDONO res area aband res area aband st area PROB ABANDONO st area st area 1 PROB ABANDONO End If update the stand data st age 0 st ba st hd st narvs O IIItEEEFEEEEELI BELL LLL st vol cc 0 st vol sc 0 st harvested True st age known True Sol update the number of trees if we have a clearcut in the first rotation If st rot 1 Then st narvs plant st narvs plant NVARAS TOICA End If St rot starot 1 Resultados year Concelhos st concelho res End Sub Public Function Grow grows all stands to the next year note that some areas may get to be abandoned Dim s As Long For s 1 To NStands here is the flag only stands with rot 23 5 05 1 If Stands s rot 0 Then Stands s age Stands s age 1 Call simulate Stands s End If Stands s harvested False Next End Function gt 0 will be simulated A 2
14. do per odo de simula o incluindo reas novas e povoamentos divididos devido a fogos reconvers es ou cortes incompletos atrav s da an lise do ficheiro sim detalhe csv Este ficheiro inclui ainda a informa o biom trica de todas as reas de gest o aou longo do horizonte de planeamento tabela 5 4 Tabela 5 4 Resultados da simula o Dados de simula o por parcela Nome Unidade Descri o Ano Per odo da simula o stand id identificador interno do povoamento concelho C digo do concelho regiao rea cortada ige m indice de qualidade da esta o area ha Area que foi reconvertida rot N de reas cortadas narvs N de rvores maiores que 5 cm hd m Altura dominante ab m2 ha rea basal por ha vol sc m3 Volume total sem casca 5 2 4 reas ardidas fogos csv A tabela fogos csv cont m a informa o relevante rea ardida mostrada ao n vel do concelho reas e volumes ardidos ao n vel do concelho Tabela 5 5 Tabela 5 5 Resultados da simula o reas ardidas Nome Unidade Descri o Ano Per odo da simula o concelho C digo do concelho arardida ha rea ardida por concelho volardido m Volume ardido no concelho CELPASIM 2 0 Manual do Utilizador DRAFT 5 2 5 reas cortadas areas cort csv A tabela de reas cortadas apresenta um subconjunto da simula o ao n vel da rea de gest o mostrando as reas cortadas das diferentes unidades de
15. gest o tabela 5 6 Tabela 5 6 Resultados da simula o reas cortadas Nome Unidade Descri o Ano Per odo da simula o stand id identificador interno do povoamento regiao Regi o CELPA area ha volume cortado ige m indice de qualidade da esta o idade anos Idade de corte volcort m Volume cortado 5 2 6 reas novas areas novas csv As reas novas a plantar s o repartidas pelos concelhos presentes nas diferentes reas de gest o de acordo com a percentagem de ocupa o de eucaliptal verificada A tabela 5 7 apresenta qual a rea nova instalada anualmente por concelho Tabela 5 7 Resultados da simula o reas novas plantadas Nome Unidade Descri o Ano Per odo da simula o concelho C digo do concelho arnova ha rea nova plantada no concelho Agradecimentos Parte do financiamento que deu origem a este projecto foi concedido ao abrigo do Projecto PTDC AGR CFL 64146 2006 CELPASIM 2 0 Manual do Utilizador DRAFT Ap ndice C digo fonte do programa CELPASIM 1 0 0 Dos 15 m dulos que constituem o programa CELPASIM apresenta se o c digo fonte de 3 A O m dulo de simula o do crescimento a que respeita todo o c digo relativo aos procedimentos de simula o e as equa es biom tricas utilizadas globais bas B O m dulo de gest o da aplica o que controla todo o desenrolar do processo de simula o other bas C O m dulo de input out
16. reas de eucaliptal nacionais que n o est o sob o controlo directo das empresas O programa funciona como um simulador de crescimento definido as regras de corte por um sistema de ordena o n o incluindo portanto qualquer tentativa de optimiza o O CELPASIM oferece um conjunto vasto de op es de controle que permitem criar e manipular diferentes situa es de gest o Nomeadamente e Possibilidade de definir diferentes cen rios de procura de material lenhoso e Inclus o de probabilidades de inc ndio diferenciadas por regi es e Defini o e altera o dos crit rios de ordena o dos povoamentos para corte e Introdu o de reas novas por ano e regi o A ferramenta desenvolvida pode ser executada em qualquer PC de uso corrente sendo muito r pida a realiza o de qualquer simula o poss vel testar diferentes cen rios em minutos correndo cada simula o em menos de um minuto com recursos computacionais modestos Os resultados produzidos podem ser lidos directamente a partir de qualquer folha de c lculo como o Microsoft Excel permitindo avan adas capacidades de an lise Este manual cobre a vers o 1 0 0 do simulador 2 0 Manual do Utilizador DRAFT 2 Entrada de dados 2 1 Requisitos do programa O CELPASIM foi desenvolvido em Visual Basic 6 0 e pode ser executado em qualquer m quina a correr o sistema operativo Windows em 32 bits nomeadamente e Windows 95 98 ME e Windows 2000 e Windows XP H
17. 0 st narvs 0 st vol ce 0 st vol sc 0 End If End If Resultados year Concelhos st concelho res Next End Function A 3 M dulo de entrada e sa da Option Explicit Public Sub init data Dim y As Long r As Long ChDir App Path ReDim VolTargetSC NYEARS ReDim HStands NYEARS ReDim NewAreas NREGIONS NYEARS ReDim BurntAreas NREGIONS ReDim Regions NREGIONS ReDim RankRegiao NREGIONS ReDim Resultados NYEARS Call read iges iges csv Call read narvs plant n plants csv Call read concelhos areas conc csv For y 1 To NYEARS VolTargetSC y 1000000 For r 1 To NREGIONS NewAreas r y BurntAreas r Next 500 0 05 Next ANO REFERENCIA year Now ReDim NomeRegiao NREGIONS NomeRegiao 1 NORTE LITORAL NomeRegiao 2 INTERIOR NomeRegiao 3 CENTRO NORTE NomeRegiao 4 CENTRO SUL NomeRegiao 5 SUL Call read rankings Call read conc codes End Sub CELPASIM Manual do Utilizador DRAFT 2 0 Public Sub read database Dim s As String Dim id As String conc As Long regiao As Long estrato As Long Dim idade As Single area As Single rot As Long n pequenas As Single Dim nm5 As Single hd As Single ab As Single dqm As Single iqe As Single Dim vol merc As Single i As Long aux As Boolean NStands 0 primeiro contar os povs Open DATABASE NAME For Input As 1 Line Input 1 s While Not EOF 1 Input 1 id vol merc If n pequenas nm5 gt W
18. 3 244 257 258 179 234 7 32 7 1 6 85 6 51 5 97 5 86 5 46 5 18 5 27 5 5 5 66 5 86 6 02 6 12 6 27 2 0 Nessa tabela inclu ram se as vari veis fundamentais para uma an lise expedita de uma simula o descritas na tabela 5 1 Tabela 5 1 Resultados da simula o informa o no ecr Nome Unidade Descri o Ano Ano da simula o VolSC m Volume sem casca cortado deve na maior parte dos casos ser id ntico ao volume de procura definido Stock m Volume em p antes da realiza o do corte ArTot ha rea total ocupada com eucalipto ArReconv ha rea que foi reconvertida ArArdida ha rea consumida pelos fogos AreaCort ha rea cortada NAreaCort N de reas cortadas IdMed Anos Idade m dia dos povoamentos em p antes do corte IdMedCrt Anos Idade m dia das reas cortadas 5 2 Resultados em ficheiro Os resultados totais de cada simula o s o armazenados na directoria criada para o efeito durante a execu o do programa Cada simula o descrita por um conjunto de 6 ficheiros 5 2 1 Informa o geral geral csv O ficheiro geral csv consiste num sum rio executivo cont m essencialmente a mesma informa o apresentada na sec o 5 1 ao que acresce o volume ardido Tabela 5 2 CELPASIM 2 0 Manual do Utilizador DRAFT Tabela 5 2 Resultados da simula o informa o geral Nome Unidade Descri o Ano Per odo da simula o volcort m Volume sem casc
19. 3 4 N veis anuais de procura CELPASIM A simula o do eucaliptal pressup e que haja procura da ind stria para absorver a madeira cortada No inteface de N veis de Procura dado ao utilizador uma forma simples de poder manipular esses valores Os volumes s o mostrados em 10 x m Podem ser alterados de uma forma maunual ou semi autom tica Caso se queira atribuir o mesmo valor de procura para todos os anos basta preencher o valor desejado na caixa de texto valor comum e pressionar o bot o Aplicar A tabela tomar para todos os anos o valor escolhido A manipula o manual exige um processamento mais elaborado mas bastante mais flex vel Para editar qualquer c lula na 2 coluna da tabela suficiente escrever o valor num rico desejado com as seguintes regras de edi o 1 S funcionam os n meros e o ponto N o poss vel introduzir letras 2 No in cio da escrita adiciona valores ao texto presente na c lula Por exemplo se estiver o valor 1000 se introduzir o valor 500 o que ficar registado ser 1000500 2 0 Manual do Utilizador DRAFT 3 Para apagar um caracter mesmo dos que est o previamente em cada c lula basta premir Backspace 4 Para apagar o valor total de uma c lula premir Delete Estes procedimentos de edi o s o v lidos para todas as tabelas presentes nos restantes interfaces do programa Ka N veis de Procura xj Volume Objectivo 10 3 m3 B Valor comum 5000
20. Areas reg End If Resultados year Concelhos Stands s concelho res Next ta 0 For c 1 To NCONCELHOS area Stands s vol sc sO crio reas novas se a rea ardida no concelho for superior a 10 ha If BurntConcelhos c area gt 10 Then NStands NStands 1 ReDim Preserve Stands NStands Stands NStands concelho c Stands NStands region BurntConcelhos c Stands NStands area BurntConcelhos c ta ta BurntConcelhos c area Stands NStands rot 2 SLE EREPEPEDEEI regiao area Stands NStands age 0 Stands NStands hd 0 Stands NStands ba 0 Stands NStands vol sc 0 Stands NStands vol cc 0 Stands NStands iqe Regions BurntConcelhos c regiao ige Stands NStands narvs plant Regions BurntConcelhos c regiao narvs plant Stands NStands age known True Stands NStands id FG amp Trim Str year amp End If amp Trim Str c Next Debug Print ba ta End Sub Public Sub CalcStock year As Long Dim s As Long For s CELPASIM c As Long 1 To NStands 2 0 Manual do Utilizador DRAFT CELPASIM HStands year stock HStands year stock Stands s vol sc Stands s area Resultados year Concelhos Stands s concelho stock Resultados year Concelhos Stands s concelho stock Stands s vol sc K Stands s area 1000 para calcular a idade m dia multiplica se a idade pela rea If Stands s
21. Departamento de Inform tica Faculdade de Ci ncias da Universidade de Lisboa CELPASIM 2 0 Manual do Utilizador Vers o 2 0 0 draft Andr Falc o Agosto de 2009 ndice CELPASIM 2 0 MANUAL DO UTILIZADOR cette eee eee rrrerererececerscencesseecese rosenn 1 INDICE aaa a bouton awa vanes dav 2 I INZRODEC O AAEE 4 PABONVUCYIZMUDUORENTU 5 2d REQUISITOS DO PROGRAMA coo tete Hebe ea B Ata di teach o BRE 5 2 2 ENTRADA DE DADOS 4 5 5 5 rir cega taco da Yee dei tee eot dre Eee e e dee sean dete bed e ge Eta te e av vg 5 3 PAR METROS DE SIMULA O ideo eite o od e id dd 7 3 1 PAR METROS GEN RICOS DE SIMULACAO sese 7 3 2 PROBABILIDADES DE INCENDIOS daya aE rennen A ey rob Zr Toae 8 3 3 ORDENA O DE POVOAMENTOS 12 test de freio tk tenes eie eto etse sie dida ad opt eutasi dane add Dans 9 3 4 N VEIS ANUAIS DE PROC URA sas 5255 5 eere ro te senao e One see eene gau eeu e nas ATESTE a tastes stan SESC TTET asa 10 3 9 AREAS NO VASA a ten shee inet i Du tent itta de eeepc s pa utt us etat tte a D state AGS 11 A SIMUELACAU caetano ara DA E e 13 4 1 PROCEDIMENTO DE SIMULA O unas DE 13 4 2 INICIALIZA O DE VARI VEIS ccccccssscsssesssescscsesecosscscscsesesessessscscseseseseseescscscsesesesssscscseseeesees 14 4 3 SIMULA O DO CRESCIMENTO 5e tute etliche telum etu ados enteras etus 14 4 3 1 Estima o da rea basal esses eene EEEE nensis EATA 15 4
22. If n pequenas nm5 0 Then aux Stands i age known Stands i age known True aux Manual do Utilizador DRAFT Regions regiao narvs plant hd nm5 wat call nm5 hd nm5 hd the globulus the globulus 2 0 Stands i nm5 calc narvs n Stands i Stands i nm5 init Stands i nm5 Stands i narvs Stands i nm5 Stands i narvs init Stands i nm5 Stands i age known aux 11111111111 Rot is used as a flag to avoid processing of strange areas n arvs 0 If Stands i age gt 0 Then Stands i rot 0 Stands i ba 0 Stands i hd 0 Stands i vol sc 0 Stands i vol cc 0 End If End If i i 1 End If Wend Close 1 End Sub Public Sub read_iqes fname As String Dim s As String Dim reg As Long iqe As Single Open fname For Input As 1 Line Input 1 s get the header While Not EOF 1 Input 1 reg iqe Regions reg ige ige Wend Close 1 End Sub Public Sub read narvs plant fname As String Dim s As String Dim reg As Long n plant As Single Open fname For Input As 1 Line Input 1 s get the header While Not EOF 1 Input 1 reg n plant Regions reg narvs plant n plant Wend Close 1 End Sub Public Sub read concelhos fname As String l as propor es de reas por concelho em cada regi o Dim s As String Dim conc As Long reg As Long prop As Single max conc As Long c As Long Open App Path amp amp fname For Input As 1
23. LPASIM 2 0 Manual do Utilizador DRAFT Debug Print year h Exit Sub End If Wend Debug Print year h End Sub Private Sub BurnForest year As Long cria povoamentos novos Dim s As Long c As Long Dim res As Result ta As Single limpar as reas acumula as reas queimadas por concelho e conc As Long ba As Single caso a rea seja relevante reg As Long year year For c 1 To NCONCELHOS BurntConcelhos c area 0 Next preencher as reas ardidas acumulando nos concelhos ba 0 For s 1 To NStands reg Stands s region res Resultados year Concelhos Stands s concelho If BurntAreas reg gt 0 Then conc Stands s concelho BurntConcelhos conc area BurntConcelhos conc area Stands s area BurntAreas reg ba ba Stands s area BurntAreas reg HStands year area ardida HStands year area_ardida Stands s area BurntAreas reg HStands year volume_ardido HStands year volume ardido Stands s area Stands NSL andai vol sc BurntAreas reg HStands year volume ardido HStands year volume ardido Stands s area Stands s vol sc BurntAreas reg res area ardida res area ardida Stands s area BurntAreas reg res vol ardido res vol ardido Stands s area ul Stands NStands vol sc BurntAreas reg res vol ardido BurntAreas reg res vol ardido Stands s Stands s area Stands s area 1 Burnt
24. P AA em que PPPP representa o c digo da parcela que originou o corte e AA o ano em que este for cortado Areas reconvertidas tamb m originam reas novas utilizando o prefixo REC Deste modo REC PPPP AA em que semelhan a do caso anterior PPPP representa o c digo da parcela antes da reconvers o e AA o ano em que ocorreu 3 2 Probabilidades de inc ndios A probabilidade de inc ndio para cada regi o determina qual a quantidade de rea de eucaliptal que ser simulada como ardida anualmente ao longo do per odo de CELPASIM Manual do Utilizador DRAFT 2 0 simula o inicializada com um valor de 5 indicando que sair 5 da rea total de todos os povoamentos independentemente da idade at Probabilidades de Inc ndio x Figura 3 2 Interface de probabilidade de inc ndios O volume ardido contabilizado separadamente e apresentado numa tabela parte ver 5 2 4 As reas ardidas s o acumuladas ao n vel do concelho Caso esse valor por concelho seja inferior a 10 ha ent o essa rea abandonada da simula o reas ardidas s o consideradas como estando em 2 rota o com idade 0 S o assim originadas v rias parcelas novas na decorr ncia de fogo Na simula o essas parcelas v o ter um identificador novo com o prefixo FG FG CCC AA em que CCC corresponde ao concelho onde estavam instaladas as parcelas que arderam e AA o ano em que sucedeu o inc ndio 3 3 Ordena o de
25. Public BurntAreas As Single Public Function age est low Dim a As Single b As Single c As Single d As Single a 4 15124 b 0 05142 c 0 04318 d 0 00101 amp 9067179 calc_idade ab As Single hdom As volume targets for each year proportion of burn area every year Single n M5 As Single e As Single calc idade a b ab c hdom d n M5 e age est low End Function Public Function calc hdom lin hdoml As Single Dim a As Single b As Single c As Single d As Single abl As Single n M5 As Single e As Single a 7 05581 b 0 16797 c 1 4096 d 0 1265 e 41 30148 calc_hdom_lin a b hdoml c d abl e abl n M5 End Function Public Function calc abas lin hdoml1 As Single abl As Single FW As Single Dim a As Single b As Single c As Single d As Single e As Single a 2 93909 b 0 94937 c 1 0194 CELPASIM 2 0 Manual do Utilizador DRAFT d 0 05523 e 4 18516 calc abas lin a b abl c d hdoml e FW End Function Public Function calc voltot lin st As Stand vol com toi a e com casca Dim a As Single b As Single c As Single fe As Single kvc As Single Dim rot As Long r As Long If st age known False Then a 0 5207 b 0 9933 c 0 9285 calc_voltot_lin a st hd b st ba c Else POE st rot a 0 0655 b 0 883 c 1 0263 fe 100 st iqe Sqr st narvs_plant kvc 0 4886 0 0387 rot gt 1
26. a cortado deve na maior parte dos casos ser id ntico ao volume de procura definido stock m Volume em p antes da realiza o do corte artot ha rea total ocupada com eucalipto arreconv ha rea que foi reconvertida arard ha rea consumida pelos fogos volard m Volume ardido arnova ha reas novas plantadas arcort ha rea cortada ncorts N de reas cortadas idmed anos Idade m dia dos povoamentos em p antes do corte idmedcort anos Idade m dia das reas cortadas 5 2 2 Simula o ao n vel do concelho concelhos csv Os resultados da simula o s o tamb m calculados ao n vel do concelho incluindo para este casdo as reas cortadas abandonadas e reconvertidas bem como o stock e o volume cortado Tabela 5 3 Tabela 5 3 Resultados da simula o Dados de simula o por concelho Nome Unidade Descri o Ano Per odo da simula o concelho C digo do concelho arcort ha rea cortada araband rea total abandonada arreconv ha rea que foi reconvertida ncorts N de reas cortadas stock m Volume em p antes da realiza o do corte volcort m Volume sem casca cortado no concelho idmed anos idade m dia dos povoamentos em p antes do corte no concelho idmedcort anos Idade m dia das reas cortadas no concelho CELPASIM Manual do Utilizador DRAFT 2 0 5 2 3 Simula o ao n vel da rea de gest o sim detalhe csv poss vel seguir todos os povoamentos ao longo
27. a o ano 2 Determina as reas que v o arder e processa as como tal ver ponto 3 2 3 Calcula o stock 4 Executa os cortes e processa os abandonos 5 Processa quais as reas que v o ser reconvertidas 6 Acrescenta as reas novas NOTA O procedimento de simula o pode ser verificado no c digo fonte dispon vel em ap ndice A rotina que coordena todo o processo designa se de RunSimulation no m dulo other bas O n mero de parcelas no processo de simula o vai crescendo ao longo do tempo devido a v rios factores a Cortes O programa vai procurar atingir exactamente os volumes pretendidos e definidos nos n veis de procura Se por acaso o corte da rea total de uma parcela 2 0 Manual do Utilizador DRAFT fizer com que o volume j cortado exceda o desejado ent o essa parcela ser dividida Uma parte continuar a crescer e a outra ser cortada passando para a rota o seguinte b Reconvers es No caso da probabilidade de reconvers es ser diferente de O ou 1 todas as reas a corte s o potencialmente reconvertidas de acordo com o procedimento descrito no ponto 3 1 c Fogos Em cada ano todas as parcelas sofrem uma redu o de rea pelo fogo ponto 3 2 Essa rea acumulada ao n vel do concelho a que pertencem sendo potencialmente criada uma rea nova por concelho florestado por ano d Areas novas S o criadas reas novas em cada concelho em cada per odo de simula o 4 2 Inicia
28. area reconv HStands y area ardida HStands y area cort HStands y st harv HStands y stock Next Close 113 Call write results End Sub Public Sub AddNewAreas year As Long adds areas according to the requirements for each region Dim r As Long c As Long are tot As Single pa As Single For r 1 To NREGIONS If NewAreas r year 0 Then pa 0 For c 1 To Regions r NCONCELHOS If NewAreas r year Regions r prop area c gt 0 Then NStands NStands 1 ReDim Preserve Stands NStands Stands NStands area NewAreas r year k Regions r prop area c pa pa Regions r prop area c are tot are tot Stands NStands area Stands NStands concelho Regions r Concelhos c Stands NStands age 0 Stands NStands rot 1 Stands NStands id NA amp Trim Str year amp ms Trim Str c Stands NStands ige Regions r iqe Stands NStands age known True Stands NStands narvs plant Regions r narvs plant Resultados year Concelhos Stands NStands concelho area nova Stands NStands area End If Next Debug Print r Regions r NCONCELHOS pa End If HStands year area nova HStands year area nova NewAreas r year Next End Sub Public Function Reconverte year As Long handle reconversions Dim res As Result st As Stand s As Long NS As Long atot As Single t As Long NS NStands For s 1 To NS st Stands s res Resultados year Concelhos st concelho reconve
29. d reg int C digo da regi o CELPA 4 estrato idade int Idade aproximada do estrato 5 area float rea correspondente da parcela 6 rot int Rota o 7 n pegs int N de rvores com DAP lt 5 cm 8 n grnds int N de rvores com DAP gt 5 cm 9 hd float Altura dominante 10 ab float rea basal por ha 11 dqm float Di metro quadr tico m dio 12 IQE float Ind ce de qualidade da esta o 13 v5sch float Volume das rvores com dap gt 5 cm CELPASIM 20 Manual do Utilizador DRAFT 3 Par metros de simula o O CELPASIM disp e de 7 interfaces distintos para possibilitar diferentes tipos de simula o poss vel alterar virtualmente quase todos os par metros que condicionam o processo de simula o De uma forma gen rica podem considerar se 5 grandes classes de par metros descritas a seguir Par metros gen ricos de simula o Probabilidades de inc ndio Ordena o de povoamentos para corte N veis anuais de procura de material lenhoso tens o pee vo IN cies reas novas a plantar 3 1 Par metros gen ricos de simula o CELPASIM O interface com os par metros gen ricos de simula o apresenta duas reas principais A primeira referente ao horizonte temporal da simula o onde o utilizador pode definir qual o per odo de simula o e qual o ano de refer ncia para o qual vai executar a simula o Seguidamente aparecem v rios par metros que permitem condicionar diferentes aspectos
30. da simula o e da gest o Probabilidade de abandono Este par metro indica a propor o da rea que ap s o corte em 3 rota o passagem para a 4 dever ser abandonada Probabilidade de reconvers o Indica qual a percentagem de reas cortadas que s o reconvertidas para 1 rota o N mero de varas por toi a Indica o n mero m dio de varas a deixar por toi a ap s o corte final 2 0 Manual do Utilizador DRAFT Este interface permite ainda aceder s probabilidades de inc ndio por regi o atrav s de um bot o E Par metros de Simula o x r Simula o Ano de Refer ncia poos Per odo de Simula o Probabilidade de Reconvers o N mero de Varas por Toi a Probabilidades de Inc ndio Cancelar OK Figura 3 1 Par metros gen ricos de simula o 10 Probabilidade de Abandono 03 01 15 O abandono e a reconvers o s o probabilidades fixas aplicadas a todas as reas que entram em corte final Primeiro s o processados os abandonos e rea que fica sujeita a reconvers o Com os valores expostos se uma parcela com 100 ha em 3 rota o cortada 30 ha s o abandonados Dos 70 ha que n o s o abandonados 7 ha reconvertidos para la rota o reas divididas pelos cortes por se ter atingido o volume de procura pretendido s o identificadas na simula o pelo c digo CT Assim estas parcelas s o marcadas como CT PPP
31. do n mero de rvores planta o para as reas novas Figura 3 6 e outro relativo aos ndices de qualidade da esta o Figura 3 7 Ka N rvores Planta o x Cancelar OK Figura 3 6 Defini o do N de rvores planta o para reas novas Ambos os formul rios permitem definir quais os valores do n mero de rvores planta o e o valor por omiss o do IQE para cada rea nova E Binz NORTE LITORAL CENTRO NORTE CENTRO SUL Figura 3 7 Defini o do IQE para reas novas No procedimento de simula o a cada rea nova em cada concelho atribu do um c digo identificador com a seguinte designa o NA AA CCC NA o acr nimo de Novas reas AA representa dois d gitos referentes ao per odo de simula o CCC referente ao concelho em que a nova parcela foi instalada 2 0 Manual do Utilizador DRAFT 4 Simula o 4 1 Procedimento de simula o CELPASIM Para executar uma simula o ap s a introdu o de v rios par metros basta no menu inicial da aplica o seleccionar a op o Simular gt Correr Simula o Aparece ent o uma caixa de di logo Figura 4 1 que permite ao utilizador criar um direct rio novo que armazenar toda a informa o relevante respeitante simula o realizada nomeadamente todos os ficheiros de sa da ver ponto 5 2 A simula o decorre pela seguinte ordem de opera es 1 Faz crescer a floresta e increment
32. en a 0 3202 al 0 00231 b 0 9756 c 1 0343 calc volstsc lin a al rota hdom b ab c Else CELPASIM 2 0 Manual do Utilizador DRAFT If st age gt 8 Then a a End If a 0 0592 b 0 9349 c 1 0077 r ConcCodes st concelho reg glob Select Case r Case 1 2 3 6 If rot 1 Then kv0 0 3886 kvf 0 1497 Else kv0 0 4218 kvf 0 3616 End If Case 4 5 8 kvf 0 Else kvO 0 4108 kvf 0 2119 End If End Select fe 100 st ige Sqr st narvs_plant kv kvO kvf fe calc volstsc lin kv st age a st hd b st ba c End If End Function Public Function calc volmercantil cc volstcc As Single dmed As Single ddesp As Single Dim a As Single b As Single a 1 0033 b 3 8608 calc volmercantil cc volstcc Exp a ddesp dmed b End Function Public Function calc volmercantil sc volstcc As Single dmed As Single ddesp As Single Dim a As Single b As Single a 1 0173 b 3 8929 calc_volmercantil_sc volstcc Exp a ddesp dmed b End Function Public Function calc_narvs_n st As Stand calcula o n mero de rvores com base no narvs anterior Dim am As Single Dim rot As Long r As Long rot st rot r ConcCodes st concelho reg glob If st age known False Then calc narvs n st narvs init Exp 0 00988 st age st age init Else am 0 0401 0 0013 st narvs plant 1000 0 0064 st iqe 10 0 019 r
33. end Close 1 conc ab dqm ige regiao estrato idade area rot 0 Then NStands NStands 1 agora podemos de facto carregar os povoamentos Open DATABASE_NAME For Input As 1 ReDim Stands NStands i Line Input 1 s While Not EOF 1 nput 1 id vol merc conc ab dam ige f ige f id id End If 0 Then ige 399 Then id regiao estrato idade area rot Regions regiao ige n pequenas n pequenas function function CELPASIM f n pequenas nm5 gt 0 Then Stands i age idade Stands i age init idade If idade 0 Then Stands i age known Else Stands i age known End If Stands Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand Stand True False area ba ab ba init dqm dqm hd hd hd init id id ige ige narvs nm5 n pequenas narvs init nm5 n pequenas narvs plant nm5 nm5 nm5 init nm5 region regiao concelho conc TOE rot vol sc vol merc area ab hd LD LD LD 0 LD LD LD LD 0 0 0 UD 0 0 ANA NY initialization routines If hd 0 Then aux Stands i age known Stands i age known True Stands i hd calc hdom Stands i ab Stands i age known aux End If If ab 0 Then aux Stands i age known Stands i age known True Stands i ba calc abas Stands i ab hd Stands i age known End If
34. hd s from hd S to vol sc s from vol sc S to vol cc s from vol cc S to narvs plant s from narvs p End Sub Public Sub Harvest year As Long this is a tricky routine as it invo Stands tmpHigh S from As Stand multiplying the area by ratio And tmpHigh low Stands tmpHigh low tmpLow tmpHigh high ratio As Single lant lves many things 1 accomplish the objective 2 create if necessary new stands Dim s As Long c As Long h As Single Dim vol As Single voltot As Single Dim volneeded As Single ratio As Single voltot 0 s 1 h 0 If VolTargetSC year 0 Then Exit Sub End If While s lt NStands vol Stands s vol sc Stands s area If voltot vol lt VolTargetSC year Stands s Call clearcut year voltot voltot vol h Else h Stands s vol sc Stands s Then area first determine the ratio of the area to harvest volneeded ratio volneeded vol now create a new stand NStands NStands 1 VolTargetSC year voltot ReDim Preserve Stands NStands copy the apropriate area to the new place Call StandCopy Stands NStands Stands s ratio copies the original data to the new one Stands NStands id CT amp Stands s id amp amp Trim Str year Stands s area Stands s area 1 ratio and bang harvest it Call clearcut year Stands NStands h h Stands NStands vol sc Stands NStands area CE
35. iao RankRegiao regiao End Function Public Function RIdade idade As Single As Long Dim r As Long For r RankIdade nclasses To 1 Step 1 If idade gt RankIdade maxclass r Then RIdade RankIdade valor r Exit Function End If Next Exit Function Select Case Int idade Case 6 To 7 RIdade 0 Case 8 To 9 RIdade 4 CELPASIM Manual do Utilizador DRAFT 2 0 Case 10 To 11 RIdade 6 Case 12 To 13 RIdade 3 Case 14 To 15 RIdade 1 Case Is gt 16 RIdade 0 End Select End Function Public Function RDOM dqm As Single As Long ranking criteria for each dqm value Dim r As Long For r RankDOM nclasses To 1 Step 1 If dqm RankDOM maxclass r Then RDQM RankDQM valor r Exit Function End If Next Select Case dqm Case 7 5 To 10 RDOM 1 Case 10 To 12 5 RDOM 2 Case 12 5 To 15 RDOM 3 Case 15 To 17 5 RDOM 4 Case Is gt 17 5 RDQM 5 End Select End Function Private Function Compare standl As Stand stand2 As Stand this is where each stand is compared to the other one it is defined by the runtimes if standl is LOWER than stand2 returns 1 Else returns 0 Dim rankl As Long rank2 As Long rankl RRegiao standl region rankl rankl RIdade standl age rankl rankl RDOM standl dqm rank2 RRegiao stand2 region rank2 rank2 RIdade stand2 age rank2 rank2 RDOM stand2 dqm standl rank rankl stand2 rank rank2 If rankl rank2 Then desempa
36. liza o de vari veis As vari veis biom tricas mais importantes dos povoamentos e fundamentais para a simula o do cresicomento rea basal altura dominante e n mero de rvores por ha devem estar assinaladas para todas as parcelas Quando isso n o sucede necess rio encetar uma s rie de procedimentos para proceder sua inicializa o com os modelos dispon veis Para a rea basal e altura dominante o procedimento similar Uma vez que o modelo GYMMA Barreiro et al 2004 n o permite fazer inicializa es de ra z a solu o encontrada foi assumir que a idade estimada para cada povoamento era correcta e utilizar o modelo GLOBULUS Tom 2001 para uma primeira estimativa Durante a simula o para estas parcelas utilizado o modelo GYMMA como se a idade n o fosse conhecida No caso de n o haver rvores em povoamentos com idades maiores que 0 o n mero de rvores do povoamento inicializado de acordo com a nica fun o dispon vel Contudo essa fun o inicializa o n mero de rvores total e n o o n mero de rvores maiores que 5 que o que necess rio para a rea basal modelo GYMMA Com esta estrat gia pode suceder que no caso de parcelas sem rvores o modelo dar uma estimativa por excesso 4 3 Simula o do crescimento CELPASIM A simula o do crescimento no programa CELPASIM feita com base em dois modelos de crescimento Para parcelas de invent rio sem idade precisa conhecida u
37. no para o outro ou caso o valor estimado seja superior a a 95 96 do valor da assimptota do modelo novo 63 81254 ent o a rea basal calculada pela nova equa o ab 4 3 2 Estima o da altura dominante Verificou se o aparecimento de erros num ricos tamb m no modelo GYMMA para a altura dominante Estes sucedem em certas situa es em que rea basal calculada anteriormente grande demais e a altura dominante pequena Caso isso suceda um dos par metros que entra no modelo da altura dominante fica negativo criando impossibilidades num ricas Para lidar com esta situa o optou se por calcular de antem o o par metro em causa Caso este seja negativo executado o modelo globulus utilizando a idade estimada como idade verdadeira 4 3 3 Estima o do volume O modelo GYMMA possibilita a estima o de volumes com e sem casca com e sem toi a e permite ainda fazer variar a altura da bicada Contudo o modelo GLOBULUS n o t o flex vel possibilitando apenas o c lculo do material lenhoso com e sem casca Para tornar essas duas metodologias compar veis optou se por utilizar apenas o modelo GY MMA de c lculo do volume sem casca e sem toi a Para o GLOBULUS utilizou se naturalmente o modelo que n o inclui a casca 2 0 Manual do Utilizador DRAFT 5 Apresenta o de resultados 5 1 Resultados no Ecra Os resultados de simula o do CELPASIM s o exportados automaticamente para ficheiros CSV
38. ome Edition Pro Como requisitos m nimos o computador dever ter um processador compat vel com Intel Pentium ou superior a correr a 200 MHz e 64 MBytes de RAM e pelo menos 30 MB de espa o livre em disco desej vel contudo que a velocidade do processador ultrapasse 1 0 GHz para minimizar o tempo de simula o 2 2 Entrada de dados Os dados devem ser fornecidos ao programa sob a forma de um ficheiro com a extens o CSV comma separated values Estes ficheiros podem ser produzidos a partir de qualquer folha de c lculo nomeadamente o Microsoft Excel A utiliza o deste tipo de ficheiros obriga a algumas configura es espec ficas da m quina de trabalho Painel de Controle gt gt Op es Regionais da seguinte forma on e Separador de d gitos decimais ponto on e Separador de colunas v rgula CELPASIM 2 0 Manual do Utilizador DRAFT n e Separador de milhares espa o A tabela CSV pode ter o nome que se deseje mas o programa procura por omiss o um ficheiro com a designa o work csv A tabela deve ter a seguinte configura o r gida Uma primeira linha com os t tulos das vari veis seguida de tantas linhas quantos os povoamentos a considerar cada uma com 13 colunas Tabela 2 1 Tabela 2 1 estrutura da tabela com os dados de entrada N Designa o Tipo Descri o 1 Parcela text Identificador alfanum rico da parcela 2 conc code int C digo do concelho 3 co
39. povoamentos Os povoamentos ou reas de gest o no processo de simula o s o ordenados de acordo com uma avalia o ponderada S o considerados 3 crit rios principais para a ordena o de um povoamento e Idade e Regi o e Di metro quadr tico m dio O processo de ordena o decorre somando os pesos atribu dos para cada povoamento e seleccionando para corte aqueles que t m valores mais elevados Como exemplo um povoamento situado em Odemira Sul com uma idade de 11 anos e um di metro quadr tico m dio DQM de 13 1 cm teria um factor de 3 6 3 12 CELPASIM 2 0 Manual do Utilizador DRAFT nt Ranking de Povoamentos Idade Regi o Cancelar OK Figura 3 3 Crit rios de ordena o dos povoamentos O interface Figura 3 3 mostra 3 quadros para cada uma das vari veis de notar que cada quadro tem um n mero de colunas fixas que n o podem ser alteradas e que pode ser lido da seguinte forma O caso da regi o o mais simples A primeira coluna indica a regi o e a segunda o peso vari vel atribu do a cada uma Para a idade a primeira coluna corresponde ao valor m nimo e a segunda idade m xima inclusive Um povoamento com 11 anos est assim na 3 linha apresentando um factor de 6 O DQM usado de acordo com o mesmo princ pio A 3a coluna representa o peso atribu do a cada intervalo de poss vel sendo a ltima linha o peso atribu do aos factores que tenham mais do que o limite definido
40. put onde est o definidos os procedimentos de leitura de dados e escrita de resultados io bas A 1 M dulo globais bas Option Explicit Const LINEAR 1 Const NAO LINEAR 0 Pub Pub Pub Pub Pub Pub Pub Pub Pub CELPASIM lic Lic lic lic lic Dre lic Lice lic SIM_PATH As String NREGIONS As Long ANO_REFERENCIA As Long NCONCELHOS As Long NStands As Long NYEARS As Long PROB_ABANDONO As Single PROB_RECONVERTE As Single NVARAS_TOICA As Single Manual do Utilizador DRAFT 2 0 Public DATABASE NAME As String Type ARegion ige As Single narvs plant As Single NCONCELHOS As Long Concelhos As Long prop area As Single 1 0 End Type Type AConcelho regiao As Long area As Single End Type Public Type Result st harv As Long area em pe As Single area nova As Single area cort As Single area aband As Single area reconv As Single area ardida As Single stock As Single idade med As Single vol cort As Single vol ardido As Single idade med cort As Single End Type Public Type Resultado Regioes As Result Concelhos As Result End Type no de concelhos na regiao c digo dos concelhos propor o da rea de eucaliptal em cada um Sum Public Resultados As Resultado Public Regions As ARegion Public Stands As Stand Public HStands As HStand Public NewAreas As Single Public BurntConcelhos As AConcelho Public Model Type As Long Public VolTargetSC As Single
41. rs es s o reas que acabaram de ser cortadas idade 0 e t m rot gt 3 If st rot gt 3 And st harvested True And PROB RECONVERTE gt 0 Then LE IR Z ete ot E If st rot gt 3 And st age 0 And PROB RECONVERTE gt 0 Then 1 11 HStands year area reconv HStands year area reconv st area PROB RECONVERTE CELPASIM 2 0 Manual do Utilizador DRAFT res area reconv res area reconv st area PROB RECONVERTE If PROB RECONVERTE lt 0 99999 Then NStands NStands 1 ReDim Preserve Stands NStands Call StandCopy Stands NStands Stands s PROB RECONVERTE Stands NStands iqe Stands NStands ige 2 d Stands NStands ige Regions st region ige Stands NStands rot 1 Stands NStands narvs plant Regions st region narvs plant Stands NStands id REC amp st id amp amp Trim Str year Stands s area Stands s area 1 PROB RECONVERTE Stands NStands age 0 Stands NStands ba 0 Stands NStands hd 0 Stands NStands narvs O 111 31111 111 11 3 11 1130111231 131 3H 1 PM M g Stands NStands vol cc 0 Stands NStands vol sc 0 O QE depois da reconvers o igual ao IQE antes da reconvers o 2 IQE antes da reconvers o IQE m dio regi o constante no quadro FG Else St iqe Stands NStands ige 2 Stands NStands ige Regions st region iqge st rot 1 st narvs plant Regions st region narvs_plant st age 0 st ba 0 st hd
42. s Single Dim nm51 As Single If st harvested True Then st age 1 st ba 0 st hd 0 st narvs 0 st vol cc 0 st vol sc 0 End If abl st ba hdl st hd nm51 st nm5 st ba calc_abas st abl hdl nm51 st hd calc_hdom st abl hdl st narvs calc_narvs_n st st nm5 calc_narvs_nM5 st narvs st hd ateng o If st nm5 0 Then st dqm 0 Else If st age known False Then st dqm 200 Sqr st ba st nm5 3 1416 Else st dqm 200 Sqr st ba st narvs 3 1416 End If End If st vol sc calc volstsc lin st st hd st ba st rot St vol cc calc voltot lin st st vol sc calc volctsc lin st st vol cc calc volctsc lin st End Function Public Sub clearcut year As Long st As Stand here we clearcut a full stand we must account for the stand harvested and fill in the harvested volume Dim st harv As Long Dim res As Result If st id 246 Then st harv st harv End If res Resultados year Concelhos st concelho we must save the harvested stand st harv HStands year st harv 1 res st harv res st harv 1 ReDim Preserve HStands year Stands st harv Call StandCopy HStands year Stands st harv st 1 HStands year st harv st harv update the volumes CELPASIM 2 0 Manual do Utilizador DRAFT HStands year vol sc HStands year vol sc st vol sc st area HStands year vol_cc HStands year vol cc st vol cc st area HStands year area cort HStands year
43. sou se o modelo GYMMA Barreiro et al 2004 Ap s cortes fogos ou reconvers es quando a idade passa a ser conhecida o modelo utilizado o Globulus 2 0 1 Tom 2001 S o ambos modelos de povoamento que se baseiam na estima o da rea basal e da altura dominante para o c lculo posterior do volume total NOTA As rotinas do c digo fonte relativas simula o do crescimento das diferentes parcelas s o Grow e simulate e est o no m dulo globais bas no ap ndice 2 0 Manual do Utilizador DRAFT CELPASIM N o se pretende com este manual descrever os modelos de crescimento utilizados contudo importante fazer refer ncia a procedimentos de excep o verificados devido a alguns problemas de estabilidade num rica verificados para algumas situa es de invent rio 4 3 1 Estima o da rea basal Na estima o da rea basal verificou se um problema importante Para certas situa es biom tricas os resultados simulados afastavam se demasiado da realidade observada verificando se acr scimos demasiado elevados ou valores excessivos de rea basal estimada Para resolver esta situa o ajustou se um modelo de crescimento novo usando o Software STATISTICA 5 0 usando a idade aproximada das parcelas O modelo utilizado foi o de McDill e Amateis 1992 M com b M py M 63 81254 ab t 1 a 1 381175 O procedimento de balizagem o seguinte Caso a rea basal calculada cres a mais de 3 m2 de um a
44. st rot Then n 0 5225 Else n 0 4384 Case 3 f st rot Then n 0 4805 Else n 0 3964 Case 4 f st rot Then n 0 4407 Else n 0 2826 Case 5 f st rot Then n 0 478 Else n 0 3199 Case 6 f st rot Then n 0 4805 Else n 0 3964 Case Else f st rot Then n 0 3955 Else n 0 2374 End Select calc hdom a st ige a 10 st age n End If End Function Public Function calc abas st As Stand abl As Single hdl As Single nm51 As Single Dim a As Single k As Single n As Single Dim kgq As Single kgnp As Single kgf As Single kg0 As Single Dim fe As Single kg As Single ng0 As Single ngq As Single ngn As Single Dim ag As Single ng As Single ab2 As Single m As Single Dim r As Long If Not st age known Then a 63 9939 hdl k 9 8573 0 442 hdl 2 289 nm51 1000 n 0 4141 ab2 a Exp k k Log abl a 1 n 1 n entrada na fung o de socorro se o acr scimo for superior a 3m2 ou a 95 do valor da ass mptota grande martelada 22 2 2005 If ab2 abl 3 Or ab2 0 95 63 81254 Then m 63 81254 a 1 381175 ab2 m 1 1 m abl st age st age 1 a End If calc_abas ab2 CELPASIM 2 0 Manual do Utilizador DRAFT Exit Function Else If st age 0 Then calc abas 0 Exit Function End If Select Case ConcCodes st concelho reg glob Case ly If st rot 1 Then kg0 4 482 ng0 3 735 Else kg0 0 7582 ng0 2 8638 End If Case 3
45. ta se com o volume rankl rankl standl vol sc gt stand2 vol sc End If the rot flag again these stands should never be harvested If standl rot 0 Then rankl ranki 1000 If stand2 rot 0 Then rank2 rank2 1000 Compare rankl gt rank2 order descending End Function Public Sub QSort low As Long high As Long basic qsrot routine coirtesyy of randy birch Thanks Dim pivot As Stand Dim tmpSwap As Stand Dim tmpLow As Long Dim tmpHigh As Long tmpLow low tmpHigh high pivot Stands Int low high 2 While tmpLow tmpHigh compare 1 While Compare Stands tmpLow pivot And tmpLow high CELPASIM Manual do Utilizador DRAFT 23 06 05 2 0 tmpLow Wend compare 2 While Compare pivot tmpHigh tmpHigh Wend swap If tmpLow tmpHigh Then tmpSwap Stands tmpLow Stands tmpLow Stands tmpHigh tmpSwap tmpLow tmpLow 1 tmpHigh tmpHigh End If Wend If low tmpHigh If tmpLow high End Sub tmpLow 1 Then Ca Then Ca ll QSort LI QSort Public Sub StandCopy s_to As Stand copies s from to s to S to id s from id S to name s from name S to area s from area ratio S to region s from region S to concelho s from concelho S to age s from age S to age known s from age known S to dqm s from dqm S to rot s from rot S to ige s from iqe S to ba init s from ba init S to hd init s from hd init S to ba s from ba S to

CELPASIM 2.0 Manual do Utilizador

Contents

Download Pdf Manuals

Related Search

Related Contents