#*************************************************************************
# programme de tracé de superposition d'ondes
# Dominique Lefebvre  février 2013
# www.tangenteX.com
#*************************************************************************

with(plots):

# initialisation des variables
w1 := 1:
w2 := 4:

# définition des ondes
s1 := x -> sin(w1*x):
s2 := x -> sin(w2*x):

# tracé des ondes
plot([s1(x),s2(x),s1(x)+s2(x)],x=0..5*Pi, numpoints=1000,color=[red,blue,green]);