Mathematica Issue -
can familiar mathematica tell me why drawing wont generate?
plot1 = contourplot3d[{x^2 + (y + 0.25)^2 + (z - 0.45)^2 = 0.25, x^2 + y^2 + (z + 0.5)^2 = 0.25, x^2 + (y + 0.5)^2 + (z - 1.4)^2 = 0.25, x^2 + (y + 0.25)^2 + (z - 2.35)^2 = 0.25, x^2 + y^2 + (z - 3.3)^2 = 0.25, x^2 + (y + 0.25)^2 + (z - 4.25)^2 = 0.25, x^2 + (y + 0.5)^2 + (z - 5.2)^2 = 0.25, x^2 + (y + 0.25)^2 + (z - 6.15)^2 = 0.25, x^2 + y^2 + (z - 7.1)^2 = 0.25}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}] plot2 = contourplot3d[{x^2 + (y - 0.5)^2 + (z - 0.25)^2 = 0.25, x^2 + (y - 0.75)^2 + (z - 1.15)^2 = 0.25, x^2 + (y - 1)^2 + (z - 2.05)^2 = 0.25, x^2 + (y - 1.25)^2 + (z - 2.95)^2 = 0.25, x^2 + (y - 1.5)^2 + (z - 3.85)^2 = 0.25, x^2 + (y - 1.75)^2 + (z - 4.75)^2 = 0.25}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}] plot3 = contourplot3d[{x^2 + (y + 0.5)^2 + z^2 = 0.25, x^2 + (y + 1)^2 + (z - 0.75)^2 = 0.25, x^2 + (y + 1.5)^2 + (z - 1.5)^2 = 0.25, x^2 + (y + 2)^2 + (z - 2.25)^2 = 0.25}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}] this error comes 3 time once each plot:
set::write: tag plus in 7.56014\[verythinspace]+8.99743\[verythinspace]+11.8995 protected. >> set::write: tag plus in 6.24786\[verythinspace]+8.99743\[verythinspace]+8.99743 protected. >> set::write: tag plus in 6.24786\[verythinspace]+8.99743\[verythinspace]+19.3562 protected. >> general::stop: further output of set::write suppressed during calculation. >>
this small syntax error = symbol used set (assignments , definitions) == symbol used equal (equality checking) so, in body of each contourplot replace = == , done
your code should be
plot1 = contourplot3d[{x^2 + (y + 0.25)^2 + (z - 0.45)^2 == 0.25, x^2 + y^2 + (z + 0.5)^2 == 0.25, x^2 + (y + 0.5)^2 + (z - 1.4)^2 == 0.25, x^2 + (y + 0.25)^2 + (z - 2.35)^2 == 0.25, x^2 + y^2 + (z - 3.3)^2 == 0.25, x^2 + (y + 0.25)^2 + (z - 4.25)^2 == 0.25, x^2 + (y + 0.5)^2 + (z - 5.2)^2 == 0.25, x^2 + (y + 0.25)^2 + (z - 6.15)^2 == 0.25, x^2 + y^2 + (z - 7.1)^2 == 0.25}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}] etc.
yehuda
Comments
Post a Comment