aprenda onda1 :t
tat
usenada
mudexy 0 -100
blocobmp 200 200
repita 3 [(ativetat contevezes-1) usenada (mudexy -250 -100) uselápis]
;Desenha o Gráfico
façapara [x -200 0 1]~
[
ativetat 0 
atribua "y1 :A*(cosrad :k1_0*:x-:w1*:t) 
mudexy :x :y1+75
ativetat 1
atribua "y2 :A*(cosrad :k2_0*:x-:w2*:t) 
mudexy :x :y2+25
ativetat 2
atribua "y :y1+:y2 
mudexy :x :y-50
]
façapara [x 0 200 1]~
[
ativetat 0 
atribua "y1 :A*(cosrad :k1*:x-:w1*:t)
mudexy :x :y1+75
ativetat 1
atribua "y2 :A*(cosrad :k2*:x-:w2*:t) 
mudexy :x :y2+25
ativetat 2
atribua "y :y1+:y2 
mudexy :x :y-50
]
usenada 
pd 90
mudexy -198 62 rotule "+  
mudexy -198 3  rotule "=  
uselápis  
(salvegif "ondas.gif 0 :adic 0 8)
atribua "adic "verd
fim

aprenda ondas  
tat
mudecl [255 255 255]
mudecp [0 120 180]
mudecf [0 0 120]
atribua "A 15	                   ;amplitude
atribua "v0 2.6                   ;velocidade no vácuo (x<0)
atribua "v1 2.2                   ;velocidade de fase no meio (x>0)
atribua "v2 3
atribua "per1 5                   ;período
atribua "per2 4
atribua "tmax :per1*:per2
atribua "w1 2*PI/:per1	         ;frequência angular
atribua "w2 2*Pi/:per2
atribua "k1_0 :w1/:v0	         ;número de onda
atribua "k2_0 :w2/:v0
atribua "k1 :w1/:v1
atribua "k2 :w2/:v2
(escreva "Vf/c= (:w1+:w2)/(:k1+:k2)/:v0 "Vg/c= (:w1-:w2)/(:k1-:k2)/:v0)
atribua "adic "falso
mudeáreaativa [-200 -100 200 100]
façapara [t 0 :tmax :tmax/60] [onda1 :t]
;onda1 0		;apenas o primeiro quadro
fim

atribua "a 15
atribua "a1c 10.0699300699301
atribua "a1d -0.06993006993007
atribua "a2c 10.0512820512821
atribua "a2d -0.0512820512820512
atribua "a3c 10
atribua "a3d 0
atribua "adic "verd
atribua "append "Verd
atribua "b1 -1.25
atribua "b1c -0.83916083916084
atribua "b1d 0.839160839160839
atribua "b2 1.07142857142857
atribua "b2c 0.717948717948718
atribua "b2d -0.717948717948718
atribua "b3c 0
atribua "b3d 0
atribua "c1 13.75
atribua "c2 15.4205607476636
atribua "c3 10
atribua "d1 0.769230769230769
atribua "d2 -0.769230769230769
atribua "d3 0
atribua "dt 0.2
atribua "e 10
atribua "k 0.314159265358979
atribua "k1 0.571198664289053
atribua "k1_0 0.483321946706122
atribua "k2 0.523598775598299
atribua "k2_0 0.604152433382652
atribua "k3 0.537024385229024
atribua "k3_0 0.537024385229024
atribua "l 10
atribua "lambda 20
atribua "lambda1 11
atribua "lambda1_0 13
atribua "lambda2 12
atribua "lambda2_0 10.4
atribua "lambda3 11.7
atribua "lambda3_0 11.7
atribua "per 10
atribua "per1 5
atribua "per2 4
atribua "per3 4.5
atribua "tmax 20
atribua "v 2
atribua "v0 2.6
atribua "v1 2.2
atribua "v2 3
atribua "v3 2.6
atribua "valido 1
atribua "w 0.628318530717959
atribua "w1 1.25663706143592
atribua "w2 1.5707963267949
atribua "w3 1.39626340159546
atribua "y -1.26877480497146
atribua "y1 6.23122519502866
atribua "y2 -7.50000000000012
atribua "y3 -9.99959945379852