do ("Create Sound from formula..." , "f500" , "Mono" , 0, 1.0 , 44100 , "exp( - pi*5*x)*sin(2*pi*500*x)") do ("Solid line") do ("Draw..." , 0, 0.01 , -1, 1, "yes" , "Curve") do ("Dotted line") do ("Draw function..." , 0, 0.01 , 1000 , "exp( - pi*50*x)") do ("One mark right..." , exp( - pi*50*0.01) , 1, 1, 0,"")