Maple

!

!

& ! ! !" '
"# ! ! !"
"+ $ "
"#- '"
!
"

!
"

"' "
". !
"
"$
,

0,
3!.

"

"
!
"#! $
& ' !"
" " ( )!$
' !"
" " ($ &) !
"" & $! !
"

$

1

! + ",
"
2
"-"4(
'5
*/
/ - ) !" ,
!" '
!" $ -" " $ -" !" ,
6,
10"
! %" $ 1 #
$
*
!
"
6&7
#"
! ! !" ' !"
""
'$
%" $ " " !(
"
$/ " "
$ 2*
)!
!%
""
7,
1 8 "5 ' " "
"
" $ "&*
#.
!"
"$"!"
"!
,
"$" & : $"
:"
!5 # !
!,
! (: &'
4*
#
5
"
!5 # !
!
5
"
$" "$" $
"!

(
"

!

"
""
%

"#

"!
"
"

%" $
" !*

"

#
!
(!
" & !" $/ " "

$"

"$
'3
'
&

"

"" "
$"
$! ! &
$#
!!" !" *
!

"
"

"
,!
!*
" !"
* '"

!
! 4&
2

'

"
"
!(
!
$
%" $ "
!
!&
,
! )! $
!
17
!&(
$/ "
! ! !" ' !"
""
$"
!"
"#! $
!,
"# "" +!
" !" ! 5"
" ! ! $ "9
"#! $ (
:

!
"
"- " %
"
"- "
%
"
.%
3 "$
" ! "$ " with(),
"! %
!*
! !5
!,
5!
1;

.%
"
"
*

> restart; with(linalg):
Warning, the protected names norm and trace have been redefined and
unprotected

"

$" *
(!

*

"

,
""$ : %
'5
"

! !5 "
! ! $ "9 ! *

"
*
>

"
$
"

!" "$ " *
* . ' $"
)!
!5 # !
! & - $"
! !5 !"
!&

!

,

#$ %

&

'()
vector() *

%

'" $!
"
!"
5
%" $ ;
> restart: with(linalg):
u:=vector([1,2,3,4]);

" $"

$!

!

Warning, the protected names norm and trace have been redefined and
unprotected

;< = 0( 6( 7( 8 >
"

"
'
"
vector() ! 5
> v:=vector(5);

%

'

8

"

;<
"
*

%

$"

'

"5 /

' "5 /
> evalm(v);

?

,

$

$!!

&3 0 ,, ?( = > 4

?

"

$
%
'
> w1:=[1,2,3,4,5,6];

"

&" "$#

&!

$"

= 0( 6(
!&
!%

7(

! "$#

8(

',

.

"

$" '( ' $"

?>

!"

$

"$"

!

;< = 0( 6( 7( 8( ?( @ >
"

! " "$"
$ 2 % ! " "! $
> w2:=matrix(1,3,[a,b,c]);
w3:=matrix(3,1,[d,e,f]);
;< =

>

;<
+

$ :" "$ "
!
!2
!"
" !" ' "
"' " ! (
" " ! $"
"!"
"
!" "
"
$
"( ' $"
"!" !" "
"$ $
#! ( " !" *
"!"
"$
$" !" "$ " basis() & dotprod() 3
)! $" !" $ !
$"
" " !& ! 5
4,
! "$
5

"
,

*+ #, ,$$$$,
*
"#

-. +
#

A'0('6(,,,(' B
#
$"

!
"

"'
'"

& !"

!

" !*
='0('6(,,,(' >(

!
! "$ "
*/ #, ,$$$$, 0.,
> B1:=basis({vector([1,1,1]),vector([1,1,0]),vector([2,2,1]),ve
ctor([1,0,0])});
;< A = 0( 0( 0 >( = 0( 0( C >( = 0( C(C > B
> B2:=basis([vector([1,1,1]),vector([1,1,0]),vector([2,2,1]),ve
ctor([1,0,0])]);
! "$

;< = = 0( 0( 0 >( = 0( 0( C >( = 0( C( C > >
" dotproduct(v,w) "#
!"
"
!
!" '

"

'&D

!

"

'"!
!. "
"!"
"
!
! E'(DF( * 3 "$" ' $" 4
%
"$"
!
$
!" "
"
!
"$ "
' "(
'

!2

! "$

""

3"

> F(a*u);
=

0

+

6

+

7(

−

0

−

7>

> a*F(u);
= 0+ 6 + 7( − 0 − 7 >
'%
* !" " )! $" ' "
"5!
" $" :
'!
!%
!!" 3" ! 2 ! "$ "
4;
> simplify(evalm(F(a*u)-a*F(u)));

!" $ $" *

"#

= C( C >
;
!

JJF
'$
(
!
*(

%!

&

1!
!&
!"
"
%
1!

"

"! $
!*
"#
$! !

(

(
$

%

2

" "'
!$

2

&
!

"! #
"!! "
!( ! %
1

" "' "
" ! ' " "! $
"
&

32
"! $

(! $ 5
""
!
,

"!

""

1
!

!"
!'

"

&(
1 "! %
"
$2!
$
"
4

!
"

(
(
"!$

!#

1

2

!" '

"

*

"

$5

!"

"

"

'

"

!#

1

,

! "$ "
3 */4*3./#0,4*3./ 0,$$$,4*3./ 00,/3/#0,3/ 0,$$$,3/ 00. "
$
$2
;
> A:= genmatrix([F(x)[1],F(x)[2]],[x[1],x[2],x[3]]);
;<
" $" '

%

("

- $ !"( *

! $5

00 0
J0 C J0
! $'

" =0(C(C>

7

! ' " =0(J0> & * ! $ 5
!)! $" ' "
!#
$ $" ' !" ( *
"
"
!
$ & )! $ "! $
> F([1,0,0]);F([0,0,1]);

1
!$

!

!#

1
7

$# /
";

2

!

= 0( J0 >
= 0( J0 >
( " $"

'%
* !$ 2
!"
! 2 ! "$ "
%
&
;
> x:=vector(3):equal(F(x),A&*x); evalm(F(x)-A&*x);

!5

%

1!
!
3 ! "$ "4

"
" "$ "4,
! "$ " 6
* . 3"
! )!" ! %
1!
> kernel(A);

!

" '!

= C( C >
" ' " ! %" $ " " " " !" '...