Tag Info

New answers tagged

1

You seem pretty new to Mathematica. First things first, so: k is the number of times, the Do loop will run. Now, to more "second" things: Giving you Mathematica code without having Mathematica at your hands seems unlikely, so you should really take a look at Mathematica's fine documentation (not flawless in every dark crevice, though, but nevertheless ...


0

A simpler/improved parametrization (t,h) for an elliptic cone. It is more convenient from apex as it is at the apex that all generators converge. ParametricPlot3D[h {2 Sin[t],Cos[t],2 },{t,0,2 Pi},{h,0,5},PlotStyle-> {Yellow}]


2

options = {PlotRange -> {{-5, 5}, {-5, 5}, {-5, 0}}, Mesh -> None, ColorFunction -> "Rainbow", BaseStyle -> Opacity[.8], BoxRatios -> 1, Lighting -> "Neutral"}; ParametricPlot3D[{Cos[t] z, Sin[t] z/2, z}, {t, 0, 2 \[Pi]}, {z, -5, 0}, Evaluate@options] ParametricPlot3D[z {Cos[t], Sin[2 t]/2, 1}, {t, 0, 2 \[Pi]}, {z, -5, 0}, ...


0

An example of using MMA to "talk" about your problem cone1 = (x^2 + 4 y^2)^(1/2) Plot3D[cone1, {x, -3, 3}, {y, -3, 3}] ContourPlot[cone1, {x, -3, 3}, {y, -3, 3}, Contours -> {1, 2, 3}] base1 = #^2 & /@ (cone1 == 1) ContourPlot[Evaluate[base1], {x, -1, 1}, {y, -1, 1}] parametricBase1 = {x -> Cos[t], y -> (1/2) Sin[t]} base1 /. ...



Top 50 recent answers are included