Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE:Beginner--How to resolve a simple system of equation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg69065] RE:Beginner--How to resolve a simple system of equation
  • From: abdou.oumaima at hotmail.com
  • Date: Tue, 29 Aug 2006 03:26:00 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hello every body,

To resolve my problem I used this Code for a simple example:
A = {{1 + x, 2 + x}, {3 + 2 x, 1 + 2 x}};
Ainv = Inverse[A];
B = {{1 - x, 1 + 2 x}, {1 + 3 x, 1 + x}};
M = {1, 0};
Print["With LinearSolve "]
LinearSolve[A, B . M]
Series[%, {x, 0, 1}] /. x -> 0
Print["With Inverse "]
Factor[Ainv . B. M]
Series[%, {x, 0, 1}] /. x -> 0

I find the same result from LinearSolve and Inverse Methods and I think that I can use it for and order >2.
What do you think dear math group.
Lian.

Link to the forum page for this post:
http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=13095#p13095
Posted through http://www.mathematica-users.org [[postId=13095]]



  • Prev by Date: Re: hatching of the area between two curves?
  • Next by Date: a curious answer
  • Previous by thread: RE:Beginner--How to resolve a simple system of equation
  • Next by thread: General--IF condition in Plot3D