Mathematica Notes from sci.math.symbolic, sci.math, and comp.sys.next Archive 4: 27 November 1989 --- 19 December 1989 Editor: Mark Phillips mbp@lakisis.umd.edu Subjects: Interrupting Mathematica on a Mac Re: Interrupting Mathematica on a Mac Calling Mathematica functions from Common Lisp Differential equations in Mathematica Re: Differential equations in Mathematica Good NeWS for Mathematica Re: Differential equations in Mathematica Mathematica graphics in TeX document Re: Mathematica graphics in TeX document Re: Mathematica graphics in TeX document Mathematica Re: Mathematica graphics in TeX document Re: Mathematica graphics in TeX document Re: Mathematica Re: Mathematica graphics in TeX document Coefficient command in Mathematica Re: Formula for n-th prime? Computers and Projective Geometry Re: Formula for n-th prime? Trojan Horse in NeXT 1.0 Mathematica mathlink Mathematica Conference Announcement (a repost) Re: List of Primes non-commutative algebra in Mathematica? (*======================================================================*) From: schwer@unix.SRI.COM (Len Schwer) Subject: Interrupting Mathematica on a Mac Date: 27 Nov 89 15:37:49 GMT How does one stop a Mathematica calculation on a Mac? I forgot the comma in Dashing[{0.05 0.05}] and Mathematica seemed to go into an infinite loop (3+ hours on an SE). --Len Schwer Schwer@unix.sri.com (*----------------------------------------------------------------------*) From: loren@moonzappa.llnl.gov (Loren Petrich) Subject: Re: Interrupting Mathematica on a Mac Date: 28 Nov 89 01:09:18 GMT In article <6147@unix.SRI.COM> schwer@unix.SRI.COM (Len Schwer) writes: > > How does one stop a Mathematica calculation on a Mac? > Easy. Just press (command)-. -- the print interrupt command. (command) is the four-petal flower symbol used for various commands, like (command)-q for quit. You will see a dialog box with various actions to choose from. Choose "abort" to end the calculation. One can "step" or "trace" to get an idea of what's going on, though one will see only calls of low-level Mathematica functions. ^ Loren Petrich, the Master Blaster \ ^ / loren@moonzappa.llnl.gov \ ^ / One may need to route through any of: \^/ sunlight.llnl.gov <<<<<<<<+>>>>>>>> lll-lcc.llnl.gov /v\ lll-crg.llnl.gov / v \ star.stanford.edu / v \ v "I'm supposed to keep my mouth shut" -- Madonna (*----------------------------------------------------------------------*) From: yip-ken@CS.YALE.EDU (ken yip) Subject: Calling Mathematica functions from Common Lisp Date: 29 Nov 89 21:43:40 GMT I am running Sun Common Lisp and wondering if it is at all possible to call Mathematica functions from my lisp programs. Any pointer will be appreciated. (*----------------------------------------------------------------------*) From: apa@ccadfa.adfa.oz.au ( Chem.) Subject: Differential equations in Mathematica Date: 5 Dec 89 06:11:01 GMT Is this a bug in Mathematica 1.2 (on MacII) or am I doing something wrong? The solutions to the two simultaneous first-order differential equations below *should be*: a(t) =A0 e^(-k1 t) and b(t) =A0 (k1/(k2-k1)) ( e^(-k1 t) - e^(-k2 t) ) eg.see Jackson,Harrowfield and Vowles,Int.J.Chem. Kinetics, 535-548, (1977) Q1. Why does Mathematica insist that b(t)=0? THE FOLLOWING IS Mathematica CODE: ------------------------------------------------------------- Consecutive, irreversible first-order reactions k1 k2 a -> b -> c In[1]:= (* make sure no previous values are lurking about *) ClearAll[solutions,a,b,c,k1,k2,A0,rulea,ruleb] In[2]:= (* set up the differential equations with initial conditions *) solutions = DSolve[{a'[t]==- k1 a[t], a[0]==A0, b'[t]== k1 a[t] - k2 b[t], b[0]==0 }, {a[t], b[t]}, {t}]; In[3]:= (* get a[t] and b[t] as 'transformation rules' from the list *) {rulea,ruleb}=Flatten[Factor[solutions]] Out[3]= A0 {a[t] -> -----, b[t] -> 0} k1 t E In[4]:= (* Note that the first DE is solved OK *) D[a[t]/.rulea,t]==-k1 (a[t]/.rulea) Out[4]= True In[5]:= (* but the second DE isn't ! *) D[b[t]/.ruleb,t]==k1 (a[t]/.rulea) -k2 (b[t]/.ruleb) Out[5]= A0 k1 0 == ----- k1 t E --------------------------------------------------------------- Q2. Can someone please show me a more elegant way of doing this - instead of using a(t) as a rule and Flatten[... etc? I'm only a chemist remember! (*----------------------------------------------------------------------*) From: edgar@shape.mps.ohio-state.edu (Gerald Edgar) Subject: Re: Differential equations in Mathematica Date: 6 Dec 89 20:19:36 GMT In article <758@ccadfa.adfa.oz.au> apa@ccadfa.adfa.oz.au ( Chem.) writes: > >Is this a bug in Mathematica 1.2 (on MacII) or am I doing something wrong? Here it is in Maple: > de1 := diff(a(t),t) = -k1*a(t); d de1 := ---- a(t) = - k1 a(t) dt > de2 := diff(b(t),t) = k1*a(t)-k2*b(t); d de2 := ---- b(t) = k1 a(t) - k2 b(t) dt > dsolve({de1,de2,a(0)=A0,b(0)=0},{a(t),b(t)}); Error, (in dsolve) use laplace or series option to solve a system. > dsolve({de1,de2,a(0)=A0,b(0)=0},{a(t),b(t)},laplace); {b(t) k1 A0 exp(- (1/2 k2 + 1/2 k1) t) sinh(1/2 k1 t) cosh(1/2 k2 t) = 2 ---------------------------------------------------------------- k1 - k2 k1 A0 exp(- (1/2 k2 + 1/2 k1) t) cosh(1/2 k1 t) sinh(1/2 k2 t) - 2 ----------------------------------------------------------------, k1 - k2 a(t) = A0 exp(- k1 t)} ------ -- Gerald A. Edgar Department of Mathematics Bitnet: EDGAR@OHSTPY The Ohio State University Internet: edgar@mps.ohio-state.edu Columbus, OH 43210 ...!{att,pyramid}!osu-cis!shape.mps.ohio-state.edu!edgar (*----------------------------------------------------------------------*) From: maeder@inf.ethz.ch (Roman Maeder) Subject: Good NeWS for Mathematica Date: 6 Dec 89 21:23:24 GMT Good NeWS for Mathematica Mathematica for Sun workstations comes with a file NeWS.view (living in /Bin.sun4/Display) that allows graphics under NeWS (and OpenWindows). It has two problems: - large graphics are truncated - it is not interruptible, freezing the display The file below is a replacement that fixes both of these problems. It also adds a menu that allows some modifications of the graphics (for example toggle mesh lines in SurfaceGraphics). Disclaimer: This is my own NeWS hack and not a supported product of Wolfram Research, Inc. It comes with absolutely no warranty. Enjoy, Roman Maeder [ This file is available via anonymous ftp from: ] [ ] [ Host: ftp.ncsa.uiuc.edu ] [ Filename: /Symbolic/Mathematica/Packages/NeWS.view ] [ Size: 6130 bytes ] [ --mbp ] (*----------------------------------------------------------------------*) From: apa@ccadfa.adfa.oz.au ( Chem.) Subject: Re: Differential equations in Mathematica Date: 7 Dec 89 05:46:55 GMT Thanks for the Maple solution. In fact I used Maple to check Mathematica and found as you have that you need to convert(,exp) to convert the sinh etc to exp's. The solution simplifies, factors etc. to what it should be (in my original posting). Igor Rivin from Wolfram Research Inc. has e-mailed that this is in fact a bug in Mathematica. I'd appreciate hearing from any Mathematica users with other DSolve limitations etc or comparisons with Maple on the Mac. Are there any chemists out there using these packages? They've certainly saved me hours of tedious algebra, but as I've found, * user beware*. (*----------------------------------------------------------------------*) From: geelong@eleazar.dartmouth.edu (Peter Kostelec) Subject: Mathematica graphics in TeX document Date: 8 Dec 89 18:45:55 GMT Distribution: na I've recently had a problem with using Mathematica pictures in a TeX document, and I'm wondering if anyone can help me. (In case it matters, I use a Mac IIcx.) I used Mathematica to make a picture, basically a box filled in with a shade of gray. I then copied the picture from Mathematica, and pasted it into the 'document pictures' portion of my TeX document. When I typeset the document and view the results on the Mac screen, everything looks fine. I see the box, and it's filled in with the correct shade of gray. But when I print the document, the box is either completely black or completely white, depending on which side of 0.5 I set the GrayLevel. If the value I set is closer to 0, the box is black. When the value is closer to 1, the box is white. As an experiment, I pasted the Mathematica picture into a SuperPaint document. No shade of gray was present. What I saw on the screen again depended on the value I set the GrayLevel. Short of using another application, does anyone have a solution to this problem ? Thanks in advance, Peter Kostelec (*----------------------------------------------------------------------*) From: wilkins@jarthur.Claremont.EDU (Mark Wilkins) Subject: Re: Mathematica graphics in TeX document Date: 8 Dec 89 19:53:34 GMT Distribution: na In article <17833@dartvax.Dartmouth.EDU> geelong@eleazar.dartmouth.edu (Peter Kostelec) writes: >I used Mathematica to make a picture, basically a box filled in with >a shade of gray. I then copied the picture from Mathematica, and >pasted it into the 'document pictures' portion of my TeX document. When >I typeset the document and view the results on the Mac screen, everything >looks fine. I see the box, and it's filled in with the correct shade >of gray. But when I print the document, the box is either completely >black or completely white, depending on which side of 0.5 I set the >GrayLevel. If the value I set is closer to 0, the box is black. When >the value is closer to 1, the box is white. Yeah, you can do one of two things. You can either take Mathematica's raw postscript, which you can get by playing around with OutputForm[], I think, (although I don't know how much you can do with raw postscript in TeX) or you can set your monitor into 2 bit mode before plotting, which makes Mathematica dither the image in b/w. Then, paste that into TeX. TeX and many other programs just don't support automatic halftoning or shading when printing to a laser printer. Sort of surprising that a DTP program like TeX on a Mac wouldn't, but there's not much you can do. -Mark Wilkins wilkins@jarthur.claremont.edu From phd_ivo@gsbacd.uchicago.edu (*----------------------------------------------------------------------*) From: phd_ivo@gsbacd.uchicago.edu Subject: Re: Mathematica graphics in TeX document Date: 8 Dec 89 21:59:07 GMT >I've recently had a problem with using Mathematica pictures in a TeX >document, and I'm wondering if anyone can help me. Well, I can't help you, but since we are at inserting Mathematica pictures into a TeX document, I personally find M. to be extremely limited for publication-quality graphs. For example (and an example that I find most annoying), 3D graphs don't produce axes labels. How does one know which axis is which? At least, my NeXt version now indicates the units on the graph---which was a major advance as far as I was concerned... /ivo (*----------------------------------------------------------------------*) From: mccalpin@masig3.ocean.fsu.edu (John D. McCalpin) Subject: Mathematica Date: 8 Dec 89 19:40:37 GMT Distribution: usa Is Mathematica shipping yet for the Silicon Graphics 4D machines? I am particularly interested availability for the 4D/25.... I guess I should ask my sales rep about the price.... On a related note: Is it likely to be possible to get an X-windows front-end for Mathematica to run on a Silicon Graphics 4D? This would be in addition to the native SGI front-end. I intend to do a lot of work from a remote X-windows terminal, and don't want to be limited to the raw ascii Mathematica interface when I am away from the console.... -- John D. McCalpin - mccalpin@masig1.ocean.fsu.edu mccalpin@scri1.scri.fsu.edu mccalpin@delocn.udel.edu (*----------------------------------------------------------------------*) From: rivin@Gang-of-Four.Stanford.EDU (Igor Rivin) Subject: Re: Mathematica graphics in TeX document Date: 9 Dec 89 01:20:39 GMT Distribution: na In article <3485@jarthur.Claremont.EDU> wilkins@jarthur.UUCP (Mark Wilkins) writes: >In article <17833@dartvax.Dartmouth.EDU> geelong@eleazar.dartmouth.edu >(Peter Kostelec) writes: >>I used Mathematica to make a picture, basically a box filled in with >>a shade of gray. I then copied the picture from Mathematica, and >>pasted it into the 'document pictures' portion of my TeX document. When >>I typeset the document and view the results on the Mac screen, everything >>looks fine. I see the box, and it's filled in with the correct shade >>of gray. But when I print the document, the box is either completely >>black or completely white, depending on which side of 0.5 I set the >>GrayLevel. If the value I set is closer to 0, the box is black. When >>the value is closer to 1, the box is white. > > > Yeah, you can do one of two things. You can either take Mathematica's raw >postscript, which you can get by playing around with OutputForm[], I think, On the Mac, you select your Graphics cell, Copy it and then choose Convert Clipboard in the Edit menu, and then convert to Encapsulated Postscript. You can then paste the PostScript into the TeX with the \special command. Your TeX may or may not do the right thing with the PostScript. On a Unix machine, you Display["!psfix >< filename.ps", graphics], to get a plain PostScript file. -- Igor Rivin Wolfram Research, Inc. rivin@Gang-of-Four.Stanford.EDU or rivin@wri.com (*----------------------------------------------------------------------*) From: rivin@Gang-of-Four.Stanford.EDU (Igor Rivin) Subject: Re: Mathematica graphics in TeX document Date: 9 Dec 89 01:23:49 GMT Distribution: na In article <6652@tank.uchicago.edu> phd_ivo@gsbacd.uchicago.edu writes: >>I've recently had a problem with using Mathematica pictures in a TeX >>document, and I'm wondering if anyone can help me. > >Well, I can't help you, but since we are at inserting Mathematica >pictures into a TeX document, I personally find M. to be extremely >limited for publication-quality graphs. For example (and an example >that I find most annoying), 3D graphs don't produce axes labels. >How does one know which axis is which? At least, my NeXt version now >indicates the units on the graph---which was a major advance as far >as I was concerned... > >/ivo Try using the AxesLabel option. AxesLabel->{x, y, z} will label the axes with x, y and z. -- Igor Rivin Wolfram Research, Inc. rivin@Gang-of-Four.Stanford.EDU or rivin@wri.com (*----------------------------------------------------------------------*) From: rivin@Gang-of-Four.Stanford.EDU (Igor Rivin) Subject: Re: Mathematica Date: 9 Dec 89 01:29:07 GMT Distribution: usa In article mccalpin@masig3.ocean.fsu.edu (John D. McCalpin) writes: >Is Mathematica shipping yet for the Silicon Graphics 4D machines? >I am particularly interested availability for the 4D/25.... >I guess I should ask my sales rep about the price.... Yes, Mathematica Version 1.2 is shipping for SGI machines. You can buy it either from Silicon Graphics or from WRI ((217)-398-0700). > >On a related note: > >Is it likely to be possible to get an X-windows front-end for >Mathematica to run on a Silicon Graphics 4D? This would be in >addition to the native SGI front-end. Yes, Mathematica runs under X-windows. I believe X-windows itself is an extra cost product from SGI, but I could be wrong. In any case your sales rep will probably be more informed about that than I. >I intend to do a lot of work from a remote X-windows terminal, and >don't want to be limited to the raw ascii Mathematica interface when I >am away from the console.... >-- >John D. McCalpin - mccalpin@masig1.ocean.fsu.edu > mccalpin@scri1.scri.fsu.edu > mccalpin@delocn.udel.edu -- Igor Rivin Wolfram Research, Inc. rivin@Gang-of-Four.Stanford.EDU or rivin@wri.com (*----------------------------------------------------------------------*) From: dai@csli.Stanford.EDU (Jim Dai) Subject: Re: Mathematica graphics in TeX document Date: 9 Dec 89 05:32:08 GMT Distribution: na geelong@eleazar.dartmouth.edu (Peter Kostelec) writes: >I've recently had a problem with using Mathematica pictures in a TeX >document, and I'm wondering if anyone can help me. >(In case it matters, I use a Mac IIcx.) I'm also interested in getting the answers. Date: Tue, 19 Dec 89 16:57:31 EST (*----------------------------------------------------------------------*) From: Yary Richard Phillip Hluchan Is there any way of solving an equation of the form f[f[x]] == g[x] for f[x] using Mathematica or Maple? I've tried a few different methods, starting with g[x_] := x^2 + 1 Solve[f[f[x]] == g[x], f[x]] -1 2 f[x] = f [1 + x ] (* not very helpful* ) f[_x] := a(x^b+c)^d (* eg. I'll assume answer is in this form *) Reduce [f[f[x]] == g[x]] (* find a,b,c,d for me *) (* I get an error, lhs appears to involve nonlinear trancendental funtcions *) How can this be done? Laurence Leff, Ph.D |A job is like sex, when you do it for money CS,SMU, Dallas, Texas 75275-0122,|You take away all the fun. Phone: 214-692-3459 Moderator comp.doc.techreports/TRLIST, Symbolic Math List convex!smu!leff leff%smu.uucp@uunet E1AR0002 at SMUVM1 (BITNET) (*----------------------------------------------------------------------*) From: cfrousak@eros.Princeton.EDU (Christos Frousakis) Subject: Coefficient command in Mathematica Date: 13 Dec 89 19:38:41 GMT Distribution: usa I'm trying to use Mathematica to extract the coefficients of a polynomial, and I have the following problem: when I use the command Coefficient[poly,Times[Power[x,i],Power[y,j],Power[z,k]] with specific values for i, j, k I get the correct result. However, when I try to do the same thing in a Do of For or While loop the result is garbage. The commands look like this: Do[ Do[ Do[ a[i,j,k]=Coefficient[poly,Times[Power[x,i],Power[y,j],Power[z,k], {i,0,Exponent[poly,x]} ], {j,0,Exponent[poly,y]} ], {k,0,Exponent[poly,z]} ] I have also tried using For and While loops without success. Moreover, my original polynomial is destroyed. In case it matters, the original polynomial that I have tried this on is 3 2 2 2 2 2 2 2 2 2 2 2 c + c k + 2 b c k x + b c x + 2 c y + 2 c k y + 4 b c k x y + 2 2 2 4 2 4 4 2 2 4 2 > 2 b c x y + c y + k y + 2 b k x y + b x y + 2 c k y z + 2 3 3 5 5 > 2 b c x y z + 4 c k y z + 4 b c x y z + 2 k y z + 2 b x y z + 2 2 2 4 2 6 2 > c y z + 2 c y z + y z or in InputForm c^3 + c^2*k^2 + 2*b*c^2*k*x + b^2*c^2*x^2 + 2*c^2*y^2 + 2*c*k^2*y^2 + 4*b*c*k*x*y^2 + 2*b^2*c*x^2*y^2 + c*y^4 + k^2*y^4 + 2*b*k*x*y^4 + b^2*x^2*y^4 + 2*c^2*k*y*z + 2*b*c^2*x*y*z + 4*c*k*y^3*z + 4*b*c*x*y^3*z + 2*k*y^5*z + 2*b*x*y^5*z + c^2*y^2*z^2 + 2*c*y^4*z^2 + y^6*z^2 Any help will be greatly appreciated.My e-mail address is cfrousak@eros.princeton.edu Thanks in advance. (*----------------------------------------------------------------------*) From: brnstnd@stealth.acf.nyu.edu (Dan Bernstein) Subject: Re: Formula for n-th prime? Date: 28 Nov 89 00:01:33 GMT Distribution: usa In article <44500050@uxe.cso.uiuc.edu> ceblair@uxe.cso.uiuc.edu writes: > The mathematica package has a routine that gives the n-th prime for > n up to 10 million? How can this be done without enormous storage? Suitably compressed, it's not that much storage... Perhaps it computes the primes on the fly, with a wheel sieve. You can compute all the primes up to n in time n/log n and similar space; to get just the nth prime takes time n/log n and sqrt n space. The wheel sieve was published in the January 1981 CACM, I believe. It is by far the fastest method around; I'm always amused by computer magazine articles presenting inferior methods as the ``latest innovations.'' ---Dan (*----------------------------------------------------------------------*) From: twilson@PROOF.ERGO.CS.CMU.EDU (Todd Wilson) Subject: Computers and Projective Geometry Date: 28 Nov 89 15:37:07 GMT I am involved in a project to implement (analytic) projective geometry on the computer (we are using Mathematica). We have been quite successful in working out algebraic proofs of many of the theorems of classical projective geometry (Desargues', Pappus', and Pascal's Theorems, many results on conics and cubics, etc.). The question is: Is anyone else doing (even remotely) similar work? For example, I remember hearing about a project at the University of Bergen on using a computer to do projective geometry. The name I seem to remember in this connection is A. Holme. Can anyone help me here? Thanks, --Todd (*----------------------------------------------------------------------*) From: bs@linus.UUCP (Robert D. Silverman) Subject: Re: Formula for n-th prime? Date: 1 Dec 89 12:59:37 GMT In article <44500050@uxe.cso.uiuc.edu> ceblair@uxe.cso.uiuc.edu writes: > > The mathematica package has a routine that gives the n-th prime for >n up to 10 million? How can this be done without enormous storage? > > Charles Blair One way is to simply store the gaps between primes. It does not exceed 256 for primes up to 10 million, so each gap can be stored as a single byte. There are about 10^6/(6 * log 10) primes, so it will take less than a megabyte. Alternately, one can store a compact bit map using 10 megabits. Alternately, consider each interval of 10 numbers. There are 4 possible primes, giving 16 possible combinations for each decade, so one could store decade with each set of 4 bits, and roughly halve the storage. Bob Silverman -- Bob Silverman #include Internet: bs@linus.mitre.org; UUCP: {decvax,philabs}!linus!bs Mitre Corporation, Bedford, MA 01730 (*----------------------------------------------------------------------*) From: epsilon@wet.UUCP (Eric P. Scott) Subject: Trojan Horse in NeXT 1.0 Mathematica Date: 29 Nov 89 07:02:14 GMT When you play with Preferences in Mathematica, it doesn't use the Defaults Database like everything else. It edits a systemwide(!) file--/NextApps/Mathematica.app/PrefsFile.mb As distributed by NeXT, this file is mode 666. Demonstrate: Launch Mathematica. Preferences> Startup... click the radio button next to "Use the following shell command" and the box labeled "Automatically start" Put something appropriately NASTY in the text field. Quit Mathematica. Watch the look of SURPRISE on the next luser's face... Restore the file from a KNOWN GOOD COPY of the 1.0 distribution. do chmod go-w /NextApps/Mathematica.app/PrefsFiles.mb -=EPS=- (*----------------------------------------------------------------------*) From: dorner@pequod.cso.uiuc.edu (Steve Dorner) Subject: mathlink Date: 4 Dec 89 14:30:50 GMT I'm posting this for a friend. Please reply to him, not me. -------------------------------------------------------------------------- To anyone interested in using mathlink, If you compile mathlink.c (in NextApps/Mathematica.app/Kernel/Utilities) you get a list of warning messages basically of the form "function implicitely declared and later declared static". To get rid of these, for each function that was being declared implicitely, put its prototype in the external functions where it was being called. This gets rid of all warning messages except for "missing _main" which you should still be getting. Incidently, mathlink.h is empty and can stay empty. To test mathlink you can use the sample program given in NextLibrary/Documentation/Mathematica/UnixSummary.wn (on page 28). I copied the code and called it "sample.c". Be sure to replace all occurrences of "\\" by "\". (Check for "\\"'s in mathlink.c. If you find any, replace them by "\"'s.) Then from a shell do: cc -fwritable-strings mathlink.c sample.c to complike and link the programs (the executable will end up in a.out). Thank Bruce Bruce Blumberg for the correct compiler option. Start Mathematica and type: StartProcess["path"] where path is the full pathname of the executable file generated by the cc above. Path will be something like /me/programs/a.out . Mathematica should return a list {BitAnd, CheckSum}, which contains the C functions that were installed and can now be used like any other built- in Mathematica functions. chuck fleming cfcgf@ecncdc.bitnet -------------------------------------------------------------------------- -- Steve Dorner, U of Illinois Computing Services Office Internet: s-dorner@uiuc.edu UUCP: {convex,uunet}!uiucuxc!dorner IfUMust: (217) 244-1765 (*----------------------------------------------------------------------*) From: rivin@Gang-of-Four.Stanford.EDU (Igor Rivin) Subject: Mathematica Conference Announcement (a repost) Date: 17 Dec 89 10:42:43 GMT ===================================================== 1990 MATHEMATICA CONFERENCE LOCATION Hotel Sofitel, 223 Twin Dolphin Drive, Redwood City, California. (7 miles south on U.S. 101 from San Francisco International airport.) TIMES Conference reception: 7 pm Wednesday, January 10. Sessions and exhibits: 9 am Thursday, January 11 to 4 pm Saturday, January 13. INFORMATION/REGISTRATION Contact organizers for a registration kit (telephone or email preferred): 1990 Mathematica Conference P.O. Box 3848 Champaign, IL 61826-3848 217-398-0700 fax: 217-398-0747 email: conf@wri.com FEES Regular: $250 Educational: $150 Student: $50 ABOUT MATHEMATICA Mathematica is an integrated technical computing environment, which performs numerical, symbolic and graphical computations, and embodies a high-level programming language. Developed by Wolfram Research, Inc., Mathematica is available on Macintosh, MS-DOS 386, workstations and larger computers. The Mathematica Conference is intended for all current and prospective users of Mathematica. LECTURES Steve Christensen (NCSA): Gravity Theory Dorian Goldfeld (Columbia): Number Theory Sam Savage (University of Chicago): Business Modeling Dana Scott (Carnegie-Mellon): Teaching Projective Geometry Terry Sejnowski (Salk Institute): Neural Networks Steve Skiena (SUNY, Stony Brook): Combinatorics and Graph Theory Jerry Uhl (University of Illinois): Mathematica Courseware: Calculus Andrew B. Watson (NASA Ames): Vision Science Rob Wolff (Apple): Interactive Visualization & Distributed Computing Stephen Wolfram (WRI): Future Directions in Computing Contributed talks and other speakers to be announced. TUTORIALS Elementary: o Introduction to Mathematica o Introduction to the Front End o Applications Survey o Applications Walkthrough Intermediate: o Mathematica Programming o Graphics o Numerical Computation o Data Analysis o Algebraic Manipulation o Document Preparation Advanced: o Interfacing to External Programs o Networking o Internals and Algorithms o Advanced Programming o Debuggin Mathematica Programs Other topics to be announced. FORUMS/PANELS o Ask the Developers: Q&A on Mathematica's Design and Future o The Mathematica Journal o Mathematica in Education o Alternative Front Ends o Publishing with Mathematica EXHIBITS o Mathematica Hardware Solutions o Mathematica-Compatible Software o Mathematica Packages o Graphics Devices o Training/Consulting Services o Mathematica Classroom OTHER CONTRIBUTED MATERIAL o Poster Sessions o Demonstration Sessions o Short Talks o Graphics Gallery Submit a one-page summary suitable for reproduction by December 15, 1989. Computer facilities can be arranged for accepted demonstrations. Call or write for further information. Sponsored in part by Addison-Wesley Publishing Co. and Wolfram Research, Inc. Mathematica is a registered trademark of Wolfram Research, Inc. -- Igor Rivin Wolfram Research, Inc. rivin@Gang-of-Four.Stanford.EDU or rivin@wri.com (*----------------------------------------------------------------------*) From: ilan@Gang-of-Four.Stanford.EDU (Ilan Vardi) Subject: Re: List of Primes Date: 15 Dec 89 00:51:15 GMT Here's how you get a list of primes in Mathematica for small n (e.g., n < 10^6) f[n_] := Prime /@ Range[n] (*----------------------------------------------------------------------*) From: palmieri@m2-225-6.athena.mit.edu (John H Palmieri) Subject: non-commutative algebra in Mathematica? Date: 14 Dec 89 23:51:57 GMT Distribution: sci.math.symbolic Does anyone out there know a good way to do non-commutative algebraic calculations with, say, Mathematica (on a Sun, in case that matters)? (I am particularly interested in the Steenrod algebra, by the way.) Thanks. John Palmieri Mass. Inst. of Tech. Room 2-090 Cambridge, MA 02139 palmieri@math.mit.edu or palmieri@athena.mit.edu (*----------------------------------------------------------------------*)