Reputation
586
Top tag
Next privilege 1,000 Rep.
See votes, expandable usercard
Badges
3 5
Newest
 Student
Impact
~3k people reached

  • 0 posts edited
  • 0 helpful flags
  • 0 votes cast
May
16
comment Incorporating photos into a Mathematica-made web page
Magnification is default. The image cells look like Cell[BoxData[GraphicsBox[TagBox[RasterBox[CompressedData[" 1:eJx I have tried 2 ways of getting the jpegs into the nb. Main method is to use PhotoShop to resize the image to something suitable for the web, and then copy into M. This past week I used Import["image file"] which places it into M. This gives more control, and I can use things like ImageResize. But the problems all seem to arise from Export to html file, which acts in mysterious ways.
May
16
comment Incorporating photos into a Mathematica-made web page
Re. PNG: Yes I had tried that an hour ago and indeed it is creating larger image files, and the overall result is better. Rasterizing each of the many images in the file? Well I will try one as a test to see if that helps. But PNG seems to be a step in the right direction. A little frustrating though since there ought to be a way to get a JPG at appropriate size.
May
16
comment Incorporating photos into a Mathematica-made web page
I also tried the "ImageEncoding"->"Lossless" option. No progress.
May
16
comment Incorporating photos into a Mathematica-made web page
Thanks. It sounds like just the thing....but it failed. I used: Export[outputstring, Import[inputstring], "Notebook", "ConvertClosed" -> "LinkedPage", "GraphicsOutput" -> {"JPEG", "CompressionLevel" -> 0}] But no change. It turned the source image of size about 6 mb to a jpeg have size 91 kb. So the compression is 65 times, which is of course a big problem.
Jul
12
comment Colorize and the Four-Color Theorem
Note sure how to post art on this site. Here is a pdf with some diagrams illustrating my points. <<stanwagon.com/public/StackExchangeNotes.pdf >>
Jan
27
comment Updating Wagon's FindAllCrossings2D[] function
Not on hand. But this function is used many many times in the VisualDSolve project to find equilibrium points for two autonomous DEs and I must have found some difficult examples there. Now, it is possible as Mathematica changes internally that some of the problems disappear. Let me mention that this function was able to solve one of the "100 Digit Challenge" problems in optimizing a complicated function of 2 vbles by finding all of the critical points in the region, and there were well over 2000 of them.
Jan
26
comment Updating Wagon's FindAllCrossings2D[] function
I'm afraid I cannot remember exactly why I chose 97 and 103, but the reason is related to the effect that when things are too symmetric then there can be problems at the centers of symmetry. So it is best to add in a little asymmetry. Also I note that someone commented that some new Mathematica functions do some of these sorts of things.. but only for nice functions. If one had the Zeta function involved, say, then I do not believe their new algebraic ideas would work. Of course, since typical usages might be in DEs, finding equil. pts., it might be worth adding some cases to detect niceness.