Robert M. Corless
Department of Applied Mathematics
University of Western Ontario
London, Canada

Copyright 2001 by Robert M. Corless
All rights reserved

Basics

Основы

Getting Started

Быстрый Старт

Sample Maple sessions 

Примеры Maple-сессий

First sample session - Maple as a calculator

Первый пример сессии - Maple как калькулятор

> restart;
> FactoredForm := factor( t^12 - 1 );

FactoredForm := (t-1)*(t^2+t+1)*(t+1)*(1-t+t^2)*(t^...
> expand( FactoredForm );

t^12-1
> restart:
> with(LinearAlgebra):
> A := Matrix([[4,5], [5,6]]);

A := _rtable[2529236]
> A.A;

_rtable[2701296]
> CharacteristicPolynomial( A, lambda );

-1-10*lambda+lambda^2
> restart:
> intEqn := Int( 1/(t^6-1), t ) = int( 1/(t^6-1), t );

> backAgain := diff( intEqn, t );

> normal( backAgain, expanded );

1/(t^6-1) = 1/(t^6-1)
> restart:

> Logistic := diff(x(t), t) = x(t)*(1-x(t));

Logistic := diff(x(t),t) = x(t)*(1-x(t))
> initialCond := x(0) = alpha;

initialCond := x(0) = alpha
> ans := dsolve( {Logistic,initialCond}, x(t) );

ans := x(t) = 1/(1-exp(-t)*(-1+alpha)/alpha)
> check := eval( Logistic, ans );

check := -1/(1-exp(-t)*(-1+alpha)/alpha)^2*exp(-t)*...
> normal( lhs(check) - rhs(check) );

0
> check := subs( ans, Logistic );

check := diff(1/(1-exp(-t)*(-1+alpha)/alpha),t) = 1...
> normal( (lhs-rhs)(check) );

0
> odetest(ans, Logistic);

0
> checkIC := normal(subs(t=0,ans),expanded);

checkIC := x(0) = alpha
> quit

С официального разрешения                    © 2002 Waterloo Maple, Inc

 
Hosted by uCoz