bugs - Wolfram CDF Player not working anymore in WordPress v.4.0.1

I usually instert my CDF demonstrations in my WordPress site with the WolframCDF plugin v.2.1.

It worked fine till a couple of days ago.

But, after the recent (automatic) upgrade of WordPress from 4.0.0 to 4.0.1 that doesn't work anymore. The CDF is no more shown in the page, just the html code calling it.

Is anyone else experiencing this problem?

I'm afraid I'll have to downgrade to WordPress 4.0.0 (not so easy) or wait for the developer of the WolframCDF plugin to adjust it to the new version of WP.

At the moment my website (www.lucamoroni.it) heavily based on CDF simulations is totally useless!

But maybe there could be some workaround (i.e. modify manually some configuration file) to fix things (at least temporarily).

Any help? (any dirty trick?)

Answer

Update

The new plugin Mathematica Toolbox can embed CDFs and do many other things. The official plugin is still not working.

The problem is that whoever wrote the Wordpress plugin didn't use the official API to parse the CDF shortcode. The CDF plugin is essentially saying "right before the content is presented, modify it using function parseContent" (add_filter('the_content', array($wolframCDF, 'parseContent'));). The function parseContent uses regular expressions to find the shortcode, parse its attributes and replace it with the CDF code. It does not work in Wordpress 4.01 because the shortcode is modified (prettified for presentation) before it reaches parseContent, and so is not recognized by the regular expression.

In order to make it work WRI needs to update the plugin and use the official shortcode API, i.e. parse the shortcode attributes by writing

function parseContent( $atts ) {
    // Do stuff with the given attributes

}
add_shortcode('WolframCDF', 'parseContent');

which is both simpler and future proof.

In the meantime there is a fix that tells Wordpress not to touch the shortcode, which means it will still match the regular expressions. This is to go into text mode and wrap the shortcode with a code tag, i.e.

[WolframCDF attributes]

Note that you have to do it in text mode, you cannot use the visual mode. Using the

tag should also work.

Another way (which I can not test, because I don't have Wordpress installed on this computer) is to go to wp-content/themes/your_theme/ and open functions.php. Add the following line to the top of this file:

apply_filters('run_wptexturize', false);

This should disable wp_texturize and thus make the CDF shortcode work again. Note that wp_texturize does many good things, so it's better to fix the plugin instead of turning off wp_texturize. But if you have many posts with the CDF shortcode in them, then updating each one may take some time and this could be a more attractive option.

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}]

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}]

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]],

Blog

Search This Blog