Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Solving Coupled Diff Eqs ( Simple )' topicStudent Support Forum > General > "Solving Coupled Diff Eqs ( Simple )"

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Michael
06/30/12 6:09pm

In Response To 'Re: Solving Coupled Diff Eqs ( Simple )'
---------
Have you looked at your solutions? For instance T[t] can be solved exactly and for t between 0.01, 1.2, the value of T[t] is between 0.10000000057, 0.10000006928. At MachinePrecision, these both round to 0.1. For all intents and purposes, ParametricPlot produces a graph that consists of a point.

Try this (the Epilog plots the beginning and endpoints of the graph at different colors and sizes):

ParametricPlot[(Evaluate[{T[t], \[Beta][t]} /. s]), {t, a, b},
PlotRange -> All,
Epilog -> {PointSize[0.05], Green,
Point[({T[t], \[Beta][t]} /. s[[1]]) /. {t -> a}],
PointSize[Large], Red,
Point[({T[t], \[Beta][t]} /. s[[1]]) /. {t -> b}]}]

URL: ,

Subject (listing for 'Solving Coupled Diff Eqs ( Simple )')
Author Date Posted
Solving Coupled Diff Eqs ( Simple ) William Duhe 06/27/12 11:55am
Re: Solving Coupled Diff Eqs ( Simple ) Forum Modera... 06/28/12 7:24pm
Re: Re: Solving Coupled Diff Eqs ( Simple ) Michael 06/30/12 6:09pm
< Previous CommentHelp | Reply To Comment | Reply To Topic