Skip to main content

notebooks - CDF, Player, PlayerPro, or something else?


I have a notebook, which contains a dozen or so custom functions all leading to the production of a simple static report, something like this:


enter image description here



I want to distribute this to a single user who will run (or execute) it a couple of times a day. I can get them a copy of Mathematica, but that seems overkill for this. They want something very simple.


The notebook as it stands gets computable data via FinancialData[] for a single instrument and has hard code for all other required inputs.


It requires only a single interaction with the user: pushing the "Run report" button (or some equivalent means of evaluating the code).


The code for the actual report uses some proprietary functions, which I want to protect and hide from the user.


Ideally, the end user should only see the latest report and the "Run report" button.


So, can anyone suggest the best solution for distributing such a computable but otherwise non-interactive report? It doesn't have any need for a Manipulate[] as I see it, so at first thought CDF seems the wrong fit.


Should I go with Player or Player Pro and simply hide the cells with functions? Does CDF make more sense?


CDF, Player Pro, Notebook comparison


I think you can see that I want simple, robust, and secure for this. Just a simple stand alone app.


Thx.



P.S., We don't seem to have a tag for "player".



Answer



I think this sounds like an ideal use case for a CDF document and the free CDF player to "play" it. It's not necessary that the interactivity within a CDF document is more complicated than reacting to a button press :-). You will find other answers with examples that show that it is also not necessary to use a Manipulate, you can very well deploy a custom gui based on e.g. DynamicModule as a CDF document as well. It's easy enough to create a Manipulate with the desired functionality, though:


Manipulate[
 result = runit[];
 Dynamic[result],
 {result, None},
 Button["Run", result = runit[];, Method -> "Queued"],
 Initialization :> (runit[] := 
    DateListPlot[{#1, #2 + RandomReal[]} & @@@ 

      FinancialData["GE", "Jan. 1, 2010"]]),
 SynchronousInitialization -> False
 ]

The only drawback with using the free CDF player for your use case that I see is that it's not possible to securely hide your code (except for whatever you write yourself to hide it, which might be more or less hard to uncover). There are means to hide it in such a way that it will need rather good knowledge and some criminal effort to uncover it, but usually these approaches turn out to be surprisingly simple to hack if you let the right people try.


If your end user gets a PlayerPro license you can in principle deploy your program as an encrypted package (which the PlayerPro can read but not the CDF-Player). You can then also create such encrypted packages that only will run on specific machines (checking $MachineId) or with specific licenses (checking $LicenseID). That is a relative straightforward way to ensure that the code won't be passed away.


There are rumours that this encryption is also not terrible difficult to hack. Doing so would actually need somewhat more criminal effort than hacking an "obfuscated" CDF-Document but I absolutely wouldn't exclude it can be done. With PlayerPro you can also load a .mx package which are considered somewhat safer than an encryped package but honestly it's not clear to me whether that's really true (that they are safer). .mx files are also platform dependent, so depending on how many customers and platforms you need to support that might add some complexity. And as they are, AFAIK, no "cross platform save" possibilities the only way to create the .mx files for a set of platforms is to have a Mathematica installed and licensed one each of those you want to support (possibly in 32 and 64 bit variants).


My personal opinion is that code is "protected" well enough if the effort to hack it is higher than the effort to rewrite it. If you ask the right persons it often turns out that hurdles for both alternatives are a lot lower than one would have guessed. On the other hand I would consider it to be an overestimation of my own code that those "right persons" would try or be engaged to hack it. So my suggestion would be to use a CDF-document with code coming e.g. from a compressed expression and include a license information which makes clear what the user is allowed to do and what not. I found that this will, at least within a professional environment, almost always have the desired effect.


Comments

Post a Comment

Popular posts from this blog

plotting - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Adding a thick curve to a regionplot

Suppose we have the following simple RegionPlot: f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}] Now I'm trying to change the curve defined by $y=g[x]$ into a thick black curve, while leaving all other boundaries in the plot unchanged. I've tried adding the region $y=g[x]$ and playing with the plotstyle, which didn't work, and I've tried BoundaryStyle, which changed all the boundaries in the plot. Now I'm kinda out of ideas... Any help would be appreciated! Answer With f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 You can use Epilog to add the thick line: RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}, PlotPoints -> 50, Epilog -> (Plot[g[x], {x, 0, 2}, PlotStyle -> {Black, Thick}][[1]]), PlotStyle -> {Directive[Yellow, Opacity[0.4]], Directive[Pink, Opacity[0.4]],
Post a Comment
Read more