[Date Index]
[Thread Index]
[Author Index]
File size 5.5MB
*To*: mathgroup at smc.vnet.net
*Subject*: [mg126434] File size 5.5MB
*From*: David <dwarnold45 at suddenlink.net>
*Date*: Thu, 10 May 2012 04:58:27 -0400 (EDT)
*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com
All,
Very new to CDF format of Mathematica, but concerned at the file size
of a simple file.
Something as simple of this, along with its output, is 5.5MB. How
come?
ContourPlot3D[
r*(1 - u/q) - u/(1 + u^2) == 0, {r, 0, 1}, {q, 0, 10}, {u, 0, 10},
AxesLabel -> {r, q, u}, MeshFunctions -> {#1 &}, Mesh -> 9]
Phil = ContourPlot3D[
r*(1 - u/q) - u/(1 + u^2) == 0, {r, 0, 1}, {q, 0, 10}, {u, 0, 10},
AxesLabel -> {r, q, u}, MeshFunctions -> {#2 &}, Mesh -> 4,
ContourStyle -> Opacity[0.5]]
F[u_, r_, q_] := r*(1 - u/q) - u/(1 + u^2)
BC = {r, q} /.
Solve[{F[u, r, q] == 0, D[F[u, r, q], u] == 0}, {r, q}][[1]]
BC = {BC[[1]], BC[[2]], 0}
h = ParametricPlot3D[
BC, {u, 1.12, \!\(TraditionalForm\`4.781283795978355\)},
PlotStyle -> {Thickness[0.01], RGBColor[1, 0, 0]}];
Show[Phil, h]
David
Prev by Date:
**Re: finding inverses of functions**
Next by Date:
**Re: how export a graphic with given width preserving the ratio of text to image size**
Previous by thread:
**plot 3D data to a 2D graph.**
Next by thread:
**Re: File size 5.5MB**
| |