Ferramentas do usuário

Ferramentas do site


05_curso_antigo:r2018:alunos:trabalho_final:natane.sibon:start

Natane Sibon Purgato

natane_foto.jpg

Bacharela e Licenciada em Ciências Biológicas (UNICAMP). Mestra em Biologia Animal (UNICAMP). Atualmente, doutoranda em Biodiversidade Animal, Instituto de Biologia, UNICAMP.

Minha tese se intitula: “LEVANTAMENTO E DIVERSIDADE DE ESPÉCIES DE SARCOPHAGIDAE E CALLIPHORIDAE (DIPTERA) DE QUATRO FRAGMENTOS DO BIOMA MATA ATLÂNTICA, SP”. Sou orientada pelo Professor Doutor Arício Xavier Linhares.

Meus Exercicios F F F F F F F

Currículo Lattes: Natane Sibon


**TRABALHO FINAL**

Proposta: **Aromaterapia e a Saboaria Artesanal**

Contextualização

A “Aromaterapia” é um ramo da fitoterapia que se utiliza de óleos 100% puros extraídos de folhas, sementes, raízes, caules, frutos e flores de diversas plantas. Esses óleos podem ser utilizados tanto para o tratamento de enfermidades físicas (como um auxílio aos tratamentos médicos convencionais), como em enfermidades emocionais (depressão, ansiedade, entre outros). Os óleos essenciais podem sem combinados de inúmeras maneiras mas, uma das mais tradicionais é a utilização destes óleos, somados a outros componente para elaborar sabões artesanais.A técnica da saboaria artesanal é antiga e apresenta etapas elaboradas,consistindo basicamente na reação de neutralização de um ou mais óleos com hidróxido de sódio (NaOH), uma base forte. Para que o processo de neutralização seja eficaz, é necessário conhecimento do índice de saponificação de cada óleo. Esse índice é definido como a quantidade de base necessária para que ocorra a saponificação completa de um grama do óleo. Cada gordura e óleo apresenta propriedades de hidratação, limpeza e poder de espuma diferenciados. Por isto, um sabão nunca é fabricado apenas com um tipo de gordura mas, suas combinações. Dessa maneira, é preciso necessário conhecer os índices de saponificação distintos para assim chegar na quantidade exata de NaOH que será utilizado na reação Nessa função o usuário entraria com o tipo de problema que foi subdividido em doze grupos:Dor, Infecção, Inflamação, Problema de pele, Problema respiratório, Feridas, Problema circulatório, Depressão, Problema digestivo, Problema capilar e Problema urinário.A função retornaria uma lista com três dos óleos mais indicados para o problema que o usuário reportar. Além disso, a função tem a opção de que o usuário escolha até duas gorduras para produção de sabão artesanal, retornando seus índice de saponificação (a soma do índice dos dois óleos).

**Planejamento da função**

Entrada: aromasoap ( peso1, peso2=NULL)

peso1, peso2– variável de peso. É o índice de saponificação de cada óleo.

Nesta função o usuário poderá escolher óleos essenciais de acordo com doze categorias de enfermidade. Após escolher as categorias, o usuário também poderá escolher até dois óleos para saponificar, dentre dez opções e lhe daremos os seus índices de saponificação somados (quantidade necessária de hidróxido de sódio para neutralizar um grama do óleo escolhido).

Saída: índice de Saponificação dos óleos (somados) e lista com os óleos mais adequados para o tratamento da enfermidade reportada pelo usuário

Página de Ajuda

aromasoap              package:unknown                R Documentation
 
Escolha o óleo essencial de acordo com seu problema e produza um sabonete a partir das suas escolhas.
 
Description:
 
      A função aromasoap é uma função interativa, dividida em duas partes. Na primeira parte, a função apresenta uma lista dos principais óleos essenciais e seus usos mais frequentes, divididos em doze categorias. O usuário deve responder qual seu problema de saúde e a função sorteia três óleos que podem ser utilizados para auxiliar no tratamento. Após isso, esses três óleos escolhidos podem ser utilizados para confecção de um sabão artesanal. Na segunda parte da função, o usuário recebe uma lista de gorduras e escolhe methods/html/as.html">as gorduras para fazer o sabonete. A função retorna a soma dos índices de saponificação e até duas gorduras/óleos escolhidos para a fabricação do sabonete. 
 
Usage:
 
     aromasoap(peso1,peso2=NULL) 
 
Arguments:
 
peso1= peso ( em gramas do primeiro óleo que será utilizado para a saponificação) 
peso2 =peso ( em gramas do segundo óleo que será utilizado para a saponificação)
 
 
Value:
 
 A função retorna a quantidade de NaOH (EM GRAMAS) que deverá ser utilizada para saponificar os óleos escolhidos pelo usuário, bem como uma lista com os três óleos essenciais que podem ser utilizados para o tratamento da enfermidade reportada no início da função. 
 
Note:
Dentro da função, insira sempre o peso dos óleos que quer saponificar (peso1, peso2) em GRAMAS.
 
Author(s):
 
     Natane de C. S Purgato (natane.sibon@gmail.com)
 
References:
 
      Roberto Akira: http://www.japudo.com.br/ 
      Hall, F.G - A bíblia da Aromaterapia. Editora Pensamento.
      Laszlo Aromaterapia & Aromatologia:http://laszlo.ind.br/default.asp 
 
 
 
 
Examples:
 
     ##----Exemplo!! ----
     ##-- aromasoap(110)# peso (em gramas) de um óleo para saponificação
     ##-- aromasoap(120, 60)# peso (em gramas) para a saponificação de dois óleos
 ===== Código da Função ======
aromasoap<- function(peso1, peso2=NULL) #peso2=NULL indica que caso ele esteja ausente, a função vai entender como nulo. 
{ 
 
analgesico <- c("Jasmin",  "Grapefruit", "Alecrim", "Gengibre", "Canela", "Camomila", "Eucalipto", "Erva-doce", "Hortela", "Melaleuca", "Menta", "Limao", "Cravo", "Manjerona", "Olibano")#Cria um vetor com as opções  de óleos com a função analgesico
 
bactericida<- c("Alecrim", "Camomila", "Canela", "Eucalipto", "Erva-doce", "Cravo", "Tomilho","Hortela", "Lavanda", "Laranja", "Limao", "Melaleuca", "Menta", "Rosa")#Cria um vetor com as opções  de óleos com a função bactericida
 
antiinflamatorio <- c("Alecrim", "Camomila", "Hortela", "Menta", "Melaleuca")#Cria um vetor com as opções  de óleos com a função antiinflamatorio
 
cicatrizante<- c("Camomila","Lavanda", "Melaleuca", "Menta")#Cria um vetor com as opções  de óleos com a função cicatrizante
 
descongestionante<- c("Pinho", "Tomilho", "Limao", "Canela", "Cipreste", "Olibano", "Eucalipto", "Hortela") #Cria um vetor com as opções  de óleos com a função descongestionante
 
dermatologico <- c("Camomila", "Eucalipto", "Hortela", "Lavanda","Rosa", "Melaleuca", "Bergamota", "Capim-limao", "Cedro", "Mandarina", "Palmarosa")#Cria um vetor com as opções  de óleos com a função dermatologico
 
circulatorio <- c("Geranio", "Alecrim", "Limao", "Rosa", "Cipreste" )#Cria um vetor com as opções  de óleos com a função circulatorio
 
antidepressivo <- c("Hortela", "Alecrim","Lavanda","Rosa", "Ylang-Ylang", "Jasmin", "Laranja", "Manjerona", "Menta", "Palmarosa", "Salvia")#Cria um vetor com as opções  de óleos com a função antidepressivo
 
digestivo <- c("Hortela", "Alecrim", "Lavanda", "Limao", "Ylang-Ylang", "Bergamota", "Capim-limao", "Cravo", "Erva-doce", "Laranja", "Mandarina", "Petigrain")#Cria um vetor com as opções  de óleos com a função digestivo
 
diuretico <- c("Geranio", "Capim-limao", "Grapefruit")#Cria um vetor com as opções  de óleos com a função diuretico              
 
capilar <- c("Limao", "Alecrim", "Ylang-Ylang")#Cria um vetor com as opções  de óleos com a função capilar
 
antistress <- c("Bergamota", "Palmorosa", "Salvia")#Cria um vetor com as opções  de óleos com a função antistress
 
#Primeira interação com o usuário
cat(">>>>>Vamos montar um tratamento para você<<<<<") #começando a interação com uma afirmação na tela
 pergunta<- readline(">>>>>Qual é o seu problema? \n 1 - Dor \n 2 - Infecção \n 3 - Inflamação \n 4 - Problema de pele \n 5 - Respiratório \n 6 - Feridas \n 7 - Circulação \n 8 - Depressão \n 9 - Digestão \n 10 - Problema capilar \n 11 - Problema urinário<<<<<")# cria uma pergunta interativa ao usuário
 
dor <- sample(analgesico, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção dor
 
infeccao <- sample(bactericida, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção infecção
 
inflamacao <- sample(antiinflamatorio, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção inflmação
 
problema_pele <- sample(dermatologico, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção problema de pele
 
respiratorio <- sample(descongestionante, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção respiratorio
 
feridas <- sample(cicatrizante, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção feridas
 
circulacao <- sample(circulatorio, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção circulação
 
depressao <- sample(antidepressivo, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção depressão
 
digestao <- sample(digestivo, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção digestão
 
problema_capilar<- sample(capilar, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção problema capilar
 
problema_urinario<- sample(diuretico, size=3, replace=F)#cria um vetor que retorna três opções de óleos quando o usuário escolher a opção problema urinário
 
 
if(pergunta==1){indicacao=sample(analgesico, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor analgesico
if(pergunta==2){indicacao=sample(infeccao, size=3, replace=F)}#caso o usuário escolha a opção número 2, retorna os óleos do vetor infecção
if(pergunta==3){indicacao=sample(inflamacao, size=3, replace=F)}#caso o usuário escolha a opção número 3, retorna os óleos do vetor inflamação
if(pergunta==4){indicacao=sample(problema_pele, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor problema_pele
if(pergunta==5){indicacao=sample(respiratorio, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor respiratorio
if(pergunta==6){indicacao=sample(feridas, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor feridas
if(pergunta==7){indicacao=sample(circulacao, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor circulação
if(pergunta==8){indicacao=sample(depressao, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor depressão
if(pergunta==9){indicacao=sample(digestao, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor digestão
if(pergunta==10){indicacao=sample(problema_capilar, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor problema capilar
if(pergunta==11){indicacao=sample(problema_urinario, size=3, replace=F)}#caso o usuário escolha a opção número 1, retorna os óleos do vetor problema urinario
 
#saboaria
gorduras <- c(  "Amendoa",  "Cacau", "Canola", "Coco", "Gergelim", "Girassol", "Oliva", "Palma", "Soja") #cria vetor com as gorduras e óleos indicados 
 
hidroxido <- c( 0.139, 0.1287, 0.1234, 0.1836, 0.1365, 0.1362, 0.1355, 0.1408, 0.1355) #cria vetor com o índice de saponificação dos óleos
 
saponifica<- data.frame( gorduras, hidroxido) #cria data.frame
pergunta2<- readline(">>>>>Gostaria de saber quais óleos temos? (s ou n) Resposta:") #pergunta ao usuário se ele gostaria de ser informado dos óleos disponíveis para saponificação
 
if(substr(pergunta2, 1, 1)=="s") #para que o usário possa receber uma tabela com os óleos disponíveis
 { print(saponifica$gorduras) #mostra as opções de óleos 
 }
 
sabao <- readline(">>>>Qual(is) gordura(s) deseja adicionar em seu sabonete? Vamos dar seus indices de saponificação somados \n (Digite até duas,sem vírgulas. ex: Amendoa Cacau.") #cria uma pergunta para que o usuário escolhas quais gorduras deseja saponificar
 
 #quando apenas um óleo for requisitado
 
if(sabao=="Amendoa") {saponificacao<-(peso1*hidroxido[1])} #chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Cacau") {saponificacao<-(peso1*hidroxido[2])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Canola") {saponificacao<-(peso1*hidroxido[3])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Coco") {saponificacao<-(peso1*hidroxido[4])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Gergelim") {saponificacao<-(peso1*hidroxido[5])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Girassol") {saponificacao<-(peso1*hidroxido [6])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Oliva") {saponificacao<-(peso1*hidroxido[7])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Palma") {saponificacao<-(peso1*hidroxido[8])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
if(sabao=="Soja") {saponificacao<-(peso1*hidroxido[9])}#chama o valor da coluna hidróxido e multiplica pelo peso (em gramas) especificado pelo usuário.
 
 #para dois tipos de óleos
 
 a=strsplit(sabao, split=" ")[[1]] ## Linha que separa a resposta do usuário em um vetor com dois objetos 
 
 saponificacao=sum((saponifica[gorduras==a[1],2]*peso1), (saponifica[gorduras==a[2],2]*peso2)) #chama o valor da coluna de hidróxido (saponifica) que é referente à reposta que o usuário escreveu
 
indicacao2=do.call(paste, c(as.list(indicacao), sep = ", ")) #Transforma as respostas eu um só vetor, separando as palavras por vírgulas
 
 resposta=list(saponificacao, paste("Para seu tratamento os óleos medicinais",indicacao2, "são indicados.")) ## Retorna a lista de opções que o usurário requisitou. 
 
return(resposta)
 ### Função retorna o valor de saponificação de acordo com as gorduras escolhidas e o peso e quais os óleos indicados para o problema da pessoa. 
 }
 

Arquivos

05_curso_antigo/r2018/alunos/trabalho_final/natane.sibon/start.txt · Última modificação: 2020/09/23 17:14 por adalardo