Criar imagens de ondas no R

 Resumo

Estas imagens foram criadas para fins didáticos em aulas de Ciências de Ensino Fundamental, mas também podem ser usadas para aulas de Física de Ensino Médio. O objetivo é demonstras as partes da onda (crista, nó, vale) e as medidas (comprimento e amplitude). É possível comparar imagens parecidas, variando a amplitude da onda ou o comprimento.

Imagens produzidas por este código

 

 

 

 

 

 

 

Código no R ou RStudio

a<-seq(from=0,to=10,by=0.01)
b<-seq(from=0,to=1,by=0.01)
x<-seq(from=0,to=20,by=0.01)

plot(sin(x))
plot(cos(x))

plot(sin(a))
plot(cos(a))

plot(2*sin(a))

plot(1*sin(a),ylim=c(-4,4),type="l",lwd=5)
plot(2*sin(a),ylim=c(-4,4),type="l",lwd=5)
plot(3*sin(a),ylim=c(-4,4),type="l",lwd=5)
plot(4*sin(a),ylim=c(-4,4),type="l",lwd=5)

plot(cos(1*a),ylim=c(-4,4),type="l",lwd=5)
plot(cos(2*a),ylim=c(-4,4),type="l",lwd=5)
plot(cos(3*a),ylim=c(-4,4),type="l",lwd=5)
plot(cos(4*a),ylim=c(-4,4),type="l",lwd=5)


#####

dados<-3*sin(2*a)
plot(dados,ylim=c(-4,4),type="l",lwd=5,ylab="", yaxt="n",xlab="",xaxt="n",
     main="Onda B")

b<-seq(from=0,to=5,by=0.001)


dados<-1*sin(7.2*b)
dados<-1*sin(3.8*b)

plot(dados,
     ylim=c(-2,2),
     type="l",lwd=4,
#     main="λ = 720nm",
#     main="λ = 380nm",
     ylab="", yaxt="n",xlab="",xaxt="n")

 

Criar fluxograma usando DiagrammeR no R

 library(DiagrammeR)

#Input do usuário: a, b, d
a <- 10
b <- 5.5
d <- 6.5


###Função divide cria objetos ameixa, banana, damasco
  divide<-function (x,y,z){
    ameixa <<- x
    banana <<- y*10
    damasco <<- z*100}
 
 
###Função divide a partir dos valores do usuário: a, b, d
  divide(a,b,d)
    ab <<- ameixa*banana
    ad <<- ameixa*damasco
 
 
###Cria fluxograma
  grViz(diagram = "digraph flowchart {
 
  #Fluxograma exibe valores inputados pelo usuário
  node [color = none, style = filled, shape=square]
  total [label= 'Input a = @@1']
  total->1 [arrowhead=vee]
  {rank = same; 1; total;}
 
  node [color = none, style = filled, shape=square]
  legenda [label= 'input b = @@2 \n input c = @@3']
  1->legenda [arrowtail=vee] [arrowhead=vee] [dir=back]
   {rank = same; 1; legenda;}
 
 
  node [fontname = arial, shape = oval]
  1 [label = '@@1']
  node [color = lightblue, style = filled]
  2 [label = '@@2']
  node [color = grey, style = filled]
  3 [label = '@@3']
  node [color = red, style = filled]
  4 [label = '@@4']
  5 [label = '@@5']
  6 [label = '@@6']
 
 
  1->2 [xlabel='a vezes b'];
  1->3 [label='a vezes d'];
  3->4 [xlabel='20%'];
  3->5 [label='30%']
  3->6 [label='50%']
 
}
 
  [1]: a
  [2]: ab
  [3]: ad
  [4]: ad*0.2
  [5]: ad*0.3
  [6]: ad*0.5
 
")

 

 

###Fonte: https://towardsdatascience.com/r-visualizations-flow-charts-in-r-4cfa7f783872
###Fonte: https://rich-iannone.github.io/DiagrammeR/graphviz_and_mermaid.html