"Do" loop with "If" conditional

  • #1
Hi,

I have a function defined by:

F[x_,y_,z_]:=3 x+y-2Y[z]

where
Y[z_]:=3/z

I'd like to run Do loop to calculate the value of this function for specific regions of x,y,z.

I can use:

Do[F[x,y,z],{x,1,2,1},{y,-2,-1,1},{z,3,5,1}],

But I have two questions here:

First: How to save the output in .dat file ? I 'd like to have something like:

F ##~~~~## x ##~~~~## y ##~~~~## z

Second: How Do loop can contain a conditional If, to put constrain on Y[z] -> 0 <Y[z] < 1, before evaluating F.
 
Last edited:

Answers and Replies

  • #2
Dale
Mentor
Insights Author
2021 Award
32,761
9,864
You will be better off to use Table here rather than Do.

Just put the If inside the definition of Y[z_]
 
  • #3
491
189
With the export-to-file in mind I'd suggest creating the table as follows

Code:
data = Table[ If[ Y[z]>0 && Y[z]<1, {F[x,y,z], x, y, z}, 0 ], {x,1,2,1}, {y,-2,-1,1}, {z,3,5,1}] // DeleteCases[0];

Next you can use Export[ file, data, format].

Remark;
1. I'm not sure what would happen if you leave the else-case empty in the If[] statement. Perhaps it doesn't add an element or maybe a zero.
I'm lazy so I went for a way that certainly works.
2. For ranges like ##\{x,1,2,1\}## you don't have to add the step size if it is one.

Question;
Is the function ##Y[z_]## always the same? Then you can simply solve the constraint and avoid it.
Otherwise you could try to automate it by solving the inequalities and using the answer in the range.
 

Related Threads on "Do" loop with "If" conditional

Replies
2
Views
2K
  • Last Post
Replies
5
Views
2K
Replies
5
Views
1K
Replies
4
Views
989
Replies
3
Views
2K
Replies
3
Views
3K
Replies
25
Views
8K
Replies
1
Views
2K
Top