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

Copyright 2001 by Robert M. Corless
All rights reserved

Basics

Основы

 Saving work 

Сохранение работы

> restart;
> with(LinearAlgebra):
> A := RandomMatrix( 3, 3 );

A := _rtable[5033980]
> p := CharacteristicPolynomial( Transpose(A).A, x );

p := -1478094916+114521881*x-22951*x^2+x^3
> rts := [ fsolve( p, x, complex ) ];

rts := [12.94019843, 7308.069806, 15629.99000]
> rootBounds := realroot( p, 1/10^8 );

> evalf(rootBounds,15);

> save A, p, `mymatrix.mpl`;
> save p, rts, rootBounds, `myroots.m`;

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

 
Hosted by uCoz