Message Boards Message Boards

0
|
3726 Views
|
7 Replies
|
2 Total Likes
View groups...
Share
Share this post:

How to get output for such a problem in a single data file

John Wick
Posted 3 years ago

f=(A^2/2G)+(G/B)^5+(A*B/C1); A={4,7,8,9,5}; B={1,2,3,4,5}; Now for each set of A and B i.e. for {A[1],B[1]},{A[2],B[2]}.....etc. I have to take 100 set of values for G and C1

C1:=RandomReal[{1,100},{100}];
G:=RandomReal[{1,100},{100}];

And print the output in a file for each set of A and B

Export["file.txt",Reap[Do[If[1<Thread[f]<100,Sow[{A,B,G,C1}]],{n,1,100}]][[2,1]],"Table"]
POSTED BY: John Wick
7 Replies
Sort By:
John Wick
John Wick
Posted 3 years ago

Thanks now I think the problem is going in the right direction
POSTED BY: John Wick
Rohit Namjoshi
Rohit Namjoshi
Posted 3 years ago

What is the purpose of the Reap? There is no Sow in the expression.

Since Thread does not appear anywhere in the expression it is most likely present in the definition of one of the other symbols in the expression. What are the definitions of mass1, mass2, mass3? Suggest restarting the kernel or evaluating

ClearAll[Evaluate[Context[] <> "*"]]
POSTED BY: Rohit Namjoshi
Updating Name
Updating Name
Posted 3 years ago

Thanks for your reply but after trying this

A1 := RandomReal[{0, 9}, {60}];
B1 := RandomReal[{0, 9}, {60}];
R1 := RandomReal[{0.01, 10}, {100}];
R2 := RandomReal[{0.01, 10}, {100}];
f1 := RandomReal[{0.00001, 0.0000001}, {100}];
f2 := RandomReal[{0.00001, 0.0000001}, {100}];

Export["C:\\Scan168.txt", 
 Reap[Table[
    If[Between[
       mass[R1[[n]], R2[[n]], f1[[n]], 
        f2[[n]], A1[[v]], B1[[v]]], {0, 0.609999}] && 
      Between[mass3[R1[[n]], R2[[n]], f1[[n]], 
        f2[[n]], A1[[v]], B1[[v]]], {0.6001, 1.16999}] &&
       Between[
       mass1[R1[[n]], R2[[n]], f1[[n]], 
        f2[[n]], A1[[v]], B1[[v]]], {16.79001, 68.009999}] &&
       Between[
       mass2[R1[[n]], R2[[n]], f1[[n]], 
        f2[[n]], A1[[v]], B1[[v]]], {1.43601, 
        2.91799}], {R1[[n]], R2[[n]], f1[[n]], 
      f2[[n]], A1[[v]], B1[[v]]}, Nothing], {v, 1, 60}, {n,
      1, 100}] // Flatten[#, 1] &]]

I am getting error messege

Thread::tdlen: Objects of unequal length in 2 <<3>> {7.09846,11.0615,2.99195,3.59533,7.92718,9.11883,14.4567,8.97938,12.5384,7.00722,14.712,14.7486,6.62113,9.37542,13.2825,2.59686,13.4586,<<17>>,19.469,13.7266,6.78945,14.4631,5.78073,13.8504,11.7908,4.76266,10.2747,14.8003,5.85192,16.8839,13.8162,7.69785,8.22073,12.0752,<<50>>} cannot be combined.
POSTED BY: Updating Name
Rohit Namjoshi
Rohit Namjoshi
Posted 3 years ago

Thanks for clarifying. It is easy to add a filter condition to the table generation.

Table[
  If[Between[f[a[[n]], b[[n]], g[[i]], c[[i]]], {2, 99}],
   {a[[n]], b[[n]], g[[i]], c[[i]], f[a[[n]], b[[n]], g[[i]], c[[i]]]}, 
   Nothing],
  {n, 1, 5}, {i, 1, 100}] //
Flatten[#, 1] &
POSTED BY: Rohit Namjoshi
John Wick
John Wick
Posted 3 years ago
POSTED BY: John Wick
John Wick
John Wick
Posted 3 years ago
POSTED BY: John Wick
Rohit Namjoshi
Rohit Namjoshi
Posted 3 years ago
POSTED BY: Rohit Namjoshi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract