| Author |
Comment/Response |
Sebastian Schwab
|
 03/11/08 07:31am
Hi,
First of all, I'm quite a Newbie with integration at all but after hours of reading and trying I don't get any further.
I programmed a notebook with some if conditions and wanted to integrate it, but the only thing it shows me ist Out=0.
Here's the notebook:
n:=1
tu:=50
tn:=n*tu
phi:=2*Pi*t/tu
Rs:=92
Rt:=209.5
Flow:=92.73*E^(-0.011*z)/10000
z:=xT-x
xT:=390
x:=Rs*Cos[4.1*Phi]+Rt*Cos[phi]
Flow1:=If[x<0, 0, Flow]
Flow2:=If[x<Rt*Cos[phi], 0, Flow]
realFlow:=If[Flow1==Flow2!=0, Flow, 0]
Plot[{Flow, realFlow}, {t, 0, tn}, PlotRange->{{0, tn}, {0.004, 0}}]
The plot works fine. realFlow only shows the areas where "Flow1 and Flow2" condition is complied. But when I try to Integrate that fine looking plot it doesn't get me a useful output:
NIntegrate[realFlow, {t, 0, tn}]
A non numerical solution would be way better but seems not to work on my computer.
Hope for help!
URL: , |
|
