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
Post a Comment