Re: Re: What to do in v. 6 in place of Miscellaneous`RealOnly

*To*: mathgroup at smc.vnet.net*Subject*: [mg77303] Re: [mg77088] Re: What to do in v. 6 in place of Miscellaneous`RealOnly*From*: DrMajorBob <drmajorbob at bigfoot.com>*Date*: Wed, 6 Jun 2007 07:23:46 -0400 (EDT)*References*: <f33ork$l7l$1@smc.vnet.net> <f36go3$9rf$1@smc.vnet.net> <200705260842.EAA18740@smc.vnet.net> <200705270852.EAA03263@smc.vnet.net> <6063CBD7-7FB9-4719-90F7-DE917481A78E@earthlink.net> <f3gpr5$3m5$1@smc.vnet.net> <13878940.1181079094145.JavaMail.root@m35>*Reply-to*: drmajorbob at bigfoot.com

Very cool. And very dangerous. Bobby On Sun, 03 Jun 2007 05:09:35 -0500, Jean-Marc Gulliet = <jeanmarc.gulliet at gmail.com> wrote: > Murray Eisenberg wrote: >> Will such an Import handle correctly contexts from an "ordinary" = >> package? > > Yes. See at the bottom of the message for the location of a test packa= ge > and some Mathematica version 6.0 commands. > >> (The web server I use for most things is out of service at the moment= , >> so I cannot test that.) >> >> >> Selwyn Hollis wrote: >>> Apparently, it's now possible to load a package from a remote locati= on >>> on the web. >>> >>> I put a simple init.m file that defines a function HexToDecimal at t= his >>> url: >>> >>> http://www.math.armstrong.edu/faculty/hollis/init.m >>> >>> Entering this quietly loads it: >>> >>> Import["http://www.math.armstrong.edu/faculty/hollis/init.m"= ] >>> >>> For verification, enter this: >>> >>> ?HexToDecimal >>> >>> Stunning. >>> >>> >>> - Selwyn >>> >>> >>> On May 27, 2007, at 4:52 AM, Murray Eisenberg wrote: >>> >>>> You've stumbled upon a long-standing problem I've faced with using >>>> Mathematica in an academic setting (or perhaps any setting) where >>>> systems are locked down by the folks whom maintain the systems: how= to >>>> handle 3rd-party add-on packages. >>>> >>>> In my own experience, getting the packages installed on the student= s' >>>> own machines is not that big a deal provided the zip file (or = >>>> whatever) >>>> is properly assembled and the instructions are sufficiently clear a= nd >>>> the students are able to follow direction. (Hmm...the last IS a bi= t = >>>> of >>>> a problem: if only students read directions as carefully as I wrote= >>>> them!) >>>> >>>> The real problem resides with lab & classroom computers. Given >>>> sufficient advance notice, of course, such packages can be = >>>> incorporated >>>> into the standard software on the systems. (At my own institution, = any >>>> package needed for the September semester needs to be in the hands = of >>>> the IT folks no later than July 1, and preferably earlier; for the >>>> Spring semester, no later than Thanksgiving. This is a real pain.) >>>> >>>> I don't have a good solution to this. Perhaps somebody at Wolfram >>>> Research will look into it. >>>> >>>> Helen Read wrote: >>>>> dimitris wrote: >>>>>> Hi Helen. >>>>>> >>>>>> I don't have version 6 but in case you don't know >>>>>> there is a much more flexible package named >>>>>> SwitchableRealOnly by Ted Ersek available at >>>>>> >>>>>> http://library.wolfram.com/infocenter/MathSource/560/ >>>>> I'll have a look at that, but I'm not keen on using a package that= = >>>>> the >>>>> students would have to download and install themselves. (They use >>>>> Mathematica on their own laptops and in computer labs all over = >>>>> campus, >>>>> not just the classrooms maintained by the math department.) >>>> -- >>>> Murray Eisenberg murray at math.umass.edu >>>> Mathematics & Statistics Dept. >>>> Lederle Graduate Research Tower phone 413 549-1020 (H) >>>> University of Massachusetts 413 545-2859 (W) >>>> 710 North Pleasant Street fax 413 545-1801 >>>> Amherst, MA 01003-9305 >>>> >> > > I have put a test notebook at > > http://homepages.nyu.edu/~jmg336/mathematica/Sierpinski.m > > As you can see below, the context JMGTests`Sierpinski` is correctly > created. Very cool feature indeed. > > In[1]:= $ContextPath > Import["http://homepages.nyu.edu/~jmg336/mathematica/Sierpinski.m";] > $ContextPath > ?JMGTests`Sierpinski`* > drawCarpet[4] > > Out[1]= {"PacletManager`", "WebServices`", "System`", "Global`"} > > Out[3]= {"JMGTests`Sierpinski`", "Utilities`URLTools`", "JLink`", \ > "PacletManager`", "WebServices`", "System`", "Global`"} > > drawCarpet[n] draws the Sierpinski's Carpet > > [graphic deleted] > > Regards, > Jean-Marc > > P.S. Here is the code of the package. (Not breathtaking, for sure, but= > it works well for illustrative purpose.) > > (* ::Package:: *) > > BeginPackage["JMGTests`Sierpinski`"] > > drawCarpet::usage="drawCarpet[n] draws the Sierpinski's Carpet" > > Begin["Private`"] > > rules = {0 -> {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, > 1 -> {{1, 1, 1}, {1, 0, 1}, {1, 1, 1}}}; > > f[m_:1] := ArrayFlatten[m /. rules] > > drawCarpet[n_Integer?Positive] := MatrixPlot[Nest[f, 1, n], FrameTic= ks > -> None] > > End[] > > EndPackage[] > > -- = DrMajorBob at bigfoot.com