# Fix the following "If else" loop with NIntegrate?

Posted 7 months ago
749 Views
|
|
1 Total Likes
|
 Hi. I made a code for "if else" loop in Mathematica. but it's not giving me the output. will anyone help me in that? the import file used in the code is given in the attachment. Co = 7.325 10^-11; Vfb = 0.6; testing = Import["D:\\Ph.D\\mathematica\\trapz test.xls", {"Data"}][[1, Range[1, 121], {1, 2}]]; V = Import["D:\\Ph.D\\mathematica\\trapz test.xls", {"Data"}][[1, Range[1, 121], 1]]; tit = {#[[1]], 1 - #[[2]]/Co} & /@ testing; daba = Interpolation[tit]; If[Vfb > V, {NIntegrate[daba[x], {x, #, Vfb}] & /@ V} , {NIntegrate[daba[x], {x, Vfb, #}] & /@ V}] output is this: If[{0.6} > {-5., -4.9, -4.8, -4.7, -4.6, -4.5, -4.4, -4.3, -4.2, \ -4.1, -4., -3.9, -3.8, -3.7, -3.6, -3.5, -3.4, -3.3, -3.2, -3.1, -3., \ -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2., -1.9, \ -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1., -0.9, -0.8, \ -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.1, 0., 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1., 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2., 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3., 3.1, 3.2, 3.3, 3.4, 3.5, 3.6, 3.7, 3.8, 3.9, 4., 4.1, 4.2, 4.3, 4.4, 4.5, 4.6, 4.7, 4.8, 4.9, 5., 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6., 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7.}, {(NIntegrate[daba[x], {x, #1, Vfb}] &) /@ V}, {(NIntegrate[daba[x], {x, Vfb, #1}] &) /@ V}] Thanks Attachments: