HDTenEightyP/NetNews huggingface dataset:
From: saxena@cs.albany.edu (Tushar Saxena)
Subject: Re: Beginning Maple Question
Originator: saxena@tarski.albany.edu
Organization: The University at Albany, Comp. Sci. Dept.
Date: Wed, 7 Oct 1992 19:31:44 GMT

In article <1992Oct7.172912.2523@netcom.com> spworley@netcom.com (Steven) writes:
>Maple to factor this polynomial to return the coefficients of each
>power?  (This is a simpler request than it sounds.)
>
>For example:
>
>q:=(1-x)^3*A+(1-x)*B+C*x;
>
>I want an output like:
>
>-A x^3  + (3A+B) x^2 + (C-3A-2B) x +(A+B)

Try collect(q, x). This will work. This process is called collection of terms
and not factorization of polynomial.

	-Tushar

--------------------------------------------------------------------------------
Any resemblance between the above views & those of my employer, my terminal or
the view outside my window are purely coincidental. Any resemblance between the
above & my own views is non-deterministic. The question of the existence of vi-
ews in the absence of anyone to hold them is left as an exercise to the reader.
--------------------------------------------------------------------------------
email : saxena@cs.albany.edu                        Computer Science Department
Phone : 518-442-3388				    SUNY Albany
Tushar Saxena					    Albany NY 12222 (USA)
--------------------------------------------------------------------------------
Newsgroups: sci.math.symbolic
From: lane@selway.umt.edu (Dick Lane)
Subject: Re: Help required to use Maple `solve'
Summary: capture multiple solutions in distinct variables
Organization: University of Montana
Date: Fri, 9 Oct 1992 13:45:27 GMT



The query asked for a way to capture multiple solutions in distinct variables.


  Maple V expression		  output		  type
r := solve( x^2-4 , x );	r := 2, -2		exprseq of integer
s := [ solve( x^2-4 , x ) ];	s := [2, -2]		list of integer
t := solve( {x^2-4}, {x} );	t := {x=2}, {x=-2}	exprseq of set

Since assignment and equality are different, note that none of these
expressions have the value shown in the posted query:  { x := 2 , x := -2 }

Evaluating expressions
	x1 := r[1];
or
	x2 := s[2];
will assign integer values to x1 or x2.	 For the third version, use
	x1 := subs( t[1] , x );
to assign an integer value to x1.

The concatenation operator can be used within a repetition statement to
do a collection of assignments.
	for  i	to  nops( [r] )	   do	 x.i := r[i] ;	  od ;
	for  i	to  nops(  s  )	   do	 x.i := s[i] ;	  od ;
	for  i	to  nops( [t] )	   do	 x.i := subs( t[i] , x ) ;    od ;
(The last paragraph of help for exprseq is relevant to versions 1 and 3.)
The index variable is not local to the repetition, so each of these has the
side-effect of also assigning a value to i.

Dick Lane,   University of Montana,   Missoula,	 MT   59812
lane@selway.umt.edu		1-406-243-2054 (voice mail after 4 rings)
-- 
Dick Lane,	University of Montana,   Missoula,  MT   59812
lane@selway.umt.edu			1-406-243-5455
Newsgroups: sci.math.symbolic
Subject: Re: Solving transcendental equations in MMA
From: a_rubin@dsg4.dse.beckman.com (Arthur Rubin)
Date: 15 Oct 92 15:05:18 GMT
Organization: Beckman Instruments, Inc.

In <1992Oct14.143048.23471@lsa.umich.edu> Hal.Varian@umich.edu writes:

>In article <1bh3hmINNcdi@function.mps.ohio-state.edu>  
>edgar@function.mps.ohio-state.edu (Gerald Edgar) writes:
>> In article <1992Oct14.055350.24912@leland.Stanford.EDU>  
>cchan@leland.Stanford.EDU (Chung Chan) writes:
>> >Does anyone know how I can possibly solve for:
>> >
>> >		1 + x = 2^x
>> >
>> >in MMA?
>> >
>> 
>> In Maple:
>> 
(more or less successful Maple solution involving the "W" function
omitted)

>Looks to me like x=1 is also a solution...

Actually, it looks like x=0 and x=1 are the real solutions.
--
Arthur L. Rubin: a_rubin@dsg4.dse.beckman.com (work) Beckman Instruments/Brea
216-5888@mcimail.com 70707.453@compuserve.com arthur@pnet01.cts.com (personal)
My opinions are my own, and do not represent those of my employer.
My interaction with our news system is unstable; please mail anything important.
Organization: Ministry of Education, Computer Center NETNEWS system V2.3
Date: Friday, 9 Oct 1992 22:08:09 EST
From: <NCKUT057@TWNMOE10.BITNET>
Newsgroups: sci.math.symbolic
Subject: Problem about Context

Dear my friends,

   I try to do something like that,

   In[1] := !!test

   BeginPackage["Test`"];
      Begin["`Private`"];
         aaa=10000;
         f[x_] := Return[ToExpression[ToString[x]]];
         g[x_] := Return[ToExpression["Test`Private`"<>ToString[x]]];
      End[];
   EndPackage[];

   In[1] := <<test

   In[2] := f[aaa]

   Out[2] = f[aaa]

   In[3] := g[aaa]

   Out[3] = g[aaa]

Why the answer is not 10000? If I want Mma could give me 10000, How to do it?

I think this problem is related to the Context of Mma. Am I right?

Any suggestion is greatly appreciate. Thanks.

                                             Sincerely yours,
                                             G.J.Cheng

                                             Taiwan, ROC
Newsgroups: sci.math.symbolic
From: pap@air12.larc.nasa.gov (Peter A. Padilla)
Subject: Schoonship
Reply-To: pap@air12.larc.nasa.gov (Peter A. Padilla)
Organization: NASA/SVMB
Date: Thu, 8 Oct 1992 15:01:01 GMT

Is there a version of scoonship that runs on PCs (DOS or OS/2)?
Is it commercial, shareware, or public domain?


P. Padilla

Peter A. Padilla
pap@air12.larc.nasa.gov
Newsgroups: sci.math.symbolic
From: cchan@leland.Stanford.EDU (Chung Chan)
Subject: Solving transcendental equations in MMA
Organization: DSG, Stanford University, CA 94305, USA
Distribution: na
Date: Wed, 14 Oct 92 05:53:50 GMT

Does anyone know how I can possibly solve for:

		1 + x = 2^x

in MMA?

It saids it's transcendental and just returns the equation.

Thanks. Please e-mail replys.

Chung Chan
From: matthews@cco.caltech.edu (Christopher G. Matthews)
Newsgroups: sci.math.symbolic
Subject: Mma problem - Find an algebraic expression for this algorithim.
Date: 8 Oct 1992 06:41:47 GMT
Organization: California Institute of Technology, Pasadena
NNTP-Posting-Host: sandman.caltech.edu
Summary: I need help finding an algebraic expression for this Mma algorithim.
Keywords: Mathematica problem algorithim


I have a little Mma algorithm here (see below) that defines a function
p[i,j,a,b] where i,j,a,b are all integers greater than or equal to zero.
I need to find an equivalent algebraic expression for this function.
I don't want to bias anybody by telling you how I've tried so far,
but if you wish more info about the problem, please contact me:
matthews@sisyphus.cithep.caltech.edu  or matthews@cco.caltech.edu
Thank you in advance,
Chris
------------------cut here for problem.m------------------------------ 
(* Problem - Find an expression that equates to the following algorithim *)
(* p[i,j,a,b] = ?  for i,j,a,b integers >= 0. *)
(* Send solution to Chris Matthews: matthews@sisyphus.cithep.caltech.edu *)


(* Needs[] --------*)
(* multiSelect: enhanced Select function *)
(* make into Package[] 92-05-28          *)

BeginPackage["multiSelect`"]

multiSelect::usage = "multiSelect[list1,.., listN, crit] picks out elements {ei1,..eiN} of lists 1 thru N for which crit[ei1, ..., eiN] is True.\nmultiSelect[j, list1,...,listN, crit] picks out elements eij of list j for which crit[ei1,..., eiN] is True.  This is equivalent to multiSelect[list1,...listN,crit][[j]]"

Begin["`Private`"]

multiSelect[x:__List, test_Function] := 
   Transpose[Select[Transpose[{x}], Apply[test, #1] & ]]

multiSelect[n_Integer, x:__List, test_Function] := multiSelect[x,test][[n]]
 
End[]

Protect[multiSelect]

EndPackage[]


(* Back to the problem ----- *)

pi3 = {p1, p2, p0}
k3  = {k2, k1, k0}
x3  = x[{1,0},{0,1},{0,0}] 

factor[i_,j_,a_,b_] := Block[{indices, expressions},
	If[i+j==0, 1,
	indices = Flatten[Outer[Plus,##]& @@ Table[x3, {i+j}]] /. x->List;
	expressions = Flatten[Outer[Times,##]& @@ Join[Table[pi3,{i}],Table[k3,{j}]]];
	Plus@@multiSelect[indices, expressions, #1=={a,b}&][[2]]
	]
]


p[x__, c_Integer] := 0 /; Plus@@Take[{x,c},Length[{x,c}]/2] < Plus@@Drop[{x,c},Length[{x,c}]/2]

p[x__, c_String]  := 0 /; Plus@@Take[{x},Length[{x}]/2] < Plus@@Drop[{x},Length[{x}]/2]

p[i_Integer] := p @@ Take[ Join[{0,0,0,0},IntegerDigits[i]],-4] (* Only for Rank 4 tensor *)

p[i_,j_, a_,b_] := factor[i,j,a,b]


(* Sample output:

In[3]:= p[0,1,0,0]

Out[3]= k0

In[4]:= p[2,1,1,1]

Out[4]= 2 k1 p0 p1 + 2 k2 p0 p2 + 2 k0 p1 p2

In[5]:= p[2111] (* Alternate form of input - drop the commas *)

Out[5]= 2 k1 p0 p1 + 2 k2 p0 p2 + 2 k0 p1 p2

In[6]:= p[0,0,2,0]

Out[6]= 0

*)
From: rsherme@nswc-wo.nswc.navy.mil (Russel Shermer)
Newsgroups: sci.math.symbolic
Subject: Mma: ImplicitPlot3D (or lack thereof).
Keywords: mathematica, implicitplot3d, findroot, solve.
Date: 9 Oct 92 16:09:11 GMT
Article-I.D.: relay.1992Oct9.160911.27217
Organization: Naval Surface Warfare Center - White Oak

It would be very useful to be able plot energy surfaces with
Mathematica.  More precisely, given a non-invertible function,
f(x, y, z), a great deal of insight could be obtained by plotting,
f(x, y, z) == const.  

There are several problems.  First, even if
the function is invertible, there appears to be no clean way of 
plotting all the solutions.  For instance,
Plot3D[z /. Flatten[Solve[x^2 + y^2 + z^2 == 4, z]], {x, -1, 1}, {y, -1, 1}]
only plots the positive solution.

For non-invertible functions, FindRoot must be employed.  The most significant
problem is that uses like,
Plot3D[z /. Flatten[FindRoot[Tanh[z] + x^2 + Sqrt[y^2 + z^2] == 4, {z, 4}]], 
					{x, -1, 1}, {y, -1, 1}]
do not preserve the correct surface connectivity, ie, solutions lying on
separate surfaces may be connected by Plot3D giving a completely bogus view
of the topology.

If a region is included where there is no solution, mma plots a garbage point
presumably the last iterate of the newton method.

Has anyone written a package or mma program that provides the functionality
of correctly plotting all the surfaces to f(x,y,z) == const?
Before devoting the time to writing something to do implicit 3d plots, it would
be nice to know I'm not reinventing the package.

Either followups or emailings are fine.  Thanks.

	---Russ

-------------------------(Feel free to cut here)-------------------------------
Nothing I say should be misconstrued as having something to do with anything.

Email: russ@chaos.nswc.navy.mil                 Russ Shermer
Phone: (301) 394-1560                           NSWC Code R43
Fax: (301) 394-3018                             10903 New Hampshire Ave.
Office: 1-013B                                  Silver Spring, MD  20903-5000
-------------------------------------------------------------------------------
From: mooney@plains.NoDak.edu (Timothy Mooney)
Newsgroups: sci.math.symbolic
Subject: Re: mathematica
Date: 12 Oct 92 02:58:59 GMT
Organization: North Dakota Higher Education Computing Network

In article <1992Oct9.142218.8972@mail.cornell.edu> Ray-Zimmerman@cornell.edu (Ray Zimmerman) writes:
)In article <39201@sdcc12.ucsd.edu> Anand Rao, ee52fas@sdcc15.ucsd.edu
)writes:
)>i need a software package that will let me write up lab reports,
)>print
)>mathematical symbols on my laser printer, do circuit diagrams, make
)>tables and other things you do when writing up lab reports.  can
)>anybody reccomend one to me? is mathematica anygood for this sort of
)>thing? thanks.
)>
)>-anand
)
)No, I'm afraid Mathematica is not the type of package you're looking
)for.  It sounds like FrameMaker would be a good choice for you.  You
)can find out more by contacting "comments@frame.com" or checking out
)the comp.text.frame newsgroup.
)
)By the way, I use both FrameMaker and Mathematica.  I like FrameMaker
)for the kinds of things you mentioned.
)
) Ray Zimmerman            \ 397 Theory Center, Electrical Engineering

Not to nitpick, but I believe that FrameMaker has a pretty hefty
pricetag (I've heard it's about $1000).  That certainly wouldn't be
within THIS student's budget.

Tim Mooney

-- 
In 'Real' Life:                      aka Tim the Enchanter, MPtQftHG 
Timothy Mooney                       -----------------------------------------  
mooney@plains.nodak.edu              +    "I'm DISAPPOINTED!" - Otto
NDSU Fargo ND.                       +     		A Fish Called Wanda
-------------------------------------------------------------------------------
From: twillis@top.cis.syr.edu (Thomas Willis)
Newsgroups: sci.math.symbolic
Subject: Re: symbolic algebra and teaching math/sciences
Date: 7 Oct 92 22:23:50 GMT
Organization: Syracuse University CIS Dept.

|> >In article <1aqe9eINN3g4@agate.berkeley.edu>
|> fateman@peoplesparc.Berkeley.EDU 
|> >(Richard Fateman) writes:
|> >
|> >   Some people seem to think that because you can do some symbolic
|> >   (indefinite) integration that these programs would be especially
|> >   useful to courses that teach humans how to do symbolic indefinite
|> >   integration.  This is not at all obvious to me.
|> 

For what it's worth:
--------------------

It wasn't too many years ago that I was a freshman physics major
who would rather gouge out my eyes with a fork than sit in front
of a book and memorize a large chunk of the integral tables for the
Calculus 2 final exam. 

Luckily, my Professor (Lehmann, co-author of Exploring Calculus
Using Mathematica) required that we all learn Mathematica in
weekly labs.

My solution to memorizing the integrals: writing a Math program
that generated random expressions (polynomials, exponentials, etc)
which were integratable.  It prompted me for the answers, and used
EqualQ[] to tell me if I was right.  

Knocking the hell out of that exam (299/300 points), was my first 
step in breaking the physics habit and finding my true redemption
as a mathematics major.

The same method of attack has proved useful in real analysis
(visualizing cauchy sequences, determining limits), differential 
geometry, linear algebra (bases, matrix inverses, eigensystems,...), 
topology (qualitative aspects of ODE's), differential equations I and II,
ad nauseum...

						--tj
-- 
-----------------------------------------------------------------------------
o-----o     T.J. Willis
|\    |\                                                   Pressure(t)
| o---+-o   twillis@nova.npac.syr.edu              lim    -------------
o-+---o |   Research Assistant                     t->oo    Grace(t)
 \|    \|   Syracuse Center for Computational Science
  o-----o   Northeast Parallel Architectures Center          << Disclaimer.m
-----------------------------------------------------------------------------
Newsgroups: sci.math.symbolic
From: mosswald@efes.physik.uni-kl.de (Stefan Steuerwald)
Subject: Re: modern algebric software ?
Keywords: useable ca software
Organization: FB Physik, Universitaet Kaiserslautern, Germany
Date: Thu, 15 Oct 1992 22:22:21 GMT

In article <1992Oct15.150023.15183@sun0.urz.uni-heidelberg.de> sponholz@epikur.ita.uni-heidelberg.de (SPONHOLZ) writes:
>
>  (...wihshful thinking about completely mouse-controlled
>      paper-and-pencil-replacing ca software was in here...)
>
>Hanno Sponholz


We go to heaven when we die, no earlier.   *evil grin*

      Stefan Steuerwald (physicist, no joke)
Newsgroups: sci.math.symbolic
From: Ray Zimmerman <Ray-Zimmerman@cornell.edu>
Subject: Re: mma
X-Xxmessage-Id: <A70445E68002E0B5@ziklag.ee.cornell.edu>
X-Xxdate: Fri, 16 Oct 92 15: 11:50 GMT
Nntp-Posting-User: rz10@cornell.edu
Organization: Electrical Engineering, Cornell University
X-Useragent: Nuntius v1.1.1d12
Date: Fri, 16 Oct 1992 14:06:12 GMT

In article <39583@sdcc12.ucsd.edu> Anand Rao, ee52fas@sdcc15.ucsd.edu
writes:
>does anybody know if i can take circuit drawings made with
>Logicworks (or Spice) and import them into a mathematica document?
>(on a macintosh) thanks....

If you can "copy" them from Logicworks (or Spice) you should be able
to import them.  I believe you can paste any PICT into a Mathematica
notebook.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 Ray Zimmerman            \ 397 Theory Center, Electrical Engineering
                           \ Cornell University, Ithaca NY  14853
 Ray-Zimmerman@cornell.edu  \ Phone: 607-254-8819  Fax: 607-255-9072
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
		"The number you have dialed is imaginary.
					Rotate phone 90 degrees and try again."
Newsgroups: sci.math.symbolic,sci.math.num-analysis,sci.math,sci.math.stat,sci.comp-aided,sci.astro,sci.bio,sci.med,sci.misc,sci.physics,sci.edu,sci.aeronautics,comp.robotics,sci.engr,sci.engr.civil,sci.engr.mech
From: lee@math.washington.edu (John M. Lee)
Subject: Re: extracting points from Plot[ ] (mma)?
Organization: Mathematics Dept., U. of Washington
Date: Wed, 7 Oct 1992 15:08:31 GMT

In article <Oct.7.00.44.57.1992.4714@ruhets.rutgers.edu> myadav@ruhets.rutgers.edu (Mahesh Yadav) writes:


> 	I am trying to extract the points { {x1,y1},{x2,y2},... } of some 
> simple function, say y=Sin[x]. Now, if I like to extract about 10 points
> which are EQUI-DISTANT in x, I can do it by the command:

> In[1]:= Table[N[{x,Sin[x]}],{x,0,Pi,Pi/10}]

> 	But I am interested in the points which are "OPTIMIZED" like that in
> the Plot command. In Plot command, the function is sampled according to the 
> changes in the function -- sampling increases where the change in the function
> is greater. 

> 	I can see the points by the command:

> In[2]:=  InputForm[Plot[Sin[x],{x,0,Pi},DisplayFunction->1,PlotPoints->11]

> 		(Here DisplayFunction->1 to suppress the graphic output)

>  but I get lot of extraneous information ( I have shown it in the end). Is 
> there a way to just get the points in the format { {x1,y1},{x2,y2}, ... }.

>  Also, Is there a way to make the first command I mentioned (In[1]:= ) in such
> a way as to make similar optimization in x like that done in the Plot[ ] ?



You can do this with a judicious use of Position and Part.  Suppose graph
is a graphics object: than Position[graph, _Line] gives the location of the
Lin[{...}] option in graph, which contains the list of points.  Let's say
that position is {1,1,1,1}.  Then graph[[ {1,1,1,1,1} ]] (the first part of
the Line option) is the actual list of points.  The function below gives
one way to implement this.


   In[1]:= lineoption[graph_] := 
              Part[ graph, Sequence @@ Position[ graph, _Line ][[1]], 1 ]

   In[2]:= mygraph = Plot[Sin[x],{x,0,Pi},DisplayFunction->1,PlotPoints->11];

   In[3]:= lineoption[mygraph]

   Out[3]= {{0., 0.}, {0.314159, 0.309017}, {0.628319, 0.587785}, 

   >    {0.785398, 0.707107}, {0.942478, 0.809017}, {1.09956, 0.891007}, 

   >    {1.1781, 0.92388}, {1.25664, 0.951057}, {1.33518, 0.97237}, 

   >    {1.37445, 0.980785}, {1.41372, 0.987688}, {1.45299, 0.993068}, 

   >    {1.47262, 0.995185}, {1.49226, 0.996917}, {1.51189, 0.998266}, 

   >    {1.52171, 0.998795}, {1.53153, 0.999229}, {1.54134, 0.999566}, 

   >    {1.55116, 0.999807}, {1.56098, 0.999952}, {1.5708, 1.}, 

   >    {1.58061, 0.999952}, {1.59043, 0.999807}, {1.60025, 0.999566}, 

   >    {1.61007, 0.999229}, {1.6297, 0.998266}, {1.64934, 0.996917}, 

   >    {1.66897, 0.995185}, {1.68861, 0.993068}, {1.72788, 0.987688}, 

   >    {1.76715, 0.980785}, {1.80642, 0.97237}, {1.88496, 0.951057}, 

   >    {2.04204, 0.891007}, {2.19911, 0.809017}, {2.51327, 0.587785}, 

                                                 -16
   >    {2.82743, 0.309017}, {3.14159, 1.22465 10   }}


.signature
--
Jack Lee
Dept. of Mathematics
University of Washington
Seattle, WA
From: huang@deakin.OZ.AU (Weiguang Huang)
Newsgroups: sci.math.symbolic
Subject: Re: symbolic algebra and teaching math/sciences
Date: 8 Oct 1992 01:01:33 +1000
Organization: Deakin University, Victoria, Australia
NNTP-Posting-Host: sol.deakin.oz.au

In article <1992Oct5.202646.13683@sol.ctr.columbia.edu> hw@madvlsi.columbia.edu (Hongmo Wang) writes:

	But they also make BAD mistakes, for example, in Mma 1.2
	If you 
	Simplify[a + Sqrt[b] /. b -> (-1 + c)^2]
	the answer is 
	a - 1 + c 
	but if you 
	Simplify[a + Sqrt[b] /. b -> (1 - c)^2]
	you will get
	a + 1 - c
	None gives the correct answer
	a + Abs[-1 + c]
	That is really BAD!


It is not so bad in SymbMath. SymbMath gives the same reduced result 
a + (-1 + c)*sgn(-1 + c)
for these two simplifications.


**********************************************************************
*   Dr. Weiguang HUANG                                               *
*   5/6 Cara Road, Geelong, Vic. 3216, Australia                     *
*   Email: huang@deakin.oz.au,      Phone: 61-52-443282              *
* ------------------------------------------------------------------ *
*   SymbMath - a symbolic calculator with learning                   *
*   PlotData - a plotter with analysing data                         *
**********************************************************************

Newsgroups: sci.math.symbolic
From: harrisp@wl.aecl.ca
Subject: Help with MAPLE dsolve and Systems of diff. eqn's
Organization: AECL RESEARCH
Date: Fri, 9 Oct 1992 21:37:48 GMT

	Hi Netters,
First of all, I want to say right up front that Maple only got delivered 
yesterday, i've just started using it, and the best answer to my questions
may be READ THE F***ING MANUAL(s). If you're the type who get's upset at
dumb questions, you may not want to read any further.

One of my primary reasons for using Maple is to solve chemical kinetics
problems. These result typically in systems of first order differential 
equations. These are not usually problems that are related to my research,
but come from other person's within our branch. (Sometimes I feel like I'm
the only person in our branch that can solve a diffeq :-) ) Any ways, I was
hoping that Maple would be of help in finding both analytical and numerical
solutions. 

Using maple, I tried to solve the following system:

	A + B ---> C

	    A ---> products
ie: a bimolecular reaction occurs between chemicals A and B, forming C.
At the same time, species A is decomposing unimolecularly to give some 
other products. The equations to be solved are then:

	dA                     dB
	-- = -k1*A*B - k2*A ,  -- = -k1*A*B
	dt                     dt

	For simplicity sake, let k1 = k2 = 1, and the initial conditions
be A =1 and B = 1 at time=0.

I set this up in Maple as follows:

sys:=diff(A(t),t)=-A(t)*B(t)-A(t),diff(B(t),t)=-A(t)*B(t);
fcns:={A(t),B(t)};
dsolve({sys,A(0)=1,B(0)=1},fcns};
		and got the error message:
Error,(in dsolve/diffeq/linsys) unable to compute coeff
                which I assume is because the equations aren't linear

*** Question 1 What are the limitations on the dsolve routine for 
	       finding analytical solutions to systems of differential
		equations (ie. linearity, number of equations, etc)

Next, I figured on doing it numerically:
result=dsolve({sys,A(0)=1,B(0)=1},fcns,numeric};

	This seemed to work O.K., since I could then type:
result(0);					and get
			0. , 1. , 1.
and result at some time t gave what seemed to be reasonable values. To
see the result just for A at time t=0.5, I found that

result(0.5)[2]		worked.

Next I wanted to plot A(t) and B(t) versus time. To cut a long story short,
I tried every way I could think of to implement their plot routine using
and the parameter result, result[n], or fcns as the argument to be plotted, 
but couldn't get it to work.

**** Question 2  How does one use plot( ) to display an xy graph of the
		 elements of what I suppose is an array of procedure values.
		 Ideally, what I want here is a plot with A(t) and B(t) 
		 labelled and in different colors, but I can probably figure
		 out the esthetics if I could just get some kind of plot
		 of these parameters produced.


I hope that this all makes sense to those of you who are familiar with Maple,
and make the most humble of apologies if these questions are of the RTFM 
variety.
					Thanks in advance
							Phil