@Andre, I don't understand why you are not seeing the source notebook. It was attached to two of the previous messages. But here it is.

P. S. This code has been edited so it can now be cut and pasted into a notebook, where it should produce a plot.

Gary

Clear["Global`*"]

Manipulate[

GraphicsRow[

{Graphics[{zLine[lnVs[lnPts[mTheta]]],ray[maxr],labelZ},Axes->True,Background->White,PlotRange->{{-2pltRatio ,2pltRatio},{-3pltRatio,3pltRatio}}],

If[mTheta>Pi,
Graphics[{logCrv2[(#-Pi I)&/@logPts[mTheta-Pi ]],logRayCrv[maxr],labelW1,labelW2,piUp,piDwn},Axes->True,Background->White,PlotRange->{{-2pltRatio -5,2pltRatio},{-3pltRatio,3pltRatio}}],

Graphics[{logCrv1[logPts[mTheta]],logRayCrv[maxr],labelW1,labelW2,piUp,piDwn},Axes->True,Background->White,PlotRange->{{-2pltRatio -5,2pltRatio},{-3pltRatio,3pltRatio}}]]},

Background->White,Frame->All,Spacings->0,ImageSize->Medium],

{{mTheta,0,Style["Theta",Bold,16]},0,2Pi},{{maxr,2,Style["r",Bold,16]},0,r},
FrameLabel->Style["The Logarithm Function",16,Bold],

Initialization :> (

logf[z_]:=Log[Abs[z]]+I Arg[z];

v[z_]:={Re[z],Im[z]};

z[theta_,r_]:=r Exp[I theta];

r = 2;

pltRatio = 1.5;

zPts[theta_,r_]:=Table[r Exp[I x],{x,0,theta,.05}];

lnPts[theta_]:= zPts[theta,r];

lnVs[pts_] := v[#]&/@pts;

zLine[vectors_] :={Red,Line[vectors]};

rayPts[maxr_]:=  Table[z[Pi/4,r],{r,maxr,.001,-.05}];

ray[r_] := {Blue, Line[v[#]&/@rayPts[r]]};

logPts[theta_]:=logf[#]&/@zPts[theta,r];

logCrv1[pts_] := {Red,Line[v[#]&/@pts]};

logCrv2[pts_]:={Red,Line[v[#]&/@pts]};

logRayPts[maxr_] := logf[#]&/@rayPts[maxr];

logRayCrv[maxr_] :=  {Blue,Line[v[#]&/@logRayPts[maxr]]};

labelZ = Inset[Style["z",Bold,12],{-2,-3}];

labelW1 =  Inset[Style["w=Log(z)",Bold,12],{-5,-3}];

labelW2 =  Inset[Style["Log(z) = ln|z| + i Arg(z)",Bold,8],{-5,-4}];

piUp = Inset[Style["Pi",Bold,12],{.5,Pi}];

piDwn =Inset[Style["-Pi",Bold,12],{.5,-Pi}];
)

]

@Sam and @Andre, I'm sorry the code didn't work. I see now that I mistakenly attached a .cdf file rather than a notebook, but I did previously attach a notebook in my second message on this thread. I just now opened it from this page and it produced a plot. Nevertheless, a copy is attached with this message. Thank you for the link to the tutorial. When I clicked on the link with the intention of editing the code in the message above, it appeared to respond, but then it returned me to this page, so I was unable to read it.

Attachments:

@Gary, was hoping to look at the notebook you used to generate the CDF. But I can try stripping this CDF back to its normal notebook state and export it myself to see how it sizes. I'm using Mac btw, and will try Windows as well in case there's something going on there.

As for displaying the CDF in web pages using our JS embed code, your example (from your server) works for me viewing in Safari on Mac and IE on Windows, but not in FireFox or Chrome on either platform. It's possible there is some sort of security aspect to this that needs user interaction, or you need MIME types to be set up (see the CDF again for details on that).

Looks like there are two distinct questions here:

1) How to make web-embedded CDF content zoom (change magnification) with the rest of the surrounding web page

This is a feature now supported with the release of Mathematica 10, and coming soon with the new CDF Player. You can see this in action (using the Mathematica 10 plugin) at this Tumblr page:

http://arksphere.tumblr.com/

Use your standard web browser view menu zoom settings to see the top example change size with the rest of the page, whereas the older example below it will remain a static size. A CDF must be saved with version 10 to to enable this behavior, and we're in the process of making these updates to all CDFs in our product sites.

2) How to match a CDF based on Manipulate to the size specified your HTML

Interactive diagrams created with Mathematica's Manipulate function are scalable (to the degree allowed by white space within the Manipulate box) and will adjust their size to the dimensions set by the embed code. For fixed dimensions, configure your content with ImageSize or ContentSize set to an explicit value or size specification. ImageSize->Medium will preserve Mathematica's default dimensions.

You'll find this and other details at the "Formatting Your Content for Embedding" section of the CDF website's deployment page:

http://www.wolfram.com/cdf/resources/deployment-details.html

</br>Hope this information helps, and I will make a point to check in later to see if there are more questions/concerns.

It's been a whole month since Math Lind posted this question. I sure hope that someone has an answer for this. I would also like larger sizes and I would like a reliable way to match the size of manipulate box to the size specified in the browser. For an example of the problem, see any of the demos at https://faculty.unlv.edu/gbp/mma/VisualComplexAnalysis/CDF/.