projektMayhem
Feb24-10, 02:34 PM
I am trying to iterate a solution to a non-linear differential equation - but I am unable to evaluate a statement within a Do loop
Code:
Do[q = Cos[Evaluate[x'[i]/.up]]; If[ q <= 1, Print[q], Print[i], Print[i^2]], {i, 0.1, 1, .1}]
x'[i] is a solution to NDSolve
The output is i^2, which is absurd as q is necessarily <= 1.
In other words, it's not properly evaluating the conditional statement. I am lost as what to do with this, any help is greatly appreciated.
edit: I'm using Mathematica 5.0
Code:
Do[q = Cos[Evaluate[x'[i]/.up]]; If[ q <= 1, Print[q], Print[i], Print[i^2]], {i, 0.1, 1, .1}]
x'[i] is a solution to NDSolve
The output is i^2, which is absurd as q is necessarily <= 1.
In other words, it's not properly evaluating the conditional statement. I am lost as what to do with this, any help is greatly appreciated.
edit: I'm using Mathematica 5.0