AB'SÁBER, A. N. 2001. Litoral do Brasil. São Paulo: Metalivros. 281 p. il.
ALHEIROS, M. M.; LIMA FILHO, F, M. Revisao Geológica da Faixa Costeira de Pernambuco, Paraiba e Rio Grande do Norte e do seu Embasamento - A Formação Barreiras. BOLETIM DGEO/UFPE - Serie Estudos e Pesquisas, v. 10, p. 77-88, 1991.
AMARAL, R.F. Contribuição ao Estudo da Evolução Morfodinâmica do Litoral Oriental Sul do Rio Grande do Norte, entre Ponta de Búzios e Baia Formosa. Tese de doutorado. Curso de Pós-Graduação em Geociências. UFRS. Porto Alegre. 1999. 252p.
__________. A dinâmica evolutiva e o problema da erosão na zona costeira do município de Tibau do Sul/RN. Grupo de Estudos em Geotecnologia e Meio Ambiente – GEOTEC. Parecer Técnico. 2001. 38p.
__________.; SANTOS JÚNIOR, O. F.; PEREIRA, D. A. O uso de técnicas de geoprocessamento para a avaliação da ocupação humana na zona costeira. A construção de um hotel pousada próximo à borda de falésias no Município de Tibau do Sul.. In: VIII Congresso da Associação Brasileira de Estudos do Quaternário, 2001, Mariluz, Imbé (RS). Anais, p. 1-2.
BARRETO, A.M.F.; SUGUIO, K.; BEZERRA, F.H.R.; TATUMI, S.H.; YEE, M. & GIANNINI, P.C.F. 2004. Geologia e Geomorfologia do Quaternário Costeiro do Estado do Rio Grande do Norte. In: Revista do Instituto de Geociências da USP. V.4, n. 2, p. 1-12.
BENEDET, L., FINKL, C. W., KLEIN, A. H. F. 2004. Morphodynamic Classification of Beaches on The Atlantic Coast of Florida: Geographical Variability of Beach Types, Beach Safety and Coastal Hazards. Journal of Coastal Research, Special Issue 39. ISSN 0749-0208.
BEZERRA, F. H. R. ; AMARAL, R. F. ; SENA, E. S. ; FRANCA, F. A. N. ; LIMA FILHO, F. P. . Beachrock fracturing and erosion in northeastern Brazil. In: IX Congresso da Associação Brasiliera de Estudos do Quaternário e II Congresso do Quaternário de Países de Língua Portuguesa, 2003, Recife - PE. Anais. Recife - PE : ABEQUA, 2003. v. CD. p. 1-4.
BIGARELLA, J. J., 2003. Estrutura e Origem das Paisagens Tropicais e Subtropicais. Florianópolis: Ed. UFSC. v.3 pp.877-1436.
BRAGA, K. G., 2005. O Uso do Checklist na Identificação de Processos Erosivos. 2005. Dissertação de Mestrado – PPgES – Universidade Federal do Rio Grande do Norte. 99pp.
BUSH, D. M.; NEAL, W. J.; YOUNG, R. S.; PILKEY, O. H. 1999. Utilization of Geoindicators for Rapid Assessment of Coastal-Hazard Risk and Mitigation. Ocean & Coastal Management 42. Ed. Elsevier. pp 647-670.
CÂMARA, G.; MEDEIROS, J. S. de. Princípios básicos em geoprocessamento. In: ASSAD, E. A.; SANO, E. E. Sistemas de informações geográficas: aplicações na agricultura. Brasília: EMBRAPA–CPAC, 1998b. p. 3-11.
CARTER, R.W.G. Coastal Environments: An Introduction to the Physical, Ecological and Cultural systems of coastlines. Academic press, London, 1988. 617pp.
CESTARO, L. A. 2002. Fragmentos de florestas atlânticas no Rio Grande do Norte: relações estruturais, florísticas e fitogeográficas. Tese de Doutorado em Ecologia e Recursos Naturais – Universidade de São Carlos/Brasil.
COWELL P. J.; THOM B. G. Morphodynamics of Coastal Evolution. In: Carter R. W. G., & Woodroffe C. D., (eds.). Coastal Evolution. Cambridge University Press, 1994. pp 33-86.
CUNHA, E. M. S. 2005. Evolução Atual do Litoral de Natal – RN (Brasil) e suas Aplicações a Gestão Integrada. Tese de Doutorado – Programa de Doctorado de Ciencias del Mar Departament d’Ecologia - Universidade de Barcelona. 393pp.
DAVIS, R. A.; FITZGERALD, D. M. Beaches and Coasts. Oxford - UK: Blackwell Science Ltd. pp. 419. 2004.
DAVIS, R. A., HAYES, M. O., What is a wave dominated coast? Marine Geology, 60: pp. 313-329. 1984.
DAVIES, J. L. 1964. A Morphogenic approach to world shorelines, Zeitschrift für Geomorphologie, Mortensen Sonderheft. pp. 127-142.
DEAN, R.G., 1973. Heuristic models of sand transport in the surf zone. Proceedings of Conference on Engineering Dynamics in the Surf Zone (Sydney, Australia), pp. 208–214.
DEL RÍO, L., et. al. 2002. The Quantification of Coastal Erosion Processes in the South Atlantic Spanish Coast: Methodology and Preliminary Results. Littoral 2002, The Changing Coast. EUROCOAST / EUCC, Porto – Portugal Ed. EUROCOAST – Portugal, ISBN 972-8558-09-0
DINIZ, R.F.; DOMINGUEZ, J.M.L. 1999. Erosão costeira no litoral oriental do Rio Grande do Norte. Anais: VII Congresso da ABEQUA. Porto Seguro.
DOTTORI, M.; NEGRAES, R. GPS/Global Positioning System: Manual Prático. São Paulo: Editora Fittipaldi, 1997.
FERNANDES, N. F., et. al. 2001. Condicionantes geomorfológicos dos deslizamentos nas encostas: avaliação de metodologias e aplicação de modelo
FERNANDES, R. C. 2005. Diagnóstico Geoambiental Com Uso do Geoprocessamento Visando a Determinação de Potencialidades de Uso do Solo Para a Área Estuarina do Rio Curimataú - Canguaretama (RN). Dissertação de Mestrado. Programa de Pós Graduação em Geociências – UFRN.
FERREIRA JÚNIOR, A. V. Mapeamento da Zona Costeira Protegida por Arenitos de Praia (Beach-Rocks) em Nísia Floresta/RN. Dissertação de Mestrado – Pós Graduação em Geodinâmica e Geofísica – UFRN. 2005. 92p.
GOURLAY, M.R., 1968. Beach and Dune Erosion Tests. Delft Hydraulics Laboratory, Report M935/M936.
GUERRA, A.J.T; SILVA, A.S; BOTELHO, R.G.M. Erosão e conservação dos solos: conceitos temas e aplicações. 1. ed. Rio de Janeiro: Bertrand Brasil, 1999. 340p.
HALLIGAN, G. H. (1906) “Sand movement on the New South Wales coast”. Proc. Limn. Soc. N. S. W. 31: 619–40.
HOEFEL, F. G., 1998. Morfodinâmica de Praias Arenosas Oceânicas: uma revisão bibliográfica. Itajaí: Ed. UNIVALI. 92p.
HOPLEY, D. 1986. Beachrock as a sea-level indicator. In: O. van de Plassche (ed.) Sea Level Research: A manual for the collection and evaluation of data. Geobooks: Norwich, 157-173.
INMAN, D. L. 1952. Measures for describing the size distribution of sediments. Journal of Sedimentary Petrology., 22: 125-145p.
__________.; NORDSTROM, F. K. 1971. On the Tectonic and Morphological Classification of Coasts. Journal of Geology. 79: 1-21pp.
IPT, Instituto de Pesquisas Tecnológicas. Manual de ocupação de encostas, São Paulo: USP, 1991.
JESUS, A. P. 2002. Caracterização Geológica, Geomorfológica e Geotécnica de um Corpo de Dunas na Cidade de Natal/RN. CCET/PPGG/UFRN, Natal. Dissertação de Mestrado. 227pp.
KLEIN, A.H.F. Um Método Indireto Para a Determinação do Estágio Morfodinâmico de Praias Oceânicas. In: ANAIS, VI Congresso da Associação Brasileira de Estudos do Quaternário (Curitiba, ABEQUA), 1997. p.76-78.
KOMAR, P. D. 1983. Handbook of Coastal Processes and Erosion. CRC Press Inc.,Boca Raton, FL. 320 pp.
KOMAR, P. D., 1976. Beach Processes and Sedimentation. Ed. Prentice Hall, Inc. Englewood Cliffs, n. j. 429pp.
KRUMBEIN, W. C.; Size Preferency Distribution of Sediments. Journal of Sedimentary Petrology, USA, v. 4, 1934.
LUMPKIN, R.; S. L. GARZOLI. 2005. Near-surface circulation in the tropical Atlantic Ocean. Deep-Sea Res. I, 52, p.495-518.
MABESOONE, J. M.;ALHEIROS, M. M. Origem da bacia sedimentar costeira Pernambuco/Paraíba. Revista Brasileira de Geociências, São Paulo, v. 18, n. 4, p. 476-482, dez. 1988.
MASSELINK, G. & SHORT, A. D. 1993. The effect of tide range on beach morphodynamics and morphology: a conceptual beach model. Journal of Coastal Research, 9(3):785-800.
NIMER, E. 1989. Climatologia do Brasil. Rio de Janeiro: Instituto Brasileiro de Geografia e Estatística, Departamento de Recursos Naturais e Estudos Ambientais. 1989. 422p.
PEJON, O. J.; ZUQUETTE, L. V.. Cartografia Geotécnica e Geoambiental. Conhecimento do Meio Físico: Base para a Sustentabilidade. 1. ed. São Carlos - SP: Suprema - gráfica e editora Ltda, 2004. v. 1. 582 p.
PEREIRA, L. B. F. 1999. Mapeamento Geológico, Estratigrafia Cenozóica e Estruturação Neotectônica da Região Costeira entre Ponta Negra e Redinha e Estuário do Rio Potengi. Departamento de Geologia, Universidade Federal do Rio Grande do Norte, Natal, Relatório de Graduação, 62p.
PIERRI, G. C. S., et. al. 2007. A beleza das Falésias e Dunas de Pipa. Anais do XXII Simpósio de Geologia do Nordeste. Natal RN.
PINHEIRO, L de S., et. al. Impactos da Erosão nas Atividades Turísticas das Praias de Iparana d Pacheco, Caucaia-CE. II Congresso Brasileiro de Oceanografia 09 a 12 de Outubro de 2005 - Vitória - ES – Brasil.
RUGGIERO, P., et. al. 2005. Seasonal to interannual morphodynamics along a high-energy dissipative littoral cell. Journal of Coastal Research, 21(3), 553– 578. West Palm Beach (Florida), ISSN 0749-0208.
SANTOS JÚNIOR, O. F., et. al. Mecanismos de Ruptura de Taludes em Sedimentos Terceários da Formação Barreiras no Litoral do Rio Grande do Norte. In: III Conferência Brasileira sobre Estabilidade de Encostas, 2001, Rio de Janeiro. Rio de Janeiro: Associação Brasileira de Mecânica dos Solos e Engenharia Geotécnica, 2001. p.165-170.
SANTOS JÚNIOR, O. F.; AMARAL, R. F.; SCUDELARI, A. C. Procesos Erosivos en la Desembocadura de la Laguna de Guaraíras. In: 12th Panamerican Conference on Soil Mechanics and Geotechnical Engineering, 2003, Cambridge, Massachusetts. Soil and Rock America 2003. Essen : Verlag Glückauf, 2003. v. 1. p. 827-832.
SANTOS JÚNIOR, O. F.; SEVERO, R. N. F.; FREITAS NETO, O. de.; FRANÇA, F. A. N . Análise da Estabilidade nas Falésias entre Tibau do Sul e Pipa - RN. In: Anais da IV COBRAE. Salvador : Escola Politécnica, UFBA, 2005. v. 1. p. 487-496.
SCUDELARI, A. C.; FREIRE, L. C. da S. Determinação dos Impactos Ambientais na Construção de um Sistema Hoteleiro nas Falésias em Tibau do Sul/RN. Brazilian Journal of Aquatic Science and Technology, Brasil, v. 9, n. 1, p. 39-43, 2005.
SCUDELARI, A. C., et. al. Estudos dos Processos Erosivos Instalados na Praia de Pipa-RN. Brazilian Journal of Aquatic Science and Technology. 2005a, 9(1): 31-36.
SCUDELARI, A. C., et. al. Identificação Preliminar dos Impactos Ambientais Devidos à Erosão Costeira nas Falésias de Pipa/RN. In: 23o Congresso Brasileiro de Engenharia Sanitária e Ambiental, Campo Grande. 2005b. v. 1. p. 1-10.
SCUDELARI, A. C.; BRAGA, K. G.; COSTA, F. A. A. O Uso de Checklist como Ferramenta de Identificação dos Processos Erosivos na Praia da Pipa - RN. In: 23o Congresso Brasileiro de Engenharia Sanitária e Ambiental, Campo Grande, 2005c. v. 1. p. 1-10.
SEVERO, R. N. F. 2005. Análise da Estabilidade das Falésias Entre Tibau do Sul e Pipa/RN. Dissertação de Mestrado – Pós Graduação em Engenharia Sanitária - UFRN. 139p.
SHORT, A. D. 1982. Morphodynamics of a macrotidal beach. Marine Geology, [S.l.], v. 50, p97-128.
__________. Beach morphodynamics in variable wave, tide and sediment – toward a global beach classification system. In: Sandy Beaches´94, 1994, Valdivia, Chile. Resumos. 1994. p. 27-28.
SILVA, W. de S. Estudo da Dinâmica Superficial e Geotécnico das Falésias do Município de Tibau do Sul – Litoral Oriental do RN. 2003. Dissertação (Mestrado em Engenharia Sanitária) – UFRN, Natal.
__________. ; SANTOS JÚNIOR, O. F.; AMARAL, R. F.; SCUDELARI, A. C. Erosão Costeira nas Falésias de Tibau do Sul - Litoral Leste do Rio Grande do Norte. In: Anais do II Congresso sobre Planejamento e Gestão das Zonas Costeiras dos Países de Expressão Portuguesa, 2003, Recife.
SILVEIRA, J. D. 1964. Morfologia do Litoral Brasileiro. In: Azevedo, A. (ed).
Brasil: a terra e o homem. Companhia Editora Nacional, São Paulo.Volume 1:
253-305.
SUGUIO, K., 1973, Introdução a Sedimentologia. Ed. Edgard Blucher, EDUSP, São Paulo, 317p.
__________., MARTIN L., BITTENCOURT A.C.S.P., DOMINGUEZ J.M.L., FLEXOR J.M., AZEVEDO A.E.G. 1985. Flutuações do nivel relativo do mar durante o Quaternario Superior ao longo do literal brasileiro e suas implicações na sedimentacao costeira. Revista Brasileira de Geociências., 15:273-286
TAGLIANI, C. R. A,. Técnica para Avaliação da Vulnerabilidade Ambiental de Ambientes Costeiros Utilizando um Sistema Geográfico de Informações. Anais XI SBSR, Belo Horizonte, Brasil, 05 - 10 abril 2003, INPE, p. 1657 - 1664.
TROVISCO, L. O. Os SIG em Estudos da Orla Costeira - Metodologias para Utilização de Fotografias Aéreas e sua Integração com Informação Geográfica Diversa. ESIG 2004, 2 a 4 de Junho 2004, Tagus Park, Oeiras (CD).
WRIGHT, L. D. & SHORT, A. D. 1984. Morphodynamic variability of surf zones and beaches: A synthesis. Marine Geology, 56:93-118.
WRIGHT, L. D.; THOM, B. G. Coastal Depositional Landforms: a Morphodynamic Approach. Progress in Physical Geography, 1. pp. 412-459. 1977.
VITAL, H. (Org.). Rio Grande do Norte. In: Dieter Muehe. (Org.). Erosão e Progradação do Litoral Brasileiro. Brasília: Minstério do Meio Ambiente, 2006, v. 1, p. 155-172.
ZUQUETTE, L. V. ; GANDOLFI, N. Cartografia Geotécnica. , 2004. v. 1. 500 p.
ANEXO 1
PLANILHA DE CAMPO – TIBAU DO SUL
Dia/Horário: ____/____/________ Aspectos Físicos Localização da Praia Nome da praia_______________________________________________ Localização (latitude/longitude) __________________________________ Comprimento da Praia_________________________________________ Orientação__________________________________________________ Grau de Proteção (arco, praia de enseada, praia de bolso) ____________ Zonação: local, estado, etc. Desenho da Praia:
Clima de Ondas
Altura de onda_______________________________________________ Período da onda_____________________________________________ Direção da Onda_____________________________________________ Zona de Geração (local, sudeste, nordeste...) ______________________ Variabilidade ao longo da costa da altura da onda___________________ Tipo de quebra da onda (spilling, plunging, collapsing, surging)
_________________________________________________________
Sedimentos da praia (análise posterior)
Tamanho de grão_____________________________________________ Composição sedimentos (% carbonate)___________________________ Coloração dos sedimentos______________________________________ Amostragem (ante-praia, berma, face da praia, espraiamento, bancos adj)
No Lat ? Long ? Sub-ambiente
Tipo de praia
Largura do pós praia, declividade e altura da berma__________________ Largura da face da praia/declividade (tem degrau)___________________ Largura da zona de surfe/declividade_____________________________ Tipo de praia (dominada por ondas/dominada por marés) _____________ Estágio da praia (dominada por ondas – reflectiva, intermediária,
dissipativa)________________________________________________ Numero de bancos____________________________________________
Tipo/forma do banco interno____________________________________ Numero de corrente de retorno (interno,externo)____________________ Espaço entre correntes de retorno________________________________ Rips topográficas (numero, localização)___________________________ Rip Estrutural (numero, localização)______________________________ Surf – avaliação da zona de surf_________________________________
Ante Praia
Duna (presença, altura, largura)_________________________________ Falésias (altura, tipo, gradiente angular) ___________________________
_________________________________________________________ Vegetação (tipo de cobertura vegetal) ____________________________
Limites & outras características físicas
Promontórios (altura)__________________________________________ Inlets_______________________________________________________ Estruturas (Espigões, muros, groynes, seawalls,
breakwaters)_____________________________________________ Outras características locais
Acesso & estacionamento______________________________________ Facilidades__________________________________________________ Sinalização__________________________________________________
ANEXO 2
Programa A_Granulométrica – Utilizado para a análise granulométrica dos sedimentos das praias. (Programação em software MatLab 7.0):
%Universidade Federal do Rio Grande do Norte - UFRN
%Programa de Pos-Graduaçao em Geofisica e Geodinamica - PPGG %Laboratorio de Estudos Geo-Ambientais - LEGEO
%
%Autor: Eduardo Vitarelli de Queiroz %
%Versão de projeto específico:
%TITULO: Erosão Costeira Tibau do Sul %MESTRANDO: Guilherme Cherem Schwarz Pierri %---
% -- Rotina de Analise Granulometrica e Estatistica Basica do Sedimento --
% 1 -- Inicio do modulo de entrada dos nomes dos arquivos a serem tratados
% - Lista de variáveis: %
%. nf = numero de arquivos a serem tratados (mesmo intervalo de medição);
%. i = indice de controle;
%. quote = atribuição do caracter " ' " em uma variavel;
%. fop = montagem do comando para abrir os arquivos desejados; %. ask = montagem da pergunta para usuario;
%. resp = resposta do usuario.
quote=setstr(39);
nf = input('Numero de arquivos a tratar: '); i=1;
fop='char(';
while (i<=nf)
ask=strcat('Insira o nome do arquivo (com extensao *.txt) (',num2str(i),'):'); resp=[]; while (isempty(resp)==1) resp=input(ask,'s'); end if (i==1) fop=strcat(fop,quote,resp,quote); else fop=strcat(fop,',',quote,resp,quote); end i=i+1; end fop=strcat(fop,')'); fop=eval(fop);
%. ponto = posição do caracter "." no em narqt; %. narq = nome do arquivo sem extensão;
%. narqo = montagem do comando de abertura do arquivo;
%. pa = classes granulemetricas ['matacao' 'calhau' 'seixo' 'granulo' 'areia muito grossa' 'areia...
% grossa' 'areia media' 'areia fina' 'areia muito fina'];
i=1;
while (i<=nf)
narqt=fop(i,:);
ponto=strfind(narqt,'.'); narq=narqt(1:ponto-1);
narqo=strcat('load',[' ' narqt]); eval(narqo);
pa=strcat('pa=',narq,'(1,:);'); eval(pa); % 3 -- Analise Granulometrica % - Lista de Variaveis: %. pt = peso total; %. ta = tamanho da amostra; %. cg = porcentagem granulometrica; %. ct = porcentagem total.
%. ac = dados de frequencia acumulativa;
% - Calculo da porcentagem granulometrica (cg)
pt = sum(pa) ta = [2 1 0.5 0.250 0.125 0.0625]; cg = (pa.*100)./pt; cascalho = cg(1,1); areia = cg(1,2) + cg(1,3) + cg(1,4) + cg(1,5)+ cg(1,6); agrossa = cg(1,2) + cg(1,3); amedia = cg(1,4); afina = cg(1,5) + cg(1,6); cascalho = round(cascalho); areia = round(areia); agrossa = round(agrossa); amedia = round(amedia); afina = round(afina);
%Calculo da porcentagem total (ct)
ct = sum(cg)
deve_ser = 100
% - Calculo do PHI
phi = -log2(ta);
ac = cumsum(cg);
% - Curva de Frequencia acumulada (PHI)
figure(1)
%. Grafico com curvas:
%Obs: Caso queira utilizar este Grafico retire o %
%das tres proximas linhas e coloque na primeira linha do grafico
com
%retas.
%xx = -8:.01:12;
%yy = spline(phi,ac,xx);
%plot(phi,ac,'ob',xx,yy,'-k','LineWidth',2) % - Plotar figura.
%. Grafico com retas:
plot(phi,ac,'-ok','LineWidth',2) % - Plotar figura.
set(gcf,'Color',[1,1,1]) % - insere fundo branco .
zoom on %set(gca,'XTick',-3:.05:10,'FontSize',6) % %set(gca,'YTick',0:1:100,'FontSize',10) %set(gca,'XTickLabel',{'-9';'';'-8';'';'-7';'';'-6';'';'-5';'';'- 4';'';'-3';'';'-2';'';'- 1';'';'0';'';'1';'';'2';'';'3';'';'4';'';'5';'';'6';'';'7';'';'8';'';' 9';'';'10';'';'11';'';'12';'';'13'})
title(['Distribuiçao Granulometrica - '
narq],'FontSize',12,'FontWeight','bold') xlabel('Escala PHI','FontSize',12)
ylabel('Frequencia porcentual acumulada em peso
(%)','FontSize',12)
axis([-1 4 0 100]) % - Tamanho dos eixos x e y, respectivamente.
grid on
text(-9.082,5,[' 5 ---
'],'HorizontalAlignment','center','color','red');
text(-9.082,16,['16 ---
'],'HorizontalAlignment','center','color','red');
text(-9.082,50,['50 ---
'],'HorizontalAlignment','center','color','red');
text(-9.082,84,['84 ---
'],'HorizontalAlignment','center','color','red');
text(-9.082,95,['95 ---
'],'HorizontalAlignment','center','color','red');
% - Curva de frequencia acumulada (Wentworth)
figure(2) zoom on
% - plota figura com escala logaritmica no eixo x.
semilogx(ta,ac,'-ok','LineWidth',2)
% - reverte o eixo x.
set(gca,'XDir','reverse')
% - insere fundo branco.
title(['Distribuiçao Granulometrica - '
narq],'FontSize',12,'FontWeight','bold')
% - Define eixo x.
text(0.35,-5,['Diametro do grão
(mm)'],'HorizontalAlignment','center','FontSize',12,'color','k');
%xlabel('Diametro dos graos (mm)','FontSize',12)
% - Define eixo y.
ylabel('Frequencia porcentual acumulada em peso
(%)','FontSize',12);
%Destaca as porcentagens acumuladas que devem ser obtidas.
text(1060,5,[' 5 ---
'],'HorizontalAlignment','center','color','red');
text(1060,16,['16 ---
'],'HorizontalAlignment','center','color','red');
text(1060,50,['50 ---
'],'HorizontalAlignment','center','color','red');
text(1060,84,['84 ---
'],'HorizontalAlignment','center','color','red');
text(1060,95,['95 ---
'],'HorizontalAlignment','center','color','red');
% - Insere grade de classificaçao e a porcentagem, em peso,
relacionado
% a cada tamanho de grao.
srtcas = num2str(cascalho); srtare = num2str(areia); srtagr = num2str(agrossa); srtame = num2str(amedia); srtafi = num2str(afina); %text(256,0,['|'],'HorizontalAlignment','center','color','b','FontSize ',20); %text(30,-10,['Cascalho ',srtcas,'%'],'HorizontalAlignment','center','color','b','FontSize',10 ); %text(2,0,['|'],'HorizontalAlignment','center','color','b','FontSize', 20); text(0.35,-11.7,['Areia
',srtare,'%'],'HorizontalAlignment','center','FontSize',10,'color','b'
);
text(1,-9.3,['Grossa
',srtagr,'%'],'HorizontalAlignment','center','FontSize',8,'color','b') ;
text(0.5,0,['|'],'HorizontalAlignment','center','FontSize',5,'color','
b','FontSize',15);
text(0.35,-9.3,['Media
',srtame,'%'],'HorizontalAlignment','center','FontSize',8,'color','b') ;
text(0.250,0,['|'],'HorizontalAlignment','center','FontSize',5,'color'
,'b','FontSize',15);
text(0.15,-9.3,['Fina
',srtafi,'%'],'HorizontalAlignment','center','FontSize',8,'color','b') ;
%text(0.0625,0,['|'],'HorizontalAlignment','center','color','b','FontS ize',20); % 4 -- Analises Estatisticas % - Lista de Variaveis:
%. 'n' = porcentagem acumulada a ser encontrada %. ac'n' = termos percentuais menores que 'n'; %. ac'n'maior = termos percentuais maiores que 'n'; %. ac'n'a = localizaçao do maior termo menor que 'n'; %. ac'n'b = localizaçao do menor termo maior que 'n'; %. acme'n' = valor do maior termo menor que 'n'; %. acme'n' = valor do menor termo maios que 'n';
%. dif1'n' = diferença dos valores da escala phi, entre o maior e o menor termo
% - Calculo das porcentagens granulometricas
% - Calculo do d95. ac95 = find(ac<95); ac95maior = find(ac>95); ac95a = max(ac95); ac95b = min(ac95maior); acme95 = ac(ac95a); acma95 = ac(ac95b);
dif195 = phi(ac95b) - phi(ac95a); dif295 = acma95 - acme95;
dif395 = 95 - acme95;
d95 = ((abs(dif195) * dif395)/(acma95 - acme95))+phi(ac95a);
% - Calculo do d84, d50, d16, d05 respectivamente. ac84 = find(ac<84); ac50 = find(ac<50); ac16 = find(ac<16); ac05 = find(ac<05); eac84 = length(ac84) eac50 = length(ac50); eac16 = length(ac16); eac05 = length(ac05); if eac84 == 0 d84 = phi(1); end if eac84 > 0 ac84maior = find(ac>84); ac84a = max(ac84); ac84b = min(ac84maior); acme84 = ac(ac84a);
end if eac50 == 0 d50 = phi(1); end % - Calculo do d50. if eac50 > 0 ac50maior = find(ac>50); ac50a = max(ac50); ac50b = min(ac50maior); acme50 = ac(ac50a); acma50 = ac(ac50b);
dif150 = phi(ac50b) - phi(ac50a); dif250 = acma50 - acme50;
dif350 = 50 - acme50;
d50 = ((abs(dif150) * dif350)/(acma50 - acme50))+phi(ac50a); end if eac16 == 0 d16 = phi(1); end % - Calculo do d16. if eac16 > 0 ac16maior = find(ac>16); ac16a = max(ac16); ac16b = min(ac16maior); acme16 = ac(ac16a); acma16 = ac(ac16b);
dif116 = phi(ac16a) - phi(ac16b); dif216 = acma16 - acme16;
dif316 = 16 - acme16;
d16 = ((abs(dif116) * dif316)/(acma16 - acme16))+phi(ac16a); end % - Calculo do d05. if eac05 == 0 d05 = phi(1); end if eac05 > 0 ac05maior = find(ac>05); ac05a = max(ac05); ac05b = min(ac05maior); acme05 = ac(ac05a); acma05 = ac(ac05b);
dif105 = phi(ac05a) - phi(ac05b); dif205 = acma05 - acme05;
dif305 = 05 - acme05;
d05 = ((abs(dif105) * dif305)/(acma05 - acme05))+phi(ac05a); end phi05 = d05; phi16 = d16; phi50 = d50; phi84 = d84; phi95 = d95;
mediana = phi50
% - Calculo da Media (Otto, 1939 ; Inman, 1952)
media = (phi84+phi16)/2
%. Obs> Caso a districuiçao seja bimodal ou mesmo amplamente
distrbuida
%nas classes granulometricas aconselha-se utilizar a media
descrita
%abaixo.
%media = (phi84 + phi50 + phi16)/3;
% - Calculo do Desvio Padrao (Otto, 1939 ; Inman, 1952)
desvpad = (phi84 - phi16)/2
% - Calculo do Grau de Assimetria (Inman, 1952)
assimetria = (media - mediana)/desvpad
% - Calculo da Curtose
curtose = ((phi16 - phi05) + (phi95 - phi84))/(2*desvpad)
% - Obtem os valores em duas casas decimais depois da virgula
medianag = mediana*100; mediag = media * 100; desvpadg = desvpad * 100; assimetriag = assimetria * 100; curtoseg = curtose * 100; medianaar = round(medianag); mediaar = round(mediag); desvpadar = round(desvpadg); assimetriaar = round(assimetriag); curtosear = round(curtoseg); mediana = medianaar/100 media = mediaar/100 desvpad = desvpadar/100 assimetria = assimetriaar/100 curtose = curtosear/100 % - Histograma figure(3) bar(phi,cg,-0.4,'k') set(gcf,'Color',[1,1,1]) axis([-1.5 4.5 0 100])
srtmed = num2str(media); srtmen = num2str(mediana); srtdvp = num2str(desvpad); srtass = num2str(assimetria); srtcrt = num2str(curtose); text(-0.7,-8,['Media
',srtmed],'HorizontalAlignment','center','color','b','FontSize',9,'Fon
tWeight','bold');
text(0.3,-8,['Mediana
',srtmen],'HorizontalAlignment','center','color','b','FontSize',9,'Fon
tWeight','bold');
text(1.3,-8,['DesvPad
',srtdvp],'HorizontalAlignment','center','color','b','FontSize',9,'Fon
tWeight','bold');
text(2.3,-8,['Assimetria
',srtass],'HorizontalAlignment','center','color','b','FontSize',9,'Fon
tWeight','bold');
text(3.3,-8,['Curtose
',srtcrt],'HorizontalAlignment','center','color','b','FontSize',9,'Fon
tWeight','bold');
% 5 -- Saida dos dados
% - Salva os dados em formato .txt
ifigura = [ta', ac', phi', cg'];
estat = [mediana, media, desvpad, assimetria, curtose]; csvwrite([narq '_gran.txt'],ifigura)
csvwrite([narq '_esta.txt'],estat)
% - Salva as figuras em formato .jpg
saveas(figure(1),[narq '_fac_phi.jpg']) saveas(figure(2),[narq '_fac_mm.jpg']) saveas(figure(3),[narq '_hist.jpg']) i=i+1; end % -- Fim.
Programa plot_perfis – Utilizado para a plotagem dos perfis das praias de Pipa, Curral e do Madeiro. (Programação em software MatLab 7.0):
%-- Entrada de dados -- load perfil6a.txt; load perfil8a.txt; load perfil9a.txt; dado1 = perfil6a; dado2 = perfil8a; dado3 = perfil9a;
%-- Definição das variáveis -- %e1 = coordenadas E
%n1 = coordenadas N
%ep = primeira coordenada E %en = primeira coordenada N
e2 = dado2(:,1); e3 = dado3(:,1); n1 = dado1(:,2); n2 = dado2(:,2); n3 = dado3(:,2); z1 = dado1(:,3); z2 = dado2(:,3); z3 = dado3(:,3); ep1 = e1(1); ep2 = e2(1); ep3 = e3(1); np1 = n1(1); np2 = n2(1); np3 = n3(1);
%-- Definição da localização da primeira coordenada --
t1 = length(dado1); if e1(1)<e1(t1) de1 = min(e1); else de1 = max(e1); end if n1(1)<n1(t1); dn1 = min(n1); else dn1 = max(n1); end t2 = length(dado2); if e2(1)<e2(t2) de2 = min(e2); else de2 = max(e2); end if n2(1)<n2(t2); dn2 = min(n2); else dn2 = max(n2); end t3 = length(dado3) if e3(1)<e3(t3) de3 = min(e3); else de3 = max(e3); end
%--Transformação de coordenada em distâncias --
d1 = sqrt((e1-de1).^2+(n1-dn1).^2); d2 = sqrt((e2-de2).^2+(n2-dn2).^2); d3 = sqrt((e3-de3).^2+(n3-dn3).^2);
%-- Figura 1: planta do perfil --
figure(1)
plot(e1,n1,'.-b',e2,n2,'.-r',e3,n3,'.-k','linewidth',2) xlabel('E (UTM)')
ylabel('N (UTM)')
title('Planta','FontSize',12,'FontWeight','bold') legend('perfil 1a','perfil 1b','perfil 1c')
%-- Figura 2: perfil de praia --
figure(2)
plot(d1,z1,'.-b',d2,z2,'.-r',d3,z3,'.-k','linewidth',2)
%axis([0 180 -0.5 2 ])
title('perfil','FontSize',12,'FontWeight','bold')
%set(gca,'ytick',-18:1:6)
xlabel('distancia (m)') ylabel('elevação (m)')
legend('perfil 6a','perfil 6b','perfil 6c')
% - Salva as figuras em formato .jpg --
saveas(figure(1),'planta6.fig') saveas(figure(2),'perfil6.fig')