Problems with matrices and clearing error messages

• To: mathgroup at smc.vnet.net
• Subject: [mg120634] Problems with matrices and clearing error messages
• From: JAMES J A GOOCH JR <jamesgooch at verizon.net>
• Date: Sun, 31 Jul 2011 23:36:03 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Reply-to: JAMES J A GOOCH JR <jamesgooch at verizon.net>

Hello:

My name is James Gooch. I have a interest in math. at this time I am trying to solve nonsquare mateices.
I also have a problem trying to clear error messages after I have cleared the equation. I am sorry that I cannot present the programs in attachments. Shown below are the programs that I have problems with:

SOLVING SYSTEMS OF EQUATIONS

A 3x 3 matrix

m={{3,1,-1},{1,1,2},{-1,-2,3}}
{{3,1,-1},{1,1,2},{-1,-2,3}}
Create a function for solving the matrix equation mx=b

f=LinearSolve[m]
LinearSolveFunction[{3,3},<>]
b[3,4,5]
b[3,4,5]
Find the solution x of m*x[3,4,5]
{{3 Find of solution the x x[3,4,5],Find of solution the x x[3,4,5],-Find of solution the x x[3,4,5]},{Find of solution the x x[3,4,5],Find of solution the x x[3,4,5],2 Find of solution the x x[3,4,5]},{-Find of solution the x x[3,4,5],-2 Find of solution the x x[3,4,5],3 Find of solution the x x[3,4,5]}}

f[{3,4,5}][Solution]
{32/17,-(18/17),27/17}[Solution]
[x=1.8,y=-1,z=1.6]

Det[{{3,1,-1},{1,1,2},{-1,-2,3}}]

17
________________________________________________________________________
A3 x 3 Matrix
m={{4,-2,1},{2,3,-4},{1,1,2}}
{{4,-2,1},{2,3,-4},{1,1,2}}
Create a function for solving the matrix equation mx=b
f=LinearSolve[m]
LinearSolveFunction[{3,3},<>]
LinearSolveFunction[{3,3},"<>"]
b[6,8,2]
b[6,8,2]
Find the solution x of m*x[6,8,2]
{{4 Find of solution the x x[6,8,2],-2 Find of solution the x x[6,8,2],Find of solution the x x[6,8,2]},{2 Find of solution the x x[6,8,2],3 Find of solution the x x[6,8,2],-4 Find of solution the x x[6,8,2]},{Find of solution the x x[6,8,2],Find of solution the x x[6,8,2],2 Find of solution the x x[6,8,2]}}
f[{6,8,2}][Solution]
{2,4/5,-(2/5)}[Solution]
[i=2,j=.8,k=-.4]

Det[{{4,-2,1},{2,3,-4},{1,1,2}}]

55
___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ _

A 4x 4 Matrix

m={{3,2,-1,2},{1,1,2,-1},{5,-3,4,-5},{1,1,1,1}}
{{3,2,-1,2},{1,1,2,-1},{5,-3,4,-5},{1,1,1,1}}
Create a function for solving the matrix equation mx=b
f=LinearSolve[m]
LinearSolveFunction[{4,4},<>]
LinearSolveFunction[{4,4},"<>"]
LinearSolveFunction[{4,4},<>]
b[10,8,-6,4]
b[10,8,-6,4]
Find the solution x of m*x[10,8,-6,4]
{{3 Find of solution the x x[10,8,-6,4],2 Find of solution the x x[10,8,-6,4],-Find of solution the x x[10,8,-6,4],2 Find of solution the x x[10,8,-6,4]},{Find of solution the x x[10,8,-6,4],Find of solution the x x[10,8,-6,4],2 Find of solution the x x[10,8,-6,4],-Find of solution the x x[10,8,-6,4]},{5 Find of solution the x x[10,8,-6,4],-3 Find of solution the x x[10,8,-6,4],4 Find of solution the x x[10,8,-6,4],-5 Find of solution the x x[10,8,-6,4]},{Find of solution the x x[10,8,-6,4],Find of solution the x x[10,8,-6,4],Find of solution the x x[10,8,-6,4],Find of solution the x x[10,8,-6,4]}}

f[{10,8,-6,4}][Solution]
{3/5,61/10,-(7/15),-(67/30)}[Solution]
a=.6,b=6.1,c=-.4666,d=2.2333
Det[{{1,1,2,-1},{1,1,1,1},{3,2,-1,2},{5,-3,4,-5}}]

-60
___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
A 5X5 Matrix

m={{1,1,2,1,-1},{-2,3,-4,3,1},{3,1,1,4,5},{1,5,3,5,6},{4,-1,4,-6,8}}
{{1,1,2,1,-1},{-2,3,-4,3,1},{3,1,1,4,5},{1,5,3,5,6},{4,-1,4,-6,8}}
Create a function for solving the matrix equation mx=b

f=LinearSolve[m]
LinearSolveFunction[{5,5},<>]
b[8,7,10,12,2]
b[8,7,10,12,2]
Find the solution x of m*x[8,7,10,12,2]
b[8,7,10,12,2]
{{Find of solution the x x[8,7,10,12,2],Find of solution the x x[8,7,10,12,2],2 Find of solution the x x[8,7,10,12,2],Find of solution the x x[8,7,10,12,2],-Find of solution the x x[8,7,10,12,2]},{-2 Find of solution the x x[8,7,10,12,2],3 Find of solution the x x[8,7,10,12,2],-4 Find of solution the x x[8,7,10,12,2],3 Find of solution the x x[8,7,10,12,2],Find of solution the x x[8,7,10,12,2]},{3 Find of solution the x x[8,7,10,12,2],Find of solution the x x[8,7,10,12,2],Find of solution the x x[8,7,10,12,2],4 Find of solution the x x[8,7,10,12,2],5 Find of solution the x x[8,7,10,12,2]},{Find of solution the x x[8,7,10,12,2],5 Find of solution the x x[8,7,10,12,2],3 Find of solution the x x[8,7,10,12,2],5 Find of solution the x x[8,7,10,12,2],6 Find of solution the x x[8,7,10,12,2]},{4 Find of solution the x x[8,7,10,12,2],-Find of solution the x x[8,7,10,12,2],4 Find of solution the x x[8,7,10,12,2],-6 Find of solution the x x[8,7,10,12,2],8 Find of
solution the x x[8,7,10,12,2]}}
f[{8,7,10,12,2}]
{5258/899,4423/899,-(3357/1798),-(1153/1798),-(2889/1798)}
Print[a=5.85,b=4.91,c=-1.87,d=-.641,e=-1.61]
{5258/899,4423/899,-(3357/1798),-(1153/1798),-(2889/1798)}
5.85 4.91 -1.87 -0.641 -1.61
Det[{{1,1,2,1,-1},{-2,3,-4,3,1},{3,1,1,4,5},{1,5,3,5,6},{4,-1,4,-6,8}}]
-1798

Syntax::sntxi: Incomplete expression; more input is needed.
Syntax::tsntxi: "[a=5.85,b=4.92,c=-.186,d=-.641,e=-1.61]" is incomplete; more input is needed.

Syntax::sntxb: Expression cannot begin with "[a=5.85,b=4.92,c=-.186,d=-.641,e=-1.61]
".
Syntax::sntxb: Expression cannot begin with "[a=5.85,b=4.92,c=-.186,d=-.641,e=-1.61] ".
Syntax::sntxi: Incomplete expression; more input is needed.
Syntax::tsntxi: "Det." is incomplete; more input is needed.
Syntax::sntxi: Incomplete expression; more input is needed.
Syntax::tsntxi: "Det." is incomplete; more input is needed.
Syntax::tsntxi: "Det." is incomplete; more input is needed.
Syntax::sntxi: Incomplete expression; more input is needed.

Here is the non square matrix
A SYSTEM OF EQUATIONS SOLVING ESENTIAL ENERGY PARTICLES
{
{, }
}
{
{u, 2c, 3t},
{d, s, 5b},
{Î½e, Î½Î¼, 2 Î½Ï?},
{e, 5Î¼, 3Ï?}
}
A3x4 Matrix

m={{1,2,3,0},{1,1,5,0},{1,1,2,0},{1,5,3,0}}
{
Â {
Â  }
}
A4x4 Matrix
{{1,2,3,0},{1,1,5,0},{1,1,2,0},{1,5,3,0}}
{{Null}}
{{1,2,3},{1,1,5},{1,1,2},{1,5,3}}
{{1,2,3},{1,1,5},{1,1,2},{1,5,3}}
b {1,2,3,4}
{b,2 b,3 b,4 b}

LinearPrograming {{1,2,3},{1,1,5},{1,1,2},{1,5,3}}
{{LinearPrograming,2 LinearPrograming,3 LinearPrograming},{LinearPrograming,LinearPrograming,5 LinearPrograming},{LinearPrograming,LinearPrograming,2 LinearPrograming},{LinearPrograming,5 LinearPrograming,3 LinearPrograming}}
Find the solutionx of m*x[1,2,3,4]
{{Find of solutionx the x[1,2,3,4],2 Find of solutionx the x[1,2,3,4],3 Find of solutionx the x[1,2,3,4],0},{Find of solutionx the x[1,2,3,4],Find of solutionx the x[1,2,3,4],5 Find of solutionx the x[1,2,3,4],0},{Find of solutionx the x[1,2,3,4],Find of solutionx the x[1,2,3,4],2 Find of solutionx the x[1,2,3,4],0},{Find of solutionx the x[1,2,3,4],5 Find of solutionx the x[1,2,3,4],3 Find of solutionx the x[1,2,3,4],0}}

Det::nonopt: Options expected (instead of {1,5,3}) beyond position 1 in Det[{1,2,3},{1,1,5},{1,1,2},{1,5,3}]. An option must be a rule or a list of rules. >>

LinearSolve::nosol: Linear equation encountered that has no solution. >>

b[2,3,4,1]
b[2,3,4,1]
A 0x1 Matrix
0
{{1,2,3},{1,1,5},{1,1,2},{1,5,3}}
{{1,2,3},{1,1,5},{1,1,2},{1,5,3}}
Find the solution x of m*x
{{Find of solution the x2,2 Find of solution the x2,3 Find of solution the x2},{Find of solution the x2,Find of solution the x2,5 Find of solution the x2},{Find of solution the x2,Find of solution the x2,2 Find of solution the x2},{Find of solution the x2,5 Find of solution the x2,3 Find of solution the x2}}

LinearSolve::nosol: Linear equation encountered that has no solution. >>
LinearSolveFunction[{4,3},<>][{2,3,4,1}]