4 New problems, comments advice
source | link

After some awesome tips from @qwerty I still have some doubts

As I said, I´d Like to make a smooth function with some other colors, I plot the graph, there is a lot of data. The situation is this: I have a Geiger counter, and the data file rate is made minute by minute. So I have 30505 minutes in total. And the smooth have to be by 60 minutes and 1440 minutes. In the end, the same plot should have the data minute by minute, 60 by 60 and 1440 by 1440. I could be able to do just minute by minute using this

 SetDirectory["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
data = Import["geiger_2015_06_30_ita.txt", "Table"];
ListLinePlot[data]
values = data[[;; , 2]];
ticks = data /. {x_, _} :> 
   StringInsert[StringTake[#, {7, 10}] &@ToString[x], ":", 3]
f = Interpolation[values];
n = Length[data];
Plot[f[x], {x, 1, n}, AxesOrigin -> {0, 0}, 
 Ticks -> {Transpose[{Range[n], Rotate[#, -45 Degree] & /@ ticks}], 
   Automatic}, ImageSize -> 500]

I got that pic

enter image description here

I had an idea. Plot the data jumping 59 datas, so I would plot 1, 60, 120, 180,... for example, This is possible?

After some awesome tips from @qwerty I still have some doubts

As I said, I´d Like to make a smooth function with some other colors, I plot the graph, there is a lot of data. The situation is this: I have a Geiger counter, and the data file rate is made minute by minute. So I have 30505 minutes in total. And the smooth have to be by 60 minutes and 1440 minutes. In the end, the same plot should have the data minute by minute, 60 by 60 and 1440 by 1440. I could be able to do just minute by minute using this

 SetDirectory["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
data = Import["geiger_2015_06_30_ita.txt", "Table"];
ListLinePlot[data]
values = data[[;; , 2]];
ticks = data /. {x_, _} :> 
   StringInsert[StringTake[#, {7, 10}] &@ToString[x], ":", 3]
f = Interpolation[values];
n = Length[data];
Plot[f[x], {x, 1, n}, AxesOrigin -> {0, 0}, 
 Ticks -> {Transpose[{Range[n], Rotate[#, -45 Degree] & /@ ticks}], 
   Automatic}, ImageSize -> 500]

I had an idea. Plot the data jumping 59 datas, so I would plot 1, 60, 120, 180,... for example, This is possible?

After some awesome tips from @qwerty I still have some doubts

As I said, I´d Like to make a smooth function with some other colors, I plot the graph, there is a lot of data. The situation is this: I have a Geiger counter, and the data file rate is made minute by minute. So I have 30505 minutes in total. And the smooth have to be by 60 minutes and 1440 minutes. In the end, the same plot should have the data minute by minute, 60 by 60 and 1440 by 1440. I could be able to do just minute by minute using this

 SetDirectory["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
data = Import["geiger_2015_06_30_ita.txt", "Table"];
ListLinePlot[data]
values = data[[;; , 2]];
ticks = data /. {x_, _} :> 
   StringInsert[StringTake[#, {7, 10}] &@ToString[x], ":", 3]
f = Interpolation[values];
n = Length[data];
Plot[f[x], {x, 1, n}, AxesOrigin -> {0, 0}, 
 Ticks -> {Transpose[{Range[n], Rotate[#, -45 Degree] & /@ ticks}], 
   Automatic}, ImageSize -> 500]

I got that pic

enter image description here

I had an idea. Plot the data jumping 59 datas, so I would plot 1, 60, 120, 180,... for example, This is possible?

3 New problems, comments advice
source | link

I´m tryingAfter some awesome tips from @qwerty I still have some doubts

As I said, I´d Like to make somea smooth graphs in the samefunction with some other colors, I plot the graph, there is a lot of data. FirstThe situation is this: I have a Geiger counter, and the data file rate is made minute by minute. So I have 30505 minutes in total. And the smooth have to be by 60 minutes and 1440 minutes. In the end, the same plot should have the data minute by minute, 60 by 60 and 1440 by 1440. I could be able to do just minute by minute using this

SetDirectory ["DSetDirectory["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
dadodata = Import["geiger_2015_06_30_ita.txt", "Table"];
 
ListLinePlot[dado]ListLinePlot[data]

Then I got this pictureenter image description here

I´d Like to make a smooth function with some other colors, but i don´t know how to do it. I look for other possibilities as

f2values = Interpolation[data, InterpolationOrderdata[[;; ->, 2];2]];
f3ticks = Interpolation[datadata /. {x_, InterpolationOrder_} -:> 3];
p = Plot[{f2'[x], f3'[x]}StringInsert[StringTake[#, {x, 07, 10010}, PlotStyle ->] {Red&@ToString[x], Blue}":", 3]
          AxesLabel -> {"Time", "Ratef of= Reaction"}]Interpolation[values];

or these

fFit01n = BSplineFunction[testData];Length[data];
ParametricPlot[fFit01[n]Plot[f[x], {nx, 01, Length[testData]n}, AxesOrigin -> 1{0, 0}, 
  Ticks -> {Transpose[{Range[n], Rotate[#, -45 Degree] & /@ ticks}],  
   Automatic}, EpilogImageSize -> Point[testData]]500]

But both I got problems withhad an idea. Plot the plottingdata jumping 59 datas, and there is some conflicts in the position of graphsso I would plot 1, 60, 120, 180,.

That´s all.. for example, Thanks This is possible?

I´m trying to make some smooth graphs in the same plot. First I plot the data.

SetDirectory ["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
dado = Import["geiger_2015_06_30_ita.txt", "Table"];
 
ListLinePlot[dado]

Then I got this pictureenter image description here

I´d Like to make a smooth function with some other colors, but i don´t know how to do it. I look for other possibilities as

f2 = Interpolation[data, InterpolationOrder -> 2];
f3 = Interpolation[data, InterpolationOrder -> 3];
p = Plot[{f2'[x], f3'[x]}, {x, 0, 100}, PlotStyle -> {Red, Blue}, 
          AxesLabel -> {"Time", "Rate of Reaction"}]

or these

fFit01 = BSplineFunction[testData];
ParametricPlot[fFit01[n], {n, 0, Length[testData] - 1}, 
               Epilog -> Point[testData]]

But both I got problems with the plotting, and there is some conflicts in the position of graphs.

That´s all, Thanks

After some awesome tips from @qwerty I still have some doubts

As I said, I´d Like to make a smooth function with some other colors, I plot the graph, there is a lot of data. The situation is this: I have a Geiger counter, and the data file rate is made minute by minute. So I have 30505 minutes in total. And the smooth have to be by 60 minutes and 1440 minutes. In the end, the same plot should have the data minute by minute, 60 by 60 and 1440 by 1440. I could be able to do just minute by minute using this

 SetDirectory["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
data = Import["geiger_2015_06_30_ita.txt", "Table"];
ListLinePlot[data]
values = data[[;; , 2]];
ticks = data /. {x_, _} :> 
   StringInsert[StringTake[#, {7, 10}] &@ToString[x], ":", 3]
f = Interpolation[values];
n = Length[data];
Plot[f[x], {x, 1, n}, AxesOrigin -> {0, 0}, 
 Ticks -> {Transpose[{Range[n], Rotate[#, -45 Degree] & /@ ticks}],  
   Automatic}, ImageSize -> 500]

I had an idea. Plot the data jumping 59 datas, so I would plot 1, 60, 120, 180,... for example, This is possible?

    Post Closed as "off-topic" by m_goldberg, user9660, Jason B., bbgodfrey, rhermans
2 added 33 characters in body
source | link

i´mI´m trying to make some smooth graphs in the same plot. First I Plotplot the data.

SetDirectory ["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"]; dado = Import["geiger_2015_06_30_ita.txt", "Table"]; ListLinePlot[dado]

SetDirectory ["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
dado = Import["geiger_2015_06_30_ita.txt", "Table"];

ListLinePlot[dado]

Then iI got this pictureenter image description hereenter image description here

I´d Like to make a smooth function with some other colors, but i don´t know how to do it. I look for other possibilities as

f2 = Interpolation[data, InterpolationOrder -> 2];
f3 = Interpolation[data, InterpolationOrder -> 3];
p = Plot[{f2'[x], f3'[x]}, {x, 0, 100}, PlotStyle -> {Red, Blue}, 
          AxesLabel -> {"Time", "Rate of Reaction"}]

f3 = Interpolation[data, InterpolationOrder -> 3]; p = Plot[{f2'[x], f3'[x]}, {x, 0, 100}, PlotStyle -> {Red, Blue}, AxesLabel -> {"Time", "Rate of Reaction"}]

or these

 fFit01 = BSplineFunction[testData];
ParametricPlot[fFit01[n], {n, 0, Length[testData] - 1}, 
               Epilog -> Point[testData]]

But both iI got problems with the plotting, and there is some conflicts in the position of graphs.

That´s all, Thanks

i´m trying to make some smooth graphs in the same plot. First I Plot the data.

SetDirectory ["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"]; dado = Import["geiger_2015_06_30_ita.txt", "Table"]; ListLinePlot[dado]

Then i got this pictureenter image description here

I´d Like to make a smooth function with some other colors, but i don´t know how to do it. I look for other possibilities as

f2 = Interpolation[data, InterpolationOrder -> 2];

f3 = Interpolation[data, InterpolationOrder -> 3]; p = Plot[{f2'[x], f3'[x]}, {x, 0, 100}, PlotStyle -> {Red, Blue}, AxesLabel -> {"Time", "Rate of Reaction"}]

or these

 fFit01 = BSplineFunction[testData];
ParametricPlot[fFit01[n], {n, 0, Length[testData] - 1}, 
               Epilog -> Point[testData]]

But both i got problems with the plotting, and there is some conflicts in the position of graphs.

That´s all, Thanks

I´m trying to make some smooth graphs in the same plot. First I plot the data.

SetDirectory ["D:\\Documents and Settings\\Física\\Desktop\\Pesquisa\\Dados_Chuva"];
dado = Import["geiger_2015_06_30_ita.txt", "Table"];

ListLinePlot[dado]

Then I got this pictureenter image description here

I´d Like to make a smooth function with some other colors, but i don´t know how to do it. I look for other possibilities as

f2 = Interpolation[data, InterpolationOrder -> 2];
f3 = Interpolation[data, InterpolationOrder -> 3];
p = Plot[{f2'[x], f3'[x]}, {x, 0, 100}, PlotStyle -> {Red, Blue}, 
          AxesLabel -> {"Time", "Rate of Reaction"}]

or these

fFit01 = BSplineFunction[testData];
ParametricPlot[fFit01[n], {n, 0, Length[testData] - 1}, 
               Epilog -> Point[testData]]

But both I got problems with the plotting, and there is some conflicts in the position of graphs.

That´s all, Thanks

1
source | link