Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'extracting data from DO loop to create table' topicStudent Support Forum > General > Archives > "extracting data from DO loop to create table"

Next Comment >Help | Reply To Topic
Author Comment/Response
Omid
01/22/13 06:38am

I am running a double Do loop and am trying to extract data from within one of the Do loops so that I can make a combined plot. Here is the code:

Do[{Do[{v = x - 1, n = 1/x^2, s = v*n, o = m + s*j, tST = ArcSin[1/x],
If[t < tST, j = Cos[tST], j = Cos[t]], If[t > Pi - tST, j = 0],
Plot[q - o + 1, {s, t, t + Pi/50}]}, {t, 0, Pi,
Pi/50}]}, {x, 1, 10, 1}]

When I put Print around the Plot, it creates 510 plots (51 for each of ten x values). What I would like to do is combine the 51 plots together for each value of x. So I am trying to figure out how to extract the value {t, q-o+1} and create a table so that I can plot the table. Basically turn my 510 plots into 10. Ideas?

URL: ,

Subject (listing for 'extracting data from DO loop to create table')
Author Date Posted
extracting data from DO loop to create table Omid 01/22/13 06:38am
Re: extracting data from DO loop to create table Bill Simpson 01/22/13 1:21pm
Next Comment >Help | Reply To Topic