wolfram mathematica - Adding parametricplot3d in only z axis -


i trying add parametric plot in z-axis (right when add expands in x,y, , z), effect of summation addition of amplitudes of sine waves. here have now. http://imgur.com/j9hn7vr

here code using implement it:

frequency = 1000; speed = 13397.2441; wavelength = speed/frequency; s = (r - 2); t = (r - 4); u = (r - 6); v = (r - 8);  parametricplot3d[{{r*cos[q] - 4, r*sin[q], sin[(2*pi)/wavelength*(r)]},   {s*cos[q] - 2, s*sin[q], sin[(2*pi)/wavelength*(s + wavelength/4 - 1)]},   {t*cos[q], t*sin[q], sin[(2*pi)/wavelength*(t + wavelength/4 + 0.5)]},   {u*cos[q] + 2, u*sin[q], sin[(2*pi)/wavelength*(u + wavelength/4 + 1.65)]},   {v*cos[q] + 4, v*sin[q],  sin[(2*pi)/wavelength*(v + wavelength/4 + 3.5)]}},   {r, 0, 25}, {q, 0, pi}, plotpoints -> 30, mesh -> 20, plotrange -> {{-25, 25}, {0, 35}, {-6, 6}}] 

any suggestions appreciated!

unfortunately not find answer this, ended simulating in matlab instead generating values on field (in matrix) , summing trying here.


Comments

Popular posts from this blog

monitor web browser programmatically in Android? -

Shrink a YouTube video to responsive width -

wpf - PdfWriter.GetInstance throws System.NullReferenceException -