Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Equation System' topicStudent Support Forum > General > Archives > "Equation System"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
04/02/13 11:52am

In[1]:= l1 = 500;
l2 = 300;
l = 800;
d1 = .15;
d2 = .1;
d = .25;
h1 = 25;
h2 = 30;
Reduce[{h1 == .00248 (q1^2 l1/d1^5 + q^2 l/d^5), h2 == .00248 (q2^2 l2/d2^5 + q^2 l/d^5), q == q1 + q2}, {q1, q2}, Backsubstitution -> True]

During evaluation of In[1]:= Reduce::ratnz: Reduce was unable to solve the system with inexact coefficients. The answer was obtained by solving a corresponding exact system and numericizing the result. >>

Out[9]= (q == -0.0525616 && q1 == -0.0344568 && q2 == -0.0181048) ||
(q == -0.0187258 && q1 == -0.0385664 && q2 == 0.0198406) ||
(q == 0.0187258 && q1 == 0.0385664 && q2 == -0.0198406) ||
(q == 0.0525616 && q1 == 0.0344568 && q2 == 0.0181048)

URL: ,

Subject (listing for 'Equation System')
Author Date Posted
Equation System Marc 04/02/13 07:26am
Re: Equation System jf 04/02/13 10:23am
Re: Equation System Bill Simpson 04/02/13 11:52am
Re: Equation System Peter Pein 04/02/13 4:09pm
Re: Equation System Marc 04/03/13 02:15am
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic