Multiple Equations and Unknowns Mathematica 6

Multiple Equations and Unknowns Mathematica 6 - Extra...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
Extra Credit - Create your own problem to take advantage of using: 1. FindRoot[ ] 2. Solve [ ] and DSolve[ ] 3. /. Create examples for both 1 and for 2 while using 3 in both. The example below uses 1 and 3. ã Two equations and two unknowns (x1 and x2) Here I used := (SetDelayed) instead of the immediate = (Set). I do not know if it would make a difference in your use of the program.
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
In[1]:= Clear @ T, x2, x1, e1, e2 D e1 : = 15178.993` 10.926` T + 6000 x2 2 8000 x1 2 + 8.314` T Log @ 1 x2 D 8.314` T Log @ 1 x1 D ; e2 : = 7598.484` 9.706` T + 6000 H 1 x2 L 2 8000 H 1 x1 L 2 + 8.314` T Log @ x2 D 8.314` T Log @ x1 D ; solns : = FindRoot @8 e1 m 0, e2 m 0 < , 8 x1, .1 < , 8 x2, .2 <D ; tablesolns = Table @8 x1, x2 < = 8 x1, x2 . solns, 8 T, 950, 1400, 25 <D H Table of x2 and x2 solution L H TableForm @ tablesolns D L x1Table = Table @8 x1, T < = 8 x1, T . solns, 8 T, 950, 1400, 25 <D H Table of x1 solution and Temperatures L H TableForm @ x1Table D L x2Table = Table @8 x2, T < = 8 x2, T . solns, 8 T, 950, 1400, 25 <D H Table of x2 solution and Temperatures L H TableForm @ x2Table D L Out[5]= 88 0.531964, 0.788214 < , 8 0.480746, 0.755355 < , 8 0.435502, 0.720795 < , 8 0.395205, 0.684296 < , 8 0.358854, 0.645721 < , 8 0.325587, 0.605028 < , 8 0.294704, 0.562269 < , 8 0.265648, 0.517583 < , 8 0.237982, 0.471195 < , 8 0.211361, 0.423393 < , 8 0.185517, 0.374505 < , 8 0.160241, 0.324877 < , 8 0.135373, 0.274841 < , 8 0.11079, 0.224696 < , 8 0.086398, 0.174697 < , 8 0.0621287, 0.125047 < , 8 0.0379314, 0.0759011 < , 8 0.0137701, 0.0273684
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 7

Multiple Equations and Unknowns Mathematica 6 - Extra...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online