Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Re: [mg5170] MMA 3.0 Windows performance
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
Jens-Peer Kuska

Posts: 12
Registered: 12/7/04
Re: [mg5170] MMA 3.0 Windows performance
Posted: Nov 9, 1996 2:02 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

> Performance under Win95 seems satisfactory. I have found a number of
> package incompatiblities when attempting to use 2.2.3 packages. these
> include the extended graphics packages that come with Wickham-Jones
> book, "Mathematica Graphics"
>
>

Oh -- I had recompiled the MathLink executables of Wickham-Jones
and all works fine on Windows 95. There is one thing to fix in all
packages that call a MathLink program. The code asks for the
$OperatingSystem if a MathLink-executable is launched. The
$OperatingSystem is compared to the string "Windows" but
on Windows 95 or NT the $OperatingSystem is returned as
"Windows95" or "WindowsNT" if You replace that all works fine.

Here is the part from Mandelbrot.m
____________________________________________________________________

If[ $OperatingSystem =!= "Windows",
FindFileInstall[ {dir_String, file_String}] :=
Block[{cdir, dirs, flag = True, res = $Failed},
cdir = Directory[] ;
dirs = Map[
StringJoin[ #, $PathnameSeparator, dir]&, $Path] ;
dirs = Select[ dirs, (FileType[ #] === Directory)&] ;
Map[ (SetDirectory[#];
If[ flag,
If[ FileNames[ file] =!= {},
(res = Install[ file]) ;
If[ res =!= $Failed,
flag = False]]])&, dirs] ;
SetDirectory[ cdir] ;
res
]
,
FindFileInstall[ {dir_String, file_String}] :=
Block[{cdir, dirs, flag = True, res = $Failed},
cdir = Directory[] ;
dirs = Map[
StringJoin[ #, $PathnameSeparator, dir]&, $Path] ;
dirs = Select[ dirs, (FileType[ #] === Directory)&] ;
Map[
(If[ flag,
If[ FileNames[ file, #] =!= {},
(res = Install[ # <> $PathnameSeparator <> file]) ;
If[ res =!= $Failed,
flag = False]]])&, dirs] ;
SetDirectory[ cdir] ;
res
]
]


If[
FindFileInstall[
If[ $OperatingSystem === "Windows",
{"extendgr", "MANDBROT.EXE"},
{"ExtendGraphics", "mandelbrot"}]] === $Failed,
Message[MandelbrotImage::fail]]

______________________________________________________________________

You need simply replace all "Windows" -strings with "Windows95" strings
using Your favorite text editor. The same change applys to
Delauny.m and Contour.m.

Hope that helps
Jens

Hope that helps
Jens







Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.