Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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