#10a) Throgs Neck
p1=plot(e^(-x/10),0,50,color='red')
p2=plot(-e^(-x/10),0,50,color='red')
p3=plot(e^(-x/10)*cos(x),0,50)
show(p1+p2+p3)
|
|
#10b) Tacoma Narrows
p1=plot(e^(x/10),0,50,color='red')
p2=plot(-e^(x/10),0,50,color='red')
p3=plot(e^(x/10)*sin(x),0,50)
show(p1+p2+p3)
|
|
|
|