[Date Index] [Thread Index] [Author Index]

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

• To: mathgroup at smc.vnet.net
• Subject: [mg77088] Re: What to do in v. 6 in place of Miscellaneous`RealOnly
• From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
• Date: Sun, 3 Jun 2007 06:09:35 -0400 (EDT)
• Organization: The Open University, Milton Keynes, UK
• 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>

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 package 
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 location 
>> on the web.
>>
>> I put a simple init.m file that defines a function HexToDecimal at this 
>> 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 students'
>>> own machines is not that big a deal provided the zip file (or whatever)
>>> is properly assembled and the instructions are sufficiently clear and
>>> the students are able to follow direction.  (Hmm...the last IS a bit 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], FrameTicks 
-> None]

End[]

EndPackage[]