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

MathGroup Archive 2012

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

Search the Archive

Re: File size 5.5MB

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126495] Re: File size 5.5MB
  • From: Andre Koppel <akoppel at akso.de>
  • Date: Tue, 15 May 2012 04:52:13 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <jog02s$g2c$1@smc.vnet.net> <jog02s$g2c$1@smc.vnet.net>

Take a look. Into the file. 
It didn't only contain the instructions for the calculations. It also 
contains detailed plotting instructions line by line.  This is 
because the cdr-Interpreter isn't a small Mathematica.  It is a 
viewer for previously calculated result.  It is also unable to do own 
rendering, it only draws simple lines generated by a renderer. 

On Thu, 10 May 2012 09:00:12 +0000 (UTC), David 
<dwarnold45 at suddenlink.net> wrote:
> 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: How to combine 3D Graphics?
  • Next by Date: Re: Parametric List Plot??
  • Previous by thread: Re: File size 5.5MB
  • Next by thread: Speed of Mathematica on AMD machines