Example 6.6 To produce multiple scenes

export(plot, Function2d, Scene2d):

Fun1:=Function2d(sin(x),    x = 0..2*PI):

Fun2:=Function2d(sin(2*x),  x = 0..2*PI):

Fun3:=Function2d(sin(3*x),  x = 0..2*PI):

Fun4:=Function2d(sin(10*x), x = 0..2*PI):

S1 := Scene2d(Fun1, Header = "a=1"):

S2 := Scene2d(Fun2, Header = "a=2"):

S3 := Scene2d(Fun3, Header = "a=3"):

S4 := Scene2d(Fun4, Header = "a=10"):

plot(S1, S2, S3, S4, BorderWidth = 1)

© Miroslaw Majewski, Abu Dhabi,  Update  26-10-2004