MathGroup Archive 1997

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

Search the Archive

mma-link.lisp for the Mac

  • To: mathgroup at smc.vnet.net
  • Subject: [mg6755] mma-link.lisp for the Mac
  • From: daiyanh at mindspring.com (Daitaro Hagihara)
  • Date: Tue, 15 Apr 1997 02:53:20 -0400 (EDT)
  • Organization: MindSpring Enterprises
  • Sender: owner-wri-mathgroup at wolfram.com

To Mma programmers,

This is the second shot at announcing my mma-link.lisp for the Mac.

For users of Macintosh Common Lisp, my mma-link.lisp v. 0.8 allows you
to use Mma commands inside the Lisp environment.  It uses solely the
AppleEvent to link up the two programs.  There are two modes to using
mma-link.lisp: one is the usual command-line interface to Mma from the
MCL Listener using the queued Apple Events; and the other the ability
to define Lisp functions with Mma commands embedded in-line through
the use of waited Apple Events.

The command-line interface looks like this:

---------------- MCL Listener -----------------
Welcome to Macintosh Common Lisp Version 2.0.1!
Mma[1]? cfSeries[Tan[x],{x,0,7}]

     2    2    2
x   x    x    x
-   --   --   --
1 - 3  - 5  - 7

? 
-----------------------------------------------

Also, you can define Lisp functions with Mma commands embedded:

(defun constrained-minimum (k &optional (init-search 1))
  (when (< k 1)
    [Block[{y,x=~k /2 (1+Cos[y])},
           x/.FindMinimum[-x^2+x^3,{y,~init-search}][[2]]]]n))

(mapcar #'constrained-minimum '(.1 .2 .3 .4 .5 .6 .7 .8 .9 1))
=> (0.1 0.2 0.3 0.4 0.5 0.6 0.666666685879612 0.6666666664785192
    0.6666666666666623 NIL)

The program source contains detailed instructions for other features
of the program, including automated 3D rotation images using Mr. Lee's
SaveToRotaterFormat`.  Overall, the program should be appealing to
people programming Mma with its easy-to-use documentation interfaces.
Mma-link.lisp is free and can be downloaded from Digitool's ftp site:
ftp://ftp.digitool.com.

Have fun programming Mma,

Daitaro Hagihara


  • Prev by Date: [Q] Importing graphics INTO Mathematica
  • Next by Date: Re: Datapoints -> InterpolatingFunction [Q?] Mathematica
  • Previous by thread: [Q] Importing graphics INTO Mathematica
  • Next by thread: Re: Datapoints -> InterpolatingFunction [Q?] Mathematica