Search Results

I wanna get the second root that meet the criteria I set n^2 + n - 6 == 0 In this case you could do ClearAll[t, n]; n = -10; While[True, If[n^2 + n - 6 == 0, Break[]]; n++]; t = n + 1; While[Tru …

It is not a good idea to use For loops, if you must use explicit loops, you can use Do or Table Do[ Do[ myVar = ToString[i] <> ToString[j]; Print[myVar] , {j, 0, 5} ], {i, 0, 5} ]

As recommend in comments, better to use Table or Do. how I can get the value of S1 for each i value in the output. For For you can still use Sow and Reap as well result = First@Last@Reap@For[i …

Do loop then I want to Save data from this loop each x number of iterations One way might be SetDirectory[NotebookDirectory[]]; fd = OpenWrite["foo.txt"]; xNumberOfIterations = 3; Do[ m = R …

List={3, -5, 2, -12, -4, -1, -8, 10} There are many ways to do this in Mathematica, without using For. One way could be to first filter out the positive numbers, then call Total list = {3, -5, …

How could this piece of code be written in the Table, or as simple as possible? I would just replace the For by Do to keep things simpler and more clear ClearAll["Global`*"] LL = {1, 2, 3, 4, 5, 4}; …

Using the numbers you gave, it will take forever to finish. (it is also using For loop, which is slow). I fixed few things to make it run, and changed couple of numbers to make it finish quickly. It …

Because the Do does not return value. i.e what is generated inside the Do does not show up on the screen. You either need an explicit Print from inside the Do to see the output, or use Sow/Reap to col …

You could use ToExpression For[i = 0, i < 4, i++, ToExpression["b" <> ToString[i] <> "=" <> ToString[i]]] and now I am not sure why you want to do the above, there could be better ways to solve the …

You can't assign value to input parameter in Mathematica as these are passed by Value. You were writing g = remmdv[g] but g is passed by value so raw object. Can't assign to or change raw objects. A …

One way might be to put your input in a matrix and then map over it ClearAll; f[a_,b_]:=a*x^2+b*x+12-a-b; input={{1,2},{2,2},{1,3},{1,4}}; plots={a=#[[1]];b=#[[2]];Plot[f[a,b],{x,0,10}, PlotLab …

Another possibility monlist = {c x^3, x^5, 4}; NestWhileList[D[#, x] &, monlist, Total[#] =!= 0 &] Edit And in the spirit of procedural like programming, here is my version monlist = {c x^3, x^5, …

Use === data = Table[If[Check[i^0, err] === err, Nothing, i], {i, {1, 0, 2, 0, 1}}] You should have used === in your Do loop also. But there because of Continue you did not notice as it was starting …

It is better to avoid For loops. And why not just use Export? And try to not use l for variable. Not a good choice as it looks like 1. SetDirectory[NotebookDirectory[]] ClearAll[x]; range = Range[1/10 …

Next, I would like to loop the whole process so that I don't have to copy and paste my code 8 times for each individual file. Since Import[..., "Data"] worked for you, why not use that? Someth …