Alongamentos no R

October 14, 2008
By

This post was kindly contributed by fernandohrosa.com.br » R - go there to comment and to read the full post.

Introdução

Usando computadores há mais de 15 anos, em média 12 a 14 horas por dia, a preocupação com a saúde já me fez tomar alguns cuidados especiais para evitar desconfortos com o seu uso. Há uma série de informações na web hoje disponíveis sobre o assunto. Uma página bem completa é a do Aurelio.net: Dicas para evitar lesões no computador.

Cansaço visual

Um cuidado básico, como o Aurélio aponta na página dele, é com a taxa de atualização do seu monitor, para evitar problemas de fadiga visual. Os monitores de LCD/Plasma não tem esse problema, mas se você usa um monitor CRT (aqueles de tubo, trombolhentos) verifique a taxa de atualização (refresh rate) que ele está utilizando (vide Wikipedia: Refresh rate, CNET, The old new thing). Como regra-geral, se seu monitor estiver configurado com uma taxa de atualização de 60Hz ou inferior, as chances de você experimentar fadiga visual, dores de cabeça ou cansaço da vista aumentam fortemente. Se você tiver que usar um monitor do tipo CRT, dê preferência àqueles que suportem 85Hz ou mais de taxa de atualização.

Alongamento

Outro cuidado, que é o tema desta página, é o alongamento em períodos regulares de tempo. Em conjunto com uma postura adequada e pausas regulares, o alongamento dos braços, antebraços, mãos e punhos, pode reduzir grandemente as chances de você desenvolver LER ou outro tipo de lesão.

Já faz uns 4 anos que desenvolvi um programinha em R para sistematizar isso, disponível abaixo. Desde então tornei o alongamento parte da minha rotina regular de uso do computador, e não tive mais problemas com desconforto após longos períodos de tempo no computador.

?Download ex_fisio.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#
# Data da criação: 15/01/2005
# Última atualização: 01/10/2005
# Autor: Fernando H F P Rosa
# Desc: Programinha simples para me auxiliar 
#       a fazer séries de alongamentos no R
# URL: www.feferraz.net/br/P/Alongamentos_no_R
#
 
faz.fisio <- function(quit.on.close=switch(.Platform$OS.type,windows='no','yes'),save.env = switch(.Platform$OS.type,windows='yes','no')) {
    if (.Platform$OS.type == 'windows') { windows(width=11,height=7,canvas='wheat') } else { x11(width=7,height=4,canvas='wheat',xpos=-1,ypos=500) }
    par(ps=100)
    i <- 0
    cont <- 1
    layout(matrix(c(2,3,1,4,5,1),2,3,byrow=TRUE), c(1,1), c(1,1))
    while(1) {
     if ((round(proc.time()[3]) %% 20) == 0) {
      if (is.null(dev.list())) {
            if (quit.on.close == 'yes')
                quit(save.env)
            else
                break;
     }
      plot(0,type='n',axes=F,xlab='',ylab='',xlim=c(-1,1),ylim=c(-1,1))
      if (i %% 5 == 0) {
         text(0,0,cont,vfont=c('sans serif','bold'),cex=2)
         if (cont == 5) { cont <- 1 }
         else { cont <- cont + 1 }
         Sys.sleep(0.4)
      }
      else {
        points(0,0,pch=16,cex=30,col=4)
        Sys.sleep(19.4)
      }
     i <- i + 1
     }
    }
}
ex_fisio screenshot

Modo de uso

Na configuração padrão ele gera 5 séries 4×1 de 20 segundos de duração cada uma. Eu utilizo essa seqüencia para fazer alongamentos dos punhos (para baixo e para cima, direito e esquerdo) e dos braços/antebraços. Também utilizo para fazer alongamento dos musculos da mão, usando aquelas bolinhas de espuma para fisioterapia, que você encontra em qualquer farmácia. Uma dica de uso é ao invés de deixar o programa rodando por si só, abrir um vídeo em outra janela do computador e assistí-lo enquanto você faz o alongamento. Assim, você faz o alongamento e relaxa ao mesmo tempo. Eu gosto de ver episódios de desenhos (Family Guy, South Park, Simpsons), que tem em média cerca de 20 min, o que coincide com aproximadamente 15 séries de 20 segundos 4×1.

Tags: ,

Comments are closed.