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