aprenda onda1 :t
tat
usenada
mudexy 0 -95 blocobmp :L 90
;Desenha o Gráfico
mudexy -250 -100 uselápis
façapara [x -200 200+:L 1]~
[
atribua "y1 :A*(cosrad :k1_0*:x-:w1*:t)
atribua "y2 :A*(cosrad :k2_0*:x-:w2*:t)
atribua "y :y1+:y2
mudexy :x :y+50
]

usenada
mudexy -250 -100 uselápis

façapara [x -200 0 1]~
[
atribua "y1 :A*(cosrad :k1_0*:x-:w1*:t)
atribua "y2 :A*(cosrad :k2_0*:x-:w2*:t)
atribua "y :y1+:y2 
mudexy :x :y-50
]

façapara [x 0 :L 1]~
[
atribua "y1 :A*(cosrad :k1*:x-:w1*:t)
atribua "y2 :A*(cosrad :k2*:x-:w2*:t)
atribua "y :y1+:y2 
mudexy :x :y-50
]

façapara [x :L 200+:L 1]~
[
atribua "y1 :A*(cosrad :k1_0*:x - :w1*:t + (:k1-:k1_0)*:L)
atribua "y2 :A*(cosrad :k2_0*:x - :w2*:t + (:k2-:k2_0)*:L) 
atribua "y :y1+:y2 
mudexy :x :y-50
]

(salvegif "ondas1.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 "L 60
atribua "A 10	        	;amplitude final
atribua "v0 3.2    		;velocidade no vácuo (x<0)
atribua "v1 -2       		;velocidades de fase no meio (x>0)
atribua "v2 -3
atribua "per1 5                      ;período
atribua "per2 4
atribua "tmax :per1*:per2
atribua "lambda1_0 :per1*:v0         ;comprimento de onda
atribua "lambda2_0 :per2*:v0
atribua "lambda1 :per1*:v1
atribua "lambda2 :per2*:v2
atribua "k1_0 2*PI/:lambda1_0        ;número de onda
atribua "k2_0 2*PI/:lambda2_0
atribua "k1 2*PI/:lambda1
atribua "k2 2*PI/:lambda2
atribua "w1 2*PI/:per1	             ;frequência angular
atribua "w2 2*Pi/:per2
atribua "adic "falso
mudeáreaativa [-170 -100 230 100]
façapara [t 0 :tmax :tmax/60] [onda1 :t]
;onda1 0		;apenas o primeiro quadro
fim

atribua "a 10
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 9.23076923076923
atribua "c2 10.7692307692308
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.628318530717959
atribua "k1_0 0.392699081698724
atribua "k2 -0.523598775598299
atribua "k2_0 0.490873852123405
atribua "k3 0.537024385229024
atribua "k3_0 0.537024385229024
atribua "l 60
atribua "lambda 20
atribua "lambda1 -10
atribua "lambda1_0 16
atribua "lambda2 -12
atribua "lambda2_0 12.8
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 3.2
atribua "v1 -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 -17.0710678118655
atribua "y1 -10
atribua "y2 -7.07106781186549
atribua "y3 -9.99959945379852